[Rose-commits] r120 - in trunk: . config docs/Rose
docs/Rose/Tutorial libltdl projects/AstEquivalence
projects/AstEquivalence/gui projects/BinQ
projects/BinaryCloneDetection/gui projects/OpenMP_Translator
projects/arrayOptimization projects/arrayOptimization/test
projects/autoParallelization/tests
projects/compass/extensions/checkers/binPrintAsmFunctions
projects/compass/extensions/checkers/binPrintAsmInstruction
projects/compass/extensions/checkers/binaryBufferOverflow
projects/compass/extensions/checkers/binaryInterruptAnalysis
projects/palette src src/3rdPartyLibraries src/ROSETTA
src/ROSETTA/Grammar src/ROSETTA/src src/backend/asmUnparser
src/backend/unparser/CxxCodeGeneration
src/backend/unparser/languageIndependenceSupport
src/frontend/BinaryDisassembly src/frontend/CxxFrontend
src/frontend/Disassemblers src/frontend/ExecFormats
src/frontend/OpenFortranParser_SAGE_Connection
src/frontend/SageIII src/frontend/SageIII/astTokenStream
src/frontend/SageIII/sageInterface
src/frontend/SageIII/virtualCFG src/midend/astInlining
src/midend/astProcessing src/midend/astUtil/annotation
src/midend/astUtil/astInterface src/midend/astUtil/astSupport
src/midend/astUtil/symbolicVal src/midend/binaryAnalyses
src/midend/binaryAnalyses/graph src/midend/loopProcessing/depGraph
src/midend/loopProcessing/depInfo
src/midend/programAnalysis/defUseAnalysis
src/util/stringSupport src/util/support
tests/CompileTests/Fortran_tests
tests/roseTests/programAnalysisTests
tests/roseTests/programAnalysisTests/variableLivenessTests
tests/roseTests/programAnalysisTests/variableLivenessTests/tests
tutorial
liaoch at osp5.lbl.gov
liaoch at osp5.lbl.gov
Wed Nov 12 15:49:36 PST 2008
Author: liaoch
Date: 2008-11-12 15:49:35 -0800 (Wed, 12 Nov 2008)
New Revision: 120
Added:
trunk/docs/Rose/ROSE_DeveloperInstructions.tex.in
trunk/libltdl/
trunk/libltdl/COPYING.LIB
trunk/libltdl/Makefile.am
trunk/libltdl/README
trunk/libltdl/acinclude.m4
trunk/libltdl/config-h.in
trunk/libltdl/config.guess
trunk/libltdl/config.sub
trunk/libltdl/configure.ac
trunk/libltdl/install-sh
trunk/libltdl/ltdl.c
trunk/libltdl/ltdl.h
trunk/libltdl/ltmain.sh
trunk/libltdl/missing
trunk/projects/BinQ/AlignFunctions.h
trunk/projects/BinQ/BinAnalyses.h
trunk/projects/BinQ/BinCallGraph.C
trunk/projects/BinQ/BinCallGraph.h
trunk/projects/BinQ/BinControlFlowAnalysis.C
trunk/projects/BinQ/BinControlFlowAnalysis.h
trunk/projects/BinQ/BinDataFlowAnalysis.C
trunk/projects/BinQ/BinDataFlowAnalysis.h
trunk/projects/BinQ/BufferOverflow.C
trunk/projects/BinQ/BufferOverflow.h
trunk/projects/BinQ/InterruptAnalysis.C
trunk/projects/BinQ/InterruptAnalysis.h
trunk/projects/autoParallelization/tests/lastprivate.c
trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
trunk/src/frontend/CxxFrontend/roseBinaryEDG-x86_64-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
trunk/src/frontend/SageIII/dwarfSupport.C
trunk/src/frontend/SageIII/dwarfSupport.h
trunk/src/frontend/SageIII/sageInterface/sageInterface_asm.C
trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.cpp
trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.h
trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.cpp
trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.h
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/Makefile.am
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/runTest.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/test1.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/mpi.c
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.output
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test10.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test11.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test12.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test13.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test14.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test15.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test16.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test17.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test18.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test19.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.output
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test20.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test21.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test22.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test23.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.output
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.output
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test5.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test6.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test7.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test8.C
trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test9.C
trunk/tutorial/dwarfAnalysis.C
trunk/tutorial/dwarfInstructionAddressToSourceLineAnalysis.C
trunk/tutorial/inputCode_dwarfAnalysis.C
Removed:
trunk/projects/BinQ/AlignFunctionsSmart.C
trunk/src/3rdPartyLibraries/libltdl/
trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-apple-darwin9.5.0-b0847234cb4f3e1afaefa965207df2c0.tar.gz
trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz
trunk/src/frontend/CxxFrontend/roseBinaryEDG-x86_64-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz
Modified:
trunk/Makefile.am
trunk/build
trunk/config/Makefile.for.ROSE.includes.and.libs
trunk/configure.in
trunk/docs/Rose/Makefile.am
trunk/docs/Rose/Tutorial/tutorial.tex.in
trunk/docs/Rose/developersAppendix.tex
trunk/docs/Rose/leftmenu.html.in
trunk/projects/AstEquivalence/astEquivalenceMainGui.C
trunk/projects/AstEquivalence/createTextFiles.C
trunk/projects/AstEquivalence/evaluateAllBinaries.C
trunk/projects/AstEquivalence/gui/compilerFlagsGui.C
trunk/projects/AstEquivalence/gui/compilerFlagsMainGui.C
trunk/projects/BinQ/AlignFunctions.C
trunk/projects/BinQ/BinQGui.C
trunk/projects/BinQ/BinQGui.h
trunk/projects/BinQ/BinQMain.C
trunk/projects/BinQ/Clone.C
trunk/projects/BinQ/Clone.h
trunk/projects/BinQ/Item.h
trunk/projects/BinQ/Makefile.am
trunk/projects/BinQ/slide.C
trunk/projects/BinaryCloneDetection/gui/binaryCloneGui.C
trunk/projects/OpenMP_Translator/ompTranslator.C
trunk/projects/arrayOptimization/ArrayAnnot.C
trunk/projects/arrayOptimization/ArrayAnnot.h
trunk/projects/arrayOptimization/test/Makefile.am
trunk/projects/arrayOptimization/test/TestDriver
trunk/projects/autoParallelization/tests/Makefile.am
trunk/projects/autoParallelization/tests/private.c
trunk/projects/compass/extensions/checkers/binPrintAsmFunctions/binPrintAsmFunctionsDocs.tex
trunk/projects/compass/extensions/checkers/binPrintAsmInstruction/binPrintAsmInstructionDocs.tex
trunk/projects/compass/extensions/checkers/binaryBufferOverflow/binaryBufferOverflowDocs.tex
trunk/projects/compass/extensions/checkers/binaryInterruptAnalysis/binaryInterruptAnalysisDocs.tex
trunk/projects/palette/Makefile.am
trunk/projects/palette/rose.P
trunk/src/3rdPartyLibraries/Makefile.am
trunk/src/ROSETTA/Grammar/BinaryInstruction.code
trunk/src/ROSETTA/Grammar/Node.code
trunk/src/ROSETTA/Grammar/Support.code
trunk/src/ROSETTA/astNodeList
trunk/src/ROSETTA/src/binaryInstruction.C
trunk/src/ROSETTA/src/buildStorageClasses.C
trunk/src/ROSETTA/src/grammar.C
trunk/src/ROSETTA/src/support.C
trunk/src/backend/asmUnparser/unparseArmAsm.C
trunk/src/backend/asmUnparser/unparseAsm.h
trunk/src/backend/asmUnparser/unparsePowerpcAsm.C
trunk/src/backend/asmUnparser/unparseX86Asm.C
trunk/src/backend/unparser/CxxCodeGeneration/unparseCxx_types.C
trunk/src/backend/unparser/languageIndependenceSupport/unparseLanugageIndependentConstructs.C
trunk/src/frontend/BinaryDisassembly/Makefile.am
trunk/src/frontend/BinaryDisassembly/RoseBin_instruction_table_x86
trunk/src/frontend/BinaryDisassembly/instructionDispatch.cpp
trunk/src/frontend/BinaryDisassembly/make-decision-tree.tcl
trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnum.h
trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnumPrinter.C
trunk/src/frontend/BinaryDisassembly/x86InstructionProperties.C
trunk/src/frontend/CxxFrontend/Makefile.am
trunk/src/frontend/Disassemblers/disassemblerCommon.C
trunk/src/frontend/Disassemblers/powerpcDisassembler.C
trunk/src/frontend/ExecFormats/ROSE_ExecDOS.C
trunk/src/frontend/ExecFormats/ROSE_ExecELF.C
trunk/src/frontend/ExecFormats/ROSE_ExecGeneric.C
trunk/src/frontend/ExecFormats/ROSE_ExecLE.C
trunk/src/frontend/ExecFormats/ROSE_ExecNE.C
trunk/src/frontend/ExecFormats/ROSE_ExecPE.C
trunk/src/frontend/OpenFortranParser_SAGE_Connection/openFortranParser_main.C
trunk/src/frontend/SageIII/Makefile.am
trunk/src/frontend/SageIII/astTokenStream/linearizeAST.C
trunk/src/frontend/SageIII/astTokenStream/linearizeAST.h
trunk/src/frontend/SageIII/attachPreprocessingInfo.C
trunk/src/frontend/SageIII/rtiHelpers.h
trunk/src/frontend/SageIII/sageInterface/Makefile.am
trunk/src/frontend/SageIII/sageInterface/sageInterface.C
trunk/src/frontend/SageIII/sageInterface/sageInterface.h
trunk/src/frontend/SageIII/sageSupport.C
trunk/src/frontend/SageIII/virtualCFG/filteredCFGImpl.h
trunk/src/midend/astInlining/inlinerSupport.C
trunk/src/midend/astProcessing/AstDOTGeneration.C
trunk/src/midend/astUtil/annotation/AnnotCollect.C
trunk/src/midend/astUtil/annotation/AnnotDescriptors.C
trunk/src/midend/astUtil/annotation/AnnotDescriptors.h
trunk/src/midend/astUtil/annotation/AnnotIO.C
trunk/src/midend/astUtil/annotation/AnnotIO.h
trunk/src/midend/astUtil/annotation/OperatorAnnotation.h
trunk/src/midend/astUtil/annotation/OperatorDescriptors.C
trunk/src/midend/astUtil/annotation/OperatorDescriptors.h
trunk/src/midend/astUtil/annotation/TypeAnnotation.C
trunk/src/midend/astUtil/annotation/TypeAnnotation.h
trunk/src/midend/astUtil/astInterface/AstInterface.C
trunk/src/midend/astUtil/astInterface/AstInterface.h
trunk/src/midend/astUtil/astSupport/AnalysisInterface.h
trunk/src/midend/astUtil/astSupport/StmtInfoCollect.C
trunk/src/midend/astUtil/astSupport/StmtInfoCollect.h
trunk/src/midend/astUtil/symbolicVal/SymbolicVal.h
trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.cpp
trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.h
trunk/src/midend/binaryAnalyses/graph/RoseBin_DotGraph.cpp
trunk/src/midend/loopProcessing/depGraph/DepGraphBuild.C
trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.C
trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.h
trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.cpp
trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.h
trunk/src/midend/programAnalysis/defUseAnalysis/Makefile.am
trunk/src/rose.h
trunk/src/util/stringSupport/string_functions.C
trunk/src/util/stringSupport/string_functions.h
trunk/src/util/support/FunctionObject.h
trunk/src/util/support/ObserveObject.h
trunk/src/util/support/PtrSet.h
trunk/src/util/support/SinglyLinkedList.h
trunk/tests/CompileTests/Fortran_tests/test2007_176.f03
trunk/tests/CompileTests/Fortran_tests/test2007_236.f90
trunk/tests/CompileTests/Fortran_tests/test2007_250.f90
trunk/tests/CompileTests/Fortran_tests/test2007_258.f
trunk/tests/CompileTests/Fortran_tests/test2007_33.f90
trunk/tests/CompileTests/Fortran_tests/test2007_37.f03
trunk/tests/CompileTests/Fortran_tests/test2007_40.f90
trunk/tests/CompileTests/Fortran_tests/test2007_41.f03
trunk/tests/roseTests/programAnalysisTests/Makefile.am
trunk/tutorial/Makefile.am
Log:
Load rose-0.9.4a-3096 into trunk.
Modified: trunk/Makefile.am
===================================================================
--- trunk/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,9 +13,9 @@
# they generate data that is subsequently used in the generated
# ROSE documentation (examples, input codes, and generated output).
# SUBDIRS = config src projects tests tutorial exampleTranslators docs developersScratchSpace tools proposals scripts
-SUBDIRS = config src projects tests tutorial exampleTranslators docs tools scripts $(DEVELOPER_DISTRIBUTION_DIRECTORY)
+SUBDIRS = libltdl config src projects tests tutorial exampleTranslators docs tools scripts $(DEVELOPER_DISTRIBUTION_DIRECTORY)
-ACLOCAL_AMFLAGS = -I ./config -I ./acmacros -I ./src/3rdPartyLibraries/libltdl -I /usr/share/aclocal
+ACLOCAL_AMFLAGS = -I ./config -I ./acmacros -I ./libltdl -I /usr/share/aclocal
# Force rose.docs to be make by default
# (if rose.docs.in is modified)
Modified: trunk/build
===================================================================
--- trunk/build 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/build 2008-11-12 23:49:35 UTC (rev 120)
@@ -26,15 +26,16 @@
# JJW (10/5/2008): force glibtoolize on Mac, even for external releases where
# it wouldn't otherwise be needed (the files are there, they just don't work
# when linking in Java)
-if test -x /usr/bin/glibtoolize; then
- /usr/bin/glibtoolize --force
-elif test -f ./config/ltmain.sh; then
- :
-else
- libtoolize
+# JJW (11/8/2008): force libtoolize everywhere, and prefer libtoolize to
+# glibtoolize if it is present (libltdl is missing on ninjai, so I need to use
+# my own libtool installation)
+if which libtoolize > /dev/null; then
+ libtoolize --force --copy --ltdl --automake
+elif which glibtoolize > /dev/null; then
+ glibtoolize --force --copy --ltdl --automake
fi
-aclocal -I ./config -I ./acmacros -I ./src/3rdPartyLibraries/libltdl -I /usr/share/aclocal || : exit 1
+aclocal -I ./config -I ./acmacros -I /usr/share/aclocal || : exit 1
# autoheader --warnings=obsolete,all || : exit 1
autoheader || : exit 1
@@ -53,14 +54,14 @@
touch stamp-h1.in || : exit 1
# Do the same steps in libltdl
-(cd src/3rdPartyLibraries/libltdl && aclocal && automake --add-missing && autoconf)
+# (cd libltdl && aclocal && automake --add-missing && autoconf)
# We can't reconfigure their code yet (autoconf too old)
# (cd src/3rdPartyLibraries/libharu-2.1.0 && autoreconf)
# Rewrite a couple of makefile rules to be less verbose so (1) we can actually see the warning messages
# and (2) XEmacs doesn't get regexp stack overflows when parsing compiler output.
if [ "$do_quiet" = "yes" ]; then
- find . -name Makefile.in | grep -v libharu | xargs sed -i~ \
+ find . -name Makefile.in | grep -v libharu | grep -v libltdl | xargs sed -i~ \
-e 's/^\(LT\)\{0,1\}\(CXX\)\{0,1\}COMPILE =/& @echo " COMPILE $@";/' \
-e 's/^\(CXX\)\{0,1\}LINK =/& @echo " LINK $@";/' \
-e 's/@LIBTOOL@/& --quiet/g'
Modified: trunk/config/Makefile.for.ROSE.includes.and.libs
===================================================================
--- trunk/config/Makefile.for.ROSE.includes.and.libs 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/config/Makefile.for.ROSE.includes.and.libs 2008-11-12 23:49:35 UTC (rev 120)
@@ -209,7 +209,6 @@
-I$(top_srcdir)/src/roseSupport \
-I$(top_srcdir)/src/3rdPartyLibraries/MSTL \
\
- -I$(top_srcdir)/src/3rdPartyLibraries/libltdl \
-I$(top_srcdir)/src/3rdPartyLibraries/libharu-2.1.0/include \
-I$(top_builddir)/src/3rdPartyLibraries/libharu-2.1.0/include \
-I$(top_srcdir)/src/3rdPartyLibraries/qrose/Framework \
@@ -217,6 +216,7 @@
-I$(top_srcdir)/projects/dataBase \
-I$(top_srcdir)/src/util/graphs \
-I$(top_srcdir)/src/midend/astUtil/astInterface \
+ -I$(top_srcdir)/libltdl \
$(ROSE_PHP_INCLUDES) \
$(ROSE_YICES_INCLUDES) \
$(ROSE_DWARF_INCLUDES) \
Modified: trunk/configure.in
===================================================================
--- trunk/configure.in 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/configure.in 2008-11-12 23:49:35 UTC (rev 120)
@@ -211,6 +211,12 @@
AC_ARG_WITH(valgrind, [ --with-valgrind ... Run uninitialized field tests that use Valgrind],
[AC_DEFINE([ROSE_USE_VALGRIND], 1, [Use Valgrind calls in ROSE])
if test "x$withval" = "xyes"; then VALGRIND_BINARY="`which valgrind`"; else VALGRIND_BINARY="$withval"; fi])
+
+AC_ARG_WITH(wave-default, [ --with-wave-default ... Use Wave as the default preprocessor],
+ [AC_DEFINE([ROSE_WAVE_DEFAULT], true, [Use Wave as default in ROSE])],
+ [AC_DEFINE([ROSE_WAVE_DEFAULT], false, [Simple preprocessor as default in ROSE])]
+ )
+
# Don't set VALGRIND here because that turns on actually running valgrind in
# many tests, as opposed to just having the path available for
# uninitializedField_tests
@@ -438,13 +444,18 @@
# echo "In configure.in (before libtool setup): libtool test for 64 bit libs = `/usr/bin/file conftest.o`"
LT_AC_PROG_SED dnl This seems to not be called, even though it is needed in the other macros
-AC_LIBLTDL_INSTALLABLE([src/3rdPartyLibraries/libltdl])
+m4_pattern_allow([LT_LIBEXT])dnl From http://www.mail-archive.com/libtool-commit@gnu.org/msg01369.html
+AC_PROG_LIBTOOL
+AC_LIBLTDL_CONVENIENCE dnl We need to use our version because libtool can't handle when we use libtool v2 but the v1 libltdl is installed on a system
AC_SUBST(LTDLINCL)
AC_SUBST(LIBLTDL)
AC_LIBTOOL_DLOPEN
-AC_LIB_LTDL
-AC_PROG_LIBTOOL
-AC_LTDL_SHLIBPATH dnl Get the environment variable like LD_LIBRARY_PATH for the Fortran support to use
+AC_LIB_LTDL(recursive)
+dnl AC_LT DL_SHLIBPATH dnl Get the environment variable like LD_LIBRARY_PATH for the Fortran support to use
+dnl This seems to be an internal variable, set by different macros in different
+dnl Libtool versions, but with the same name
+AC_DEFINE_UNQUOTED(ROSE_SHLIBPATH_VAR, ["$shlibpath_var"], [Variable like LD_LIBRARY_PATH])
+
echo 'int i;' > conftest.$ac_ext
AC_TRY_EVAL(ac_compile);
# echo "In configure.in (after libtool setup): libtool test for 64 bit libs = `/usr/bin/file conftest.o`"
@@ -730,8 +741,8 @@
AM_CONDITIONAL(BINARY_EDG_TARBALL_ENABLED, [test "x$binary_edg_tarball_enabled" = "xyes"])
-release_binary_compatibility_signature="b0847234cb4f3e1afaefa965207df2c0" # This variable will be substituted in binary-EDG release copies of configure.in
-build_triplet_without_redhat=`echo $build | sed s/-redhat-/-pc-/ | sed s/-unknown-/-pc-/`
+release_binary_compatibility_signature="b748587de57a44c0e686aff4093bdc70" # This variable will be substituted in binary-EDG release copies of configure.in
+build_triplet_without_redhat=`${srcdir}/config/cleanConfigGuessOutput "$build"`
expected_binary_edg_dirname="roseBinaryEDG-${build_triplet_without_redhat}-${release_binary_compatibility_signature}"
expected_binary_edg_tarball="${expected_binary_edg_dirname}.tar.gz"
full_expected_binary_edg_tarball="${srcdir}/src/frontend/CxxFrontend/${expected_binary_edg_tarball}"
@@ -834,7 +845,8 @@
AC_ARG_ENABLE(assembly-semantics, AS_HELP_STRING([--enable-assembly-semantics], [Enable semantics-based analysis of assembly code]))
AM_CONDITIONAL(ROSE_USE_ASSEMBLY_SEMANTICS, [test "x$enable_assembly_semantics" = xyes])
-AC_CONFIG_SUBDIRS([src/3rdPartyLibraries/libltdl src/3rdPartyLibraries/libharu-2.1.0])
+echo "subdirs $subdirs"
+AC_CONFIG_SUBDIRS([libltdl src/3rdPartyLibraries/libharu-2.1.0])
# RV 9/14/2005: Removed src/3rdPartyLibraries/PDFLibrary/Makefile
# JJW 1/30/2008: Removed rose_paths.h as it is now built by a separate Makefile included from $(top_srcdir)/Makefile.am
@@ -1083,6 +1095,7 @@
tests/roseTests/loopProcessingTests/Makefile
tests/roseTests/programAnalysisTests/Makefile
tests/roseTests/programAnalysisTests/defUseAnalysisTests/Makefile
+tests/roseTests/programAnalysisTests/variableLivenessTests/Makefile
tests/roseTests/programAnalysisTests/staticInterproceduralSlicingTests/Makefile
tests/roseTests/programAnalysisTests/testCallGraphAnalysis/Makefile
tests/roseTests/programAnalysisTests/sideEffectAnalysisTests/Makefile
@@ -1129,6 +1142,7 @@
docs/Rose/Makefile
docs/Rose/manual.tex
docs/Rose/ROSE_InstallationInstructions.tex
+docs/Rose/ROSE_DeveloperInstructions.tex
docs/Rose/gettingStarted.tex
docs/Rose/rose.cfg
docs/Rose/sage.cfg
Modified: trunk/docs/Rose/Makefile.am
===================================================================
--- trunk/docs/Rose/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/docs/Rose/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,8 +1,8 @@
include $(top_srcdir)/config/Makefile.for.ROSE.includes.and.libs
include $(top_srcdir)/projects/compass/src/compassSupport/compass_dirs.inc
-#PDFLATEX = env TEXINPUTS=$(srcdir):$(top_srcdir)/tests:.: pdflatex --interaction=batchmode
-PDFLATEX = env TEXINPUTS=$(srcdir):$(top_srcdir)/tests:.: pdflatex
+PDFLATEX = env TEXINPUTS=$(srcdir):$(top_srcdir)/tests:.: pdflatex --interaction=batchmode
+#PDFLATEX = env TEXINPUTS=$(srcdir):$(top_srcdir)/tests:.: pdflatex
# Later we will add ROSETTA documentation here ...
SUBDIRS = Tutorial
@@ -82,7 +82,7 @@
tridvpk.tex appendix.tex glossary.tex bibliography.tex \
rose-processing-phases.pdf testing.tex \
writingYourFirstTranslator.tex overviewOfRose.tex \
- developersAppendix.tex astMerge.tex installRose.tex binaryAnalysis.tex
+ developersAppendix.tex astMerge.tex installRose.tex binaryAnalysis.tex
roseDirectoryMap.pdf: Makefile
$(top_srcdir)/scripts/lsdot $(top_srcdir) --format=ps --exclude='CVS\|\.svn\|autom4te.cache\|developersScratchSpace\|testDoxygen\|ckpt\|compass' --basename -o=roseDirectoryMap.ps;
@@ -145,7 +145,7 @@
$(COMPASS_MANUAL):
cd $(compass_build_tooldir)/compass && $(MAKE) docs
-make-web-pages: $(RoseDoxygenDocumentation) $(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf ROSE_InstallationInstructions.pdf footer.html leftmenu.html $(COMPASS_MANUAL)
+make-web-pages: $(RoseDoxygenDocumentation) $(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf ROSE_InstallationInstructions.pdf ROSE_DeveloperInstructions.pdf footer.html leftmenu.html $(COMPASS_MANUAL)
cd Tutorial; $(MAKE) make-web-pages
mkdir -p ROSE_WebPages
mkdir -p ROSE_WebPages/ROSE_HTML_Reference;
@@ -161,6 +161,7 @@
# cp -r $(top_srcdir)/ROSE_ResearchPapers ROSE_WebPages/ROSE_ResearchPapers
cp -fr $(top_srcdir)/ROSE_ResearchPapers ROSE_WebPages/
cp -f ROSE_InstallationInstructions.pdf ROSE_WebPages/ROSE_InstallationInstructions.pdf
+ cp -f ROSE_DeveloperInstructions.pdf ROSE_WebPages/ROSE_DeveloperInstructions.pdf
mkdir -p ROSE_WebPages/ROSE_UserManual
cp -f $(srcdir)/WEB_DOCS_README ROSE_WebPages
cp -f $(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf ROSE_WebPages/ROSE_UserManual/$(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf
@@ -183,13 +184,19 @@
# Simpler rule
latex-docs: pdf
-pdf-local: $(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf ROSE_InstallationInstructions.pdf
+pdf-local: $(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf ROSE_InstallationInstructions.pdf ROSE_DeveloperInstructions.pdf
ROSE_InstallationInstructions.pdf: $(latexFiles) $(latexDependences) ROSE_InstallationInstructions.tex
$(PDFLATEX) ROSE_InstallationInstructions.tex && \
$(PDFLATEX) ROSE_InstallationInstructions.tex && \
$(PDFLATEX) ROSE_InstallationInstructions.tex
+ROSE_DeveloperInstructions.pdf: $(latexFiles) $(latexDependences) ROSE_DeveloperInstructions.tex
+ $(PDFLATEX) ROSE_DeveloperInstructions.tex && \
+ $(PDFLATEX) ROSE_DeveloperInstructions.tex && \
+ $(PDFLATEX) ROSE_DeveloperInstructions.tex
+
+
# DQ (7/25/2004): Need to include manual.tex and reference.tex since they are build from
# manual.tex.in and reference.tex.in
$(PACKAGE_NAME)-$(PACKAGE_VERSION)-UserManual.pdf: manual.tex gettingStarted.tex $(latexFiles) $(latexDependences)
Added: trunk/docs/Rose/ROSE_DeveloperInstructions.tex.in
===================================================================
--- trunk/docs/Rose/ROSE_DeveloperInstructions.tex.in (rev 0)
+++ trunk/docs/Rose/ROSE_DeveloperInstructions.tex.in 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,141 @@
+\documentclass[10pt]{book}
+% \usepackage{epsfig}
+% \usepackage{psfig}
+% \usepackage{pdftex}
+% \usepackage{graphicx}
+% \usepackage{amsmath}
+%\usepackage{html,color,makeidx}
+
+%\usepackage{amsmath}
+\usepackage{verbatim}
+%\usepackage{moreverb}
+%\usepackage{graphics}
+% \usepackage{epsfig}
+%\usepackage{multicol}
+%\usepackage{color}
+%\usepackage{subfigure}
+
+%\usepackage{multirow}
+
+% Fixme margin note package (turn on draft mode)
+% \usepackage[final]{fixme}
+
+\usepackage[draft]{fixme}
+
+\usepackage{listings}
+% \lstloadlanguages{APP}
+
+\usepackage{html}
+\usepackage{color}
+
+\usepackage{multicol}
+\usepackage{multirow}
+
+% \usepackage{psfig}
+\usepackage{graphicx}
+
+% \psfigdriver{dvips}
+
+\newcommand{\mySmallFontSize}{\scriptsize}
+\newcommand{\mySmallestFontSize}{\tiny}
+
+% New commands to represent the location of example files (used in latex documentation)
+\newcommand{\TranslatorExampleDirectory}{@top_srcdir@/exampleTranslators/documentedExamples/simpleTranslatorExamples}
+\newcommand{\TranslatorExampleCompileTreeDirectory}{@top_pwd@/exampleTranslators/documentedExamples/simpleTranslatorExamples}
+\newcommand{\AstRewriteExampleDirectory}{@top_srcdir@/exampleTranslators/documentedExamples/AstRewriteExamples}
+\newcommand{\TutorialExampleDirectory}{@top_srcdir@/tutorial}
+\newcommand{\TutorialExampleBuildDirectory}{@top_builddir@/tutorial}
+
+\newcommand{\DatabaseExampleDirectory}{@top_srcdir@/exampleTranslators/documentedExamples/dataBaseExamples}
+
+% Software version number
+\newcommand{\VersionNumber}{@VERSION@}
+
+
+% Latex trick to allow us to comment out large sections of documentation
+\newcommand{\commentout}[1]{}
+
+% change the title of the Fixme List
+\renewcommand{\listfixmename}{Things to Fix in Documentation of ROSE}
+
+\newcommand{\comm}[2]{\bigskip
+ \begin{tabular}{|p{11cm}|}\hline
+ \multicolumn{1}{|c|}{{\bf Comment by #1}}\\ \hline
+ #2\\ \hline
+ \end{tabular}
+ \bigskip
+ }
+
+\def\verbatimfile#1{\begingroup
+ \@verbatim \frenchspacing \@vobeyspaces
+ \input#1 \endgroup
+}
+
+
+
+\newcounter{lineno}
+
+% Taken from verbatimfiles.sty on web
+\makeatletter %JCL
+
+\def\verbatimlisting#1{\setcounter{lineno}{0}%
+ \begingroup \@verbatim \frenchspacing \@vobeyspaces \parindent=20pt
+ \everypar{\stepcounter{lineno}\llap{\thelineno\ \ }}\input#1
+ \endgroup
+}
+
+\makeatother %JCL
+
+% \endinput
+
+
+\addtolength{\oddsidemargin}{-1.0in}
+\addtolength{\evensidemargin}{-1.0in}
+\addtolength{\textwidth}{2.0in}
+\sloppy
+
+%---------------------------------------------------------------------
+% Begin Document
+%---------------------------------------------------------------------
+
+\begin{document}
+%\bibliographystyle{plain}
+%
+
+% This draft mode eliminates the figures (leaves boxes for where they would be)
+%\psdraft
+
+\title{ {\bf \textcolor{red}{ ROSE Developer's Guide:
+}}}
+
+\author{ }
+
+% This doesn't seem to work. References to this label are not resolved.
+
+\begin{htmlonly}
+ \centering \includegraphics[width=3in]{../compass_rose.gif}
+\end{htmlonly}
+
+\maketitle
+
+\begin{htmlonly}
+ \centering \includegraphics[width=5in]{../compass_rose.gif}
+\end{htmlonly}
+
+\begin{center}
+\today
+\end{center}
+
+
+%\input{workingRoseSvn}
+\input{developersAppendix}
+
+
+% }
+
+\end{document}
+
+
+
+
+
Modified: trunk/docs/Rose/Tutorial/tutorial.tex.in
===================================================================
--- trunk/docs/Rose/Tutorial/tutorial.tex.in 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/docs/Rose/Tutorial/tutorial.tex.in 2008-11-12 23:49:35 UTC (rev 120)
@@ -305,6 +305,8 @@
\input{binaryAnalysis}
+\input{dwarfDebugSupport}
+
\input{buildCG}
\input{classHierarchyGraph}
Modified: trunk/docs/Rose/developersAppendix.tex
===================================================================
--- trunk/docs/Rose/developersAppendix.tex 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/docs/Rose/developersAppendix.tex 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,6 +1,6 @@
\chapter{ Developer's Appendix }
+\label{developersAppendix:developersAppendix}
-\label{developersAppendix:developersAppendix}
%Added by Liao 10/17/2008
\section{Working with the ROSE SVN repositories}
\label{gettingStarted::svn}
@@ -8,6 +8,23 @@
an external one at SciDAC Outreach Center (using a vendor drop scheme).
Some tips for using them are gathered in this section.
\subsection{The External Repository}
+If you are our external (non-LLNL) users who make contributions to ROSE,
+we highly recommend you to work on a dedicated branch of the external repository.
+We can create the branch for you on request. And you need to apply an account of
+the SciDAC Outreach Center to have write access to your branch.
+
+Here are the steps to have an account with write access to ROSE's branches:
+Please follow the link on
+\htmladdnormallink{https://outreach.scidac.gov/account/register.php}{https://outreach.scidac.gov/account/register.php}
+to fill out a registration form (Project name: ROSE, PI: Daniel Quinlan)
+and fax a signed use policies form as instructed on the registration page.
+After getting your account, you need to log into the website and go to page
+\htmladdnormallink{https://outreach.scidac.gov/projects/rose/}{https://outreach.scidac.gov/projects/rose/}.
+Click "Request to join" on the top-right screen to request to join the ROSE
+project and we will grant you the write access to your branch.
+
+Some frequently used commands for ROSE external developers are listed
+below:
\begin{itemize}
\item Install your svn client ($>=$1.5.1 is recommended ) with
\textit{libsvn\_ra\_dav} support
@@ -40,8 +57,8 @@
\textit{svn merge -r 56:69
https://outreach.scidac.gov/svn/rose/trunk}
\item Solve conflicts as needed.
- \item svn commit: please record the start and end revision numbers of
- the main trunk being merged into the log to keep track of merging.
+ \item svn commit: {\bf Note:please record the start and end revision numbers of
+ the main trunk being merged into the commit log to keep track of merging.}
\end{itemize}
\item You can check the archive of email notifications of the svn commits
from \htmladdnormallink{https://osp5.lbl.gov/pipermail/rose-commits}{https://osp5.lbl.gov/pipermail/rose-commits}
@@ -49,6 +66,8 @@
\subsection{The Internal Repository}
+The tips here only apply to internal users who have access to LLNL
+machines.
Again, make sure you are using subversion $>$ 1.4.x, 1.5.1 and up is recommended.
\begin{itemize}
\item Set local subversion configuration to ignore certain files and
@@ -113,6 +132,7 @@
\end{itemize}
+
% DQ (6/5/2008): This is the resulting lesson from the erasure
% of my ROSE directory as the result of a bad cron script.
\section{How to recover from a file-system disaster at LLNL}
Modified: trunk/docs/Rose/leftmenu.html.in
===================================================================
--- trunk/docs/Rose/leftmenu.html.in 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/docs/Rose/leftmenu.html.in 2008-11-12 23:49:35 UTC (rev 120)
@@ -4,6 +4,7 @@
<td width="221" class="Header3"><p> </p>
<p class="style3"><a href="index.html" target="_blank">Home</a></p>
<p class="style3"><a href="ROSE_InstallationInstructions.pdf" target="_blank">Installation Guide (pdf)</a></p>
+ <p class="style3"><a href="ROSE_DeveloperInstructions.pdf" target="_blank">Developer's Guide (pdf)</a></p>
<p class="style3"><a href="ROSE_UserManual/ROSE- at VERSION@-UserManual.pdf" target="_blank">ROSE User Manual (pdf)</p>
<p class="style3"><a href="ROSE_Tutorial/ROSE- at VERSION@-Tutorial.pdf" target="_blank">ROSE Tutorial (pdf)</p>
<p class="style3"><a href="projects.html" target="_blank">Internal ROSE Projects</p>
Added: trunk/libltdl/COPYING.LIB
===================================================================
--- trunk/libltdl/COPYING.LIB (rev 0)
+++ trunk/libltdl/COPYING.LIB 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,515 @@
+
+ GNU LESSER GENERAL PUBLIC LICENSE
+ Version 2.1, February 1999
+
+ Copyright (C) 1991, 1999 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+[This is the first released version of the Lesser GPL. It also counts
+ as the successor of the GNU Library Public License, version 2, hence
+ the version number 2.1.]
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+Licenses are intended to guarantee your freedom to share and change
+free software--to make sure the software is free for all its users.
+
+ This license, the Lesser General Public License, applies to some
+specially designated software packages--typically libraries--of the
+Free Software Foundation and other authors who decide to use it. You
+can use it too, but we suggest you first think carefully about whether
+this license or the ordinary General Public License is the better
+strategy to use in any particular case, based on the explanations
+below.
+
+ When we speak of free software, we are referring to freedom of use,
+not price. Our General Public Licenses are designed to make sure that
+you have the freedom to distribute copies of free software (and charge
+for this service if you wish); that you receive source code or can get
+it if you want it; that you can change the software and use pieces of
+it in new free programs; and that you are informed that you can do
+these things.
+
+ To protect your rights, we need to make restrictions that forbid
+distributors to deny you these rights or to ask you to surrender these
+rights. These restrictions translate to certain responsibilities for
+you if you distribute copies of the library or if you modify it.
+
+ For example, if you distribute copies of the library, whether gratis
+or for a fee, you must give the recipients all the rights that we gave
+you. You must make sure that they, too, receive or can get the source
+code. If you link other code with the library, you must provide
+complete object files to the recipients, so that they can relink them
+with the library after making changes to the library and recompiling
+it. And you must show them these terms so they know their rights.
+
+ We protect your rights with a two-step method: (1) we copyright the
+library, and (2) we offer you this license, which gives you legal
+permission to copy, distribute and/or modify the library.
+
+ To protect each distributor, we want to make it very clear that
+there is no warranty for the free library. Also, if the library is
+modified by someone else and passed on, the recipients should know
+that what they have is not the original version, so that the original
+author's reputation will not be affected by problems that might be
+introduced by others.
+^L
+ Finally, software patents pose a constant threat to the existence of
+any free program. We wish to make sure that a company cannot
+effectively restrict the users of a free program by obtaining a
+restrictive license from a patent holder. Therefore, we insist that
+any patent license obtained for a version of the library must be
+consistent with the full freedom of use specified in this license.
+
+ Most GNU software, including some libraries, is covered by the
+ordinary GNU General Public License. This license, the GNU Lesser
+General Public License, applies to certain designated libraries, and
+is quite different from the ordinary General Public License. We use
+this license for certain libraries in order to permit linking those
+libraries into non-free programs.
+
+ When a program is linked with a library, whether statically or using
+a shared library, the combination of the two is legally speaking a
+combined work, a derivative of the original library. The ordinary
+General Public License therefore permits such linking only if the
+entire combination fits its criteria of freedom. The Lesser General
+Public License permits more lax criteria for linking other code with
+the library.
+
+ We call this license the "Lesser" General Public License because it
+does Less to protect the user's freedom than the ordinary General
+Public License. It also provides other free software developers Less
+of an advantage over competing non-free programs. These disadvantages
+are the reason we use the ordinary General Public License for many
+libraries. However, the Lesser license provides advantages in certain
+special circumstances.
+
+ For example, on rare occasions, there may be a special need to
+encourage the widest possible use of a certain library, so that it
+becomes
+a de-facto standard. To achieve this, non-free programs must be
+allowed to use the library. A more frequent case is that a free
+library does the same job as widely used non-free libraries. In this
+case, there is little to gain by limiting the free library to free
+software only, so we use the Lesser General Public License.
+
+ In other cases, permission to use a particular library in non-free
+programs enables a greater number of people to use a large body of
+free software. For example, permission to use the GNU C Library in
+non-free programs enables many more people to use the whole GNU
+operating system, as well as its variant, the GNU/Linux operating
+system.
+
+ Although the Lesser General Public License is Less protective of the
+users' freedom, it does ensure that the user of a program that is
+linked with the Library has the freedom and the wherewithal to run
+that program using a modified version of the Library.
+
+ The precise terms and conditions for copying, distribution and
+modification follow. Pay close attention to the difference between a
+"work based on the library" and a "work that uses the library". The
+former contains code derived from the library, whereas the latter must
+be combined with the library in order to run.
+^L
+ GNU LESSER GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License Agreement applies to any software library or other
+program which contains a notice placed by the copyright holder or
+other authorized party saying it may be distributed under the terms of
+this Lesser General Public License (also called "this License").
+Each licensee is addressed as "you".
+
+ A "library" means a collection of software functions and/or data
+prepared so as to be conveniently linked with application programs
+(which use some of those functions and data) to form executables.
+
+ The "Library", below, refers to any such software library or work
+which has been distributed under these terms. A "work based on the
+Library" means either the Library or any derivative work under
+copyright law: that is to say, a work containing the Library or a
+portion of it, either verbatim or with modifications and/or translated
+straightforwardly into another language. (Hereinafter, translation is
+included without limitation in the term "modification".)
+
+ "Source code" for a work means the preferred form of the work for
+making modifications to it. For a library, complete source code means
+all the source code for all modules it contains, plus any associated
+interface definition files, plus the scripts used to control
+compilation
+and installation of the library.
+
+ Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running a program using the Library is not restricted, and output from
+such a program is covered only if its contents constitute a work based
+on the Library (independent of the use of the Library in a tool for
+writing it). Whether that is true depends on what the Library does
+and what the program that uses the Library does.
+
+ 1. You may copy and distribute verbatim copies of the Library's
+complete source code as you receive it, in any medium, provided that
+you conspicuously and appropriately publish on each copy an
+appropriate copyright notice and disclaimer of warranty; keep intact
+all the notices that refer to this License and to the absence of any
+warranty; and distribute a copy of this License along with the
+Library.
+
+ You may charge a fee for the physical act of transferring a copy,
+and you may at your option offer warranty protection in exchange for a
+fee.
+
+ 2. You may modify your copy or copies of the Library or any portion
+of it, thus forming a work based on the Library, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) The modified work must itself be a software library.
+
+ b) You must cause the files modified to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ c) You must cause the whole of the work to be licensed at no
+ charge to all third parties under the terms of this License.
+
+ d) If a facility in the modified Library refers to a function or a
+ table of data to be supplied by an application program that uses
+ the facility, other than as an argument passed when the facility
+ is invoked, then you must make a good faith effort to ensure that,
+ in the event an application does not supply such function or
+ table, the facility still operates, and performs whatever part of
+ its purpose remains meaningful.
+
+ (For example, a function in a library to compute square roots has
+ a purpose that is entirely well-defined independent of the
+ application. Therefore, Subsection 2d requires that any
+ application-supplied function or table used by this function must
+ be optional: if the application does not supply it, the square
+ root function must still compute square roots.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Library,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Library, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote
+it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Library.
+
+In addition, mere aggregation of another work not based on the Library
+with the Library (or with a work based on the Library) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may opt to apply the terms of the ordinary GNU General Public
+License instead of this License to a given copy of the Library. To do
+this, you must alter all the notices that refer to this License, so
+that they refer to the ordinary GNU General Public License, version 2,
+instead of to this License. (If a newer version than version 2 of the
+ordinary GNU General Public License has appeared, then you can specify
+that version instead if you wish.) Do not make any other change in
+these notices.
+^L
+ Once this change is made in a given copy, it is irreversible for
+that copy, so the ordinary GNU General Public License applies to all
+subsequent copies and derivative works made from that copy.
+
+ This option is useful when you wish to copy part of the code of
+the Library into a program that is not a library.
+
+ 4. You may copy and distribute the Library (or a portion or
+derivative of it, under Section 2) in object code or executable form
+under the terms of Sections 1 and 2 above provided that you accompany
+it with the complete corresponding machine-readable source code, which
+must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange.
+
+ If distribution of object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the
+source code from the same place satisfies the requirement to
+distribute the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 5. A program that contains no derivative of any portion of the
+Library, but is designed to work with the Library by being compiled or
+linked with it, is called a "work that uses the Library". Such a
+work, in isolation, is not a derivative work of the Library, and
+therefore falls outside the scope of this License.
+
+ However, linking a "work that uses the Library" with the Library
+creates an executable that is a derivative of the Library (because it
+contains portions of the Library), rather than a "work that uses the
+library". The executable is therefore covered by this License.
+Section 6 states terms for distribution of such executables.
+
+ When a "work that uses the Library" uses material from a header file
+that is part of the Library, the object code for the work may be a
+derivative work of the Library even though the source code is not.
+Whether this is true is especially significant if the work can be
+linked without the Library, or if the work is itself a library. The
+threshold for this to be true is not precisely defined by law.
+
+ If such an object file uses only numerical parameters, data
+structure layouts and accessors, and small macros and small inline
+functions (ten lines or less in length), then the use of the object
+file is unrestricted, regardless of whether it is legally a derivative
+work. (Executables containing this object code plus portions of the
+Library will still fall under Section 6.)
+
+ Otherwise, if the work is a derivative of the Library, you may
+distribute the object code for the work under the terms of Section 6.
+Any executables containing that work also fall under Section 6,
+whether or not they are linked directly with the Library itself.
+^L
+ 6. As an exception to the Sections above, you may also combine or
+link a "work that uses the Library" with the Library to produce a
+work containing portions of the Library, and distribute that work
+under terms of your choice, provided that the terms permit
+modification of the work for the customer's own use and reverse
+engineering for debugging such modifications.
+
+ You must give prominent notice with each copy of the work that the
+Library is used in it and that the Library and its use are covered by
+this License. You must supply a copy of this License. If the work
+during execution displays copyright notices, you must include the
+copyright notice for the Library among them, as well as a reference
+directing the user to the copy of this License. Also, you must do one
+of these things:
+
+ a) Accompany the work with the complete corresponding
+ machine-readable source code for the Library including whatever
+ changes were used in the work (which must be distributed under
+ Sections 1 and 2 above); and, if the work is an executable linked
+ with the Library, with the complete machine-readable "work that
+ uses the Library", as object code and/or source code, so that the
+ user can modify the Library and then relink to produce a modified
+ executable containing the modified Library. (It is understood
+ that the user who changes the contents of definitions files in the
+ Library will not necessarily be able to recompile the application
+ to use the modified definitions.)
+
+ b) Use a suitable shared library mechanism for linking with the
+ Library. A suitable mechanism is one that (1) uses at run time a
+ copy of the library already present on the user's computer system,
+ rather than copying library functions into the executable, and (2)
+ will operate properly with a modified version of the library, if
+ the user installs one, as long as the modified version is
+ interface-compatible with the version that the work was made with.
+
+ c) Accompany the work with a written offer, valid for at
+ least three years, to give the same user the materials
+ specified in Subsection 6a, above, for a charge no more
+ than the cost of performing this distribution.
+
+ d) If distribution of the work is made by offering access to copy
+ from a designated place, offer equivalent access to copy the above
+ specified materials from the same place.
+
+ e) Verify that the user has already received a copy of these
+ materials or that you have already sent this user a copy.
+
+ For an executable, the required form of the "work that uses the
+Library" must include any data and utility programs needed for
+reproducing the executable from it. However, as a special exception,
+the materials to be distributed need not include anything that is
+normally distributed (in either source or binary form) with the major
+components (compiler, kernel, and so on) of the operating system on
+which the executable runs, unless that component itself accompanies
+the executable.
+
+ It may happen that this requirement contradicts the license
+restrictions of other proprietary libraries that do not normally
+accompany the operating system. Such a contradiction means you cannot
+use both them and the Library together in an executable that you
+distribute.
+^L
+ 7. You may place library facilities that are a work based on the
+Library side-by-side in a single library together with other library
+facilities not covered by this License, and distribute such a combined
+library, provided that the separate distribution of the work based on
+the Library and of the other library facilities is otherwise
+permitted, and provided that you do these two things:
+
+ a) Accompany the combined library with a copy of the same work
+ based on the Library, uncombined with any other library
+ facilities. This must be distributed under the terms of the
+ Sections above.
+
+ b) Give prominent notice with the combined library of the fact
+ that part of it is a work based on the Library, and explaining
+ where to find the accompanying uncombined form of the same work.
+
+ 8. You may not copy, modify, sublicense, link with, or distribute
+the Library except as expressly provided under this License. Any
+attempt otherwise to copy, modify, sublicense, link with, or
+distribute the Library is void, and will automatically terminate your
+rights under this License. However, parties who have received copies,
+or rights, from you under this License will not have their licenses
+terminated so long as such parties remain in full compliance.
+
+ 9. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Library or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Library (or any work based on the
+Library), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Library or works based on it.
+
+ 10. Each time you redistribute the Library (or any work based on the
+Library), the recipient automatically receives a license from the
+original licensor to copy, distribute, link with or modify the Library
+subject to these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties with
+this License.
+^L
+ 11. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Library at all. For example, if a patent
+license would not permit royalty-free redistribution of the Library by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Library.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply, and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 12. If the distribution and/or use of the Library is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Library under this License
+may add an explicit geographical distribution limitation excluding those
+countries, so that distribution is permitted only in or among
+countries not thus excluded. In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+ 13. The Free Software Foundation may publish revised and/or new
+versions of the Lesser General Public License from time to time.
+Such new versions will be similar in spirit to the present version,
+but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Library
+specifies a version number of this License which applies to it and
+"any later version", you have the option of following the terms and
+conditions either of that version or of any later version published by
+the Free Software Foundation. If the Library does not specify a
+license version number, you may choose any version ever published by
+the Free Software Foundation.
+^L
+ 14. If you wish to incorporate parts of the Library into other free
+programs whose distribution conditions are incompatible with these,
+write to the author to ask for permission. For software which is
+copyrighted by the Free Software Foundation, write to the Free
+Software Foundation; we sometimes make exceptions for this. Our
+decision will be guided by the two goals of preserving the free status
+of all derivatives of our free software and of promoting the sharing
+and reuse of software generally.
+
+ NO WARRANTY
+
+ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+^L
+ How to Apply These Terms to Your New Libraries
+
+ If you develop a new library, and you want it to be of the greatest
+possible use to the public, we recommend making it free software that
+everyone can redistribute and change. You can do so by permitting
+redistribution under these terms (or, alternatively, under the terms
+of the ordinary General Public License).
+
+ To apply these terms, attach the following notices to the library.
+It is safest to attach them to the start of each source file to most
+effectively convey the exclusion of warranty; and each file should
+have at least the "copyright" line and a pointer to where the full
+notice is found.
+
+
+ <one line to give the library's name and a brief idea of what it
+does.>
+ Copyright (C) <year> <name of author>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Also add information on how to contact you by electronic and paper
+mail.
+
+You should also get your employer (if you work as a programmer) or
+your
+school, if any, to sign a "copyright disclaimer" for the library, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the
+ library `Frob' (a library for tweaking knobs) written by James
+Random Hacker.
+
+ <signature of Ty Coon>, 1 April 1990
+ Ty Coon, President of Vice
+
+That's all there is to it!
+
+
Added: trunk/libltdl/Makefile.am
===================================================================
--- trunk/libltdl/Makefile.am (rev 0)
+++ trunk/libltdl/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,51 @@
+## Process this file with automake to produce Makefile.in
+
+AUTOMAKE_OPTIONS = no-dependencies foreign
+
+if INSTALL_LTDL
+include_HEADERS = ltdl.h
+lib_LTLIBRARIES = libltdl.la
+else
+noinst_HEADERS = ltdl.h
+endif
+
+if CONVENIENCE_LTDL
+noinst_LTLIBRARIES = libltdlc.la
+endif
+
+## Make sure these will be cleaned even when they're not built by
+## default.
+CLEANFILES = libltdl.la libltdlc.la
+
+libltdl_la_SOURCES = ltdl.c
+libltdl_la_LDFLAGS = -no-undefined -version-info 4:0:1
+libltdl_la_LIBADD = $(LIBADD_DL)
+
+libltdlc_la_SOURCES = ltdl.c
+libltdlc_la_LIBADD = $(LIBADD_DL)
+
+## Because we do not have automatic dependency tracking:
+ltdl.lo: ltdl.h config.h
+
+$(libltdl_la_OBJECTS) $(libltdlc_la_OBJECTS): libtool
+libtool: $(LIBTOOL_DEPS)
+ $(SHELL) ./config.status --recheck
+
+## This allows us to install libltdl without using ln and without creating
+## a world writeable directory.
+## FIXME: Remove this rule once automake can do this properly by itself.
+local-install-files: $(DISTFILES)
+ -rm -rf $(DESTDIR)$(datadir)/libtool/libltdl
+ $(mkinstalldirs) $(DESTDIR)$(datadir)/libtool/libltdl
+ @for file in $(DISTFILES); do \
+ case $$file in \
+ $(srcdir)/*) file=`echo "$$file" | sed "s|^$(srcdir)/||"`;; \
+ esac; \
+ d=$(srcdir); \
+ if test -d $$d/$$file; then \
+ cp -r $$d/$$file $(DESTDIR)$(datadir)/libtool/libltdl/$$file; \
+ else \
+ test -f $(DESTDIR)$(datadir)/libtool/libltdl/$$file \
+ || cp $$d/$$file $(DESTDIR)$(datadir)/libtool/libltdl/$$file || :; \
+ fi; \
+ done
Added: trunk/libltdl/README
===================================================================
--- trunk/libltdl/README (rev 0)
+++ trunk/libltdl/README 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,10 @@
+This is GNU libltdl, a system independent dlopen wrapper for GNU libtool.
+
+It supports the following dlopen interfaces:
+* dlopen (Solaris, Linux and various BSD flavors)
+* shl_load (HP-UX)
+* LoadLibrary (Win16 and Win32)
+* load_add_on (BeOS)
+* GNU DLD (emulates dynamic linking for static libraries)
+* dyld (darwin/Mac OS X)
+* libtool's dlpreopen
Added: trunk/libltdl/acinclude.m4
===================================================================
--- trunk/libltdl/acinclude.m4 (rev 0)
+++ trunk/libltdl/acinclude.m4 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6390 @@
+# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*-
+## Copyright 1996, 1997, 1998, 1999, 2000, 2001
+## Free Software Foundation, Inc.
+## Originally by Gordon Matzigkeit <gord at gnu.ai.mit.edu>, 1996
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+##
+## As a special exception to the GNU General Public License, if you
+## distribute this file as part of a program that contains a
+## configuration script generated by Autoconf, you may include it under
+## the same distribution terms that you use for the rest of that program.
+
+# serial 47 AC_PROG_LIBTOOL
+
+
+# AC_PROVIDE_IFELSE(MACRO-NAME, IF-PROVIDED, IF-NOT-PROVIDED)
+# -----------------------------------------------------------
+# If this macro is not defined by Autoconf, define it here.
+m4_ifdef([AC_PROVIDE_IFELSE],
+ [],
+ [m4_define([AC_PROVIDE_IFELSE],
+ [m4_ifdef([AC_PROVIDE_$1],
+ [$2], [$3])])])
+
+
+# AC_PROG_LIBTOOL
+# ---------------
+AC_DEFUN([AC_PROG_LIBTOOL],
+[AC_REQUIRE([_AC_PROG_LIBTOOL])dnl
+dnl If AC_PROG_CXX has already been expanded, run AC_LIBTOOL_CXX
+dnl immediately, otherwise, hook it in at the end of AC_PROG_CXX.
+ AC_PROVIDE_IFELSE([AC_PROG_CXX],
+ [AC_LIBTOOL_CXX],
+ [define([AC_PROG_CXX], defn([AC_PROG_CXX])[AC_LIBTOOL_CXX
+ ])])
+dnl And a similar setup for Fortran 77 support
+ AC_PROVIDE_IFELSE([AC_PROG_F77],
+ [AC_LIBTOOL_F77],
+ [define([AC_PROG_F77], defn([AC_PROG_F77])[AC_LIBTOOL_F77
+])])
+
+dnl Quote A][M_PROG_GCJ so that aclocal doesn't bring it in needlessly.
+dnl If either AC_PROG_GCJ or A][M_PROG_GCJ have already been expanded, run
+dnl AC_LIBTOOL_GCJ immediately, otherwise, hook it in at the end of both.
+ AC_PROVIDE_IFELSE([AC_PROG_GCJ],
+ [AC_LIBTOOL_GCJ],
+ [AC_PROVIDE_IFELSE([A][M_PROG_GCJ],
+ [AC_LIBTOOL_GCJ],
+ [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ],
+ [AC_LIBTOOL_GCJ],
+ [ifdef([AC_PROG_GCJ],
+ [define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[AC_LIBTOOL_GCJ])])
+ ifdef([A][M_PROG_GCJ],
+ [define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[AC_LIBTOOL_GCJ])])
+ ifdef([LT_AC_PROG_GCJ],
+ [define([LT_AC_PROG_GCJ],
+ defn([LT_AC_PROG_GCJ])[AC_LIBTOOL_GCJ])])])])
+])])# AC_PROG_LIBTOOL
+
+
+# _AC_PROG_LIBTOOL
+# ----------------
+AC_DEFUN([_AC_PROG_LIBTOOL],
+[AC_REQUIRE([AC_LIBTOOL_SETUP])dnl
+AC_BEFORE([$0],[AC_LIBTOOL_CXX])dnl
+AC_BEFORE([$0],[AC_LIBTOOL_F77])dnl
+AC_BEFORE([$0],[AC_LIBTOOL_GCJ])dnl
+
+# This can be used to rebuild libtool when needed
+LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh"
+
+# Always use our own libtool.
+LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+AC_SUBST(LIBTOOL)dnl
+
+# Prevent multiple expansion
+define([AC_PROG_LIBTOOL], [])
+])# _AC_PROG_LIBTOOL
+
+
+# AC_LIBTOOL_SETUP
+# ----------------
+AC_DEFUN([AC_LIBTOOL_SETUP],
+[AC_PREREQ(2.50)dnl
+AC_REQUIRE([AC_ENABLE_SHARED])dnl
+AC_REQUIRE([AC_ENABLE_STATIC])dnl
+AC_REQUIRE([AC_ENABLE_FAST_INSTALL])dnl
+AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_CANONICAL_BUILD])dnl
+AC_REQUIRE([AC_PROG_CC])dnl
+AC_REQUIRE([AC_PROG_LD])dnl
+AC_REQUIRE([AC_PROG_LD_RELOAD_FLAG])dnl
+AC_REQUIRE([AC_PROG_NM])dnl
+
+AC_REQUIRE([AC_PROG_LN_S])dnl
+AC_REQUIRE([AC_DEPLIBS_CHECK_METHOD])dnl
+# Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers!
+AC_REQUIRE([AC_OBJEXT])dnl
+AC_REQUIRE([AC_EXEEXT])dnl
+dnl
+
+AC_LIBTOOL_SYS_MAX_CMD_LEN
+AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE
+AC_LIBTOOL_OBJDIR
+
+AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl
+_LT_AC_PROG_ECHO_BACKSLASH
+
+case $host_os in
+aix3*)
+ # AIX sometimes has problems with the GCC collect2 program. For some
+ # reason, if we set the COLLECT_NAMES environment variable, the problems
+ # vanish in a puff of smoke.
+ if test "X${COLLECT_NAMES+set}" != Xset; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+ fi
+ ;;
+esac
+
+# Sed substitution that helps us do robust quoting. It backslashifies
+# metacharacters that are still active within double-quoted strings.
+Xsed='sed -e s/^X//'
+[sed_quote_subst='s/\([\\"\\`$\\\\]\)/\\\1/g']
+
+# Same as above, but do not quote variable references.
+[double_quote_subst='s/\([\\"\\`\\\\]\)/\\\1/g']
+
+# Sed substitution to delay expansion of an escaped shell variable in a
+# double_quote_subst'ed string.
+delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
+
+# Sed substitution to avoid accidental globbing in evaled expressions
+no_glob_subst='s/\*/\\\*/g'
+
+# Constants:
+rm="rm -f"
+
+# Global variables:
+default_ofile=libtool
+can_build_shared=yes
+
+# All known linkers require a `.a' archive for static linking (except M$VC,
+# which needs '.lib').
+libext=a
+ltmain="$ac_aux_dir/ltmain.sh"
+ofile="$default_ofile"
+with_gnu_ld="$lt_cv_prog_gnu_ld"
+
+AC_CHECK_TOOL(AR, ar, false)
+AC_CHECK_TOOL(RANLIB, ranlib, :)
+AC_CHECK_TOOL(STRIP, strip, :)
+
+old_CC="$CC"
+old_CFLAGS="$CFLAGS"
+
+# Set sane defaults for various variables
+test -z "$AR" && AR=ar
+test -z "$AR_FLAGS" && AR_FLAGS=cru
+test -z "$AS" && AS=as
+test -z "$CC" && CC=cc
+test -z "$LTCC" && LTCC=$CC
+test -z "$DLLTOOL" && DLLTOOL=dlltool
+test -z "$LD" && LD=ld
+test -z "$LN_S" && LN_S="ln -s"
+test -z "$MAGIC_CMD" && MAGIC_CMD=file
+test -z "$NM" && NM=nm
+test -z "$SED" && SED=sed
+test -z "$OBJDUMP" && OBJDUMP=objdump
+test -z "$RANLIB" && RANLIB=:
+test -z "$STRIP" && STRIP=:
+test -z "$ac_objext" && ac_objext=o
+
+# Determine commands to create old-style static archives.
+old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs'
+old_postinstall_cmds='chmod 644 $oldlib'
+old_postuninstall_cmds=
+
+if test -n "$RANLIB"; then
+ case $host_os in
+ openbsd*)
+ old_postinstall_cmds="\$RANLIB -t \$oldlib~$old_postinstall_cmds"
+ ;;
+ *)
+ old_postinstall_cmds="\$RANLIB \$oldlib~$old_postinstall_cmds"
+ ;;
+ esac
+ old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib"
+fi
+
+# Only perform the check for file, if the check method requires it
+case $deplibs_check_method in
+file_magic*)
+ if test "$file_magic_cmd" = '$MAGIC_CMD'; then
+ AC_PATH_MAGIC
+ fi
+ ;;
+esac
+
+AC_PROVIDE_IFELSE([AC_LIBTOOL_DLOPEN], enable_dlopen=yes, enable_dlopen=no)
+AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL],
+enable_win32_dll=yes, enable_win32_dll=no)
+
+AC_ARG_ENABLE([libtool-lock],
+ [AC_HELP_STRING([--disable-libtool-lock],
+ [avoid locking (might break parallel builds)])])
+test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes
+
+AC_ARG_WITH([pic],
+ [AC_HELP_STRING([--with-pic],
+ [try to use only PIC/non-PIC objects @<:@default=use both@:>@])],
+ [pic_mode="$withval"],
+ [pic_mode=default])
+test -z "$pic_mode" && pic_mode=default
+
+# Use C for the default configuration in the libtool script
+tagname=
+AC_LIBTOOL_LANG_C_CONFIG
+_LT_AC_TAGCONFIG
+])# AC_LIBTOOL_SETUP
+
+
+# _LT_AC_SYS_COMPILER
+# -------------------
+AC_DEFUN([_LT_AC_SYS_COMPILER],
+[AC_REQUIRE([AC_PROG_CC])dnl
+
+# If no C compiler was specified, use CC.
+LTCC=${LTCC-"$CC"}
+
+# Allow CC to be a program name with arguments.
+compiler=$CC
+])# _LT_AC_SYS_COMPILER
+
+
+# _LT_AC_SYS_LIBPATH_AIX
+# ----------------------
+# Links a minimal program and checks the executable
+# for the system default hardcoded library path. In most cases,
+# this is /usr/lib:/lib, but when the MPI compilers are used
+# the location of the communication and MPI libs are included too.
+# If we don't find anything, use the default library path according
+# to the aix ld manual.
+AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX],
+[AC_LINK_IFELSE(AC_LANG_PROGRAM,[
+aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; }
+}'`
+# Check for a 64-bit object if we didn't find anything.
+if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; }
+}'`; fi],[])
+if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
+])# _LT_AC_SYS_LIBPATH_AIX
+
+
+# _LT_AC_SHELL_INIT(ARG)
+# ----------------------
+AC_DEFUN([_LT_AC_SHELL_INIT],
+[ifdef([AC_DIVERSION_NOTICE],
+ [AC_DIVERT_PUSH(AC_DIVERSION_NOTICE)],
+ [AC_DIVERT_PUSH(NOTICE)])
+$1
+AC_DIVERT_POP
+])# _LT_AC_SHELL_INIT
+
+
+# _LT_AC_PROG_ECHO_BACKSLASH
+# --------------------------
+# Add some code to the start of the generated configure script which
+# will find an echo command which doesn't interpret backslashes.
+AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH],
+[_LT_AC_SHELL_INIT([
+# Check that we are running under the correct shell.
+SHELL=${CONFIG_SHELL-/bin/sh}
+
+case X$ECHO in
+X*--fallback-echo)
+ # Remove one level of quotation (which was required for Make).
+ ECHO=`echo "$ECHO" | sed 's,\\\\\[$]\\[$]0,'[$]0','`
+ ;;
+esac
+
+echo=${ECHO-echo}
+if test "X[$]1" = X--no-reexec; then
+ # Discard the --no-reexec flag, and continue.
+ shift
+elif test "X[$]1" = X--fallback-echo; then
+ # Avoid inline document here, it may be left over
+ :
+elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then
+ # Yippee, $echo works!
+ :
+else
+ # Restart under the correct shell.
+ exec $SHELL "[$]0" --no-reexec ${1+"[$]@"}
+fi
+
+if test "X[$]1" = X--fallback-echo; then
+ # used as fallback echo
+ shift
+ cat <<EOF
+[$]*
+EOF
+ exit 0
+fi
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+if test "X${CDPATH+set}" = Xset; then CDPATH=:; export CDPATH; fi
+
+if test -z "$ECHO"; then
+if test "X${echo_test_string+set}" != Xset; then
+# find a string as large as possible, as long as the shell can cope with it
+ for cmd in 'sed 50q "[$]0"' 'sed 20q "[$]0"' 'sed 10q "[$]0"' 'sed 2q "[$]0"' 'echo test'; do
+ # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ...
+ if (echo_test_string="`eval $cmd`") 2>/dev/null &&
+ echo_test_string="`eval $cmd`" &&
+ (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null
+ then
+ break
+ fi
+ done
+fi
+
+if test "X`($echo '\t') 2>/dev/null`" = 'X\t' &&
+ echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ :
+else
+ # The Solaris, AIX, and Digital Unix default echo programs unquote
+ # backslashes. This makes it impossible to quote backslashes using
+ # echo "$something" | sed 's/\\/\\\\/g'
+ #
+ # So, first we look for a working echo in the user's PATH.
+
+ lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
+ for dir in $PATH /usr/ucb; do
+ IFS="$lt_save_ifs"
+ if (test -f $dir/echo || test -f $dir/echo$ac_exeext) &&
+ test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' &&
+ echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ echo="$dir/echo"
+ break
+ fi
+ done
+ IFS="$lt_save_ifs"
+
+ if test "X$echo" = Xecho; then
+ # We didn't find a better echo, so look for alternatives.
+ if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' &&
+ echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ # This shell has a builtin print -r that does the trick.
+ echo='print -r'
+ elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) &&
+ test "X$CONFIG_SHELL" != X/bin/ksh; then
+ # If we have ksh, try running configure again with it.
+ ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh}
+ export ORIGINAL_CONFIG_SHELL
+ CONFIG_SHELL=/bin/ksh
+ export CONFIG_SHELL
+ exec $CONFIG_SHELL "[$]0" --no-reexec ${1+"[$]@"}
+ else
+ # Try using printf.
+ echo='printf %s\n'
+ if test "X`($echo '\t') 2>/dev/null`" = 'X\t' &&
+ echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ # Cool, printf works
+ :
+ elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` &&
+ test "X$echo_testing_string" = 'X\t' &&
+ echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL
+ export CONFIG_SHELL
+ SHELL="$CONFIG_SHELL"
+ export SHELL
+ echo="$CONFIG_SHELL [$]0 --fallback-echo"
+ elif echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` &&
+ test "X$echo_testing_string" = 'X\t' &&
+ echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
+ test "X$echo_testing_string" = "X$echo_test_string"; then
+ echo="$CONFIG_SHELL [$]0 --fallback-echo"
+ else
+ # maybe with a smaller string...
+ prev=:
+
+ for cmd in 'echo test' 'sed 2q "[$]0"' 'sed 10q "[$]0"' 'sed 20q "[$]0"' 'sed 50q "[$]0"'; do
+ if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null
+ then
+ break
+ fi
+ prev="$cmd"
+ done
+
+ if test "$prev" != 'sed 50q "[$]0"'; then
+ echo_test_string=`eval $prev`
+ export echo_test_string
+ exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "[$]0" ${1+"[$]@"}
+ else
+ # Oops. We lost completely, so just stick with echo.
+ echo=echo
+ fi
+ fi
+ fi
+ fi
+fi
+fi
+
+# Copy echo and quote the copy suitably for passing to libtool from
+# the Makefile, instead of quoting the original, which is used later.
+ECHO=$echo
+if test "X$ECHO" = "X$CONFIG_SHELL [$]0 --fallback-echo"; then
+ ECHO="$CONFIG_SHELL \\\$\[$]0 --fallback-echo"
+fi
+
+AC_SUBST(ECHO)
+])])# _LT_AC_PROG_ECHO_BACKSLASH
+
+
+# _LT_AC_LOCK
+# -----------
+AC_DEFUN([_LT_AC_LOCK],
+[AC_ARG_ENABLE([libtool-lock],
+ [AC_HELP_STRING([--disable-libtool-lock],
+ [avoid locking (might break parallel builds)])])
+test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes
+
+# Some flags need to be propagated to the compiler or linker for good
+# libtool support.
+case $host in
+ia64-*-hpux*)
+ # Find out which ABI we are using.
+ echo 'int i;' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *ELF-32*)
+ HPUX_IA64_MODE="32"
+ ;;
+ *ELF-64*)
+ HPUX_IA64_MODE="64"
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+*-*-irix6*)
+ # Find out which ABI we are using.
+ echo '[#]line __oline__ "configure"' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ if test "$lt_cv_prog_gnu_ld" = yes; then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -melf32bsmip"
+ ;;
+ *N32*)
+ LD="${LD-ld} -melf32bmipn32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -melf64bmip"
+ ;;
+ esac
+ else
+ case `/usr/bin/file conftest.$ac_objext` in
+ *32-bit*)
+ LD="${LD-ld} -32"
+ ;;
+ *N32*)
+ LD="${LD-ld} -n32"
+ ;;
+ *64-bit*)
+ LD="${LD-ld} -64"
+ ;;
+ esac
+ fi
+ fi
+ rm -rf conftest*
+ ;;
+
+x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|sparc*-*linux*)
+ # Find out which ABI we are using.
+ echo 'int i;' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case "`/usr/bin/file conftest.o`" in
+ *32-bit*)
+ case $host in
+ x86_64-*linux*)
+ LD="${LD-ld} -m elf_i386"
+ ;;
+ ppc64-*linux*|powerpc64-*linux*)
+ LD="${LD-ld} -m elf32ppclinux"
+ ;;
+ s390x-*linux*)
+ LD="${LD-ld} -m elf_s390"
+ ;;
+ sparc64-*linux*)
+ LD="${LD-ld} -m elf32_sparc"
+ ;;
+ esac
+ ;;
+ *64-bit*)
+ case $host in
+ x86_64-*linux*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ ppc*-*linux*|powerpc*-*linux*)
+ LD="${LD-ld} -m elf64ppc"
+ ;;
+ s390*-*linux*)
+ LD="${LD-ld} -m elf64_s390"
+ ;;
+ sparc*-*linux*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+
+*-*-sco3.2v5*)
+ # On SCO OpenServer 5, we need -belf to get full-featured binaries.
+ SAVE_CFLAGS="$CFLAGS"
+ CFLAGS="$CFLAGS -belf"
+ AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf,
+ [AC_LANG_PUSH(C)
+ AC_TRY_LINK([],[],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no])
+ AC_LANG_POP])
+ if test x"$lt_cv_cc_needs_belf" != x"yes"; then
+ # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
+ CFLAGS="$SAVE_CFLAGS"
+ fi
+ ;;
+AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL],
+[*-*-cygwin* | *-*-mingw* | *-*-pw32*)
+ AC_CHECK_TOOL(DLLTOOL, dlltool, false)
+ AC_CHECK_TOOL(AS, as, false)
+ AC_CHECK_TOOL(OBJDUMP, objdump, false)
+ ;;
+ ])
+esac
+
+need_locks="$enable_libtool_lock"
+
+])# _LT_AC_LOCK
+
+
+# AC_LIBTOOL_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
+# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE])
+# ----------------------------------------------------------------
+# Check whether the given compiler option works
+AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION],
+[AC_REQUIRE([LT_AC_PROG_SED])
+AC_CACHE_CHECK([$1], [$2],
+ [$2=no
+ ifelse([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4])
+ printf "$lt_simple_compile_test_code" > conftest.$ac_ext
+ lt_compiler_flag="$3"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ # The option is referenced via a variable to avoid confusing sed.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \
+ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$lt_compile" 2>conftest.err)
+ ac_status=$?
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ echo "$as_me:__oline__: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
+ if (exit $ac_status) && test -s "$ac_outfile"; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test ! -s conftest.err; then
+ $2=yes
+ fi
+ fi
+ $rm conftest*
+])
+
+if test x"[$]$2" = xyes; then
+ ifelse([$5], , :, [$5])
+else
+ ifelse([$6], , :, [$6])
+fi
+])# AC_LIBTOOL_COMPILER_OPTION
+
+
+# AC_LIBTOOL_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
+# [ACTION-SUCCESS], [ACTION-FAILURE])
+# ------------------------------------------------------------
+# Check whether the given compiler option works
+AC_DEFUN([AC_LIBTOOL_LINKER_OPTION],
+[AC_CACHE_CHECK([$1], [$2],
+ [$2=no
+ save_LDFLAGS="$LDFLAGS"
+ LDFLAGS="$LDFLAGS $3"
+ printf "$lt_simple_link_test_code" > conftest.$ac_ext
+ if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test -s conftest.err; then
+ # Append any errors to the config.log.
+ cat conftest.err 1>&AS_MESSAGE_LOG_FD
+ else
+ $2=yes
+ fi
+ fi
+ $rm conftest*
+ LDFLAGS="$save_LDFLAGS"
+])
+
+if test x"[$]$2" = xyes; then
+ ifelse([$4], , :, [$4])
+else
+ ifelse([$5], , :, [$5])
+fi
+])# AC_LIBTOOL_LINKER_OPTION
+
+
+# AC_LIBTOOL_SYS_MAX_CMD_LEN
+# --------------------------
+AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN],
+[# find the maximum length of command line arguments
+AC_MSG_CHECKING([the maximum length of command line arguments])
+AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl
+ i=0
+ teststring="ABCD"
+
+ case $build_os in
+ msdosdjgpp*)
+ # On DJGPP, this test can blow up pretty badly due to problems in libc
+ # (any single argument exceeding 2000 bytes causes a buffer overrun
+ # during glob expansion). Even if it were fixed, the result of this
+ # check would be larger than it should be.
+ lt_cv_sys_max_cmd_len=12288; # 12K is about right
+ ;;
+
+ gnu*)
+ # Under GNU Hurd, this test is not required because there is
+ # no limit to the length of command line arguments.
+ # Libtool will interpret -1 as no limit whatsoever
+ lt_cv_sys_max_cmd_len=-1;
+ ;;
+
+ cygwin* | mingw*)
+ # On Win9x/ME, this test blows up -- it succeeds, but takes
+ # about 5 minutes as the teststring grows exponentially.
+ # Worse, since 9x/ME are not pre-emptively multitasking,
+ # you end up with a "frozen" computer, even though with patience
+ # the test eventually succeeds (with a max line length of 256k).
+ # Instead, let's just punt: use the minimum linelength reported by
+ # all of the supported platforms: 8192 (on NT/2K/XP).
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ amigaos*)
+ # On AmigaOS with pdksh, this test takes hours, literally.
+ # So we just punt and use a minimum line length of 8192.
+ lt_cv_sys_max_cmd_len=8192;
+ ;;
+
+ *)
+ # If test is not a shell built-in, we'll probably end up computing a
+ # maximum length that is only half of the actual maximum length, but
+ # we can't tell.
+ while (test "X"`$CONFIG_SHELL [$]0 --fallback-echo "X$teststring" 2>/dev/null` \
+ = "XX$teststring") >/dev/null 2>&1 &&
+ new_result=`expr "X$teststring" : ".*" 2>&1` &&
+ lt_cv_sys_max_cmd_len=$new_result &&
+ test $i != 17 # 1/2 MB should be enough
+ do
+ i=`expr $i + 1`
+ teststring=$teststring$teststring
+ done
+ teststring=
+ # Add a significant safety factor because C++ compilers can tack on massive
+ # amounts of additional arguments before passing them to the linker.
+ # It appears as though 1/2 is a usable value.
+ lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
+ ;;
+ esac
+])
+if test -n $lt_cv_sys_max_cmd_len ; then
+ AC_MSG_RESULT($lt_cv_sys_max_cmd_len)
+else
+ AC_MSG_RESULT(none)
+fi
+])# AC_LIBTOOL_SYS_MAX_CMD_LEN
+
+
+# _LT_AC_CHECK_DLFCN
+# --------------------
+AC_DEFUN([_LT_AC_CHECK_DLFCN],
+[AC_CHECK_HEADERS(dlfcn.h)dnl
+])# _LT_AC_CHECK_DLFCN
+
+
+# _LT_AC_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE,
+# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING)
+# ------------------------------------------------------------------
+AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF],
+[AC_REQUIRE([_LT_AC_CHECK_DLFCN])dnl
+if test "$cross_compiling" = yes; then :
+ [$4]
+else
+ lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
+ lt_status=$lt_dlunknown
+ cat > conftest.$ac_ext <<EOF
+[#line __oline__ "configure"
+#include "confdefs.h"
+
+#if HAVE_DLFCN_H
+#include <dlfcn.h>
+#endif
+
+#include <stdio.h>
+
+#ifdef RTLD_GLOBAL
+# define LT_DLGLOBAL RTLD_GLOBAL
+#else
+# ifdef DL_GLOBAL
+# define LT_DLGLOBAL DL_GLOBAL
+# else
+# define LT_DLGLOBAL 0
+# endif
+#endif
+
+/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
+ find out it does not work in some platform. */
+#ifndef LT_DLLAZY_OR_NOW
+# ifdef RTLD_LAZY
+# define LT_DLLAZY_OR_NOW RTLD_LAZY
+# else
+# ifdef DL_LAZY
+# define LT_DLLAZY_OR_NOW DL_LAZY
+# else
+# ifdef RTLD_NOW
+# define LT_DLLAZY_OR_NOW RTLD_NOW
+# else
+# ifdef DL_NOW
+# define LT_DLLAZY_OR_NOW DL_NOW
+# else
+# define LT_DLLAZY_OR_NOW 0
+# endif
+# endif
+# endif
+# endif
+#endif
+
+#ifdef __cplusplus
+extern "C" void exit (int);
+#endif
+
+void fnord() { int i=42;}
+int main ()
+{
+ void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
+ int status = $lt_dlunknown;
+
+ if (self)
+ {
+ if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
+ else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
+ /* dlclose (self); */
+ }
+
+ exit (status);
+}]
+EOF
+ if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then
+ (./conftest; exit; ) 2>/dev/null
+ lt_status=$?
+ case x$lt_status in
+ x$lt_dlno_uscore) $1 ;;
+ x$lt_dlneed_uscore) $2 ;;
+ x$lt_unknown|x*) $3 ;;
+ esac
+ else :
+ # compilation failed
+ $3
+ fi
+fi
+rm -fr conftest*
+])# _LT_AC_TRY_DLOPEN_SELF
+
+
+# AC_LIBTOOL_DLOPEN_SELF
+# -------------------
+AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF],
+[AC_REQUIRE([_LT_AC_CHECK_DLFCN])dnl
+if test "x$enable_dlopen" != xyes; then
+ enable_dlopen=unknown
+ enable_dlopen_self=unknown
+ enable_dlopen_self_static=unknown
+else
+ lt_cv_dlopen=no
+ lt_cv_dlopen_libs=
+
+ case $host_os in
+ beos*)
+ lt_cv_dlopen="load_add_on"
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+ ;;
+
+ mingw* | pw32*)
+ lt_cv_dlopen="LoadLibrary"
+ lt_cv_dlopen_libs=
+ ;;
+
+ cygwin*)
+ lt_cv_dlopen="dlopen"
+ lt_cv_dlopen_libs=
+ ;;
+
+ darwin*)
+ # if libdl is installed we need to link against it
+ AC_CHECK_LIB([dl], [dlopen],
+ [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[
+ lt_cv_dlopen="dyld"
+ lt_cv_dlopen_libs=
+ lt_cv_dlopen_self=yes
+ ])
+ ;;
+
+ *)
+ AC_CHECK_FUNC([shl_load],
+ [lt_cv_dlopen="shl_load"],
+ [AC_CHECK_LIB([dld], [shl_load],
+ [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-dld"],
+ [AC_CHECK_FUNC([dlopen],
+ [lt_cv_dlopen="dlopen"],
+ [AC_CHECK_LIB([dl], [dlopen],
+ [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],
+ [AC_CHECK_LIB([svld], [dlopen],
+ [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"],
+ [AC_CHECK_LIB([dld], [dld_link],
+ [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-dld"])
+ ])
+ ])
+ ])
+ ])
+ ])
+ ;;
+ esac
+
+ if test "x$lt_cv_dlopen" != xno; then
+ enable_dlopen=yes
+ else
+ enable_dlopen=no
+ fi
+
+ case $lt_cv_dlopen in
+ dlopen)
+ save_CPPFLAGS="$CPPFLAGS"
+ test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
+
+ save_LDFLAGS="$LDFLAGS"
+ eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
+
+ save_LIBS="$LIBS"
+ LIBS="$lt_cv_dlopen_libs $LIBS"
+
+ AC_CACHE_CHECK([whether a program can dlopen itself],
+ lt_cv_dlopen_self, [dnl
+ _LT_AC_TRY_DLOPEN_SELF(
+ lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes,
+ lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross)
+ ])
+
+ if test "x$lt_cv_dlopen_self" = xyes; then
+ LDFLAGS="$LDFLAGS $link_static_flag"
+ AC_CACHE_CHECK([whether a statically linked program can dlopen itself],
+ lt_cv_dlopen_self_static, [dnl
+ _LT_AC_TRY_DLOPEN_SELF(
+ lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes,
+ lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross)
+ ])
+ fi
+
+ CPPFLAGS="$save_CPPFLAGS"
+ LDFLAGS="$save_LDFLAGS"
+ LIBS="$save_LIBS"
+ ;;
+ esac
+
+ case $lt_cv_dlopen_self in
+ yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
+ *) enable_dlopen_self=unknown ;;
+ esac
+
+ case $lt_cv_dlopen_self_static in
+ yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
+ *) enable_dlopen_self_static=unknown ;;
+ esac
+fi
+])# AC_LIBTOOL_DLOPEN_SELF
+
+
+# AC_LIBTOOL_PROG_CC_C_O([TAGNAME])
+# ---------------------------------
+# Check to see if options -c and -o are simultaneously supported by compiler
+AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O],
+[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl
+AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext],
+ [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)],
+ [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no
+ $rm -r conftest 2>/dev/null
+ mkdir conftest
+ cd conftest
+ mkdir out
+ printf "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ lt_compiler_flag="-o out/conftest2.$ac_objext"
+ # Insert the option either (1) after the last *FLAGS variable, or
+ # (2) before a word containing "conftest.", or (3) at the end.
+ # Note that $ac_compile itself does not contain backslashes and begins
+ # with a dollar sign (not a hyphen), so the echo should work correctly.
+ lt_compile=`echo "$ac_compile" | $SED \
+ -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \
+ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
+ -e 's:$: $lt_compiler_flag:'`
+ (eval echo "\"\$as_me:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
+ (eval "$lt_compile" 2>out/conftest.err)
+ ac_status=$?
+ cat out/conftest.err >&AS_MESSAGE_LOG_FD
+ echo "$as_me:__oline__: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
+ if (exit $ac_status) && test -s out/conftest2.$ac_objext
+ then
+ # The compiler can only warn and ignore the option if not recognized
+ # So say no if there are warnings
+ if test ! -s out/conftest.err; then
+ _LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
+ fi
+ fi
+ chmod u+w .
+ $rm conftest*
+ # SGI C++ compiler will create directory out/ii_files/ for
+ # template instantiation
+ test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files
+ $rm out/* && rmdir out
+ cd ..
+ rmdir conftest
+ $rm conftest*
+])
+])# AC_LIBTOOL_PROG_CC_C_O
+
+
+# AC_LIBTOOL_SYS_HARD_LINK_LOCKS([TAGNAME])
+# -----------------------------------------
+# Check to see if we can do hard links to lock some files if needed
+AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS],
+[AC_REQUIRE([_LT_AC_LOCK])dnl
+
+hard_links="nottested"
+if test "$_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then
+ # do not overwrite the value of need_locks provided by the user
+ AC_MSG_CHECKING([if we can lock with hard links])
+ hard_links=yes
+ $rm conftest*
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ touch conftest.a
+ ln conftest.a conftest.b 2>&5 || hard_links=no
+ ln conftest.a conftest.b 2>/dev/null && hard_links=no
+ AC_MSG_RESULT([$hard_links])
+ if test "$hard_links" = no; then
+ AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe])
+ need_locks=warn
+ fi
+else
+ need_locks=no
+fi
+])# AC_LIBTOOL_SYS_HARD_LINK_LOCKS
+
+
+# AC_LIBTOOL_OBJDIR
+# -----------------
+AC_DEFUN([AC_LIBTOOL_OBJDIR],
+[AC_CACHE_CHECK([for objdir], [lt_cv_objdir],
+[rm -f .libs 2>/dev/null
+mkdir .libs 2>/dev/null
+if test -d .libs; then
+ lt_cv_objdir=.libs
+else
+ # MS-DOS does not allow filenames that begin with a dot.
+ lt_cv_objdir=_libs
+fi
+rmdir .libs 2>/dev/null])
+objdir=$lt_cv_objdir
+])# AC_LIBTOOL_OBJDIR
+
+
+# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH([TAGNAME])
+# ----------------------------------------------
+# Check hardcoding attributes.
+AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH],
+[AC_MSG_CHECKING([how to hardcode library paths into programs])
+_LT_AC_TAGVAR(hardcode_action, $1)=
+if test -n "$_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)" || \
+ test -n "$_LT_AC_TAGVAR(runpath_var $1)" || \
+ test "X$_LT_AC_TAGVAR(hardcode_automatic, $1)"="Xyes" ; then
+
+ # We can hardcode non-existant directories.
+ if test "$_LT_AC_TAGVAR(hardcode_direct, $1)" != no &&
+ # If the only mechanism to avoid hardcoding is shlibpath_var, we
+ # have to relink, otherwise we might link with an installed library
+ # when we should be linking with a yet-to-be-installed one
+ ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, $1)" != no &&
+ test "$_LT_AC_TAGVAR(hardcode_minus_L, $1)" != no; then
+ # Linking always hardcodes the temporary library directory.
+ _LT_AC_TAGVAR(hardcode_action, $1)=relink
+ else
+ # We can link without hardcoding, and we can hardcode nonexisting dirs.
+ _LT_AC_TAGVAR(hardcode_action, $1)=immediate
+ fi
+else
+ # We cannot hardcode anything, or else we can only hardcode existing
+ # directories.
+ _LT_AC_TAGVAR(hardcode_action, $1)=unsupported
+fi
+AC_MSG_RESULT([$_LT_AC_TAGVAR(hardcode_action, $1)])
+
+if test "$_LT_AC_TAGVAR(hardcode_action, $1)" = relink; then
+ # Fast installation is not supported
+ enable_fast_install=no
+elif test "$shlibpath_overrides_runpath" = yes ||
+ test "$enable_shared" = no; then
+ # Fast installation is not necessary
+ enable_fast_install=needless
+fi
+])# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH
+
+
+# AC_LIBTOOL_SYS_LIB_STRIP
+# ------------------------
+AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP],
+[striplib=
+old_striplib=
+AC_MSG_CHECKING([whether stripping libraries is possible])
+if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then
+ test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
+ test -z "$striplib" && striplib="$STRIP --strip-unneeded"
+ AC_MSG_RESULT([yes])
+else
+# FIXME - insert some real tests, host_os isn't really good enough
+ case $host_os in
+ darwin*)
+ if test -n "$STRIP" ; then
+ striplib="$STRIP -x"
+ AC_MSG_RESULT([yes])
+ else
+ AC_MSG_RESULT([no])
+fi
+ ;;
+ *)
+ AC_MSG_RESULT([no])
+ ;;
+ esac
+fi
+])# AC_LIBTOOL_SYS_LIB_STRIP
+
+
+# AC_LIBTOOL_SYS_DYNAMIC_LINKER
+# -----------------------------
+# PORTME Fill in your ld.so characteristics
+AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER],
+[AC_MSG_CHECKING([dynamic linker characteristics])
+library_names_spec=
+libname_spec='lib$name'
+soname_spec=
+shrext_cmds=".so"
+postinstall_cmds=
+postuninstall_cmds=
+finish_cmds=
+finish_eval=
+shlibpath_var=
+shlibpath_overrides_runpath=unknown
+version_type=none
+dynamic_linker="$host_os ld.so"
+sys_lib_dlsearch_path_spec="/lib /usr/lib"
+if test "$GCC" = yes; then
+ sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"`
+ if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then
+ # if the path contains ";" then we assume it to be the separator
+ # otherwise default to the standard path separator (i.e. ":") - it is
+ # assumed that no part of a normal pathname contains ";" but that should
+ # okay in the real world where ";" in dirpaths is itself problematic.
+ sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+else
+ sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
+fi
+need_lib_prefix=unknown
+hardcode_into_libs=no
+
+# when you set need_version to no, make sure it does not cause -set_version
+# flags to be left without arguments
+need_version=unknown
+
+case $host_os in
+aix3*)
+ version_type=linux
+ library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
+ shlibpath_var=LIBPATH
+
+ # AIX 3 has no versioning support, so we append a major version to the name.
+ soname_spec='${libname}${release}${shared_ext}$major'
+ ;;
+
+aix4* | aix5*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ hardcode_into_libs=yes
+ if test "$host_cpu" = ia64; then
+ # AIX 5 supports IA64
+ library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
+ shlibpath_var=LD_LIBRARY_PATH
+ else
+ # With GCC up to 2.95.x, collect2 would create an import file
+ # for dependence libraries. The import file would start with
+ # the line `#! .'. This would cause the generated library to
+ # depend on `.', always an invalid library. This was fixed in
+ # development snapshots of GCC prior to 3.0.
+ case $host_os in
+ aix4 | aix4.[[01]] | aix4.[[01]].*)
+ if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
+ echo ' yes '
+ echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then
+ :
+ else
+ can_build_shared=no
+ fi
+ ;;
+ esac
+ # AIX (on Power*) has no versioning support, so currently we can not hardcode correct
+ # soname into executable. Probably we can add versioning support to
+ # collect2, so additional links can be useful in future.
+ if test "$aix_use_runtimelinking" = yes; then
+ # If using run time linking (on AIX 4.2 or later) use lib<name>.so
+ # instead of lib<name>.a to let people know that these are not
+ # typical AIX shared libraries.
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ else
+ # We preserve .a as extension for shared libraries through AIX4.2
+ # and later when we are not doing run time linking.
+ library_names_spec='${libname}${release}.a $libname.a'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ fi
+ shlibpath_var=LIBPATH
+ fi
+ ;;
+
+amigaos*)
+ library_names_spec='$libname.ixlibrary $libname.a'
+ # Create ${libname}_ixlibrary.a entries in /sys/libs.
+ finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
+ ;;
+
+beos*)
+ library_names_spec='${libname}${shared_ext}'
+ dynamic_linker="$host_os ld.so"
+ shlibpath_var=LIBRARY_PATH
+ ;;
+
+bsdi4*)
+ version_type=linux
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
+ sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
+ # the default ld.so.conf also contains /usr/contrib/lib and
+ # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
+ # libtool to hard-code these into programs
+ ;;
+
+cygwin* | mingw* | pw32*)
+ version_type=windows
+ shrext_cmds=".dll"
+ need_version=no
+ need_lib_prefix=no
+
+ case $GCC,$host_os in
+ yes,cygwin* | yes,mingw* | yes,pw32*)
+ library_names_spec='$libname.dll.a'
+ # DLL is installed to $(libdir)/../bin by postinstall_cmds
+ postinstall_cmds='base_file=`basename \${file}`~
+ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~
+ dldir=$destdir/`dirname \$dlpath`~
+ test -d \$dldir || mkdir -p \$dldir~
+ $install_prog $dir/$dlname \$dldir/$dlname'
+ postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
+ dlpath=$dir/\$dldll~
+ $rm \$dlpath'
+ shlibpath_overrides_runpath=yes
+
+ case $host_os in
+ cygwin*)
+ # Cygwin DLLs use 'cyg' prefix rather than 'lib'
+ soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
+ sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib"
+ ;;
+ mingw*)
+ # MinGW DLLs use traditional 'lib' prefix
+ soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
+ sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"`
+ if echo "$sys_lib_search_path_spec" | [grep ';[c-zC-Z]:/' >/dev/null]; then
+ # It is most probably a Windows format PATH printed by
+ # mingw gcc, but we are running on Cygwin. Gcc prints its search
+ # path with ; separators, and with drive letters. We can handle the
+ # drive letters (cygwin fileutils understands them), so leave them,
+ # especially as we might pass files found there to a mingw objdump,
+ # which wouldn't understand a cygwinified path. Ahh.
+ sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
+ else
+ sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
+ fi
+ ;;
+ pw32*)
+ # pw32 DLLs use 'pw' prefix rather than 'lib'
+ library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
+ ;;
+ esac
+ ;;
+
+ *)
+ library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib'
+ ;;
+ esac
+ dynamic_linker='Win32 ld.exe'
+ # FIXME: first we should search . and the directory the executable is in
+ shlibpath_var=PATH
+ ;;
+
+darwin* | rhapsody*)
+ dynamic_linker="$host_os dyld"
+ version_type=darwin
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext'
+ soname_spec='${libname}${release}${major}$shared_ext'
+ shlibpath_overrides_runpath=yes
+ shlibpath_var=DYLD_LIBRARY_PATH
+ shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)'
+ # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same.
+ if test "$GCC" = yes; then
+ sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"`
+ else
+ sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib'
+ fi
+ sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
+ ;;
+
+dgux*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+freebsd1*)
+ dynamic_linker=no
+ ;;
+
+kfreebsd*-gnu)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='GNU ld.so'
+ ;;
+
+freebsd*)
+ objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout`
+ version_type=freebsd-$objformat
+ case $version_type in
+ freebsd-elf*)
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
+ need_version=no
+ need_lib_prefix=no
+ ;;
+ freebsd-*)
+ library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
+ need_version=yes
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_os in
+ freebsd2*)
+ shlibpath_overrides_runpath=yes
+ ;;
+ freebsd3.[01]* | freebsdelf3.[01]*)
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+ *) # from 3.2 on
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ ;;
+ esac
+ ;;
+
+gnu*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ hardcode_into_libs=yes
+ ;;
+
+hpux9* | hpux10* | hpux11*)
+ # Give a soname corresponding to the major version so that dld.sl refuses to
+ # link against other versions.
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ case "$host_cpu" in
+ ia64*)
+ shrext_cmds='.so'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.so"
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ if test "X$HPUX_IA64_MODE" = X32; then
+ sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
+ else
+ sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
+ fi
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ hppa*64*)
+ shrext_cmds='.sl'
+ hardcode_into_libs=yes
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
+ shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
+ sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
+ ;;
+ *)
+ shrext_cmds='.sl'
+ dynamic_linker="$host_os dld.sl"
+ shlibpath_var=SHLIB_PATH
+ shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ ;;
+ esac
+ # HP-UX runs *really* slowly unless shared libraries are mode 555.
+ postinstall_cmds='chmod 555 $lib'
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $host_os in
+ nonstopux*) version_type=nonstopux ;;
+ *)
+ if test "$lt_cv_prog_gnu_ld" = yes; then
+ version_type=linux
+ else
+ version_type=irix
+ fi ;;
+ esac
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='${libname}${release}${shared_ext}$major'
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
+ case $host_os in
+ irix5* | nonstopux*)
+ libsuff= shlibsuff=
+ ;;
+ *)
+ case $LD in # libtool.m4 will add one of these switches to LD
+ *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
+ libsuff= shlibsuff= libmagic=32-bit;;
+ *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
+ libsuff=32 shlibsuff=N32 libmagic=N32;;
+ *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
+ libsuff=64 shlibsuff=64 libmagic=64-bit;;
+ *) libsuff= shlibsuff= libmagic=never-match;;
+ esac
+ ;;
+ esac
+ shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
+ sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
+ hardcode_into_libs=yes
+ ;;
+
+# No shared lib support for Linux oldld, aout, or coff.
+linux*oldld* | linux*aout* | linux*coff*)
+ dynamic_linker=no
+ ;;
+
+# This must be Linux ELF.
+linux*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ # This implies no fast_install, which is unacceptable.
+ # Some rework will be needed to allow for fast_install
+ # before this can be enabled.
+ hardcode_into_libs=yes
+
+ # find out which ABI we are using
+ libsuff=
+ case "$host_cpu" in
+ x86_64*|s390x*|powerpc64*)
+ echo '[#]line __oline__ "configure"' > conftest.$ac_ext
+ if AC_TRY_EVAL(ac_compile); then
+ case `/usr/bin/file conftest.$ac_objext` in
+ *64-bit*)
+ libsuff=64
+ sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}"
+ ;;
+ esac
+ fi
+ rm -rf conftest*
+ ;;
+ esac
+
+ # Append ld.so.conf contents to the search path
+ if test -f /etc/ld.so.conf; then
+ lt_ld_extra=`$SED -e 's/[:,\t]/ /g;s/=[^=]*$//;s/=[^= ]* / /g' /etc/ld.so.conf | tr '\n' ' '`
+ sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra"
+ fi
+
+ # We used to test for /lib/ld.so.1 and disable shared libraries on
+ # powerpc, because MkLinux only supported shared libraries with the
+ # GNU dynamic linker. Since this was broken with cross compilers,
+ # most powerpc-linux boxes support dynamic linking these days and
+ # people can always --disable-shared, the test was removed, and we
+ # assume the GNU/Linux dynamic linker is in use.
+ dynamic_linker='GNU/Linux ld.so'
+ ;;
+
+knetbsd*-gnu)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
+ hardcode_into_libs=yes
+ dynamic_linker='GNU ld.so'
+ ;;
+
+netbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=no
+ if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ dynamic_linker='NetBSD (a.out) ld.so'
+ else
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ dynamic_linker='NetBSD ld.elf_so'
+ fi
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ ;;
+
+newsos6)
+ version_type=linux
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+nto-qnx*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ ;;
+
+openbsd*)
+ version_type=sunos
+ need_lib_prefix=no
+ need_version=yes
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
+ finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
+ case $host_os in
+ openbsd2.[[89]] | openbsd2.[[89]].*)
+ shlibpath_overrides_runpath=no
+ ;;
+ *)
+ shlibpath_overrides_runpath=yes
+ ;;
+ esac
+ else
+ shlibpath_overrides_runpath=yes
+ fi
+ ;;
+
+os2*)
+ libname_spec='$name'
+ shrext_cmds=".dll"
+ need_lib_prefix=no
+ library_names_spec='$libname${shared_ext} $libname.a'
+ dynamic_linker='OS/2 ld.exe'
+ shlibpath_var=LIBPATH
+ ;;
+
+osf3* | osf4* | osf5*)
+ version_type=osf
+ need_lib_prefix=no
+ need_version=no
+ soname_spec='${libname}${release}${shared_ext}$major'
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ shlibpath_var=LD_LIBRARY_PATH
+ sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
+ sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
+ ;;
+
+sco3.2v5*)
+ version_type=osf
+ soname_spec='${libname}${release}${shared_ext}$major'
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+solaris*)
+ version_type=linux
+ need_lib_prefix=no
+ need_version=no
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ hardcode_into_libs=yes
+ # ldd complains unless libraries are executable
+ postinstall_cmds='chmod +x $lib'
+ ;;
+
+sunos4*)
+ version_type=sunos
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
+ finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
+ shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=yes
+ if test "$with_gnu_ld" = yes; then
+ need_lib_prefix=no
+ fi
+ need_version=yes
+ ;;
+
+sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ version_type=linux
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ case $host_vendor in
+ sni)
+ shlibpath_overrides_runpath=no
+ need_lib_prefix=no
+ export_dynamic_flag_spec='${wl}-Blargedynsym'
+ runpath_var=LD_RUN_PATH
+ ;;
+ siemens)
+ need_lib_prefix=no
+ ;;
+ motorola)
+ need_lib_prefix=no
+ need_version=no
+ shlibpath_overrides_runpath=no
+ sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
+ ;;
+ esac
+ ;;
+
+sysv4*MP*)
+ if test -d /usr/nec ;then
+ version_type=linux
+ library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
+ soname_spec='$libname${shared_ext}.$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ fi
+ ;;
+
+uts4*)
+ version_type=linux
+ library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
+ soname_spec='${libname}${release}${shared_ext}$major'
+ shlibpath_var=LD_LIBRARY_PATH
+ ;;
+
+*)
+ dynamic_linker=no
+ ;;
+esac
+AC_MSG_RESULT([$dynamic_linker])
+test "$dynamic_linker" = no && can_build_shared=no
+])# AC_LIBTOOL_SYS_DYNAMIC_LINKER
+
+
+# _LT_AC_TAGCONFIG
+# ----------------
+AC_DEFUN([_LT_AC_TAGCONFIG],
+[AC_ARG_WITH([tags],
+ [AC_HELP_STRING([--with-tags@<:@=TAGS@:>@],
+ [include additional configurations @<:@automatic@:>@])],
+ [tagnames="$withval"])
+
+if test -f "$ltmain" && test -n "$tagnames"; then
+ if test ! -f "${ofile}"; then
+ AC_MSG_WARN([output file `$ofile' does not exist])
+ fi
+
+ if test -z "$LTCC"; then
+ eval "`$SHELL ${ofile} --config | grep '^LTCC='`"
+ if test -z "$LTCC"; then
+ AC_MSG_WARN([output file `$ofile' does not look like a libtool script])
+ else
+ AC_MSG_WARN([using `LTCC=$LTCC', extracted from `$ofile'])
+ fi
+ fi
+
+ # Extract list of available tagged configurations in $ofile.
+ # Note that this assumes the entire list is on one line.
+ available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'`
+
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for tagname in $tagnames; do
+ IFS="$lt_save_ifs"
+ # Check whether tagname contains only valid characters
+ case `$echo "X$tagname" | $Xsed -e 's:[[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]]::g'` in
+ "") ;;
+ *) AC_MSG_ERROR([invalid tag name: $tagname])
+ ;;
+ esac
+
+ if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null
+ then
+ AC_MSG_ERROR([tag name \"$tagname\" already exists])
+ fi
+
+ # Update the list of available tags.
+ if test -n "$tagname"; then
+ echo appending configuration tag \"$tagname\" to $ofile
+
+ case $tagname in
+ CXX)
+ if test -n "$CXX" && test "X$CXX" != "Xno"; then
+ AC_LIBTOOL_LANG_CXX_CONFIG
+ else
+ tagname=""
+ fi
+ ;;
+
+ F77)
+ if test -n "$F77" && test "X$F77" != "Xno"; then
+ AC_LIBTOOL_LANG_F77_CONFIG
+ else
+ tagname=""
+ fi
+ ;;
+
+ GCJ)
+ if test -n "$GCJ" && test "X$GCJ" != "Xno"; then
+ AC_LIBTOOL_LANG_GCJ_CONFIG
+ else
+ tagname=""
+ fi
+ ;;
+
+ RC)
+ AC_LIBTOOL_LANG_RC_CONFIG
+ ;;
+
+ *)
+ AC_MSG_ERROR([Unsupported tag name: $tagname])
+ ;;
+ esac
+
+ # Append the new tag name to the list of available tags.
+ if test -n "$tagname" ; then
+ available_tags="$available_tags $tagname"
+ fi
+ fi
+ done
+ IFS="$lt_save_ifs"
+
+ # Now substitute the updated list of available tags.
+ if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then
+ mv "${ofile}T" "$ofile"
+ chmod +x "$ofile"
+ else
+ rm -f "${ofile}T"
+ AC_MSG_ERROR([unable to update list of available tagged configurations.])
+ fi
+fi
+])# _LT_AC_TAGCONFIG
+
+
+# AC_LIBTOOL_DLOPEN
+# -----------------
+# enable checks for dlopen support
+AC_DEFUN([AC_LIBTOOL_DLOPEN],
+ [AC_BEFORE([$0],[AC_LIBTOOL_SETUP])
+])# AC_LIBTOOL_DLOPEN
+
+
+# AC_LIBTOOL_WIN32_DLL
+# --------------------
+# declare package support for building win32 dll's
+AC_DEFUN([AC_LIBTOOL_WIN32_DLL],
+[AC_BEFORE([$0], [AC_LIBTOOL_SETUP])
+])# AC_LIBTOOL_WIN32_DLL
+
+
+# AC_ENABLE_SHARED([DEFAULT])
+# ---------------------------
+# implement the --enable-shared flag
+# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
+AC_DEFUN([AC_ENABLE_SHARED],
+[define([AC_ENABLE_SHARED_DEFAULT], ifelse($1, no, no, yes))dnl
+AC_ARG_ENABLE([shared],
+ [AC_HELP_STRING([--enable-shared@<:@=PKGS@:>@],
+ [build shared libraries @<:@default=]AC_ENABLE_SHARED_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_shared=yes ;;
+ no) enable_shared=no ;;
+ *)
+ enable_shared=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for pkg in $enableval; do
+ IFS="$lt_save_ifs"
+ if test "X$pkg" = "X$p"; then
+ enable_shared=yes
+ fi
+ done
+ IFS="$lt_save_ifs"
+ ;;
+ esac],
+ [enable_shared=]AC_ENABLE_SHARED_DEFAULT)
+])# AC_ENABLE_SHARED
+
+
+# AC_DISABLE_SHARED
+# -----------------
+#- set the default shared flag to --disable-shared
+AC_DEFUN([AC_DISABLE_SHARED],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+AC_ENABLE_SHARED(no)
+])# AC_DISABLE_SHARED
+
+
+# AC_ENABLE_STATIC([DEFAULT])
+# ---------------------------
+# implement the --enable-static flag
+# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
+AC_DEFUN([AC_ENABLE_STATIC],
+[define([AC_ENABLE_STATIC_DEFAULT], ifelse($1, no, no, yes))dnl
+AC_ARG_ENABLE([static],
+ [AC_HELP_STRING([--enable-static@<:@=PKGS@:>@],
+ [build static libraries @<:@default=]AC_ENABLE_STATIC_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_static=yes ;;
+ no) enable_static=no ;;
+ *)
+ enable_static=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for pkg in $enableval; do
+ IFS="$lt_save_ifs"
+ if test "X$pkg" = "X$p"; then
+ enable_static=yes
+ fi
+ done
+ IFS="$lt_save_ifs"
+ ;;
+ esac],
+ [enable_static=]AC_ENABLE_STATIC_DEFAULT)
+])# AC_ENABLE_STATIC
+
+
+# AC_DISABLE_STATIC
+# -----------------
+# set the default static flag to --disable-static
+AC_DEFUN([AC_DISABLE_STATIC],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+AC_ENABLE_STATIC(no)
+])# AC_DISABLE_STATIC
+
+
+# AC_ENABLE_FAST_INSTALL([DEFAULT])
+# ---------------------------------
+# implement the --enable-fast-install flag
+# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
+AC_DEFUN([AC_ENABLE_FAST_INSTALL],
+[define([AC_ENABLE_FAST_INSTALL_DEFAULT], ifelse($1, no, no, yes))dnl
+AC_ARG_ENABLE([fast-install],
+ [AC_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@],
+ [optimize for fast installation @<:@default=]AC_ENABLE_FAST_INSTALL_DEFAULT[@:>@])],
+ [p=${PACKAGE-default}
+ case $enableval in
+ yes) enable_fast_install=yes ;;
+ no) enable_fast_install=no ;;
+ *)
+ enable_fast_install=no
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for pkg in $enableval; do
+ IFS="$lt_save_ifs"
+ if test "X$pkg" = "X$p"; then
+ enable_fast_install=yes
+ fi
+ done
+ IFS="$lt_save_ifs"
+ ;;
+ esac],
+ [enable_fast_install=]AC_ENABLE_FAST_INSTALL_DEFAULT)
+])# AC_ENABLE_FAST_INSTALL
+
+
+# AC_DISABLE_FAST_INSTALL
+# -----------------------
+# set the default to --disable-fast-install
+AC_DEFUN([AC_DISABLE_FAST_INSTALL],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+AC_ENABLE_FAST_INSTALL(no)
+])# AC_DISABLE_FAST_INSTALL
+
+
+# AC_LIBTOOL_PICMODE([MODE])
+# --------------------------
+# implement the --with-pic flag
+# MODE is either `yes' or `no'. If omitted, it defaults to `both'.
+AC_DEFUN([AC_LIBTOOL_PICMODE],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+pic_mode=ifelse($#,1,$1,default)
+])# AC_LIBTOOL_PICMODE
+
+
+# AC_PROG_EGREP
+# -------------
+# This is predefined starting with Autoconf 2.54, so this conditional
+# definition can be removed once we require Autoconf 2.54 or later.
+m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP],
+[AC_CACHE_CHECK([for egrep], [ac_cv_prog_egrep],
+ [if echo a | (grep -E '(a|b)') >/dev/null 2>&1
+ then ac_cv_prog_egrep='grep -E'
+ else ac_cv_prog_egrep='egrep'
+ fi])
+ EGREP=$ac_cv_prog_egrep
+ AC_SUBST([EGREP])
+])])
+
+
+# AC_PATH_TOOL_PREFIX
+# -------------------
+# find a file program which can recognise shared library
+AC_DEFUN([AC_PATH_TOOL_PREFIX],
+[AC_REQUIRE([AC_PROG_EGREP])dnl
+AC_MSG_CHECKING([for $1])
+AC_CACHE_VAL(lt_cv_path_MAGIC_CMD,
+[case $MAGIC_CMD in
+[[\\/*] | ?:[\\/]*])
+ lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
+ ;;
+*)
+ lt_save_MAGIC_CMD="$MAGIC_CMD"
+ lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
+dnl $ac_dummy forces splitting on constant user-supplied paths.
+dnl POSIX.2 word splitting is done only on the output of word expansions,
+dnl not every word. This closes a longstanding sh security hole.
+ ac_dummy="ifelse([$2], , $PATH, [$2])"
+ for ac_dir in $ac_dummy; do
+ IFS="$lt_save_ifs"
+ test -z "$ac_dir" && ac_dir=.
+ if test -f $ac_dir/$1; then
+ lt_cv_path_MAGIC_CMD="$ac_dir/$1"
+ if test -n "$file_magic_test_file"; then
+ case $deplibs_check_method in
+ "file_magic "*)
+ file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`"
+ MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
+ if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
+ $EGREP "$file_magic_regex" > /dev/null; then
+ :
+ else
+ cat <<EOF 1>&2
+
+*** Warning: the command libtool uses to detect shared libraries,
+*** $file_magic_cmd, produces output that libtool cannot recognize.
+*** The result is that libtool may fail to recognize shared libraries
+*** as such. This will affect the creation of libtool libraries that
+*** depend on shared libraries, but programs linked with such libtool
+*** libraries will work regardless of this problem. Nevertheless, you
+*** may want to report the problem to your system manager and/or to
+*** bug-libtool at gnu.org
+
+EOF
+ fi ;;
+ esac
+ fi
+ break
+ fi
+ done
+ IFS="$lt_save_ifs"
+ MAGIC_CMD="$lt_save_MAGIC_CMD"
+ ;;
+esac])
+MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
+if test -n "$MAGIC_CMD"; then
+ AC_MSG_RESULT($MAGIC_CMD)
+else
+ AC_MSG_RESULT(no)
+fi
+])# AC_PATH_TOOL_PREFIX
+
+
+# AC_PATH_MAGIC
+# -------------
+# find a file program which can recognise a shared library
+AC_DEFUN([AC_PATH_MAGIC],
+[AC_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH)
+if test -z "$lt_cv_path_MAGIC_CMD"; then
+ if test -n "$ac_tool_prefix"; then
+ AC_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH)
+ else
+ MAGIC_CMD=:
+ fi
+fi
+])# AC_PATH_MAGIC
+
+
+# AC_PROG_LD
+# ----------
+# find the pathname to the GNU or non-GNU linker
+AC_DEFUN([AC_PROG_LD],
+[AC_ARG_WITH([gnu-ld],
+ [AC_HELP_STRING([--with-gnu-ld],
+ [assume the C compiler uses GNU ld @<:@default=no@:>@])],
+ [test "$withval" = no || with_gnu_ld=yes],
+ [with_gnu_ld=no])
+AC_REQUIRE([LT_AC_PROG_SED])dnl
+AC_REQUIRE([AC_PROG_CC])dnl
+AC_REQUIRE([AC_CANONICAL_HOST])dnl
+AC_REQUIRE([AC_CANONICAL_BUILD])dnl
+ac_prog=ld
+if test "$GCC" = yes; then
+ # Check if gcc -print-prog-name=ld gives a path.
+ AC_MSG_CHECKING([for ld used by $CC])
+ case $host in
+ *-*-mingw*)
+ # gcc leaves a trailing carriage return which upsets mingw
+ ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
+ *)
+ ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
+ esac
+ case $ac_prog in
+ # Accept absolute paths.
+ [[\\/]]* | ?:[[\\/]]*)
+ re_direlt='/[[^/]][[^/]]*/\.\./'
+ # Canonicalize the pathname of ld
+ ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'`
+ while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do
+ ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"`
+ done
+ test -z "$LD" && LD="$ac_prog"
+ ;;
+ "")
+ # If it fails, then pretend we aren't using GCC.
+ ac_prog=ld
+ ;;
+ *)
+ # If it is relative, then search for the first ld in PATH.
+ with_gnu_ld=unknown
+ ;;
+ esac
+elif test "$with_gnu_ld" = yes; then
+ AC_MSG_CHECKING([for GNU ld])
+else
+ AC_MSG_CHECKING([for non-GNU ld])
+fi
+AC_CACHE_VAL(lt_cv_path_LD,
+[if test -z "$LD"; then
+ lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH; do
+ IFS="$lt_save_ifs"
+ test -z "$ac_dir" && ac_dir=.
+ if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
+ lt_cv_path_LD="$ac_dir/$ac_prog"
+ # Check to see if the program is GNU ld. I'd rather use --version,
+ # but apparently some GNU ld's only accept -v.
+ # Break only if it was the GNU/non-GNU ld that we prefer.
+ case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
+ *GNU* | *'with BFD'*)
+ test "$with_gnu_ld" != no && break
+ ;;
+ *)
+ test "$with_gnu_ld" != yes && break
+ ;;
+ esac
+ fi
+ done
+ IFS="$lt_save_ifs"
+else
+ lt_cv_path_LD="$LD" # Let the user override the test with a path.
+fi])
+LD="$lt_cv_path_LD"
+if test -n "$LD"; then
+ AC_MSG_RESULT($LD)
+else
+ AC_MSG_RESULT(no)
+fi
+test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
+AC_PROG_LD_GNU
+])# AC_PROG_LD
+
+
+# AC_PROG_LD_GNU
+# --------------
+AC_DEFUN([AC_PROG_LD_GNU],
+[AC_REQUIRE([AC_PROG_EGREP])dnl
+AC_CACHE_CHECK([if the linker ($LD) is GNU ld], lt_cv_prog_gnu_ld,
+[# I'd rather use --version here, but apparently some GNU ld's only accept -v.
+case `$LD -v 2>&1 </dev/null` in
+*GNU* | *'with BFD'*)
+ lt_cv_prog_gnu_ld=yes
+ ;;
+*)
+ lt_cv_prog_gnu_ld=no
+ ;;
+esac])
+with_gnu_ld=$lt_cv_prog_gnu_ld
+])# AC_PROG_LD_GNU
+
+
+# AC_PROG_LD_RELOAD_FLAG
+# ----------------------
+# find reload flag for linker
+# -- PORTME Some linkers may need a different reload flag.
+AC_DEFUN([AC_PROG_LD_RELOAD_FLAG],
+[AC_CACHE_CHECK([for $LD option to reload object files],
+ lt_cv_ld_reload_flag,
+ [lt_cv_ld_reload_flag='-r'])
+reload_flag=$lt_cv_ld_reload_flag
+case $reload_flag in
+"" | " "*) ;;
+*) reload_flag=" $reload_flag" ;;
+esac
+reload_cmds='$LD$reload_flag -o $output$reload_objs'
+])# AC_PROG_LD_RELOAD_FLAG
+
+
+# AC_DEPLIBS_CHECK_METHOD
+# -----------------------
+# how to check for library dependencies
+# -- PORTME fill in with the dynamic library characteristics
+AC_DEFUN([AC_DEPLIBS_CHECK_METHOD],
+[AC_CACHE_CHECK([how to recognise dependent libraries],
+lt_cv_deplibs_check_method,
+[lt_cv_file_magic_cmd='$MAGIC_CMD'
+lt_cv_file_magic_test_file=
+lt_cv_deplibs_check_method='unknown'
+# Need to set the preceding variable on all platforms that support
+# interlibrary dependencies.
+# 'none' -- dependencies not supported.
+# `unknown' -- same as none, but documents that we really don't know.
+# 'pass_all' -- all dependencies passed with no checks.
+# 'test_compile' -- check by making test program.
+# 'file_magic [[regex]]' -- check by looking for files in library path
+# which responds to the $file_magic_cmd with a given extended regex.
+# If you have `file' or equivalent on your system and you're not sure
+# whether `pass_all' will *always* work, you probably want this one.
+
+case $host_os in
+aix4* | aix5*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+beos*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+bsdi4*)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib)'
+ lt_cv_file_magic_cmd='/usr/bin/file -L'
+ lt_cv_file_magic_test_file=/shlib/libc.so
+ ;;
+
+cygwin*)
+ # func_win32_libid is a shell function defined in ltmain.sh
+ lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
+ lt_cv_file_magic_cmd='func_win32_libid'
+ ;;
+
+mingw* | pw32*)
+ # Base MSYS/MinGW do not provide the 'file' command needed by
+ # func_win32_libid shell function, so use a weaker test based on 'objdump'.
+ lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?'
+ lt_cv_file_magic_cmd='$OBJDUMP -f'
+ ;;
+
+darwin* | rhapsody*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+freebsd* | kfreebsd*-gnu)
+ if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then
+ case $host_cpu in
+ i*86 )
+ # Not sure whether the presence of OpenBSD here was a mistake.
+ # Let's accept both of them until this is cleared up.
+ lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD)/i[[3-9]]86 (compact )?demand paged shared library'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
+ ;;
+ esac
+ else
+ lt_cv_deplibs_check_method=pass_all
+ fi
+ ;;
+
+gnu*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+hpux10.20* | hpux11*)
+ lt_cv_file_magic_cmd=/usr/bin/file
+ case "$host_cpu" in
+ ia64*)
+ lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64'
+ lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
+ ;;
+ hppa*64*)
+ [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - PA-RISC [0-9].[0-9]']
+ lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
+ ;;
+ *)
+ lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]].[[0-9]]) shared library'
+ lt_cv_file_magic_test_file=/usr/lib/libc.sl
+ ;;
+ esac
+ ;;
+
+irix5* | irix6* | nonstopux*)
+ case $LD in
+ *-32|*"-32 ") libmagic=32-bit;;
+ *-n32|*"-n32 ") libmagic=N32;;
+ *-64|*"-64 ") libmagic=64-bit;;
+ *) libmagic=never-match;;
+ esac
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+# This must be Linux ELF.
+linux*)
+ case $host_cpu in
+ alpha*|hppa*|i*86|ia64*|m68*|mips*|powerpc*|sparc*|s390*|sh*|x86_64*)
+ lt_cv_deplibs_check_method=pass_all ;;
+ *)
+ # glibc up to 2.1.1 does not perform some relocations on ARM
+ # this will be overridden with pass_all, but let us keep it just in case
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;;
+ esac
+ lt_cv_file_magic_test_file=`echo /lib/libc.so* /lib/libc-*.so`
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+netbsd*)
+ if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$'
+ else
+ lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$'
+ fi
+ ;;
+
+newos6*)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)'
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=/usr/lib/libnls.so
+ ;;
+
+nto-qnx*)
+ lt_cv_deplibs_check_method=unknown
+ ;;
+
+openbsd*)
+ lt_cv_file_magic_cmd=/usr/bin/file
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
+ if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB shared object'
+ else
+ lt_cv_deplibs_check_method='file_magic OpenBSD.* shared library'
+ fi
+ ;;
+
+osf3* | osf4* | osf5*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sco3.2v5*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+solaris*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+
+sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ case $host_vendor in
+ motorola)
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]'
+ lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
+ ;;
+ ncr)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ sequent)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )'
+ ;;
+ sni)
+ lt_cv_file_magic_cmd='/bin/file'
+ lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib"
+ lt_cv_file_magic_test_file=/lib/libc.so
+ ;;
+ siemens)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+ esac
+ ;;
+
+sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7* | sysv4*uw2*)
+ lt_cv_deplibs_check_method=pass_all
+ ;;
+esac
+])
+file_magic_cmd=$lt_cv_file_magic_cmd
+deplibs_check_method=$lt_cv_deplibs_check_method
+test -z "$deplibs_check_method" && deplibs_check_method=unknown
+])# AC_DEPLIBS_CHECK_METHOD
+
+
+# AC_PROG_NM
+# ----------
+# find the pathname to a BSD-compatible name lister
+AC_DEFUN([AC_PROG_NM],
+[AC_CACHE_CHECK([for BSD-compatible nm], lt_cv_path_NM,
+[if test -n "$NM"; then
+ # Let the user override the test.
+ lt_cv_path_NM="$NM"
+else
+ lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
+ for ac_dir in $PATH /usr/ccs/bin /usr/ucb /bin; do
+ IFS="$lt_save_ifs"
+ test -z "$ac_dir" && ac_dir=.
+ tmp_nm="$ac_dir/${ac_tool_prefix}nm"
+ if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then
+ # Check to see if the nm accepts a BSD-compat flag.
+ # Adding the `sed 1q' prevents false positives on HP-UX, which says:
+ # nm: unknown option "B" ignored
+ # Tru64's nm complains that /dev/null is an invalid object file
+ case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in
+ */dev/null* | *'Invalid file or object type'*)
+ lt_cv_path_NM="$tmp_nm -B"
+ break
+ ;;
+ *)
+ case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
+ */dev/null*)
+ lt_cv_path_NM="$tmp_nm -p"
+ break
+ ;;
+ *)
+ lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
+ continue # so that we can try to find one that supports BSD flags
+ ;;
+ esac
+ esac
+ fi
+ done
+ IFS="$lt_save_ifs"
+ test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm
+fi])
+NM="$lt_cv_path_NM"
+])# AC_PROG_NM
+
+
+# AC_CHECK_LIBM
+# -------------
+# check for math library
+AC_DEFUN([AC_CHECK_LIBM],
+[AC_REQUIRE([AC_CANONICAL_HOST])dnl
+LIBM=
+case $host in
+*-*-beos* | *-*-cygwin* | *-*-pw32* | *-*-darwin*)
+ # These system don't have libm, or don't need it
+ ;;
+*-ncr-sysv4.3*)
+ AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw")
+ AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm")
+ ;;
+*)
+ AC_CHECK_LIB(m, cos, LIBM="-lm")
+ ;;
+esac
+])# AC_CHECK_LIBM
+
+
+# AC_LIBLTDL_CONVENIENCE([DIRECTORY])
+# -----------------------------------
+# sets LIBLTDL to the link flags for the libltdl convenience library and
+# LTDLINCL to the include flags for the libltdl header and adds
+# --enable-ltdl-convenience to the configure arguments. Note that LIBLTDL
+# and LTDLINCL are not AC_SUBSTed, nor is AC_CONFIG_SUBDIRS called. If
+# DIRECTORY is not provided, it is assumed to be `libltdl'. LIBLTDL will
+# be prefixed with '${top_builddir}/' and LTDLINCL will be prefixed with
+# '${top_srcdir}/' (note the single quotes!). If your package is not
+# flat and you're not using automake, define top_builddir and
+# top_srcdir appropriately in the Makefiles.
+AC_DEFUN([AC_LIBLTDL_CONVENIENCE],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+ case $enable_ltdl_convenience in
+ no) AC_MSG_ERROR([this package needs a convenience libltdl]) ;;
+ "") enable_ltdl_convenience=yes
+ ac_configure_args="$ac_configure_args --enable-ltdl-convenience" ;;
+ esac
+ LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdlc.la
+ LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl'])
+ # For backwards non-gettext consistent compatibility...
+ INCLTDL="$LTDLINCL"
+])# AC_LIBLTDL_CONVENIENCE
+
+
+# AC_LIBLTDL_INSTALLABLE([DIRECTORY])
+# -----------------------------------
+# sets LIBLTDL to the link flags for the libltdl installable library and
+# LTDLINCL to the include flags for the libltdl header and adds
+# --enable-ltdl-install to the configure arguments. Note that LIBLTDL
+# and LTDLINCL are not AC_SUBSTed, nor is AC_CONFIG_SUBDIRS called. If
+# DIRECTORY is not provided and an installed libltdl is not found, it is
+# assumed to be `libltdl'. LIBLTDL will be prefixed with '${top_builddir}/'
+# and LTDLINCL will be prefixed with '${top_srcdir}/' (note the single
+# quotes!). If your package is not flat and you're not using automake,
+# define top_builddir and top_srcdir appropriately in the Makefiles.
+# In the future, this macro may have to be called after AC_PROG_LIBTOOL.
+AC_DEFUN([AC_LIBLTDL_INSTALLABLE],
+[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl
+ AC_CHECK_LIB(ltdl, lt_dlinit,
+ [test x"$enable_ltdl_install" != xyes && enable_ltdl_install=no],
+ [if test x"$enable_ltdl_install" = xno; then
+ AC_MSG_WARN([libltdl not installed, but installation disabled])
+ else
+ enable_ltdl_install=yes
+ fi
+ ])
+ if test x"$enable_ltdl_install" = x"yes"; then
+ ac_configure_args="$ac_configure_args --enable-ltdl-install"
+ LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdl.la
+ LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl'])
+ else
+ ac_configure_args="$ac_configure_args --enable-ltdl-install=no"
+ LIBLTDL="-lltdl"
+ LTDLINCL=
+ fi
+ # For backwards non-gettext consistent compatibility...
+ INCLTDL="$LTDLINCL"
+])# AC_LIBLTDL_INSTALLABLE
+
+
+# AC_LIBTOOL_CXX
+# --------------
+# enable support for C++ libraries
+AC_DEFUN([AC_LIBTOOL_CXX],
+[AC_REQUIRE([_LT_AC_LANG_CXX])
+])# AC_LIBTOOL_CXX
+
+
+# _LT_AC_LANG_CXX
+# ---------------
+AC_DEFUN([_LT_AC_LANG_CXX],
+[AC_REQUIRE([AC_PROG_CXX])
+AC_REQUIRE([AC_PROG_CXXCPP])
+_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}CXX])
+])# _LT_AC_LANG_CXX
+
+
+# AC_LIBTOOL_F77
+# --------------
+# enable support for Fortran 77 libraries
+AC_DEFUN([AC_LIBTOOL_F77],
+[AC_REQUIRE([_LT_AC_LANG_F77])
+])# AC_LIBTOOL_F77
+
+
+# _LT_AC_LANG_F77
+# ---------------
+AC_DEFUN([_LT_AC_LANG_F77],
+[AC_REQUIRE([AC_PROG_F77])
+_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}F77])
+])# _LT_AC_LANG_F77
+
+
+# AC_LIBTOOL_GCJ
+# --------------
+# enable support for GCJ libraries
+AC_DEFUN([AC_LIBTOOL_GCJ],
+[AC_REQUIRE([_LT_AC_LANG_GCJ])
+])# AC_LIBTOOL_GCJ
+
+
+# _LT_AC_LANG_GCJ
+# ---------------
+AC_DEFUN([_LT_AC_LANG_GCJ],
+[AC_PROVIDE_IFELSE([AC_PROG_GCJ],[],
+ [AC_PROVIDE_IFELSE([A][M_PROG_GCJ],[],
+ [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ],[],
+ [ifdef([AC_PROG_GCJ],[AC_REQUIRE([AC_PROG_GCJ])],
+ [ifdef([A][M_PROG_GCJ],[AC_REQUIRE([A][M_PROG_GCJ])],
+ [AC_REQUIRE([A][C_PROG_GCJ_OR_A][M_PROG_GCJ])])])])])])
+_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}GCJ])
+])# _LT_AC_LANG_GCJ
+
+
+# AC_LIBTOOL_RC
+# --------------
+# enable support for Windows resource files
+AC_DEFUN([AC_LIBTOOL_RC],
+[AC_REQUIRE([LT_AC_PROG_RC])
+_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}RC])
+])# AC_LIBTOOL_RC
+
+
+# AC_LIBTOOL_LANG_C_CONFIG
+# ------------------------
+# Ensure that the configuration vars for the C compiler are
+# suitably defined. Those variables are subsequently used by
+# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'.
+AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG], [_LT_AC_LANG_C_CONFIG])
+AC_DEFUN([_LT_AC_LANG_C_CONFIG],
+[lt_save_CC="$CC"
+AC_LANG_PUSH(C)
+
+# Source file extension for C test sources.
+ac_ext=c
+
+# Object file extension for compiled C test sources.
+objext=o
+_LT_AC_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="int some_variable = 0;\n"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='int main(){return(0);}\n'
+
+_LT_AC_SYS_COMPILER
+
+#
+# Check for any special shared library compilation flags.
+#
+_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)=
+if test "$GCC" = no; then
+ case $host_os in
+ sco3.2v5*)
+ _LT_AC_TAGVAR(lt_prog_cc_shlib, $1)='-belf'
+ ;;
+ esac
+fi
+if test -n "$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)"; then
+ AC_MSG_WARN([`$CC' requires `$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)' to build shared libraries])
+ if echo "$old_CC $old_CFLAGS " | grep "[[ ]]$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)[[ ]]" >/dev/null; then :
+ else
+ AC_MSG_WARN([add `$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)' to the CC or CFLAGS env variable and reconfigure])
+ _LT_AC_TAGVAR(lt_cv_prog_cc_can_build_shared, $1)=no
+ fi
+fi
+
+
+#
+# Check to make sure the static flag actually works.
+#
+AC_LIBTOOL_LINKER_OPTION([if $compiler static flag $_LT_AC_TAGVAR(lt_prog_compiler_static, $1) works],
+ _LT_AC_TAGVAR(lt_prog_compiler_static_works, $1),
+ $_LT_AC_TAGVAR(lt_prog_compiler_static, $1),
+ [],
+ [_LT_AC_TAGVAR(lt_prog_compiler_static, $1)=])
+
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+AC_LIBTOOL_PROG_COMPILER_NO_RTTI($1)
+AC_LIBTOOL_PROG_COMPILER_PIC($1)
+AC_LIBTOOL_PROG_CC_C_O($1)
+AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1)
+AC_LIBTOOL_PROG_LD_SHLIBS($1)
+AC_LIBTOOL_SYS_DYNAMIC_LINKER($1)
+AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1)
+AC_LIBTOOL_SYS_LIB_STRIP
+AC_LIBTOOL_DLOPEN_SELF($1)
+
+# Report which librarie types wil actually be built
+AC_MSG_CHECKING([if libtool supports shared libraries])
+AC_MSG_RESULT([$can_build_shared])
+
+AC_MSG_CHECKING([whether to build shared libraries])
+test "$can_build_shared" = "no" && enable_shared=no
+
+# On AIX, shared libraries and static libraries use the same namespace, and
+# are all built from PIC.
+case "$host_os" in
+aix3*)
+ test "$enable_shared" = yes && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+
+aix4* | aix5*)
+ if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
+ test "$enable_shared" = yes && enable_static=no
+ fi
+ ;;
+ darwin* | rhapsody*)
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ case "$host_os" in
+ rhapsody* | darwin1.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined suppress'
+ ;;
+ *) # Darwin 1.3 on
+ if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ else
+ case ${MACOSX_DEPLOYMENT_TARGET} in
+ 10.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ ;;
+ 10.*)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined dynamic_lookup'
+ ;;
+ esac
+ fi
+ ;;
+ esac
+ output_verbose_link_cmd='echo'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs$compiler_flags -install_name $rpath/$soname $verstring'
+ _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags'
+ # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs$compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_automatic, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-all_load $convenience'
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+esac
+AC_MSG_RESULT([$enable_shared])
+
+AC_MSG_CHECKING([whether to build static libraries])
+# Make sure either enable_shared or enable_static is yes.
+test "$enable_shared" = yes || enable_static=yes
+AC_MSG_RESULT([$enable_static])
+
+AC_LIBTOOL_CONFIG($1)
+
+AC_LANG_POP
+CC="$lt_save_CC"
+])# AC_LIBTOOL_LANG_C_CONFIG
+
+
+# AC_LIBTOOL_LANG_CXX_CONFIG
+# --------------------------
+# Ensure that the configuration vars for the C compiler are
+# suitably defined. Those variables are subsequently used by
+# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'.
+AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG], [_LT_AC_LANG_CXX_CONFIG(CXX)])
+AC_DEFUN([_LT_AC_LANG_CXX_CONFIG],
+[AC_LANG_PUSH(C++)
+AC_REQUIRE([AC_PROG_CXX])
+AC_REQUIRE([AC_PROG_CXXCPP])
+
+_LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+_LT_AC_TAGVAR(allow_undefined_flag, $1)=
+_LT_AC_TAGVAR(always_export_symbols, $1)=no
+_LT_AC_TAGVAR(archive_expsym_cmds, $1)=
+_LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=
+_LT_AC_TAGVAR(hardcode_direct, $1)=no
+_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=
+_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
+_LT_AC_TAGVAR(hardcode_libdir_separator, $1)=
+_LT_AC_TAGVAR(hardcode_minus_L, $1)=no
+_LT_AC_TAGVAR(hardcode_automatic, $1)=no
+_LT_AC_TAGVAR(module_cmds, $1)=
+_LT_AC_TAGVAR(module_expsym_cmds, $1)=
+_LT_AC_TAGVAR(link_all_deplibs, $1)=unknown
+_LT_AC_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_AC_TAGVAR(no_undefined_flag, $1)=
+_LT_AC_TAGVAR(whole_archive_flag_spec, $1)=
+_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+
+# Dependencies to place before and after the object being linked:
+_LT_AC_TAGVAR(predep_objects, $1)=
+_LT_AC_TAGVAR(postdep_objects, $1)=
+_LT_AC_TAGVAR(predeps, $1)=
+_LT_AC_TAGVAR(postdeps, $1)=
+_LT_AC_TAGVAR(compiler_lib_search_path, $1)=
+
+# Source file extension for C++ test sources.
+ac_ext=cc
+
+# Object file extension for compiled C++ test sources.
+objext=o
+_LT_AC_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="int some_variable = 0;\n"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='int main(int, char *[]) { return(0); }\n'
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_AC_SYS_COMPILER
+
+# Allow CC to be a program name with arguments.
+lt_save_CC=$CC
+lt_save_LD=$LD
+lt_save_GCC=$GCC
+GCC=$GXX
+lt_save_with_gnu_ld=$with_gnu_ld
+lt_save_path_LD=$lt_cv_path_LD
+if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then
+ lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx
+else
+ unset lt_cv_prog_gnu_ld
+fi
+if test -n "${lt_cv_path_LDCXX+set}"; then
+ lt_cv_path_LD=$lt_cv_path_LDCXX
+else
+ unset lt_cv_path_LD
+fi
+test -z "${LDCXX+set}" || LD=$LDCXX
+CC=${CXX-"c++"}
+compiler=$CC
+_LT_AC_TAGVAR(compiler, $1)=$CC
+cc_basename=`$echo X"$compiler" | $Xsed -e 's%^.*/%%'`
+
+# We don't want -fno-exception wen compiling C++ code, so set the
+# no_builtin_flag separately
+if test "$GXX" = yes; then
+ _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin'
+else
+ _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
+fi
+
+if test "$GXX" = yes; then
+ # Set up default GNU C++ configuration
+
+ AC_PROG_LD
+
+ # Check if GNU C++ uses GNU ld as the underlying linker, since the
+ # archiving commands below assume that GNU ld is being used.
+ if test "$with_gnu_ld" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
+
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to
+ # investigate it a little bit more. (MM)
+ wlarc='${wl}'
+
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if eval "`$CC -print-prog-name=ld` --help 2>&1" | \
+ grep 'no-whole-archive' > /dev/null; then
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
+ else
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=
+ fi
+ else
+ with_gnu_ld=no
+ wlarc=
+
+ # A generic and very simple default shared library creation
+ # command for GNU C++ for the case where it uses the native
+ # linker, instead of GNU ld. If possible, this setting should
+ # overridden to take advantage of the native linker features on
+ # the platform it is being used on.
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
+ fi
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"'
+
+else
+ GXX=no
+ with_gnu_ld=no
+ wlarc=
+fi
+
+# PORTME: fill in a description of your system's C++ link characteristics
+AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
+_LT_AC_TAGVAR(ld_shlibs, $1)=yes
+case $host_os in
+ aix3*)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aix4* | aix5*)
+ if test "$host_cpu" = ia64; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=""
+ else
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # need to do runtime linking.
+ case $host_os in aix4.[[23]]|aix4.[[23]].*|aix5*)
+ for ld_flag in $LDFLAGS; do
+ case $ld_flag in
+ *-brtl*)
+ aix_use_runtimelinking=yes
+ break
+ ;;
+ esac
+ done
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ _LT_AC_TAGVAR(archive_cmds, $1)=''
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+
+ if test "$GXX" = yes; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`${CC} -print-prog-name=collect2`
+ if test -f "$collect2name" && \
+ strings "$collect2name" | grep resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ else
+ # We have old collect2
+ _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=
+ fi
+ esac
+ shared_flag='-shared'
+ else
+ # not using gcc
+ if test "$host_cpu" = ia64; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test "$aix_use_runtimelinking" = yes; then
+ shared_flag='${wl}-G'
+ else
+ shared_flag='${wl}-bM:SRE'
+ fi
+ fi
+ fi
+
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ _LT_AC_TAGVAR(always_export_symbols, $1)=yes
+ if test "$aix_use_runtimelinking" = yes; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-berok'
+ # Determine the default libpath from the value encoded in an empty executable.
+ _LT_AC_SYS_LIBPATH_AIX
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
+
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag"
+ else
+ if test "$host_cpu" = ia64; then
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an empty executable.
+ _LT_AC_SYS_LIBPATH_AIX
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok'
+ # -bexpall does not export symbols beginning with underscore (_)
+ _LT_AC_TAGVAR(always_export_symbols, $1)=yes
+ # Exported symbols can be pulled into shared objects from archives
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=' '
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes
+ # This is similar to how AIX traditionally builds it's shared libraries.
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
+ fi
+ fi
+ ;;
+ chorus*)
+ case $cc_basename in
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+
+ cygwin* | mingw* | pw32*)
+ # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
+ # as there is no search path for DLLs.
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_AC_TAGVAR(always_export_symbols, $1)=no
+ _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+
+ if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib'
+ # If the export-symbols file already is a .def file (1st line
+ # is EXPORTS), use it as is; otherwise, prepend...
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib'
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ darwin* | rhapsody*)
+ if test "$GXX" = yes; then
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ case "$host_os" in
+ rhapsody* | darwin1.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined suppress'
+ ;;
+ *) # Darwin 1.3 on
+ if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ else
+ case ${MACOSX_DEPLOYMENT_TARGET} in
+ 10.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ ;;
+ 10.*)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined dynamic_lookup'
+ ;;
+ esac
+ fi
+ ;;
+ esac
+ lt_int_apple_cc_single_mod=no
+ output_verbose_link_cmd='echo'
+ if $CC -dumpspecs 2>&1 | grep 'single_module' >/dev/null ; then
+ lt_int_apple_cc_single_mod=yes
+ fi
+ if test "X$lt_int_apple_cc_single_mod" = Xyes ; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -r ${wl}-bind_at_load -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring'
+ fi
+ _LT_AC_TAGVAR(module_cmds, $1)='$CC ${wl}-bind_at_load $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags'
+
+ # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's
+ if test "X$lt_int_apple_cc_single_mod" = Xyes ; then
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ else
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -r ${wl}-bind_at_load -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ fi
+ _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_automatic, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-all_load $convenience'
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ dgux*)
+ case $cc_basename in
+ ec++)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ ghcx)
+ # Green Hills C++ Compiler
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+ freebsd[12]*)
+ # C++ shared libraries reported to be fairly broken before switch to ELF
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ freebsd-elf*)
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ ;;
+ freebsd* | kfreebsd*-gnu)
+ # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF
+ # conventions
+ _LT_AC_TAGVAR(ld_shlibs, $1)=yes
+ ;;
+ gnu*)
+ ;;
+ hpux9*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+
+ case $cc_basename in
+ CC)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aCC)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "[-]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+ ;;
+ *)
+ if test "$GXX" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
+ else
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+ hpux10*|hpux11*)
+ if test $with_gnu_ld = no; then
+ case "$host_cpu" in
+ hppa*64*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+ ia64*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ ;;
+ *)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
+ ;;
+ esac
+ fi
+ case "$host_cpu" in
+ hppa*64*)
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+ ia64*)
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+ ;;
+ *)
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
+ # but as the default
+ # location of the library.
+ ;;
+ esac
+
+ case $cc_basename in
+ CC)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ aCC)
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs'
+ ;;
+ *)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+ ;;
+ *)
+ if test "$GXX" = yes; then
+ if test $with_gnu_ld = no; then
+ case "$host_cpu" in
+ ia64*|hppa*64*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs'
+ ;;
+ *)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ ;;
+ esac
+ fi
+ else
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+ irix5* | irix6*)
+ case $cc_basename in
+ CC)
+ # SGI C++
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib'
+
+ # Archives containing C++ object files must be created using
+ # "CC -ar", where "CC" is the IRIX C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs'
+ ;;
+ *)
+ if test "$GXX" = yes; then
+ if test "$with_gnu_ld" = no; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib'
+ fi
+ fi
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+ esac
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+ linux*)
+ case $cc_basename in
+ KCC)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib'
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | grep "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath,$libdir'
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
+
+ # Archives containing C++ object files must be created using
+ # "CC -Bstatic", where "CC" is the KAI C++ compiler.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs'
+ ;;
+ icpc)
+ # Intel C++
+ with_gnu_ld=yes
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
+ ;;
+ cxx)
+ # Compaq C++
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols'
+
+ runpath_var=LD_RUN_PATH
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+ ;;
+ esac
+ ;;
+ lynxos*)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ m88k*)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ mvs*)
+ case $cc_basename in
+ cxx)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+ netbsd*)
+ if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags'
+ wlarc=
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ fi
+ # Workaround some broken pre-1.5 toolchains
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"'
+ ;;
+ osf3*)
+ case $cc_basename in
+ KCC)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Archives containing C++ object files must be created using
+ # "CC -Bstatic", where "CC" is the KAI C++ compiler.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs'
+
+ ;;
+ RCC)
+ # Rational C++ 2.4.1
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ cxx)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${objdir}/so_locations -o $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+ ;;
+ *)
+ if test "$GXX" = yes && test "$with_gnu_ld" = no; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"'
+
+ else
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+ osf4* | osf5*)
+ case $cc_basename in
+ KCC)
+ # Kuck and Associates, Inc. (KAI) C++ Compiler
+
+ # KCC will only create a shared library if the output file
+ # ends with ".so" (or ".sl" for HP-UX), so rename the library
+ # to its proper name (with version) after linking.
+ _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Archives containing C++ object files must be created using
+ # the KAI C++ compiler.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs'
+ ;;
+ RCC)
+ # Rational C++ 2.4.1
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ cxx)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~
+ echo "-hidden">> $lib.exp~
+ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname -Wl,-input -Wl,$lib.exp `test -n "$verstring" && echo -set_version $verstring` -update_registry $objdir/so_locations -o $lib~
+ $rm $lib.exp'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+ ;;
+ *)
+ if test "$GXX" = yes && test "$with_gnu_ld" = no; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${objdir}/so_locations -o $lib'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"'
+
+ else
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+ ;;
+ psos*)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ sco*)
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ case $cc_basename in
+ CC)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+ sunos4*)
+ case $cc_basename in
+ CC)
+ # Sun C++ 4.x
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ lcc)
+ # Lucid
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+ solaris*)
+ case $cc_basename in
+ CC)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' -zdefs'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -nolib -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $CC -G${allow_undefined_flag} -nolib ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp'
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ case $host_os in
+ solaris2.[0-5] | solaris2.[0-5].*) ;;
+ *)
+ # The C++ compiler is used as linker so we must use $wl
+ # flag to pass the commands to the underlying system
+ # linker.
+ # Supported since Solaris 2.6 (maybe 2.5.1?)
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
+ ;;
+ esac
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ #
+ # There doesn't appear to be a way to prevent this compiler from
+ # explicitly linking system object files so we need to strip them
+ # from the output so that they don't get included in the library
+ # dependencies.
+ output_verbose_link_cmd='templist=`$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep "\-[[LR]]"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list'
+
+ # Archives containing C++ object files must be created using
+ # "CC -xar", where "CC" is the Sun C++ compiler. This is
+ # necessary to make sure instantiated templates are included
+ # in the archive.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs'
+ ;;
+ gcx)
+ # Green Hills C++ Compiler
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
+
+ # The C++ compiler must be used to create the archive.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs'
+ ;;
+ *)
+ # GNU C++ compiler with Solaris linker
+ if test "$GXX" = yes && test "$with_gnu_ld" = no; then
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs'
+ if $CC --version | grep -v '^2\.7' > /dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $CC -shared -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd="$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\""
+ else
+ # g++ 2.7 appears to require `-G' NOT `-shared' on this
+ # platform.
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp'
+
+ # Commands to make compiler produce verbose output that lists
+ # what "hidden" libraries, object files and flags are used when
+ # linking a shared library.
+ output_verbose_link_cmd="$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\""
+ fi
+
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir'
+ fi
+ ;;
+ esac
+ ;;
+ sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7*)
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ ;;
+ tandem*)
+ case $cc_basename in
+ NCC)
+ # NonStop-UX NCC 3.20
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ ;;
+ vxworks*)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ *)
+ # FIXME: insert proper C++ library support
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+esac
+AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)])
+test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no
+
+_LT_AC_TAGVAR(GCC, $1)="$GXX"
+_LT_AC_TAGVAR(LD, $1)="$LD"
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+AC_LIBTOOL_POSTDEP_PREDEP($1)
+AC_LIBTOOL_PROG_COMPILER_PIC($1)
+AC_LIBTOOL_PROG_CC_C_O($1)
+AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1)
+AC_LIBTOOL_PROG_LD_SHLIBS($1)
+AC_LIBTOOL_SYS_DYNAMIC_LINKER($1)
+AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1)
+AC_LIBTOOL_SYS_LIB_STRIP
+AC_LIBTOOL_DLOPEN_SELF($1)
+
+AC_LIBTOOL_CONFIG($1)
+
+AC_LANG_POP
+CC=$lt_save_CC
+LDCXX=$LD
+LD=$lt_save_LD
+GCC=$lt_save_GCC
+with_gnu_ldcxx=$with_gnu_ld
+with_gnu_ld=$lt_save_with_gnu_ld
+lt_cv_path_LDCXX=$lt_cv_path_LD
+lt_cv_path_LD=$lt_save_path_LD
+lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld
+lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld
+])# AC_LIBTOOL_LANG_CXX_CONFIG
+
+# AC_LIBTOOL_POSTDEP_PREDEP([TAGNAME])
+# ------------------------
+# Figure out "hidden" library dependencies from verbose
+# compiler output when linking a shared library.
+# Parse the compiler output and extract the necessary
+# objects, libraries and library flags.
+AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP],[
+dnl we can't use the lt_simple_compile_test_code here,
+dnl because it contains code intended for an executable,
+dnl not a library. It's possible we should let each
+dnl tag define a new lt_????_link_test_code variable,
+dnl but it's only used here...
+ifelse([$1],[],[cat > conftest.$ac_ext <<EOF
+int a;
+void foo (void) { a = 0; }
+EOF
+],[$1],[CXX],[cat > conftest.$ac_ext <<EOF
+class Foo
+{
+public:
+ Foo (void) { a = 0; }
+private:
+ int a;
+};
+EOF
+],[$1],[F77],[cat > conftest.$ac_ext <<EOF
+ subroutine foo
+ implicit none
+ integer*4 a
+ a=0
+ return
+ end
+EOF
+],[$1],[GCJ],[cat > conftest.$ac_ext <<EOF
+public class foo {
+ private int a;
+ public void bar (void) {
+ a = 0;
+ }
+};
+EOF
+])
+dnl Parse the compiler output and extract the necessary
+dnl objects, libraries and library flags.
+if AC_TRY_EVAL(ac_compile); then
+ # Parse the compiler output and extract the necessary
+ # objects, libraries and library flags.
+
+ # Sentinel used to keep track of whether or not we are before
+ # the conftest object file.
+ pre_test_object_deps_done=no
+
+ # The `*' in the case matches for architectures that use `case' in
+ # $output_verbose_cmd can trigger glob expansion during the loop
+ # eval without this substitution.
+ output_verbose_link_cmd="`$echo \"X$output_verbose_link_cmd\" | $Xsed -e \"$no_glob_subst\"`"
+
+ for p in `eval $output_verbose_link_cmd`; do
+ case $p in
+
+ -L* | -R* | -l*)
+ # Some compilers place space between "-{L,R}" and the path.
+ # Remove the space.
+ if test $p = "-L" \
+ || test $p = "-R"; then
+ prev=$p
+ continue
+ else
+ prev=
+ fi
+
+ if test "$pre_test_object_deps_done" = no; then
+ case $p in
+ -L* | -R*)
+ # Internal compiler library paths should come after those
+ # provided the user. The postdeps already come after the
+ # user supplied libs so there is no need to process them.
+ if test -z "$_LT_AC_TAGVAR(compiler_lib_search_path, $1)"; then
+ _LT_AC_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}"
+ else
+ _LT_AC_TAGVAR(compiler_lib_search_path, $1)="${_LT_AC_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}"
+ fi
+ ;;
+ # The "-l" case would never come before the object being
+ # linked, so don't bother handling this case.
+ esac
+ else
+ if test -z "$_LT_AC_TAGVAR(postdeps, $1)"; then
+ _LT_AC_TAGVAR(postdeps, $1)="${prev}${p}"
+ else
+ _LT_AC_TAGVAR(postdeps, $1)="${_LT_AC_TAGVAR(postdeps, $1)} ${prev}${p}"
+ fi
+ fi
+ ;;
+
+ *.$objext)
+ # This assumes that the test object file only shows up
+ # once in the compiler output.
+ if test "$p" = "conftest.$objext"; then
+ pre_test_object_deps_done=yes
+ continue
+ fi
+
+ if test "$pre_test_object_deps_done" = no; then
+ if test -z "$_LT_AC_TAGVAR(predep_objects, $1)"; then
+ _LT_AC_TAGVAR(predep_objects, $1)="$p"
+ else
+ _LT_AC_TAGVAR(predep_objects, $1)="$_LT_AC_TAGVAR(predep_objects, $1) $p"
+ fi
+ else
+ if test -z "$_LT_AC_TAGVAR(postdep_objects, $1)"; then
+ _LT_AC_TAGVAR(postdep_objects, $1)="$p"
+ else
+ _LT_AC_TAGVAR(postdep_objects, $1)="$_LT_AC_TAGVAR(postdep_objects, $1) $p"
+ fi
+ fi
+ ;;
+
+ *) ;; # Ignore the rest.
+
+ esac
+ done
+
+ # Clean up.
+ rm -f a.out a.exe
+else
+ echo "libtool.m4: error: problem compiling $1 test program"
+fi
+
+$rm -f confest.$objext
+
+case " $_LT_AC_TAGVAR(postdeps, $1) " in
+*" -lc "*) _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no ;;
+esac
+])# AC_LIBTOOL_POSTDEP_PREDEP
+
+# AC_LIBTOOL_LANG_F77_CONFIG
+# ------------------------
+# Ensure that the configuration vars for the C compiler are
+# suitably defined. Those variables are subsequently used by
+# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'.
+AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG], [_LT_AC_LANG_F77_CONFIG(F77)])
+AC_DEFUN([_LT_AC_LANG_F77_CONFIG],
+[AC_REQUIRE([AC_PROG_F77])
+AC_LANG_PUSH(Fortran 77)
+
+_LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+_LT_AC_TAGVAR(allow_undefined_flag, $1)=
+_LT_AC_TAGVAR(always_export_symbols, $1)=no
+_LT_AC_TAGVAR(archive_expsym_cmds, $1)=
+_LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=
+_LT_AC_TAGVAR(hardcode_direct, $1)=no
+_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=
+_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
+_LT_AC_TAGVAR(hardcode_libdir_separator, $1)=
+_LT_AC_TAGVAR(hardcode_minus_L, $1)=no
+_LT_AC_TAGVAR(hardcode_automatic, $1)=no
+_LT_AC_TAGVAR(module_cmds, $1)=
+_LT_AC_TAGVAR(module_expsym_cmds, $1)=
+_LT_AC_TAGVAR(link_all_deplibs, $1)=unknown
+_LT_AC_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_AC_TAGVAR(no_undefined_flag, $1)=
+_LT_AC_TAGVAR(whole_archive_flag_spec, $1)=
+_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+
+# Source file extension for f77 test sources.
+ac_ext=f
+
+# Object file extension for compiled f77 test sources.
+objext=o
+_LT_AC_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code=" subroutine t\n return\n end\n"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code=" program t\n end\n"
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_AC_SYS_COMPILER
+
+# Allow CC to be a program name with arguments.
+lt_save_CC="$CC"
+CC=${F77-"f77"}
+compiler=$CC
+_LT_AC_TAGVAR(compiler, $1)=$CC
+cc_basename=`$echo X"$compiler" | $Xsed -e 's%^.*/%%'`
+
+AC_MSG_CHECKING([if libtool supports shared libraries])
+AC_MSG_RESULT([$can_build_shared])
+
+AC_MSG_CHECKING([whether to build shared libraries])
+test "$can_build_shared" = "no" && enable_shared=no
+
+# On AIX, shared libraries and static libraries use the same namespace, and
+# are all built from PIC.
+case "$host_os" in
+aix3*)
+ test "$enable_shared" = yes && enable_static=no
+ if test -n "$RANLIB"; then
+ archive_cmds="$archive_cmds~\$RANLIB \$lib"
+ postinstall_cmds='$RANLIB $lib'
+ fi
+ ;;
+aix4* | aix5*)
+ test "$enable_shared" = yes && enable_static=no
+ ;;
+esac
+AC_MSG_RESULT([$enable_shared])
+
+AC_MSG_CHECKING([whether to build static libraries])
+# Make sure either enable_shared or enable_static is yes.
+test "$enable_shared" = yes || enable_static=yes
+AC_MSG_RESULT([$enable_static])
+
+test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no
+
+_LT_AC_TAGVAR(GCC, $1)="$G77"
+_LT_AC_TAGVAR(LD, $1)="$LD"
+
+AC_LIBTOOL_PROG_COMPILER_PIC($1)
+AC_LIBTOOL_PROG_CC_C_O($1)
+AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1)
+AC_LIBTOOL_PROG_LD_SHLIBS($1)
+AC_LIBTOOL_SYS_DYNAMIC_LINKER($1)
+AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1)
+AC_LIBTOOL_SYS_LIB_STRIP
+
+
+AC_LIBTOOL_CONFIG($1)
+
+AC_LANG_POP
+CC="$lt_save_CC"
+])# AC_LIBTOOL_LANG_F77_CONFIG
+
+
+# AC_LIBTOOL_LANG_GCJ_CONFIG
+# --------------------------
+# Ensure that the configuration vars for the C compiler are
+# suitably defined. Those variables are subsequently used by
+# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'.
+AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG], [_LT_AC_LANG_GCJ_CONFIG(GCJ)])
+AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG],
+[AC_LANG_SAVE
+
+# Source file extension for Java test sources.
+ac_ext=java
+
+# Object file extension for compiled Java test sources.
+objext=o
+_LT_AC_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="class foo {}\n"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='public class conftest { public static void main(String[] argv) {}; }\n'
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_AC_SYS_COMPILER
+
+# Allow CC to be a program name with arguments.
+lt_save_CC="$CC"
+CC=${GCJ-"gcj"}
+compiler=$CC
+_LT_AC_TAGVAR(compiler, $1)=$CC
+
+# GCJ did not exist at the time GCC didn't implicitly link libc in.
+_LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+AC_LIBTOOL_PROG_COMPILER_NO_RTTI($1)
+AC_LIBTOOL_PROG_COMPILER_PIC($1)
+AC_LIBTOOL_PROG_CC_C_O($1)
+AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1)
+AC_LIBTOOL_PROG_LD_SHLIBS($1)
+AC_LIBTOOL_SYS_DYNAMIC_LINKER($1)
+AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1)
+AC_LIBTOOL_SYS_LIB_STRIP
+AC_LIBTOOL_DLOPEN_SELF($1)
+
+AC_LIBTOOL_CONFIG($1)
+
+AC_LANG_RESTORE
+CC="$lt_save_CC"
+])# AC_LIBTOOL_LANG_GCJ_CONFIG
+
+
+# AC_LIBTOOL_LANG_RC_CONFIG
+# --------------------------
+# Ensure that the configuration vars for the Windows resource compiler are
+# suitably defined. Those variables are subsequently used by
+# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'.
+AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG], [_LT_AC_LANG_RC_CONFIG(RC)])
+AC_DEFUN([_LT_AC_LANG_RC_CONFIG],
+[AC_LANG_SAVE
+
+# Source file extension for RC test sources.
+ac_ext=rc
+
+# Object file extension for compiled RC test sources.
+objext=o
+_LT_AC_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }\n'
+
+# Code to be used in simple link tests
+lt_simple_link_test_code="$lt_simple_compile_test_code"
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_AC_SYS_COMPILER
+
+# Allow CC to be a program name with arguments.
+lt_save_CC="$CC"
+CC=${RC-"windres"}
+compiler=$CC
+_LT_AC_TAGVAR(compiler, $1)=$CC
+_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
+
+AC_LIBTOOL_CONFIG($1)
+
+AC_LANG_RESTORE
+CC="$lt_save_CC"
+])# AC_LIBTOOL_LANG_RC_CONFIG
+
+
+# AC_LIBTOOL_CONFIG([TAGNAME])
+# ----------------------------
+# If TAGNAME is not passed, then create an initial libtool script
+# with a default configuration from the untagged config vars. Otherwise
+# add code to config.status for appending the configuration named by
+# TAGNAME from the matching tagged config vars.
+AC_DEFUN([AC_LIBTOOL_CONFIG],
+[# The else clause should only fire when bootstrapping the
+# libtool distribution, otherwise you forgot to ship ltmain.sh
+# with your package, and you will get complaints that there are
+# no rules to generate ltmain.sh.
+if test -f "$ltmain"; then
+ # See if we are running on zsh, and set the options which allow our commands through
+ # without removal of \ escapes.
+ if test -n "${ZSH_VERSION+set}" ; then
+ setopt NO_GLOB_SUBST
+ fi
+ # Now quote all the things that may contain metacharacters while being
+ # careful not to overquote the AC_SUBSTed values. We take copies of the
+ # variables and quote the copies for generation of the libtool script.
+ for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \
+ SED SHELL STRIP \
+ libname_spec library_names_spec soname_spec extract_expsyms_cmds \
+ old_striplib striplib file_magic_cmd finish_cmds finish_eval \
+ deplibs_check_method reload_flag reload_cmds need_locks \
+ lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \
+ lt_cv_sys_global_symbol_to_c_name_address \
+ sys_lib_search_path_spec sys_lib_dlsearch_path_spec \
+ old_postinstall_cmds old_postuninstall_cmds \
+ _LT_AC_TAGVAR(compiler, $1) \
+ _LT_AC_TAGVAR(CC, $1) \
+ _LT_AC_TAGVAR(LD, $1) \
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1) \
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1) \
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1) \
+ _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) \
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1) \
+ _LT_AC_TAGVAR(thread_safe_flag_spec, $1) \
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1) \
+ _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1) \
+ _LT_AC_TAGVAR(old_archive_cmds, $1) \
+ _LT_AC_TAGVAR(old_archive_from_new_cmds, $1) \
+ _LT_AC_TAGVAR(predep_objects, $1) \
+ _LT_AC_TAGVAR(postdep_objects, $1) \
+ _LT_AC_TAGVAR(predeps, $1) \
+ _LT_AC_TAGVAR(postdeps, $1) \
+ _LT_AC_TAGVAR(compiler_lib_search_path, $1) \
+ _LT_AC_TAGVAR(archive_cmds, $1) \
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1) \
+ _LT_AC_TAGVAR(postinstall_cmds, $1) \
+ _LT_AC_TAGVAR(postuninstall_cmds, $1) \
+ _LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1) \
+ _LT_AC_TAGVAR(allow_undefined_flag, $1) \
+ _LT_AC_TAGVAR(no_undefined_flag, $1) \
+ _LT_AC_TAGVAR(export_symbols_cmds, $1) \
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) \
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1) \
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1) \
+ _LT_AC_TAGVAR(hardcode_automatic, $1) \
+ _LT_AC_TAGVAR(module_cmds, $1) \
+ _LT_AC_TAGVAR(module_expsym_cmds, $1) \
+ _LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1) \
+ _LT_AC_TAGVAR(exclude_expsyms, $1) \
+ _LT_AC_TAGVAR(include_expsyms, $1); do
+
+ case $var in
+ _LT_AC_TAGVAR(old_archive_cmds, $1) | \
+ _LT_AC_TAGVAR(old_archive_from_new_cmds, $1) | \
+ _LT_AC_TAGVAR(archive_cmds, $1) | \
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1) | \
+ _LT_AC_TAGVAR(module_cmds, $1) | \
+ _LT_AC_TAGVAR(module_expsym_cmds, $1) | \
+ _LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1) | \
+ _LT_AC_TAGVAR(export_symbols_cmds, $1) | \
+ extract_expsyms_cmds | reload_cmds | finish_cmds | \
+ postinstall_cmds | postuninstall_cmds | \
+ old_postinstall_cmds | old_postuninstall_cmds | \
+ sys_lib_search_path_spec | sys_lib_dlsearch_path_spec)
+ # Double-quote double-evaled strings.
+ eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\""
+ ;;
+ *)
+ eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\""
+ ;;
+ esac
+ done
+
+ case $lt_echo in
+ *'\[$]0 --fallback-echo"')
+ lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\[$]0 --fallback-echo"[$]/[$]0 --fallback-echo"/'`
+ ;;
+ esac
+
+ifelse([$1], [],
+ [cfgfile="${ofile}T"
+ trap "$rm \"$cfgfile\"; exit 1" 1 2 15
+ $rm -f "$cfgfile"
+ AC_MSG_NOTICE([creating $ofile])],
+ [cfgfile="$ofile"])
+
+ cat <<__EOF__ >> "$cfgfile"
+ifelse([$1], [],
+[#! $SHELL
+
+# `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services.
+# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP)
+# NOTE: Changes made to this file will be lost: look at ltmain.sh.
+#
+# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+# Free Software Foundation, Inc.
+#
+# This file is part of GNU Libtool:
+# Originally by Gordon Matzigkeit <gord at gnu.ai.mit.edu>, 1996
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# A sed program that does not truncate output.
+SED=$lt_SED
+
+# Sed that helps us avoid accidentally triggering echo(1) options like -n.
+Xsed="$SED -e s/^X//"
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+if test "X\${CDPATH+set}" = Xset; then CDPATH=:; export CDPATH; fi
+
+# The names of the tagged configurations supported by this script.
+available_tags=
+
+# ### BEGIN LIBTOOL CONFIG],
+[# ### BEGIN LIBTOOL TAG CONFIG: $tagname])
+
+# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
+
+# Shell to use when invoking shell scripts.
+SHELL=$lt_SHELL
+
+# Whether or not to build shared libraries.
+build_libtool_libs=$enable_shared
+
+# Whether or not to build static libraries.
+build_old_libs=$enable_static
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)
+
+# Whether or not to disallow shared libs when runtime libs are static
+allow_libtool_libs_with_static_runtimes=$_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)
+
+# Whether or not to optimize for fast installation.
+fast_install=$enable_fast_install
+
+# The host system.
+host_alias=$host_alias
+host=$host
+
+# An echo program that does not interpret backslashes.
+echo=$lt_echo
+
+# The archiver.
+AR=$lt_AR
+AR_FLAGS=$lt_AR_FLAGS
+
+# A C compiler.
+LTCC=$lt_LTCC
+
+# A language-specific compiler.
+CC=$lt_[]_LT_AC_TAGVAR(compiler, $1)
+
+# Is the compiler the GNU C compiler?
+with_gcc=$_LT_AC_TAGVAR(GCC, $1)
+
+# An ERE matcher.
+EGREP=$lt_EGREP
+
+# The linker used to build libraries.
+LD=$lt_[]_LT_AC_TAGVAR(LD, $1)
+
+# Whether we need hard or soft links.
+LN_S=$lt_LN_S
+
+# A BSD-compatible nm program.
+NM=$lt_NM
+
+# A symbol stripping program
+STRIP=$lt_STRIP
+
+# Used to examine libraries when file_magic_cmd begins "file"
+MAGIC_CMD=$MAGIC_CMD
+
+# Used on cygwin: DLL creation program.
+DLLTOOL="$DLLTOOL"
+
+# Used on cygwin: object dumper.
+OBJDUMP="$OBJDUMP"
+
+# Used on cygwin: assembler.
+AS="$AS"
+
+# The name of the directory that contains temporary libtool files.
+objdir=$objdir
+
+# How to create reloadable object files.
+reload_flag=$lt_reload_flag
+reload_cmds=$lt_reload_cmds
+
+# How to pass a linker flag through the compiler.
+wl=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_wl, $1)
+
+# Object file suffix (normally "o").
+objext="$ac_objext"
+
+# Old archive suffix (normally "a").
+libext="$libext"
+
+# Shared library suffix (normally ".so").
+shrext_cmds='$shrext_cmds'
+
+# Executable file suffix (normally "").
+exeext="$exeext"
+
+# Additional compiler flags for building library objects.
+pic_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)
+pic_mode=$pic_mode
+
+# What is the maximum length of a command?
+max_cmd_len=$lt_cv_sys_max_cmd_len
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o=$lt_[]_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)
+
+# Must we lock files when doing compilation ?
+need_locks=$lt_need_locks
+
+# Do we need the lib prefix for modules?
+need_lib_prefix=$need_lib_prefix
+
+# Do we need a version for libraries?
+need_version=$need_version
+
+# Whether dlopen is supported.
+dlopen_support=$enable_dlopen
+
+# Whether dlopen of programs is supported.
+dlopen_self=$enable_dlopen_self
+
+# Whether dlopen of statically linked programs is supported.
+dlopen_self_static=$enable_dlopen_self_static
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_static, $1)
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec=$lt_[]_LT_AC_TAGVAR(export_dynamic_flag_spec, $1)
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec=$lt_[]_LT_AC_TAGVAR(whole_archive_flag_spec, $1)
+
+# Compiler flag to generate thread-safe objects.
+thread_safe_flag_spec=$lt_[]_LT_AC_TAGVAR(thread_safe_flag_spec, $1)
+
+# Library versioning type.
+version_type=$version_type
+
+# Format of library name prefix.
+libname_spec=$lt_libname_spec
+
+# List of archive names. First name is the real one, the rest are links.
+# The last name is the one that the linker finds with -lNAME.
+library_names_spec=$lt_library_names_spec
+
+# The coded name of the library, if different from the real name.
+soname_spec=$lt_soname_spec
+
+# Commands used to build and install an old-style archive.
+RANLIB=$lt_RANLIB
+old_archive_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_cmds, $1)
+old_postinstall_cmds=$lt_old_postinstall_cmds
+old_postuninstall_cmds=$lt_old_postuninstall_cmds
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_new_cmds, $1)
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1)
+
+# Commands used to build and install a shared archive.
+archive_cmds=$lt_[]_LT_AC_TAGVAR(archive_cmds, $1)
+archive_expsym_cmds=$lt_[]_LT_AC_TAGVAR(archive_expsym_cmds, $1)
+postinstall_cmds=$lt_postinstall_cmds
+postuninstall_cmds=$lt_postuninstall_cmds
+
+# Commands used to build a loadable module (assumed same as above if empty)
+module_cmds=$lt_[]_LT_AC_TAGVAR(module_cmds, $1)
+module_expsym_cmds=$lt_[]_LT_AC_TAGVAR(module_expsym_cmds, $1)
+
+# Commands to strip libraries.
+old_striplib=$lt_old_striplib
+striplib=$lt_striplib
+
+# Dependencies to place before the objects being linked to create a
+# shared library.
+predep_objects=$lt_[]_LT_AC_TAGVAR(predep_objects, $1)
+
+# Dependencies to place after the objects being linked to create a
+# shared library.
+postdep_objects=$lt_[]_LT_AC_TAGVAR(postdep_objects, $1)
+
+# Dependencies to place before the objects being linked to create a
+# shared library.
+predeps=$lt_[]_LT_AC_TAGVAR(predeps, $1)
+
+# Dependencies to place after the objects being linked to create a
+# shared library.
+postdeps=$lt_[]_LT_AC_TAGVAR(postdeps, $1)
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=$lt_[]_LT_AC_TAGVAR(compiler_lib_search_path, $1)
+
+# Method to check whether dependent libraries are shared objects.
+deplibs_check_method=$lt_deplibs_check_method
+
+# Command to use when deplibs_check_method == file_magic.
+file_magic_cmd=$lt_file_magic_cmd
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=$lt_[]_LT_AC_TAGVAR(allow_undefined_flag, $1)
+
+# Flag that forces no undefined symbols.
+no_undefined_flag=$lt_[]_LT_AC_TAGVAR(no_undefined_flag, $1)
+
+# Commands used to finish a libtool library installation in a directory.
+finish_cmds=$lt_finish_cmds
+
+# Same as above, but a single script fragment to be evaled but not shown.
+finish_eval=$lt_finish_eval
+
+# Take the output of nm and produce a listing of raw symbols and C names.
+global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
+
+# Transform the output of nm in a proper C declaration
+global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
+
+# Transform the output of nm in a C name address pair
+global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
+
+# This is the shared library runtime path variable.
+runpath_var=$runpath_var
+
+# This is the shared library path variable.
+shlibpath_var=$shlibpath_var
+
+# Is shlibpath searched before the hard-coded library search path?
+shlibpath_overrides_runpath=$shlibpath_overrides_runpath
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=$_LT_AC_TAGVAR(hardcode_action, $1)
+
+# Whether we should hardcode library paths into libraries.
+hardcode_into_libs=$hardcode_into_libs
+
+# Flag to hardcode \$libdir into a binary during linking.
+# This must work even if \$libdir does not exist.
+hardcode_libdir_flag_spec=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)
+
+# If ld is used when linking, flag to hardcode \$libdir into
+# a binary during linking. This must work even if \$libdir does
+# not exist.
+hardcode_libdir_flag_spec_ld=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)
+
+# Whether we need a single -rpath flag with a separated argument.
+hardcode_libdir_separator=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_separator, $1)
+
+# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the
+# resulting binary.
+hardcode_direct=$_LT_AC_TAGVAR(hardcode_direct, $1)
+
+# Set to yes if using the -LDIR flag during linking hardcodes DIR into the
+# resulting binary.
+hardcode_minus_L=$_LT_AC_TAGVAR(hardcode_minus_L, $1)
+
+# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into
+# the resulting binary.
+hardcode_shlibpath_var=$_LT_AC_TAGVAR(hardcode_shlibpath_var, $1)
+
+# Set to yes if building a shared library automatically hardcodes DIR into the library
+# and all subsequent libraries and executables linked against it.
+hardcode_automatic=$_LT_AC_TAGVAR(hardcode_automatic, $1)
+
+# Variables whose values should be saved in libtool wrapper scripts and
+# restored at relink time.
+variables_saved_for_relink="$variables_saved_for_relink"
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=$_LT_AC_TAGVAR(link_all_deplibs, $1)
+
+# Compile-time system search path for libraries
+sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
+
+# Run-time system search path for libraries
+sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec
+
+# Fix the shell variable \$srcfile for the compiler.
+fix_srcfile_path="$_LT_AC_TAGVAR(fix_srcfile_path, $1)"
+
+# Set to yes if exported symbols are required.
+always_export_symbols=$_LT_AC_TAGVAR(always_export_symbols, $1)
+
+# The commands to list exported symbols.
+export_symbols_cmds=$lt_[]_LT_AC_TAGVAR(export_symbols_cmds, $1)
+
+# The commands to extract the exported symbol list from a shared archive.
+extract_expsyms_cmds=$lt_extract_expsyms_cmds
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms=$lt_[]_LT_AC_TAGVAR(exclude_expsyms, $1)
+
+# Symbols that must always be exported.
+include_expsyms=$lt_[]_LT_AC_TAGVAR(include_expsyms, $1)
+
+ifelse([$1],[],
+[# ### END LIBTOOL CONFIG],
+[# ### END LIBTOOL TAG CONFIG: $tagname])
+
+__EOF__
+
+ifelse([$1],[], [
+ case $host_os in
+ aix3*)
+ cat <<\EOF >> "$cfgfile"
+
+# AIX sometimes has problems with the GCC collect2 program. For some
+# reason, if we set the COLLECT_NAMES environment variable, the problems
+# vanish in a puff of smoke.
+if test "X${COLLECT_NAMES+set}" != Xset; then
+ COLLECT_NAMES=
+ export COLLECT_NAMES
+fi
+EOF
+ ;;
+ esac
+
+ # We use sed instead of cat because bash on DJGPP gets confused if
+ # if finds mixed CR/LF and LF-only lines. Since sed operates in
+ # text mode, it properly converts lines to CR/LF. This bash problem
+ # is reportedly fixed, but why not run on old versions too?
+ sed '$q' "$ltmain" >> "$cfgfile" || (rm -f "$cfgfile"; exit 1)
+
+ mv -f "$cfgfile" "$ofile" || \
+ (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
+ chmod +x "$ofile"
+])
+else
+ # If there is no Makefile yet, we rely on a make rule to execute
+ # `config.status --recheck' to rerun these tests and create the
+ # libtool script then.
+ ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'`
+ if test -f "$ltmain_in"; then
+ test -f Makefile && make "$ltmain"
+ fi
+fi
+])# AC_LIBTOOL_CONFIG
+
+
+# AC_LIBTOOL_PROG_COMPILER_NO_RTTI([TAGNAME])
+# -------------------------------------------
+AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI],
+[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl
+
+_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
+
+if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin'
+
+ AC_LIBTOOL_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions],
+ lt_cv_prog_compiler_rtti_exceptions,
+ [-fno-rtti -fno-exceptions], [],
+ [_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"])
+fi
+])# AC_LIBTOOL_PROG_COMPILER_NO_RTTI
+
+
+# AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE
+# ---------------------------------
+AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE],
+[AC_REQUIRE([AC_CANONICAL_HOST])
+AC_REQUIRE([AC_PROG_NM])
+AC_REQUIRE([AC_OBJEXT])
+# Check for command to grab the raw symbol name followed by C symbol from nm.
+AC_MSG_CHECKING([command to parse $NM output from $compiler object])
+AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe],
+[
+# These are sane defaults that work on at least a few old systems.
+# [They come from Ultrix. What could be older than Ultrix?!! ;)]
+
+# Character class describing NM global symbol codes.
+symcode='[[BCDEGRST]]'
+
+# Regexp to match symbols that can be accessed directly from C.
+sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)'
+
+# Transform the above into a raw symbol and a C symbol.
+symxfrm='\1 \2\3 \3'
+
+# Transform an extracted symbol line into a proper C declaration
+lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \1;/p'"
+
+# Transform an extracted symbol line into symbol name and symbol address
+lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'"
+
+# Define system-specific variables.
+case $host_os in
+aix*)
+ symcode='[[BCDT]]'
+ ;;
+cygwin* | mingw* | pw32*)
+ symcode='[[ABCDGISTW]]'
+ ;;
+hpux*) # Its linker distinguishes data from code symbols
+ if test "$host_cpu" = ia64; then
+ symcode='[[ABCDEGRST]]'
+ fi
+ lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'"
+ lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'"
+ ;;
+irix* | nonstopux*)
+ symcode='[[BCDEGRST]]'
+ ;;
+osf*)
+ symcode='[[BCDEGQRST]]'
+ ;;
+solaris* | sysv5*)
+ symcode='[[BDRT]]'
+ ;;
+sysv4)
+ symcode='[[DFNSTU]]'
+ ;;
+esac
+
+# Handle CRLF in mingw tool chain
+opt_cr=
+case $build_os in
+mingw*)
+ opt_cr=`echo 'x\{0,1\}' | tr x '\015'` # option cr in regexp
+ ;;
+esac
+
+# If we're using GNU nm, then use its standard symbol codes.
+case `$NM -V 2>&1` in
+*GNU* | *'with BFD'*)
+ symcode='[[ABCDGIRSTW]]' ;;
+esac
+
+# Try without a prefix undercore, then with it.
+for ac_symprfx in "" "_"; do
+
+ # Write the raw and C identifiers.
+ lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*\($ac_symprfx\)$sympat$opt_cr$/$symxfrm/p'"
+
+ # Check to see that the pipe works correctly.
+ pipe_works=no
+
+ rm -f conftest*
+ cat > conftest.$ac_ext <<EOF
+#ifdef __cplusplus
+extern "C" {
+#endif
+char nm_test_var;
+void nm_test_func(){}
+#ifdef __cplusplus
+}
+#endif
+int main(){nm_test_var='a';nm_test_func();return(0);}
+EOF
+
+ if AC_TRY_EVAL(ac_compile); then
+ # Now try to grab the symbols.
+ nlist=conftest.nm
+ if AC_TRY_EVAL(NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist) && test -s "$nlist"; then
+ # Try sorting and uniquifying the output.
+ if sort "$nlist" | uniq > "$nlist"T; then
+ mv -f "$nlist"T "$nlist"
+ else
+ rm -f "$nlist"T
+ fi
+
+ # Make sure that we snagged all the symbols we need.
+ if grep ' nm_test_var$' "$nlist" >/dev/null; then
+ if grep ' nm_test_func$' "$nlist" >/dev/null; then
+ cat <<EOF > conftest.$ac_ext
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+EOF
+ # Now generate the symbol file.
+ eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext'
+
+ cat <<EOF >> conftest.$ac_ext
+#if defined (__STDC__) && __STDC__
+# define lt_ptr_t void *
+#else
+# define lt_ptr_t char *
+# define const
+#endif
+
+/* The mapping between symbol names and symbols. */
+const struct {
+ const char *name;
+ lt_ptr_t address;
+}
+lt_preloaded_symbols[[]] =
+{
+EOF
+ $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext
+ cat <<\EOF >> conftest.$ac_ext
+ {0, (lt_ptr_t) 0}
+};
+
+#ifdef __cplusplus
+}
+#endif
+EOF
+ # Now try linking the two files.
+ mv conftest.$ac_objext conftstm.$ac_objext
+ lt_save_LIBS="$LIBS"
+ lt_save_CFLAGS="$CFLAGS"
+ LIBS="conftstm.$ac_objext"
+ CFLAGS="$CFLAGS$_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)"
+ if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then
+ pipe_works=yes
+ fi
+ LIBS="$lt_save_LIBS"
+ CFLAGS="$lt_save_CFLAGS"
+ else
+ echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD
+ fi
+ else
+ echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD
+ cat conftest.$ac_ext >&5
+ fi
+ rm -f conftest* conftst*
+
+ # Do not use the global_symbol_pipe unless it works.
+ if test "$pipe_works" = yes; then
+ break
+ else
+ lt_cv_sys_global_symbol_pipe=
+ fi
+done
+])
+if test -z "$lt_cv_sys_global_symbol_pipe"; then
+ lt_cv_sys_global_symbol_to_cdecl=
+fi
+if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
+ AC_MSG_RESULT(failed)
+else
+ AC_MSG_RESULT(ok)
+fi
+]) # AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE
+
+
+# AC_LIBTOOL_PROG_COMPILER_PIC([TAGNAME])
+# ---------------------------------------
+AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC],
+[_LT_AC_TAGVAR(lt_prog_compiler_wl, $1)=
+_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+_LT_AC_TAGVAR(lt_prog_compiler_static, $1)=
+
+AC_MSG_CHECKING([for $compiler option to produce PIC])
+ ifelse([$1],[CXX],[
+ # C++ specific cases for pic, static, wl, etc.
+ if test "$GXX" = yes; then
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test "$host_cpu" = ia64; then
+ # AIX 5 now supports IA64 processor
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ ;;
+ amigaos*)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the `-m68020' flag to GCC prevents building anything better,
+ # like `-m68040'.
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
+ ;;
+ beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+ mingw* | os2* | pw32*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'
+ ;;
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
+ ;;
+ *djgpp*)
+ # DJGPP does not support shared libraries at all
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+ ;;
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
+ fi
+ ;;
+ hpux*)
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ else
+ case $host_os in
+ aix4* | aix5*)
+ # All AIX code is PIC.
+ if test "$host_cpu" = ia64; then
+ # AIX 5 now supports IA64 processor
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ else
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+ chorus*)
+ case $cc_basename in
+ cxch68)
+ # Green Hills C++ Compiler
+ # _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a"
+ ;;
+ esac
+ ;;
+ dgux*)
+ case $cc_basename in
+ ec++)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ ;;
+ ghcx)
+ # Green Hills C++ Compiler
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ freebsd* | kfreebsd*-gnu)
+ # FreeBSD uses GNU C++
+ ;;
+ hpux9* | hpux10* | hpux11*)
+ case $cc_basename in
+ CC)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive"
+ if test "$host_cpu" != ia64; then
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ fi
+ ;;
+ aCC)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive"
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ ;;
+ esac
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ irix5* | irix6* | nonstopux*)
+ case $cc_basename in
+ CC)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ # CC pic flag -KPIC is the default.
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ linux*)
+ case $cc_basename in
+ KCC)
+ # KAI C++ Compiler
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ icpc)
+ # Intel C++
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ cxx)
+ # Compaq C++
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ lynxos*)
+ ;;
+ m88k*)
+ ;;
+ mvs*)
+ case $cc_basename in
+ cxx)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ netbsd*)
+ ;;
+ osf3* | osf4* | osf5*)
+ case $cc_basename in
+ KCC)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
+ ;;
+ RCC)
+ # Rational C++ 2.4.1
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ cxx)
+ # Digital/Compaq C++
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # Make sure the PIC flag is empty. It appears that all Alpha
+ # Linux and Compaq Tru64 Unix objects are PIC.
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ psos*)
+ ;;
+ sco*)
+ case $cc_basename in
+ CC)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ solaris*)
+ case $cc_basename in
+ CC)
+ # Sun C++ 4.2, 5.x and Centerline C++
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ ;;
+ gcx)
+ # Green Hills C++ Compiler
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ sunos4*)
+ case $cc_basename in
+ CC)
+ # Sun C++ 4.x
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+ lcc)
+ # Lucid
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ tandem*)
+ case $cc_basename in
+ NCC)
+ # NonStop-UX NCC 3.20
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ ;;
+ *)
+ ;;
+ esac
+ ;;
+ unixware*)
+ ;;
+ vxworks*)
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ ;;
+ esac
+ fi
+],
+[
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static'
+
+ case $host_os in
+ aix*)
+ # All AIX code is PIC.
+ if test "$host_cpu" = ia64; then
+ # AIX 5 now supports IA64 processor
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ ;;
+
+ amigaos*)
+ # FIXME: we need at least 68020 code to build shared libraries, but
+ # adding the `-m68020' flag to GCC prevents building anything better,
+ # like `-m68040'.
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
+ ;;
+
+ beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
+ # PIC is the default for these OSes.
+ ;;
+
+ mingw* | pw32* | os2*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'
+ ;;
+
+ darwin* | rhapsody*)
+ # PIC is the default on this platform
+ # Common symbols not allowed in MH_DYLIB files
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
+ ;;
+
+ msdosdjgpp*)
+ # Just because we use GCC doesn't mean we suddenly get shared libraries
+ # on systems that don't support them.
+ _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ enable_shared=no
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
+ fi
+ ;;
+
+ hpux*)
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ ;;
+
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ ;;
+ esac
+ else
+ # PORTME Check for flag to pass linker flags through the system compiler.
+ case $host_os in
+ aix*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ if test "$host_cpu" = ia64; then
+ # AIX 5 now supports IA64 processor
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ else
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
+ fi
+ ;;
+
+ mingw* | pw32* | os2*)
+ # This hack is so that the source file can tell whether it is being
+ # built for inclusion in a dll (and should export symbols for example).
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'
+ ;;
+
+ hpux9* | hpux10* | hpux11*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
+ # not for PA HP-UX.
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ # +Z the default
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
+ ;;
+ esac
+ # Is there a better lt_prog_compiler_static that works with the bundled CC?
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive'
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # PIC (with -KPIC) is the default.
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+
+ newsos6)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ linux*)
+ case $CC in
+ icc* | ecc*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ ccc*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # All Alpha code is PIC.
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+ esac
+ ;;
+
+ osf3* | osf4* | osf5*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ # All OSF/1 code is PIC.
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
+ ;;
+
+ sco3.2v5*)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-Kpic'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-dn'
+ ;;
+
+ solaris*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ sunos4*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
+ _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec ;then
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ fi
+ ;;
+
+ uts4*)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
+ _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
+
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
+ ;;
+ esac
+ fi
+])
+AC_MSG_RESULT([$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)])
+
+#
+# Check to make sure the PIC flag actually works.
+#
+if test -n "$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)"; then
+ AC_LIBTOOL_COMPILER_OPTION([if $compiler PIC flag $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) works],
+ _LT_AC_TAGVAR(lt_prog_compiler_pic_works, $1),
+ [$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])], [],
+ [case $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) in
+ "" | " "*) ;;
+ *) _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)" ;;
+ esac],
+ [_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+ _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no])
+fi
+case "$host_os" in
+ # For platforms which do not support PIC, -DPIC is meaningless:
+ *djgpp*)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=
+ ;;
+ *)
+ _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])"
+ ;;
+esac
+])
+
+
+# AC_LIBTOOL_PROG_LD_SHLIBS([TAGNAME])
+# ------------------------------------
+# See if the linker supports building shared libraries.
+AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS],
+[AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
+ifelse([$1],[CXX],[
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ case $host_os in
+ aix4* | aix5*)
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to AIX nm, but means don't demangle with GNU nm
+ if $NM -V 2>&1 | grep 'GNU' > /dev/null; then
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols'
+ else
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols'
+ fi
+ ;;
+ pw32*)
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds"
+ ;;
+ cygwin* | mingw*)
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGS]] /s/.* \([[^ ]]*\)/\1 DATA/'\'' | $SED -e '\''/^[[AITW]] /s/.* //'\'' | sort | uniq > $export_symbols'
+ ;;
+ *)
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ ;;
+ esac
+],[
+ runpath_var=
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=
+ _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no
+ _LT_AC_TAGVAR(archive_cmds, $1)=
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)=
+ _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)=
+ _LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1)=
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=
+ _LT_AC_TAGVAR(thread_safe_flag_spec, $1)=
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=unknown
+ _LT_AC_TAGVAR(hardcode_automatic, $1)=no
+ _LT_AC_TAGVAR(module_cmds, $1)=
+ _LT_AC_TAGVAR(module_expsym_cmds, $1)=
+ _LT_AC_TAGVAR(always_export_symbols, $1)=no
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
+ # include_expsyms should be a list of space-separated symbols to be *always*
+ # included in the symbol list
+ _LT_AC_TAGVAR(include_expsyms, $1)=
+ # exclude_expsyms can be an extended regexp of symbols to exclude
+ # it will be wrapped by ` (' and `)$', so one must not match beginning or
+ # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
+ # as well as any symbol that contains `d'.
+ _LT_AC_TAGVAR(exclude_expsyms, $1)="_GLOBAL_OFFSET_TABLE_"
+ # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
+ # platforms (ab)use it in PIC code, but their linkers get confused if
+ # the symbol is explicitly referenced. Since portable code cannot
+ # rely on this symbol name, it's probably fine to never include it in
+ # preloaded symbol tables.
+ extract_expsyms_cmds=
+
+ case $host_os in
+ cygwin* | mingw* | pw32*)
+ # FIXME: the MSVC++ port hasn't been tested in a loooong time
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ if test "$GCC" != yes; then
+ with_gnu_ld=no
+ fi
+ ;;
+ openbsd*)
+ with_gnu_ld=no
+ ;;
+ esac
+
+ _LT_AC_TAGVAR(ld_shlibs, $1)=yes
+ if test "$with_gnu_ld" = yes; then
+ # If archive_cmds runs LD, not CC, wlarc should be empty
+ wlarc='${wl}'
+
+ # See if GNU ld supports shared libraries.
+ case $host_os in
+ aix3* | aix4* | aix5*)
+ # On AIX/PPC, the GNU linker is very broken
+ if test "$host_cpu" != ia64; then
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ cat <<EOF 1>&2
+
+*** Warning: the GNU linker, at least up to release 2.9.1, is reported
+*** to be unable to reliably create shared libraries on AIX.
+*** Therefore, libtool is disabling shared libraries support. If you
+*** really care for shared libraries, you may want to modify your PATH
+*** so that a non-GNU linker is found, and then restart.
+
+EOF
+ fi
+ ;;
+
+ amigaos*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+
+ # Samuel A. Falvo II <kc5tja at dolphin.openprojects.net> reports
+ # that the semantics of dynamic libraries on AmigaOS, at least up
+ # to version 4, is to share data among multiple programs linked
+ # with the same dynamic library. Since this doesn't match the
+ # behavior of shared libraries on other platforms, we can't use
+ # them.
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ beos*)
+ if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ # Joseph Beckenbach <jrb3 at best.com> says some releases of gcc
+ # support --undefined. This deserves some investigation. FIXME
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ cygwin* | mingw* | pw32*)
+ # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
+ # as there is no search path for DLLs.
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_AC_TAGVAR(always_export_symbols, $1)=no
+ _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGS]] /s/.* \([[^ ]]*\)/\1 DATA/'\'' | $SED -e '\''/^[[AITW]] /s/.* //'\'' | sort | uniq > $export_symbols'
+
+ if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib'
+ # If the export-symbols file already is a .def file (1st line
+ # is EXPORTS), use it as is; otherwise, prepend...
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
+ cp $export_symbols $output_objdir/$soname.def;
+ else
+ echo EXPORTS > $output_objdir/$soname.def;
+ cat $export_symbols >> $output_objdir/$soname.def;
+ fi~
+ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib'
+ else
+ ld_shlibs=no
+ fi
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
+ wlarc=
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
+ fi
+ ;;
+
+ solaris* | sysv5*)
+ if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ cat <<EOF 1>&2
+
+*** Warning: The releases 2.8.* of the GNU linker cannot reliably
+*** create shared libraries on Solaris systems. Therefore, libtool
+*** is disabling shared libraries support. We urge you to upgrade GNU
+*** binutils to release 2.9.1 or newer. Another option is to modify
+*** your PATH or compiler configuration so that the native linker is
+*** used, and then restart.
+
+EOF
+ elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ sunos4*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ wlarc=
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ linux*)
+ if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
+ tmp_archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_cmds, $1)="$tmp_archive_cmds"
+ supports_anon_versioning=no
+ case `$LD -v 2>/dev/null` in
+ *\ [01].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11
+ *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
+ *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
+ *\ 2.11.*) ;; # other 2.11 versions
+ *) supports_anon_versioning=yes ;;
+ esac
+ if test $supports_anon_versioning = yes; then
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $output_objdir/$libname.ver~
+cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
+$echo "local: *; };" >> $output_objdir/$libname.ver~
+ $CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
+ else
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="$tmp_archive_cmds"
+ fi
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ *)
+ if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+ esac
+
+ if test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = yes; then
+ runpath_var=LD_RUN_PATH
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
+ # ancient GNU ld didn't support --whole-archive et. al.
+ if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
+ else
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=
+ fi
+ fi
+ else
+ # PORTME fill in a description of your system's linker (not GNU ld)
+ case $host_os in
+ aix3*)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_AC_TAGVAR(always_export_symbols, $1)=yes
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
+ # Note: this linker hardcodes the directories in LIBPATH if there
+ # are no directories specified by -L.
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ if test "$GCC" = yes && test -z "$link_static_flag"; then
+ # Neither direct hardcoding nor static linking is supported with a
+ # broken collect2.
+ _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported
+ fi
+ ;;
+
+ aix4* | aix5*)
+ if test "$host_cpu" = ia64; then
+ # On IA64, the linker does run time linking by default, so we don't
+ # have to do anything special.
+ aix_use_runtimelinking=no
+ exp_sym_flag='-Bexport'
+ no_entry_flag=""
+ else
+ # If we're using GNU nm, then we don't want the "-C" option.
+ # -C means demangle to AIX nm, but means don't demangle with GNU nm
+ if $NM -V 2>&1 | grep 'GNU' > /dev/null; then
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols'
+ else
+ _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols'
+ fi
+ aix_use_runtimelinking=no
+
+ # Test if we are trying to use run time linking or normal
+ # AIX style linking. If -brtl is somewhere in LDFLAGS, we
+ # need to do runtime linking.
+ case $host_os in aix4.[[23]]|aix4.[[23]].*|aix5*)
+ for ld_flag in $LDFLAGS; do
+ if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
+ aix_use_runtimelinking=yes
+ break
+ fi
+ done
+ esac
+
+ exp_sym_flag='-bexport'
+ no_entry_flag='-bnoentry'
+ fi
+
+ # When large executables or shared objects are built, AIX ld can
+ # have problems creating the table of contents. If linking a library
+ # or program results in "error TOC overflow" add -mminimal-toc to
+ # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
+ # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
+
+ _LT_AC_TAGVAR(archive_cmds, $1)=''
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':'
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+
+ if test "$GCC" = yes; then
+ case $host_os in aix4.[012]|aix4.[012].*)
+ # We only want to do this on AIX 4.2 and lower, the check
+ # below for broken collect2 doesn't work under 4.3+
+ collect2name=`${CC} -print-prog-name=collect2`
+ if test -f "$collect2name" && \
+ strings "$collect2name" | grep resolve_lib_name >/dev/null
+ then
+ # We have reworked collect2
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ else
+ # We have old collect2
+ _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported
+ # It fails to find uninstalled libraries when the uninstalled
+ # path is not listed in the libpath. Setting hardcode_minus_L
+ # to unsupported forces relinking
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=
+ fi
+ esac
+ shared_flag='-shared'
+ else
+ # not using gcc
+ if test "$host_cpu" = ia64; then
+ # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
+ # chokes on -Wl,-G. The following line is correct:
+ shared_flag='-G'
+ else
+ if test "$aix_use_runtimelinking" = yes; then
+ shared_flag='${wl}-G'
+ else
+ shared_flag='${wl}-bM:SRE'
+ fi
+ fi
+ fi
+
+ # It seems that -bexpall does not export symbols beginning with
+ # underscore (_), so it is better to generate a list of symbols to export.
+ _LT_AC_TAGVAR(always_export_symbols, $1)=yes
+ if test "$aix_use_runtimelinking" = yes; then
+ # Warning - without using the other runtime loading flags (-brtl),
+ # -berok will link without error, but may produce a broken library.
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-berok'
+ # Determine the default libpath from the value encoded in an empty executable.
+ _LT_AC_SYS_LIBPATH_AIX
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag"
+ else
+ if test "$host_cpu" = ia64; then
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols"
+ else
+ # Determine the default libpath from the value encoded in an empty executable.
+ _LT_AC_SYS_LIBPATH_AIX
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
+ # Warning - without using the other run time loading flags,
+ # -berok will link without error, but may produce a broken library.
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok'
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok'
+ # -bexpall does not export symbols beginning with underscore (_)
+ _LT_AC_TAGVAR(always_export_symbols, $1)=yes
+ # Exported symbols can be pulled into shared objects from archives
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=' '
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes
+ # This is similar to how AIX traditionally builds it's shared libraries.
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
+ fi
+ fi
+ ;;
+
+ amigaos*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ # see comment about different semantics on the GNU ld section
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ bsdi4*)
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic
+ ;;
+
+ cygwin* | mingw* | pw32*)
+ # When not using gcc, we currently assume that we are using
+ # Microsoft Visual C++.
+ # hardcode_libdir_flag_spec is actually meaningless, as there is
+ # no search path for DLLs.
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ # Tell ltmain to make .lib files, not .a files.
+ libext=lib
+ # Tell ltmain to make .dll files, not .so files.
+ shrext_cmds=".dll"
+ # FIXME: Setting linknames here is a bad hack.
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames='
+ # The linker will automatically build a .lib file if we build a DLL.
+ _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)='true'
+ # FIXME: Should let the user specify the lib program.
+ _LT_AC_TAGVAR(old_archive_cmds, $1)='lib /OUT:$oldlib$oldobjs$old_deplibs'
+ fix_srcfile_path='`cygpath -w "$srcfile"`'
+ _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ ;;
+
+ darwin* | rhapsody*)
+ if test "$GXX" = yes ; then
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ case "$host_os" in
+ rhapsody* | darwin1.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined suppress'
+ ;;
+ *) # Darwin 1.3 on
+ if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ else
+ case ${MACOSX_DEPLOYMENT_TARGET} in
+ 10.[[012]])
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-flat_namespace -undefined suppress'
+ ;;
+ 10.*)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)='-undefined dynamic_lookup'
+ ;;
+ esac
+ fi
+ ;;
+ esac
+ lt_int_apple_cc_single_mod=no
+ output_verbose_link_cmd='echo'
+ if $CC -dumpspecs 2>&1 | grep 'single_module' >/dev/null ; then
+ lt_int_apple_cc_single_mod=yes
+ fi
+ if test "X$lt_int_apple_cc_single_mod" = Xyes ; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -r ${wl}-bind_at_load -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring'
+ fi
+ _LT_AC_TAGVAR(module_cmds, $1)='$CC ${wl}-bind_at_load $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags'
+ # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's
+ if test "X$lt_int_apple_cc_single_mod" = Xyes ; then
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ else
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -r ${wl}-bind_at_load -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ fi
+ _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_automatic, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-all_load $convenience'
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ else
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ fi
+ ;;
+
+ dgux*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ freebsd1*)
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+
+ # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
+ # support. Future versions do this automatically, but an explicit c++rt0.o
+ # does not break anything, and helps significantly (at the cost of a little
+ # extra space).
+ freebsd2.2*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ # Unfortunately, older versions of FreeBSD 2 do not have this feature.
+ freebsd2*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
+ freebsd* | kfreebsd*-gnu)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ hpux9*)
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
+ ;;
+
+ hpux10* | hpux11*)
+ if test "$GCC" = yes -a "$with_gnu_ld" = no; then
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ *)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
+ ;;
+ esac
+ else
+ case "$host_cpu" in
+ hppa*64*|ia64*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $libobjs $deplibs $linker_flags'
+ ;;
+ *)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
+ ;;
+ esac
+ fi
+ if test "$with_gnu_ld" = no; then
+ case "$host_cpu" in
+ hppa*64*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+ ia64*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ ;;
+ *)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
+
+ # hardcode_minus_L: Not really in the search PATH,
+ # but as the default location of the library.
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ ;;
+ esac
+ fi
+ ;;
+
+ irix5* | irix6* | nonstopux*)
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='-rpath $libdir'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ netbsd*)
+ if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ newsos6)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ openbsd*)
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
+ else
+ case $host_os in
+ openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ ;;
+ *)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
+ ;;
+ esac
+ fi
+ ;;
+
+ os2*)
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported
+ _LT_AC_TAGVAR(archive_cmds, $1)='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
+ _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
+ ;;
+
+ osf3*)
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
+ else
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+
+ osf4* | osf5*) # as osf3* with the addition of -msym flag
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
+ else
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~
+ $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${objdir}/so_locations -o $lib~$rm $lib.exp'
+
+ # Both c and cxx compiler support -rpath directly
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=:
+ ;;
+
+ sco3.2v5*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport'
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ ;;
+
+ solaris*)
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' -z text'
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ case $host_os in
+ solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
+ *) # Supported since Solaris 2.6 (maybe 2.5.1?)
+ _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;;
+ esac
+ _LT_AC_TAGVAR(link_all_deplibs, $1)=yes
+ ;;
+
+ sunos4*)
+ if test "x$host_vendor" = xsequent; then
+ # Use $CC to link under sequent, because it throws in some extra .o
+ # files that make .init and .fini sections work.
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
+ fi
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ sysv4)
+ case $host_vendor in
+ sni)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes # is this really true???
+ ;;
+ siemens)
+ ## LD is ld it makes a PLAMLIB
+ ## CC just makes a GrossModule.
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no
+ ;;
+ motorola)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie
+ ;;
+ esac
+ runpath_var='LD_RUN_PATH'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ sysv4.3*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport'
+ ;;
+
+ sysv4*MP*)
+ if test -d /usr/nec; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ runpath_var=LD_RUN_PATH
+ hardcode_runpath_var=yes
+ _LT_AC_TAGVAR(ld_shlibs, $1)=yes
+ fi
+ ;;
+
+ sysv4.2uw2*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_direct, $1)=yes
+ _LT_AC_TAGVAR(hardcode_minus_L, $1)=no
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ hardcode_runpath_var=yes
+ runpath_var=LD_RUN_PATH
+ ;;
+
+ sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7*)
+ _LT_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z ${wl}text'
+ if test "$GCC" = yes; then
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
+ else
+ _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
+ fi
+ runpath_var='LD_RUN_PATH'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ sysv5*)
+ _LT_AC_TAGVAR(no_undefined_flag, $1)=' -z text'
+ # $CC -shared without GNU ld will not create a library from C++
+ # object files and a static libstdc++, better avoid it by now
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~
+ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ runpath_var='LD_RUN_PATH'
+ ;;
+
+ uts4*)
+ _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
+ _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
+ _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no
+ ;;
+
+ *)
+ _LT_AC_TAGVAR(ld_shlibs, $1)=no
+ ;;
+ esac
+ fi
+])
+AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)])
+test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no
+
+variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
+if test "$GCC" = yes; then
+ variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+fi
+
+#
+# Do we need to explicitly link libc?
+#
+case "x$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)" in
+x|xyes)
+ # Assume -lc should be added
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes
+
+ if test "$enable_shared" = yes && test "$GCC" = yes; then
+ case $_LT_AC_TAGVAR(archive_cmds, $1) in
+ *'~'*)
+ # FIXME: we may have to deal with multi-command sequences.
+ ;;
+ '$CC '*)
+ # Test whether the compiler implicitly links with -lc since on some
+ # systems, -lgcc has to come before -lc. If gcc already passes -lc
+ # to ld, don't add -lc before -lgcc.
+ AC_MSG_CHECKING([whether -lc should be explicitly linked in])
+ $rm conftest*
+ printf "$lt_simple_compile_test_code" > conftest.$ac_ext
+
+ if AC_TRY_EVAL(ac_compile) 2>conftest.err; then
+ soname=conftest
+ lib=conftest
+ libobjs=conftest.$ac_objext
+ deplibs=
+ wl=$_LT_AC_TAGVAR(lt_prog_compiler_wl, $1)
+ compiler_flags=-v
+ linker_flags=-v
+ verstring=
+ output_objdir=.
+ libname=conftest
+ lt_save_allow_undefined_flag=$_LT_AC_TAGVAR(allow_undefined_flag, $1)
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=
+ if AC_TRY_EVAL(_LT_AC_TAGVAR(archive_cmds, $1) 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1)
+ then
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no
+ else
+ _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes
+ fi
+ _LT_AC_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag
+ else
+ cat conftest.err 1>&5
+ fi
+ $rm conftest*
+ AC_MSG_RESULT([$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)])
+ ;;
+ esac
+ fi
+ ;;
+esac
+])# AC_LIBTOOL_PROG_LD_SHLIBS
+
+
+# _LT_AC_FILE_LTDLL_C
+# -------------------
+# Be careful that the start marker always follows a newline.
+AC_DEFUN([_LT_AC_FILE_LTDLL_C], [
+# /* ltdll.c starts here */
+# #define WIN32_LEAN_AND_MEAN
+# #include <windows.h>
+# #undef WIN32_LEAN_AND_MEAN
+# #include <stdio.h>
+#
+# #ifndef __CYGWIN__
+# # ifdef __CYGWIN32__
+# # define __CYGWIN__ __CYGWIN32__
+# # endif
+# #endif
+#
+# #ifdef __cplusplus
+# extern "C" {
+# #endif
+# BOOL APIENTRY DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved);
+# #ifdef __cplusplus
+# }
+# #endif
+#
+# #ifdef __CYGWIN__
+# #include <cygwin/cygwin_dll.h>
+# DECLARE_CYGWIN_DLL( DllMain );
+# #endif
+# HINSTANCE __hDllInstance_base;
+#
+# BOOL APIENTRY
+# DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved)
+# {
+# __hDllInstance_base = hInst;
+# return TRUE;
+# }
+# /* ltdll.c ends here */
+])# _LT_AC_FILE_LTDLL_C
+
+
+# _LT_AC_TAGVAR(VARNAME, [TAGNAME])
+# ---------------------------------
+AC_DEFUN([_LT_AC_TAGVAR], [ifelse([$2], [], [$1], [$1_$2])])
+
+
+# old names
+AC_DEFUN([AM_PROG_LIBTOOL], [AC_PROG_LIBTOOL])
+AC_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)])
+AC_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)])
+AC_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)])
+AC_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)])
+AC_DEFUN([AM_PROG_LD], [AC_PROG_LD])
+AC_DEFUN([AM_PROG_NM], [AC_PROG_NM])
+
+# This is just to silence aclocal about the macro not being used
+ifelse([AC_DISABLE_FAST_INSTALL])
+
+AC_DEFUN([LT_AC_PROG_GCJ],
+[AC_CHECK_TOOL(GCJ, gcj, no)
+ test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2"
+ AC_SUBST(GCJFLAGS)
+])
+
+AC_DEFUN([LT_AC_PROG_RC],
+[AC_CHECK_TOOL(RC, windres, no)
+])
+
+############################################################
+# NOTE: This macro has been submitted for inclusion into #
+# GNU Autoconf as AC_PROG_SED. When it is available in #
+# a released version of Autoconf we should remove this #
+# macro and use it instead. #
+############################################################
+# LT_AC_PROG_SED
+# --------------
+# Check for a fully-functional sed program, that truncates
+# as few characters as possible. Prefer GNU sed if found.
+AC_DEFUN([LT_AC_PROG_SED],
+[AC_MSG_CHECKING([for a sed that does not truncate output])
+AC_CACHE_VAL(lt_cv_path_SED,
+[# Loop through the user's path and test for sed and gsed.
+# Then use that list of sed's as ones to test for truncation.
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for lt_ac_prog in sed gsed; do
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then
+ lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext"
+ fi
+ done
+ done
+done
+lt_ac_max=0
+lt_ac_count=0
+# Add /usr/xpg4/bin/sed as it is typically found on Solaris
+# along with /bin/sed that truncates output.
+for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do
+ test ! -f $lt_ac_sed && break
+ cat /dev/null > conftest.in
+ lt_ac_count=0
+ echo $ECHO_N "0123456789$ECHO_C" >conftest.in
+ # Check for GNU sed and select it if it is found.
+ if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then
+ lt_cv_path_SED=$lt_ac_sed
+ break
+ fi
+ while true; do
+ cat conftest.in conftest.in >conftest.tmp
+ mv conftest.tmp conftest.in
+ cp conftest.in conftest.nl
+ echo >>conftest.nl
+ $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break
+ cmp -s conftest.out conftest.nl || break
+ # 10000 chars as input seems more than enough
+ test $lt_ac_count -gt 10 && break
+ lt_ac_count=`expr $lt_ac_count + 1`
+ if test $lt_ac_count -gt $lt_ac_max; then
+ lt_ac_max=$lt_ac_count
+ lt_cv_path_SED=$lt_ac_sed
+ fi
+ done
+done
+SED=$lt_cv_path_SED
+])
+AC_MSG_RESULT([$SED])
+])
+## ltdl.m4 - Configure ltdl for the target system. -*-Autoconf-*-
+## Copyright (C) 1999-2000 Free Software Foundation, Inc.
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+##
+## As a special exception to the GNU General Public License, if you
+## distribute this file as part of a program that contains a
+## configuration script generated by Autoconf, you may include it under
+## the same distribution terms that you use for the rest of that program.
+
+# serial 6 AC_LIB_LTDL
+
+# AC_WITH_LTDL
+# ------------
+# Clients of libltdl can use this macro to allow the installer to
+# choose between a shipped copy of the ltdl sources or a preinstalled
+# version of the library.
+AC_DEFUN([AC_WITH_LTDL],
+[AC_REQUIRE([AC_LIB_LTDL])
+AC_SUBST([LIBLTDL])
+AC_SUBST([INCLTDL])
+
+# Unless the user asks us to check, assume no installed ltdl exists.
+use_installed_libltdl=no
+
+AC_ARG_WITH([included_ltdl],
+ [ --with-included-ltdl use the GNU ltdl sources included here])
+
+if test "x$with_included_ltdl" != xyes; then
+ # We are not being forced to use the included libltdl sources, so
+ # decide whether there is a useful installed version we can use.
+ AC_CHECK_HEADER([ltdl.h],
+ [AC_CHECK_LIB([ltdl], [lt_dlcaller_register],
+ [with_included_ltdl=no],
+ [with_included_ltdl=yes])
+ ])
+fi
+
+if test "x$enable_ltdl_install" != xyes; then
+ # If the user did not specify an installable libltdl, then default
+ # to a convenience lib.
+ AC_LIBLTDL_CONVENIENCE
+fi
+
+if test "x$with_included_ltdl" = xno; then
+ # If the included ltdl is not to be used. then Use the
+ # preinstalled libltdl we found.
+ AC_DEFINE([HAVE_LTDL], 1,
+ [Define this if a modern libltdl is already installed])
+ LIBLTDL=-lltdl
+fi
+
+# Report our decision...
+AC_MSG_CHECKING([whether to use included libltdl])
+AC_MSG_RESULT([$with_included_ltdl])
+
+AC_CONFIG_SUBDIRS([libltdl])
+])# AC_WITH_LTDL
+
+
+# AC_LIB_LTDL
+# -----------
+# Perform all the checks necessary for compilation of the ltdl objects
+# -- including compiler checks and header checks.
+AC_DEFUN([AC_LIB_LTDL],
+[AC_PREREQ(2.50)
+AC_REQUIRE([AC_PROG_CC])
+AC_REQUIRE([AC_C_CONST])
+AC_REQUIRE([AC_HEADER_STDC])
+AC_REQUIRE([AC_HEADER_DIRENT])
+AC_REQUIRE([_LT_AC_CHECK_DLFCN])
+AC_REQUIRE([AC_LTDL_ENABLE_INSTALL])
+AC_REQUIRE([AC_LTDL_SHLIBEXT])
+AC_REQUIRE([AC_LTDL_SHLIBPATH])
+AC_REQUIRE([AC_LTDL_SYSSEARCHPATH])
+AC_REQUIRE([AC_LTDL_OBJDIR])
+AC_REQUIRE([AC_LTDL_DLPREOPEN])
+AC_REQUIRE([AC_LTDL_DLLIB])
+AC_REQUIRE([AC_LTDL_SYMBOL_USCORE])
+AC_REQUIRE([AC_LTDL_DLSYM_USCORE])
+AC_REQUIRE([AC_LTDL_SYS_DLOPEN_DEPLIBS])
+AC_REQUIRE([AC_LTDL_FUNC_ARGZ])
+
+AC_CHECK_HEADERS([assert.h ctype.h errno.h malloc.h memory.h stdlib.h \
+ stdio.h unistd.h])
+AC_CHECK_HEADERS([dl.h sys/dl.h dld.h mach-o/dyld.h])
+AC_CHECK_HEADERS([string.h strings.h], [break])
+
+AC_CHECK_FUNCS([strchr index], [break])
+AC_CHECK_FUNCS([strrchr rindex], [break])
+AC_CHECK_FUNCS([memcpy bcopy], [break])
+AC_CHECK_FUNCS([memmove strcmp])
+AC_CHECK_FUNCS([closedir opendir readdir])
+])# AC_LIB_LTDL
+
+
+# AC_LTDL_ENABLE_INSTALL
+# ----------------------
+AC_DEFUN([AC_LTDL_ENABLE_INSTALL],
+[AC_ARG_ENABLE([ltdl-install],
+ [AC_HELP_STRING([--enable-ltdl-install], [install libltdl])])
+
+AM_CONDITIONAL(INSTALL_LTDL, test x"${enable_ltdl_install-no}" != xno)
+AM_CONDITIONAL(CONVENIENCE_LTDL, test x"${enable_ltdl_convenience-no}" != xno)
+])])# AC_LTDL_ENABLE_INSTALL
+
+
+# AC_LTDL_SYS_DLOPEN_DEPLIBS
+# --------------------------
+AC_DEFUN([AC_LTDL_SYS_DLOPEN_DEPLIBS],
+[AC_REQUIRE([AC_CANONICAL_HOST])
+AC_CACHE_CHECK([whether deplibs are loaded by dlopen],
+ [libltdl_cv_sys_dlopen_deplibs],
+ [# PORTME does your system automatically load deplibs for dlopen?
+ # or its logical equivalent (e.g. shl_load for HP-UX < 11)
+ # For now, we just catch OSes we know something about -- in the
+ # future, we'll try test this programmatically.
+ libltdl_cv_sys_dlopen_deplibs=unknown
+ case "$host_os" in
+ aix3*|aix4.1.*|aix4.2.*)
+ # Unknown whether this is true for these versions of AIX, but
+ # we want this `case' here to explicitly catch those versions.
+ libltdl_cv_sys_dlopen_deplibs=unknown
+ ;;
+ aix[[45]]*)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ darwin*)
+ # Assuming the user has installed a libdl from somewhere, this is true
+ # If you are looking for one http://www.opendarwin.org/projects/dlcompat
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ gnu* | linux* | kfreebsd*-gnu | knetbsd*-gnu)
+ # GNU and its variants, using gnu ld.so (Glibc)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ hpux10*|hpux11*)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ irix[[12345]]*|irix6.[[01]]*)
+ # Catch all versions of IRIX before 6.2, and indicate that we don't
+ # know how it worked for any of those versions.
+ libltdl_cv_sys_dlopen_deplibs=unknown
+ ;;
+ irix*)
+ # The case above catches anything before 6.2, and it's known that
+ # at 6.2 and later dlopen does load deplibs.
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ netbsd*)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ openbsd*)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ osf[[1234]]*)
+ # dlopen did load deplibs (at least at 4.x), but until the 5.x series,
+ # it did *not* use an RPATH in a shared library to find objects the
+ # library depends on, so we explictly say `no'.
+ libltdl_cv_sys_dlopen_deplibs=no
+ ;;
+ osf5.0|osf5.0a|osf5.1)
+ # dlopen *does* load deplibs and with the right loader patch applied
+ # it even uses RPATH in a shared library to search for shared objects
+ # that the library depends on, but there's no easy way to know if that
+ # patch is installed. Since this is the case, all we can really
+ # say is unknown -- it depends on the patch being installed. If
+ # it is, this changes to `yes'. Without it, it would be `no'.
+ libltdl_cv_sys_dlopen_deplibs=unknown
+ ;;
+ osf*)
+ # the two cases above should catch all versions of osf <= 5.1. Read
+ # the comments above for what we know about them.
+ # At > 5.1, deplibs are loaded *and* any RPATH in a shared library
+ # is used to find them so we can finally say `yes'.
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ solaris*)
+ libltdl_cv_sys_dlopen_deplibs=yes
+ ;;
+ esac
+ ])
+if test "$libltdl_cv_sys_dlopen_deplibs" != yes; then
+ AC_DEFINE([LTDL_DLOPEN_DEPLIBS], [1],
+ [Define if the OS needs help to load dependent libraries for dlopen().])
+fi
+])# AC_LTDL_SYS_DLOPEN_DEPLIBS
+
+
+# AC_LTDL_SHLIBEXT
+# ----------------
+AC_DEFUN([AC_LTDL_SHLIBEXT],
+[AC_REQUIRE([AC_LIBTOOL_SYS_DYNAMIC_LINKER])
+AC_CACHE_CHECK([which extension is used for loadable modules],
+ [libltdl_cv_shlibext],
+[
+module=yes
+eval libltdl_cv_shlibext=$shrext_cmds
+ ])
+if test -n "$libltdl_cv_shlibext"; then
+ AC_DEFINE_UNQUOTED(LTDL_SHLIB_EXT, "$libltdl_cv_shlibext",
+ [Define to the extension used for shared libraries, say, ".so".])
+fi
+])# AC_LTDL_SHLIBEXT
+
+
+# AC_LTDL_SHLIBPATH
+# -----------------
+AC_DEFUN([AC_LTDL_SHLIBPATH],
+[AC_REQUIRE([AC_LIBTOOL_SYS_DYNAMIC_LINKER])
+AC_CACHE_CHECK([which variable specifies run-time library path],
+ [libltdl_cv_shlibpath_var], [libltdl_cv_shlibpath_var="$shlibpath_var"])
+if test -n "$libltdl_cv_shlibpath_var"; then
+ AC_DEFINE_UNQUOTED(LTDL_SHLIBPATH_VAR, "$libltdl_cv_shlibpath_var",
+ [Define to the name of the environment variable that determines the dynamic library search path.])
+fi
+])# AC_LTDL_SHLIBPATH
+
+
+# AC_LTDL_SYSSEARCHPATH
+# ---------------------
+AC_DEFUN([AC_LTDL_SYSSEARCHPATH],
+[AC_REQUIRE([AC_LIBTOOL_SYS_DYNAMIC_LINKER])
+AC_CACHE_CHECK([for the default library search path],
+ [libltdl_cv_sys_search_path],
+ [libltdl_cv_sys_search_path="$sys_lib_dlsearch_path_spec"])
+if test -n "$libltdl_cv_sys_search_path"; then
+ sys_search_path=
+ for dir in $libltdl_cv_sys_search_path; do
+ if test -z "$sys_search_path"; then
+ sys_search_path="$dir"
+ else
+ sys_search_path="$sys_search_path$PATH_SEPARATOR$dir"
+ fi
+ done
+ AC_DEFINE_UNQUOTED(LTDL_SYSSEARCHPATH, "$sys_search_path",
+ [Define to the system default library search path.])
+fi
+])# AC_LTDL_SYSSEARCHPATH
+
+
+# AC_LTDL_OBJDIR
+# --------------
+AC_DEFUN([AC_LTDL_OBJDIR],
+[AC_CACHE_CHECK([for objdir],
+ [libltdl_cv_objdir],
+ [libltdl_cv_objdir="$objdir"
+ if test -n "$objdir"; then
+ :
+ else
+ rm -f .libs 2>/dev/null
+ mkdir .libs 2>/dev/null
+ if test -d .libs; then
+ libltdl_cv_objdir=.libs
+ else
+ # MS-DOS does not allow filenames that begin with a dot.
+ libltdl_cv_objdir=_libs
+ fi
+ rmdir .libs 2>/dev/null
+ fi
+ ])
+AC_DEFINE_UNQUOTED(LTDL_OBJDIR, "$libltdl_cv_objdir/",
+ [Define to the sub-directory in which libtool stores uninstalled libraries.])
+])# AC_LTDL_OBJDIR
+
+
+# AC_LTDL_DLPREOPEN
+# -----------------
+AC_DEFUN([AC_LTDL_DLPREOPEN],
+[AC_REQUIRE([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])
+AC_CACHE_CHECK([whether libtool supports -dlopen/-dlpreopen],
+ [libltdl_cv_preloaded_symbols],
+ [if test -n "$lt_cv_sys_global_symbol_pipe"; then
+ libltdl_cv_preloaded_symbols=yes
+ else
+ libltdl_cv_preloaded_symbols=no
+ fi
+ ])
+if test x"$libltdl_cv_preloaded_symbols" = xyes; then
+ AC_DEFINE(HAVE_PRELOADED_SYMBOLS, 1,
+ [Define if libtool can extract symbol lists from object files.])
+fi
+])# AC_LTDL_DLPREOPEN
+
+
+# AC_LTDL_DLLIB
+# -------------
+AC_DEFUN([AC_LTDL_DLLIB],
+[LIBADD_DL=
+AC_SUBST(LIBADD_DL)
+AC_LANG_PUSH([C])
+
+AC_CHECK_FUNC([shl_load],
+ [AC_DEFINE([HAVE_SHL_LOAD], [1],
+ [Define if you have the shl_load function.])],
+ [AC_CHECK_LIB([dld], [shl_load],
+ [AC_DEFINE([HAVE_SHL_LOAD], [1],
+ [Define if you have the shl_load function.])
+ LIBADD_DL="$LIBADD_DL -ldld"],
+ [AC_CHECK_LIB([dl], [dlopen],
+ [AC_DEFINE([HAVE_LIBDL], [1],
+ [Define if you have the libdl library or equivalent.])
+ LIBADD_DL="-ldl" libltdl_cv_lib_dl_dlopen="yes"],
+ [AC_TRY_LINK([#if HAVE_DLFCN_H
+# include <dlfcn.h>
+#endif
+ ],
+ [dlopen(0, 0);],
+ [AC_DEFINE([HAVE_LIBDL], [1],
+ [Define if you have the libdl library or equivalent.]) libltdl_cv_func_dlopen="yes"],
+ [AC_CHECK_LIB([svld], [dlopen],
+ [AC_DEFINE([HAVE_LIBDL], [1],
+ [Define if you have the libdl library or equivalent.])
+ LIBADD_DL="-lsvld" libltdl_cv_func_dlopen="yes"],
+ [AC_CHECK_LIB([dld], [dld_link],
+ [AC_DEFINE([HAVE_DLD], [1],
+ [Define if you have the GNU dld library.])
+ LIBADD_DL="$LIBADD_DL -ldld"],
+ [AC_CHECK_FUNC([_dyld_func_lookup],
+ [AC_DEFINE([HAVE_DYLD], [1],
+ [Define if you have the _dyld_func_lookup function.])])
+ ])
+ ])
+ ])
+ ])
+ ])
+])
+
+if test x"$libltdl_cv_func_dlopen" = xyes || test x"$libltdl_cv_lib_dl_dlopen" = xyes
+then
+ lt_save_LIBS="$LIBS"
+ LIBS="$LIBS $LIBADD_DL"
+ AC_CHECK_FUNCS([dlerror])
+ LIBS="$lt_save_LIBS"
+fi
+AC_LANG_POP
+])# AC_LTDL_DLLIB
+
+
+# AC_LTDL_SYMBOL_USCORE
+# ---------------------
+# does the compiler prefix global symbols with an underscore?
+AC_DEFUN([AC_LTDL_SYMBOL_USCORE],
+[AC_REQUIRE([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])
+AC_CACHE_CHECK([for _ prefix in compiled symbols],
+ [ac_cv_sys_symbol_underscore],
+ [ac_cv_sys_symbol_underscore=no
+ cat > conftest.$ac_ext <<EOF
+void nm_test_func(){}
+int main(){nm_test_func;return 0;}
+EOF
+ if AC_TRY_EVAL(ac_compile); then
+ # Now try to grab the symbols.
+ ac_nlist=conftest.nm
+ if AC_TRY_EVAL(NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $ac_nlist) && test -s "$ac_nlist"; then
+ # See whether the symbols have a leading underscore.
+ if grep '^. _nm_test_func' "$ac_nlist" >/dev/null; then
+ ac_cv_sys_symbol_underscore=yes
+ else
+ if grep '^. nm_test_func ' "$ac_nlist" >/dev/null; then
+ :
+ else
+ echo "configure: cannot find nm_test_func in $ac_nlist" >&AC_FD_CC
+ fi
+ fi
+ else
+ echo "configure: cannot run $lt_cv_sys_global_symbol_pipe" >&AC_FD_CC
+ fi
+ else
+ echo "configure: failed program was:" >&AC_FD_CC
+ cat conftest.c >&AC_FD_CC
+ fi
+ rm -rf conftest*
+ ])
+])# AC_LTDL_SYMBOL_USCORE
+
+
+# AC_LTDL_DLSYM_USCORE
+# --------------------
+AC_DEFUN([AC_LTDL_DLSYM_USCORE],
+[AC_REQUIRE([AC_LTDL_SYMBOL_USCORE])
+if test x"$ac_cv_sys_symbol_underscore" = xyes; then
+ if test x"$libltdl_cv_func_dlopen" = xyes ||
+ test x"$libltdl_cv_lib_dl_dlopen" = xyes ; then
+ AC_CACHE_CHECK([whether we have to add an underscore for dlsym],
+ [libltdl_cv_need_uscore],
+ [libltdl_cv_need_uscore=unknown
+ save_LIBS="$LIBS"
+ LIBS="$LIBS $LIBADD_DL"
+ _LT_AC_TRY_DLOPEN_SELF(
+ [libltdl_cv_need_uscore=no], [libltdl_cv_need_uscore=yes],
+ [], [libltdl_cv_need_uscore=cross])
+ LIBS="$save_LIBS"
+ ])
+ fi
+fi
+
+if test x"$libltdl_cv_need_uscore" = xyes; then
+ AC_DEFINE(NEED_USCORE, 1,
+ [Define if dlsym() requires a leading underscore in symbol names.])
+fi
+])# AC_LTDL_DLSYM_USCORE
+
+# AC_LTDL_FUNC_ARGZ
+# -----------------
+AC_DEFUN([AC_LTDL_FUNC_ARGZ],
+[AC_CHECK_HEADERS([argz.h])
+
+AC_CHECK_TYPES([error_t],
+ [],
+ [AC_DEFINE([error_t], [int],
+ [Define to a type to use for `error_t' if it is not otherwise available.])],
+ [#if HAVE_ARGZ_H
+# include <argz.h>
+#endif])
+
+AC_CHECK_FUNCS([argz_append argz_create_sep argz_insert argz_next argz_stringify])
+])# AC_LTDL_FUNC_ARGZ
Added: trunk/libltdl/config-h.in
===================================================================
--- trunk/libltdl/config-h.in (rev 0)
+++ trunk/libltdl/config-h.in 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,195 @@
+/* config-h.in. Generated from configure.ac by autoheader. */
+
+/* Define to 1 if you have the `argz_append' function. */
+#undef HAVE_ARGZ_APPEND
+
+/* Define to 1 if you have the `argz_create_sep' function. */
+#undef HAVE_ARGZ_CREATE_SEP
+
+/* Define to 1 if you have the <argz.h> header file. */
+#undef HAVE_ARGZ_H
+
+/* Define to 1 if you have the `argz_insert' function. */
+#undef HAVE_ARGZ_INSERT
+
+/* Define to 1 if you have the `argz_next' function. */
+#undef HAVE_ARGZ_NEXT
+
+/* Define to 1 if you have the `argz_stringify' function. */
+#undef HAVE_ARGZ_STRINGIFY
+
+/* Define to 1 if you have the <assert.h> header file. */
+#undef HAVE_ASSERT_H
+
+/* Define to 1 if you have the `bcopy' function. */
+#undef HAVE_BCOPY
+
+/* Define to 1 if you have the `closedir' function. */
+#undef HAVE_CLOSEDIR
+
+/* Define to 1 if you have the <ctype.h> header file. */
+#undef HAVE_CTYPE_H
+
+/* Define to 1 if you have the <dirent.h> header file, and it defines `DIR'.
+ */
+#undef HAVE_DIRENT_H
+
+/* Define if you have the GNU dld library. */
+#undef HAVE_DLD
+
+/* Define to 1 if you have the <dld.h> header file. */
+#undef HAVE_DLD_H
+
+/* Define to 1 if you have the `dlerror' function. */
+#undef HAVE_DLERROR
+
+/* Define to 1 if you have the <dlfcn.h> header file. */
+#undef HAVE_DLFCN_H
+
+/* Define to 1 if you have the <dl.h> header file. */
+#undef HAVE_DL_H
+
+/* Define if you have the _dyld_func_lookup function. */
+#undef HAVE_DYLD
+
+/* Define to 1 if you have the <errno.h> header file. */
+#undef HAVE_ERRNO_H
+
+/* Define to 1 if the system has the type `error_t'. */
+#undef HAVE_ERROR_T
+
+/* Define to 1 if you have the `index' function. */
+#undef HAVE_INDEX
+
+/* Define to 1 if you have the <inttypes.h> header file. */
+#undef HAVE_INTTYPES_H
+
+/* Define if you have the libdl library or equivalent. */
+#undef HAVE_LIBDL
+
+/* Define to 1 if you have the <mach-o/dyld.h> header file. */
+#undef HAVE_MACH_O_DYLD_H
+
+/* Define to 1 if you have the <malloc.h> header file. */
+#undef HAVE_MALLOC_H
+
+/* Define to 1 if you have the `memcpy' function. */
+#undef HAVE_MEMCPY
+
+/* Define to 1 if you have the `memmove' function. */
+#undef HAVE_MEMMOVE
+
+/* Define to 1 if you have the <memory.h> header file. */
+#undef HAVE_MEMORY_H
+
+/* Define to 1 if you have the <ndir.h> header file, and it defines `DIR'. */
+#undef HAVE_NDIR_H
+
+/* Define to 1 if you have the `opendir' function. */
+#undef HAVE_OPENDIR
+
+/* Define if libtool can extract symbol lists from object files. */
+#undef HAVE_PRELOADED_SYMBOLS
+
+/* Define to 1 if you have the `readdir' function. */
+#undef HAVE_READDIR
+
+/* Define to 1 if you have the `rindex' function. */
+#undef HAVE_RINDEX
+
+/* Define if you have the shl_load function. */
+#undef HAVE_SHL_LOAD
+
+/* Define to 1 if you have the <stdint.h> header file. */
+#undef HAVE_STDINT_H
+
+/* Define to 1 if you have the <stdio.h> header file. */
+#undef HAVE_STDIO_H
+
+/* Define to 1 if you have the <stdlib.h> header file. */
+#undef HAVE_STDLIB_H
+
+/* Define to 1 if you have the `strchr' function. */
+#undef HAVE_STRCHR
+
+/* Define to 1 if you have the `strcmp' function. */
+#undef HAVE_STRCMP
+
+/* Define to 1 if you have the <strings.h> header file. */
+#undef HAVE_STRINGS_H
+
+/* Define to 1 if you have the <string.h> header file. */
+#undef HAVE_STRING_H
+
+/* Define to 1 if you have the `strrchr' function. */
+#undef HAVE_STRRCHR
+
+/* Define to 1 if you have the <sys/dir.h> header file, and it defines `DIR'.
+ */
+#undef HAVE_SYS_DIR_H
+
+/* Define to 1 if you have the <sys/dl.h> header file. */
+#undef HAVE_SYS_DL_H
+
+/* Define to 1 if you have the <sys/ndir.h> header file, and it defines `DIR'.
+ */
+#undef HAVE_SYS_NDIR_H
+
+/* Define to 1 if you have the <sys/stat.h> header file. */
+#undef HAVE_SYS_STAT_H
+
+/* Define to 1 if you have the <sys/types.h> header file. */
+#undef HAVE_SYS_TYPES_H
+
+/* Define to 1 if you have the <unistd.h> header file. */
+#undef HAVE_UNISTD_H
+
+/* Define if the OS needs help to load dependent libraries for dlopen(). */
+#undef LTDL_DLOPEN_DEPLIBS
+
+/* Define to the sub-directory in which libtool stores uninstalled libraries.
+ */
+#undef LTDL_OBJDIR
+
+/* Define to the name of the environment variable that determines the dynamic
+ library search path. */
+#undef LTDL_SHLIBPATH_VAR
+
+/* Define to the extension used for shared libraries, say, ".so". */
+#undef LTDL_SHLIB_EXT
+
+/* Define to the system default library search path. */
+#undef LTDL_SYSSEARCHPATH
+
+/* Define if dlsym() requires a leading underscore in symbol names. */
+#undef NEED_USCORE
+
+/* Define to the address where bug reports for this package should be sent. */
+#undef PACKAGE_BUGREPORT
+
+/* Define to the full name of this package. */
+#undef PACKAGE_NAME
+
+/* Define to the full name and version of this package. */
+#undef PACKAGE_STRING
+
+/* Define to the one symbol short name of this package. */
+#undef PACKAGE_TARNAME
+
+/* Define to the version of this package. */
+#undef PACKAGE_VERSION
+
+/* Define to 1 if you have the ANSI C header files. */
+#undef STDC_HEADERS
+
+/* Define to empty if `const' does not conform to ANSI C. */
+#undef const
+
+/* Define to a type to use for `error_t' if it is not otherwise available. */
+#undef error_t
+
+/* Define to `__inline__' or `__inline' if that's what the C compiler
+ calls it, or to nothing if 'inline' is not supported under any name. */
+#ifndef __cplusplus
+#undef inline
+#endif
Added: trunk/libltdl/config.guess
===================================================================
--- trunk/libltdl/config.guess (rev 0)
+++ trunk/libltdl/config.guess 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,1411 @@
+#! /bin/sh
+# Attempt to guess a canonical system name.
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+# 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
+
+timestamp='2003-06-17'
+
+# This file is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# Originally written by Per Bothner <per at bothner.com>.
+# Please send patches to <config-patches at gnu.org>. Submit a context
+# diff and a properly formatted ChangeLog entry.
+#
+# This script attempts to guess a canonical system name similar to
+# config.sub. If it succeeds, it prints the system name on stdout, and
+# exits with 0. Otherwise, it exits with 1.
+#
+# The plan is that this can be called by configure scripts if you
+# don't specify an explicit build system type.
+
+me=`echo "$0" | sed -e 's,.*/,,'`
+
+usage="\
+Usage: $0 [OPTION]
+
+Output the configuration name of the system \`$me' is run on.
+
+Operation modes:
+ -h, --help print this help, then exit
+ -t, --time-stamp print date of last modification, then exit
+ -v, --version print version number, then exit
+
+Report bugs and patches to <config-patches at gnu.org>."
+
+version="\
+GNU config.guess ($timestamp)
+
+Originally written by Per Bothner.
+Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+Free Software Foundation, Inc.
+
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+
+help="
+Try \`$me --help' for more information."
+
+# Parse command line
+while test $# -gt 0 ; do
+ case $1 in
+ --time-stamp | --time* | -t )
+ echo "$timestamp" ; exit 0 ;;
+ --version | -v )
+ echo "$version" ; exit 0 ;;
+ --help | --h* | -h )
+ echo "$usage"; exit 0 ;;
+ -- ) # Stop option processing
+ shift; break ;;
+ - ) # Use stdin as input.
+ break ;;
+ -* )
+ echo "$me: invalid option $1$help" >&2
+ exit 1 ;;
+ * )
+ break ;;
+ esac
+done
+
+if test $# != 0; then
+ echo "$me: too many arguments$help" >&2
+ exit 1
+fi
+
+trap 'exit 1' 1 2 15
+
+# CC_FOR_BUILD -- compiler used by this script. Note that the use of a
+# compiler to aid in system detection is discouraged as it requires
+# temporary files to be created and, as you can see below, it is a
+# headache to deal with in a portable fashion.
+
+# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still
+# use `HOST_CC' if defined, but it is deprecated.
+
+# Portable tmp directory creation inspired by the Autoconf team.
+
+set_cc_for_build='
+trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;
+trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;
+: ${TMPDIR=/tmp} ;
+ { tmp=`(umask 077 && mktemp -d -q "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
+ { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } ||
+ { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } ||
+ { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ;
+dummy=$tmp/dummy ;
+tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ;
+case $CC_FOR_BUILD,$HOST_CC,$CC in
+ ,,) echo "int x;" > $dummy.c ;
+ for c in cc gcc c89 c99 ; do
+ if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then
+ CC_FOR_BUILD="$c"; break ;
+ fi ;
+ done ;
+ if test x"$CC_FOR_BUILD" = x ; then
+ CC_FOR_BUILD=no_compiler_found ;
+ fi
+ ;;
+ ,,*) CC_FOR_BUILD=$CC ;;
+ ,*,*) CC_FOR_BUILD=$HOST_CC ;;
+esac ;'
+
+# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
+# (ghazi at noc.rutgers.edu 1994-08-24)
+if (test -f /.attbin/uname) >/dev/null 2>&1 ; then
+ PATH=$PATH:/.attbin ; export PATH
+fi
+
+UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
+UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
+UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown
+UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
+
+## for Red Hat Linux
+if test -f /etc/redhat-release ; then
+ VENDOR=redhat ;
+else
+ VENDOR= ;
+fi
+
+# Note: order is significant - the case branches are not exclusive.
+
+case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
+ *:NetBSD:*:*)
+ # NetBSD (nbsd) targets should (where applicable) match one or
+ # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*,
+ # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently
+ # switched to ELF, *-*-netbsd* would select the old
+ # object file format. This provides both forward
+ # compatibility and a consistent mechanism for selecting the
+ # object file format.
+ #
+ # Note: NetBSD doesn't particularly care about the vendor
+ # portion of the name. We always set it to "unknown".
+ sysctl="sysctl -n hw.machine_arch"
+ UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \
+ /usr/sbin/$sysctl 2>/dev/null || echo unknown)`
+ case "${UNAME_MACHINE_ARCH}" in
+ armeb) machine=armeb-unknown ;;
+ arm*) machine=arm-unknown ;;
+ sh3el) machine=shl-unknown ;;
+ sh3eb) machine=sh-unknown ;;
+ *) machine=${UNAME_MACHINE_ARCH}-unknown ;;
+ esac
+ # The Operating System including object format, if it has switched
+ # to ELF recently, or will in the future.
+ case "${UNAME_MACHINE_ARCH}" in
+ arm*|i386|m68k|ns32k|sh3*|sparc|vax)
+ eval $set_cc_for_build
+ if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep __ELF__ >/dev/null
+ then
+ # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
+ # Return netbsd for either. FIX?
+ os=netbsd
+ else
+ os=netbsdelf
+ fi
+ ;;
+ *)
+ os=netbsd
+ ;;
+ esac
+ # The OS release
+ # Debian GNU/NetBSD machines have a different userland, and
+ # thus, need a distinct triplet. However, they do not need
+ # kernel version information, so it can be replaced with a
+ # suitable tag, in the style of linux-gnu.
+ case "${UNAME_VERSION}" in
+ Debian*)
+ release='-gnu'
+ ;;
+ *)
+ release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`
+ ;;
+ esac
+ # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
+ # contains redundant information, the shorter form:
+ # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
+ echo "${machine}-${os}${release}"
+ exit 0 ;;
+ amiga:OpenBSD:*:*)
+ echo m68k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ arc:OpenBSD:*:*)
+ echo mipsel-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ hp300:OpenBSD:*:*)
+ echo m68k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ mac68k:OpenBSD:*:*)
+ echo m68k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ macppc:OpenBSD:*:*)
+ echo powerpc-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ mvme68k:OpenBSD:*:*)
+ echo m68k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ mvme88k:OpenBSD:*:*)
+ echo m88k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ mvmeppc:OpenBSD:*:*)
+ echo powerpc-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ pmax:OpenBSD:*:*)
+ echo mipsel-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ sgi:OpenBSD:*:*)
+ echo mipseb-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ sun3:OpenBSD:*:*)
+ echo m68k-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ wgrisc:OpenBSD:*:*)
+ echo mipsel-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ *:OpenBSD:*:*)
+ echo ${UNAME_MACHINE}-unknown-openbsd${UNAME_RELEASE}
+ exit 0 ;;
+ alpha:OSF1:*:*)
+ if test $UNAME_RELEASE = "V4.0"; then
+ UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
+ fi
+ # According to Compaq, /usr/sbin/psrinfo has been available on
+ # OSF/1 and Tru64 systems produced since 1995. I hope that
+ # covers most systems running today. This code pipes the CPU
+ # types through head -n 1, so we only detect the type of CPU 0.
+ ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
+ case "$ALPHA_CPU_TYPE" in
+ "EV4 (21064)")
+ UNAME_MACHINE="alpha" ;;
+ "EV4.5 (21064)")
+ UNAME_MACHINE="alpha" ;;
+ "LCA4 (21066/21068)")
+ UNAME_MACHINE="alpha" ;;
+ "EV5 (21164)")
+ UNAME_MACHINE="alphaev5" ;;
+ "EV5.6 (21164A)")
+ UNAME_MACHINE="alphaev56" ;;
+ "EV5.6 (21164PC)")
+ UNAME_MACHINE="alphapca56" ;;
+ "EV5.7 (21164PC)")
+ UNAME_MACHINE="alphapca57" ;;
+ "EV6 (21264)")
+ UNAME_MACHINE="alphaev6" ;;
+ "EV6.7 (21264A)")
+ UNAME_MACHINE="alphaev67" ;;
+ "EV6.8CB (21264C)")
+ UNAME_MACHINE="alphaev68" ;;
+ "EV6.8AL (21264B)")
+ UNAME_MACHINE="alphaev68" ;;
+ "EV6.8CX (21264D)")
+ UNAME_MACHINE="alphaev68" ;;
+ "EV6.9A (21264/EV69A)")
+ UNAME_MACHINE="alphaev69" ;;
+ "EV7 (21364)")
+ UNAME_MACHINE="alphaev7" ;;
+ "EV7.9 (21364A)")
+ UNAME_MACHINE="alphaev79" ;;
+ esac
+ # A Vn.n version is a released version.
+ # A Tn.n version is a released field test version.
+ # A Xn.n version is an unreleased experimental baselevel.
+ # 1.2 uses "1.2" for uname -r.
+ echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
+ exit 0 ;;
+ Alpha*:OpenVMS:*:*)
+ echo alpha-hp-vms
+ exit 0 ;;
+ Alpha\ *:Windows_NT*:*)
+ # How do we know it's Interix rather than the generic POSIX subsystem?
+ # Should we change UNAME_MACHINE based on the output of uname instead
+ # of the specific Alpha model?
+ echo alpha-pc-interix
+ exit 0 ;;
+ 21064:Windows_NT:50:3)
+ echo alpha-dec-winnt3.5
+ exit 0 ;;
+ Amiga*:UNIX_System_V:4.0:*)
+ echo m68k-unknown-sysv4
+ exit 0;;
+ *:[Aa]miga[Oo][Ss]:*:*)
+ echo ${UNAME_MACHINE}-unknown-amigaos
+ exit 0 ;;
+ *:[Mm]orph[Oo][Ss]:*:*)
+ echo ${UNAME_MACHINE}-unknown-morphos
+ exit 0 ;;
+ *:OS/390:*:*)
+ echo i370-ibm-openedition
+ exit 0 ;;
+ arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
+ echo arm-acorn-riscix${UNAME_RELEASE}
+ exit 0;;
+ SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
+ echo hppa1.1-hitachi-hiuxmpp
+ exit 0;;
+ Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
+ # akee at wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
+ if test "`(/bin/universe) 2>/dev/null`" = att ; then
+ echo pyramid-pyramid-sysv3
+ else
+ echo pyramid-pyramid-bsd
+ fi
+ exit 0 ;;
+ NILE*:*:*:dcosx)
+ echo pyramid-pyramid-svr4
+ exit 0 ;;
+ DRS?6000:unix:4.0:6*)
+ echo sparc-icl-nx6
+ exit 0 ;;
+ DRS?6000:UNIX_SV:4.2*:7*)
+ case `/usr/bin/uname -p` in
+ sparc) echo sparc-icl-nx7 && exit 0 ;;
+ esac ;;
+ sun4H:SunOS:5.*:*)
+ echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
+ exit 0 ;;
+ sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
+ echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
+ exit 0 ;;
+ i86pc:SunOS:5.*:*)
+ echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
+ exit 0 ;;
+ sun4*:SunOS:6*:*)
+ # According to config.sub, this is the proper way to canonicalize
+ # SunOS6. Hard to guess exactly what SunOS6 will be like, but
+ # it's likely to be more like Solaris than SunOS4.
+ echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
+ exit 0 ;;
+ sun4*:SunOS:*:*)
+ case "`/usr/bin/arch -k`" in
+ Series*|S4*)
+ UNAME_RELEASE=`uname -v`
+ ;;
+ esac
+ # Japanese Language versions have a version number like `4.1.3-JL'.
+ echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'`
+ exit 0 ;;
+ sun3*:SunOS:*:*)
+ echo m68k-sun-sunos${UNAME_RELEASE}
+ exit 0 ;;
+ sun*:*:4.2BSD:*)
+ UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
+ test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3
+ case "`/bin/arch`" in
+ sun3)
+ echo m68k-sun-sunos${UNAME_RELEASE}
+ ;;
+ sun4)
+ echo sparc-sun-sunos${UNAME_RELEASE}
+ ;;
+ esac
+ exit 0 ;;
+ aushp:SunOS:*:*)
+ echo sparc-auspex-sunos${UNAME_RELEASE}
+ exit 0 ;;
+ # The situation for MiNT is a little confusing. The machine name
+ # can be virtually everything (everything which is not
+ # "atarist" or "atariste" at least should have a processor
+ # > m68000). The system name ranges from "MiNT" over "FreeMiNT"
+ # to the lowercase version "mint" (or "freemint"). Finally
+ # the system name "TOS" denotes a system which is actually not
+ # MiNT. But MiNT is downward compatible to TOS, so this should
+ # be no problem.
+ atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
+ echo m68k-atari-mint${UNAME_RELEASE}
+ exit 0 ;;
+ atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
+ echo m68k-atari-mint${UNAME_RELEASE}
+ exit 0 ;;
+ *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
+ echo m68k-atari-mint${UNAME_RELEASE}
+ exit 0 ;;
+ milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
+ echo m68k-milan-mint${UNAME_RELEASE}
+ exit 0 ;;
+ hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
+ echo m68k-hades-mint${UNAME_RELEASE}
+ exit 0 ;;
+ *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
+ echo m68k-unknown-mint${UNAME_RELEASE}
+ exit 0 ;;
+ powerpc:machten:*:*)
+ echo powerpc-apple-machten${UNAME_RELEASE}
+ exit 0 ;;
+ RISC*:Mach:*:*)
+ echo mips-dec-mach_bsd4.3
+ exit 0 ;;
+ RISC*:ULTRIX:*:*)
+ echo mips-dec-ultrix${UNAME_RELEASE}
+ exit 0 ;;
+ VAX*:ULTRIX*:*:*)
+ echo vax-dec-ultrix${UNAME_RELEASE}
+ exit 0 ;;
+ 2020:CLIX:*:* | 2430:CLIX:*:*)
+ echo clipper-intergraph-clix${UNAME_RELEASE}
+ exit 0 ;;
+ mips:*:*:UMIPS | mips:*:*:RISCos)
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+#ifdef __cplusplus
+#include <stdio.h> /* for printf() prototype */
+ int main (int argc, char *argv[]) {
+#else
+ int main (argc, argv) int argc; char *argv[]; {
+#endif
+ #if defined (host_mips) && defined (MIPSEB)
+ #if defined (SYSTYPE_SYSV)
+ printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0);
+ #endif
+ #if defined (SYSTYPE_SVR4)
+ printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0);
+ #endif
+ #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
+ printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0);
+ #endif
+ #endif
+ exit (-1);
+ }
+EOF
+ $CC_FOR_BUILD -o $dummy $dummy.c \
+ && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \
+ && exit 0
+ echo mips-mips-riscos${UNAME_RELEASE}
+ exit 0 ;;
+ Motorola:PowerMAX_OS:*:*)
+ echo powerpc-motorola-powermax
+ exit 0 ;;
+ Motorola:*:4.3:PL8-*)
+ echo powerpc-harris-powermax
+ exit 0 ;;
+ Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)
+ echo powerpc-harris-powermax
+ exit 0 ;;
+ Night_Hawk:Power_UNIX:*:*)
+ echo powerpc-harris-powerunix
+ exit 0 ;;
+ m88k:CX/UX:7*:*)
+ echo m88k-harris-cxux7
+ exit 0 ;;
+ m88k:*:4*:R4*)
+ echo m88k-motorola-sysv4
+ exit 0 ;;
+ m88k:*:3*:R3*)
+ echo m88k-motorola-sysv3
+ exit 0 ;;
+ AViiON:dgux:*:*)
+ # DG/UX returns AViiON for all architectures
+ UNAME_PROCESSOR=`/usr/bin/uname -p`
+ if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ]
+ then
+ if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \
+ [ ${TARGET_BINARY_INTERFACE}x = x ]
+ then
+ echo m88k-dg-dgux${UNAME_RELEASE}
+ else
+ echo m88k-dg-dguxbcs${UNAME_RELEASE}
+ fi
+ else
+ echo i586-dg-dgux${UNAME_RELEASE}
+ fi
+ exit 0 ;;
+ M88*:DolphinOS:*:*) # DolphinOS (SVR3)
+ echo m88k-dolphin-sysv3
+ exit 0 ;;
+ M88*:*:R3*:*)
+ # Delta 88k system running SVR3
+ echo m88k-motorola-sysv3
+ exit 0 ;;
+ XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
+ echo m88k-tektronix-sysv3
+ exit 0 ;;
+ Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
+ echo m68k-tektronix-bsd
+ exit 0 ;;
+ *:IRIX*:*:*)
+ echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'`
+ exit 0 ;;
+ ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
+ echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id
+ exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX '
+ i*86:AIX:*:*)
+ echo i386-ibm-aix
+ exit 0 ;;
+ ia64:AIX:*:*)
+ if [ -x /usr/bin/oslevel ] ; then
+ IBM_REV=`/usr/bin/oslevel`
+ else
+ IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
+ fi
+ echo ${UNAME_MACHINE}-ibm-aix${IBM_REV}
+ exit 0 ;;
+ *:AIX:2:3)
+ if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #include <sys/systemcfg.h>
+
+ main()
+ {
+ if (!__power_pc())
+ exit(1);
+ puts("powerpc-ibm-aix3.2.5");
+ exit(0);
+ }
+EOF
+ $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0
+ echo rs6000-ibm-aix3.2.5
+ elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
+ echo rs6000-ibm-aix3.2.4
+ else
+ echo rs6000-ibm-aix3.2
+ fi
+ exit 0 ;;
+ *:AIX:*:[45])
+ IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
+ if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then
+ IBM_ARCH=rs6000
+ else
+ IBM_ARCH=powerpc
+ fi
+ if [ -x /usr/bin/oslevel ] ; then
+ IBM_REV=`/usr/bin/oslevel`
+ else
+ IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
+ fi
+ echo ${IBM_ARCH}-ibm-aix${IBM_REV}
+ exit 0 ;;
+ *:AIX:*:*)
+ echo rs6000-ibm-aix
+ exit 0 ;;
+ ibmrt:4.4BSD:*|romp-ibm:BSD:*)
+ echo romp-ibm-bsd4.4
+ exit 0 ;;
+ ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and
+ echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to
+ exit 0 ;; # report: romp-ibm BSD 4.3
+ *:BOSX:*:*)
+ echo rs6000-bull-bosx
+ exit 0 ;;
+ DPX/2?00:B.O.S.:*:*)
+ echo m68k-bull-sysv3
+ exit 0 ;;
+ 9000/[34]??:4.3bsd:1.*:*)
+ echo m68k-hp-bsd
+ exit 0 ;;
+ hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
+ echo m68k-hp-bsd4.4
+ exit 0 ;;
+ 9000/[34678]??:HP-UX:*:*)
+ HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
+ case "${UNAME_MACHINE}" in
+ 9000/31? ) HP_ARCH=m68000 ;;
+ 9000/[34]?? ) HP_ARCH=m68k ;;
+ 9000/[678][0-9][0-9])
+ if [ -x /usr/bin/getconf ]; then
+ sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
+ sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
+ case "${sc_cpu_version}" in
+ 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
+ 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
+ 532) # CPU_PA_RISC2_0
+ case "${sc_kernel_bits}" in
+ 32) HP_ARCH="hppa2.0n" ;;
+ 64) HP_ARCH="hppa2.0w" ;;
+ '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20
+ esac ;;
+ esac
+ fi
+ if [ "${HP_ARCH}" = "" ]; then
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+
+ #define _HPUX_SOURCE
+ #include <stdlib.h>
+ #include <unistd.h>
+
+ int main ()
+ {
+ #if defined(_SC_KERNEL_BITS)
+ long bits = sysconf(_SC_KERNEL_BITS);
+ #endif
+ long cpu = sysconf (_SC_CPU_VERSION);
+
+ switch (cpu)
+ {
+ case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
+ case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
+ case CPU_PA_RISC2_0:
+ #if defined(_SC_KERNEL_BITS)
+ switch (bits)
+ {
+ case 64: puts ("hppa2.0w"); break;
+ case 32: puts ("hppa2.0n"); break;
+ default: puts ("hppa2.0"); break;
+ } break;
+ #else /* !defined(_SC_KERNEL_BITS) */
+ puts ("hppa2.0"); break;
+ #endif
+ default: puts ("hppa1.0"); break;
+ }
+ exit (0);
+ }
+EOF
+ (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`
+ test -z "$HP_ARCH" && HP_ARCH=hppa
+ fi ;;
+ esac
+ if [ ${HP_ARCH} = "hppa2.0w" ]
+ then
+ # avoid double evaluation of $set_cc_for_build
+ test -n "$CC_FOR_BUILD" || eval $set_cc_for_build
+ if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E -) | grep __LP64__ >/dev/null
+ then
+ HP_ARCH="hppa2.0w"
+ else
+ HP_ARCH="hppa64"
+ fi
+ fi
+ echo ${HP_ARCH}-hp-hpux${HPUX_REV}
+ exit 0 ;;
+ ia64:HP-UX:*:*)
+ HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
+ echo ia64-hp-hpux${HPUX_REV}
+ exit 0 ;;
+ 3050*:HI-UX:*:*)
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #include <unistd.h>
+ int
+ main ()
+ {
+ long cpu = sysconf (_SC_CPU_VERSION);
+ /* The order matters, because CPU_IS_HP_MC68K erroneously returns
+ true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct
+ results, however. */
+ if (CPU_IS_PA_RISC (cpu))
+ {
+ switch (cpu)
+ {
+ case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
+ case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
+ case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
+ default: puts ("hppa-hitachi-hiuxwe2"); break;
+ }
+ }
+ else if (CPU_IS_HP_MC68K (cpu))
+ puts ("m68k-hitachi-hiuxwe2");
+ else puts ("unknown-hitachi-hiuxwe2");
+ exit (0);
+ }
+EOF
+ $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0
+ echo unknown-hitachi-hiuxwe2
+ exit 0 ;;
+ 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* )
+ echo hppa1.1-hp-bsd
+ exit 0 ;;
+ 9000/8??:4.3bsd:*:*)
+ echo hppa1.0-hp-bsd
+ exit 0 ;;
+ *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
+ echo hppa1.0-hp-mpeix
+ exit 0 ;;
+ hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* )
+ echo hppa1.1-hp-osf
+ exit 0 ;;
+ hp8??:OSF1:*:*)
+ echo hppa1.0-hp-osf
+ exit 0 ;;
+ i*86:OSF1:*:*)
+ if [ -x /usr/sbin/sysversion ] ; then
+ echo ${UNAME_MACHINE}-unknown-osf1mk
+ else
+ echo ${UNAME_MACHINE}-unknown-osf1
+ fi
+ exit 0 ;;
+ parisc*:Lites*:*:*)
+ echo hppa1.1-hp-lites
+ exit 0 ;;
+ C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
+ echo c1-convex-bsd
+ exit 0 ;;
+ C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
+ if getsysinfo -f scalar_acc
+ then echo c32-convex-bsd
+ else echo c2-convex-bsd
+ fi
+ exit 0 ;;
+ C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
+ echo c34-convex-bsd
+ exit 0 ;;
+ C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
+ echo c38-convex-bsd
+ exit 0 ;;
+ C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
+ echo c4-convex-bsd
+ exit 0 ;;
+ CRAY*Y-MP:*:*:*)
+ echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ CRAY*[A-Z]90:*:*:*)
+ echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \
+ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
+ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
+ -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ CRAY*TS:*:*:*)
+ echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ CRAY*T3E:*:*:*)
+ echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ CRAY*SV1:*:*:*)
+ echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ *:UNICOS/mp:*:*)
+ echo nv1-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
+ exit 0 ;;
+ F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
+ FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
+ FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
+ FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'`
+ echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
+ exit 0 ;;
+ i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
+ echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE}
+ exit 0 ;;
+ sparc*:BSD/OS:*:*)
+ echo sparc-unknown-bsdi${UNAME_RELEASE}
+ exit 0 ;;
+ *:BSD/OS:*:*)
+ echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE}
+ exit 0 ;;
+ *:FreeBSD:*:*|*:GNU/FreeBSD:*:*)
+ # Determine whether the default compiler uses glibc.
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #include <features.h>
+ #if __GLIBC__ >= 2
+ LIBC=gnu
+ #else
+ LIBC=
+ #endif
+EOF
+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=`
+ echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC}
+ exit 0 ;;
+ i*:CYGWIN*:*)
+ echo ${UNAME_MACHINE}-pc-cygwin
+ exit 0 ;;
+ i*:MINGW*:*)
+ echo ${UNAME_MACHINE}-pc-mingw32
+ exit 0 ;;
+ i*:PW*:*)
+ echo ${UNAME_MACHINE}-pc-pw32
+ exit 0 ;;
+ x86:Interix*:[34]*)
+ echo i586-pc-interix${UNAME_RELEASE}|sed -e 's/\..*//'
+ exit 0 ;;
+ [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*)
+ echo i${UNAME_MACHINE}-pc-mks
+ exit 0 ;;
+ i*:Windows_NT*:* | Pentium*:Windows_NT*:*)
+ # How do we know it's Interix rather than the generic POSIX subsystem?
+ # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we
+ # UNAME_MACHINE based on the output of uname instead of i386?
+ echo i586-pc-interix
+ exit 0 ;;
+ i*:UWIN*:*)
+ echo ${UNAME_MACHINE}-pc-uwin
+ exit 0 ;;
+ p*:CYGWIN*:*)
+ echo powerpcle-unknown-cygwin
+ exit 0 ;;
+ prep*:SunOS:5.*:*)
+ echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
+ exit 0 ;;
+ *:GNU:*:*)
+ echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
+ exit 0 ;;
+ i*86:Minix:*:*)
+ echo ${UNAME_MACHINE}-pc-minix
+ exit 0 ;;
+ arm*:Linux:*:*)
+ echo ${UNAME_MACHINE}-unknown-linux-gnu
+ exit 0 ;;
+ cris:Linux:*:*)
+ echo cris-axis-linux-gnu
+ exit 0 ;;
+ ia64:Linux:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR:-unknown}-linux-gnu
+ exit 0 ;;
+ m68*:Linux:*:*)
+ echo ${UNAME_MACHINE}-unknown-linux-gnu
+ exit 0 ;;
+ mips:Linux:*:*)
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #undef CPU
+ #undef mips
+ #undef mipsel
+ #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
+ CPU=mipsel
+ #else
+ #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
+ CPU=mips
+ #else
+ CPU=
+ #endif
+ #endif
+EOF
+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=`
+ test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0
+ ;;
+ mips64:Linux:*:*)
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #undef CPU
+ #undef mips64
+ #undef mips64el
+ #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
+ CPU=mips64el
+ #else
+ #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
+ CPU=mips64
+ #else
+ CPU=
+ #endif
+ #endif
+EOF
+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=`
+ test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0
+ ;;
+ ppc:Linux:*:*)
+ echo powerpc-${VENDOR:-unknown}-linux-gnu
+ exit 0 ;;
+ ppc64:Linux:*:*)
+ echo powerpc64-${VENDOR:-unknown}-linux-gnu
+ exit 0 ;;
+ alpha:Linux:*:*)
+ case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in
+ EV5) UNAME_MACHINE=alphaev5 ;;
+ EV56) UNAME_MACHINE=alphaev56 ;;
+ PCA56) UNAME_MACHINE=alphapca56 ;;
+ PCA57) UNAME_MACHINE=alphapca56 ;;
+ EV6) UNAME_MACHINE=alphaev6 ;;
+ EV67) UNAME_MACHINE=alphaev67 ;;
+ EV68*) UNAME_MACHINE=alphaev68 ;;
+ esac
+ objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null
+ if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi
+ echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC}
+ exit 0 ;;
+ parisc:Linux:*:* | hppa:Linux:*:*)
+ # Look for CPU level
+ case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
+ PA7*) echo hppa1.1-unknown-linux-gnu ;;
+ PA8*) echo hppa2.0-unknown-linux-gnu ;;
+ *) echo hppa-unknown-linux-gnu ;;
+ esac
+ exit 0 ;;
+ parisc64:Linux:*:* | hppa64:Linux:*:*)
+ echo hppa64-unknown-linux-gnu
+ exit 0 ;;
+ s390:Linux:*:* | s390x:Linux:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR:-ibm}-linux-gnu
+ exit 0 ;;
+ sh64*:Linux:*:*)
+ echo ${UNAME_MACHINE}-unknown-linux-gnu
+ exit 0 ;;
+ sh*:Linux:*:*)
+ echo ${UNAME_MACHINE}-unknown-linux-gnu
+ exit 0 ;;
+ sparc:Linux:*:* | sparc64:Linux:*:*)
+ echo ${UNAME_MACHINE}-unknown-linux-gnu
+ exit 0 ;;
+ x86_64:Linux:*:*)
+ echo x86_64-${VENDOR:-unknown}-linux-gnu
+ exit 0 ;;
+ i*86:Linux:*:*)
+ # The BFD linker knows what the default object file format is, so
+ # first see if it will tell us. cd to the root directory to prevent
+ # problems with other programs or directories called `ld' in the path.
+ # Set LC_ALL=C to ensure ld outputs messages in English.
+ ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \
+ | sed -ne '/supported targets:/!d
+ s/[ ][ ]*/ /g
+ s/.*supported targets: *//
+ s/ .*//
+ p'`
+ case "$ld_supported_targets" in
+ elf32-i386)
+ TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu"
+ ;;
+ a.out-i386-linux)
+ echo "${UNAME_MACHINE}-pc-linux-gnuaout"
+ exit 0 ;;
+ coff-i386)
+ echo "${UNAME_MACHINE}-pc-linux-gnucoff"
+ exit 0 ;;
+ "")
+ # Either a pre-BFD a.out linker (linux-gnuoldld) or
+ # one that does not give us useful --help.
+ echo "${UNAME_MACHINE}-pc-linux-gnuoldld"
+ exit 0 ;;
+ esac
+ # Determine whether the default compiler is a.out or elf
+ eval $set_cc_for_build
+ sed 's/^ //' << EOF >$dummy.c
+ #include <features.h>
+ #ifdef __ELF__
+ # ifdef __GLIBC__
+ # if __GLIBC__ >= 2
+ LIBC=gnu
+ # else
+ LIBC=gnulibc1
+ # endif
+ # else
+ LIBC=gnulibc1
+ # endif
+ #else
+ #ifdef __INTEL_COMPILER
+ LIBC=gnu
+ #else
+ LIBC=gnuaout
+ #endif
+ #endif
+EOF
+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=`
+ test x"${LIBC}" != x && echo "${UNAME_MACHINE}-${VENDOR:-pc}-linux-${LIBC}" && exit 0
+ test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0
+ ;;
+ i*86:DYNIX/ptx:4*:*)
+ # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
+ # earlier versions are messed up and put the nodename in both
+ # sysname and nodename.
+ echo i386-sequent-sysv4
+ exit 0 ;;
+ i*86:UNIX_SV:4.2MP:2.*)
+ # Unixware is an offshoot of SVR4, but it has its own version
+ # number series starting with 2...
+ # I am not positive that other SVR4 systems won't match this,
+ # I just have to hope. -- rms.
+ # Use sysv4.2uw... so that sysv4* matches it.
+ echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION}
+ exit 0 ;;
+ i*86:OS/2:*:*)
+ # If we were able to find `uname', then EMX Unix compatibility
+ # is probably installed.
+ echo ${UNAME_MACHINE}-pc-os2-emx
+ exit 0 ;;
+ i*86:XTS-300:*:STOP)
+ echo ${UNAME_MACHINE}-unknown-stop
+ exit 0 ;;
+ i*86:atheos:*:*)
+ echo ${UNAME_MACHINE}-unknown-atheos
+ exit 0 ;;
+ i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*)
+ echo i386-unknown-lynxos${UNAME_RELEASE}
+ exit 0 ;;
+ i*86:*DOS:*:*)
+ echo ${UNAME_MACHINE}-pc-msdosdjgpp
+ exit 0 ;;
+ i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*)
+ UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'`
+ if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
+ echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL}
+ else
+ echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL}
+ fi
+ exit 0 ;;
+ i*86:*:5:[78]*)
+ case `/bin/uname -X | grep "^Machine"` in
+ *486*) UNAME_MACHINE=i486 ;;
+ *Pentium) UNAME_MACHINE=i586 ;;
+ *Pent*|*Celeron) UNAME_MACHINE=i686 ;;
+ esac
+ echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
+ exit 0 ;;
+ i*86:*:3.2:*)
+ if test -f /usr/options/cb.name; then
+ UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`
+ echo ${UNAME_MACHINE}-pc-isc$UNAME_REL
+ elif /bin/uname -X 2>/dev/null >/dev/null ; then
+ UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`
+ (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486
+ (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \
+ && UNAME_MACHINE=i586
+ (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \
+ && UNAME_MACHINE=i686
+ (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \
+ && UNAME_MACHINE=i686
+ echo ${UNAME_MACHINE}-pc-sco$UNAME_REL
+ else
+ echo ${UNAME_MACHINE}-pc-sysv32
+ fi
+ exit 0 ;;
+ pc:*:*:*)
+ # Left here for compatibility:
+ # uname -m prints for DJGPP always 'pc', but it prints nothing about
+ # the processor, so we play safe by assuming i386.
+ echo i386-pc-msdosdjgpp
+ exit 0 ;;
+ Intel:Mach:3*:*)
+ echo i386-pc-mach3
+ exit 0 ;;
+ paragon:*:*:*)
+ echo i860-intel-osf1
+ exit 0 ;;
+ i860:*:4.*:*) # i860-SVR4
+ if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
+ echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4
+ else # Add other i860-SVR4 vendors below as they are discovered.
+ echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4
+ fi
+ exit 0 ;;
+ mini*:CTIX:SYS*5:*)
+ # "miniframe"
+ echo m68010-convergent-sysv
+ exit 0 ;;
+ mc68k:UNIX:SYSTEM5:3.51m)
+ echo m68k-convergent-sysv
+ exit 0 ;;
+ M680?0:D-NIX:5.3:*)
+ echo m68k-diab-dnix
+ exit 0 ;;
+ M68*:*:R3V[567]*:*)
+ test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;;
+ 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0)
+ OS_REL=''
+ test -r /etc/.relid \
+ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && echo i486-ncr-sysv4.3${OS_REL} && exit 0
+ /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
+ && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;;
+ 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && echo i486-ncr-sysv4 && exit 0 ;;
+ m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
+ echo m68k-unknown-lynxos${UNAME_RELEASE}
+ exit 0 ;;
+ mc68030:UNIX_System_V:4.*:*)
+ echo m68k-atari-sysv4
+ exit 0 ;;
+ TSUNAMI:LynxOS:2.*:*)
+ echo sparc-unknown-lynxos${UNAME_RELEASE}
+ exit 0 ;;
+ rs6000:LynxOS:2.*:*)
+ echo rs6000-unknown-lynxos${UNAME_RELEASE}
+ exit 0 ;;
+ PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*)
+ echo powerpc-unknown-lynxos${UNAME_RELEASE}
+ exit 0 ;;
+ SM[BE]S:UNIX_SV:*:*)
+ echo mips-dde-sysv${UNAME_RELEASE}
+ exit 0 ;;
+ RM*:ReliantUNIX-*:*:*)
+ echo mips-sni-sysv4
+ exit 0 ;;
+ RM*:SINIX-*:*:*)
+ echo mips-sni-sysv4
+ exit 0 ;;
+ *:SINIX-*:*:*)
+ if uname -p 2>/dev/null >/dev/null ; then
+ UNAME_MACHINE=`(uname -p) 2>/dev/null`
+ echo ${UNAME_MACHINE}-sni-sysv4
+ else
+ echo ns32k-sni-sysv
+ fi
+ exit 0 ;;
+ PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
+ # says <Richard.M.Bartel at ccMail.Census.GOV>
+ echo i586-unisys-sysv4
+ exit 0 ;;
+ *:UNIX_System_V:4*:FTX*)
+ # From Gerald Hewes <hewes at openmarket.com>.
+ # How about differentiating between stratus architectures? -djm
+ echo hppa1.1-stratus-sysv4
+ exit 0 ;;
+ *:*:*:FTX*)
+ # From seanf at swdc.stratus.com.
+ echo i860-stratus-sysv4
+ exit 0 ;;
+ *:VOS:*:*)
+ # From Paul.Green at stratus.com.
+ echo hppa1.1-stratus-vos
+ exit 0 ;;
+ mc68*:A/UX:*:*)
+ echo m68k-apple-aux${UNAME_RELEASE}
+ exit 0 ;;
+ news*:NEWS-OS:6*:*)
+ echo mips-sony-newsos6
+ exit 0 ;;
+ R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
+ if [ -d /usr/nec ]; then
+ echo mips-nec-sysv${UNAME_RELEASE}
+ else
+ echo mips-unknown-sysv${UNAME_RELEASE}
+ fi
+ exit 0 ;;
+ BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
+ echo powerpc-be-beos
+ exit 0 ;;
+ BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only.
+ echo powerpc-apple-beos
+ exit 0 ;;
+ BePC:BeOS:*:*) # BeOS running on Intel PC compatible.
+ echo i586-pc-beos
+ exit 0 ;;
+ SX-4:SUPER-UX:*:*)
+ echo sx4-nec-superux${UNAME_RELEASE}
+ exit 0 ;;
+ SX-5:SUPER-UX:*:*)
+ echo sx5-nec-superux${UNAME_RELEASE}
+ exit 0 ;;
+ SX-6:SUPER-UX:*:*)
+ echo sx6-nec-superux${UNAME_RELEASE}
+ exit 0 ;;
+ Power*:Rhapsody:*:*)
+ echo powerpc-apple-rhapsody${UNAME_RELEASE}
+ exit 0 ;;
+ *:Rhapsody:*:*)
+ echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}
+ exit 0 ;;
+ *:Darwin:*:*)
+ case `uname -p` in
+ *86) UNAME_PROCESSOR=i686 ;;
+ powerpc) UNAME_PROCESSOR=powerpc ;;
+ esac
+ echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE}
+ exit 0 ;;
+ *:procnto*:*:* | *:QNX:[0123456789]*:*)
+ UNAME_PROCESSOR=`uname -p`
+ if test "$UNAME_PROCESSOR" = "x86"; then
+ UNAME_PROCESSOR=i386
+ UNAME_MACHINE=pc
+ fi
+ echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE}
+ exit 0 ;;
+ *:QNX:*:4*)
+ echo i386-pc-qnx
+ exit 0 ;;
+ NSR-[DGKLNPTVW]:NONSTOP_KERNEL:*:*)
+ echo nsr-tandem-nsk${UNAME_RELEASE}
+ exit 0 ;;
+ *:NonStop-UX:*:*)
+ echo mips-compaq-nonstopux
+ exit 0 ;;
+ BS2000:POSIX*:*:*)
+ echo bs2000-siemens-sysv
+ exit 0 ;;
+ DS/*:UNIX_System_V:*:*)
+ echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE}
+ exit 0 ;;
+ *:Plan9:*:*)
+ # "uname -m" is not consistent, so use $cputype instead. 386
+ # is converted to i386 for consistency with other x86
+ # operating systems.
+ if test "$cputype" = "386"; then
+ UNAME_MACHINE=i386
+ else
+ UNAME_MACHINE="$cputype"
+ fi
+ echo ${UNAME_MACHINE}-unknown-plan9
+ exit 0 ;;
+ *:TOPS-10:*:*)
+ echo pdp10-unknown-tops10
+ exit 0 ;;
+ *:TENEX:*:*)
+ echo pdp10-unknown-tenex
+ exit 0 ;;
+ KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
+ echo pdp10-dec-tops20
+ exit 0 ;;
+ XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
+ echo pdp10-xkl-tops20
+ exit 0 ;;
+ *:TOPS-20:*:*)
+ echo pdp10-unknown-tops20
+ exit 0 ;;
+ *:ITS:*:*)
+ echo pdp10-unknown-its
+ exit 0 ;;
+ SEI:*:*:SEIUX)
+ echo mips-sei-seiux${UNAME_RELEASE}
+ exit 0 ;;
+esac
+
+#echo '(No uname command or uname output not recognized.)' 1>&2
+#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2
+
+eval $set_cc_for_build
+cat >$dummy.c <<EOF
+#ifdef _SEQUENT_
+# include <sys/types.h>
+# include <sys/utsname.h>
+#endif
+main ()
+{
+#if defined (sony)
+#if defined (MIPSEB)
+ /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed,
+ I don't know.... */
+ printf ("mips-sony-bsd\n"); exit (0);
+#else
+#include <sys/param.h>
+ printf ("m68k-sony-newsos%s\n",
+#ifdef NEWSOS4
+ "4"
+#else
+ ""
+#endif
+ ); exit (0);
+#endif
+#endif
+
+#if defined (__arm) && defined (__acorn) && defined (__unix)
+ printf ("arm-acorn-riscix"); exit (0);
+#endif
+
+#if defined (hp300) && !defined (hpux)
+ printf ("m68k-hp-bsd\n"); exit (0);
+#endif
+
+#if defined (NeXT)
+#if !defined (__ARCHITECTURE__)
+#define __ARCHITECTURE__ "m68k"
+#endif
+ int version;
+ version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
+ if (version < 4)
+ printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
+ else
+ printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
+ exit (0);
+#endif
+
+#if defined (MULTIMAX) || defined (n16)
+#if defined (UMAXV)
+ printf ("ns32k-encore-sysv\n"); exit (0);
+#else
+#if defined (CMU)
+ printf ("ns32k-encore-mach\n"); exit (0);
+#else
+ printf ("ns32k-encore-bsd\n"); exit (0);
+#endif
+#endif
+#endif
+
+#if defined (__386BSD__)
+ printf ("i386-pc-bsd\n"); exit (0);
+#endif
+
+#if defined (sequent)
+#if defined (i386)
+ printf ("i386-sequent-dynix\n"); exit (0);
+#endif
+#if defined (ns32000)
+ printf ("ns32k-sequent-dynix\n"); exit (0);
+#endif
+#endif
+
+#if defined (_SEQUENT_)
+ struct utsname un;
+
+ uname(&un);
+
+ if (strncmp(un.version, "V2", 2) == 0) {
+ printf ("i386-sequent-ptx2\n"); exit (0);
+ }
+ if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
+ printf ("i386-sequent-ptx1\n"); exit (0);
+ }
+ printf ("i386-sequent-ptx\n"); exit (0);
+
+#endif
+
+#if defined (vax)
+# if !defined (ultrix)
+# include <sys/param.h>
+# if defined (BSD)
+# if BSD == 43
+ printf ("vax-dec-bsd4.3\n"); exit (0);
+# else
+# if BSD == 199006
+ printf ("vax-dec-bsd4.3reno\n"); exit (0);
+# else
+ printf ("vax-dec-bsd\n"); exit (0);
+# endif
+# endif
+# else
+ printf ("vax-dec-bsd\n"); exit (0);
+# endif
+# else
+ printf ("vax-dec-ultrix\n"); exit (0);
+# endif
+#endif
+
+#if defined (alliant) && defined (i860)
+ printf ("i860-alliant-bsd\n"); exit (0);
+#endif
+
+ exit (1);
+}
+EOF
+
+$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && $dummy && exit 0
+
+# Apollos put the system type in the environment.
+
+test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; }
+
+# Convex versions that predate uname can use getsysinfo(1)
+
+if [ -x /usr/convex/getsysinfo ]
+then
+ case `getsysinfo -f cpu_type` in
+ c1*)
+ echo c1-convex-bsd
+ exit 0 ;;
+ c2*)
+ if getsysinfo -f scalar_acc
+ then echo c32-convex-bsd
+ else echo c2-convex-bsd
+ fi
+ exit 0 ;;
+ c34*)
+ echo c34-convex-bsd
+ exit 0 ;;
+ c38*)
+ echo c38-convex-bsd
+ exit 0 ;;
+ c4*)
+ echo c4-convex-bsd
+ exit 0 ;;
+ esac
+fi
+
+cat >&2 <<EOF
+$0: unable to guess system type
+
+This script, last modified $timestamp, has failed to recognize
+the operating system you are using. It is advised that you
+download the most up to date version of the config scripts from
+
+ ftp://ftp.gnu.org/pub/gnu/config/
+
+If the version you run ($0) is already up to date, please
+send the following data and any information you think might be
+pertinent to <config-patches at gnu.org> in order to provide the needed
+information to handle your system.
+
+config.guess timestamp = $timestamp
+
+uname -m = `(uname -m) 2>/dev/null || echo unknown`
+uname -r = `(uname -r) 2>/dev/null || echo unknown`
+uname -s = `(uname -s) 2>/dev/null || echo unknown`
+uname -v = `(uname -v) 2>/dev/null || echo unknown`
+
+/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
+/bin/uname -X = `(/bin/uname -X) 2>/dev/null`
+
+hostinfo = `(hostinfo) 2>/dev/null`
+/bin/universe = `(/bin/universe) 2>/dev/null`
+/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null`
+/bin/arch = `(/bin/arch) 2>/dev/null`
+/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null`
+/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
+
+UNAME_MACHINE = ${UNAME_MACHINE}
+UNAME_RELEASE = ${UNAME_RELEASE}
+UNAME_SYSTEM = ${UNAME_SYSTEM}
+UNAME_VERSION = ${UNAME_VERSION}
+EOF
+
+exit 1
+
+# Local variables:
+# eval: (add-hook 'write-file-hooks 'time-stamp)
+# time-stamp-start: "timestamp='"
+# time-stamp-format: "%:y-%02m-%02d"
+# time-stamp-end: "'"
+# End:
Property changes on: trunk/libltdl/config.guess
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/libltdl/config.sub
===================================================================
--- trunk/libltdl/config.sub (rev 0)
+++ trunk/libltdl/config.sub 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,1500 @@
+#! /bin/sh
+# Configuration validation subroutine script.
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+# 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
+
+timestamp='2003-06-18'
+
+# This file is (in principle) common to ALL GNU software.
+# The presence of a machine in this file suggests that SOME GNU software
+# can handle that machine. It does not imply ALL GNU software can.
+#
+# This file is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+# Please send patches to <config-patches at gnu.org>. Submit a context
+# diff and a properly formatted ChangeLog entry.
+#
+# Configuration subroutine to validate and canonicalize a configuration type.
+# Supply the specified configuration type as an argument.
+# If it is invalid, we print an error message on stderr and exit with code 1.
+# Otherwise, we print the canonical config type on stdout and succeed.
+
+# This file is supposed to be the same for all GNU packages
+# and recognize all the CPU types, system types and aliases
+# that are meaningful with *any* GNU software.
+# Each package is responsible for reporting which valid configurations
+# it does not support. The user should be able to distinguish
+# a failure to support a valid configuration from a meaningless
+# configuration.
+
+# The goal of this file is to map all the various variations of a given
+# machine specification into a single specification in the form:
+# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
+# or in some cases, the newer four-part form:
+# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
+# It is wrong to echo any other type of specification.
+
+me=`echo "$0" | sed -e 's,.*/,,'`
+
+usage="\
+Usage: $0 [OPTION] CPU-MFR-OPSYS
+ $0 [OPTION] ALIAS
+
+Canonicalize a configuration name.
+
+Operation modes:
+ -h, --help print this help, then exit
+ -t, --time-stamp print date of last modification, then exit
+ -v, --version print version number, then exit
+
+Report bugs and patches to <config-patches at gnu.org>."
+
+version="\
+GNU config.sub ($timestamp)
+
+Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+Free Software Foundation, Inc.
+
+This is free software; see the source for copying conditions. There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+
+help="
+Try \`$me --help' for more information."
+
+# Parse command line
+while test $# -gt 0 ; do
+ case $1 in
+ --time-stamp | --time* | -t )
+ echo "$timestamp" ; exit 0 ;;
+ --version | -v )
+ echo "$version" ; exit 0 ;;
+ --help | --h* | -h )
+ echo "$usage"; exit 0 ;;
+ -- ) # Stop option processing
+ shift; break ;;
+ - ) # Use stdin as input.
+ break ;;
+ -* )
+ echo "$me: invalid option $1$help"
+ exit 1 ;;
+
+ *local*)
+ # First pass through any local machine types.
+ echo $1
+ exit 0;;
+
+ * )
+ break ;;
+ esac
+done
+
+case $# in
+ 0) echo "$me: missing argument$help" >&2
+ exit 1;;
+ 1) ;;
+ *) echo "$me: too many arguments$help" >&2
+ exit 1;;
+esac
+
+# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any).
+# Here we must recognize all the valid KERNEL-OS combinations.
+maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'`
+case $maybe_os in
+ nto-qnx* | linux-gnu* | freebsd*-gnu* | netbsd*-gnu* | storm-chaos* | os2-emx* | rtmk-nova*)
+ os=-$maybe_os
+ basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`
+ ;;
+ *)
+ basic_machine=`echo $1 | sed 's/-[^-]*$//'`
+ if [ $basic_machine != $1 ]
+ then os=`echo $1 | sed 's/.*-/-/'`
+ else os=; fi
+ ;;
+esac
+
+### Let's recognize common machines as not being operating systems so
+### that things like config.sub decstation-3100 work. We also
+### recognize some manufacturers as not being operating systems, so we
+### can provide default operating systems below.
+case $os in
+ -sun*os*)
+ # Prevent following clause from handling this invalid input.
+ ;;
+ -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \
+ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \
+ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \
+ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\
+ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \
+ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \
+ -apple | -axis)
+ os=
+ basic_machine=$1
+ ;;
+ -sim | -cisco | -oki | -wec | -winbond)
+ os=
+ basic_machine=$1
+ ;;
+ -scout)
+ ;;
+ -wrs)
+ os=-vxworks
+ basic_machine=$1
+ ;;
+ -chorusos*)
+ os=-chorusos
+ basic_machine=$1
+ ;;
+ -chorusrdb)
+ os=-chorusrdb
+ basic_machine=$1
+ ;;
+ -hiux*)
+ os=-hiuxwe2
+ ;;
+ -sco5)
+ os=-sco3.2v5
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -sco4)
+ os=-sco3.2v4
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -sco3.2.[4-9]*)
+ os=`echo $os | sed -e 's/sco3.2./sco3.2v/'`
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -sco3.2v[4-9]*)
+ # Don't forget version if it is 3.2v4 or newer.
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -sco*)
+ os=-sco3.2v2
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -udk*)
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -isc)
+ os=-isc2.2
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -clix*)
+ basic_machine=clipper-intergraph
+ ;;
+ -isc*)
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
+ ;;
+ -lynx*)
+ os=-lynxos
+ ;;
+ -ptx*)
+ basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'`
+ ;;
+ -windowsnt*)
+ os=`echo $os | sed -e 's/windowsnt/winnt/'`
+ ;;
+ -psos*)
+ os=-psos
+ ;;
+ -mint | -mint[0-9]*)
+ basic_machine=m68k-atari
+ os=-mint
+ ;;
+esac
+
+# Decode aliases for certain CPU-COMPANY combinations.
+case $basic_machine in
+ # Recognize the basic CPU types without company name.
+ # Some are omitted here because they have special meanings below.
+ 1750a | 580 \
+ | a29k \
+ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \
+ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \
+ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \
+ | c4x | clipper \
+ | d10v | d30v | dlx | dsp16xx \
+ | fr30 | frv \
+ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
+ | i370 | i860 | i960 | ia64 \
+ | ip2k \
+ | m32r | m68000 | m68k | m88k | mcore \
+ | mips | mipsbe | mipseb | mipsel | mipsle \
+ | mips16 \
+ | mips64 | mips64el \
+ | mips64vr | mips64vrel \
+ | mips64orion | mips64orionel \
+ | mips64vr4100 | mips64vr4100el \
+ | mips64vr4300 | mips64vr4300el \
+ | mips64vr5000 | mips64vr5000el \
+ | mipsisa32 | mipsisa32el \
+ | mipsisa32r2 | mipsisa32r2el \
+ | mipsisa64 | mipsisa64el \
+ | mipsisa64sb1 | mipsisa64sb1el \
+ | mipsisa64sr71k | mipsisa64sr71kel \
+ | mipstx39 | mipstx39el \
+ | mn10200 | mn10300 \
+ | msp430 \
+ | ns16k | ns32k \
+ | openrisc | or32 \
+ | pdp10 | pdp11 | pj | pjl \
+ | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \
+ | pyramid \
+ | s390 | s390x \
+ | sh | sh[1234] | sh[23]e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \
+ | sh64 | sh64le \
+ | sparc | sparc64 | sparc86x | sparclet | sparclite | sparcv9 | sparcv9b \
+ | strongarm \
+ | tahoe | thumb | tic4x | tic80 | tron \
+ | v850 | v850e \
+ | we32k \
+ | x86 | xscale | xstormy16 | xtensa \
+ | z8k)
+ basic_machine=$basic_machine-unknown
+ ;;
+ m6811 | m68hc11 | m6812 | m68hc12)
+ # Motorola 68HC11/12.
+ basic_machine=$basic_machine-unknown
+ os=-none
+ ;;
+ m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k)
+ ;;
+
+ # We use `pc' rather than `unknown'
+ # because (1) that's what they normally are, and
+ # (2) the word "unknown" tends to confuse beginning users.
+ i*86 | x86_64)
+ basic_machine=$basic_machine-pc
+ ;;
+ # Object if more than one company name word.
+ *-*-*)
+ echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
+ exit 1
+ ;;
+ # Recognize the basic CPU types with company name.
+ 580-* \
+ | a29k-* \
+ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \
+ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \
+ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \
+ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \
+ | avr-* \
+ | bs2000-* \
+ | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \
+ | clipper-* | cydra-* \
+ | d10v-* | d30v-* | dlx-* \
+ | elxsi-* \
+ | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \
+ | h8300-* | h8500-* \
+ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \
+ | i*86-* | i860-* | i960-* | ia64-* \
+ | ip2k-* \
+ | m32r-* \
+ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
+ | m88110-* | m88k-* | mcore-* \
+ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
+ | mips16-* \
+ | mips64-* | mips64el-* \
+ | mips64vr-* | mips64vrel-* \
+ | mips64orion-* | mips64orionel-* \
+ | mips64vr4100-* | mips64vr4100el-* \
+ | mips64vr4300-* | mips64vr4300el-* \
+ | mips64vr5000-* | mips64vr5000el-* \
+ | mipsisa32-* | mipsisa32el-* \
+ | mipsisa32r2-* | mipsisa32r2el-* \
+ | mipsisa64-* | mipsisa64el-* \
+ | mipsisa64sb1-* | mipsisa64sb1el-* \
+ | mipsisa64sr71k-* | mipsisa64sr71kel-* \
+ | mipstx39-* | mipstx39el-* \
+ | msp430-* \
+ | none-* | np1-* | nv1-* | ns16k-* | ns32k-* \
+ | orion-* \
+ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \
+ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \
+ | pyramid-* \
+ | romp-* | rs6000-* \
+ | s390-* | s390x-* \
+ | sh-* | sh[1234]-* | sh[23]e-* | sh[34]eb-* | shbe-* \
+ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \
+ | sparc-* | sparc64-* | sparc86x-* | sparclet-* | sparclite-* \
+ | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* | sx?-* \
+ | tahoe-* | thumb-* \
+ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \
+ | tron-* \
+ | v850-* | v850e-* | vax-* \
+ | we32k-* \
+ | x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \
+ | xtensa-* \
+ | ymp-* \
+ | z8k-*)
+ ;;
+ # Recognize the various machine names and aliases which stand
+ # for a CPU type and a company and sometimes even an OS.
+ 386bsd)
+ basic_machine=i386-unknown
+ os=-bsd
+ ;;
+ 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
+ basic_machine=m68000-att
+ ;;
+ 3b*)
+ basic_machine=we32k-att
+ ;;
+ a29khif)
+ basic_machine=a29k-amd
+ os=-udi
+ ;;
+ adobe68k)
+ basic_machine=m68010-adobe
+ os=-scout
+ ;;
+ alliant | fx80)
+ basic_machine=fx80-alliant
+ ;;
+ altos | altos3068)
+ basic_machine=m68k-altos
+ ;;
+ am29k)
+ basic_machine=a29k-none
+ os=-bsd
+ ;;
+ amd64)
+ basic_machine=x86_64-pc
+ ;;
+ amdahl)
+ basic_machine=580-amdahl
+ os=-sysv
+ ;;
+ amiga | amiga-*)
+ basic_machine=m68k-unknown
+ ;;
+ amigaos | amigados)
+ basic_machine=m68k-unknown
+ os=-amigaos
+ ;;
+ amigaunix | amix)
+ basic_machine=m68k-unknown
+ os=-sysv4
+ ;;
+ apollo68)
+ basic_machine=m68k-apollo
+ os=-sysv
+ ;;
+ apollo68bsd)
+ basic_machine=m68k-apollo
+ os=-bsd
+ ;;
+ aux)
+ basic_machine=m68k-apple
+ os=-aux
+ ;;
+ balance)
+ basic_machine=ns32k-sequent
+ os=-dynix
+ ;;
+ c90)
+ basic_machine=c90-cray
+ os=-unicos
+ ;;
+ convex-c1)
+ basic_machine=c1-convex
+ os=-bsd
+ ;;
+ convex-c2)
+ basic_machine=c2-convex
+ os=-bsd
+ ;;
+ convex-c32)
+ basic_machine=c32-convex
+ os=-bsd
+ ;;
+ convex-c34)
+ basic_machine=c34-convex
+ os=-bsd
+ ;;
+ convex-c38)
+ basic_machine=c38-convex
+ os=-bsd
+ ;;
+ cray | j90)
+ basic_machine=j90-cray
+ os=-unicos
+ ;;
+ crds | unos)
+ basic_machine=m68k-crds
+ ;;
+ cris | cris-* | etrax*)
+ basic_machine=cris-axis
+ ;;
+ da30 | da30-*)
+ basic_machine=m68k-da30
+ ;;
+ decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn)
+ basic_machine=mips-dec
+ ;;
+ decsystem10* | dec10*)
+ basic_machine=pdp10-dec
+ os=-tops10
+ ;;
+ decsystem20* | dec20*)
+ basic_machine=pdp10-dec
+ os=-tops20
+ ;;
+ delta | 3300 | motorola-3300 | motorola-delta \
+ | 3300-motorola | delta-motorola)
+ basic_machine=m68k-motorola
+ ;;
+ delta88)
+ basic_machine=m88k-motorola
+ os=-sysv3
+ ;;
+ dpx20 | dpx20-*)
+ basic_machine=rs6000-bull
+ os=-bosx
+ ;;
+ dpx2* | dpx2*-bull)
+ basic_machine=m68k-bull
+ os=-sysv3
+ ;;
+ ebmon29k)
+ basic_machine=a29k-amd
+ os=-ebmon
+ ;;
+ elxsi)
+ basic_machine=elxsi-elxsi
+ os=-bsd
+ ;;
+ encore | umax | mmax)
+ basic_machine=ns32k-encore
+ ;;
+ es1800 | OSE68k | ose68k | ose | OSE)
+ basic_machine=m68k-ericsson
+ os=-ose
+ ;;
+ fx2800)
+ basic_machine=i860-alliant
+ ;;
+ genix)
+ basic_machine=ns32k-ns
+ ;;
+ gmicro)
+ basic_machine=tron-gmicro
+ os=-sysv
+ ;;
+ go32)
+ basic_machine=i386-pc
+ os=-go32
+ ;;
+ h3050r* | hiux*)
+ basic_machine=hppa1.1-hitachi
+ os=-hiuxwe2
+ ;;
+ h8300hms)
+ basic_machine=h8300-hitachi
+ os=-hms
+ ;;
+ h8300xray)
+ basic_machine=h8300-hitachi
+ os=-xray
+ ;;
+ h8500hms)
+ basic_machine=h8500-hitachi
+ os=-hms
+ ;;
+ harris)
+ basic_machine=m88k-harris
+ os=-sysv3
+ ;;
+ hp300-*)
+ basic_machine=m68k-hp
+ ;;
+ hp300bsd)
+ basic_machine=m68k-hp
+ os=-bsd
+ ;;
+ hp300hpux)
+ basic_machine=m68k-hp
+ os=-hpux
+ ;;
+ hp3k9[0-9][0-9] | hp9[0-9][0-9])
+ basic_machine=hppa1.0-hp
+ ;;
+ hp9k2[0-9][0-9] | hp9k31[0-9])
+ basic_machine=m68000-hp
+ ;;
+ hp9k3[2-9][0-9])
+ basic_machine=m68k-hp
+ ;;
+ hp9k6[0-9][0-9] | hp6[0-9][0-9])
+ basic_machine=hppa1.0-hp
+ ;;
+ hp9k7[0-79][0-9] | hp7[0-79][0-9])
+ basic_machine=hppa1.1-hp
+ ;;
+ hp9k78[0-9] | hp78[0-9])
+ # FIXME: really hppa2.0-hp
+ basic_machine=hppa1.1-hp
+ ;;
+ hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
+ # FIXME: really hppa2.0-hp
+ basic_machine=hppa1.1-hp
+ ;;
+ hp9k8[0-9][13679] | hp8[0-9][13679])
+ basic_machine=hppa1.1-hp
+ ;;
+ hp9k8[0-9][0-9] | hp8[0-9][0-9])
+ basic_machine=hppa1.0-hp
+ ;;
+ hppa-next)
+ os=-nextstep3
+ ;;
+ hppaosf)
+ basic_machine=hppa1.1-hp
+ os=-osf
+ ;;
+ hppro)
+ basic_machine=hppa1.1-hp
+ os=-proelf
+ ;;
+ i370-ibm* | ibm*)
+ basic_machine=i370-ibm
+ ;;
+# I'm not sure what "Sysv32" means. Should this be sysv3.2?
+ i*86v32)
+ basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
+ os=-sysv32
+ ;;
+ i*86v4*)
+ basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
+ os=-sysv4
+ ;;
+ i*86v)
+ basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
+ os=-sysv
+ ;;
+ i*86sol2)
+ basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
+ os=-solaris2
+ ;;
+ i386mach)
+ basic_machine=i386-mach
+ os=-mach
+ ;;
+ i386-vsta | vsta)
+ basic_machine=i386-unknown
+ os=-vsta
+ ;;
+ iris | iris4d)
+ basic_machine=mips-sgi
+ case $os in
+ -irix*)
+ ;;
+ *)
+ os=-irix4
+ ;;
+ esac
+ ;;
+ isi68 | isi)
+ basic_machine=m68k-isi
+ os=-sysv
+ ;;
+ m88k-omron*)
+ basic_machine=m88k-omron
+ ;;
+ magnum | m3230)
+ basic_machine=mips-mips
+ os=-sysv
+ ;;
+ merlin)
+ basic_machine=ns32k-utek
+ os=-sysv
+ ;;
+ mingw32)
+ basic_machine=i386-pc
+ os=-mingw32
+ ;;
+ miniframe)
+ basic_machine=m68000-convergent
+ ;;
+ *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*)
+ basic_machine=m68k-atari
+ os=-mint
+ ;;
+ mips3*-*)
+ basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`
+ ;;
+ mips3*)
+ basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown
+ ;;
+ mmix*)
+ basic_machine=mmix-knuth
+ os=-mmixware
+ ;;
+ monitor)
+ basic_machine=m68k-rom68k
+ os=-coff
+ ;;
+ morphos)
+ basic_machine=powerpc-unknown
+ os=-morphos
+ ;;
+ msdos)
+ basic_machine=i386-pc
+ os=-msdos
+ ;;
+ mvs)
+ basic_machine=i370-ibm
+ os=-mvs
+ ;;
+ ncr3000)
+ basic_machine=i486-ncr
+ os=-sysv4
+ ;;
+ netbsd386)
+ basic_machine=i386-unknown
+ os=-netbsd
+ ;;
+ netwinder)
+ basic_machine=armv4l-rebel
+ os=-linux
+ ;;
+ news | news700 | news800 | news900)
+ basic_machine=m68k-sony
+ os=-newsos
+ ;;
+ news1000)
+ basic_machine=m68030-sony
+ os=-newsos
+ ;;
+ news-3600 | risc-news)
+ basic_machine=mips-sony
+ os=-newsos
+ ;;
+ necv70)
+ basic_machine=v70-nec
+ os=-sysv
+ ;;
+ next | m*-next )
+ basic_machine=m68k-next
+ case $os in
+ -nextstep* )
+ ;;
+ -ns2*)
+ os=-nextstep2
+ ;;
+ *)
+ os=-nextstep3
+ ;;
+ esac
+ ;;
+ nh3000)
+ basic_machine=m68k-harris
+ os=-cxux
+ ;;
+ nh[45]000)
+ basic_machine=m88k-harris
+ os=-cxux
+ ;;
+ nindy960)
+ basic_machine=i960-intel
+ os=-nindy
+ ;;
+ mon960)
+ basic_machine=i960-intel
+ os=-mon960
+ ;;
+ nonstopux)
+ basic_machine=mips-compaq
+ os=-nonstopux
+ ;;
+ np1)
+ basic_machine=np1-gould
+ ;;
+ nv1)
+ basic_machine=nv1-cray
+ os=-unicosmp
+ ;;
+ nsr-tandem)
+ basic_machine=nsr-tandem
+ ;;
+ op50n-* | op60c-*)
+ basic_machine=hppa1.1-oki
+ os=-proelf
+ ;;
+ or32 | or32-*)
+ basic_machine=or32-unknown
+ os=-coff
+ ;;
+ OSE68000 | ose68000)
+ basic_machine=m68000-ericsson
+ os=-ose
+ ;;
+ os68k)
+ basic_machine=m68k-none
+ os=-os68k
+ ;;
+ pa-hitachi)
+ basic_machine=hppa1.1-hitachi
+ os=-hiuxwe2
+ ;;
+ paragon)
+ basic_machine=i860-intel
+ os=-osf
+ ;;
+ pbd)
+ basic_machine=sparc-tti
+ ;;
+ pbb)
+ basic_machine=m68k-tti
+ ;;
+ pc532 | pc532-*)
+ basic_machine=ns32k-pc532
+ ;;
+ pentium | p5 | k5 | k6 | nexgen | viac3)
+ basic_machine=i586-pc
+ ;;
+ pentiumpro | p6 | 6x86 | athlon | athlon_*)
+ basic_machine=i686-pc
+ ;;
+ pentiumii | pentium2 | pentiumiii | pentium3)
+ basic_machine=i686-pc
+ ;;
+ pentium4)
+ basic_machine=i786-pc
+ ;;
+ pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*)
+ basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ pentiumpro-* | p6-* | 6x86-* | athlon-*)
+ basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*)
+ basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ pentium4-*)
+ basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ pn)
+ basic_machine=pn-gould
+ ;;
+ power) basic_machine=power-ibm
+ ;;
+ ppc) basic_machine=powerpc-unknown
+ ;;
+ ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ ppcle | powerpclittle | ppc-le | powerpc-little)
+ basic_machine=powerpcle-unknown
+ ;;
+ ppcle-* | powerpclittle-*)
+ basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ ppc64) basic_machine=powerpc64-unknown
+ ;;
+ ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ ppc64le | powerpc64little | ppc64-le | powerpc64-little)
+ basic_machine=powerpc64le-unknown
+ ;;
+ ppc64le-* | powerpc64little-*)
+ basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ ps2)
+ basic_machine=i386-ibm
+ ;;
+ pw32)
+ basic_machine=i586-unknown
+ os=-pw32
+ ;;
+ rom68k)
+ basic_machine=m68k-rom68k
+ os=-coff
+ ;;
+ rm[46]00)
+ basic_machine=mips-siemens
+ ;;
+ rtpc | rtpc-*)
+ basic_machine=romp-ibm
+ ;;
+ sa29200)
+ basic_machine=a29k-amd
+ os=-udi
+ ;;
+ sb1)
+ basic_machine=mipsisa64sb1-unknown
+ ;;
+ sb1el)
+ basic_machine=mipsisa64sb1el-unknown
+ ;;
+ sei)
+ basic_machine=mips-sei
+ os=-seiux
+ ;;
+ sequent)
+ basic_machine=i386-sequent
+ ;;
+ sh)
+ basic_machine=sh-hitachi
+ os=-hms
+ ;;
+ sh64)
+ basic_machine=sh64-unknown
+ ;;
+ sparclite-wrs | simso-wrs)
+ basic_machine=sparclite-wrs
+ os=-vxworks
+ ;;
+ sps7)
+ basic_machine=m68k-bull
+ os=-sysv2
+ ;;
+ spur)
+ basic_machine=spur-unknown
+ ;;
+ st2000)
+ basic_machine=m68k-tandem
+ ;;
+ stratus)
+ basic_machine=i860-stratus
+ os=-sysv4
+ ;;
+ sun2)
+ basic_machine=m68000-sun
+ ;;
+ sun2os3)
+ basic_machine=m68000-sun
+ os=-sunos3
+ ;;
+ sun2os4)
+ basic_machine=m68000-sun
+ os=-sunos4
+ ;;
+ sun3os3)
+ basic_machine=m68k-sun
+ os=-sunos3
+ ;;
+ sun3os4)
+ basic_machine=m68k-sun
+ os=-sunos4
+ ;;
+ sun4os3)
+ basic_machine=sparc-sun
+ os=-sunos3
+ ;;
+ sun4os4)
+ basic_machine=sparc-sun
+ os=-sunos4
+ ;;
+ sun4sol2)
+ basic_machine=sparc-sun
+ os=-solaris2
+ ;;
+ sun3 | sun3-*)
+ basic_machine=m68k-sun
+ ;;
+ sun4)
+ basic_machine=sparc-sun
+ ;;
+ sun386 | sun386i | roadrunner)
+ basic_machine=i386-sun
+ ;;
+ sv1)
+ basic_machine=sv1-cray
+ os=-unicos
+ ;;
+ symmetry)
+ basic_machine=i386-sequent
+ os=-dynix
+ ;;
+ t3e)
+ basic_machine=alphaev5-cray
+ os=-unicos
+ ;;
+ t90)
+ basic_machine=t90-cray
+ os=-unicos
+ ;;
+ tic54x | c54x*)
+ basic_machine=tic54x-unknown
+ os=-coff
+ ;;
+ tic55x | c55x*)
+ basic_machine=tic55x-unknown
+ os=-coff
+ ;;
+ tic6x | c6x*)
+ basic_machine=tic6x-unknown
+ os=-coff
+ ;;
+ tx39)
+ basic_machine=mipstx39-unknown
+ ;;
+ tx39el)
+ basic_machine=mipstx39el-unknown
+ ;;
+ toad1)
+ basic_machine=pdp10-xkl
+ os=-tops20
+ ;;
+ tower | tower-32)
+ basic_machine=m68k-ncr
+ ;;
+ udi29k)
+ basic_machine=a29k-amd
+ os=-udi
+ ;;
+ ultra3)
+ basic_machine=a29k-nyu
+ os=-sym1
+ ;;
+ v810 | necv810)
+ basic_machine=v810-nec
+ os=-none
+ ;;
+ vaxv)
+ basic_machine=vax-dec
+ os=-sysv
+ ;;
+ vms)
+ basic_machine=vax-dec
+ os=-vms
+ ;;
+ vpp*|vx|vx-*)
+ basic_machine=f301-fujitsu
+ ;;
+ vxworks960)
+ basic_machine=i960-wrs
+ os=-vxworks
+ ;;
+ vxworks68)
+ basic_machine=m68k-wrs
+ os=-vxworks
+ ;;
+ vxworks29k)
+ basic_machine=a29k-wrs
+ os=-vxworks
+ ;;
+ w65*)
+ basic_machine=w65-wdc
+ os=-none
+ ;;
+ w89k-*)
+ basic_machine=hppa1.1-winbond
+ os=-proelf
+ ;;
+ xps | xps100)
+ basic_machine=xps100-honeywell
+ ;;
+ ymp)
+ basic_machine=ymp-cray
+ os=-unicos
+ ;;
+ z8k-*-coff)
+ basic_machine=z8k-unknown
+ os=-sim
+ ;;
+ none)
+ basic_machine=none-none
+ os=-none
+ ;;
+
+# Here we handle the default manufacturer of certain CPU types. It is in
+# some cases the only manufacturer, in others, it is the most popular.
+ w89k)
+ basic_machine=hppa1.1-winbond
+ ;;
+ op50n)
+ basic_machine=hppa1.1-oki
+ ;;
+ op60c)
+ basic_machine=hppa1.1-oki
+ ;;
+ romp)
+ basic_machine=romp-ibm
+ ;;
+ rs6000)
+ basic_machine=rs6000-ibm
+ ;;
+ vax)
+ basic_machine=vax-dec
+ ;;
+ pdp10)
+ # there are many clones, so DEC is not a safe bet
+ basic_machine=pdp10-unknown
+ ;;
+ pdp11)
+ basic_machine=pdp11-dec
+ ;;
+ we32k)
+ basic_machine=we32k-att
+ ;;
+ sh3 | sh4 | sh[34]eb | sh[1234]le | sh[23]ele)
+ basic_machine=sh-unknown
+ ;;
+ sh64)
+ basic_machine=sh64-unknown
+ ;;
+ sparc | sparcv9 | sparcv9b)
+ basic_machine=sparc-sun
+ ;;
+ cydra)
+ basic_machine=cydra-cydrome
+ ;;
+ orion)
+ basic_machine=orion-highlevel
+ ;;
+ orion105)
+ basic_machine=clipper-highlevel
+ ;;
+ mac | mpw | mac-mpw)
+ basic_machine=m68k-apple
+ ;;
+ pmac | pmac-mpw)
+ basic_machine=powerpc-apple
+ ;;
+ *-unknown)
+ # Make sure to match an already-canonicalized machine name.
+ ;;
+ *)
+ echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
+ exit 1
+ ;;
+esac
+
+# Here we canonicalize certain aliases for manufacturers.
+case $basic_machine in
+ *-digital*)
+ basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'`
+ ;;
+ *-commodore*)
+ basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'`
+ ;;
+ *)
+ ;;
+esac
+
+# Decode manufacturer-specific aliases for certain operating systems.
+
+if [ x"$os" != x"" ]
+then
+case $os in
+ # First match some system type aliases
+ # that might get confused with valid system types.
+ # -solaris* is a basic system type, with this one exception.
+ -solaris1 | -solaris1.*)
+ os=`echo $os | sed -e 's|solaris1|sunos4|'`
+ ;;
+ -solaris)
+ os=-solaris2
+ ;;
+ -svr4*)
+ os=-sysv4
+ ;;
+ -unixware*)
+ os=-sysv4.2uw
+ ;;
+ -gnu/linux*)
+ os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'`
+ ;;
+ # First accept the basic system types.
+ # The portable systems comes first.
+ # Each alternative MUST END IN A *, to match a version number.
+ # -sysv* is not here because it comes later, after sysvr4.
+ -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \
+ | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\
+ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \
+ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
+ | -aos* \
+ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
+ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
+ | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \
+ | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
+ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
+ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
+ | -chorusos* | -chorusrdb* \
+ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
+ | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \
+ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \
+ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \
+ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \
+ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \
+ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \
+ | -powermax* | -dnix* | -nx6 | -nx7 | -sei*)
+ # Remember, each alternative MUST END IN *, to match a version number.
+ ;;
+ -qnx*)
+ case $basic_machine in
+ x86-* | i*86-*)
+ ;;
+ *)
+ os=-nto$os
+ ;;
+ esac
+ ;;
+ -nto-qnx*)
+ ;;
+ -nto*)
+ os=`echo $os | sed -e 's|nto|nto-qnx|'`
+ ;;
+ -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \
+ | -windows* | -osx | -abug | -netware* | -os9* | -beos* \
+ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*)
+ ;;
+ -mac*)
+ os=`echo $os | sed -e 's|mac|macos|'`
+ ;;
+ -linux*)
+ os=`echo $os | sed -e 's|linux|linux-gnu|'`
+ ;;
+ -sunos5*)
+ os=`echo $os | sed -e 's|sunos5|solaris2|'`
+ ;;
+ -sunos6*)
+ os=`echo $os | sed -e 's|sunos6|solaris3|'`
+ ;;
+ -opened*)
+ os=-openedition
+ ;;
+ -wince*)
+ os=-wince
+ ;;
+ -osfrose*)
+ os=-osfrose
+ ;;
+ -osf*)
+ os=-osf
+ ;;
+ -utek*)
+ os=-bsd
+ ;;
+ -dynix*)
+ os=-bsd
+ ;;
+ -acis*)
+ os=-aos
+ ;;
+ -atheos*)
+ os=-atheos
+ ;;
+ -386bsd)
+ os=-bsd
+ ;;
+ -ctix* | -uts*)
+ os=-sysv
+ ;;
+ -nova*)
+ os=-rtmk-nova
+ ;;
+ -ns2 )
+ os=-nextstep2
+ ;;
+ -nsk*)
+ os=-nsk
+ ;;
+ # Preserve the version number of sinix5.
+ -sinix5.*)
+ os=`echo $os | sed -e 's|sinix|sysv|'`
+ ;;
+ -sinix*)
+ os=-sysv4
+ ;;
+ -triton*)
+ os=-sysv3
+ ;;
+ -oss*)
+ os=-sysv3
+ ;;
+ -svr4)
+ os=-sysv4
+ ;;
+ -svr3)
+ os=-sysv3
+ ;;
+ -sysvr4)
+ os=-sysv4
+ ;;
+ # This must come after -sysvr4.
+ -sysv*)
+ ;;
+ -ose*)
+ os=-ose
+ ;;
+ -es1800*)
+ os=-ose
+ ;;
+ -xenix)
+ os=-xenix
+ ;;
+ -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
+ os=-mint
+ ;;
+ -aros*)
+ os=-aros
+ ;;
+ -kaos*)
+ os=-kaos
+ ;;
+ -none)
+ ;;
+ *)
+ # Get rid of the `-' at the beginning of $os.
+ os=`echo $os | sed 's/[^-]*-//'`
+ echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2
+ exit 1
+ ;;
+esac
+else
+
+# Here we handle the default operating systems that come with various machines.
+# The value should be what the vendor currently ships out the door with their
+# machine or put another way, the most popular os provided with the machine.
+
+# Note that if you're going to try to match "-MANUFACTURER" here (say,
+# "-sun"), then you have to tell the case statement up towards the top
+# that MANUFACTURER isn't an operating system. Otherwise, code above
+# will signal an error saying that MANUFACTURER isn't an operating
+# system, and we'll never get to this point.
+
+case $basic_machine in
+ *-acorn)
+ os=-riscix1.2
+ ;;
+ arm*-rebel)
+ os=-linux
+ ;;
+ arm*-semi)
+ os=-aout
+ ;;
+ c4x-* | tic4x-*)
+ os=-coff
+ ;;
+ # This must come before the *-dec entry.
+ pdp10-*)
+ os=-tops20
+ ;;
+ pdp11-*)
+ os=-none
+ ;;
+ *-dec | vax-*)
+ os=-ultrix4.2
+ ;;
+ m68*-apollo)
+ os=-domain
+ ;;
+ i386-sun)
+ os=-sunos4.0.2
+ ;;
+ m68000-sun)
+ os=-sunos3
+ # This also exists in the configure program, but was not the
+ # default.
+ # os=-sunos4
+ ;;
+ m68*-cisco)
+ os=-aout
+ ;;
+ mips*-cisco)
+ os=-elf
+ ;;
+ mips*-*)
+ os=-elf
+ ;;
+ or32-*)
+ os=-coff
+ ;;
+ *-tti) # must be before sparc entry or we get the wrong os.
+ os=-sysv3
+ ;;
+ sparc-* | *-sun)
+ os=-sunos4.1.1
+ ;;
+ *-be)
+ os=-beos
+ ;;
+ *-ibm)
+ os=-aix
+ ;;
+ *-wec)
+ os=-proelf
+ ;;
+ *-winbond)
+ os=-proelf
+ ;;
+ *-oki)
+ os=-proelf
+ ;;
+ *-hp)
+ os=-hpux
+ ;;
+ *-hitachi)
+ os=-hiux
+ ;;
+ i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent)
+ os=-sysv
+ ;;
+ *-cbm)
+ os=-amigaos
+ ;;
+ *-dg)
+ os=-dgux
+ ;;
+ *-dolphin)
+ os=-sysv3
+ ;;
+ m68k-ccur)
+ os=-rtu
+ ;;
+ m88k-omron*)
+ os=-luna
+ ;;
+ *-next )
+ os=-nextstep
+ ;;
+ *-sequent)
+ os=-ptx
+ ;;
+ *-crds)
+ os=-unos
+ ;;
+ *-ns)
+ os=-genix
+ ;;
+ i370-*)
+ os=-mvs
+ ;;
+ *-next)
+ os=-nextstep3
+ ;;
+ *-gould)
+ os=-sysv
+ ;;
+ *-highlevel)
+ os=-bsd
+ ;;
+ *-encore)
+ os=-bsd
+ ;;
+ *-sgi)
+ os=-irix
+ ;;
+ *-siemens)
+ os=-sysv4
+ ;;
+ *-masscomp)
+ os=-rtu
+ ;;
+ f30[01]-fujitsu | f700-fujitsu)
+ os=-uxpv
+ ;;
+ *-rom68k)
+ os=-coff
+ ;;
+ *-*bug)
+ os=-coff
+ ;;
+ *-apple)
+ os=-macos
+ ;;
+ *-atari*)
+ os=-mint
+ ;;
+ *)
+ os=-none
+ ;;
+esac
+fi
+
+# Here we handle the case where we know the os, and the CPU type, but not the
+# manufacturer. We pick the logical manufacturer.
+vendor=unknown
+case $basic_machine in
+ *-unknown)
+ case $os in
+ -riscix*)
+ vendor=acorn
+ ;;
+ -sunos*)
+ vendor=sun
+ ;;
+ -aix*)
+ vendor=ibm
+ ;;
+ -beos*)
+ vendor=be
+ ;;
+ -hpux*)
+ vendor=hp
+ ;;
+ -mpeix*)
+ vendor=hp
+ ;;
+ -hiux*)
+ vendor=hitachi
+ ;;
+ -unos*)
+ vendor=crds
+ ;;
+ -dgux*)
+ vendor=dg
+ ;;
+ -luna*)
+ vendor=omron
+ ;;
+ -genix*)
+ vendor=ns
+ ;;
+ -mvs* | -opened*)
+ vendor=ibm
+ ;;
+ -ptx*)
+ vendor=sequent
+ ;;
+ -vxsim* | -vxworks* | -windiss*)
+ vendor=wrs
+ ;;
+ -aux*)
+ vendor=apple
+ ;;
+ -hms*)
+ vendor=hitachi
+ ;;
+ -mpw* | -macos*)
+ vendor=apple
+ ;;
+ -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
+ vendor=atari
+ ;;
+ -vos*)
+ vendor=stratus
+ ;;
+ esac
+ basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"`
+ ;;
+esac
+
+echo $basic_machine$os
+exit 0
+
+# Local variables:
+# eval: (add-hook 'write-file-hooks 'time-stamp)
+# time-stamp-start: "timestamp='"
+# time-stamp-format: "%:y-%02m-%02d"
+# time-stamp-end: "'"
+# End:
Property changes on: trunk/libltdl/config.sub
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/libltdl/configure.ac
===================================================================
--- trunk/libltdl/configure.ac (rev 0)
+++ trunk/libltdl/configure.ac 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,79 @@
+## Process this file with autoconf to create configure. -*- autoconf -*-
+# Copyright 2001 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+# 02111-1307 USA
+
+
+## FIXME: Is this really new enough? ##
+AC_PREREQ(2.50)
+
+
+## ------------------------ ##
+## Autoconf initialisation. ##
+## ------------------------ ##
+AC_INIT([libltdl], [1.2], [bug-libtool at gnu.org])
+AC_CONFIG_SRCDIR([ltdl.c])
+
+
+## ------------------------------- ##
+## Libltdl specific configuration. ##
+## ------------------------------- ##
+
+AC_CONFIG_AUX_DIR([.])
+
+if test -z "$enable_ltdl_install$enable_ltdl_convenience"; then
+ if test -f ${srcdir}/ltmain.sh; then
+ # if libltdl is libtoolized, it is assumed to be stand-alone and
+ # installed unless the command line overrides it (tested above)
+ enable_ltdl_install=yes
+ else
+ AC_MSG_WARN([*** The top-level configure must select either])
+ AC_MSG_WARN([*** [A""C_LIBLTDL_INSTALLABLE] or [A""C_LIBLTDL_CONVENIENCE].])
+ AC_MSG_ERROR([*** Maybe you want to --enable-ltdl-install?])
+ fi
+fi
+
+
+## ------------------------ ##
+## Automake Initialisation. ##
+## ------------------------ ##
+AM_INIT_AUTOMAKE(AC_PACKAGE_TARNAME, AC_PACKAGE_VERSION, -)
+AM_CONFIG_HEADER([config.h:config-h.in])
+
+
+## ------------------ ##
+## C compiler checks. ##
+## ------------------ ##
+AC_PROG_CC
+AC_C_CONST
+AC_C_INLINE
+
+
+## ----------------------- ##
+## Libtool initialisation. ##
+## ----------------------- ##
+AC_LIBTOOL_WIN32_DLL
+AC_PROG_LIBTOOL
+AC_SUBST([LIBTOOL_DEPS])
+
+AC_LIB_LTDL
+
+
+## -------- ##
+## Outputs. ##
+## -------- ##
+AC_CONFIG_FILES([Makefile])
+AC_OUTPUT
Added: trunk/libltdl/install-sh
===================================================================
--- trunk/libltdl/install-sh (rev 0)
+++ trunk/libltdl/install-sh 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,316 @@
+#!/bin/sh
+# install - install a program, script, or datafile
+
+scriptversion=2004-02-15.20
+
+# This originates from X11R5 (mit/util/scripts/install.sh), which was
+# later released in X11R6 (xc/config/util/install.sh) with the
+# following copyright and license.
+#
+# Copyright (C) 1994 X Consortium
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to
+# deal in the Software without restriction, including without limitation the
+# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+# sell copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
+# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# Except as contained in this notice, the name of the X Consortium shall not
+# be used in advertising or otherwise to promote the sale, use or other deal-
+# ings in this Software without prior written authorization from the X Consor-
+# tium.
+#
+#
+# FSF changes to this file are in the public domain.
+#
+# Calling this script install-sh is preferred over install.sh, to prevent
+# `make' implicit rules from creating a file called install from it
+# when there is no Makefile.
+#
+# This script is compatible with the BSD install script, but was written
+# from scratch. It can only install one file at a time, a restriction
+# shared with many OS's install programs.
+
+# set DOITPROG to echo to test this script
+
+# Don't use :- since 4.3BSD and earlier shells don't like it.
+doit="${DOITPROG-}"
+
+# put in absolute paths if you don't have them in your path; or use env. vars.
+
+mvprog="${MVPROG-mv}"
+cpprog="${CPPROG-cp}"
+chmodprog="${CHMODPROG-chmod}"
+chownprog="${CHOWNPROG-chown}"
+chgrpprog="${CHGRPPROG-chgrp}"
+stripprog="${STRIPPROG-strip}"
+rmprog="${RMPROG-rm}"
+mkdirprog="${MKDIRPROG-mkdir}"
+
+transformbasename=
+transform_arg=
+instcmd="$mvprog"
+chmodcmd="$chmodprog 0755"
+chowncmd=
+chgrpcmd=
+stripcmd=
+rmcmd="$rmprog -f"
+mvcmd="$mvprog"
+src=
+dst=
+dir_arg=
+
+usage="Usage: $0 [OPTION]... SRCFILE DSTFILE
+ or: $0 [OPTION]... SRCFILES... DIRECTORY
+ or: $0 -d DIRECTORIES...
+
+In the first form, install SRCFILE to DSTFILE, removing SRCFILE by default.
+In the second, create the directory path DIR.
+
+Options:
+-b=TRANSFORMBASENAME
+-c copy source (using $cpprog) instead of moving (using $mvprog).
+-d create directories instead of installing files.
+-g GROUP $chgrp installed files to GROUP.
+-m MODE $chmod installed files to MODE.
+-o USER $chown installed files to USER.
+-s strip installed files (using $stripprog).
+-t=TRANSFORM
+--help display this help and exit.
+--version display version info and exit.
+
+Environment variables override the default commands:
+ CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG
+"
+
+while test -n "$1"; do
+ case $1 in
+ -b=*) transformbasename=`echo $1 | sed 's/-b=//'`
+ shift
+ continue;;
+
+ -c) instcmd=$cpprog
+ shift
+ continue;;
+
+ -d) dir_arg=true
+ shift
+ continue;;
+
+ -g) chgrpcmd="$chgrpprog $2"
+ shift
+ shift
+ continue;;
+
+ --help) echo "$usage"; exit 0;;
+
+ -m) chmodcmd="$chmodprog $2"
+ shift
+ shift
+ continue;;
+
+ -o) chowncmd="$chownprog $2"
+ shift
+ shift
+ continue;;
+
+ -s) stripcmd=$stripprog
+ shift
+ continue;;
+
+ -t=*) transformarg=`echo $1 | sed 's/-t=//'`
+ shift
+ continue;;
+
+ --version) echo "$0 $scriptversion"; exit 0;;
+
+ *) # When -d is used, all remaining arguments are directories to create.
+ test -n "$dir_arg" && break
+ # Otherwise, the last argument is the destination. Remove it from $@.
+ for arg
+ do
+ if test -n "$dstarg"; then
+ # $@ is not empty: it contains at least $arg.
+ set fnord "$@" "$dstarg"
+ shift # fnord
+ fi
+ shift # arg
+ dstarg=$arg
+ done
+ break;;
+ esac
+done
+
+if test -z "$1"; then
+ if test -z "$dir_arg"; then
+ echo "$0: no input file specified." >&2
+ exit 1
+ fi
+ # It's OK to call `install-sh -d' without argument.
+ # This can happen when creating conditional directories.
+ exit 0
+fi
+
+for src
+do
+ # Protect names starting with `-'.
+ case $src in
+ -*) src=./$src ;;
+ esac
+
+ if test -n "$dir_arg"; then
+ dst=$src
+ src=
+
+ if test -d "$dst"; then
+ instcmd=:
+ chmodcmd=
+ else
+ instcmd=$mkdirprog
+ fi
+ else
+ # Waiting for this to be detected by the "$instcmd $src $dsttmp" command
+ # might cause directories to be created, which would be especially bad
+ # if $src (and thus $dsttmp) contains '*'.
+ if test ! -f "$src" && test ! -d "$src"; then
+ echo "$0: $src does not exist." >&2
+ exit 1
+ fi
+
+ if test -z "$dstarg"; then
+ echo "$0: no destination specified." >&2
+ exit 1
+ fi
+
+ dst=$dstarg
+ # Protect names starting with `-'.
+ case $dst in
+ -*) dst=./$dst ;;
+ esac
+
+ # If destination is a directory, append the input filename; won't work
+ # if double slashes aren't ignored.
+ if test -d "$dst"; then
+ dst=$dst/`basename "$src"`
+ fi
+ fi
+
+ # This sed command emulates the dirname command.
+ dstdir=`echo "$dst" | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
+
+ # Make sure that the destination directory exists.
+
+ # Skip lots of stat calls in the usual case.
+ if test ! -d "$dstdir"; then
+ defaultIFS='
+ '
+ IFS="${IFS-$defaultIFS}"
+
+ oIFS=$IFS
+ # Some sh's can't handle IFS=/ for some reason.
+ IFS='%'
+ set - `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'`
+ IFS=$oIFS
+
+ pathcomp=
+
+ while test $# -ne 0 ; do
+ pathcomp=$pathcomp$1
+ shift
+ if test ! -d "$pathcomp"; then
+ $mkdirprog "$pathcomp" || lasterr=$?
+ # mkdir can fail with a `File exist' error in case several
+ # install-sh are creating the directory concurrently. This
+ # is OK.
+ test ! -d "$pathcomp" && { (exit ${lasterr-1}); exit; }
+ fi
+ pathcomp=$pathcomp/
+ done
+ fi
+
+ if test -n "$dir_arg"; then
+ $doit $instcmd "$dst" \
+ && { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \
+ && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \
+ && { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \
+ && { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; }
+
+ else
+ # If we're going to rename the final executable, determine the name now.
+ if test -z "$transformarg"; then
+ dstfile=`basename "$dst"`
+ else
+ dstfile=`basename "$dst" $transformbasename \
+ | sed $transformarg`$transformbasename
+ fi
+
+ # don't allow the sed command to completely eliminate the filename.
+ test -z "$dstfile" && dstfile=`basename "$dst"`
+
+ # Make a couple of temp file names in the proper directory.
+ dsttmp=$dstdir/_inst.$$_
+ rmtmp=$dstdir/_rm.$$_
+
+ # Trap to clean up those temp files at exit.
+ trap 'status=$?; rm -f "$dsttmp" "$rmtmp" && exit $status' 0
+ trap '(exit $?); exit' 1 2 13 15
+
+ # Move or copy the file name to the temp name
+ $doit $instcmd "$src" "$dsttmp" &&
+
+ # and set any options; do chmod last to preserve setuid bits.
+ #
+ # If any of these fail, we abort the whole thing. If we want to
+ # ignore errors from any of these, just make sure not to ignore
+ # errors from the above "$doit $instcmd $src $dsttmp" command.
+ #
+ { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
+ && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
+ && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
+ && { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } &&
+
+ # Now remove or move aside any old file at destination location. We
+ # try this two ways since rm can't unlink itself on some systems and
+ # the destination file might be busy for other reasons. In this case,
+ # the final cleanup might fail but the new file should still install
+ # successfully.
+ {
+ if test -f "$dstdir/$dstfile"; then
+ $doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \
+ || $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \
+ || {
+ echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2
+ (exit 1); exit
+ }
+ else
+ :
+ fi
+ } &&
+
+ # Now rename the file to the real destination.
+ $doit $mvcmd "$dsttmp" "$dstdir/$dstfile"
+ fi || { (exit 1); exit; }
+done
+
+# The final little trick to "correctly" pass the exit status to the exit trap.
+{
+ (exit 0); exit
+}
+
+# Local variables:
+# eval: (add-hook 'write-file-hooks 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-end: "$"
+# End:
Property changes on: trunk/libltdl/install-sh
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/libltdl/ltdl.c
===================================================================
--- trunk/libltdl/ltdl.c (rev 0)
+++ trunk/libltdl/ltdl.c 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,4489 @@
+/* ltdl.c -- system independent dlopen wrapper
+ Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+ Originally by Thomas Tanner <tanner at ffii.org>
+ This file is part of GNU Libtool.
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2 of the License, or (at your option) any later version.
+
+As a special exception to the GNU Lesser General Public License,
+if you distribute this file as part of a program or library that
+is built using GNU libtool, you may include it under the same
+distribution terms that you use for the rest of that program.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+02111-1307 USA
+
+*/
+
+#if HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#if HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+
+#if HAVE_STDIO_H
+# include <stdio.h>
+#endif
+
+/* Include the header defining malloc. On K&R C compilers,
+ that's <malloc.h>, on ANSI C and ISO C compilers, that's <stdlib.h>. */
+#if HAVE_STDLIB_H
+# include <stdlib.h>
+#else
+# if HAVE_MALLOC_H
+# include <malloc.h>
+# endif
+#endif
+
+#if HAVE_STRING_H
+# include <string.h>
+#else
+# if HAVE_STRINGS_H
+# include <strings.h>
+# endif
+#endif
+
+#if HAVE_CTYPE_H
+# include <ctype.h>
+#endif
+
+#if HAVE_MEMORY_H
+# include <memory.h>
+#endif
+
+#if HAVE_ERRNO_H
+# include <errno.h>
+#endif
+
+
+#ifndef __WINDOWS__
+# ifdef __WIN32__
+# define __WINDOWS__
+# endif
+#endif
+
+
+#undef LT_USE_POSIX_DIRENT
+#ifdef HAVE_CLOSEDIR
+# ifdef HAVE_OPENDIR
+# ifdef HAVE_READDIR
+# ifdef HAVE_DIRENT_H
+# define LT_USE_POSIX_DIRENT
+# endif /* HAVE_DIRENT_H */
+# endif /* HAVE_READDIR */
+# endif /* HAVE_OPENDIR */
+#endif /* HAVE_CLOSEDIR */
+
+
+#undef LT_USE_WINDOWS_DIRENT_EMULATION
+#ifndef LT_USE_POSIX_DIRENT
+# ifdef __WINDOWS__
+# define LT_USE_WINDOWS_DIRENT_EMULATION
+# endif /* __WINDOWS__ */
+#endif /* LT_USE_POSIX_DIRENT */
+
+
+#ifdef LT_USE_POSIX_DIRENT
+# include <dirent.h>
+# define LT_D_NAMLEN(dirent) (strlen((dirent)->d_name))
+#else
+# ifdef LT_USE_WINDOWS_DIRENT_EMULATION
+# define LT_D_NAMLEN(dirent) (strlen((dirent)->d_name))
+# else
+# define dirent direct
+# define LT_D_NAMLEN(dirent) ((dirent)->d_namlen)
+# if HAVE_SYS_NDIR_H
+# include <sys/ndir.h>
+# endif
+# if HAVE_SYS_DIR_H
+# include <sys/dir.h>
+# endif
+# if HAVE_NDIR_H
+# include <ndir.h>
+# endif
+# endif
+#endif
+
+#if HAVE_ARGZ_H
+# include <argz.h>
+#endif
+
+#if HAVE_ASSERT_H
+# include <assert.h>
+#else
+# define assert(arg) ((void) 0)
+#endif
+
+#include "ltdl.h"
+
+#if WITH_DMALLOC
+# include <dmalloc.h>
+#endif
+
+
+
+
+/* --- WINDOWS SUPPORT --- */
+
+
+#ifdef DLL_EXPORT
+# define LT_GLOBAL_DATA __declspec(dllexport)
+#else
+# define LT_GLOBAL_DATA
+#endif
+
+/* fopen() mode flags for reading a text file */
+#undef LT_READTEXT_MODE
+#ifdef __WINDOWS__
+# define LT_READTEXT_MODE "rt"
+#else
+# define LT_READTEXT_MODE "r"
+#endif
+
+#ifdef LT_USE_WINDOWS_DIRENT_EMULATION
+
+#include <windows.h>
+
+#define dirent lt_dirent
+#define DIR lt_DIR
+
+struct dirent
+{
+ char d_name[2048];
+ int d_namlen;
+};
+
+typedef struct _DIR
+{
+ HANDLE hSearch;
+ WIN32_FIND_DATA Win32FindData;
+ BOOL firsttime;
+ struct dirent file_info;
+} DIR;
+
+#endif /* LT_USE_WINDOWS_DIRENT_EMULATION */
+
+
+/* --- MANIFEST CONSTANTS --- */
+
+
+/* Standard libltdl search path environment variable name */
+#undef LTDL_SEARCHPATH_VAR
+#define LTDL_SEARCHPATH_VAR "LTDL_LIBRARY_PATH"
+
+/* Standard libtool archive file extension. */
+#undef LTDL_ARCHIVE_EXT
+#define LTDL_ARCHIVE_EXT ".la"
+
+/* max. filename length */
+#ifndef LT_FILENAME_MAX
+# define LT_FILENAME_MAX 1024
+#endif
+
+/* This is the maximum symbol size that won't require malloc/free */
+#undef LT_SYMBOL_LENGTH
+#define LT_SYMBOL_LENGTH 128
+
+/* This accounts for the _LTX_ separator */
+#undef LT_SYMBOL_OVERHEAD
+#define LT_SYMBOL_OVERHEAD 5
+
+
+
+
+/* --- MEMORY HANDLING --- */
+
+
+/* These are the functions used internally. In addition to making
+ use of the associated function pointers above, they also perform
+ error handling. */
+static char *lt_estrdup LT_PARAMS((const char *str));
+static lt_ptr lt_emalloc LT_PARAMS((size_t size));
+static lt_ptr lt_erealloc LT_PARAMS((lt_ptr addr, size_t size));
+
+/* static lt_ptr rpl_realloc LT_PARAMS((lt_ptr ptr, size_t size)); */
+#define rpl_realloc realloc
+
+/* These are the pointers that can be changed by the caller: */
+LT_GLOBAL_DATA lt_ptr (*lt_dlmalloc) LT_PARAMS((size_t size))
+ = (lt_ptr (*) LT_PARAMS((size_t))) malloc;
+LT_GLOBAL_DATA lt_ptr (*lt_dlrealloc) LT_PARAMS((lt_ptr ptr, size_t size))
+ = (lt_ptr (*) LT_PARAMS((lt_ptr, size_t))) rpl_realloc;
+LT_GLOBAL_DATA void (*lt_dlfree) LT_PARAMS((lt_ptr ptr))
+ = (void (*) LT_PARAMS((lt_ptr))) free;
+
+/* The following macros reduce the amount of typing needed to cast
+ assigned memory. */
+#if WITH_DMALLOC
+
+#define LT_DLMALLOC(tp, n) ((tp *) xmalloc ((n) * sizeof(tp)))
+#define LT_DLREALLOC(tp, p, n) ((tp *) xrealloc ((p), (n) * sizeof(tp)))
+#define LT_DLFREE(p) \
+ LT_STMT_START { if (p) (p) = (xfree (p), (lt_ptr) 0); } LT_STMT_END
+
+#define LT_EMALLOC(tp, n) ((tp *) xmalloc ((n) * sizeof(tp)))
+#define LT_EREALLOC(tp, p, n) ((tp *) xrealloc ((p), (n) * sizeof(tp)))
+
+#else
+
+#define LT_DLMALLOC(tp, n) ((tp *) lt_dlmalloc ((n) * sizeof(tp)))
+#define LT_DLREALLOC(tp, p, n) ((tp *) lt_dlrealloc ((p), (n) * sizeof(tp)))
+#define LT_DLFREE(p) \
+ LT_STMT_START { if (p) (p) = (lt_dlfree (p), (lt_ptr) 0); } LT_STMT_END
+
+#define LT_EMALLOC(tp, n) ((tp *) lt_emalloc ((n) * sizeof(tp)))
+#define LT_EREALLOC(tp, p, n) ((tp *) lt_erealloc ((p), (n) * sizeof(tp)))
+
+#endif
+
+#define LT_DLMEM_REASSIGN(p, q) LT_STMT_START { \
+ if ((p) != (q)) { if (p) lt_dlfree (p); (p) = (q); (q) = 0; } \
+ } LT_STMT_END
+
+
+/* --- REPLACEMENT FUNCTIONS --- */
+
+
+#undef strdup
+#define strdup rpl_strdup
+
+static char *strdup LT_PARAMS((const char *str));
+
+static char *
+strdup(str)
+ const char *str;
+{
+ char *tmp = 0;
+
+ if (str)
+ {
+ tmp = LT_DLMALLOC (char, 1+ strlen (str));
+ if (tmp)
+ {
+ strcpy(tmp, str);
+ }
+ }
+
+ return tmp;
+}
+
+
+#if ! HAVE_STRCMP
+
+#undef strcmp
+#define strcmp rpl_strcmp
+
+static int strcmp LT_PARAMS((const char *str1, const char *str2));
+
+static int
+strcmp (str1, str2)
+ const char *str1;
+ const char *str2;
+{
+ if (str1 == str2)
+ return 0;
+ if (str1 == 0)
+ return -1;
+ if (str2 == 0)
+ return 1;
+
+ for (;*str1 && *str2; ++str1, ++str2)
+ {
+ if (*str1 != *str2)
+ break;
+ }
+
+ return (int)(*str1 - *str2);
+}
+#endif
+
+
+#if ! HAVE_STRCHR
+
+# if HAVE_INDEX
+# define strchr index
+# else
+# define strchr rpl_strchr
+
+static const char *strchr LT_PARAMS((const char *str, int ch));
+
+static const char*
+strchr(str, ch)
+ const char *str;
+ int ch;
+{
+ const char *p;
+
+ for (p = str; *p != (char)ch && *p != LT_EOS_CHAR; ++p)
+ /*NOWORK*/;
+
+ return (*p == (char)ch) ? p : 0;
+}
+
+# endif
+#endif /* !HAVE_STRCHR */
+
+
+#if ! HAVE_STRRCHR
+
+# if HAVE_RINDEX
+# define strrchr rindex
+# else
+# define strrchr rpl_strrchr
+
+static const char *strrchr LT_PARAMS((const char *str, int ch));
+
+static const char*
+strrchr(str, ch)
+ const char *str;
+ int ch;
+{
+ const char *p, *q = 0;
+
+ for (p = str; *p != LT_EOS_CHAR; ++p)
+ {
+ if (*p == (char) ch)
+ {
+ q = p;
+ }
+ }
+
+ return q;
+}
+
+# endif
+#endif
+
+/* NOTE: Neither bcopy nor the memcpy implementation below can
+ reliably handle copying in overlapping areas of memory. Use
+ memmove (for which there is a fallback implmentation below)
+ if you need that behaviour. */
+#if ! HAVE_MEMCPY
+
+# if HAVE_BCOPY
+# define memcpy(dest, src, size) bcopy (src, dest, size)
+# else
+# define memcpy rpl_memcpy
+
+static lt_ptr memcpy LT_PARAMS((lt_ptr dest, const lt_ptr src, size_t size));
+
+static lt_ptr
+memcpy (dest, src, size)
+ lt_ptr dest;
+ const lt_ptr src;
+ size_t size;
+{
+ size_t i = 0;
+
+ for (i = 0; i < size; ++i)
+ {
+ dest[i] = src[i];
+ }
+
+ return dest;
+}
+
+# endif /* !HAVE_BCOPY */
+#endif /* !HAVE_MEMCPY */
+
+#if ! HAVE_MEMMOVE
+# define memmove rpl_memmove
+
+static lt_ptr memmove LT_PARAMS((lt_ptr dest, const lt_ptr src, size_t size));
+
+static lt_ptr
+memmove (dest, src, size)
+ lt_ptr dest;
+ const lt_ptr src;
+ size_t size;
+{
+ size_t i;
+
+ if (dest < src)
+ for (i = 0; i < size; ++i)
+ {
+ dest[i] = src[i];
+ }
+ else if (dest > src)
+ for (i = size -1; i >= 0; --i)
+ {
+ dest[i] = src[i];
+ }
+
+ return dest;
+}
+
+#endif /* !HAVE_MEMMOVE */
+
+#ifdef LT_USE_WINDOWS_DIRENT_EMULATION
+
+static void closedir LT_PARAMS((DIR *entry));
+
+static void
+closedir(entry)
+ DIR *entry;
+{
+ assert(entry != (DIR *) NULL);
+ FindClose(entry->hSearch);
+ lt_dlfree((lt_ptr)entry);
+}
+
+
+static DIR * opendir LT_PARAMS((const char *path));
+
+static DIR*
+opendir (path)
+ const char *path;
+{
+ char file_specification[LT_FILENAME_MAX];
+ DIR *entry;
+
+ assert(path != (char *) NULL);
+ (void) strncpy(file_specification,path,LT_FILENAME_MAX-1);
+ (void) strcat(file_specification,"\\");
+ entry = LT_DLMALLOC (DIR,sizeof(DIR));
+ if (entry != (DIR *) 0)
+ {
+ entry->firsttime = TRUE;
+ entry->hSearch = FindFirstFile(file_specification,&entry->Win32FindData);
+ }
+ if (entry->hSearch == INVALID_HANDLE_VALUE)
+ {
+ (void) strcat(file_specification,"\\*.*");
+ entry->hSearch = FindFirstFile(file_specification,&entry->Win32FindData);
+ if (entry->hSearch == INVALID_HANDLE_VALUE)
+ {
+ LT_DLFREE (entry);
+ return (DIR *) 0;
+ }
+ }
+ return(entry);
+}
+
+
+static struct dirent *readdir LT_PARAMS((DIR *entry));
+
+static struct dirent *readdir(entry)
+ DIR *entry;
+{
+ int
+ status;
+
+ if (entry == (DIR *) 0)
+ return((struct dirent *) 0);
+ if (!entry->firsttime)
+ {
+ status = FindNextFile(entry->hSearch,&entry->Win32FindData);
+ if (status == 0)
+ return((struct dirent *) 0);
+ }
+ entry->firsttime = FALSE;
+ (void) strncpy(entry->file_info.d_name,entry->Win32FindData.cFileName,
+ LT_FILENAME_MAX-1);
+ entry->file_info.d_namlen = strlen(entry->file_info.d_name);
+ return(&entry->file_info);
+}
+
+#endif /* LT_USE_WINDOWS_DIRENT_EMULATION */
+
+/* According to Alexandre Oliva <oliva at lsd.ic.unicamp.br>,
+ ``realloc is not entirely portable''
+ In any case we want to use the allocator supplied by the user without
+ burdening them with an lt_dlrealloc function pointer to maintain.
+ Instead implement our own version (with known boundary conditions)
+ using lt_dlmalloc and lt_dlfree. */
+
+/* #undef realloc
+ #define realloc rpl_realloc
+*/
+#if 0
+ /* You can't (re)define realloc unless you also (re)define malloc.
+ Right now, this code uses the size of the *destination* to decide
+ how much to copy. That's not right, but you can't know the size
+ of the source unless you know enough about, or wrote malloc. So
+ this code is disabled... */
+
+static lt_ptr
+realloc (ptr, size)
+ lt_ptr ptr;
+ size_t size;
+{
+ if (size == 0)
+ {
+ /* For zero or less bytes, free the original memory */
+ if (ptr != 0)
+ {
+ lt_dlfree (ptr);
+ }
+
+ return (lt_ptr) 0;
+ }
+ else if (ptr == 0)
+ {
+ /* Allow reallocation of a NULL pointer. */
+ return lt_dlmalloc (size);
+ }
+ else
+ {
+ /* Allocate a new block, copy and free the old block. */
+ lt_ptr mem = lt_dlmalloc (size);
+
+ if (mem)
+ {
+ memcpy (mem, ptr, size);
+ lt_dlfree (ptr);
+ }
+
+ /* Note that the contents of PTR are not damaged if there is
+ insufficient memory to realloc. */
+ return mem;
+ }
+}
+#endif
+
+
+#if ! HAVE_ARGZ_APPEND
+# define argz_append rpl_argz_append
+
+static error_t argz_append LT_PARAMS((char **pargz, size_t *pargz_len,
+ const char *buf, size_t buf_len));
+
+static error_t
+argz_append (pargz, pargz_len, buf, buf_len)
+ char **pargz;
+ size_t *pargz_len;
+ const char *buf;
+ size_t buf_len;
+{
+ size_t argz_len;
+ char *argz;
+
+ assert (pargz);
+ assert (pargz_len);
+ assert ((*pargz && *pargz_len) || (!*pargz && !*pargz_len));
+
+ /* If nothing needs to be appended, no more work is required. */
+ if (buf_len == 0)
+ return 0;
+
+ /* Ensure there is enough room to append BUF_LEN. */
+ argz_len = *pargz_len + buf_len;
+ argz = LT_DLREALLOC (char, *pargz, argz_len);
+ if (!argz)
+ return ENOMEM;
+
+ /* Copy characters from BUF after terminating '\0' in ARGZ. */
+ memcpy (argz + *pargz_len, buf, buf_len);
+
+ /* Assign new values. */
+ *pargz = argz;
+ *pargz_len = argz_len;
+
+ return 0;
+}
+#endif /* !HAVE_ARGZ_APPEND */
+
+
+#if ! HAVE_ARGZ_CREATE_SEP
+# define argz_create_sep rpl_argz_create_sep
+
+static error_t argz_create_sep LT_PARAMS((const char *str, int delim,
+ char **pargz, size_t *pargz_len));
+
+static error_t
+argz_create_sep (str, delim, pargz, pargz_len)
+ const char *str;
+ int delim;
+ char **pargz;
+ size_t *pargz_len;
+{
+ size_t argz_len;
+ char *argz = 0;
+
+ assert (str);
+ assert (pargz);
+ assert (pargz_len);
+
+ /* Make a copy of STR, but replacing each occurence of
+ DELIM with '\0'. */
+ argz_len = 1+ LT_STRLEN (str);
+ if (argz_len)
+ {
+ const char *p;
+ char *q;
+
+ argz = LT_DLMALLOC (char, argz_len);
+ if (!argz)
+ return ENOMEM;
+
+ for (p = str, q = argz; *p != LT_EOS_CHAR; ++p)
+ {
+ if (*p == delim)
+ {
+ /* Ignore leading delimiters, and fold consecutive
+ delimiters in STR into a single '\0' in ARGZ. */
+ if ((q > argz) && (q[-1] != LT_EOS_CHAR))
+ *q++ = LT_EOS_CHAR;
+ else
+ --argz_len;
+ }
+ else
+ *q++ = *p;
+ }
+ /* Copy terminating LT_EOS_CHAR. */
+ *q = *p;
+ }
+
+ /* If ARGZ_LEN has shrunk to nothing, release ARGZ's memory. */
+ if (!argz_len)
+ LT_DLFREE (argz);
+
+ /* Assign new values. */
+ *pargz = argz;
+ *pargz_len = argz_len;
+
+ return 0;
+}
+#endif /* !HAVE_ARGZ_CREATE_SEP */
+
+
+#if ! HAVE_ARGZ_INSERT
+# define argz_insert rpl_argz_insert
+
+static error_t argz_insert LT_PARAMS((char **pargz, size_t *pargz_len,
+ char *before, const char *entry));
+
+static error_t
+argz_insert (pargz, pargz_len, before, entry)
+ char **pargz;
+ size_t *pargz_len;
+ char *before;
+ const char *entry;
+{
+ assert (pargz);
+ assert (pargz_len);
+ assert (entry && *entry);
+
+ /* No BEFORE address indicates ENTRY should be inserted after the
+ current last element. */
+ if (!before)
+ return argz_append (pargz, pargz_len, entry, 1+ LT_STRLEN (entry));
+
+ /* This probably indicates a programmer error, but to preserve
+ semantics, scan back to the start of an entry if BEFORE points
+ into the middle of it. */
+ while ((before > *pargz) && (before[-1] != LT_EOS_CHAR))
+ --before;
+
+ {
+ size_t entry_len = 1+ LT_STRLEN (entry);
+ size_t argz_len = *pargz_len + entry_len;
+ size_t offset = before - *pargz;
+ char *argz = LT_DLREALLOC (char, *pargz, argz_len);
+
+ if (!argz)
+ return ENOMEM;
+
+ /* Make BEFORE point to the equivalent offset in ARGZ that it
+ used to have in *PARGZ incase realloc() moved the block. */
+ before = argz + offset;
+
+ /* Move the ARGZ entries starting at BEFORE up into the new
+ space at the end -- making room to copy ENTRY into the
+ resulting gap. */
+ memmove (before + entry_len, before, *pargz_len - offset);
+ memcpy (before, entry, entry_len);
+
+ /* Assign new values. */
+ *pargz = argz;
+ *pargz_len = argz_len;
+ }
+
+ return 0;
+}
+#endif /* !HAVE_ARGZ_INSERT */
+
+
+#if ! HAVE_ARGZ_NEXT
+# define argz_next rpl_argz_next
+
+static char *argz_next LT_PARAMS((char *argz, size_t argz_len,
+ const char *entry));
+
+static char *
+argz_next (argz, argz_len, entry)
+ char *argz;
+ size_t argz_len;
+ const char *entry;
+{
+ assert ((argz && argz_len) || (!argz && !argz_len));
+
+ if (entry)
+ {
+ /* Either ARGZ/ARGZ_LEN is empty, or ENTRY points into an address
+ within the ARGZ vector. */
+ assert ((!argz && !argz_len)
+ || ((argz <= entry) && (entry < (argz + argz_len))));
+
+ /* Move to the char immediately after the terminating
+ '\0' of ENTRY. */
+ entry = 1+ strchr (entry, LT_EOS_CHAR);
+
+ /* Return either the new ENTRY, or else NULL if ARGZ is
+ exhausted. */
+ return (entry >= argz + argz_len) ? 0 : (char *) entry;
+ }
+ else
+ {
+ /* This should probably be flagged as a programmer error,
+ since starting an argz_next loop with the iterator set
+ to ARGZ is safer. To preserve semantics, handle the NULL
+ case by returning the start of ARGZ (if any). */
+ if (argz_len > 0)
+ return argz;
+ else
+ return 0;
+ }
+}
+#endif /* !HAVE_ARGZ_NEXT */
+
+
+
+#if ! HAVE_ARGZ_STRINGIFY
+# define argz_stringify rpl_argz_stringify
+
+static void argz_stringify LT_PARAMS((char *argz, size_t argz_len,
+ int sep));
+
+static void
+argz_stringify (argz, argz_len, sep)
+ char *argz;
+ size_t argz_len;
+ int sep;
+{
+ assert ((argz && argz_len) || (!argz && !argz_len));
+
+ if (sep)
+ {
+ --argz_len; /* don't stringify the terminating EOS */
+ while (--argz_len > 0)
+ {
+ if (argz[argz_len] == LT_EOS_CHAR)
+ argz[argz_len] = sep;
+ }
+ }
+}
+#endif /* !HAVE_ARGZ_STRINGIFY */
+
+
+
+
+/* --- TYPE DEFINITIONS -- */
+
+
+/* This type is used for the array of caller data sets in each handler. */
+typedef struct {
+ lt_dlcaller_id key;
+ lt_ptr data;
+} lt_caller_data;
+
+
+
+
+/* --- OPAQUE STRUCTURES DECLARED IN LTDL.H --- */
+
+
+/* Extract the diagnostic strings from the error table macro in the same
+ order as the enumerated indices in ltdl.h. */
+
+static const char *lt_dlerror_strings[] =
+ {
+#define LT_ERROR(name, diagnostic) (diagnostic),
+ lt_dlerror_table
+#undef LT_ERROR
+
+ 0
+ };
+
+/* This structure is used for the list of registered loaders. */
+struct lt_dlloader {
+ struct lt_dlloader *next;
+ const char *loader_name; /* identifying name for each loader */
+ const char *sym_prefix; /* prefix for symbols */
+ lt_module_open *module_open;
+ lt_module_close *module_close;
+ lt_find_sym *find_sym;
+ lt_dlloader_exit *dlloader_exit;
+ lt_user_data dlloader_data;
+};
+
+struct lt_dlhandle_struct {
+ struct lt_dlhandle_struct *next;
+ lt_dlloader *loader; /* dlopening interface */
+ lt_dlinfo info;
+ int depcount; /* number of dependencies */
+ lt_dlhandle *deplibs; /* dependencies */
+ lt_module module; /* system module handle */
+ lt_ptr system; /* system specific data */
+ lt_caller_data *caller_data; /* per caller associated data */
+ int flags; /* various boolean stats */
+};
+
+/* Various boolean flags can be stored in the flags field of an
+ lt_dlhandle_struct... */
+#define LT_DLGET_FLAG(handle, flag) (((handle)->flags & (flag)) == (flag))
+#define LT_DLSET_FLAG(handle, flag) ((handle)->flags |= (flag))
+
+#define LT_DLRESIDENT_FLAG (0x01 << 0)
+/* ...add more flags here... */
+
+#define LT_DLIS_RESIDENT(handle) LT_DLGET_FLAG(handle, LT_DLRESIDENT_FLAG)
+
+
+#define LT_DLSTRERROR(name) lt_dlerror_strings[LT_CONC(LT_ERROR_,name)]
+
+static const char objdir[] = LTDL_OBJDIR;
+static const char archive_ext[] = LTDL_ARCHIVE_EXT;
+#ifdef LTDL_SHLIB_EXT
+static const char shlib_ext[] = LTDL_SHLIB_EXT;
+#endif
+#ifdef LTDL_SYSSEARCHPATH
+static const char sys_search_path[] = LTDL_SYSSEARCHPATH;
+#endif
+
+
+
+
+/* --- MUTEX LOCKING --- */
+
+
+/* Macros to make it easier to run the lock functions only if they have
+ been registered. The reason for the complicated lock macro is to
+ ensure that the stored error message from the last error is not
+ accidentally erased if the current function doesn't generate an
+ error of its own. */
+#define LT_DLMUTEX_LOCK() LT_STMT_START { \
+ if (lt_dlmutex_lock_func) (*lt_dlmutex_lock_func)(); \
+ } LT_STMT_END
+#define LT_DLMUTEX_UNLOCK() LT_STMT_START { \
+ if (lt_dlmutex_unlock_func) (*lt_dlmutex_unlock_func)();\
+ } LT_STMT_END
+#define LT_DLMUTEX_SETERROR(errormsg) LT_STMT_START { \
+ if (lt_dlmutex_seterror_func) \
+ (*lt_dlmutex_seterror_func) (errormsg); \
+ else lt_dllast_error = (errormsg); } LT_STMT_END
+#define LT_DLMUTEX_GETERROR(errormsg) LT_STMT_START { \
+ if (lt_dlmutex_seterror_func) \
+ (errormsg) = (*lt_dlmutex_geterror_func) (); \
+ else (errormsg) = lt_dllast_error; } LT_STMT_END
+
+/* The mutex functions stored here are global, and are necessarily the
+ same for all threads that wish to share access to libltdl. */
+static lt_dlmutex_lock *lt_dlmutex_lock_func = 0;
+static lt_dlmutex_unlock *lt_dlmutex_unlock_func = 0;
+static lt_dlmutex_seterror *lt_dlmutex_seterror_func = 0;
+static lt_dlmutex_geterror *lt_dlmutex_geterror_func = 0;
+static const char *lt_dllast_error = 0;
+
+
+/* Either set or reset the mutex functions. Either all the arguments must
+ be valid functions, or else all can be NULL to turn off locking entirely.
+ The registered functions should be manipulating a static global lock
+ from the lock() and unlock() callbacks, which needs to be reentrant. */
+int
+lt_dlmutex_register (lock, unlock, seterror, geterror)
+ lt_dlmutex_lock *lock;
+ lt_dlmutex_unlock *unlock;
+ lt_dlmutex_seterror *seterror;
+ lt_dlmutex_geterror *geterror;
+{
+ lt_dlmutex_unlock *old_unlock = unlock;
+ int errors = 0;
+
+ /* Lock using the old lock() callback, if any. */
+ LT_DLMUTEX_LOCK ();
+
+ if ((lock && unlock && seterror && geterror)
+ || !(lock || unlock || seterror || geterror))
+ {
+ lt_dlmutex_lock_func = lock;
+ lt_dlmutex_unlock_func = unlock;
+ lt_dlmutex_geterror_func = geterror;
+ }
+ else
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_MUTEX_ARGS));
+ ++errors;
+ }
+
+ /* Use the old unlock() callback we saved earlier, if any. Otherwise
+ record any errors using internal storage. */
+ if (old_unlock)
+ (*old_unlock) ();
+
+ /* Return the number of errors encountered during the execution of
+ this function. */
+ return errors;
+}
+
+
+
+
+/* --- ERROR HANDLING --- */
+
+
+static const char **user_error_strings = 0;
+static int errorcount = LT_ERROR_MAX;
+
+int
+lt_dladderror (diagnostic)
+ const char *diagnostic;
+{
+ int errindex = 0;
+ int result = -1;
+ const char **temp = (const char **) 0;
+
+ assert (diagnostic);
+
+ LT_DLMUTEX_LOCK ();
+
+ errindex = errorcount - LT_ERROR_MAX;
+ temp = LT_EREALLOC (const char *, user_error_strings, 1 + errindex);
+ if (temp)
+ {
+ user_error_strings = temp;
+ user_error_strings[errindex] = diagnostic;
+ result = errorcount++;
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return result;
+}
+
+int
+lt_dlseterror (errindex)
+ int errindex;
+{
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ if (errindex >= errorcount || errindex < 0)
+ {
+ /* Ack! Error setting the error message! */
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_ERRORCODE));
+ ++errors;
+ }
+ else if (errindex < LT_ERROR_MAX)
+ {
+ /* No error setting the error message! */
+ LT_DLMUTEX_SETERROR (lt_dlerror_strings[errindex]);
+ }
+ else
+ {
+ /* No error setting the error message! */
+ LT_DLMUTEX_SETERROR (user_error_strings[errindex - LT_ERROR_MAX]);
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+static lt_ptr
+lt_emalloc (size)
+ size_t size;
+{
+ lt_ptr mem = lt_dlmalloc (size);
+ if (size && !mem)
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
+ return mem;
+}
+
+static lt_ptr
+lt_erealloc (addr, size)
+ lt_ptr addr;
+ size_t size;
+{
+ lt_ptr mem = lt_dlrealloc (addr, size);
+ if (size && !mem)
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
+ return mem;
+}
+
+static char *
+lt_estrdup (str)
+ const char *str;
+{
+ char *copy = strdup (str);
+ if (LT_STRLEN (str) && !copy)
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
+ return copy;
+}
+
+
+
+
+/* --- DLOPEN() INTERFACE LOADER --- */
+
+
+#if HAVE_LIBDL
+
+/* dynamic linking with dlopen/dlsym */
+
+#if HAVE_DLFCN_H
+# include <dlfcn.h>
+#endif
+
+#if HAVE_SYS_DL_H
+# include <sys/dl.h>
+#endif
+
+#ifdef RTLD_GLOBAL
+# define LT_GLOBAL RTLD_GLOBAL
+#else
+# ifdef DL_GLOBAL
+# define LT_GLOBAL DL_GLOBAL
+# endif
+#endif /* !RTLD_GLOBAL */
+#ifndef LT_GLOBAL
+# define LT_GLOBAL 0
+#endif /* !LT_GLOBAL */
+
+/* We may have to define LT_LAZY_OR_NOW in the command line if we
+ find out it does not work in some platform. */
+#ifndef LT_LAZY_OR_NOW
+# ifdef RTLD_LAZY
+# define LT_LAZY_OR_NOW RTLD_LAZY
+# else
+# ifdef DL_LAZY
+# define LT_LAZY_OR_NOW DL_LAZY
+# endif
+# endif /* !RTLD_LAZY */
+#endif
+#ifndef LT_LAZY_OR_NOW
+# ifdef RTLD_NOW
+# define LT_LAZY_OR_NOW RTLD_NOW
+# else
+# ifdef DL_NOW
+# define LT_LAZY_OR_NOW DL_NOW
+# endif
+# endif /* !RTLD_NOW */
+#endif
+#ifndef LT_LAZY_OR_NOW
+# define LT_LAZY_OR_NOW 0
+#endif /* !LT_LAZY_OR_NOW */
+
+#if HAVE_DLERROR
+# define DLERROR(arg) dlerror ()
+#else
+# define DLERROR(arg) LT_DLSTRERROR (arg)
+#endif
+
+static lt_module
+sys_dl_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ lt_module module = dlopen (filename, LT_GLOBAL | LT_LAZY_OR_NOW);
+
+ if (!module)
+ {
+ LT_DLMUTEX_SETERROR (DLERROR (CANNOT_OPEN));
+ }
+
+ return module;
+}
+
+static int
+sys_dl_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int errors = 0;
+
+ if (dlclose (module) != 0)
+ {
+ LT_DLMUTEX_SETERROR (DLERROR (CANNOT_CLOSE));
+ ++errors;
+ }
+
+ return errors;
+}
+
+static lt_ptr
+sys_dl_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = dlsym (module, symbol);
+
+ if (!address)
+ {
+ LT_DLMUTEX_SETERROR (DLERROR (SYMBOL_NOT_FOUND));
+ }
+
+ return address;
+}
+
+static struct lt_user_dlloader sys_dl =
+ {
+# ifdef NEED_USCORE
+ "_",
+# else
+ 0,
+# endif
+ sys_dl_open, sys_dl_close, sys_dl_sym, 0, 0 };
+
+
+#endif /* HAVE_LIBDL */
+
+
+
+/* --- SHL_LOAD() INTERFACE LOADER --- */
+
+#if HAVE_SHL_LOAD
+
+/* dynamic linking with shl_load (HP-UX) (comments from gmodule) */
+
+#ifdef HAVE_DL_H
+# include <dl.h>
+#endif
+
+/* some flags are missing on some systems, so we provide
+ * harmless defaults.
+ *
+ * Mandatory:
+ * BIND_IMMEDIATE - Resolve symbol references when the library is loaded.
+ * BIND_DEFERRED - Delay code symbol resolution until actual reference.
+ *
+ * Optionally:
+ * BIND_FIRST - Place the library at the head of the symbol search
+ * order.
+ * BIND_NONFATAL - The default BIND_IMMEDIATE behavior is to treat all
+ * unsatisfied symbols as fatal. This flag allows
+ * binding of unsatisfied code symbols to be deferred
+ * until use.
+ * [Perl: For certain libraries, like DCE, deferred
+ * binding often causes run time problems. Adding
+ * BIND_NONFATAL to BIND_IMMEDIATE still allows
+ * unresolved references in situations like this.]
+ * BIND_NOSTART - Do not call the initializer for the shared library
+ * when the library is loaded, nor on a future call to
+ * shl_unload().
+ * BIND_VERBOSE - Print verbose messages concerning possible
+ * unsatisfied symbols.
+ *
+ * hp9000s700/hp9000s800:
+ * BIND_RESTRICTED - Restrict symbols visible by the library to those
+ * present at library load time.
+ * DYNAMIC_PATH - Allow the loader to dynamically search for the
+ * library specified by the path argument.
+ */
+
+#ifndef DYNAMIC_PATH
+# define DYNAMIC_PATH 0
+#endif
+#ifndef BIND_RESTRICTED
+# define BIND_RESTRICTED 0
+#endif
+
+#define LT_BIND_FLAGS (BIND_IMMEDIATE | BIND_NONFATAL | DYNAMIC_PATH)
+
+static lt_module
+sys_shl_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ static shl_t self = (shl_t) 0;
+ lt_module module = shl_load (filename, LT_BIND_FLAGS, 0L);
+
+ /* Since searching for a symbol against a NULL module handle will also
+ look in everything else that was already loaded and exported with
+ the -E compiler flag, we always cache a handle saved before any
+ modules are loaded. */
+ if (!self)
+ {
+ lt_ptr address;
+ shl_findsym (&self, "main", TYPE_UNDEFINED, &address);
+ }
+
+ if (!filename)
+ {
+ module = self;
+ }
+ else
+ {
+ module = shl_load (filename, LT_BIND_FLAGS, 0L);
+
+ if (!module)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
+ }
+ }
+
+ return module;
+}
+
+static int
+sys_shl_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int errors = 0;
+
+ if (module && (shl_unload ((shl_t) (module)) != 0))
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
+ ++errors;
+ }
+
+ return errors;
+}
+
+static lt_ptr
+sys_shl_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = 0;
+
+ /* sys_shl_open should never return a NULL module handle */
+ if (module == (lt_module) 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ }
+ else if (!shl_findsym((shl_t*) &module, symbol, TYPE_UNDEFINED, &address))
+ {
+ if (!address)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+ }
+ }
+
+ return address;
+}
+
+static struct lt_user_dlloader sys_shl = {
+ 0, sys_shl_open, sys_shl_close, sys_shl_sym, 0, 0
+};
+
+#endif /* HAVE_SHL_LOAD */
+
+
+
+
+/* --- LOADLIBRARY() INTERFACE LOADER --- */
+
+#ifdef __WINDOWS__
+
+/* dynamic linking for Win32 */
+
+#include <windows.h>
+
+/* Forward declaration; required to implement handle search below. */
+static lt_dlhandle handles;
+
+static lt_module
+sys_wll_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ lt_dlhandle cur;
+ lt_module module = 0;
+ const char *errormsg = 0;
+ char *searchname = 0;
+ char *ext;
+ char self_name_buf[MAX_PATH];
+
+ if (!filename)
+ {
+ /* Get the name of main module */
+ *self_name_buf = 0;
+ GetModuleFileName (NULL, self_name_buf, sizeof (self_name_buf));
+ filename = ext = self_name_buf;
+ }
+ else
+ {
+ ext = strrchr (filename, '.');
+ }
+
+ if (ext)
+ {
+ /* FILENAME already has an extension. */
+ searchname = lt_estrdup (filename);
+ }
+ else
+ {
+ /* Append a `.' to stop Windows from adding an
+ implicit `.dll' extension. */
+ searchname = LT_EMALLOC (char, 2+ LT_STRLEN (filename));
+ if (searchname)
+ sprintf (searchname, "%s.", filename);
+ }
+ if (!searchname)
+ return 0;
+
+#if __CYGWIN__
+ {
+ char wpath[MAX_PATH];
+ cygwin_conv_to_full_win32_path(searchname, wpath);
+ module = LoadLibrary(wpath);
+ }
+#else
+ module = LoadLibrary (searchname);
+#endif
+ LT_DLFREE (searchname);
+
+ /* libltdl expects this function to fail if it is unable
+ to physically load the library. Sadly, LoadLibrary
+ will search the loaded libraries for a match and return
+ one of them if the path search load fails.
+
+ We check whether LoadLibrary is returning a handle to
+ an already loaded module, and simulate failure if we
+ find one. */
+ LT_DLMUTEX_LOCK ();
+ cur = handles;
+ while (cur)
+ {
+ if (!cur->module)
+ {
+ cur = 0;
+ break;
+ }
+
+ if (cur->module == module)
+ {
+ break;
+ }
+
+ cur = cur->next;
+ }
+ LT_DLMUTEX_UNLOCK ();
+
+ if (cur || !module)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
+ module = 0;
+ }
+
+ return module;
+}
+
+static int
+sys_wll_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int errors = 0;
+
+ if (FreeLibrary(module) == 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
+ ++errors;
+ }
+
+ return errors;
+}
+
+static lt_ptr
+sys_wll_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = GetProcAddress (module, symbol);
+
+ if (!address)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+ }
+
+ return address;
+}
+
+static struct lt_user_dlloader sys_wll = {
+ 0, sys_wll_open, sys_wll_close, sys_wll_sym, 0, 0
+};
+
+#endif /* __WINDOWS__ */
+
+
+
+
+/* --- LOAD_ADD_ON() INTERFACE LOADER --- */
+
+
+#ifdef __BEOS__
+
+/* dynamic linking for BeOS */
+
+#include <kernel/image.h>
+
+static lt_module
+sys_bedl_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ image_id image = 0;
+
+ if (filename)
+ {
+ image = load_add_on (filename);
+ }
+ else
+ {
+ image_info info;
+ int32 cookie = 0;
+ if (get_next_image_info (0, &cookie, &info) == B_OK)
+ image = load_add_on (info.name);
+ }
+
+ if (image <= 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
+ image = 0;
+ }
+
+ return (lt_module) image;
+}
+
+static int
+sys_bedl_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int errors = 0;
+
+ if (unload_add_on ((image_id) module) != B_OK)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
+ ++errors;
+ }
+
+ return errors;
+}
+
+static lt_ptr
+sys_bedl_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = 0;
+ image_id image = (image_id) module;
+
+ if (get_image_symbol (image, symbol, B_SYMBOL_TYPE_ANY, address) != B_OK)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+ address = 0;
+ }
+
+ return address;
+}
+
+static struct lt_user_dlloader sys_bedl = {
+ 0, sys_bedl_open, sys_bedl_close, sys_bedl_sym, 0, 0
+};
+
+#endif /* __BEOS__ */
+
+
+
+
+/* --- DLD_LINK() INTERFACE LOADER --- */
+
+
+#if HAVE_DLD
+
+/* dynamic linking with dld */
+
+#if HAVE_DLD_H
+#include <dld.h>
+#endif
+
+static lt_module
+sys_dld_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ lt_module module = strdup (filename);
+
+ if (dld_link (filename) != 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
+ LT_DLFREE (module);
+ module = 0;
+ }
+
+ return module;
+}
+
+static int
+sys_dld_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int errors = 0;
+
+ if (dld_unlink_by_file ((char*)(module), 1) != 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
+ ++errors;
+ }
+ else
+ {
+ LT_DLFREE (module);
+ }
+
+ return errors;
+}
+
+static lt_ptr
+sys_dld_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = dld_get_func (symbol);
+
+ if (!address)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+ }
+
+ return address;
+}
+
+static struct lt_user_dlloader sys_dld = {
+ 0, sys_dld_open, sys_dld_close, sys_dld_sym, 0, 0
+};
+
+#endif /* HAVE_DLD */
+
+/* --- DYLD() MACOSX/DARWIN INTERFACE LOADER --- */
+#if HAVE_DYLD
+
+
+#if HAVE_MACH_O_DYLD_H
+#if !defined(__APPLE_CC__) && !defined(__MWERKS__) && !defined(__private_extern__)
+/* Is this correct? Does it still function properly? */
+#define __private_extern__ extern
+#endif
+# include <mach-o/dyld.h>
+#endif
+#include <mach-o/getsect.h>
+
+/* We have to put some stuff here that isn't in older dyld.h files */
+#ifndef ENUM_DYLD_BOOL
+# define ENUM_DYLD_BOOL
+# undef FALSE
+# undef TRUE
+ enum DYLD_BOOL {
+ FALSE,
+ TRUE
+ };
+#endif
+#ifndef LC_REQ_DYLD
+# define LC_REQ_DYLD 0x80000000
+#endif
+#ifndef LC_LOAD_WEAK_DYLIB
+# define LC_LOAD_WEAK_DYLIB (0x18 | LC_REQ_DYLD)
+#endif
+static const struct mach_header * (*ltdl_NSAddImage)(const char *image_name, unsigned long options) = 0;
+static NSSymbol (*ltdl_NSLookupSymbolInImage)(const struct mach_header *image,const char *symbolName, unsigned long options) = 0;
+static enum DYLD_BOOL (*ltdl_NSIsSymbolNameDefinedInImage)(const struct mach_header *image, const char *symbolName) = 0;
+static enum DYLD_BOOL (*ltdl_NSMakePrivateModulePublic)(NSModule module) = 0;
+
+#ifndef NSADDIMAGE_OPTION_NONE
+#define NSADDIMAGE_OPTION_NONE 0x0
+#endif
+#ifndef NSADDIMAGE_OPTION_RETURN_ON_ERROR
+#define NSADDIMAGE_OPTION_RETURN_ON_ERROR 0x1
+#endif
+#ifndef NSADDIMAGE_OPTION_WITH_SEARCHING
+#define NSADDIMAGE_OPTION_WITH_SEARCHING 0x2
+#endif
+#ifndef NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED
+#define NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED 0x4
+#endif
+#ifndef NSADDIMAGE_OPTION_MATCH_FILENAME_BY_INSTALLNAME
+#define NSADDIMAGE_OPTION_MATCH_FILENAME_BY_INSTALLNAME 0x8
+#endif
+#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND
+#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND 0x0
+#endif
+#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
+#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW 0x1
+#endif
+#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_FULLY
+#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_FULLY 0x2
+#endif
+#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
+#define NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR 0x4
+#endif
+
+
+static const char *
+lt_int_dyld_error(othererror)
+ char* othererror;
+{
+/* return the dyld error string, or the passed in error string if none */
+ NSLinkEditErrors ler;
+ int lerno;
+ const char *errstr;
+ const char *file;
+ NSLinkEditError(&ler,&lerno,&file,&errstr);
+ if (!errstr || !strlen(errstr)) errstr = othererror;
+ return errstr;
+}
+
+static const struct mach_header *
+lt_int_dyld_get_mach_header_from_nsmodule(module)
+ NSModule module;
+{
+/* There should probably be an apple dyld api for this */
+ int i=_dyld_image_count();
+ int j;
+ const char *modname=NSNameOfModule(module);
+ const struct mach_header *mh=NULL;
+ if (!modname) return NULL;
+ for (j = 0; j < i; j++)
+ {
+ if (!strcmp(_dyld_get_image_name(j),modname))
+ {
+ mh=_dyld_get_image_header(j);
+ break;
+ }
+ }
+ return mh;
+}
+
+static const char* lt_int_dyld_lib_install_name(mh)
+ const struct mach_header *mh;
+{
+/* NSAddImage is also used to get the loaded image, but it only works if the lib
+ is installed, for uninstalled libs we need to check the install_names against
+ each other. Note that this is still broken if DYLD_IMAGE_SUFFIX is set and a
+ different lib was loaded as a result
+*/
+ int j;
+ struct load_command *lc;
+ unsigned long offset = sizeof(struct mach_header);
+ const char* retStr=NULL;
+ for (j = 0; j < mh->ncmds; j++)
+ {
+ lc = (struct load_command*)(((unsigned long)mh) + offset);
+ if (LC_ID_DYLIB == lc->cmd)
+ {
+ retStr=(char*)(((struct dylib_command*)lc)->dylib.name.offset +
+ (unsigned long)lc);
+ }
+ offset += lc->cmdsize;
+ }
+ return retStr;
+}
+
+static const struct mach_header *
+lt_int_dyld_match_loaded_lib_by_install_name(const char *name)
+{
+ int i=_dyld_image_count();
+ int j;
+ const struct mach_header *mh=NULL;
+ const char *id=NULL;
+ for (j = 0; j < i; j++)
+ {
+ id=lt_int_dyld_lib_install_name(_dyld_get_image_header(j));
+ if ((id) && (!strcmp(id,name)))
+ {
+ mh=_dyld_get_image_header(j);
+ break;
+ }
+ }
+ return mh;
+}
+
+static NSSymbol
+lt_int_dyld_NSlookupSymbolInLinkedLibs(symbol,mh)
+ const char *symbol;
+ const struct mach_header *mh;
+{
+ /* Safe to assume our mh is good */
+ int j;
+ struct load_command *lc;
+ unsigned long offset = sizeof(struct mach_header);
+ NSSymbol retSym = 0;
+ const struct mach_header *mh1;
+ if ((ltdl_NSLookupSymbolInImage) && NSIsSymbolNameDefined(symbol) )
+ {
+ for (j = 0; j < mh->ncmds; j++)
+ {
+ lc = (struct load_command*)(((unsigned long)mh) + offset);
+ if ((LC_LOAD_DYLIB == lc->cmd) || (LC_LOAD_WEAK_DYLIB == lc->cmd))
+ {
+ mh1=lt_int_dyld_match_loaded_lib_by_install_name((char*)(((struct dylib_command*)lc)->dylib.name.offset +
+ (unsigned long)lc));
+ if (!mh1)
+ {
+ /* Maybe NSAddImage can find it */
+ mh1=ltdl_NSAddImage((char*)(((struct dylib_command*)lc)->dylib.name.offset +
+ (unsigned long)lc),
+ NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED +
+ NSADDIMAGE_OPTION_WITH_SEARCHING +
+ NSADDIMAGE_OPTION_RETURN_ON_ERROR );
+ }
+ if (mh1)
+ {
+ retSym = ltdl_NSLookupSymbolInImage(mh1,
+ symbol,
+ NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
+ | NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
+ );
+ if (retSym) break;
+ }
+ }
+ offset += lc->cmdsize;
+ }
+ }
+ return retSym;
+}
+
+static int
+sys_dyld_init()
+{
+ int retCode = 0;
+ int err = 0;
+ if (!_dyld_present()) {
+ retCode=1;
+ }
+ else {
+ err = _dyld_func_lookup("__dyld_NSAddImage",(unsigned long*)<dl_NSAddImage);
+ err = _dyld_func_lookup("__dyld_NSLookupSymbolInImage",(unsigned long*)<dl_NSLookupSymbolInImage);
+ err = _dyld_func_lookup("__dyld_NSIsSymbolNameDefinedInImage",(unsigned long*)<dl_NSIsSymbolNameDefinedInImage);
+ err = _dyld_func_lookup("__dyld_NSMakePrivateModulePublic",(unsigned long*)<dl_NSMakePrivateModulePublic);
+ }
+ return retCode;
+}
+
+static lt_module
+sys_dyld_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ lt_module module = 0;
+ NSObjectFileImage ofi = 0;
+ NSObjectFileImageReturnCode ofirc;
+
+ if (!filename)
+ return (lt_module)-1;
+ ofirc = NSCreateObjectFileImageFromFile(filename, &ofi);
+ switch (ofirc)
+ {
+ case NSObjectFileImageSuccess:
+ module = NSLinkModule(ofi, filename,
+ NSLINKMODULE_OPTION_RETURN_ON_ERROR
+ | NSLINKMODULE_OPTION_PRIVATE
+ | NSLINKMODULE_OPTION_BINDNOW);
+ NSDestroyObjectFileImage(ofi);
+ if (module)
+ ltdl_NSMakePrivateModulePublic(module);
+ break;
+ case NSObjectFileImageInappropriateFile:
+ if (ltdl_NSIsSymbolNameDefinedInImage && ltdl_NSLookupSymbolInImage)
+ {
+ module = (lt_module)ltdl_NSAddImage(filename, NSADDIMAGE_OPTION_RETURN_ON_ERROR);
+ break;
+ }
+ default:
+ LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_OPEN)));
+ return 0;
+ }
+ if (!module) LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_OPEN)));
+ return module;
+}
+
+static int
+sys_dyld_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ int retCode = 0;
+ int flags = 0;
+ if (module == (lt_module)-1) return 0;
+#ifdef __BIG_ENDIAN__
+ if (((struct mach_header *)module)->magic == MH_MAGIC)
+#else
+ if (((struct mach_header *)module)->magic == MH_CIGAM)
+#endif
+ {
+ LT_DLMUTEX_SETERROR("Can not close a dylib");
+ retCode = 1;
+ }
+ else
+ {
+#if 1
+/* Currently, if a module contains c++ static destructors and it is unloaded, we
+ get a segfault in atexit(), due to compiler and dynamic loader differences of
+ opinion, this works around that.
+*/
+ if ((const struct section *)NULL !=
+ getsectbynamefromheader(lt_int_dyld_get_mach_header_from_nsmodule(module),
+ "__DATA","__mod_term_func"))
+ {
+ flags += NSUNLINKMODULE_OPTION_KEEP_MEMORY_MAPPED;
+ }
+#endif
+#ifdef __ppc__
+ flags += NSUNLINKMODULE_OPTION_RESET_LAZY_REFERENCES;
+#endif
+ if (!NSUnLinkModule(module,flags))
+ {
+ retCode=1;
+ LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_CLOSE)));
+ }
+ }
+
+ return retCode;
+}
+
+static lt_ptr
+sys_dyld_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_ptr address = 0;
+ NSSymbol *nssym = 0;
+ void *unused;
+ const struct mach_header *mh=NULL;
+ char saveError[256] = "Symbol not found";
+ if (module == (lt_module)-1)
+ {
+ _dyld_lookup_and_bind(symbol,(unsigned long*)&address,&unused);
+ return address;
+ }
+#ifdef __BIG_ENDIAN__
+ if (((struct mach_header *)module)->magic == MH_MAGIC)
+#else
+ if (((struct mach_header *)module)->magic == MH_CIGAM)
+#endif
+ {
+ if (ltdl_NSIsSymbolNameDefinedInImage && ltdl_NSLookupSymbolInImage)
+ {
+ mh=module;
+ if (ltdl_NSIsSymbolNameDefinedInImage((struct mach_header*)module,symbol))
+ {
+ nssym = ltdl_NSLookupSymbolInImage((struct mach_header*)module,
+ symbol,
+ NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
+ | NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
+ );
+ }
+ }
+
+ }
+ else {
+ nssym = NSLookupSymbolInModule(module, symbol);
+ }
+ if (!nssym)
+ {
+ strncpy(saveError, lt_int_dyld_error(LT_DLSTRERROR(SYMBOL_NOT_FOUND)), 255);
+ saveError[255] = 0;
+ if (!mh) mh=lt_int_dyld_get_mach_header_from_nsmodule(module);
+ nssym = lt_int_dyld_NSlookupSymbolInLinkedLibs(symbol,mh);
+ }
+ if (!nssym)
+ {
+ LT_DLMUTEX_SETERROR (saveError);
+ return NULL;
+ }
+ return NSAddressOfSymbol(nssym);
+}
+
+static struct lt_user_dlloader sys_dyld =
+ { "_", sys_dyld_open, sys_dyld_close, sys_dyld_sym, 0, 0 };
+
+
+#endif /* HAVE_DYLD */
+
+
+/* --- DLPREOPEN() INTERFACE LOADER --- */
+
+
+/* emulate dynamic linking using preloaded_symbols */
+
+typedef struct lt_dlsymlists_t
+{
+ struct lt_dlsymlists_t *next;
+ const lt_dlsymlist *syms;
+} lt_dlsymlists_t;
+
+static const lt_dlsymlist *default_preloaded_symbols = 0;
+static lt_dlsymlists_t *preloaded_symbols = 0;
+
+static int
+presym_init (loader_data)
+ lt_user_data loader_data;
+{
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ preloaded_symbols = 0;
+ if (default_preloaded_symbols)
+ {
+ errors = lt_dlpreload (default_preloaded_symbols);
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+static int
+presym_free_symlists ()
+{
+ lt_dlsymlists_t *lists;
+
+ LT_DLMUTEX_LOCK ();
+
+ lists = preloaded_symbols;
+ while (lists)
+ {
+ lt_dlsymlists_t *tmp = lists;
+
+ lists = lists->next;
+ LT_DLFREE (tmp);
+ }
+ preloaded_symbols = 0;
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return 0;
+}
+
+static int
+presym_exit (loader_data)
+ lt_user_data loader_data;
+{
+ presym_free_symlists ();
+ return 0;
+}
+
+static int
+presym_add_symlist (preloaded)
+ const lt_dlsymlist *preloaded;
+{
+ lt_dlsymlists_t *tmp;
+ lt_dlsymlists_t *lists;
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ lists = preloaded_symbols;
+ while (lists)
+ {
+ if (lists->syms == preloaded)
+ {
+ goto done;
+ }
+ lists = lists->next;
+ }
+
+ tmp = LT_EMALLOC (lt_dlsymlists_t, 1);
+ if (tmp)
+ {
+ memset (tmp, 0, sizeof(lt_dlsymlists_t));
+ tmp->syms = preloaded;
+ tmp->next = preloaded_symbols;
+ preloaded_symbols = tmp;
+ }
+ else
+ {
+ ++errors;
+ }
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+ return errors;
+}
+
+static lt_module
+presym_open (loader_data, filename)
+ lt_user_data loader_data;
+ const char *filename;
+{
+ lt_dlsymlists_t *lists;
+ lt_module module = (lt_module) 0;
+
+ LT_DLMUTEX_LOCK ();
+ lists = preloaded_symbols;
+
+ if (!lists)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_SYMBOLS));
+ goto done;
+ }
+
+ /* Can't use NULL as the reflective symbol header, as NULL is
+ used to mark the end of the entire symbol list. Self-dlpreopened
+ symbols follow this magic number, chosen to be an unlikely
+ clash with a real module name. */
+ if (!filename)
+ {
+ filename = "@PROGRAM@";
+ }
+
+ while (lists)
+ {
+ const lt_dlsymlist *syms = lists->syms;
+
+ while (syms->name)
+ {
+ if (!syms->address && strcmp(syms->name, filename) == 0)
+ {
+ module = (lt_module) syms;
+ goto done;
+ }
+ ++syms;
+ }
+
+ lists = lists->next;
+ }
+
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+ return module;
+}
+
+static int
+presym_close (loader_data, module)
+ lt_user_data loader_data;
+ lt_module module;
+{
+ /* Just to silence gcc -Wall */
+ module = 0;
+ return 0;
+}
+
+static lt_ptr
+presym_sym (loader_data, module, symbol)
+ lt_user_data loader_data;
+ lt_module module;
+ const char *symbol;
+{
+ lt_dlsymlist *syms = (lt_dlsymlist*) module;
+
+ ++syms;
+ while (syms->address)
+ {
+ if (strcmp(syms->name, symbol) == 0)
+ {
+ return syms->address;
+ }
+
+ ++syms;
+ }
+
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+
+ return 0;
+}
+
+static struct lt_user_dlloader presym = {
+ 0, presym_open, presym_close, presym_sym, presym_exit, 0
+};
+
+
+
+
+
+/* --- DYNAMIC MODULE LOADING --- */
+
+
+/* The type of a function used at each iteration of foreach_dirinpath(). */
+typedef int foreach_callback_func LT_PARAMS((char *filename, lt_ptr data1,
+ lt_ptr data2));
+
+static int foreach_dirinpath LT_PARAMS((const char *search_path,
+ const char *base_name,
+ foreach_callback_func *func,
+ lt_ptr data1, lt_ptr data2));
+
+static int find_file_callback LT_PARAMS((char *filename, lt_ptr data,
+ lt_ptr ignored));
+static int find_handle_callback LT_PARAMS((char *filename, lt_ptr data,
+ lt_ptr ignored));
+static int foreachfile_callback LT_PARAMS((char *filename, lt_ptr data1,
+ lt_ptr data2));
+
+
+static int canonicalize_path LT_PARAMS((const char *path,
+ char **pcanonical));
+static int argzize_path LT_PARAMS((const char *path,
+ char **pargz,
+ size_t *pargz_len));
+static FILE *find_file LT_PARAMS((const char *search_path,
+ const char *base_name,
+ char **pdir));
+static lt_dlhandle *find_handle LT_PARAMS((const char *search_path,
+ const char *base_name,
+ lt_dlhandle *handle));
+static int find_module LT_PARAMS((lt_dlhandle *handle,
+ const char *dir,
+ const char *libdir,
+ const char *dlname,
+ const char *old_name,
+ int installed));
+static int free_vars LT_PARAMS((char *dlname, char *oldname,
+ char *libdir, char *deplibs));
+static int load_deplibs LT_PARAMS((lt_dlhandle handle,
+ char *deplibs));
+static int trim LT_PARAMS((char **dest,
+ const char *str));
+static int try_dlopen LT_PARAMS((lt_dlhandle *handle,
+ const char *filename));
+static int tryall_dlopen LT_PARAMS((lt_dlhandle *handle,
+ const char *filename));
+static int unload_deplibs LT_PARAMS((lt_dlhandle handle));
+static int lt_argz_insert LT_PARAMS((char **pargz,
+ size_t *pargz_len,
+ char *before,
+ const char *entry));
+static int lt_argz_insertinorder LT_PARAMS((char **pargz,
+ size_t *pargz_len,
+ const char *entry));
+static int lt_argz_insertdir LT_PARAMS((char **pargz,
+ size_t *pargz_len,
+ const char *dirnam,
+ struct dirent *dp));
+static int lt_dlpath_insertdir LT_PARAMS((char **ppath,
+ char *before,
+ const char *dir));
+static int list_files_by_dir LT_PARAMS((const char *dirnam,
+ char **pargz,
+ size_t *pargz_len));
+static int file_not_found LT_PARAMS((void));
+
+static char *user_search_path= 0;
+static lt_dlloader *loaders = 0;
+static lt_dlhandle handles = 0;
+static int initialized = 0;
+
+/* Initialize libltdl. */
+int
+lt_dlinit ()
+{
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ /* Initialize only at first call. */
+ if (++initialized == 1)
+ {
+ handles = 0;
+ user_search_path = 0; /* empty search path */
+
+#if HAVE_LIBDL
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_dl, "dlopen");
+#endif
+#if HAVE_SHL_LOAD
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_shl, "dlopen");
+#endif
+#ifdef __WINDOWS__
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_wll, "dlopen");
+#endif
+#ifdef __BEOS__
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_bedl, "dlopen");
+#endif
+#if HAVE_DLD
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_dld, "dld");
+#endif
+#if HAVE_DYLD
+ errors += lt_dlloader_add (lt_dlloader_next (0), &sys_dyld, "dyld");
+ errors += sys_dyld_init();
+#endif
+ errors += lt_dlloader_add (lt_dlloader_next (0), &presym, "dlpreload");
+
+ if (presym_init (presym.dlloader_data))
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INIT_LOADER));
+ ++errors;
+ }
+ else if (errors != 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (DLOPEN_NOT_SUPPORTED));
+ ++errors;
+ }
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+int
+lt_dlpreload (preloaded)
+ const lt_dlsymlist *preloaded;
+{
+ int errors = 0;
+
+ if (preloaded)
+ {
+ errors = presym_add_symlist (preloaded);
+ }
+ else
+ {
+ presym_free_symlists();
+
+ LT_DLMUTEX_LOCK ();
+ if (default_preloaded_symbols)
+ {
+ errors = lt_dlpreload (default_preloaded_symbols);
+ }
+ LT_DLMUTEX_UNLOCK ();
+ }
+
+ return errors;
+}
+
+int
+lt_dlpreload_default (preloaded)
+ const lt_dlsymlist *preloaded;
+{
+ LT_DLMUTEX_LOCK ();
+ default_preloaded_symbols = preloaded;
+ LT_DLMUTEX_UNLOCK ();
+ return 0;
+}
+
+int
+lt_dlexit ()
+{
+ /* shut down libltdl */
+ lt_dlloader *loader;
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+ loader = loaders;
+
+ if (!initialized)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SHUTDOWN));
+ ++errors;
+ goto done;
+ }
+
+ /* shut down only at last call. */
+ if (--initialized == 0)
+ {
+ int level;
+
+ while (handles && LT_DLIS_RESIDENT (handles))
+ {
+ handles = handles->next;
+ }
+
+ /* close all modules */
+ for (level = 1; handles; ++level)
+ {
+ lt_dlhandle cur = handles;
+ int saw_nonresident = 0;
+
+ while (cur)
+ {
+ lt_dlhandle tmp = cur;
+ cur = cur->next;
+ if (!LT_DLIS_RESIDENT (tmp))
+ saw_nonresident = 1;
+ if (!LT_DLIS_RESIDENT (tmp) && tmp->info.ref_count <= level)
+ {
+ if (lt_dlclose (tmp))
+ {
+ ++errors;
+ }
+ }
+ }
+ /* done if only resident modules are left */
+ if (!saw_nonresident)
+ break;
+ }
+
+ /* close all loaders */
+ while (loader)
+ {
+ lt_dlloader *next = loader->next;
+ lt_user_data data = loader->dlloader_data;
+ if (loader->dlloader_exit && loader->dlloader_exit (data))
+ {
+ ++errors;
+ }
+
+ LT_DLMEM_REASSIGN (loader, next);
+ }
+ loaders = 0;
+ }
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+ return errors;
+}
+
+static int
+tryall_dlopen (handle, filename)
+ lt_dlhandle *handle;
+ const char *filename;
+{
+ lt_dlhandle cur;
+ lt_dlloader *loader;
+ const char *saved_error;
+ int errors = 0;
+
+ LT_DLMUTEX_GETERROR (saved_error);
+ LT_DLMUTEX_LOCK ();
+
+ cur = handles;
+ loader = loaders;
+
+ /* check whether the module was already opened */
+ while (cur)
+ {
+ /* try to dlopen the program itself? */
+ if (!cur->info.filename && !filename)
+ {
+ break;
+ }
+
+ if (cur->info.filename && filename
+ && strcmp (cur->info.filename, filename) == 0)
+ {
+ break;
+ }
+
+ cur = cur->next;
+ }
+
+ if (cur)
+ {
+ ++cur->info.ref_count;
+ *handle = cur;
+ goto done;
+ }
+
+ cur = *handle;
+ if (filename)
+ {
+ /* Comment out the check of file permissions using access.
+ This call seems to always return -1 with error EACCES.
+ */
+ /* We need to catch missing file errors early so that
+ file_not_found() can detect what happened.
+ if (access (filename, R_OK) != 0)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
+ ++errors;
+ goto done;
+ } */
+
+ cur->info.filename = lt_estrdup (filename);
+ if (!cur->info.filename)
+ {
+ ++errors;
+ goto done;
+ }
+ }
+ else
+ {
+ cur->info.filename = 0;
+ }
+
+ while (loader)
+ {
+ lt_user_data data = loader->dlloader_data;
+
+ cur->module = loader->module_open (data, filename);
+
+ if (cur->module != 0)
+ {
+ break;
+ }
+ loader = loader->next;
+ }
+
+ if (!loader)
+ {
+ LT_DLFREE (cur->info.filename);
+ ++errors;
+ goto done;
+ }
+
+ cur->loader = loader;
+ LT_DLMUTEX_SETERROR (saved_error);
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+static int
+tryall_dlopen_module (handle, prefix, dirname, dlname)
+ lt_dlhandle *handle;
+ const char *prefix;
+ const char *dirname;
+ const char *dlname;
+{
+ int error = 0;
+ char *filename = 0;
+ size_t filename_len = 0;
+ size_t dirname_len = LT_STRLEN (dirname);
+
+ assert (handle);
+ assert (dirname);
+ assert (dlname);
+#ifdef LT_DIRSEP_CHAR
+ /* Only canonicalized names (i.e. with DIRSEP chars already converted)
+ should make it into this function: */
+ assert (strchr (dirname, LT_DIRSEP_CHAR) == 0);
+#endif
+
+ if (dirname_len > 0)
+ if (dirname[dirname_len -1] == '/')
+ --dirname_len;
+ filename_len = dirname_len + 1 + LT_STRLEN (dlname);
+
+ /* Allocate memory, and combine DIRNAME and MODULENAME into it.
+ The PREFIX (if any) is handled below. */
+ filename = LT_EMALLOC (char, dirname_len + 1 + filename_len + 1);
+ if (!filename)
+ return 1;
+
+ sprintf (filename, "%.*s/%s", (int) dirname_len, dirname, dlname);
+
+ /* Now that we have combined DIRNAME and MODULENAME, if there is
+ also a PREFIX to contend with, simply recurse with the arguments
+ shuffled. Otherwise, attempt to open FILENAME as a module. */
+ if (prefix)
+ {
+ error += tryall_dlopen_module (handle,
+ (const char *) 0, prefix, filename);
+ }
+ else if (tryall_dlopen (handle, filename) != 0)
+ {
+ ++error;
+ }
+
+ LT_DLFREE (filename);
+ return error;
+}
+
+static int
+find_module (handle, dir, libdir, dlname, old_name, installed)
+ lt_dlhandle *handle;
+ const char *dir;
+ const char *libdir;
+ const char *dlname;
+ const char *old_name;
+ int installed;
+{
+ /* Try to open the old library first; if it was dlpreopened,
+ we want the preopened version of it, even if a dlopenable
+ module is available. */
+ if (old_name && tryall_dlopen (handle, old_name) == 0)
+ {
+ return 0;
+ }
+
+ /* Try to open the dynamic library. */
+ if (dlname)
+ {
+ /* try to open the installed module */
+ if (installed && libdir)
+ {
+ if (tryall_dlopen_module (handle,
+ (const char *) 0, libdir, dlname) == 0)
+ return 0;
+ }
+
+ /* try to open the not-installed module */
+ if (!installed)
+ {
+ if (tryall_dlopen_module (handle, dir, objdir, dlname) == 0)
+ return 0;
+ }
+
+ /* maybe it was moved to another directory */
+ {
+ if (tryall_dlopen_module (handle,
+ (const char *) 0, dir, dlname) == 0)
+ return 0;
+ }
+ }
+
+ return 1;
+}
+
+
+static int
+canonicalize_path (path, pcanonical)
+ const char *path;
+ char **pcanonical;
+{
+ char *canonical = 0;
+
+ assert (path && *path);
+ assert (pcanonical);
+
+ canonical = LT_EMALLOC (char, 1+ LT_STRLEN (path));
+ if (!canonical)
+ return 1;
+
+ {
+ size_t dest = 0;
+ size_t src;
+ for (src = 0; path[src] != LT_EOS_CHAR; ++src)
+ {
+ /* Path separators are not copied to the beginning or end of
+ the destination, or if another separator would follow
+ immediately. */
+ if (path[src] == LT_PATHSEP_CHAR)
+ {
+ if ((dest == 0)
+ || (path[1+ src] == LT_PATHSEP_CHAR)
+ || (path[1+ src] == LT_EOS_CHAR))
+ continue;
+ }
+
+ /* Anything other than a directory separator is copied verbatim. */
+ if ((path[src] != '/')
+#ifdef LT_DIRSEP_CHAR
+ && (path[src] != LT_DIRSEP_CHAR)
+#endif
+ )
+ {
+ canonical[dest++] = path[src];
+ }
+ /* Directory separators are converted and copied only if they are
+ not at the end of a path -- i.e. before a path separator or
+ NULL terminator. */
+ else if ((path[1+ src] != LT_PATHSEP_CHAR)
+ && (path[1+ src] != LT_EOS_CHAR)
+#ifdef LT_DIRSEP_CHAR
+ && (path[1+ src] != LT_DIRSEP_CHAR)
+#endif
+ && (path[1+ src] != '/'))
+ {
+ canonical[dest++] = '/';
+ }
+ }
+
+ /* Add an end-of-string marker at the end. */
+ canonical[dest] = LT_EOS_CHAR;
+ }
+
+ /* Assign new value. */
+ *pcanonical = canonical;
+
+ return 0;
+}
+
+static int
+argzize_path (path, pargz, pargz_len)
+ const char *path;
+ char **pargz;
+ size_t *pargz_len;
+{
+ error_t error;
+
+ assert (path);
+ assert (pargz);
+ assert (pargz_len);
+
+ if ((error = argz_create_sep (path, LT_PATHSEP_CHAR, pargz, pargz_len)))
+ {
+ switch (error)
+ {
+ case ENOMEM:
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
+ break;
+ default:
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (UNKNOWN));
+ break;
+ }
+
+ return 1;
+ }
+
+ return 0;
+}
+
+/* Repeatedly call FUNC with each LT_PATHSEP_CHAR delimited element
+ of SEARCH_PATH and references to DATA1 and DATA2, until FUNC returns
+ non-zero or all elements are exhausted. If BASE_NAME is non-NULL,
+ it is appended to each SEARCH_PATH element before FUNC is called. */
+static int
+foreach_dirinpath (search_path, base_name, func, data1, data2)
+ const char *search_path;
+ const char *base_name;
+ foreach_callback_func *func;
+ lt_ptr data1;
+ lt_ptr data2;
+{
+ int result = 0;
+ int filenamesize = 0;
+ size_t lenbase = LT_STRLEN (base_name);
+ size_t argz_len = 0;
+ char *argz = 0;
+ char *filename = 0;
+ char *canonical = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ if (!search_path || !*search_path)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
+ goto cleanup;
+ }
+
+ if (canonicalize_path (search_path, &canonical) != 0)
+ goto cleanup;
+
+ if (argzize_path (canonical, &argz, &argz_len) != 0)
+ goto cleanup;
+
+ {
+ char *dir_name = 0;
+ while ((dir_name = argz_next (argz, argz_len, dir_name)))
+ {
+ size_t lendir = LT_STRLEN (dir_name);
+
+ if (lendir +1 +lenbase >= filenamesize)
+ {
+ LT_DLFREE (filename);
+ filenamesize = lendir +1 +lenbase +1; /* "/d" + '/' + "f" + '\0' */
+ filename = LT_EMALLOC (char, filenamesize);
+ if (!filename)
+ goto cleanup;
+ }
+
+ assert (filenamesize > lendir);
+ strcpy (filename, dir_name);
+
+ if (base_name && *base_name)
+ {
+ if (filename[lendir -1] != '/')
+ filename[lendir++] = '/';
+ strcpy (filename +lendir, base_name);
+ }
+
+ if ((result = (*func) (filename, data1, data2)))
+ {
+ break;
+ }
+ }
+ }
+
+ cleanup:
+ LT_DLFREE (argz);
+ LT_DLFREE (canonical);
+ LT_DLFREE (filename);
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return result;
+}
+
+/* If FILEPATH can be opened, store the name of the directory component
+ in DATA1, and the opened FILE* structure address in DATA2. Otherwise
+ DATA1 is unchanged, but DATA2 is set to a pointer to NULL. */
+static int
+find_file_callback (filename, data1, data2)
+ char *filename;
+ lt_ptr data1;
+ lt_ptr data2;
+{
+ char **pdir = (char **) data1;
+ FILE **pfile = (FILE **) data2;
+ int is_done = 0;
+
+ assert (filename && *filename);
+ assert (pdir);
+ assert (pfile);
+
+ if ((*pfile = fopen (filename, LT_READTEXT_MODE)))
+ {
+ char *dirend = strrchr (filename, '/');
+
+ if (dirend > filename)
+ *dirend = LT_EOS_CHAR;
+
+ LT_DLFREE (*pdir);
+ *pdir = lt_estrdup (filename);
+ is_done = (*pdir == 0) ? -1 : 1;
+ }
+
+ return is_done;
+}
+
+static FILE *
+find_file (search_path, base_name, pdir)
+ const char *search_path;
+ const char *base_name;
+ char **pdir;
+{
+ FILE *file = 0;
+
+ foreach_dirinpath (search_path, base_name, find_file_callback, pdir, &file);
+
+ return file;
+}
+
+static int
+find_handle_callback (filename, data, ignored)
+ char *filename;
+ lt_ptr data;
+ lt_ptr ignored;
+{
+ lt_dlhandle *handle = (lt_dlhandle *) data;
+ int notfound = access (filename, R_OK);
+
+ /* Bail out if file cannot be read... */
+ if (notfound)
+ return 0;
+
+ /* Try to dlopen the file, but do not continue searching in any
+ case. */
+ if (tryall_dlopen (handle, filename) != 0)
+ *handle = 0;
+
+ return 1;
+}
+
+/* If HANDLE was found return it, otherwise return 0. If HANDLE was
+ found but could not be opened, *HANDLE will be set to 0. */
+static lt_dlhandle *
+find_handle (search_path, base_name, handle)
+ const char *search_path;
+ const char *base_name;
+ lt_dlhandle *handle;
+{
+ if (!search_path)
+ return 0;
+
+ if (!foreach_dirinpath (search_path, base_name, find_handle_callback,
+ handle, 0))
+ return 0;
+
+ return handle;
+}
+
+static int
+load_deplibs (handle, deplibs)
+ lt_dlhandle handle;
+ char *deplibs;
+{
+#if LTDL_DLOPEN_DEPLIBS
+ char *p, *save_search_path = 0;
+ int depcount = 0;
+ int i;
+ char **names = 0;
+#endif
+ int errors = 0;
+
+ handle->depcount = 0;
+
+#if LTDL_DLOPEN_DEPLIBS
+ if (!deplibs)
+ {
+ return errors;
+ }
+ ++errors;
+
+ LT_DLMUTEX_LOCK ();
+ if (user_search_path)
+ {
+ save_search_path = lt_estrdup (user_search_path);
+ if (!save_search_path)
+ goto cleanup;
+ }
+
+ /* extract search paths and count deplibs */
+ p = deplibs;
+ while (*p)
+ {
+ if (!isspace ((int) *p))
+ {
+ char *end = p+1;
+ while (*end && !isspace((int) *end))
+ {
+ ++end;
+ }
+
+ if (strncmp(p, "-L", 2) == 0 || strncmp(p, "-R", 2) == 0)
+ {
+ char save = *end;
+ *end = 0; /* set a temporary string terminator */
+ if (lt_dladdsearchdir(p+2))
+ {
+ goto cleanup;
+ }
+ *end = save;
+ }
+ else
+ {
+ ++depcount;
+ }
+
+ p = end;
+ }
+ else
+ {
+ ++p;
+ }
+ }
+
+ /* restore the old search path */
+ LT_DLFREE (user_search_path);
+ user_search_path = save_search_path;
+
+ LT_DLMUTEX_UNLOCK ();
+
+ if (!depcount)
+ {
+ errors = 0;
+ goto cleanup;
+ }
+
+ names = LT_EMALLOC (char *, depcount * sizeof (char*));
+ if (!names)
+ goto cleanup;
+
+ /* now only extract the actual deplibs */
+ depcount = 0;
+ p = deplibs;
+ while (*p)
+ {
+ if (isspace ((int) *p))
+ {
+ ++p;
+ }
+ else
+ {
+ char *end = p+1;
+ while (*end && !isspace ((int) *end))
+ {
+ ++end;
+ }
+
+ if (strncmp(p, "-L", 2) != 0 && strncmp(p, "-R", 2) != 0)
+ {
+ char *name;
+ char save = *end;
+ *end = 0; /* set a temporary string terminator */
+ if (strncmp(p, "-l", 2) == 0)
+ {
+ size_t name_len = 3+ /* "lib" */ LT_STRLEN (p + 2);
+ name = LT_EMALLOC (char, 1+ name_len);
+ if (name)
+ sprintf (name, "lib%s", p+2);
+ }
+ else
+ name = lt_estrdup(p);
+
+ if (!name)
+ goto cleanup_names;
+
+ names[depcount++] = name;
+ *end = save;
+ }
+ p = end;
+ }
+ }
+
+ /* load the deplibs (in reverse order)
+ At this stage, don't worry if the deplibs do not load correctly,
+ they may already be statically linked into the loading application
+ for instance. There will be a more enlightening error message
+ later on if the loaded module cannot resolve all of its symbols. */
+ if (depcount)
+ {
+ int j = 0;
+
+ handle->deplibs = (lt_dlhandle*) LT_EMALLOC (lt_dlhandle *, depcount);
+ if (!handle->deplibs)
+ goto cleanup;
+
+ for (i = 0; i < depcount; ++i)
+ {
+ handle->deplibs[j] = lt_dlopenext(names[depcount-1-i]);
+ if (handle->deplibs[j])
+ {
+ ++j;
+ }
+ }
+
+ handle->depcount = j; /* Number of successfully loaded deplibs */
+ errors = 0;
+ }
+
+ cleanup_names:
+ for (i = 0; i < depcount; ++i)
+ {
+ LT_DLFREE (names[i]);
+ }
+
+ cleanup:
+ LT_DLFREE (names);
+#endif
+
+ return errors;
+}
+
+static int
+unload_deplibs (handle)
+ lt_dlhandle handle;
+{
+ int i;
+ int errors = 0;
+
+ if (handle->depcount)
+ {
+ for (i = 0; i < handle->depcount; ++i)
+ {
+ if (!LT_DLIS_RESIDENT (handle->deplibs[i]))
+ {
+ errors += lt_dlclose (handle->deplibs[i]);
+ }
+ }
+ }
+
+ return errors;
+}
+
+static int
+trim (dest, str)
+ char **dest;
+ const char *str;
+{
+ /* remove the leading and trailing "'" from str
+ and store the result in dest */
+ const char *end = strrchr (str, '\'');
+ size_t len = LT_STRLEN (str);
+ char *tmp;
+
+ LT_DLFREE (*dest);
+
+ if (len > 3 && str[0] == '\'')
+ {
+ tmp = LT_EMALLOC (char, end - str);
+ if (!tmp)
+ return 1;
+
+ strncpy(tmp, &str[1], (end - str) - 1);
+ tmp[len-3] = LT_EOS_CHAR;
+ *dest = tmp;
+ }
+ else
+ {
+ *dest = 0;
+ }
+
+ return 0;
+}
+
+static int
+free_vars (dlname, oldname, libdir, deplibs)
+ char *dlname;
+ char *oldname;
+ char *libdir;
+ char *deplibs;
+{
+ LT_DLFREE (dlname);
+ LT_DLFREE (oldname);
+ LT_DLFREE (libdir);
+ LT_DLFREE (deplibs);
+
+ return 0;
+}
+
+static int
+try_dlopen (phandle, filename)
+ lt_dlhandle *phandle;
+ const char *filename;
+{
+ const char * ext = 0;
+ const char * saved_error = 0;
+ char * canonical = 0;
+ char * base_name = 0;
+ char * dir = 0;
+ char * name = 0;
+ int errors = 0;
+ lt_dlhandle newhandle;
+
+ assert (phandle);
+ assert (*phandle == 0);
+
+ LT_DLMUTEX_GETERROR (saved_error);
+
+ /* dlopen self? */
+ if (!filename)
+ {
+ *phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
+ if (*phandle == 0)
+ return 1;
+
+ memset (*phandle, 0, sizeof(struct lt_dlhandle_struct));
+ newhandle = *phandle;
+
+ /* lt_dlclose()ing yourself is very bad! Disallow it. */
+ LT_DLSET_FLAG (*phandle, LT_DLRESIDENT_FLAG);
+
+ if (tryall_dlopen (&newhandle, 0) != 0)
+ {
+ LT_DLFREE (*phandle);
+ return 1;
+ }
+
+ goto register_handle;
+ }
+
+ assert (filename && *filename);
+
+ /* Doing this immediately allows internal functions to safely
+ assume only canonicalized paths are passed. */
+ if (canonicalize_path (filename, &canonical) != 0)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ /* If the canonical module name is a path (relative or absolute)
+ then split it into a directory part and a name part. */
+ base_name = strrchr (canonical, '/');
+ if (base_name)
+ {
+ size_t dirlen = (1+ base_name) - canonical;
+
+ dir = LT_EMALLOC (char, 1+ dirlen);
+ if (!dir)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ strncpy (dir, canonical, dirlen);
+ dir[dirlen] = LT_EOS_CHAR;
+
+ ++base_name;
+ }
+ else
+ LT_DLMEM_REASSIGN (base_name, canonical);
+
+ assert (base_name && *base_name);
+
+ /* Check whether we are opening a libtool module (.la extension). */
+ ext = strrchr (base_name, '.');
+ if (ext && strcmp (ext, archive_ext) == 0)
+ {
+ /* this seems to be a libtool module */
+ FILE * file = 0;
+ char * dlname = 0;
+ char * old_name = 0;
+ char * libdir = 0;
+ char * deplibs = 0;
+ char * line = 0;
+ size_t line_len;
+
+ /* if we can't find the installed flag, it is probably an
+ installed libtool archive, produced with an old version
+ of libtool */
+ int installed = 1;
+
+ /* extract the module name from the file name */
+ name = LT_EMALLOC (char, ext - base_name + 1);
+ if (!name)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ /* canonicalize the module name */
+ {
+ size_t i;
+ for (i = 0; i < ext - base_name; ++i)
+ {
+ if (isalnum ((int)(base_name[i])))
+ {
+ name[i] = base_name[i];
+ }
+ else
+ {
+ name[i] = '_';
+ }
+ }
+ name[ext - base_name] = LT_EOS_CHAR;
+ }
+
+ /* Now try to open the .la file. If there is no directory name
+ component, try to find it first in user_search_path and then other
+ prescribed paths. Otherwise (or in any case if the module was not
+ yet found) try opening just the module name as passed. */
+ if (!dir)
+ {
+ const char *search_path;
+
+ LT_DLMUTEX_LOCK ();
+ search_path = user_search_path;
+ if (search_path)
+ file = find_file (user_search_path, base_name, &dir);
+ LT_DLMUTEX_UNLOCK ();
+
+ if (!file)
+ {
+ search_path = getenv (LTDL_SEARCHPATH_VAR);
+ if (search_path)
+ file = find_file (search_path, base_name, &dir);
+ }
+
+#ifdef LTDL_SHLIBPATH_VAR
+ if (!file)
+ {
+ search_path = getenv (LTDL_SHLIBPATH_VAR);
+ if (search_path)
+ file = find_file (search_path, base_name, &dir);
+ }
+#endif
+#ifdef LTDL_SYSSEARCHPATH
+ if (!file && sys_search_path)
+ {
+ file = find_file (sys_search_path, base_name, &dir);
+ }
+#endif
+ }
+ if (!file)
+ {
+ file = fopen (filename, LT_READTEXT_MODE);
+ }
+
+ /* If we didn't find the file by now, it really isn't there. Set
+ the status flag, and bail out. */
+ if (!file)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
+ ++errors;
+ goto cleanup;
+ }
+
+ line_len = LT_FILENAME_MAX;
+ line = LT_EMALLOC (char, line_len);
+ if (!line)
+ {
+ fclose (file);
+ ++errors;
+ goto cleanup;
+ }
+
+ /* read the .la file */
+ while (!feof (file))
+ {
+ if (!fgets (line, (int) line_len, file))
+ {
+ break;
+ }
+
+ /* Handle the case where we occasionally need to read a line
+ that is longer than the initial buffer size. */
+ while ((line[LT_STRLEN(line) -1] != '\n') && (!feof (file)))
+ {
+ line = LT_DLREALLOC (char, line, line_len *2);
+ if (!fgets (&line[line_len -1], (int) line_len +1, file))
+ {
+ break;
+ }
+ line_len *= 2;
+ }
+
+ if (line[0] == '\n' || line[0] == '#')
+ {
+ continue;
+ }
+
+#undef STR_DLNAME
+#define STR_DLNAME "dlname="
+ if (strncmp (line, STR_DLNAME, sizeof (STR_DLNAME) - 1) == 0)
+ {
+ errors += trim (&dlname, &line[sizeof (STR_DLNAME) - 1]);
+ }
+
+#undef STR_OLD_LIBRARY
+#define STR_OLD_LIBRARY "old_library="
+ else if (strncmp (line, STR_OLD_LIBRARY,
+ sizeof (STR_OLD_LIBRARY) - 1) == 0)
+ {
+ errors += trim (&old_name, &line[sizeof (STR_OLD_LIBRARY) - 1]);
+ }
+#undef STR_LIBDIR
+#define STR_LIBDIR "libdir="
+ else if (strncmp (line, STR_LIBDIR, sizeof (STR_LIBDIR) - 1) == 0)
+ {
+ errors += trim (&libdir, &line[sizeof(STR_LIBDIR) - 1]);
+ }
+
+#undef STR_DL_DEPLIBS
+#define STR_DL_DEPLIBS "dependency_libs="
+ else if (strncmp (line, STR_DL_DEPLIBS,
+ sizeof (STR_DL_DEPLIBS) - 1) == 0)
+ {
+ errors += trim (&deplibs, &line[sizeof (STR_DL_DEPLIBS) - 1]);
+ }
+ else if (strcmp (line, "installed=yes\n") == 0)
+ {
+ installed = 1;
+ }
+ else if (strcmp (line, "installed=no\n") == 0)
+ {
+ installed = 0;
+ }
+
+#undef STR_LIBRARY_NAMES
+#define STR_LIBRARY_NAMES "library_names="
+ else if (! dlname && strncmp (line, STR_LIBRARY_NAMES,
+ sizeof (STR_LIBRARY_NAMES) - 1) == 0)
+ {
+ char *last_libname;
+ errors += trim (&dlname, &line[sizeof (STR_LIBRARY_NAMES) - 1]);
+ if (!errors
+ && dlname
+ && (last_libname = strrchr (dlname, ' ')) != 0)
+ {
+ last_libname = lt_estrdup (last_libname + 1);
+ if (!last_libname)
+ {
+ ++errors;
+ goto cleanup;
+ }
+ LT_DLMEM_REASSIGN (dlname, last_libname);
+ }
+ }
+
+ if (errors)
+ break;
+ }
+
+ fclose (file);
+ LT_DLFREE (line);
+
+ /* allocate the handle */
+ *phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
+ if (*phandle == 0)
+ ++errors;
+
+ if (errors)
+ {
+ free_vars (dlname, old_name, libdir, deplibs);
+ LT_DLFREE (*phandle);
+ goto cleanup;
+ }
+
+ assert (*phandle);
+
+ memset (*phandle, 0, sizeof(struct lt_dlhandle_struct));
+ if (load_deplibs (*phandle, deplibs) == 0)
+ {
+ newhandle = *phandle;
+ /* find_module may replace newhandle */
+ if (find_module (&newhandle, dir, libdir, dlname, old_name, installed))
+ {
+ unload_deplibs (*phandle);
+ ++errors;
+ }
+ }
+ else
+ {
+ ++errors;
+ }
+
+ free_vars (dlname, old_name, libdir, deplibs);
+ if (errors)
+ {
+ LT_DLFREE (*phandle);
+ goto cleanup;
+ }
+
+ if (*phandle != newhandle)
+ {
+ unload_deplibs (*phandle);
+ }
+ }
+ else
+ {
+ /* not a libtool module */
+ *phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
+ if (*phandle == 0)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ memset (*phandle, 0, sizeof (struct lt_dlhandle_struct));
+ newhandle = *phandle;
+
+ /* If the module has no directory name component, try to find it
+ first in user_search_path and then other prescribed paths.
+ Otherwise (or in any case if the module was not yet found) try
+ opening just the module name as passed. */
+ if ((dir || (!find_handle (user_search_path, base_name, &newhandle)
+ && !find_handle (getenv (LTDL_SEARCHPATH_VAR), base_name,
+ &newhandle)
+#ifdef LTDL_SHLIBPATH_VAR
+ && !find_handle (getenv (LTDL_SHLIBPATH_VAR), base_name,
+ &newhandle)
+#endif
+#ifdef LTDL_SYSSEARCHPATH
+ && !find_handle (sys_search_path, base_name, &newhandle)
+#endif
+ )))
+ {
+ if (tryall_dlopen (&newhandle, filename) != 0)
+ {
+ newhandle = NULL;
+ }
+ }
+
+ if (!newhandle)
+ {
+ LT_DLFREE (*phandle);
+ ++errors;
+ goto cleanup;
+ }
+ }
+
+ register_handle:
+ LT_DLMEM_REASSIGN (*phandle, newhandle);
+
+ if ((*phandle)->info.ref_count == 0)
+ {
+ (*phandle)->info.ref_count = 1;
+ LT_DLMEM_REASSIGN ((*phandle)->info.name, name);
+
+ LT_DLMUTEX_LOCK ();
+ (*phandle)->next = handles;
+ handles = *phandle;
+ LT_DLMUTEX_UNLOCK ();
+ }
+
+ LT_DLMUTEX_SETERROR (saved_error);
+
+ cleanup:
+ LT_DLFREE (dir);
+ LT_DLFREE (name);
+ LT_DLFREE (canonical);
+
+ return errors;
+}
+
+lt_dlhandle
+lt_dlopen (filename)
+ const char *filename;
+{
+ lt_dlhandle handle = 0;
+
+ /* Just incase we missed a code path in try_dlopen() that reports
+ an error, but forgets to reset handle... */
+ if (try_dlopen (&handle, filename) != 0)
+ return 0;
+
+ return handle;
+}
+
+/* If the last error messge store was `FILE_NOT_FOUND', then return
+ non-zero. */
+static int
+file_not_found ()
+{
+ const char *error = 0;
+
+ LT_DLMUTEX_GETERROR (error);
+ if (error == LT_DLSTRERROR (FILE_NOT_FOUND))
+ return 1;
+
+ return 0;
+}
+
+/* If FILENAME has an ARCHIVE_EXT or SHLIB_EXT extension, try to
+ open the FILENAME as passed. Otherwise try appending ARCHIVE_EXT,
+ and if a file is still not found try again with SHLIB_EXT appended
+ instead. */
+lt_dlhandle
+lt_dlopenext (filename)
+ const char *filename;
+{
+ lt_dlhandle handle = 0;
+ char * tmp = 0;
+ char * ext = 0;
+ size_t len;
+ int errors = 0;
+
+ if (!filename)
+ {
+ return lt_dlopen (filename);
+ }
+
+ assert (filename);
+
+ len = LT_STRLEN (filename);
+ ext = strrchr (filename, '.');
+
+ /* If FILENAME already bears a suitable extension, there is no need
+ to try appending additional extensions. */
+ if (ext && ((strcmp (ext, archive_ext) == 0)
+#ifdef LTDL_SHLIB_EXT
+ || (strcmp (ext, shlib_ext) == 0)
+#endif
+ ))
+ {
+ return lt_dlopen (filename);
+ }
+
+ /* First try appending ARCHIVE_EXT. */
+ tmp = LT_EMALLOC (char, len + LT_STRLEN (archive_ext) + 1);
+ if (!tmp)
+ return 0;
+
+ strcpy (tmp, filename);
+ strcat (tmp, archive_ext);
+ errors = try_dlopen (&handle, tmp);
+
+ /* If we found FILENAME, stop searching -- whether we were able to
+ load the file as a module or not. If the file exists but loading
+ failed, it is better to return an error message here than to
+ report FILE_NOT_FOUND when the alternatives (foo.so etc) are not
+ in the module search path. */
+ if (handle || ((errors > 0) && !file_not_found ()))
+ {
+ LT_DLFREE (tmp);
+ return handle;
+ }
+
+#ifdef LTDL_SHLIB_EXT
+ /* Try appending SHLIB_EXT. */
+ if (LT_STRLEN (shlib_ext) > LT_STRLEN (archive_ext))
+ {
+ LT_DLFREE (tmp);
+ tmp = LT_EMALLOC (char, len + LT_STRLEN (shlib_ext) + 1);
+ if (!tmp)
+ return 0;
+
+ strcpy (tmp, filename);
+ }
+ else
+ {
+ tmp[len] = LT_EOS_CHAR;
+ }
+
+ strcat(tmp, shlib_ext);
+ errors = try_dlopen (&handle, tmp);
+
+ /* As before, if the file was found but loading failed, return now
+ with the current error message. */
+ if (handle || ((errors > 0) && !file_not_found ()))
+ {
+ LT_DLFREE (tmp);
+ return handle;
+ }
+#endif
+
+ /* Still here? Then we really did fail to locate any of the file
+ names we tried. */
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
+ LT_DLFREE (tmp);
+ return 0;
+}
+
+
+static int
+lt_argz_insert (pargz, pargz_len, before, entry)
+ char **pargz;
+ size_t *pargz_len;
+ char *before;
+ const char *entry;
+{
+ error_t error;
+
+ if ((error = argz_insert (pargz, pargz_len, before, entry)))
+ {
+ switch (error)
+ {
+ case ENOMEM:
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
+ break;
+ default:
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (UNKNOWN));
+ break;
+ }
+ return 1;
+ }
+
+ return 0;
+}
+
+static int
+lt_argz_insertinorder (pargz, pargz_len, entry)
+ char **pargz;
+ size_t *pargz_len;
+ const char *entry;
+{
+ char *before = 0;
+
+ assert (pargz);
+ assert (pargz_len);
+ assert (entry && *entry);
+
+ if (*pargz)
+ while ((before = argz_next (*pargz, *pargz_len, before)))
+ {
+ int cmp = strcmp (entry, before);
+
+ if (cmp < 0) break;
+ if (cmp == 0) return 0; /* No duplicates! */
+ }
+
+ return lt_argz_insert (pargz, pargz_len, before, entry);
+}
+
+static int
+lt_argz_insertdir (pargz, pargz_len, dirnam, dp)
+ char **pargz;
+ size_t *pargz_len;
+ const char *dirnam;
+ struct dirent *dp;
+{
+ char *buf = 0;
+ size_t buf_len = 0;
+ char *end = 0;
+ size_t end_offset = 0;
+ size_t dir_len = 0;
+ int errors = 0;
+
+ assert (pargz);
+ assert (pargz_len);
+ assert (dp);
+
+ dir_len = LT_STRLEN (dirnam);
+ end = dp->d_name + LT_D_NAMLEN(dp);
+
+ /* Ignore version numbers. */
+ {
+ char *p;
+ for (p = end; p -1 > dp->d_name; --p)
+ if (strchr (".0123456789", p[-1]) == 0)
+ break;
+
+ if (*p == '.')
+ end = p;
+ }
+
+ /* Ignore filename extension. */
+ {
+ char *p;
+ for (p = end -1; p > dp->d_name; --p)
+ if (*p == '.')
+ {
+ end = p;
+ break;
+ }
+ }
+
+ /* Prepend the directory name. */
+ end_offset = end - dp->d_name;
+ buf_len = dir_len + 1+ end_offset;
+ buf = LT_EMALLOC (char, 1+ buf_len);
+ if (!buf)
+ return ++errors;
+
+ assert (buf);
+
+ strcpy (buf, dirnam);
+ strcat (buf, "/");
+ strncat (buf, dp->d_name, end_offset);
+ buf[buf_len] = LT_EOS_CHAR;
+
+ /* Try to insert (in order) into ARGZ/ARGZ_LEN. */
+ if (lt_argz_insertinorder (pargz, pargz_len, buf) != 0)
+ ++errors;
+
+ LT_DLFREE (buf);
+
+ return errors;
+}
+
+static int
+list_files_by_dir (dirnam, pargz, pargz_len)
+ const char *dirnam;
+ char **pargz;
+ size_t *pargz_len;
+{
+ DIR *dirp = 0;
+ int errors = 0;
+
+ assert (dirnam && *dirnam);
+ assert (pargz);
+ assert (pargz_len);
+ assert (dirnam[LT_STRLEN(dirnam) -1] != '/');
+
+ dirp = opendir (dirnam);
+ if (dirp)
+ {
+ struct dirent *dp = 0;
+
+ while ((dp = readdir (dirp)))
+ if (dp->d_name[0] != '.')
+ if (lt_argz_insertdir (pargz, pargz_len, dirnam, dp))
+ {
+ ++errors;
+ break;
+ }
+
+ closedir (dirp);
+ }
+ else
+ ++errors;
+
+ return errors;
+}
+
+
+/* If there are any files in DIRNAME, call the function passed in
+ DATA1 (with the name of each file and DATA2 as arguments). */
+static int
+foreachfile_callback (dirname, data1, data2)
+ char *dirname;
+ lt_ptr data1;
+ lt_ptr data2;
+{
+ int (*func) LT_PARAMS((const char *filename, lt_ptr data))
+ = (int (*) LT_PARAMS((const char *filename, lt_ptr data))) data1;
+
+ int is_done = 0;
+ char *argz = 0;
+ size_t argz_len = 0;
+
+ if (list_files_by_dir (dirname, &argz, &argz_len) != 0)
+ goto cleanup;
+ if (!argz)
+ goto cleanup;
+
+ {
+ char *filename = 0;
+ while ((filename = argz_next (argz, argz_len, filename)))
+ if ((is_done = (*func) (filename, data2)))
+ break;
+ }
+
+ cleanup:
+ LT_DLFREE (argz);
+
+ return is_done;
+}
+
+
+/* Call FUNC for each unique extensionless file in SEARCH_PATH, along
+ with DATA. The filenames passed to FUNC would be suitable for
+ passing to lt_dlopenext. The extensions are stripped so that
+ individual modules do not generate several entries (e.g. libfoo.la,
+ libfoo.so, libfoo.so.1, libfoo.so.1.0.0). If SEARCH_PATH is NULL,
+ then the same directories that lt_dlopen would search are examined. */
+int
+lt_dlforeachfile (search_path, func, data)
+ const char *search_path;
+ int (*func) LT_PARAMS ((const char *filename, lt_ptr data));
+ lt_ptr data;
+{
+ int is_done = 0;
+
+ if (search_path)
+ {
+ /* If a specific path was passed, search only the directories
+ listed in it. */
+ is_done = foreach_dirinpath (search_path, 0,
+ foreachfile_callback, func, data);
+ }
+ else
+ {
+ /* Otherwise search the default paths. */
+ is_done = foreach_dirinpath (user_search_path, 0,
+ foreachfile_callback, func, data);
+ if (!is_done)
+ {
+ is_done = foreach_dirinpath (getenv("LTDL_LIBRARY_PATH"), 0,
+ foreachfile_callback, func, data);
+ }
+
+#ifdef LTDL_SHLIBPATH_VAR
+ if (!is_done)
+ {
+ is_done = foreach_dirinpath (getenv(LTDL_SHLIBPATH_VAR), 0,
+ foreachfile_callback, func, data);
+ }
+#endif
+#ifdef LTDL_SYSSEARCHPATH
+ if (!is_done)
+ {
+ is_done = foreach_dirinpath (getenv(LTDL_SYSSEARCHPATH), 0,
+ foreachfile_callback, func, data);
+ }
+#endif
+ }
+
+ return is_done;
+}
+
+int
+lt_dlclose (handle)
+ lt_dlhandle handle;
+{
+ lt_dlhandle cur, last;
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+
+ /* check whether the handle is valid */
+ last = cur = handles;
+ while (cur && handle != cur)
+ {
+ last = cur;
+ cur = cur->next;
+ }
+
+ if (!cur)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ ++errors;
+ goto done;
+ }
+
+ handle->info.ref_count--;
+
+ /* Note that even with resident modules, we must track the ref_count
+ correctly incase the user decides to reset the residency flag
+ later (even though the API makes no provision for that at the
+ moment). */
+ if (handle->info.ref_count <= 0 && !LT_DLIS_RESIDENT (handle))
+ {
+ lt_user_data data = handle->loader->dlloader_data;
+
+ if (handle != handles)
+ {
+ last->next = handle->next;
+ }
+ else
+ {
+ handles = handle->next;
+ }
+
+ errors += handle->loader->module_close (data, handle->module);
+ errors += unload_deplibs(handle);
+
+ /* It is up to the callers to free the data itself. */
+ LT_DLFREE (handle->caller_data);
+
+ LT_DLFREE (handle->info.filename);
+ LT_DLFREE (handle->info.name);
+ LT_DLFREE (handle);
+
+ goto done;
+ }
+
+ if (LT_DLIS_RESIDENT (handle))
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CLOSE_RESIDENT_MODULE));
+ ++errors;
+ }
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+lt_ptr
+lt_dlsym (handle, symbol)
+ lt_dlhandle handle;
+ const char *symbol;
+{
+ size_t lensym;
+ char lsym[LT_SYMBOL_LENGTH];
+ char *sym;
+ lt_ptr address;
+ lt_user_data data;
+
+ if (!handle)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ return 0;
+ }
+
+ if (!symbol)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
+ return 0;
+ }
+
+ lensym = LT_STRLEN (symbol) + LT_STRLEN (handle->loader->sym_prefix)
+ + LT_STRLEN (handle->info.name);
+
+ if (lensym + LT_SYMBOL_OVERHEAD < LT_SYMBOL_LENGTH)
+ {
+ sym = lsym;
+ }
+ else
+ {
+ sym = LT_EMALLOC (char, lensym + LT_SYMBOL_OVERHEAD + 1);
+ if (!sym)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (BUFFER_OVERFLOW));
+ return 0;
+ }
+ }
+
+ data = handle->loader->dlloader_data;
+ if (handle->info.name)
+ {
+ const char *saved_error;
+
+ LT_DLMUTEX_GETERROR (saved_error);
+
+ /* this is a libtool module */
+ if (handle->loader->sym_prefix)
+ {
+ strcpy(sym, handle->loader->sym_prefix);
+ strcat(sym, handle->info.name);
+ }
+ else
+ {
+ strcpy(sym, handle->info.name);
+ }
+
+ strcat(sym, "_LTX_");
+ strcat(sym, symbol);
+
+ /* try "modulename_LTX_symbol" */
+ address = handle->loader->find_sym (data, handle->module, sym);
+ if (address)
+ {
+ if (sym != lsym)
+ {
+ LT_DLFREE (sym);
+ }
+ return address;
+ }
+ LT_DLMUTEX_SETERROR (saved_error);
+ }
+
+ /* otherwise try "symbol" */
+ if (handle->loader->sym_prefix)
+ {
+ strcpy(sym, handle->loader->sym_prefix);
+ strcat(sym, symbol);
+ }
+ else
+ {
+ strcpy(sym, symbol);
+ }
+
+ address = handle->loader->find_sym (data, handle->module, sym);
+ if (sym != lsym)
+ {
+ LT_DLFREE (sym);
+ }
+
+ return address;
+}
+
+const char *
+lt_dlerror ()
+{
+ const char *error;
+
+ LT_DLMUTEX_GETERROR (error);
+ LT_DLMUTEX_SETERROR (0);
+
+ return error ? error : NULL;
+}
+
+static int
+lt_dlpath_insertdir (ppath, before, dir)
+ char **ppath;
+ char *before;
+ const char *dir;
+{
+ int errors = 0;
+ char *canonical = 0;
+ char *argz = 0;
+ size_t argz_len = 0;
+
+ assert (ppath);
+ assert (dir && *dir);
+
+ if (canonicalize_path (dir, &canonical) != 0)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ assert (canonical && *canonical);
+
+ /* If *PPATH is empty, set it to DIR. */
+ if (*ppath == 0)
+ {
+ assert (!before); /* BEFORE cannot be set without PPATH. */
+ assert (dir); /* Without DIR, don't call this function! */
+
+ *ppath = lt_estrdup (dir);
+ if (*ppath == 0)
+ ++errors;
+
+ return errors;
+ }
+
+ assert (ppath && *ppath);
+
+ if (argzize_path (*ppath, &argz, &argz_len) != 0)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ /* Convert BEFORE into an equivalent offset into ARGZ. This only works
+ if *PPATH is already canonicalized, and hence does not change length
+ with respect to ARGZ. We canonicalize each entry as it is added to
+ the search path, and don't call this function with (uncanonicalized)
+ user paths, so this is a fair assumption. */
+ if (before)
+ {
+ assert (*ppath <= before);
+ assert (before - *ppath <= strlen (*ppath));
+
+ before = before - *ppath + argz;
+ }
+
+ if (lt_argz_insert (&argz, &argz_len, before, dir) != 0)
+ {
+ ++errors;
+ goto cleanup;
+ }
+
+ argz_stringify (argz, argz_len, LT_PATHSEP_CHAR);
+ LT_DLMEM_REASSIGN (*ppath, argz);
+
+ cleanup:
+ LT_DLFREE (canonical);
+ LT_DLFREE (argz);
+
+ return errors;
+}
+
+int
+lt_dladdsearchdir (search_dir)
+ const char *search_dir;
+{
+ int errors = 0;
+
+ if (search_dir && *search_dir)
+ {
+ LT_DLMUTEX_LOCK ();
+ if (lt_dlpath_insertdir (&user_search_path, 0, search_dir) != 0)
+ ++errors;
+ LT_DLMUTEX_UNLOCK ();
+ }
+
+ return errors;
+}
+
+int
+lt_dlinsertsearchdir (before, search_dir)
+ const char *before;
+ const char *search_dir;
+{
+ int errors = 0;
+
+ if (before)
+ {
+ LT_DLMUTEX_LOCK ();
+ if ((before < user_search_path)
+ || (before >= user_search_path + LT_STRLEN (user_search_path)))
+ {
+ LT_DLMUTEX_UNLOCK ();
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_POSITION));
+ return 1;
+ }
+ LT_DLMUTEX_UNLOCK ();
+ }
+
+ if (search_dir && *search_dir)
+ {
+ LT_DLMUTEX_LOCK ();
+ if (lt_dlpath_insertdir (&user_search_path,
+ (char *) before, search_dir) != 0)
+ {
+ ++errors;
+ }
+ LT_DLMUTEX_UNLOCK ();
+ }
+
+ return errors;
+}
+
+int
+lt_dlsetsearchpath (search_path)
+ const char *search_path;
+{
+ int errors = 0;
+
+ LT_DLMUTEX_LOCK ();
+ LT_DLFREE (user_search_path);
+ LT_DLMUTEX_UNLOCK ();
+
+ if (!search_path || !LT_STRLEN (search_path))
+ {
+ return errors;
+ }
+
+ LT_DLMUTEX_LOCK ();
+ if (canonicalize_path (search_path, &user_search_path) != 0)
+ ++errors;
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+const char *
+lt_dlgetsearchpath ()
+{
+ const char *saved_path;
+
+ LT_DLMUTEX_LOCK ();
+ saved_path = user_search_path;
+ LT_DLMUTEX_UNLOCK ();
+
+ return saved_path;
+}
+
+int
+lt_dlmakeresident (handle)
+ lt_dlhandle handle;
+{
+ int errors = 0;
+
+ if (!handle)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ ++errors;
+ }
+ else
+ {
+ LT_DLSET_FLAG (handle, LT_DLRESIDENT_FLAG);
+ }
+
+ return errors;
+}
+
+int
+lt_dlisresident (handle)
+ lt_dlhandle handle;
+{
+ if (!handle)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ return -1;
+ }
+
+ return LT_DLIS_RESIDENT (handle);
+}
+
+
+
+
+/* --- MODULE INFORMATION --- */
+
+const lt_dlinfo *
+lt_dlgetinfo (handle)
+ lt_dlhandle handle;
+{
+ if (!handle)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
+ return 0;
+ }
+
+ return &(handle->info);
+}
+
+lt_dlhandle
+lt_dlhandle_next (place)
+ lt_dlhandle place;
+{
+ return place ? place->next : handles;
+}
+
+int
+lt_dlforeach (func, data)
+ int (*func) LT_PARAMS((lt_dlhandle handle, lt_ptr data));
+ lt_ptr data;
+{
+ int errors = 0;
+ lt_dlhandle cur;
+
+ LT_DLMUTEX_LOCK ();
+
+ cur = handles;
+ while (cur)
+ {
+ lt_dlhandle tmp = cur;
+
+ cur = cur->next;
+ if ((*func) (tmp, data))
+ {
+ ++errors;
+ break;
+ }
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+lt_dlcaller_id
+lt_dlcaller_register ()
+{
+ static lt_dlcaller_id last_caller_id = 0;
+ int result;
+
+ LT_DLMUTEX_LOCK ();
+ result = ++last_caller_id;
+ LT_DLMUTEX_UNLOCK ();
+
+ return result;
+}
+
+lt_ptr
+lt_dlcaller_set_data (key, handle, data)
+ lt_dlcaller_id key;
+ lt_dlhandle handle;
+ lt_ptr data;
+{
+ int n_elements = 0;
+ lt_ptr stale = (lt_ptr) 0;
+ int i;
+
+ /* This needs to be locked so that the caller data can be updated
+ simultaneously by different threads. */
+ LT_DLMUTEX_LOCK ();
+
+ if (handle->caller_data)
+ while (handle->caller_data[n_elements].key)
+ ++n_elements;
+
+ for (i = 0; i < n_elements; ++i)
+ {
+ if (handle->caller_data[i].key == key)
+ {
+ stale = handle->caller_data[i].data;
+ break;
+ }
+ }
+
+ /* Ensure that there is enough room in this handle's caller_data
+ array to accept a new element (and an empty end marker). */
+ if (i == n_elements)
+ {
+ lt_caller_data *temp
+ = LT_DLREALLOC (lt_caller_data, handle->caller_data, 2+ n_elements);
+
+ if (!temp)
+ {
+ stale = 0;
+ goto done;
+ }
+
+ handle->caller_data = temp;
+
+ /* We only need this if we needed to allocate a new caller_data. */
+ handle->caller_data[i].key = key;
+ handle->caller_data[1+ i].key = 0;
+ }
+
+ handle->caller_data[i].data = data;
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+
+ return stale;
+}
+
+lt_ptr
+lt_dlcaller_get_data (key, handle)
+ lt_dlcaller_id key;
+ lt_dlhandle handle;
+{
+ lt_ptr result = (lt_ptr) 0;
+
+ /* This needs to be locked so that the caller data isn't updated by
+ another thread part way through this function. */
+ LT_DLMUTEX_LOCK ();
+
+ /* Locate the index of the element with a matching KEY. */
+ {
+ int i;
+ for (i = 0; handle->caller_data[i].key; ++i)
+ {
+ if (handle->caller_data[i].key == key)
+ {
+ result = handle->caller_data[i].data;
+ break;
+ }
+ }
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return result;
+}
+
+
+
+/* --- USER MODULE LOADER API --- */
+
+
+int
+lt_dlloader_add (place, dlloader, loader_name)
+ lt_dlloader *place;
+ const struct lt_user_dlloader *dlloader;
+ const char *loader_name;
+{
+ int errors = 0;
+ lt_dlloader *node = 0, *ptr = 0;
+
+ if ((dlloader == 0) /* diagnose null parameters */
+ || (dlloader->module_open == 0)
+ || (dlloader->module_close == 0)
+ || (dlloader->find_sym == 0))
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
+ return 1;
+ }
+
+ /* Create a new dlloader node with copies of the user callbacks. */
+ node = LT_EMALLOC (lt_dlloader, 1);
+ if (!node)
+ return 1;
+
+ node->next = 0;
+ node->loader_name = loader_name;
+ node->sym_prefix = dlloader->sym_prefix;
+ node->dlloader_exit = dlloader->dlloader_exit;
+ node->module_open = dlloader->module_open;
+ node->module_close = dlloader->module_close;
+ node->find_sym = dlloader->find_sym;
+ node->dlloader_data = dlloader->dlloader_data;
+
+ LT_DLMUTEX_LOCK ();
+ if (!loaders)
+ {
+ /* If there are no loaders, NODE becomes the list! */
+ loaders = node;
+ }
+ else if (!place)
+ {
+ /* If PLACE is not set, add NODE to the end of the
+ LOADERS list. */
+ for (ptr = loaders; ptr->next; ptr = ptr->next)
+ {
+ /*NOWORK*/;
+ }
+
+ ptr->next = node;
+ }
+ else if (loaders == place)
+ {
+ /* If PLACE is the first loader, NODE goes first. */
+ node->next = place;
+ loaders = node;
+ }
+ else
+ {
+ /* Find the node immediately preceding PLACE. */
+ for (ptr = loaders; ptr->next != place; ptr = ptr->next)
+ {
+ /*NOWORK*/;
+ }
+
+ if (ptr->next != place)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
+ ++errors;
+ }
+ else
+ {
+ /* Insert NODE between PTR and PLACE. */
+ node->next = place;
+ ptr->next = node;
+ }
+ }
+
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+int
+lt_dlloader_remove (loader_name)
+ const char *loader_name;
+{
+ lt_dlloader *place = lt_dlloader_find (loader_name);
+ lt_dlhandle handle;
+ int errors = 0;
+
+ if (!place)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
+ return 1;
+ }
+
+ LT_DLMUTEX_LOCK ();
+
+ /* Fail if there are any open modules which use this loader. */
+ for (handle = handles; handle; handle = handle->next)
+ {
+ if (handle->loader == place)
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (REMOVE_LOADER));
+ ++errors;
+ goto done;
+ }
+ }
+
+ if (place == loaders)
+ {
+ /* PLACE is the first loader in the list. */
+ loaders = loaders->next;
+ }
+ else
+ {
+ /* Find the loader before the one being removed. */
+ lt_dlloader *prev;
+ for (prev = loaders; prev->next; prev = prev->next)
+ {
+ if (!strcmp (prev->next->loader_name, loader_name))
+ {
+ break;
+ }
+ }
+
+ place = prev->next;
+ prev->next = prev->next->next;
+ }
+
+ if (place->dlloader_exit)
+ {
+ errors = place->dlloader_exit (place->dlloader_data);
+ }
+
+ LT_DLFREE (place);
+
+ done:
+ LT_DLMUTEX_UNLOCK ();
+
+ return errors;
+}
+
+lt_dlloader *
+lt_dlloader_next (place)
+ lt_dlloader *place;
+{
+ lt_dlloader *next;
+
+ LT_DLMUTEX_LOCK ();
+ next = place ? place->next : loaders;
+ LT_DLMUTEX_UNLOCK ();
+
+ return next;
+}
+
+const char *
+lt_dlloader_name (place)
+ lt_dlloader *place;
+{
+ const char *name = 0;
+
+ if (place)
+ {
+ LT_DLMUTEX_LOCK ();
+ name = place ? place->loader_name : 0;
+ LT_DLMUTEX_UNLOCK ();
+ }
+ else
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
+ }
+
+ return name;
+}
+
+lt_user_data *
+lt_dlloader_data (place)
+ lt_dlloader *place;
+{
+ lt_user_data *data = 0;
+
+ if (place)
+ {
+ LT_DLMUTEX_LOCK ();
+ data = place ? &(place->dlloader_data) : 0;
+ LT_DLMUTEX_UNLOCK ();
+ }
+ else
+ {
+ LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
+ }
+
+ return data;
+}
+
+lt_dlloader *
+lt_dlloader_find (loader_name)
+ const char *loader_name;
+{
+ lt_dlloader *place = 0;
+
+ LT_DLMUTEX_LOCK ();
+ for (place = loaders; place; place = place->next)
+ {
+ if (strcmp (place->loader_name, loader_name) == 0)
+ {
+ break;
+ }
+ }
+ LT_DLMUTEX_UNLOCK ();
+
+ return place;
+}
Property changes on: trunk/libltdl/ltdl.c
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/libltdl/ltdl.h
===================================================================
--- trunk/libltdl/ltdl.h (rev 0)
+++ trunk/libltdl/ltdl.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,366 @@
+/* ltdl.h -- generic dlopen functions
+ Copyright (C) 1998-2000 Free Software Foundation, Inc.
+ Originally by Thomas Tanner <tanner at ffii.org>
+ This file is part of GNU Libtool.
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2 of the License, or (at your option) any later version.
+
+As a special exception to the GNU Lesser General Public License,
+if you distribute this file as part of a program or library that
+is built using GNU libtool, you may include it under the same
+distribution terms that you use for the rest of that program.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free
+Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+02111-1307 USA
+*/
+
+/* Only include this header file once. */
+#ifndef LTDL_H
+#define LTDL_H 1
+
+#include <sys/types.h> /* for size_t declaration */
+
+
+/* --- MACROS FOR PORTABILITY --- */
+
+
+/* Saves on those hard to debug '\0' typos.... */
+#define LT_EOS_CHAR '\0'
+
+/* LTDL_BEGIN_C_DECLS should be used at the beginning of your declarations,
+ so that C++ compilers don't mangle their names. Use LTDL_END_C_DECLS at
+ the end of C declarations. */
+#ifdef __cplusplus
+# define LT_BEGIN_C_DECLS extern "C" {
+# define LT_END_C_DECLS }
+#else
+# define LT_BEGIN_C_DECLS /* empty */
+# define LT_END_C_DECLS /* empty */
+#endif
+
+LT_BEGIN_C_DECLS
+
+
+/* LT_PARAMS is a macro used to wrap function prototypes, so that compilers
+ that don't understand ANSI C prototypes still work, and ANSI C
+ compilers can issue warnings about type mismatches. */
+#if defined (__STDC__) || defined (_AIX) || (defined (__mips) && defined (_SYSTYPE_SVR4)) || defined(WIN32) || defined(__cplusplus)
+# define LT_PARAMS(protos) protos
+# define lt_ptr void*
+#else
+# define LT_PARAMS(protos) ()
+# define lt_ptr char*
+#endif
+
+/* LT_STMT_START/END are used to create macros which expand to a
+ a single compound statement in a portable way. */
+#if defined (__GNUC__) && !defined (__STRICT_ANSI__) && !defined (__cplusplus)
+# define LT_STMT_START (void)(
+# define LT_STMT_END )
+#else
+# if (defined (sun) || defined (__sun__))
+# define LT_STMT_START if (1)
+# define LT_STMT_END else (void)0
+# else
+# define LT_STMT_START do
+# define LT_STMT_END while (0)
+# endif
+#endif
+
+/* LT_CONC creates a new concatenated symbol for the compiler
+ in a portable way. */
+#if defined(__STDC__) || defined(__cplusplus) || defined(_MSC_VER)
+# define LT_CONC(s,t) s##t
+#else
+# define LT_CONC(s,t) s/**/t
+#endif
+
+/* LT_STRLEN can be used safely on NULL pointers. */
+#define LT_STRLEN(s) (((s) && (s)[0]) ? strlen (s) : 0)
+
+
+
+/* --- WINDOWS SUPPORT --- */
+
+
+/* Canonicalise Windows and Cygwin recognition macros. */
+#ifdef __CYGWIN32__
+# ifndef __CYGWIN__
+# define __CYGWIN__ __CYGWIN32__
+# endif
+#endif
+#if defined(_WIN32) || defined(WIN32)
+# ifndef __WINDOWS__
+# ifdef _WIN32
+# define __WINDOWS__ _WIN32
+# else
+# ifdef WIN32
+# define __WINDOWS__ WIN32
+# endif
+# endif
+# endif
+#endif
+
+
+#ifdef __WINDOWS__
+# ifndef __CYGWIN__
+/* LT_DIRSEP_CHAR is accepted *in addition* to '/' as a directory
+ separator when it is set. */
+# define LT_DIRSEP_CHAR '\\'
+# define LT_PATHSEP_CHAR ';'
+# endif
+#endif
+#ifndef LT_PATHSEP_CHAR
+# define LT_PATHSEP_CHAR ':'
+#endif
+
+/* DLL building support on win32 hosts; mostly to workaround their
+ ridiculous implementation of data symbol exporting. */
+#ifndef LT_SCOPE
+# ifdef __WINDOWS__
+# ifdef DLL_EXPORT /* defined by libtool (if required) */
+# define LT_SCOPE __declspec(dllexport)
+# endif
+# ifdef LIBLTDL_DLL_IMPORT /* define if linking with this dll */
+# define LT_SCOPE extern __declspec(dllimport)
+# endif
+# endif
+# ifndef LT_SCOPE /* static linking or !__WINDOWS__ */
+# define LT_SCOPE extern
+# endif
+#endif
+
+
+#if defined(_MSC_VER) /* Visual Studio */
+# define R_OK 4
+#endif
+
+
+
+/* --- DYNAMIC MODULE LOADING API --- */
+
+
+typedef struct lt_dlhandle_struct *lt_dlhandle; /* A loaded module. */
+
+/* Initialisation and finalisation functions for libltdl. */
+LT_SCOPE int lt_dlinit LT_PARAMS((void));
+LT_SCOPE int lt_dlexit LT_PARAMS((void));
+
+/* Module search path manipulation. */
+LT_SCOPE int lt_dladdsearchdir LT_PARAMS((const char *search_dir));
+LT_SCOPE int lt_dlinsertsearchdir LT_PARAMS((const char *before,
+ const char *search_dir));
+LT_SCOPE int lt_dlsetsearchpath LT_PARAMS((const char *search_path));
+LT_SCOPE const char *lt_dlgetsearchpath LT_PARAMS((void));
+LT_SCOPE int lt_dlforeachfile LT_PARAMS((
+ const char *search_path,
+ int (*func) (const char *filename, lt_ptr data),
+ lt_ptr data));
+
+/* Portable libltdl versions of the system dlopen() API. */
+LT_SCOPE lt_dlhandle lt_dlopen LT_PARAMS((const char *filename));
+LT_SCOPE lt_dlhandle lt_dlopenext LT_PARAMS((const char *filename));
+LT_SCOPE lt_ptr lt_dlsym LT_PARAMS((lt_dlhandle handle,
+ const char *name));
+LT_SCOPE const char *lt_dlerror LT_PARAMS((void));
+LT_SCOPE int lt_dlclose LT_PARAMS((lt_dlhandle handle));
+
+/* Module residency management. */
+LT_SCOPE int lt_dlmakeresident LT_PARAMS((lt_dlhandle handle));
+LT_SCOPE int lt_dlisresident LT_PARAMS((lt_dlhandle handle));
+
+
+
+
+/* --- MUTEX LOCKING --- */
+
+
+typedef void lt_dlmutex_lock LT_PARAMS((void));
+typedef void lt_dlmutex_unlock LT_PARAMS((void));
+typedef void lt_dlmutex_seterror LT_PARAMS((const char *errmsg));
+typedef const char *lt_dlmutex_geterror LT_PARAMS((void));
+
+LT_SCOPE int lt_dlmutex_register LT_PARAMS((lt_dlmutex_lock *lock,
+ lt_dlmutex_unlock *unlock,
+ lt_dlmutex_seterror *seterror,
+ lt_dlmutex_geterror *geterror));
+
+
+
+
+/* --- MEMORY HANDLING --- */
+
+
+/* By default, the realloc function pointer is set to our internal
+ realloc implementation which iself uses lt_dlmalloc and lt_dlfree.
+ libltdl relies on a featureful realloc, but if you are sure yours
+ has the right semantics then you can assign it directly. Generally,
+ it is safe to assign just a malloc() and a free() function. */
+LT_SCOPE lt_ptr (*lt_dlmalloc) LT_PARAMS((size_t size));
+LT_SCOPE lt_ptr (*lt_dlrealloc) LT_PARAMS((lt_ptr ptr, size_t size));
+LT_SCOPE void (*lt_dlfree) LT_PARAMS((lt_ptr ptr));
+
+
+
+
+/* --- PRELOADED MODULE SUPPORT --- */
+
+
+/* A preopened symbol. Arrays of this type comprise the exported
+ symbols for a dlpreopened module. */
+typedef struct {
+ const char *name;
+ lt_ptr address;
+} lt_dlsymlist;
+
+LT_SCOPE int lt_dlpreload LT_PARAMS((const lt_dlsymlist *preloaded));
+LT_SCOPE int lt_dlpreload_default
+ LT_PARAMS((const lt_dlsymlist *preloaded));
+
+#define LTDL_SET_PRELOADED_SYMBOLS() LT_STMT_START{ \
+ extern const lt_dlsymlist lt_preloaded_symbols[]; \
+ lt_dlpreload_default(lt_preloaded_symbols); \
+ }LT_STMT_END
+
+
+
+
+/* --- MODULE INFORMATION --- */
+
+
+/* Read only information pertaining to a loaded module. */
+typedef struct {
+ char *filename; /* file name */
+ char *name; /* module name */
+ int ref_count; /* number of times lt_dlopened minus
+ number of times lt_dlclosed. */
+} lt_dlinfo;
+
+LT_SCOPE const lt_dlinfo *lt_dlgetinfo LT_PARAMS((lt_dlhandle handle));
+LT_SCOPE lt_dlhandle lt_dlhandle_next LT_PARAMS((lt_dlhandle place));
+LT_SCOPE int lt_dlforeach LT_PARAMS((
+ int (*func) (lt_dlhandle handle, lt_ptr data),
+ lt_ptr data));
+
+/* Associating user data with loaded modules. */
+typedef unsigned lt_dlcaller_id;
+
+LT_SCOPE lt_dlcaller_id lt_dlcaller_register LT_PARAMS((void));
+LT_SCOPE lt_ptr lt_dlcaller_set_data LT_PARAMS((lt_dlcaller_id key,
+ lt_dlhandle handle,
+ lt_ptr data));
+LT_SCOPE lt_ptr lt_dlcaller_get_data LT_PARAMS((lt_dlcaller_id key,
+ lt_dlhandle handle));
+
+
+
+/* --- USER MODULE LOADER API --- */
+
+
+typedef struct lt_dlloader lt_dlloader;
+typedef lt_ptr lt_user_data;
+typedef lt_ptr lt_module;
+
+/* Function pointer types for creating user defined module loaders. */
+typedef lt_module lt_module_open LT_PARAMS((lt_user_data loader_data,
+ const char *filename));
+typedef int lt_module_close LT_PARAMS((lt_user_data loader_data,
+ lt_module handle));
+typedef lt_ptr lt_find_sym LT_PARAMS((lt_user_data loader_data,
+ lt_module handle,
+ const char *symbol));
+typedef int lt_dlloader_exit LT_PARAMS((lt_user_data loader_data));
+
+struct lt_user_dlloader {
+ const char *sym_prefix;
+ lt_module_open *module_open;
+ lt_module_close *module_close;
+ lt_find_sym *find_sym;
+ lt_dlloader_exit *dlloader_exit;
+ lt_user_data dlloader_data;
+};
+
+LT_SCOPE lt_dlloader *lt_dlloader_next LT_PARAMS((lt_dlloader *place));
+LT_SCOPE lt_dlloader *lt_dlloader_find LT_PARAMS((
+ const char *loader_name));
+LT_SCOPE const char *lt_dlloader_name LT_PARAMS((lt_dlloader *place));
+LT_SCOPE lt_user_data *lt_dlloader_data LT_PARAMS((lt_dlloader *place));
+LT_SCOPE int lt_dlloader_add LT_PARAMS((lt_dlloader *place,
+ const struct lt_user_dlloader *dlloader,
+ const char *loader_name));
+LT_SCOPE int lt_dlloader_remove LT_PARAMS((
+ const char *loader_name));
+
+
+
+/* --- ERROR MESSAGE HANDLING --- */
+
+
+/* Defining error strings alongside their symbolic names in a macro in
+ this way allows us to expand the macro in different contexts with
+ confidence that the enumeration of symbolic names will map correctly
+ onto the table of error strings. */
+#define lt_dlerror_table \
+ LT_ERROR(UNKNOWN, "unknown error") \
+ LT_ERROR(DLOPEN_NOT_SUPPORTED, "dlopen support not available") \
+ LT_ERROR(INVALID_LOADER, "invalid loader") \
+ LT_ERROR(INIT_LOADER, "loader initialization failed") \
+ LT_ERROR(REMOVE_LOADER, "loader removal failed") \
+ LT_ERROR(FILE_NOT_FOUND, "file not found") \
+ LT_ERROR(DEPLIB_NOT_FOUND, "dependency library not found") \
+ LT_ERROR(NO_SYMBOLS, "no symbols defined") \
+ LT_ERROR(CANNOT_OPEN, "can't open the module") \
+ LT_ERROR(CANNOT_CLOSE, "can't close the module") \
+ LT_ERROR(SYMBOL_NOT_FOUND, "symbol not found") \
+ LT_ERROR(NO_MEMORY, "not enough memory") \
+ LT_ERROR(INVALID_HANDLE, "invalid module handle") \
+ LT_ERROR(BUFFER_OVERFLOW, "internal buffer overflow") \
+ LT_ERROR(INVALID_ERRORCODE, "invalid errorcode") \
+ LT_ERROR(SHUTDOWN, "library already shutdown") \
+ LT_ERROR(CLOSE_RESIDENT_MODULE, "can't close resident module") \
+ LT_ERROR(INVALID_MUTEX_ARGS, "invalid mutex handler registration") \
+ LT_ERROR(INVALID_POSITION, "invalid search path insert position")
+
+/* Enumerate the symbolic error names. */
+enum {
+#define LT_ERROR(name, diagnostic) LT_CONC(LT_ERROR_, name),
+ lt_dlerror_table
+#undef LT_ERROR
+
+ LT_ERROR_MAX
+};
+
+/* These functions are only useful from inside custom module loaders. */
+LT_SCOPE int lt_dladderror LT_PARAMS((const char *diagnostic));
+LT_SCOPE int lt_dlseterror LT_PARAMS((int errorcode));
+
+
+
+
+/* --- SOURCE COMPATIBILITY WITH OLD LIBLTDL --- */
+
+
+#ifdef LT_NON_POSIX_NAMESPACE
+# define lt_ptr_t lt_ptr
+# define lt_module_t lt_module
+# define lt_module_open_t lt_module_open
+# define lt_module_close_t lt_module_close
+# define lt_find_sym_t lt_find_sym
+# define lt_dlloader_exit_t lt_dlloader_exit
+# define lt_dlloader_t lt_dlloader
+# define lt_dlloader_data_t lt_user_data
+#endif
+
+LT_END_C_DECLS
+
+#endif /* !LTDL_H */
Property changes on: trunk/libltdl/ltdl.h
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/libltdl/ltmain.sh
===================================================================
--- trunk/libltdl/ltmain.sh (rev 0)
+++ trunk/libltdl/ltmain.sh 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6423 @@
+# ltmain.sh - Provide generalized library-building support services.
+# NOTE: Changing this file will not affect anything until you rerun configure.
+#
+# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004
+# Free Software Foundation, Inc.
+# Originally by Gordon Matzigkeit <gord at gnu.ai.mit.edu>, 1996
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+basename="s,^.*/,,g"
+
+# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh
+# is ksh but when the shell is invoked as "sh" and the current value of
+# the _XPG environment variable is not equal to 1 (one), the special
+# positional parameter $0, within a function call, is the name of the
+# function.
+progpath="$0"
+
+# The name of this program:
+progname=`echo "$progpath" | $SED $basename`
+modename="$progname"
+
+# Global variables:
+EXIT_SUCCESS=0
+EXIT_FAILURE=1
+
+PROGRAM=ltmain.sh
+PACKAGE=libtool
+VERSION=1.5.6
+TIMESTAMP=" (1.1220.2.95 2004/04/11 05:50:42)"
+EGREP="grep -E"
+
+
+# Check that we have a working $echo.
+if test "X$1" = X--no-reexec; then
+ # Discard the --no-reexec flag, and continue.
+ shift
+elif test "X$1" = X--fallback-echo; then
+ # Avoid inline document here, it may be left over
+ :
+elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then
+ # Yippee, $echo works!
+ :
+else
+ # Restart under the correct shell, and then maybe $echo will work.
+ exec $SHELL "$progpath" --no-reexec ${1+"$@"}
+fi
+
+if test "X$1" = X--fallback-echo; then
+ # used as fallback echo
+ shift
+ cat <<EOF
+$*
+EOF
+ exit $EXIT_SUCCESS
+fi
+
+default_mode=
+help="Try \`$progname --help' for more information."
+magic="%%%MAGIC variable%%%"
+mkdir="mkdir"
+mv="mv -f"
+rm="rm -f"
+
+# Sed substitution that helps us do robust quoting. It backslashifies
+# metacharacters that are still active within double-quoted strings.
+Xsed="${SED}"' -e 1s/^X//'
+sed_quote_subst='s/\([\\`\\"$\\\\]\)/\\\1/g'
+# test EBCDIC or ASCII
+case `echo A|tr A '\301'` in
+ A) # EBCDIC based system
+ SP2NL="tr '\100' '\n'"
+ NL2SP="tr '\r\n' '\100\100'"
+ ;;
+ *) # Assume ASCII based system
+ SP2NL="tr '\040' '\012'"
+ NL2SP="tr '\015\012' '\040\040'"
+ ;;
+esac
+
+# NLS nuisances.
+# Only set LANG and LC_ALL to C if already set.
+# These must not be set unconditionally because not all systems understand
+# e.g. LANG=C (notably SCO).
+# We save the old values to restore during execute mode.
+if test "${LC_ALL+set}" = set; then
+ save_LC_ALL="$LC_ALL"; LC_ALL=C; export LC_ALL
+fi
+if test "${LANG+set}" = set; then
+ save_LANG="$LANG"; LANG=C; export LANG
+fi
+
+# Make sure IFS has a sensible default
+: ${IFS="
+"}
+
+if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then
+ $echo "$modename: not configured to build any kind of library" 1>&2
+ $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2
+ exit $EXIT_FAILURE
+fi
+
+# Global variables.
+mode=$default_mode
+nonopt=
+prev=
+prevopt=
+run=
+show="$echo"
+show_help=
+execute_dlfiles=
+lo2o="s/\\.lo\$/.${objext}/"
+o2lo="s/\\.${objext}\$/.lo/"
+
+#####################################
+# Shell function definitions:
+# This seems to be the best place for them
+
+# func_win32_libid arg
+# return the library type of file 'arg'
+#
+# Need a lot of goo to handle *both* DLLs and import libs
+# Has to be a shell function in order to 'eat' the argument
+# that is supplied when $file_magic_command is called.
+func_win32_libid () {
+ win32_libid_type="unknown"
+ win32_fileres=`file -L $1 2>/dev/null`
+ case $win32_fileres in
+ *ar\ archive\ import\ library*) # definitely import
+ win32_libid_type="x86 archive import"
+ ;;
+ *ar\ archive*) # could be an import, or static
+ if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | \
+ $EGREP -e 'file format pe-i386(.*architecture: i386)?' >/dev/null ; then
+ win32_nmres=`eval $NM -f posix -A $1 | \
+ sed -n -e '1,100{/ I /{x;/import/!{s/^/import/;h;p;};x;};}'`
+ if test "X$win32_nmres" = "Ximport" ; then
+ win32_libid_type="x86 archive import"
+ else
+ win32_libid_type="x86 archive static"
+ fi
+ fi
+ ;;
+ *DLL*)
+ win32_libid_type="x86 DLL"
+ ;;
+ *executable*) # but shell scripts are "executable" too...
+ case $win32_fileres in
+ *MS\ Windows\ PE\ Intel*)
+ win32_libid_type="x86 DLL"
+ ;;
+ esac
+ ;;
+ esac
+ $echo $win32_libid_type
+}
+
+
+# func_infer_tag arg
+# Infer tagged configuration to use if any are available and
+# if one wasn't chosen via the "--tag" command line option.
+# Only attempt this if the compiler in the base compile
+# command doesn't match the default compiler.
+# arg is usually of the form 'gcc ...'
+func_infer_tag () {
+ if test -n "$available_tags" && test -z "$tagname"; then
+ CC_quoted=
+ for arg in $CC; do
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ CC_quoted="$CC_quoted $arg"
+ done
+ case $@ in
+ # Blanks in the command may have been stripped by the calling shell,
+ # but not from the CC environment variable when configure was run.
+ " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) ;;
+ # Blanks at the start of $base_compile will cause this to fail
+ # if we don't check for them as well.
+ *)
+ for z in $available_tags; do
+ if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then
+ # Evaluate the configuration.
+ eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`"
+ CC_quoted=
+ for arg in $CC; do
+ # Double-quote args containing other shell metacharacters.
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ CC_quoted="$CC_quoted $arg"
+ done
+ case "$@ " in
+ " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*)
+ # The compiler in the base compile command matches
+ # the one in the tagged configuration.
+ # Assume this is the tagged configuration we want.
+ tagname=$z
+ break
+ ;;
+ esac
+ fi
+ done
+ # If $tagname still isn't set, then no tagged configuration
+ # was found and let the user know that the "--tag" command
+ # line option must be used.
+ if test -z "$tagname"; then
+ $echo "$modename: unable to infer tagged configuration"
+ $echo "$modename: specify a tag with \`--tag'" 1>&2
+ exit $EXIT_FAILURE
+# else
+# $echo "$modename: using $tagname tagged configuration"
+ fi
+ ;;
+ esac
+ fi
+}
+# End of Shell function definitions
+#####################################
+
+# Darwin sucks
+eval std_shrext=\"$shrext_cmds\"
+
+# Parse our command line options once, thoroughly.
+while test "$#" -gt 0
+do
+ arg="$1"
+ shift
+
+ case $arg in
+ -*=*) optarg=`$echo "X$arg" | $Xsed -e 's/[-_a-zA-Z0-9]*=//'` ;;
+ *) optarg= ;;
+ esac
+
+ # If the previous option needs an argument, assign it.
+ if test -n "$prev"; then
+ case $prev in
+ execute_dlfiles)
+ execute_dlfiles="$execute_dlfiles $arg"
+ ;;
+ tag)
+ tagname="$arg"
+ preserve_args="${preserve_args}=$arg"
+
+ # Check whether tagname contains only valid characters
+ case $tagname in
+ *[!-_A-Za-z0-9,/]*)
+ $echo "$progname: invalid tag name: $tagname" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ case $tagname in
+ CC)
+ # Don't test for the "default" C tag, as we know, it's there, but
+ # not specially marked.
+ ;;
+ *)
+ if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$progpath" > /dev/null; then
+ taglist="$taglist $tagname"
+ # Evaluate the configuration.
+ eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$tagname'$/,/^# ### END LIBTOOL TAG CONFIG: '$tagname'$/p' < $progpath`"
+ else
+ $echo "$progname: ignoring unknown tag $tagname" 1>&2
+ fi
+ ;;
+ esac
+ ;;
+ *)
+ eval "$prev=\$arg"
+ ;;
+ esac
+
+ prev=
+ prevopt=
+ continue
+ fi
+
+ # Have we seen a non-optional argument yet?
+ case $arg in
+ --help)
+ show_help=yes
+ ;;
+
+ --version)
+ $echo "$PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP"
+ $echo
+ $echo "Copyright (C) 2003 Free Software Foundation, Inc."
+ $echo "This is free software; see the source for copying conditions. There is NO"
+ $echo "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+ exit $EXIT_SUCCESS
+ ;;
+
+ --config)
+ ${SED} -e '1,/^# ### BEGIN LIBTOOL CONFIG/d' -e '/^# ### END LIBTOOL CONFIG/,$d' $progpath
+ # Now print the configurations for the tags.
+ for tagname in $taglist; do
+ ${SED} -n -e "/^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$/,/^# ### END LIBTOOL TAG CONFIG: $tagname$/p" < "$progpath"
+ done
+ exit $EXIT_SUCCESS
+ ;;
+
+ --debug)
+ $echo "$progname: enabling shell trace mode"
+ set -x
+ preserve_args="$preserve_args $arg"
+ ;;
+
+ --dry-run | -n)
+ run=:
+ ;;
+
+ --features)
+ $echo "host: $host"
+ if test "$build_libtool_libs" = yes; then
+ $echo "enable shared libraries"
+ else
+ $echo "disable shared libraries"
+ fi
+ if test "$build_old_libs" = yes; then
+ $echo "enable static libraries"
+ else
+ $echo "disable static libraries"
+ fi
+ exit $EXIT_SUCCESS
+ ;;
+
+ --finish) mode="finish" ;;
+
+ --mode) prevopt="--mode" prev=mode ;;
+ --mode=*) mode="$optarg" ;;
+
+ --preserve-dup-deps) duplicate_deps="yes" ;;
+
+ --quiet | --silent)
+ show=:
+ preserve_args="$preserve_args $arg"
+ ;;
+
+ --tag) prevopt="--tag" prev=tag ;;
+ --tag=*)
+ set tag "$optarg" ${1+"$@"}
+ shift
+ prev=tag
+ preserve_args="$preserve_args --tag"
+ ;;
+
+ -dlopen)
+ prevopt="-dlopen"
+ prev=execute_dlfiles
+ ;;
+
+ -*)
+ $echo "$modename: unrecognized option \`$arg'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+
+ *)
+ nonopt="$arg"
+ break
+ ;;
+ esac
+done
+
+if test -n "$prevopt"; then
+ $echo "$modename: option \`$prevopt' requires an argument" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+fi
+
+# If this variable is set in any of the actions, the command in it
+# will be execed at the end. This prevents here-documents from being
+# left over by shells.
+exec_cmd=
+
+if test -z "$show_help"; then
+
+ # Infer the operation mode.
+ if test -z "$mode"; then
+ $echo "*** Warning: inferring the mode of operation is deprecated." 1>&2
+ $echo "*** Future versions of Libtool will require -mode=MODE be specified." 1>&2
+ case $nonopt in
+ *cc | cc* | *++ | gcc* | *-gcc* | g++* | xlc*)
+ mode=link
+ for arg
+ do
+ case $arg in
+ -c)
+ mode=compile
+ break
+ ;;
+ esac
+ done
+ ;;
+ *db | *dbx | *strace | *truss)
+ mode=execute
+ ;;
+ *install*|cp|mv)
+ mode=install
+ ;;
+ *rm)
+ mode=uninstall
+ ;;
+ *)
+ # If we have no mode, but dlfiles were specified, then do execute mode.
+ test -n "$execute_dlfiles" && mode=execute
+
+ # Just use the default operation mode.
+ if test -z "$mode"; then
+ if test -n "$nonopt"; then
+ $echo "$modename: warning: cannot infer operation mode from \`$nonopt'" 1>&2
+ else
+ $echo "$modename: warning: cannot infer operation mode without MODE-ARGS" 1>&2
+ fi
+ fi
+ ;;
+ esac
+ fi
+
+ # Only execute mode is allowed to have -dlopen flags.
+ if test -n "$execute_dlfiles" && test "$mode" != execute; then
+ $echo "$modename: unrecognized option \`-dlopen'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Change the help message to a mode-specific one.
+ generic_help="$help"
+ help="Try \`$modename --help --mode=$mode' for more information."
+
+ # These modes are in order of execution frequency so that they run quickly.
+ case $mode in
+ # libtool compile mode
+ compile)
+ modename="$modename: compile"
+ # Get the compilation command and the source file.
+ base_compile=
+ srcfile="$nonopt" # always keep a non-empty value in "srcfile"
+ suppress_opt=yes
+ suppress_output=
+ arg_mode=normal
+ libobj=
+ later=
+
+ for arg
+ do
+ case "$arg_mode" in
+ arg )
+ # do not "continue". Instead, add this to base_compile
+ lastarg="$arg"
+ arg_mode=normal
+ ;;
+
+ target )
+ libobj="$arg"
+ arg_mode=normal
+ continue
+ ;;
+
+ normal )
+ # Accept any command-line options.
+ case $arg in
+ -o)
+ if test -n "$libobj" ; then
+ $echo "$modename: you cannot specify \`-o' more than once" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ arg_mode=target
+ continue
+ ;;
+
+ -static | -prefer-pic | -prefer-non-pic)
+ later="$later $arg"
+ continue
+ ;;
+
+ -no-suppress)
+ suppress_opt=no
+ continue
+ ;;
+
+ -Xcompiler)
+ arg_mode=arg # the next one goes into the "base_compile" arg list
+ continue # The current "srcfile" will either be retained or
+ ;; # replaced later. I would guess that would be a bug.
+
+ -Wc,*)
+ args=`$echo "X$arg" | $Xsed -e "s/^-Wc,//"`
+ lastarg=
+ save_ifs="$IFS"; IFS=','
+ for arg in $args; do
+ IFS="$save_ifs"
+
+ # Double-quote args containing other shell metacharacters.
+ # Many Bourne shells cannot handle close brackets correctly
+ # in scan sets, so we specify it separately.
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ lastarg="$lastarg $arg"
+ done
+ IFS="$save_ifs"
+ lastarg=`$echo "X$lastarg" | $Xsed -e "s/^ //"`
+
+ # Add the arguments to base_compile.
+ base_compile="$base_compile $lastarg"
+ continue
+ ;;
+
+ * )
+ # Accept the current argument as the source file.
+ # The previous "srcfile" becomes the current argument.
+ #
+ lastarg="$srcfile"
+ srcfile="$arg"
+ ;;
+ esac # case $arg
+ ;;
+ esac # case $arg_mode
+
+ # Aesthetically quote the previous argument.
+ lastarg=`$echo "X$lastarg" | $Xsed -e "$sed_quote_subst"`
+
+ case $lastarg in
+ # Double-quote args containing other shell metacharacters.
+ # Many Bourne shells cannot handle close brackets correctly
+ # in scan sets, so we specify it separately.
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ lastarg="\"$lastarg\""
+ ;;
+ esac
+
+ base_compile="$base_compile $lastarg"
+ done # for arg
+
+ case $arg_mode in
+ arg)
+ $echo "$modename: you must specify an argument for -Xcompile"
+ exit $EXIT_FAILURE
+ ;;
+ target)
+ $echo "$modename: you must specify a target with \`-o'" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ *)
+ # Get the name of the library object.
+ [ -z "$libobj" ] && libobj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%'`
+ ;;
+ esac
+
+ # Recognize several different file suffixes.
+ # If the user specifies -o file.o, it is replaced with file.lo
+ xform='[cCFSifmso]'
+ case $libobj in
+ *.ada) xform=ada ;;
+ *.adb) xform=adb ;;
+ *.ads) xform=ads ;;
+ *.asm) xform=asm ;;
+ *.c++) xform=c++ ;;
+ *.cc) xform=cc ;;
+ *.ii) xform=ii ;;
+ *.class) xform=class ;;
+ *.cpp) xform=cpp ;;
+ *.cxx) xform=cxx ;;
+ *.f90) xform=f90 ;;
+ *.for) xform=for ;;
+ *.java) xform=java ;;
+ esac
+
+ libobj=`$echo "X$libobj" | $Xsed -e "s/\.$xform$/.lo/"`
+
+ case $libobj in
+ *.lo) obj=`$echo "X$libobj" | $Xsed -e "$lo2o"` ;;
+ *)
+ $echo "$modename: cannot determine name of library object from \`$libobj'" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ func_infer_tag $base_compile
+
+ for arg in $later; do
+ case $arg in
+ -static)
+ build_old_libs=yes
+ continue
+ ;;
+
+ -prefer-pic)
+ pic_mode=yes
+ continue
+ ;;
+
+ -prefer-non-pic)
+ pic_mode=no
+ continue
+ ;;
+ esac
+ done
+
+ objname=`$echo "X$obj" | $Xsed -e 's%^.*/%%'`
+ xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$xdir" = "X$obj"; then
+ xdir=
+ else
+ xdir=$xdir/
+ fi
+ lobj=${xdir}$objdir/$objname
+
+ if test -z "$base_compile"; then
+ $echo "$modename: you must specify a compilation command" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Delete any leftover library objects.
+ if test "$build_old_libs" = yes; then
+ removelist="$obj $lobj $libobj ${libobj}T"
+ else
+ removelist="$lobj $libobj ${libobj}T"
+ fi
+
+ $run $rm $removelist
+ trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15
+
+ # On Cygwin there's no "real" PIC flag so we must build both object types
+ case $host_os in
+ cygwin* | mingw* | pw32* | os2*)
+ pic_mode=default
+ ;;
+ esac
+ if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then
+ # non-PIC code in shared libraries is not supported
+ pic_mode=default
+ fi
+
+ # Calculate the filename of the output object if compiler does
+ # not support -o with -c
+ if test "$compiler_c_o" = no; then
+ output_obj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%' -e 's%\.[^.]*$%%'`.${objext}
+ lockfile="$output_obj.lock"
+ removelist="$removelist $output_obj $lockfile"
+ trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15
+ else
+ output_obj=
+ need_locks=no
+ lockfile=
+ fi
+
+ # Lock this critical section if it is needed
+ # We use this script file to make the link, it avoids creating a new file
+ if test "$need_locks" = yes; then
+ until $run ln "$progpath" "$lockfile" 2>/dev/null; do
+ $show "Waiting for $lockfile to be removed"
+ sleep 2
+ done
+ elif test "$need_locks" = warn; then
+ if test -f "$lockfile"; then
+ $echo "\
+*** ERROR, $lockfile exists and contains:
+`cat $lockfile 2>/dev/null`
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support \`-c' and \`-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $run $rm $removelist
+ exit $EXIT_FAILURE
+ fi
+ $echo $srcfile > "$lockfile"
+ fi
+
+ if test -n "$fix_srcfile_path"; then
+ eval srcfile=\"$fix_srcfile_path\"
+ fi
+
+ $run $rm "$libobj" "${libobj}T"
+
+ # Create a libtool object file (analogous to a ".la" file),
+ # but don't create it if we're doing a dry run.
+ test -z "$run" && cat > ${libobj}T <<EOF
+# $libobj - a libtool object file
+# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP
+#
+# Please DO NOT delete this file!
+# It is necessary for linking the library.
+
+# Name of the PIC object.
+EOF
+
+ # Only build a PIC object if we are building libtool libraries.
+ if test "$build_libtool_libs" = yes; then
+ # Without this assignment, base_compile gets emptied.
+ fbsd_hideous_sh_bug=$base_compile
+
+ if test "$pic_mode" != no; then
+ command="$base_compile $srcfile $pic_flag"
+ else
+ # Don't build PIC code
+ command="$base_compile $srcfile"
+ fi
+
+ if test ! -d "${xdir}$objdir"; then
+ $show "$mkdir ${xdir}$objdir"
+ $run $mkdir ${xdir}$objdir
+ status=$?
+ if test "$status" -ne 0 && test ! -d "${xdir}$objdir"; then
+ exit $status
+ fi
+ fi
+
+ if test -z "$output_obj"; then
+ # Place PIC objects in $objdir
+ command="$command -o $lobj"
+ fi
+
+ $run $rm "$lobj" "$output_obj"
+
+ $show "$command"
+ if $run eval "$command"; then :
+ else
+ test -n "$output_obj" && $run $rm $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ if test "$need_locks" = warn &&
+ test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
+ $echo "\
+*** ERROR, $lockfile contains:
+`cat $lockfile 2>/dev/null`
+
+but it should contain:
+$srcfile
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support \`-c' and \`-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $run $rm $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ # Just move the object if needed, then go on to compile the next one
+ if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then
+ $show "$mv $output_obj $lobj"
+ if $run $mv $output_obj $lobj; then :
+ else
+ error=$?
+ $run $rm $removelist
+ exit $error
+ fi
+ fi
+
+ # Append the name of the PIC object to the libtool object file.
+ test -z "$run" && cat >> ${libobj}T <<EOF
+pic_object='$objdir/$objname'
+
+EOF
+
+ # Allow error messages only from the first compilation.
+ if test "$suppress_opt" = yes; then
+ suppress_output=' >/dev/null 2>&1'
+ fi
+ else
+ # No PIC object so indicate it doesn't exist in the libtool
+ # object file.
+ test -z "$run" && cat >> ${libobj}T <<EOF
+pic_object=none
+
+EOF
+ fi
+
+ # Only build a position-dependent object if we build old libraries.
+ if test "$build_old_libs" = yes; then
+ if test "$pic_mode" != yes; then
+ # Don't build PIC code
+ command="$base_compile $srcfile"
+ else
+ command="$base_compile $srcfile $pic_flag"
+ fi
+ if test "$compiler_c_o" = yes; then
+ command="$command -o $obj"
+ fi
+
+ # Suppress compiler output if we already did a PIC compilation.
+ command="$command$suppress_output"
+ $run $rm "$obj" "$output_obj"
+ $show "$command"
+ if $run eval "$command"; then :
+ else
+ $run $rm $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ if test "$need_locks" = warn &&
+ test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
+ $echo "\
+*** ERROR, $lockfile contains:
+`cat $lockfile 2>/dev/null`
+
+but it should contain:
+$srcfile
+
+This indicates that another process is trying to use the same
+temporary object file, and libtool could not work around it because
+your compiler does not support \`-c' and \`-o' together. If you
+repeat this compilation, it may succeed, by chance, but you had better
+avoid parallel builds (make -j) in this platform, or get a better
+compiler."
+
+ $run $rm $removelist
+ exit $EXIT_FAILURE
+ fi
+
+ # Just move the object if needed
+ if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then
+ $show "$mv $output_obj $obj"
+ if $run $mv $output_obj $obj; then :
+ else
+ error=$?
+ $run $rm $removelist
+ exit $error
+ fi
+ fi
+
+ # Append the name of the non-PIC object the libtool object file.
+ # Only append if the libtool object file exists.
+ test -z "$run" && cat >> ${libobj}T <<EOF
+# Name of the non-PIC object.
+non_pic_object='$objname'
+
+EOF
+ else
+ # Append the name of the non-PIC object the libtool object file.
+ # Only append if the libtool object file exists.
+ test -z "$run" && cat >> ${libobj}T <<EOF
+# Name of the non-PIC object.
+non_pic_object=none
+
+EOF
+ fi
+
+ $run $mv "${libobj}T" "${libobj}"
+
+ # Unlock the critical section if it was locked
+ if test "$need_locks" != no; then
+ $run $rm "$lockfile"
+ fi
+
+ exit $EXIT_SUCCESS
+ ;;
+
+ # libtool link mode
+ link | relink)
+ modename="$modename: link"
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*)
+ # It is impossible to link a dll without this setting, and
+ # we shouldn't force the makefile maintainer to figure out
+ # which system we are compiling for in order to pass an extra
+ # flag for every libtool invocation.
+ # allow_undefined=no
+
+ # FIXME: Unfortunately, there are problems with the above when trying
+ # to make a dll which has undefined symbols, in which case not
+ # even a static library is built. For now, we need to specify
+ # -no-undefined on the libtool link line when we can be certain
+ # that all symbols are satisfied, otherwise we get a static library.
+ allow_undefined=yes
+ ;;
+ *)
+ allow_undefined=yes
+ ;;
+ esac
+ libtool_args="$nonopt"
+ base_compile="$nonopt $@"
+ compile_command="$nonopt"
+ finalize_command="$nonopt"
+
+ compile_rpath=
+ finalize_rpath=
+ compile_shlibpath=
+ finalize_shlibpath=
+ convenience=
+ old_convenience=
+ deplibs=
+ old_deplibs=
+ compiler_flags=
+ linker_flags=
+ dllsearchpath=
+ lib_search_path=`pwd`
+ inst_prefix_dir=
+
+ avoid_version=no
+ dlfiles=
+ dlprefiles=
+ dlself=no
+ export_dynamic=no
+ export_symbols=
+ export_symbols_regex=
+ generated=
+ libobjs=
+ ltlibs=
+ module=no
+ no_install=no
+ objs=
+ non_pic_objects=
+ precious_files_regex=
+ prefer_static_libs=no
+ preload=no
+ prev=
+ prevarg=
+ release=
+ rpath=
+ xrpath=
+ perm_rpath=
+ temp_rpath=
+ thread_safe=no
+ vinfo=
+ vinfo_number=no
+
+ func_infer_tag $base_compile
+
+ # We need to know -static, to get the right output filenames.
+ for arg
+ do
+ case $arg in
+ -all-static | -static)
+ if test "X$arg" = "X-all-static"; then
+ if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then
+ $echo "$modename: warning: complete static linking is impossible in this configuration" 1>&2
+ fi
+ if test -n "$link_static_flag"; then
+ dlopen_self=$dlopen_self_static
+ fi
+ else
+ if test -z "$pic_flag" && test -n "$link_static_flag"; then
+ dlopen_self=$dlopen_self_static
+ fi
+ fi
+ build_libtool_libs=no
+ build_old_libs=yes
+ prefer_static_libs=yes
+ break
+ ;;
+ esac
+ done
+
+ # See if our shared archives depend on static archives.
+ test -n "$old_archive_from_new_cmds" && build_old_libs=yes
+
+ # Go through the arguments, transforming them on the way.
+ while test "$#" -gt 0; do
+ arg="$1"
+ shift
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ qarg=\"`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`\" ### testsuite: skip nested quoting test
+ ;;
+ *) qarg=$arg ;;
+ esac
+ libtool_args="$libtool_args $qarg"
+
+ # If the previous option needs an argument, assign it.
+ if test -n "$prev"; then
+ case $prev in
+ output)
+ compile_command="$compile_command @OUTPUT@"
+ finalize_command="$finalize_command @OUTPUT@"
+ ;;
+ esac
+
+ case $prev in
+ dlfiles|dlprefiles)
+ if test "$preload" = no; then
+ # Add the symbol object into the linking commands.
+ compile_command="$compile_command @SYMFILE@"
+ finalize_command="$finalize_command @SYMFILE@"
+ preload=yes
+ fi
+ case $arg in
+ *.la | *.lo) ;; # We handle these cases below.
+ force)
+ if test "$dlself" = no; then
+ dlself=needless
+ export_dynamic=yes
+ fi
+ prev=
+ continue
+ ;;
+ self)
+ if test "$prev" = dlprefiles; then
+ dlself=yes
+ elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then
+ dlself=yes
+ else
+ dlself=needless
+ export_dynamic=yes
+ fi
+ prev=
+ continue
+ ;;
+ *)
+ if test "$prev" = dlfiles; then
+ dlfiles="$dlfiles $arg"
+ else
+ dlprefiles="$dlprefiles $arg"
+ fi
+ prev=
+ continue
+ ;;
+ esac
+ ;;
+ expsyms)
+ export_symbols="$arg"
+ if test ! -f "$arg"; then
+ $echo "$modename: symbol file \`$arg' does not exist"
+ exit $EXIT_FAILURE
+ fi
+ prev=
+ continue
+ ;;
+ expsyms_regex)
+ export_symbols_regex="$arg"
+ prev=
+ continue
+ ;;
+ inst_prefix)
+ inst_prefix_dir="$arg"
+ prev=
+ continue
+ ;;
+ precious_regex)
+ precious_files_regex="$arg"
+ prev=
+ continue
+ ;;
+ release)
+ release="-$arg"
+ prev=
+ continue
+ ;;
+ objectlist)
+ if test -f "$arg"; then
+ save_arg=$arg
+ moreargs=
+ for fil in `cat $save_arg`
+ do
+# moreargs="$moreargs $fil"
+ arg=$fil
+ # A libtool-controlled object.
+
+ # Check to see that this really is a libtool object.
+ if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ pic_object=
+ non_pic_object=
+
+ # Read the .lo file
+ # If there is no directory component, then add one.
+ case $arg in
+ */* | *\\*) . $arg ;;
+ *) . ./$arg ;;
+ esac
+
+ if test -z "$pic_object" || \
+ test -z "$non_pic_object" ||
+ test "$pic_object" = none && \
+ test "$non_pic_object" = none; then
+ $echo "$modename: cannot find name of object for \`$arg'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Extract subdirectory from the argument.
+ xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$xdir" = "X$arg"; then
+ xdir=
+ else
+ xdir="$xdir/"
+ fi
+
+ if test "$pic_object" != none; then
+ # Prepend the subdirectory the object is found in.
+ pic_object="$xdir$pic_object"
+
+ if test "$prev" = dlfiles; then
+ if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
+ dlfiles="$dlfiles $pic_object"
+ prev=
+ continue
+ else
+ # If libtool objects are unsupported, then we need to preload.
+ prev=dlprefiles
+ fi
+ fi
+
+ # CHECK ME: I think I busted this. -Ossama
+ if test "$prev" = dlprefiles; then
+ # Preload the old-style object.
+ dlprefiles="$dlprefiles $pic_object"
+ prev=
+ fi
+
+ # A PIC object.
+ libobjs="$libobjs $pic_object"
+ arg="$pic_object"
+ fi
+
+ # Non-PIC object.
+ if test "$non_pic_object" != none; then
+ # Prepend the subdirectory the object is found in.
+ non_pic_object="$xdir$non_pic_object"
+
+ # A standard non-PIC object
+ non_pic_objects="$non_pic_objects $non_pic_object"
+ if test -z "$pic_object" || test "$pic_object" = none ; then
+ arg="$non_pic_object"
+ fi
+ fi
+ else
+ # Only an error if not doing a dry-run.
+ if test -z "$run"; then
+ $echo "$modename: \`$arg' is not a valid libtool object" 1>&2
+ exit $EXIT_FAILURE
+ else
+ # Dry-run case.
+
+ # Extract subdirectory from the argument.
+ xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$xdir" = "X$arg"; then
+ xdir=
+ else
+ xdir="$xdir/"
+ fi
+
+ pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"`
+ non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"`
+ libobjs="$libobjs $pic_object"
+ non_pic_objects="$non_pic_objects $non_pic_object"
+ fi
+ fi
+ done
+ else
+ $echo "$modename: link input file \`$save_arg' does not exist"
+ exit $EXIT_FAILURE
+ fi
+ arg=$save_arg
+ prev=
+ continue
+ ;;
+ rpath | xrpath)
+ # We need an absolute path.
+ case $arg in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ $echo "$modename: only absolute run-paths are allowed" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+ if test "$prev" = rpath; then
+ case "$rpath " in
+ *" $arg "*) ;;
+ *) rpath="$rpath $arg" ;;
+ esac
+ else
+ case "$xrpath " in
+ *" $arg "*) ;;
+ *) xrpath="$xrpath $arg" ;;
+ esac
+ fi
+ prev=
+ continue
+ ;;
+ xcompiler)
+ compiler_flags="$compiler_flags $qarg"
+ prev=
+ compile_command="$compile_command $qarg"
+ finalize_command="$finalize_command $qarg"
+ continue
+ ;;
+ xlinker)
+ linker_flags="$linker_flags $qarg"
+ compiler_flags="$compiler_flags $wl$qarg"
+ prev=
+ compile_command="$compile_command $wl$qarg"
+ finalize_command="$finalize_command $wl$qarg"
+ continue
+ ;;
+ xcclinker)
+ linker_flags="$linker_flags $qarg"
+ compiler_flags="$compiler_flags $qarg"
+ prev=
+ compile_command="$compile_command $qarg"
+ finalize_command="$finalize_command $qarg"
+ continue
+ ;;
+ shrext)
+ shrext_cmds="$arg"
+ prev=
+ continue
+ ;;
+ *)
+ eval "$prev=\"\$arg\""
+ prev=
+ continue
+ ;;
+ esac
+ fi # test -n "$prev"
+
+ prevarg="$arg"
+
+ case $arg in
+ -all-static)
+ if test -n "$link_static_flag"; then
+ compile_command="$compile_command $link_static_flag"
+ finalize_command="$finalize_command $link_static_flag"
+ fi
+ continue
+ ;;
+
+ -allow-undefined)
+ # FIXME: remove this flag sometime in the future.
+ $echo "$modename: \`-allow-undefined' is deprecated because it is the default" 1>&2
+ continue
+ ;;
+
+ -avoid-version)
+ avoid_version=yes
+ continue
+ ;;
+
+ -dlopen)
+ prev=dlfiles
+ continue
+ ;;
+
+ -dlpreopen)
+ prev=dlprefiles
+ continue
+ ;;
+
+ -export-dynamic)
+ export_dynamic=yes
+ continue
+ ;;
+
+ -export-symbols | -export-symbols-regex)
+ if test -n "$export_symbols" || test -n "$export_symbols_regex"; then
+ $echo "$modename: more than one -exported-symbols argument is not allowed"
+ exit $EXIT_FAILURE
+ fi
+ if test "X$arg" = "X-export-symbols"; then
+ prev=expsyms
+ else
+ prev=expsyms_regex
+ fi
+ continue
+ ;;
+
+ -inst-prefix-dir)
+ prev=inst_prefix
+ continue
+ ;;
+
+ # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:*
+ # so, if we see these flags be careful not to treat them like -L
+ -L[A-Z][A-Z]*:*)
+ case $with_gcc/$host in
+ no/*-*-irix* | /*-*-irix*)
+ compile_command="$compile_command $arg"
+ finalize_command="$finalize_command $arg"
+ ;;
+ esac
+ continue
+ ;;
+
+ -L*)
+ dir=`$echo "X$arg" | $Xsed -e 's/^-L//'`
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ absdir=`cd "$dir" && pwd`
+ if test -z "$absdir"; then
+ $echo "$modename: cannot determine absolute directory name of \`$dir'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ dir="$absdir"
+ ;;
+ esac
+ case "$deplibs " in
+ *" -L$dir "*) ;;
+ *)
+ deplibs="$deplibs -L$dir"
+ lib_search_path="$lib_search_path $dir"
+ ;;
+ esac
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*)
+ case :$dllsearchpath: in
+ *":$dir:"*) ;;
+ *) dllsearchpath="$dllsearchpath:$dir";;
+ esac
+ ;;
+ esac
+ continue
+ ;;
+
+ -l*)
+ if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then
+ case $host in
+ *-*-cygwin* | *-*-pw32* | *-*-beos*)
+ # These systems don't actually have a C or math library (as such)
+ continue
+ ;;
+ *-*-mingw* | *-*-os2*)
+ # These systems don't actually have a C library (as such)
+ test "X$arg" = "X-lc" && continue
+ ;;
+ *-*-openbsd* | *-*-freebsd*)
+ # Do not include libc due to us having libc/libc_r.
+ test "X$arg" = "X-lc" && continue
+ ;;
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # Rhapsody C and math libraries are in the System framework
+ deplibs="$deplibs -framework System"
+ continue
+ esac
+ elif test "X$arg" = "X-lc_r"; then
+ case $host in
+ *-*-openbsd* | *-*-freebsd*)
+ # Do not include libc_r directly, use -pthread flag.
+ continue
+ ;;
+ esac
+ fi
+ deplibs="$deplibs $arg"
+ continue
+ ;;
+
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe)
+ deplibs="$deplibs $arg"
+ continue
+ ;;
+
+ -module)
+ module=yes
+ continue
+ ;;
+
+ # gcc -m* arguments should be passed to the linker via $compiler_flags
+ # in order to pass architecture information to the linker
+ # (e.g. 32 vs 64-bit). This may also be accomplished via -Wl,-mfoo
+ # but this is not reliable with gcc because gcc may use -mfoo to
+ # select a different linker, different libraries, etc, while
+ # -Wl,-mfoo simply passes -mfoo to the linker.
+ -m*)
+ # Unknown arguments in both finalize_command and compile_command need
+ # to be aesthetically quoted because they are evaled later.
+ arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ compile_command="$compile_command $arg"
+ finalize_command="$finalize_command $arg"
+ if test "$with_gcc" = "yes" ; then
+ compiler_flags="$compiler_flags $arg"
+ fi
+ continue
+ ;;
+
+ -shrext)
+ prev=shrext
+ continue
+ ;;
+
+ -no-fast-install)
+ fast_install=no
+ continue
+ ;;
+
+ -no-install)
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*)
+ # The PATH hackery in wrapper scripts is required on Windows
+ # in order for the loader to find any dlls it needs.
+ $echo "$modename: warning: \`-no-install' is ignored for $host" 1>&2
+ $echo "$modename: warning: assuming \`-no-fast-install' instead" 1>&2
+ fast_install=no
+ ;;
+ *) no_install=yes ;;
+ esac
+ continue
+ ;;
+
+ -no-undefined)
+ allow_undefined=no
+ continue
+ ;;
+
+ -objectlist)
+ prev=objectlist
+ continue
+ ;;
+
+ -o) prev=output ;;
+
+ -precious-files-regex)
+ prev=precious_regex
+ continue
+ ;;
+
+ -release)
+ prev=release
+ continue
+ ;;
+
+ -rpath)
+ prev=rpath
+ continue
+ ;;
+
+ -R)
+ prev=xrpath
+ continue
+ ;;
+
+ -R*)
+ dir=`$echo "X$arg" | $Xsed -e 's/^-R//'`
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ $echo "$modename: only absolute run-paths are allowed" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+ case "$xrpath " in
+ *" $dir "*) ;;
+ *) xrpath="$xrpath $dir" ;;
+ esac
+ continue
+ ;;
+
+ -static)
+ # The effects of -static are defined in a previous loop.
+ # We used to do the same as -all-static on platforms that
+ # didn't have a PIC flag, but the assumption that the effects
+ # would be equivalent was wrong. It would break on at least
+ # Digital Unix and AIX.
+ continue
+ ;;
+
+ -thread-safe)
+ thread_safe=yes
+ continue
+ ;;
+
+ -version-info)
+ prev=vinfo
+ continue
+ ;;
+ -version-number)
+ prev=vinfo
+ vinfo_number=yes
+ continue
+ ;;
+
+ -Wc,*)
+ args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wc,//'`
+ arg=
+ save_ifs="$IFS"; IFS=','
+ for flag in $args; do
+ IFS="$save_ifs"
+ case $flag in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ flag="\"$flag\""
+ ;;
+ esac
+ arg="$arg $wl$flag"
+ compiler_flags="$compiler_flags $flag"
+ done
+ IFS="$save_ifs"
+ arg=`$echo "X$arg" | $Xsed -e "s/^ //"`
+ ;;
+
+ -Wl,*)
+ args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wl,//'`
+ arg=
+ save_ifs="$IFS"; IFS=','
+ for flag in $args; do
+ IFS="$save_ifs"
+ case $flag in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ flag="\"$flag\""
+ ;;
+ esac
+ arg="$arg $wl$flag"
+ compiler_flags="$compiler_flags $wl$flag"
+ linker_flags="$linker_flags $flag"
+ done
+ IFS="$save_ifs"
+ arg=`$echo "X$arg" | $Xsed -e "s/^ //"`
+ ;;
+
+ -Xcompiler)
+ prev=xcompiler
+ continue
+ ;;
+
+ -Xlinker)
+ prev=xlinker
+ continue
+ ;;
+
+ -XCClinker)
+ prev=xcclinker
+ continue
+ ;;
+
+ # Some other compiler flag.
+ -* | +*)
+ # Unknown arguments in both finalize_command and compile_command need
+ # to be aesthetically quoted because they are evaled later.
+ arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ ;;
+
+ *.$objext)
+ # A standard object.
+ objs="$objs $arg"
+ ;;
+
+ *.lo)
+ # A libtool-controlled object.
+
+ # Check to see that this really is a libtool object.
+ if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ pic_object=
+ non_pic_object=
+
+ # Read the .lo file
+ # If there is no directory component, then add one.
+ case $arg in
+ */* | *\\*) . $arg ;;
+ *) . ./$arg ;;
+ esac
+
+ if test -z "$pic_object" || \
+ test -z "$non_pic_object" ||
+ test "$pic_object" = none && \
+ test "$non_pic_object" = none; then
+ $echo "$modename: cannot find name of object for \`$arg'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Extract subdirectory from the argument.
+ xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$xdir" = "X$arg"; then
+ xdir=
+ else
+ xdir="$xdir/"
+ fi
+
+ if test "$pic_object" != none; then
+ # Prepend the subdirectory the object is found in.
+ pic_object="$xdir$pic_object"
+
+ if test "$prev" = dlfiles; then
+ if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
+ dlfiles="$dlfiles $pic_object"
+ prev=
+ continue
+ else
+ # If libtool objects are unsupported, then we need to preload.
+ prev=dlprefiles
+ fi
+ fi
+
+ # CHECK ME: I think I busted this. -Ossama
+ if test "$prev" = dlprefiles; then
+ # Preload the old-style object.
+ dlprefiles="$dlprefiles $pic_object"
+ prev=
+ fi
+
+ # A PIC object.
+ libobjs="$libobjs $pic_object"
+ arg="$pic_object"
+ fi
+
+ # Non-PIC object.
+ if test "$non_pic_object" != none; then
+ # Prepend the subdirectory the object is found in.
+ non_pic_object="$xdir$non_pic_object"
+
+ # A standard non-PIC object
+ non_pic_objects="$non_pic_objects $non_pic_object"
+ if test -z "$pic_object" || test "$pic_object" = none ; then
+ arg="$non_pic_object"
+ fi
+ fi
+ else
+ # Only an error if not doing a dry-run.
+ if test -z "$run"; then
+ $echo "$modename: \`$arg' is not a valid libtool object" 1>&2
+ exit $EXIT_FAILURE
+ else
+ # Dry-run case.
+
+ # Extract subdirectory from the argument.
+ xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$xdir" = "X$arg"; then
+ xdir=
+ else
+ xdir="$xdir/"
+ fi
+
+ pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"`
+ non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"`
+ libobjs="$libobjs $pic_object"
+ non_pic_objects="$non_pic_objects $non_pic_object"
+ fi
+ fi
+ ;;
+
+ *.$libext)
+ # An archive.
+ deplibs="$deplibs $arg"
+ old_deplibs="$old_deplibs $arg"
+ continue
+ ;;
+
+ *.la)
+ # A libtool-controlled library.
+
+ if test "$prev" = dlfiles; then
+ # This library was specified with -dlopen.
+ dlfiles="$dlfiles $arg"
+ prev=
+ elif test "$prev" = dlprefiles; then
+ # The library was specified with -dlpreopen.
+ dlprefiles="$dlprefiles $arg"
+ prev=
+ else
+ deplibs="$deplibs $arg"
+ fi
+ continue
+ ;;
+
+ # Some other compiler argument.
+ *)
+ # Unknown arguments in both finalize_command and compile_command need
+ # to be aesthetically quoted because they are evaled later.
+ arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
+ arg="\"$arg\""
+ ;;
+ esac
+ ;;
+ esac # arg
+
+ # Now actually substitute the argument into the commands.
+ if test -n "$arg"; then
+ compile_command="$compile_command $arg"
+ finalize_command="$finalize_command $arg"
+ fi
+ done # argument parsing loop
+
+ if test -n "$prev"; then
+ $echo "$modename: the \`$prevarg' option requires an argument" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then
+ eval arg=\"$export_dynamic_flag_spec\"
+ compile_command="$compile_command $arg"
+ finalize_command="$finalize_command $arg"
+ fi
+
+ oldlibs=
+ # calculate the name of the file, without its directory
+ outputname=`$echo "X$output" | $Xsed -e 's%^.*/%%'`
+ libobjs_save="$libobjs"
+
+ if test -n "$shlibpath_var"; then
+ # get the directories listed in $shlibpath_var
+ eval shlib_search_path=\`\$echo \"X\${$shlibpath_var}\" \| \$Xsed -e \'s/:/ /g\'\`
+ else
+ shlib_search_path=
+ fi
+ eval sys_lib_search_path=\"$sys_lib_search_path_spec\"
+ eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\"
+
+ output_objdir=`$echo "X$output" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$output_objdir" = "X$output"; then
+ output_objdir="$objdir"
+ else
+ output_objdir="$output_objdir/$objdir"
+ fi
+ # Create the object directory.
+ if test ! -d "$output_objdir"; then
+ $show "$mkdir $output_objdir"
+ $run $mkdir $output_objdir
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$output_objdir"; then
+ exit $status
+ fi
+ fi
+
+ # Determine the type of output
+ case $output in
+ "")
+ $echo "$modename: you must specify an output file" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ *.$libext) linkmode=oldlib ;;
+ *.lo | *.$objext) linkmode=obj ;;
+ *.la) linkmode=lib ;;
+ *) linkmode=prog ;; # Anything else should be a program.
+ esac
+
+ case $host in
+ *cygwin* | *mingw* | *pw32*)
+ # don't eliminate duplications in $postdeps and $predeps
+ duplicate_compiler_generated_deps=yes
+ ;;
+ *)
+ duplicate_compiler_generated_deps=$duplicate_deps
+ ;;
+ esac
+ specialdeplibs=
+
+ libs=
+ # Find all interdependent deplibs by searching for libraries
+ # that are linked more than once (e.g. -la -lb -la)
+ for deplib in $deplibs; do
+ if test "X$duplicate_deps" = "Xyes" ; then
+ case "$libs " in
+ *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;;
+ esac
+ fi
+ libs="$libs $deplib"
+ done
+
+ if test "$linkmode" = lib; then
+ libs="$predeps $libs $compiler_lib_search_path $postdeps"
+
+ # Compute libraries that are listed more than once in $predeps
+ # $postdeps and mark them as special (i.e., whose duplicates are
+ # not to be eliminated).
+ pre_post_deps=
+ if test "X$duplicate_compiler_generated_deps" = "Xyes" ; then
+ for pre_post_dep in $predeps $postdeps; do
+ case "$pre_post_deps " in
+ *" $pre_post_dep "*) specialdeplibs="$specialdeplibs $pre_post_deps" ;;
+ esac
+ pre_post_deps="$pre_post_deps $pre_post_dep"
+ done
+ fi
+ pre_post_deps=
+ fi
+
+ deplibs=
+ newdependency_libs=
+ newlib_search_path=
+ need_relink=no # whether we're linking any uninstalled libtool libraries
+ notinst_deplibs= # not-installed libtool libraries
+ notinst_path= # paths that contain not-installed libtool libraries
+ case $linkmode in
+ lib)
+ passes="conv link"
+ for file in $dlfiles $dlprefiles; do
+ case $file in
+ *.la) ;;
+ *)
+ $echo "$modename: libraries can \`-dlopen' only libtool libraries: $file" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+ done
+ ;;
+ prog)
+ compile_deplibs=
+ finalize_deplibs=
+ alldeplibs=no
+ newdlfiles=
+ newdlprefiles=
+ passes="conv scan dlopen dlpreopen link"
+ ;;
+ *) passes="conv"
+ ;;
+ esac
+ for pass in $passes; do
+ if test "$linkmode,$pass" = "lib,link" ||
+ test "$linkmode,$pass" = "prog,scan"; then
+ libs="$deplibs"
+ deplibs=
+ fi
+ if test "$linkmode" = prog; then
+ case $pass in
+ dlopen) libs="$dlfiles" ;;
+ dlpreopen) libs="$dlprefiles" ;;
+ link) libs="$deplibs %DEPLIBS% $dependency_libs" ;;
+ esac
+ fi
+ if test "$pass" = dlopen; then
+ # Collect dlpreopened libraries
+ save_deplibs="$deplibs"
+ deplibs=
+ fi
+ for deplib in $libs; do
+ lib=
+ found=no
+ case $deplib in
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe)
+ if test "$linkmode,$pass" = "prog,link"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ fi
+ continue
+ ;;
+ -l*)
+ if test "$linkmode" != lib && test "$linkmode" != prog; then
+ $echo "$modename: warning: \`-l' is ignored for archives/objects" 1>&2
+ continue
+ fi
+ if test "$pass" = conv; then
+ deplibs="$deplib $deplibs"
+ continue
+ fi
+ name=`$echo "X$deplib" | $Xsed -e 's/^-l//'`
+ for searchdir in $newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path; do
+ for search_ext in .la $std_shrext .so .a; do
+ # Search the libtool library
+ lib="$searchdir/lib${name}${search_ext}"
+ if test -f "$lib"; then
+ if test "$search_ext" = ".la"; then
+ found=yes
+ else
+ found=no
+ fi
+ break 2
+ fi
+ done
+ done
+ if test "$found" != yes; then
+ # deplib doesn't seem to be a libtool library
+ if test "$linkmode,$pass" = "prog,link"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
+ fi
+ continue
+ else # deplib is a libtool library
+ # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib,
+ # We need to do some special things here, and not later.
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ case " $predeps $postdeps " in
+ *" $deplib "*)
+ if (${SED} -e '2q' $lib |
+ grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ library_names=
+ old_library=
+ case $lib in
+ */* | *\\*) . $lib ;;
+ *) . ./$lib ;;
+ esac
+ for l in $old_library $library_names; do
+ ll="$l"
+ done
+ if test "X$ll" = "X$old_library" ; then # only static version available
+ found=no
+ ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$ladir" = "X$lib" && ladir="."
+ lib=$ladir/$old_library
+ if test "$linkmode,$pass" = "prog,link"; then
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ deplibs="$deplib $deplibs"
+ test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
+ fi
+ continue
+ fi
+ fi
+ ;;
+ *) ;;
+ esac
+ fi
+ fi
+ ;; # -l
+ -L*)
+ case $linkmode in
+ lib)
+ deplibs="$deplib $deplibs"
+ test "$pass" = conv && continue
+ newdependency_libs="$deplib $newdependency_libs"
+ newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`
+ ;;
+ prog)
+ if test "$pass" = conv; then
+ deplibs="$deplib $deplibs"
+ continue
+ fi
+ if test "$pass" = scan; then
+ deplibs="$deplib $deplibs"
+ else
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ fi
+ newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`
+ ;;
+ *)
+ $echo "$modename: warning: \`-L' is ignored for archives/objects" 1>&2
+ ;;
+ esac # linkmode
+ continue
+ ;; # -L
+ -R*)
+ if test "$pass" = link; then
+ dir=`$echo "X$deplib" | $Xsed -e 's/^-R//'`
+ # Make sure the xrpath contains only unique directories.
+ case "$xrpath " in
+ *" $dir "*) ;;
+ *) xrpath="$xrpath $dir" ;;
+ esac
+ fi
+ deplibs="$deplib $deplibs"
+ continue
+ ;;
+ *.la) lib="$deplib" ;;
+ *.$libext)
+ if test "$pass" = conv; then
+ deplibs="$deplib $deplibs"
+ continue
+ fi
+ case $linkmode in
+ lib)
+ if test "$deplibs_check_method" != pass_all; then
+ $echo
+ $echo "*** Warning: Trying to link with static lib archive $deplib."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which you do not appear to have"
+ $echo "*** because the file extensions .$libext of this argument makes me believe"
+ $echo "*** that it is just a static archive that I should not used here."
+ else
+ $echo
+ $echo "*** Warning: Linking the shared library $output against the"
+ $echo "*** static library $deplib is not portable!"
+ deplibs="$deplib $deplibs"
+ fi
+ continue
+ ;;
+ prog)
+ if test "$pass" != link; then
+ deplibs="$deplib $deplibs"
+ else
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ fi
+ continue
+ ;;
+ esac # linkmode
+ ;; # *.$libext
+ *.lo | *.$objext)
+ if test "$pass" = conv; then
+ deplibs="$deplib $deplibs"
+ elif test "$linkmode" = prog; then
+ if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then
+ # If there is no dlopen support or we're linking statically,
+ # we need to preload.
+ newdlprefiles="$newdlprefiles $deplib"
+ compile_deplibs="$deplib $compile_deplibs"
+ finalize_deplibs="$deplib $finalize_deplibs"
+ else
+ newdlfiles="$newdlfiles $deplib"
+ fi
+ fi
+ continue
+ ;;
+ %DEPLIBS%)
+ alldeplibs=yes
+ continue
+ ;;
+ esac # case $deplib
+ if test "$found" = yes || test -f "$lib"; then :
+ else
+ $echo "$modename: cannot find the library \`$lib'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Check to see that this really is a libtool archive.
+ if (${SED} -e '2q' $lib | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then :
+ else
+ $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$ladir" = "X$lib" && ladir="."
+
+ dlname=
+ dlopen=
+ dlpreopen=
+ libdir=
+ library_names=
+ old_library=
+ # If the library was installed with an old release of libtool,
+ # it will not redefine variables installed, or shouldnotlink
+ installed=yes
+ shouldnotlink=no
+
+ # Read the .la file
+ case $lib in
+ */* | *\\*) . $lib ;;
+ *) . ./$lib ;;
+ esac
+
+ if test "$linkmode,$pass" = "lib,link" ||
+ test "$linkmode,$pass" = "prog,scan" ||
+ { test "$linkmode" != prog && test "$linkmode" != lib; }; then
+ test -n "$dlopen" && dlfiles="$dlfiles $dlopen"
+ test -n "$dlpreopen" && dlprefiles="$dlprefiles $dlpreopen"
+ fi
+
+ if test "$pass" = conv; then
+ # Only check for convenience libraries
+ deplibs="$lib $deplibs"
+ if test -z "$libdir"; then
+ if test -z "$old_library"; then
+ $echo "$modename: cannot find name of link library for \`$lib'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ # It is a libtool convenience library, so add in its objects.
+ convenience="$convenience $ladir/$objdir/$old_library"
+ old_convenience="$old_convenience $ladir/$objdir/$old_library"
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ deplibs="$deplib $deplibs"
+ if test "X$duplicate_deps" = "Xyes" ; then
+ case "$tmp_libs " in
+ *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;;
+ esac
+ fi
+ tmp_libs="$tmp_libs $deplib"
+ done
+ elif test "$linkmode" != prog && test "$linkmode" != lib; then
+ $echo "$modename: \`$lib' is not a convenience library" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ continue
+ fi # $pass = conv
+
+
+ # Get the name of the library we link against.
+ linklib=
+ for l in $old_library $library_names; do
+ linklib="$l"
+ done
+ if test -z "$linklib"; then
+ $echo "$modename: cannot find name of link library for \`$lib'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # This library was specified with -dlopen.
+ if test "$pass" = dlopen; then
+ if test -z "$libdir"; then
+ $echo "$modename: cannot -dlopen a convenience library: \`$lib'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ if test -z "$dlname" ||
+ test "$dlopen_support" != yes ||
+ test "$build_libtool_libs" = no; then
+ # If there is no dlname, no dlopen support or we're linking
+ # statically, we need to preload. We also need to preload any
+ # dependent libraries so libltdl's deplib preloader doesn't
+ # bomb out in the load deplibs phase.
+ dlprefiles="$dlprefiles $lib $dependency_libs"
+ else
+ newdlfiles="$newdlfiles $lib"
+ fi
+ continue
+ fi # $pass = dlopen
+
+ # We need an absolute path.
+ case $ladir in
+ [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;;
+ *)
+ abs_ladir=`cd "$ladir" && pwd`
+ if test -z "$abs_ladir"; then
+ $echo "$modename: warning: cannot determine absolute directory name of \`$ladir'" 1>&2
+ $echo "$modename: passing it literally to the linker, although it might fail" 1>&2
+ abs_ladir="$ladir"
+ fi
+ ;;
+ esac
+ laname=`$echo "X$lib" | $Xsed -e 's%^.*/%%'`
+
+ # Find the relevant object directory and library name.
+ if test "X$installed" = Xyes; then
+ if test ! -f "$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then
+ $echo "$modename: warning: library \`$lib' was moved." 1>&2
+ dir="$ladir"
+ absdir="$abs_ladir"
+ libdir="$abs_ladir"
+ else
+ dir="$libdir"
+ absdir="$libdir"
+ fi
+ else
+ dir="$ladir/$objdir"
+ absdir="$abs_ladir/$objdir"
+ # Remove this search path later
+ notinst_path="$notinst_path $abs_ladir"
+ fi # $installed = yes
+ name=`$echo "X$laname" | $Xsed -e 's/\.la$//' -e 's/^lib//'`
+
+ # This library was specified with -dlpreopen.
+ if test "$pass" = dlpreopen; then
+ if test -z "$libdir"; then
+ $echo "$modename: cannot -dlpreopen a convenience library: \`$lib'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ # Prefer using a static library (so that no silly _DYNAMIC symbols
+ # are required to link).
+ if test -n "$old_library"; then
+ newdlprefiles="$newdlprefiles $dir/$old_library"
+ # Otherwise, use the dlname, so that lt_dlopen finds it.
+ elif test -n "$dlname"; then
+ newdlprefiles="$newdlprefiles $dir/$dlname"
+ else
+ newdlprefiles="$newdlprefiles $dir/$linklib"
+ fi
+ fi # $pass = dlpreopen
+
+ if test -z "$libdir"; then
+ # Link the convenience library
+ if test "$linkmode" = lib; then
+ deplibs="$dir/$old_library $deplibs"
+ elif test "$linkmode,$pass" = "prog,link"; then
+ compile_deplibs="$dir/$old_library $compile_deplibs"
+ finalize_deplibs="$dir/$old_library $finalize_deplibs"
+ else
+ deplibs="$lib $deplibs" # used for prog,scan pass
+ fi
+ continue
+ fi
+
+
+ if test "$linkmode" = prog && test "$pass" != link; then
+ newlib_search_path="$newlib_search_path $ladir"
+ deplibs="$lib $deplibs"
+
+ linkalldeplibs=no
+ if test "$link_all_deplibs" != no || test -z "$library_names" ||
+ test "$build_libtool_libs" = no; then
+ linkalldeplibs=yes
+ fi
+
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ case $deplib in
+ -L*) newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`;; ### testsuite: skip nested quoting test
+ esac
+ # Need to link against all dependency_libs?
+ if test "$linkalldeplibs" = yes; then
+ deplibs="$deplib $deplibs"
+ else
+ # Need to hardcode shared library paths
+ # or/and link against static libraries
+ newdependency_libs="$deplib $newdependency_libs"
+ fi
+ if test "X$duplicate_deps" = "Xyes" ; then
+ case "$tmp_libs " in
+ *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;;
+ esac
+ fi
+ tmp_libs="$tmp_libs $deplib"
+ done # for deplib
+ continue
+ fi # $linkmode = prog...
+
+ if test "$linkmode,$pass" = "prog,link"; then
+ if test -n "$library_names" &&
+ { test "$prefer_static_libs" = no || test -z "$old_library"; }; then
+ # We need to hardcode the library path
+ if test -n "$shlibpath_var"; then
+ # Make sure the rpath contains only unique directories.
+ case "$temp_rpath " in
+ *" $dir "*) ;;
+ *" $absdir "*) ;;
+ *) temp_rpath="$temp_rpath $dir" ;;
+ esac
+ fi
+
+ # Hardcode the library path.
+ # Skip directories that are in the system default run-time
+ # search path.
+ case " $sys_lib_dlsearch_path " in
+ *" $absdir "*) ;;
+ *)
+ case "$compile_rpath " in
+ *" $absdir "*) ;;
+ *) compile_rpath="$compile_rpath $absdir"
+ esac
+ ;;
+ esac
+ case " $sys_lib_dlsearch_path " in
+ *" $libdir "*) ;;
+ *)
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) finalize_rpath="$finalize_rpath $libdir"
+ esac
+ ;;
+ esac
+ fi # $linkmode,$pass = prog,link...
+
+ if test "$alldeplibs" = yes &&
+ { test "$deplibs_check_method" = pass_all ||
+ { test "$build_libtool_libs" = yes &&
+ test -n "$library_names"; }; }; then
+ # We only need to search for static libraries
+ continue
+ fi
+ fi
+
+ link_static=no # Whether the deplib will be linked statically
+ if test -n "$library_names" &&
+ { test "$prefer_static_libs" = no || test -z "$old_library"; }; then
+ if test "$installed" = no; then
+ notinst_deplibs="$notinst_deplibs $lib"
+ need_relink=yes
+ fi
+ # This is a shared library
+
+ # Warn about portability, can't link against -module's on
+ # some systems (darwin)
+ if test "$shouldnotlink" = yes && test "$pass" = link ; then
+ $echo
+ if test "$linkmode" = prog; then
+ $echo "*** Warning: Linking the executable $output against the loadable module"
+ else
+ $echo "*** Warning: Linking the shared library $output against the loadable module"
+ fi
+ $echo "*** $linklib is not portable!"
+ fi
+ if test "$linkmode" = lib &&
+ test "$hardcode_into_libs" = yes; then
+ # Hardcode the library path.
+ # Skip directories that are in the system default run-time
+ # search path.
+ case " $sys_lib_dlsearch_path " in
+ *" $absdir "*) ;;
+ *)
+ case "$compile_rpath " in
+ *" $absdir "*) ;;
+ *) compile_rpath="$compile_rpath $absdir"
+ esac
+ ;;
+ esac
+ case " $sys_lib_dlsearch_path " in
+ *" $libdir "*) ;;
+ *)
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) finalize_rpath="$finalize_rpath $libdir"
+ esac
+ ;;
+ esac
+ fi
+
+ if test -n "$old_archive_from_expsyms_cmds"; then
+ # figure out the soname
+ set dummy $library_names
+ realname="$2"
+ shift; shift
+ libname=`eval \\$echo \"$libname_spec\"`
+ # use dlname if we got it. it's perfectly good, no?
+ if test -n "$dlname"; then
+ soname="$dlname"
+ elif test -n "$soname_spec"; then
+ # bleh windows
+ case $host in
+ *cygwin* | mingw*)
+ major=`expr $current - $age`
+ versuffix="-$major"
+ ;;
+ esac
+ eval soname=\"$soname_spec\"
+ else
+ soname="$realname"
+ fi
+
+ # Make a new name for the extract_expsyms_cmds to use
+ soroot="$soname"
+ soname=`$echo $soroot | ${SED} -e 's/^.*\///'`
+ newlib="libimp-`$echo $soname | ${SED} 's/^lib//;s/\.dll$//'`.a"
+
+ # If the library has no export list, then create one now
+ if test -f "$output_objdir/$soname-def"; then :
+ else
+ $show "extracting exported symbol list from \`$soname'"
+ save_ifs="$IFS"; IFS='~'
+ cmds=$extract_expsyms_cmds
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ fi
+
+ # Create $newlib
+ if test -f "$output_objdir/$newlib"; then :; else
+ $show "generating import library for \`$soname'"
+ save_ifs="$IFS"; IFS='~'
+ cmds=$old_archive_from_expsyms_cmds
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ fi
+ # make sure the library variables are pointing to the new library
+ dir=$output_objdir
+ linklib=$newlib
+ fi # test -n "$old_archive_from_expsyms_cmds"
+
+ if test "$linkmode" = prog || test "$mode" != relink; then
+ add_shlibpath=
+ add_dir=
+ add=
+ lib_linked=yes
+ case $hardcode_action in
+ immediate | unsupported)
+ if test "$hardcode_direct" = no; then
+ add="$dir/$linklib"
+ case $host in
+ *-*-sco3.2v5* ) add_dir="-L$dir" ;;
+ *-*-darwin* )
+ # if the lib is a module then we can not link against
+ # it, someone is ignoring the new warnings I added
+ if /usr/bin/file -L $add 2> /dev/null | $EGREP "bundle" >/dev/null ; then
+ $echo "** Warning, lib $linklib is a module, not a shared library"
+ if test -z "$old_library" ; then
+ $echo
+ $echo "** And there doesn't seem to be a static archive available"
+ $echo "** The link will probably fail, sorry"
+ else
+ add="$dir/$old_library"
+ fi
+ fi
+ esac
+ elif test "$hardcode_minus_L" = no; then
+ case $host in
+ *-*-sunos*) add_shlibpath="$dir" ;;
+ esac
+ add_dir="-L$dir"
+ add="-l$name"
+ elif test "$hardcode_shlibpath_var" = no; then
+ add_shlibpath="$dir"
+ add="-l$name"
+ else
+ lib_linked=no
+ fi
+ ;;
+ relink)
+ if test "$hardcode_direct" = yes; then
+ add="$dir/$linklib"
+ elif test "$hardcode_minus_L" = yes; then
+ add_dir="-L$dir"
+ # Try looking first in the location we're being installed to.
+ if test -n "$inst_prefix_dir"; then
+ case "$libdir" in
+ [\\/]*)
+ add_dir="$add_dir -L$inst_prefix_dir$libdir"
+ ;;
+ esac
+ fi
+ add="-l$name"
+ elif test "$hardcode_shlibpath_var" = yes; then
+ add_shlibpath="$dir"
+ add="-l$name"
+ else
+ lib_linked=no
+ fi
+ ;;
+ *) lib_linked=no ;;
+ esac
+
+ if test "$lib_linked" != yes; then
+ $echo "$modename: configuration error: unsupported hardcode properties"
+ exit $EXIT_FAILURE
+ fi
+
+ if test -n "$add_shlibpath"; then
+ case :$compile_shlibpath: in
+ *":$add_shlibpath:"*) ;;
+ *) compile_shlibpath="$compile_shlibpath$add_shlibpath:" ;;
+ esac
+ fi
+ if test "$linkmode" = prog; then
+ test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs"
+ test -n "$add" && compile_deplibs="$add $compile_deplibs"
+ else
+ test -n "$add_dir" && deplibs="$add_dir $deplibs"
+ test -n "$add" && deplibs="$add $deplibs"
+ if test "$hardcode_direct" != yes && \
+ test "$hardcode_minus_L" != yes && \
+ test "$hardcode_shlibpath_var" = yes; then
+ case :$finalize_shlibpath: in
+ *":$libdir:"*) ;;
+ *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;;
+ esac
+ fi
+ fi
+ fi
+
+ if test "$linkmode" = prog || test "$mode" = relink; then
+ add_shlibpath=
+ add_dir=
+ add=
+ # Finalize command for both is simple: just hardcode it.
+ if test "$hardcode_direct" = yes; then
+ add="$libdir/$linklib"
+ elif test "$hardcode_minus_L" = yes; then
+ add_dir="-L$libdir"
+ add="-l$name"
+ elif test "$hardcode_shlibpath_var" = yes; then
+ case :$finalize_shlibpath: in
+ *":$libdir:"*) ;;
+ *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;;
+ esac
+ add="-l$name"
+ elif test "$hardcode_automatic" = yes; then
+ if test -n "$inst_prefix_dir" &&
+ test -f "$inst_prefix_dir$libdir/$linklib" ; then
+ add="$inst_prefix_dir$libdir/$linklib"
+ else
+ add="$libdir/$linklib"
+ fi
+ else
+ # We cannot seem to hardcode it, guess we'll fake it.
+ add_dir="-L$libdir"
+ # Try looking first in the location we're being installed to.
+ if test -n "$inst_prefix_dir"; then
+ case "$libdir" in
+ [\\/]*)
+ add_dir="$add_dir -L$inst_prefix_dir$libdir"
+ ;;
+ esac
+ fi
+ add="-l$name"
+ fi
+
+ if test "$linkmode" = prog; then
+ test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs"
+ test -n "$add" && finalize_deplibs="$add $finalize_deplibs"
+ else
+ test -n "$add_dir" && deplibs="$add_dir $deplibs"
+ test -n "$add" && deplibs="$add $deplibs"
+ fi
+ fi
+ elif test "$linkmode" = prog; then
+ # Here we assume that one of hardcode_direct or hardcode_minus_L
+ # is not unsupported. This is valid on all known static and
+ # shared platforms.
+ if test "$hardcode_direct" != unsupported; then
+ test -n "$old_library" && linklib="$old_library"
+ compile_deplibs="$dir/$linklib $compile_deplibs"
+ finalize_deplibs="$dir/$linklib $finalize_deplibs"
+ else
+ compile_deplibs="-l$name -L$dir $compile_deplibs"
+ finalize_deplibs="-l$name -L$dir $finalize_deplibs"
+ fi
+ elif test "$build_libtool_libs" = yes; then
+ # Not a shared library
+ if test "$deplibs_check_method" != pass_all; then
+ # We're trying link a shared library against a static one
+ # but the system doesn't support it.
+
+ # Just print a warning and add the library to dependency_libs so
+ # that the program can be linked against the static library.
+ $echo
+ $echo "*** Warning: This system can not link to static lib archive $lib."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which you do not appear to have."
+ if test "$module" = yes; then
+ $echo "*** But as you try to build a module library, libtool will still create "
+ $echo "*** a static module, that should work as long as the dlopening application"
+ $echo "*** is linked with the -dlopen flag to resolve symbols at runtime."
+ if test -z "$global_symbol_pipe"; then
+ $echo
+ $echo "*** However, this would only work if libtool was able to extract symbol"
+ $echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
+ $echo "*** not find such a program. So, this module is probably useless."
+ $echo "*** \`nm' from GNU binutils and a full rebuild may help."
+ fi
+ if test "$build_old_libs" = no; then
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ fi
+ else
+ convenience="$convenience $dir/$old_library"
+ old_convenience="$old_convenience $dir/$old_library"
+ deplibs="$dir/$old_library $deplibs"
+ link_static=yes
+ fi
+ fi # link shared/static library?
+
+ if test "$linkmode" = lib; then
+ if test -n "$dependency_libs" &&
+ { test "$hardcode_into_libs" != yes ||
+ test "$build_old_libs" = yes ||
+ test "$link_static" = yes; }; then
+ # Extract -R from dependency_libs
+ temp_deplibs=
+ for libdir in $dependency_libs; do
+ case $libdir in
+ -R*) temp_xrpath=`$echo "X$libdir" | $Xsed -e 's/^-R//'`
+ case " $xrpath " in
+ *" $temp_xrpath "*) ;;
+ *) xrpath="$xrpath $temp_xrpath";;
+ esac;;
+ *) temp_deplibs="$temp_deplibs $libdir";;
+ esac
+ done
+ dependency_libs="$temp_deplibs"
+ fi
+
+ newlib_search_path="$newlib_search_path $absdir"
+ # Link against this library
+ test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs"
+ # ... and its dependency_libs
+ tmp_libs=
+ for deplib in $dependency_libs; do
+ newdependency_libs="$deplib $newdependency_libs"
+ if test "X$duplicate_deps" = "Xyes" ; then
+ case "$tmp_libs " in
+ *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;;
+ esac
+ fi
+ tmp_libs="$tmp_libs $deplib"
+ done
+
+ if test "$link_all_deplibs" != no; then
+ # Add the search paths of all dependency libraries
+ for deplib in $dependency_libs; do
+ case $deplib in
+ -L*) path="$deplib" ;;
+ *.la)
+ dir=`$echo "X$deplib" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$dir" = "X$deplib" && dir="."
+ # We need an absolute path.
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;;
+ *)
+ absdir=`cd "$dir" && pwd`
+ if test -z "$absdir"; then
+ $echo "$modename: warning: cannot determine absolute directory name of \`$dir'" 1>&2
+ absdir="$dir"
+ fi
+ ;;
+ esac
+ if grep "^installed=no" $deplib > /dev/null; then
+ path="$absdir/$objdir"
+ else
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
+ if test -z "$libdir"; then
+ $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ if test "$absdir" != "$libdir"; then
+ $echo "$modename: warning: \`$deplib' seems to be moved" 1>&2
+ fi
+ path="$absdir"
+ fi
+ depdepl=
+ case $host in
+ *-*-darwin*)
+ # we do not want to link against static libs,
+ # but need to link against shared
+ eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib`
+ if test -n "$deplibrary_names" ; then
+ for tmp in $deplibrary_names ; do
+ depdepl=$tmp
+ done
+ if test -f "$path/$depdepl" ; then
+ depdepl="$path/$depdepl"
+ fi
+ # do not add paths which are already there
+ case " $newlib_search_path " in
+ *" $path "*) ;;
+ *) newlib_search_path="$newlib_search_path $path";;
+ esac
+ fi
+ path=""
+ ;;
+ *)
+ path="-L$path"
+ ;;
+ esac
+ ;;
+ -l*)
+ case $host in
+ *-*-darwin*)
+ # Again, we only want to link against shared libraries
+ eval tmp_libs=`$echo "X$deplib" | $Xsed -e "s,^\-l,,"`
+ for tmp in $newlib_search_path ; do
+ if test -f "$tmp/lib$tmp_libs.dylib" ; then
+ eval depdepl="$tmp/lib$tmp_libs.dylib"
+ break
+ fi
+ done
+ path=""
+ ;;
+ *) continue ;;
+ esac
+ ;;
+ *) continue ;;
+ esac
+ case " $deplibs " in
+ *" $depdepl "*) ;;
+ *) deplibs="$depdepl $deplibs" ;;
+ esac
+ case " $deplibs " in
+ *" $path "*) ;;
+ *) deplibs="$deplibs $path" ;;
+ esac
+ done
+ fi # link_all_deplibs != no
+ fi # linkmode = lib
+ done # for deplib in $libs
+ dependency_libs="$newdependency_libs"
+ if test "$pass" = dlpreopen; then
+ # Link the dlpreopened libraries before other libraries
+ for deplib in $save_deplibs; do
+ deplibs="$deplib $deplibs"
+ done
+ fi
+ if test "$pass" != dlopen; then
+ if test "$pass" != conv; then
+ # Make sure lib_search_path contains only unique directories.
+ lib_search_path=
+ for dir in $newlib_search_path; do
+ case "$lib_search_path " in
+ *" $dir "*) ;;
+ *) lib_search_path="$lib_search_path $dir" ;;
+ esac
+ done
+ newlib_search_path=
+ fi
+
+ if test "$linkmode,$pass" != "prog,link"; then
+ vars="deplibs"
+ else
+ vars="compile_deplibs finalize_deplibs"
+ fi
+ for var in $vars dependency_libs; do
+ # Add libraries to $var in reverse order
+ eval tmp_libs=\"\$$var\"
+ new_libs=
+ for deplib in $tmp_libs; do
+ # FIXME: Pedantically, this is the right thing to do, so
+ # that some nasty dependency loop isn't accidentally
+ # broken:
+ #new_libs="$deplib $new_libs"
+ # Pragmatically, this seems to cause very few problems in
+ # practice:
+ case $deplib in
+ -L*) new_libs="$deplib $new_libs" ;;
+ -R*) ;;
+ *)
+ # And here is the reason: when a library appears more
+ # than once as an explicit dependence of a library, or
+ # is implicitly linked in more than once by the
+ # compiler, it is considered special, and multiple
+ # occurrences thereof are not removed. Compare this
+ # with having the same library being listed as a
+ # dependency of multiple other libraries: in this case,
+ # we know (pedantically, we assume) the library does not
+ # need to be listed more than once, so we keep only the
+ # last copy. This is not always right, but it is rare
+ # enough that we require users that really mean to play
+ # such unportable linking tricks to link the library
+ # using -Wl,-lname, so that libtool does not consider it
+ # for duplicate removal.
+ case " $specialdeplibs " in
+ *" $deplib "*) new_libs="$deplib $new_libs" ;;
+ *)
+ case " $new_libs " in
+ *" $deplib "*) ;;
+ *) new_libs="$deplib $new_libs" ;;
+ esac
+ ;;
+ esac
+ ;;
+ esac
+ done
+ tmp_libs=
+ for deplib in $new_libs; do
+ case $deplib in
+ -L*)
+ case " $tmp_libs " in
+ *" $deplib "*) ;;
+ *) tmp_libs="$tmp_libs $deplib" ;;
+ esac
+ ;;
+ *) tmp_libs="$tmp_libs $deplib" ;;
+ esac
+ done
+ eval $var=\"$tmp_libs\"
+ done # for var
+ fi
+ # Last step: remove runtime libs from dependency_libs
+ # (they stay in deplibs)
+ tmp_libs=
+ for i in $dependency_libs ; do
+ case " $predeps $postdeps $compiler_lib_search_path " in
+ *" $i "*)
+ i=""
+ ;;
+ esac
+ if test -n "$i" ; then
+ tmp_libs="$tmp_libs $i"
+ fi
+ done
+ dependency_libs=$tmp_libs
+ done # for pass
+ if test "$linkmode" = prog; then
+ dlfiles="$newdlfiles"
+ dlprefiles="$newdlprefiles"
+ fi
+
+ case $linkmode in
+ oldlib)
+ if test -n "$deplibs"; then
+ $echo "$modename: warning: \`-l' and \`-L' are ignored for archives" 1>&2
+ fi
+
+ if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
+ $echo "$modename: warning: \`-dlopen' is ignored for archives" 1>&2
+ fi
+
+ if test -n "$rpath"; then
+ $echo "$modename: warning: \`-rpath' is ignored for archives" 1>&2
+ fi
+
+ if test -n "$xrpath"; then
+ $echo "$modename: warning: \`-R' is ignored for archives" 1>&2
+ fi
+
+ if test -n "$vinfo"; then
+ $echo "$modename: warning: \`-version-info/-version-number' is ignored for archives" 1>&2
+ fi
+
+ if test -n "$release"; then
+ $echo "$modename: warning: \`-release' is ignored for archives" 1>&2
+ fi
+
+ if test -n "$export_symbols" || test -n "$export_symbols_regex"; then
+ $echo "$modename: warning: \`-export-symbols' is ignored for archives" 1>&2
+ fi
+
+ # Now set the variables for building old libraries.
+ build_libtool_libs=no
+ oldlibs="$output"
+ objs="$objs$old_deplibs"
+ ;;
+
+ lib)
+ # Make sure we only generate libraries of the form `libNAME.la'.
+ case $outputname in
+ lib*)
+ name=`$echo "X$outputname" | $Xsed -e 's/\.la$//' -e 's/^lib//'`
+ eval shared_ext=\"$shrext_cmds\"
+ eval libname=\"$libname_spec\"
+ ;;
+ *)
+ if test "$module" = no; then
+ $echo "$modename: libtool library \`$output' must begin with \`lib'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ if test "$need_lib_prefix" != no; then
+ # Add the "lib" prefix for modules if required
+ name=`$echo "X$outputname" | $Xsed -e 's/\.la$//'`
+ eval shared_ext=\"$shrext_cmds\"
+ eval libname=\"$libname_spec\"
+ else
+ libname=`$echo "X$outputname" | $Xsed -e 's/\.la$//'`
+ fi
+ ;;
+ esac
+
+ if test -n "$objs"; then
+ if test "$deplibs_check_method" != pass_all; then
+ $echo "$modename: cannot build libtool library \`$output' from non-libtool objects on this host:$objs" 2>&1
+ exit $EXIT_FAILURE
+ else
+ $echo
+ $echo "*** Warning: Linking the shared library $output against the non-libtool"
+ $echo "*** objects $objs is not portable!"
+ libobjs="$libobjs $objs"
+ fi
+ fi
+
+ if test "$dlself" != no; then
+ $echo "$modename: warning: \`-dlopen self' is ignored for libtool libraries" 1>&2
+ fi
+
+ set dummy $rpath
+ if test "$#" -gt 2; then
+ $echo "$modename: warning: ignoring multiple \`-rpath's for a libtool library" 1>&2
+ fi
+ install_libdir="$2"
+
+ oldlibs=
+ if test -z "$rpath"; then
+ if test "$build_libtool_libs" = yes; then
+ # Building a libtool convenience library.
+ # Some compilers have problems with a `.al' extension so
+ # convenience libraries should have the same extension an
+ # archive normally would.
+ oldlibs="$output_objdir/$libname.$libext $oldlibs"
+ build_libtool_libs=convenience
+ build_old_libs=yes
+ fi
+
+ if test -n "$vinfo"; then
+ $echo "$modename: warning: \`-version-info/-version-number' is ignored for convenience libraries" 1>&2
+ fi
+
+ if test -n "$release"; then
+ $echo "$modename: warning: \`-release' is ignored for convenience libraries" 1>&2
+ fi
+ else
+
+ # Parse the version information argument.
+ save_ifs="$IFS"; IFS=':'
+ set dummy $vinfo 0 0 0
+ IFS="$save_ifs"
+
+ if test -n "$8"; then
+ $echo "$modename: too many parameters to \`-version-info'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # convert absolute version numbers to libtool ages
+ # this retains compatibility with .la files and attempts
+ # to make the code below a bit more comprehensible
+
+ case $vinfo_number in
+ yes)
+ number_major="$2"
+ number_minor="$3"
+ number_revision="$4"
+ #
+ # There are really only two kinds -- those that
+ # use the current revision as the major version
+ # and those that subtract age and use age as
+ # a minor version. But, then there is irix
+ # which has an extra 1 added just for fun
+ #
+ case $version_type in
+ darwin|linux|osf|windows)
+ current=`expr $number_major + $number_minor`
+ age="$number_minor"
+ revision="$number_revision"
+ ;;
+ freebsd-aout|freebsd-elf|sunos)
+ current="$number_major"
+ revision="$number_minor"
+ age="0"
+ ;;
+ irix|nonstopux)
+ current=`expr $number_major + $number_minor - 1`
+ age="$number_minor"
+ revision="$number_minor"
+ ;;
+ esac
+ ;;
+ no)
+ current="$2"
+ revision="$3"
+ age="$4"
+ ;;
+ esac
+
+ # Check that each of the things are valid numbers.
+ case $current in
+ [0-9]*) ;;
+ *)
+ $echo "$modename: CURRENT \`$current' is not a nonnegative integer" 1>&2
+ $echo "$modename: \`$vinfo' is not valid version information" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ case $revision in
+ [0-9]*) ;;
+ *)
+ $echo "$modename: REVISION \`$revision' is not a nonnegative integer" 1>&2
+ $echo "$modename: \`$vinfo' is not valid version information" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ case $age in
+ [0-9]*) ;;
+ *)
+ $echo "$modename: AGE \`$age' is not a nonnegative integer" 1>&2
+ $echo "$modename: \`$vinfo' is not valid version information" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ if test "$age" -gt "$current"; then
+ $echo "$modename: AGE \`$age' is greater than the current interface number \`$current'" 1>&2
+ $echo "$modename: \`$vinfo' is not valid version information" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Calculate the version variables.
+ major=
+ versuffix=
+ verstring=
+ case $version_type in
+ none) ;;
+
+ darwin)
+ # Like Linux, but with the current version available in
+ # verstring for coding it into the library header
+ major=.`expr $current - $age`
+ versuffix="$major.$age.$revision"
+ # Darwin ld doesn't like 0 for these options...
+ minor_current=`expr $current + 1`
+ verstring="-compatibility_version $minor_current -current_version $minor_current.$revision"
+ ;;
+
+ freebsd-aout)
+ major=".$current"
+ versuffix=".$current.$revision";
+ ;;
+
+ freebsd-elf)
+ major=".$current"
+ versuffix=".$current";
+ ;;
+
+ irix | nonstopux)
+ major=`expr $current - $age + 1`
+
+ case $version_type in
+ nonstopux) verstring_prefix=nonstopux ;;
+ *) verstring_prefix=sgi ;;
+ esac
+ verstring="$verstring_prefix$major.$revision"
+
+ # Add in all the interfaces that we are compatible with.
+ loop=$revision
+ while test "$loop" -ne 0; do
+ iface=`expr $revision - $loop`
+ loop=`expr $loop - 1`
+ verstring="$verstring_prefix$major.$iface:$verstring"
+ done
+
+ # Before this point, $major must not contain `.'.
+ major=.$major
+ versuffix="$major.$revision"
+ ;;
+
+ linux)
+ major=.`expr $current - $age`
+ versuffix="$major.$age.$revision"
+ ;;
+
+ osf)
+ major=.`expr $current - $age`
+ versuffix=".$current.$age.$revision"
+ verstring="$current.$age.$revision"
+
+ # Add in all the interfaces that we are compatible with.
+ loop=$age
+ while test "$loop" -ne 0; do
+ iface=`expr $current - $loop`
+ loop=`expr $loop - 1`
+ verstring="$verstring:${iface}.0"
+ done
+
+ # Make executables depend on our current version.
+ verstring="$verstring:${current}.0"
+ ;;
+
+ sunos)
+ major=".$current"
+ versuffix=".$current.$revision"
+ ;;
+
+ windows)
+ # Use '-' rather than '.', since we only want one
+ # extension on DOS 8.3 filesystems.
+ major=`expr $current - $age`
+ versuffix="-$major"
+ ;;
+
+ *)
+ $echo "$modename: unknown library version type \`$version_type'" 1>&2
+ $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ # Clear the version info if we defaulted, and they specified a release.
+ if test -z "$vinfo" && test -n "$release"; then
+ major=
+ case $version_type in
+ darwin)
+ # we can't check for "0.0" in archive_cmds due to quoting
+ # problems, so we reset it completely
+ verstring=
+ ;;
+ *)
+ verstring="0.0"
+ ;;
+ esac
+ if test "$need_version" = no; then
+ versuffix=
+ else
+ versuffix=".0.0"
+ fi
+ fi
+
+ # Remove version info from name if versioning should be avoided
+ if test "$avoid_version" = yes && test "$need_version" = no; then
+ major=
+ versuffix=
+ verstring=""
+ fi
+
+ # Check to see if the archive will have undefined symbols.
+ if test "$allow_undefined" = yes; then
+ if test "$allow_undefined_flag" = unsupported; then
+ $echo "$modename: warning: undefined symbols not allowed in $host shared libraries" 1>&2
+ build_libtool_libs=no
+ build_old_libs=yes
+ fi
+ else
+ # Don't allow undefined symbols.
+ allow_undefined_flag="$no_undefined_flag"
+ fi
+ fi
+
+ if test "$mode" != relink; then
+ # Remove our outputs, but don't remove object files since they
+ # may have been created when compiling PIC objects.
+ removelist=
+ tempremovelist=`$echo "$output_objdir/*"`
+ for p in $tempremovelist; do
+ case $p in
+ *.$objext)
+ ;;
+ $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*)
+ if test "X$precious_files_regex" != "X"; then
+ if echo $p | $EGREP -e "$precious_files_regex" >/dev/null 2>&1
+ then
+ continue
+ fi
+ fi
+ removelist="$removelist $p"
+ ;;
+ *) ;;
+ esac
+ done
+ if test -n "$removelist"; then
+ $show "${rm}r $removelist"
+ $run ${rm}r $removelist
+ fi
+ fi
+
+ # Now set the variables for building old libraries.
+ if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then
+ oldlibs="$oldlibs $output_objdir/$libname.$libext"
+
+ # Transform .lo files to .o files.
+ oldobjs="$objs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}'$/d' -e "$lo2o" | $NL2SP`
+ fi
+
+ # Eliminate all temporary directories.
+ for path in $notinst_path; do
+ lib_search_path=`$echo "$lib_search_path " | ${SED} -e 's% $path % %g'`
+ deplibs=`$echo "$deplibs " | ${SED} -e 's% -L$path % %g'`
+ dependency_libs=`$echo "$dependency_libs " | ${SED} -e 's% -L$path % %g'`
+ done
+
+ if test -n "$xrpath"; then
+ # If the user specified any rpath flags, then add them.
+ temp_xrpath=
+ for libdir in $xrpath; do
+ temp_xrpath="$temp_xrpath -R$libdir"
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) finalize_rpath="$finalize_rpath $libdir" ;;
+ esac
+ done
+ if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then
+ dependency_libs="$temp_xrpath $dependency_libs"
+ fi
+ fi
+
+ # Make sure dlfiles contains only unique files that won't be dlpreopened
+ old_dlfiles="$dlfiles"
+ dlfiles=
+ for lib in $old_dlfiles; do
+ case " $dlprefiles $dlfiles " in
+ *" $lib "*) ;;
+ *) dlfiles="$dlfiles $lib" ;;
+ esac
+ done
+
+ # Make sure dlprefiles contains only unique files
+ old_dlprefiles="$dlprefiles"
+ dlprefiles=
+ for lib in $old_dlprefiles; do
+ case "$dlprefiles " in
+ *" $lib "*) ;;
+ *) dlprefiles="$dlprefiles $lib" ;;
+ esac
+ done
+
+ if test "$build_libtool_libs" = yes; then
+ if test -n "$rpath"; then
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos*)
+ # these systems don't actually have a c library (as such)!
+ ;;
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # Rhapsody C library is in the System framework
+ deplibs="$deplibs -framework System"
+ ;;
+ *-*-netbsd*)
+ # Don't link with libc until the a.out ld.so is fixed.
+ ;;
+ *-*-openbsd* | *-*-freebsd*)
+ # Do not include libc due to us having libc/libc_r.
+ test "X$arg" = "X-lc" && continue
+ ;;
+ *)
+ # Add libc to deplibs on all other systems if necessary.
+ if test "$build_libtool_need_lc" = "yes"; then
+ deplibs="$deplibs -lc"
+ fi
+ ;;
+ esac
+ fi
+
+ # Transform deplibs into only deplibs that can be linked in shared.
+ name_save=$name
+ libname_save=$libname
+ release_save=$release
+ versuffix_save=$versuffix
+ major_save=$major
+ # I'm not sure if I'm treating the release correctly. I think
+ # release should show up in the -l (ie -lgmp5) so we don't want to
+ # add it in twice. Is that correct?
+ release=""
+ versuffix=""
+ major=""
+ newdeplibs=
+ droppeddeps=no
+ case $deplibs_check_method in
+ pass_all)
+ # Don't check for shared/static. Everything works.
+ # This might be a little naive. We might want to check
+ # whether the library exists or not. But this is on
+ # osf3 & osf4 and I'm not really sure... Just
+ # implementing what was already the behavior.
+ newdeplibs=$deplibs
+ ;;
+ test_compile)
+ # This code stresses the "libraries are programs" paradigm to its
+ # limits. Maybe even breaks it. We compile a program, linking it
+ # against the deplibs as a proxy for the library. Then we can check
+ # whether they linked in statically or dynamically with ldd.
+ $rm conftest.c
+ cat > conftest.c <<EOF
+ int main() { return 0; }
+EOF
+ $rm conftest
+ $LTCC -o conftest conftest.c $deplibs
+ if test "$?" -eq 0 ; then
+ ldd_output=`ldd conftest`
+ for i in $deplibs; do
+ name="`expr $i : '-l\(.*\)'`"
+ # If $name is empty we are operating on a -L argument.
+ if test "$name" != "" && test "$name" -ne "0"; then
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ case " $predeps $postdeps " in
+ *" $i "*)
+ newdeplibs="$newdeplibs $i"
+ i=""
+ ;;
+ esac
+ fi
+ if test -n "$i" ; then
+ libname=`eval \\$echo \"$libname_spec\"`
+ deplib_matches=`eval \\$echo \"$library_names_spec\"`
+ set dummy $deplib_matches
+ deplib_match=$2
+ if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
+ newdeplibs="$newdeplibs $i"
+ else
+ droppeddeps=yes
+ $echo
+ $echo "*** Warning: dynamic linker does not accept needed library $i."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which I believe you do not have"
+ $echo "*** because a test_compile did reveal that the linker did not use it for"
+ $echo "*** its dynamic dependency list that programs get resolved with at runtime."
+ fi
+ fi
+ else
+ newdeplibs="$newdeplibs $i"
+ fi
+ done
+ else
+ # Error occurred in the first compile. Let's try to salvage
+ # the situation: Compile a separate program for each library.
+ for i in $deplibs; do
+ name="`expr $i : '-l\(.*\)'`"
+ # If $name is empty we are operating on a -L argument.
+ if test "$name" != "" && test "$name" != "0"; then
+ $rm conftest
+ $LTCC -o conftest conftest.c $i
+ # Did it work?
+ if test "$?" -eq 0 ; then
+ ldd_output=`ldd conftest`
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ case " $predeps $postdeps " in
+ *" $i "*)
+ newdeplibs="$newdeplibs $i"
+ i=""
+ ;;
+ esac
+ fi
+ if test -n "$i" ; then
+ libname=`eval \\$echo \"$libname_spec\"`
+ deplib_matches=`eval \\$echo \"$library_names_spec\"`
+ set dummy $deplib_matches
+ deplib_match=$2
+ if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
+ newdeplibs="$newdeplibs $i"
+ else
+ droppeddeps=yes
+ $echo
+ $echo "*** Warning: dynamic linker does not accept needed library $i."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which you do not appear to have"
+ $echo "*** because a test_compile did reveal that the linker did not use this one"
+ $echo "*** as a dynamic dependency that programs can get resolved with at runtime."
+ fi
+ fi
+ else
+ droppeddeps=yes
+ $echo
+ $echo "*** Warning! Library $i is needed by this library but I was not able to"
+ $echo "*** make it link in! You will probably need to install it or some"
+ $echo "*** library that it depends on before this library will be fully"
+ $echo "*** functional. Installing it before continuing would be even better."
+ fi
+ else
+ newdeplibs="$newdeplibs $i"
+ fi
+ done
+ fi
+ ;;
+ file_magic*)
+ set dummy $deplibs_check_method
+ file_magic_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"`
+ for a_deplib in $deplibs; do
+ name="`expr $a_deplib : '-l\(.*\)'`"
+ # If $name is empty we are operating on a -L argument.
+ if test "$name" != "" && test "$name" != "0"; then
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ case " $predeps $postdeps " in
+ *" $a_deplib "*)
+ newdeplibs="$newdeplibs $a_deplib"
+ a_deplib=""
+ ;;
+ esac
+ fi
+ if test -n "$a_deplib" ; then
+ libname=`eval \\$echo \"$libname_spec\"`
+ for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
+ potential_libs=`ls $i/$libname[.-]* 2>/dev/null`
+ for potent_lib in $potential_libs; do
+ # Follow soft links.
+ if ls -lLd "$potent_lib" 2>/dev/null \
+ | grep " -> " >/dev/null; then
+ continue
+ fi
+ # The statement above tries to avoid entering an
+ # endless loop below, in case of cyclic links.
+ # We might still enter an endless loop, since a link
+ # loop can be closed while we follow links,
+ # but so what?
+ potlib="$potent_lib"
+ while test -h "$potlib" 2>/dev/null; do
+ potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'`
+ case $potliblink in
+ [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";;
+ *) potlib=`$echo "X$potlib" | $Xsed -e 's,[^/]*$,,'`"$potliblink";;
+ esac
+ done
+ if eval $file_magic_cmd \"\$potlib\" 2>/dev/null \
+ | ${SED} 10q \
+ | $EGREP "$file_magic_regex" > /dev/null; then
+ newdeplibs="$newdeplibs $a_deplib"
+ a_deplib=""
+ break 2
+ fi
+ done
+ done
+ fi
+ if test -n "$a_deplib" ; then
+ droppeddeps=yes
+ $echo
+ $echo "*** Warning: linker path does not have real file for library $a_deplib."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which you do not appear to have"
+ $echo "*** because I did check the linker path looking for a file starting"
+ if test -z "$potlib" ; then
+ $echo "*** with $libname but no candidates were found. (...for file magic test)"
+ else
+ $echo "*** with $libname and none of the candidates passed a file format test"
+ $echo "*** using a file magic. Last file checked: $potlib"
+ fi
+ fi
+ else
+ # Add a -L argument.
+ newdeplibs="$newdeplibs $a_deplib"
+ fi
+ done # Gone through all deplibs.
+ ;;
+ match_pattern*)
+ set dummy $deplibs_check_method
+ match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"`
+ for a_deplib in $deplibs; do
+ name="`expr $a_deplib : '-l\(.*\)'`"
+ # If $name is empty we are operating on a -L argument.
+ if test -n "$name" && test "$name" != "0"; then
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ case " $predeps $postdeps " in
+ *" $a_deplib "*)
+ newdeplibs="$newdeplibs $a_deplib"
+ a_deplib=""
+ ;;
+ esac
+ fi
+ if test -n "$a_deplib" ; then
+ libname=`eval \\$echo \"$libname_spec\"`
+ for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
+ potential_libs=`ls $i/$libname[.-]* 2>/dev/null`
+ for potent_lib in $potential_libs; do
+ potlib="$potent_lib" # see symlink-check above in file_magic test
+ if eval $echo \"$potent_lib\" 2>/dev/null \
+ | ${SED} 10q \
+ | $EGREP "$match_pattern_regex" > /dev/null; then
+ newdeplibs="$newdeplibs $a_deplib"
+ a_deplib=""
+ break 2
+ fi
+ done
+ done
+ fi
+ if test -n "$a_deplib" ; then
+ droppeddeps=yes
+ $echo
+ $echo "*** Warning: linker path does not have real file for library $a_deplib."
+ $echo "*** I have the capability to make that library automatically link in when"
+ $echo "*** you link to this library. But I can only do this if you have a"
+ $echo "*** shared version of the library, which you do not appear to have"
+ $echo "*** because I did check the linker path looking for a file starting"
+ if test -z "$potlib" ; then
+ $echo "*** with $libname but no candidates were found. (...for regex pattern test)"
+ else
+ $echo "*** with $libname and none of the candidates passed a file format test"
+ $echo "*** using a regex pattern. Last file checked: $potlib"
+ fi
+ fi
+ else
+ # Add a -L argument.
+ newdeplibs="$newdeplibs $a_deplib"
+ fi
+ done # Gone through all deplibs.
+ ;;
+ none | unknown | *)
+ newdeplibs=""
+ tmp_deplibs=`$echo "X $deplibs" | $Xsed -e 's/ -lc$//' \
+ -e 's/ -[LR][^ ]*//g'`
+ if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
+ for i in $predeps $postdeps ; do
+ # can't use Xsed below, because $i might contain '/'
+ tmp_deplibs=`$echo "X $tmp_deplibs" | ${SED} -e "1s,^X,," -e "s,$i,,"`
+ done
+ fi
+ if $echo "X $tmp_deplibs" | $Xsed -e 's/[ ]//g' \
+ | grep . >/dev/null; then
+ $echo
+ if test "X$deplibs_check_method" = "Xnone"; then
+ $echo "*** Warning: inter-library dependencies are not supported in this platform."
+ else
+ $echo "*** Warning: inter-library dependencies are not known to be supported."
+ fi
+ $echo "*** All declared inter-library dependencies are being dropped."
+ droppeddeps=yes
+ fi
+ ;;
+ esac
+ versuffix=$versuffix_save
+ major=$major_save
+ release=$release_save
+ libname=$libname_save
+ name=$name_save
+
+ case $host in
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # On Rhapsody replace the C library is the System framework
+ newdeplibs=`$echo "X $newdeplibs" | $Xsed -e 's/ -lc / -framework System /'`
+ ;;
+ esac
+
+ if test "$droppeddeps" = yes; then
+ if test "$module" = yes; then
+ $echo
+ $echo "*** Warning: libtool could not satisfy all declared inter-library"
+ $echo "*** dependencies of module $libname. Therefore, libtool will create"
+ $echo "*** a static module, that should work as long as the dlopening"
+ $echo "*** application is linked with the -dlopen flag."
+ if test -z "$global_symbol_pipe"; then
+ $echo
+ $echo "*** However, this would only work if libtool was able to extract symbol"
+ $echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
+ $echo "*** not find such a program. So, this module is probably useless."
+ $echo "*** \`nm' from GNU binutils and a full rebuild may help."
+ fi
+ if test "$build_old_libs" = no; then
+ oldlibs="$output_objdir/$libname.$libext"
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ else
+ $echo "*** The inter-library dependencies that have been dropped here will be"
+ $echo "*** automatically added whenever a program is linked with this library"
+ $echo "*** or is declared to -dlopen it."
+
+ if test "$allow_undefined" = no; then
+ $echo
+ $echo "*** Since this library must not contain undefined symbols,"
+ $echo "*** because either the platform does not support them or"
+ $echo "*** it was explicitly requested with -no-undefined,"
+ $echo "*** libtool will only create a static version of it."
+ if test "$build_old_libs" = no; then
+ oldlibs="$output_objdir/$libname.$libext"
+ build_libtool_libs=module
+ build_old_libs=yes
+ else
+ build_libtool_libs=no
+ fi
+ fi
+ fi
+ fi
+ # Done checking deplibs!
+ deplibs=$newdeplibs
+ fi
+
+ # All the library-specific variables (install_libdir is set above).
+ library_names=
+ old_library=
+ dlname=
+
+ # Test again, we may have decided not to build it any more
+ if test "$build_libtool_libs" = yes; then
+ if test "$hardcode_into_libs" = yes; then
+ # Hardcode the library paths
+ hardcode_libdirs=
+ dep_rpath=
+ rpath="$finalize_rpath"
+ test "$mode" != relink && rpath="$compile_rpath$rpath"
+ for libdir in $rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs="$libdir"
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ dep_rpath="$dep_rpath $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$perm_rpath " in
+ *" $libdir "*) ;;
+ *) perm_rpath="$perm_rpath $libdir" ;;
+ esac
+ fi
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir="$hardcode_libdirs"
+ if test -n "$hardcode_libdir_flag_spec_ld"; then
+ eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\"
+ else
+ eval dep_rpath=\"$hardcode_libdir_flag_spec\"
+ fi
+ fi
+ if test -n "$runpath_var" && test -n "$perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $perm_rpath; do
+ rpath="$rpath$dir:"
+ done
+ eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var"
+ fi
+ test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs"
+ fi
+
+ shlibpath="$finalize_shlibpath"
+ test "$mode" != relink && shlibpath="$compile_shlibpath$shlibpath"
+ if test -n "$shlibpath"; then
+ eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var"
+ fi
+
+ # Get the real and link names of the library.
+ eval shared_ext=\"$shrext_cmds\"
+ eval library_names=\"$library_names_spec\"
+ set dummy $library_names
+ realname="$2"
+ shift; shift
+
+ if test -n "$soname_spec"; then
+ eval soname=\"$soname_spec\"
+ else
+ soname="$realname"
+ fi
+ if test -z "$dlname"; then
+ dlname=$soname
+ fi
+
+ lib="$output_objdir/$realname"
+ for link
+ do
+ linknames="$linknames $link"
+ done
+
+ # Use standard objects if they are pic
+ test -z "$pic_flag" && libobjs=`$echo "X$libobjs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP`
+
+ # Prepare the list of exported symbols
+ if test -z "$export_symbols"; then
+ if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then
+ $show "generating symbol list for \`$libname.la'"
+ export_symbols="$output_objdir/$libname.exp"
+ $run $rm $export_symbols
+ cmds=$export_symbols_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ if len=`expr "X$cmd" : ".*"` &&
+ test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ skipped_export=false
+ else
+ # The command line is too long to execute in one step.
+ $show "using reloadable object file for export list..."
+ skipped_export=:
+ fi
+ done
+ IFS="$save_ifs"
+ if test -n "$export_symbols_regex"; then
+ $show "$EGREP -e \"$export_symbols_regex\" \"$export_symbols\" > \"${export_symbols}T\""
+ $run eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
+ $show "$mv \"${export_symbols}T\" \"$export_symbols\""
+ $run eval '$mv "${export_symbols}T" "$export_symbols"'
+ fi
+ fi
+ fi
+
+ if test -n "$export_symbols" && test -n "$include_expsyms"; then
+ $run eval '$echo "X$include_expsyms" | $SP2NL >> "$export_symbols"'
+ fi
+
+ tmp_deplibs=
+ for test_deplib in $deplibs; do
+ case " $convenience " in
+ *" $test_deplib "*) ;;
+ *)
+ tmp_deplibs="$tmp_deplibs $test_deplib"
+ ;;
+ esac
+ done
+ deplibs="$tmp_deplibs"
+
+ if test -n "$convenience"; then
+ if test -n "$whole_archive_flag_spec"; then
+ save_libobjs=$libobjs
+ eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
+ else
+ gentop="$output_objdir/${outputname}x"
+ $show "${rm}r $gentop"
+ $run ${rm}r "$gentop"
+ $show "$mkdir $gentop"
+ $run $mkdir "$gentop"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$gentop"; then
+ exit $status
+ fi
+ generated="$generated $gentop"
+
+ for xlib in $convenience; do
+ # Extract the objects.
+ case $xlib in
+ [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;;
+ *) xabs=`pwd`"/$xlib" ;;
+ esac
+ xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'`
+ xdir="$gentop/$xlib"
+
+ $show "${rm}r $xdir"
+ $run ${rm}r "$xdir"
+ $show "$mkdir $xdir"
+ $run $mkdir "$xdir"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$xdir"; then
+ exit $status
+ fi
+ # We will extract separately just the conflicting names and we will no
+ # longer touch any unique names. It is faster to leave these extract
+ # automatically by $AR in one run.
+ $show "(cd $xdir && $AR x $xabs)"
+ $run eval "(cd \$xdir && $AR x \$xabs)" || exit $?
+ if ($AR t "$xabs" | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ $echo "$modename: warning: object name conflicts; renaming object files" 1>&2
+ $echo "$modename: warning: to ensure that they will not overwrite" 1>&2
+ $AR t "$xabs" | sort | uniq -cd | while read -r count name
+ do
+ i=1
+ while test "$i" -le "$count"
+ do
+ # Put our $i before any first dot (extension)
+ # Never overwrite any file
+ name_to="$name"
+ while test "X$name_to" = "X$name" || test -f "$xdir/$name_to"
+ do
+ name_to=`$echo "X$name_to" | $Xsed -e "s/\([^.]*\)/\1-$i/"`
+ done
+ $show "(cd $xdir && $AR xN $i $xabs '$name' && $mv '$name' '$name_to')"
+ $run eval "(cd \$xdir && $AR xN $i \$xabs '$name' && $mv '$name' '$name_to')" || exit $?
+ i=`expr $i + 1`
+ done
+ done
+ fi
+
+ libobjs="$libobjs "`find $xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP`
+ done
+ fi
+ fi
+
+ if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then
+ eval flag=\"$thread_safe_flag_spec\"
+ linker_flags="$linker_flags $flag"
+ fi
+
+ # Make a backup of the uninstalled library when relinking
+ if test "$mode" = relink; then
+ $run eval '(cd $output_objdir && $rm ${realname}U && $mv $realname ${realname}U)' || exit $?
+ fi
+
+ # Do each of the archive commands.
+ if test "$module" = yes && test -n "$module_cmds" ; then
+ if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
+ eval test_cmds=\"$module_expsym_cmds\"
+ cmds=$module_expsym_cmds
+ else
+ eval test_cmds=\"$module_cmds\"
+ cmds=$module_cmds
+ fi
+ else
+ if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
+ eval test_cmds=\"$archive_expsym_cmds\"
+ cmds=$archive_expsym_cmds
+ else
+ eval test_cmds=\"$archive_cmds\"
+ cmds=$archive_cmds
+ fi
+ fi
+
+ if test "X$skipped_export" != "X:" && len=`expr "X$test_cmds" : ".*"` &&
+ test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then
+ :
+ else
+ # The command line is too long to link in one step, link piecewise.
+ $echo "creating reloadable object files..."
+
+ # Save the value of $output and $libobjs because we want to
+ # use them later. If we have whole_archive_flag_spec, we
+ # want to use save_libobjs as it was before
+ # whole_archive_flag_spec was expanded, because we can't
+ # assume the linker understands whole_archive_flag_spec.
+ # This may have to be revisited, in case too many
+ # convenience libraries get linked in and end up exceeding
+ # the spec.
+ if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then
+ save_libobjs=$libobjs
+ fi
+ save_output=$output
+
+ # Clear the reloadable object creation command queue and
+ # initialize k to one.
+ test_cmds=
+ concat_cmds=
+ objlist=
+ delfiles=
+ last_robj=
+ k=1
+ output=$output_objdir/$save_output-${k}.$objext
+ # Loop over the list of objects to be linked.
+ for obj in $save_libobjs
+ do
+ eval test_cmds=\"$reload_cmds $objlist $last_robj\"
+ if test "X$objlist" = X ||
+ { len=`expr "X$test_cmds" : ".*"` &&
+ test "$len" -le "$max_cmd_len"; }; then
+ objlist="$objlist $obj"
+ else
+ # The command $test_cmds is almost too long, add a
+ # command to the queue.
+ if test "$k" -eq 1 ; then
+ # The first file doesn't have a previous command to add.
+ eval concat_cmds=\"$reload_cmds $objlist $last_robj\"
+ else
+ # All subsequent reloadable object files will link in
+ # the last one created.
+ eval concat_cmds=\"\$concat_cmds~$reload_cmds $objlist $last_robj\"
+ fi
+ last_robj=$output_objdir/$save_output-${k}.$objext
+ k=`expr $k + 1`
+ output=$output_objdir/$save_output-${k}.$objext
+ objlist=$obj
+ len=1
+ fi
+ done
+ # Handle the remaining objects by creating one last
+ # reloadable object file. All subsequent reloadable object
+ # files will link in the last one created.
+ test -z "$concat_cmds" || concat_cmds=$concat_cmds~
+ eval concat_cmds=\"\${concat_cmds}$reload_cmds $objlist $last_robj\"
+
+ if ${skipped_export-false}; then
+ $show "generating symbol list for \`$libname.la'"
+ export_symbols="$output_objdir/$libname.exp"
+ $run $rm $export_symbols
+ libobjs=$output
+ # Append the command to create the export file.
+ eval concat_cmds=\"\$concat_cmds~$export_symbols_cmds\"
+ fi
+
+ # Set up a command to remove the reloadale object files
+ # after they are used.
+ i=0
+ while test "$i" -lt "$k"
+ do
+ i=`expr $i + 1`
+ delfiles="$delfiles $output_objdir/$save_output-${i}.$objext"
+ done
+
+ $echo "creating a temporary reloadable object file: $output"
+
+ # Loop through the commands generated above and execute them.
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $concat_cmds; do
+ IFS="$save_ifs"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+
+ libobjs=$output
+ # Restore the value of output.
+ output=$save_output
+
+ if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then
+ eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
+ fi
+ # Expand the library linking commands again to reset the
+ # value of $libobjs for piecewise linking.
+
+ # Do each of the archive commands.
+ if test "$module" = yes && test -n "$module_cmds" ; then
+ if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
+ cmds=$module_expsym_cmds
+ else
+ cmds=$module_cmds
+ fi
+ else
+ if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
+ cmds=$archive_expsym_cmds
+ else
+ cmds=$archive_cmds
+ fi
+ fi
+
+ # Append the command to remove the reloadable object files
+ # to the just-reset $cmds.
+ eval cmds=\"\$cmds~\$rm $delfiles\"
+ fi
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+
+ # Restore the uninstalled library and exit
+ if test "$mode" = relink; then
+ $run eval '(cd $output_objdir && $rm ${realname}T && $mv $realname ${realname}T && $mv "$realname"U $realname)' || exit $?
+ exit $EXIT_SUCCESS
+ fi
+
+ # Create links to the real library.
+ for linkname in $linknames; do
+ if test "$realname" != "$linkname"; then
+ $show "(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)"
+ $run eval '(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)' || exit $?
+ fi
+ done
+
+ # If -module or -export-dynamic was specified, set the dlname.
+ if test "$module" = yes || test "$export_dynamic" = yes; then
+ # On all known operating systems, these are identical.
+ dlname="$soname"
+ fi
+ fi
+ ;;
+
+ obj)
+ if test -n "$deplibs"; then
+ $echo "$modename: warning: \`-l' and \`-L' are ignored for objects" 1>&2
+ fi
+
+ if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
+ $echo "$modename: warning: \`-dlopen' is ignored for objects" 1>&2
+ fi
+
+ if test -n "$rpath"; then
+ $echo "$modename: warning: \`-rpath' is ignored for objects" 1>&2
+ fi
+
+ if test -n "$xrpath"; then
+ $echo "$modename: warning: \`-R' is ignored for objects" 1>&2
+ fi
+
+ if test -n "$vinfo"; then
+ $echo "$modename: warning: \`-version-info' is ignored for objects" 1>&2
+ fi
+
+ if test -n "$release"; then
+ $echo "$modename: warning: \`-release' is ignored for objects" 1>&2
+ fi
+
+ case $output in
+ *.lo)
+ if test -n "$objs$old_deplibs"; then
+ $echo "$modename: cannot build library object \`$output' from non-libtool objects" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ libobj="$output"
+ obj=`$echo "X$output" | $Xsed -e "$lo2o"`
+ ;;
+ *)
+ libobj=
+ obj="$output"
+ ;;
+ esac
+
+ # Delete the old objects.
+ $run $rm $obj $libobj
+
+ # Objects from convenience libraries. This assumes
+ # single-version convenience libraries. Whenever we create
+ # different ones for PIC/non-PIC, this we'll have to duplicate
+ # the extraction.
+ reload_conv_objs=
+ gentop=
+ # reload_cmds runs $LD directly, so let us get rid of
+ # -Wl from whole_archive_flag_spec
+ wl=
+
+ if test -n "$convenience"; then
+ if test -n "$whole_archive_flag_spec"; then
+ eval reload_conv_objs=\"\$reload_objs $whole_archive_flag_spec\"
+ else
+ gentop="$output_objdir/${obj}x"
+ $show "${rm}r $gentop"
+ $run ${rm}r "$gentop"
+ $show "$mkdir $gentop"
+ $run $mkdir "$gentop"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$gentop"; then
+ exit $status
+ fi
+ generated="$generated $gentop"
+
+ for xlib in $convenience; do
+ # Extract the objects.
+ case $xlib in
+ [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;;
+ *) xabs=`pwd`"/$xlib" ;;
+ esac
+ xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'`
+ xdir="$gentop/$xlib"
+
+ $show "${rm}r $xdir"
+ $run ${rm}r "$xdir"
+ $show "$mkdir $xdir"
+ $run $mkdir "$xdir"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$xdir"; then
+ exit $status
+ fi
+ # We will extract separately just the conflicting names and we will no
+ # longer touch any unique names. It is faster to leave these extract
+ # automatically by $AR in one run.
+ $show "(cd $xdir && $AR x $xabs)"
+ $run eval "(cd \$xdir && $AR x \$xabs)" || exit $?
+ if ($AR t "$xabs" | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ $echo "$modename: warning: object name conflicts; renaming object files" 1>&2
+ $echo "$modename: warning: to ensure that they will not overwrite" 1>&2
+ $AR t "$xabs" | sort | uniq -cd | while read -r count name
+ do
+ i=1
+ while test "$i" -le "$count"
+ do
+ # Put our $i before any first dot (extension)
+ # Never overwrite any file
+ name_to="$name"
+ while test "X$name_to" = "X$name" || test -f "$xdir/$name_to"
+ do
+ name_to=`$echo "X$name_to" | $Xsed -e "s/\([^.]*\)/\1-$i/"`
+ done
+ $show "(cd $xdir && $AR xN $i $xabs '$name' && $mv '$name' '$name_to')"
+ $run eval "(cd \$xdir && $AR xN $i \$xabs '$name' && $mv '$name' '$name_to')" || exit $?
+ i=`expr $i + 1`
+ done
+ done
+ fi
+
+ reload_conv_objs="$reload_objs "`find $xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP`
+ done
+ fi
+ fi
+
+ # Create the old-style object.
+ reload_objs="$objs$old_deplibs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}$'/d' -e '/\.lib$/d' -e "$lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test
+
+ output="$obj"
+ cmds=$reload_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+
+ # Exit if we aren't doing a library object file.
+ if test -z "$libobj"; then
+ if test -n "$gentop"; then
+ $show "${rm}r $gentop"
+ $run ${rm}r $gentop
+ fi
+
+ exit $EXIT_SUCCESS
+ fi
+
+ if test "$build_libtool_libs" != yes; then
+ if test -n "$gentop"; then
+ $show "${rm}r $gentop"
+ $run ${rm}r $gentop
+ fi
+
+ # Create an invalid libtool object if no PIC, so that we don't
+ # accidentally link it into a program.
+ # $show "echo timestamp > $libobj"
+ # $run eval "echo timestamp > $libobj" || exit $?
+ exit $EXIT_SUCCESS
+ fi
+
+ if test -n "$pic_flag" || test "$pic_mode" != default; then
+ # Only do commands if we really have different PIC objects.
+ reload_objs="$libobjs $reload_conv_objs"
+ output="$libobj"
+ cmds=$reload_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ fi
+
+ if test -n "$gentop"; then
+ $show "${rm}r $gentop"
+ $run ${rm}r $gentop
+ fi
+
+ exit $EXIT_SUCCESS
+ ;;
+
+ prog)
+ case $host in
+ *cygwin*) output=`$echo $output | ${SED} -e 's,.exe$,,;s,$,.exe,'` ;;
+ esac
+ if test -n "$vinfo"; then
+ $echo "$modename: warning: \`-version-info' is ignored for programs" 1>&2
+ fi
+
+ if test -n "$release"; then
+ $echo "$modename: warning: \`-release' is ignored for programs" 1>&2
+ fi
+
+ if test "$preload" = yes; then
+ if test "$dlopen_support" = unknown && test "$dlopen_self" = unknown &&
+ test "$dlopen_self_static" = unknown; then
+ $echo "$modename: warning: \`AC_LIBTOOL_DLOPEN' not used. Assuming no dlopen support."
+ fi
+ fi
+
+ case $host in
+ *-*-rhapsody* | *-*-darwin1.[012])
+ # On Rhapsody replace the C library is the System framework
+ compile_deplibs=`$echo "X $compile_deplibs" | $Xsed -e 's/ -lc / -framework System /'`
+ finalize_deplibs=`$echo "X $finalize_deplibs" | $Xsed -e 's/ -lc / -framework System /'`
+ ;;
+ esac
+
+ case $host in
+ *darwin*)
+ # Don't allow lazy linking, it breaks C++ global constructors
+ if test "$tagname" = CXX ; then
+ compile_command="$compile_command ${wl}-bind_at_load"
+ finalize_command="$finalize_command ${wl}-bind_at_load"
+ fi
+ ;;
+ esac
+
+ compile_command="$compile_command $compile_deplibs"
+ finalize_command="$finalize_command $finalize_deplibs"
+
+ if test -n "$rpath$xrpath"; then
+ # If the user specified any rpath flags, then add them.
+ for libdir in $rpath $xrpath; do
+ # This is the magic to use -rpath.
+ case "$finalize_rpath " in
+ *" $libdir "*) ;;
+ *) finalize_rpath="$finalize_rpath $libdir" ;;
+ esac
+ done
+ fi
+
+ # Now hardcode the library paths
+ rpath=
+ hardcode_libdirs=
+ for libdir in $compile_rpath $finalize_rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs="$libdir"
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ rpath="$rpath $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$perm_rpath " in
+ *" $libdir "*) ;;
+ *) perm_rpath="$perm_rpath $libdir" ;;
+ esac
+ fi
+ case $host in
+ *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*)
+ case :$dllsearchpath: in
+ *":$libdir:"*) ;;
+ *) dllsearchpath="$dllsearchpath:$libdir";;
+ esac
+ ;;
+ esac
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir="$hardcode_libdirs"
+ eval rpath=\" $hardcode_libdir_flag_spec\"
+ fi
+ compile_rpath="$rpath"
+
+ rpath=
+ hardcode_libdirs=
+ for libdir in $finalize_rpath; do
+ if test -n "$hardcode_libdir_flag_spec"; then
+ if test -n "$hardcode_libdir_separator"; then
+ if test -z "$hardcode_libdirs"; then
+ hardcode_libdirs="$libdir"
+ else
+ # Just accumulate the unique libdirs.
+ case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
+ *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
+ ;;
+ *)
+ hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir"
+ ;;
+ esac
+ fi
+ else
+ eval flag=\"$hardcode_libdir_flag_spec\"
+ rpath="$rpath $flag"
+ fi
+ elif test -n "$runpath_var"; then
+ case "$finalize_perm_rpath " in
+ *" $libdir "*) ;;
+ *) finalize_perm_rpath="$finalize_perm_rpath $libdir" ;;
+ esac
+ fi
+ done
+ # Substitute the hardcoded libdirs into the rpath.
+ if test -n "$hardcode_libdir_separator" &&
+ test -n "$hardcode_libdirs"; then
+ libdir="$hardcode_libdirs"
+ eval rpath=\" $hardcode_libdir_flag_spec\"
+ fi
+ finalize_rpath="$rpath"
+
+ if test -n "$libobjs" && test "$build_old_libs" = yes; then
+ # Transform all the library objects into standard objects.
+ compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP`
+ finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP`
+ fi
+
+ dlsyms=
+ if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
+ if test -n "$NM" && test -n "$global_symbol_pipe"; then
+ dlsyms="${outputname}S.c"
+ else
+ $echo "$modename: not configured to extract global symbols from dlpreopened files" 1>&2
+ fi
+ fi
+
+ if test -n "$dlsyms"; then
+ case $dlsyms in
+ "") ;;
+ *.c)
+ # Discover the nlist of each of the dlfiles.
+ nlist="$output_objdir/${outputname}.nm"
+
+ $show "$rm $nlist ${nlist}S ${nlist}T"
+ $run $rm "$nlist" "${nlist}S" "${nlist}T"
+
+ # Parse the name list into a source file.
+ $show "creating $output_objdir/$dlsyms"
+
+ test -z "$run" && $echo > "$output_objdir/$dlsyms" "\
+/* $dlsyms - symbol resolution table for \`$outputname' dlsym emulation. */
+/* Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP */
+
+#ifdef __cplusplus
+extern \"C\" {
+#endif
+
+/* Prevent the only kind of declaration conflicts we can make. */
+#define lt_preloaded_symbols some_other_symbol
+
+/* External symbol declarations for the compiler. */\
+"
+
+ if test "$dlself" = yes; then
+ $show "generating symbol list for \`$output'"
+
+ test -z "$run" && $echo ': @PROGRAM@ ' > "$nlist"
+
+ # Add our own program objects to the symbol list.
+ progfiles=`$echo "X$objs$old_deplibs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP`
+ for arg in $progfiles; do
+ $show "extracting global C symbols from \`$arg'"
+ $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'"
+ done
+
+ if test -n "$exclude_expsyms"; then
+ $run eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T'
+ $run eval '$mv "$nlist"T "$nlist"'
+ fi
+
+ if test -n "$export_symbols_regex"; then
+ $run eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T'
+ $run eval '$mv "$nlist"T "$nlist"'
+ fi
+
+ # Prepare the list of exported symbols
+ if test -z "$export_symbols"; then
+ export_symbols="$output_objdir/$output.exp"
+ $run $rm $export_symbols
+ $run eval "${SED} -n -e '/^: @PROGRAM@$/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"'
+ else
+ $run eval "${SED} -e 's/\([][.*^$]\)/\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$output.exp"'
+ $run eval 'grep -f "$output_objdir/$output.exp" < "$nlist" > "$nlist"T'
+ $run eval 'mv "$nlist"T "$nlist"'
+ fi
+ fi
+
+ for arg in $dlprefiles; do
+ $show "extracting global C symbols from \`$arg'"
+ name=`$echo "$arg" | ${SED} -e 's%^.*/%%'`
+ $run eval '$echo ": $name " >> "$nlist"'
+ $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'"
+ done
+
+ if test -z "$run"; then
+ # Make sure we have at least an empty file.
+ test -f "$nlist" || : > "$nlist"
+
+ if test -n "$exclude_expsyms"; then
+ $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T
+ $mv "$nlist"T "$nlist"
+ fi
+
+ # Try sorting and uniquifying the output.
+ if grep -v "^: " < "$nlist" |
+ if sort -k 3 </dev/null >/dev/null 2>&1; then
+ sort -k 3
+ else
+ sort +2
+ fi |
+ uniq > "$nlist"S; then
+ :
+ else
+ grep -v "^: " < "$nlist" > "$nlist"S
+ fi
+
+ if test -f "$nlist"S; then
+ eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$dlsyms"'
+ else
+ $echo '/* NONE */' >> "$output_objdir/$dlsyms"
+ fi
+
+ $echo >> "$output_objdir/$dlsyms" "\
+
+#undef lt_preloaded_symbols
+
+#if defined (__STDC__) && __STDC__
+# define lt_ptr void *
+#else
+# define lt_ptr char *
+# define const
+#endif
+
+/* The mapping between symbol names and symbols. */
+const struct {
+ const char *name;
+ lt_ptr address;
+}
+lt_preloaded_symbols[] =
+{\
+"
+
+ eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$dlsyms"
+
+ $echo >> "$output_objdir/$dlsyms" "\
+ {0, (lt_ptr) 0}
+};
+
+/* This works around a problem in FreeBSD linker */
+#ifdef FREEBSD_WORKAROUND
+static const void *lt_preloaded_setup() {
+ return lt_preloaded_symbols;
+}
+#endif
+
+#ifdef __cplusplus
+}
+#endif\
+"
+ fi
+
+ pic_flag_for_symtable=
+ case $host in
+ # compiling the symbol table file with pic_flag works around
+ # a FreeBSD bug that causes programs to crash when -lm is
+ # linked before any other PIC object. But we must not use
+ # pic_flag when linking with -static. The problem exists in
+ # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1.
+ *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
+ case "$compile_command " in
+ *" -static "*) ;;
+ *) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND";;
+ esac;;
+ *-*-hpux*)
+ case "$compile_command " in
+ *" -static "*) ;;
+ *) pic_flag_for_symtable=" $pic_flag";;
+ esac
+ esac
+
+ # Now compile the dynamic symbol file.
+ $show "(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable \"$dlsyms\")"
+ $run eval '(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable "$dlsyms")' || exit $?
+
+ # Clean up the generated files.
+ $show "$rm $output_objdir/$dlsyms $nlist ${nlist}S ${nlist}T"
+ $run $rm "$output_objdir/$dlsyms" "$nlist" "${nlist}S" "${nlist}T"
+
+ # Transform the symbol file into the correct name.
+ compile_command=`$echo "X$compile_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"`
+ finalize_command=`$echo "X$finalize_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"`
+ ;;
+ *)
+ $echo "$modename: unknown suffix for \`$dlsyms'" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+ else
+ # We keep going just in case the user didn't refer to
+ # lt_preloaded_symbols. The linker will fail if global_symbol_pipe
+ # really was required.
+
+ # Nullify the symbol file.
+ compile_command=`$echo "X$compile_command" | $Xsed -e "s% @SYMFILE@%%"`
+ finalize_command=`$echo "X$finalize_command" | $Xsed -e "s% @SYMFILE@%%"`
+ fi
+
+ if test "$need_relink" = no || test "$build_libtool_libs" != yes; then
+ # Replace the output file specification.
+ compile_command=`$echo "X$compile_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'`
+ link_command="$compile_command$compile_rpath"
+
+ # We have no uninstalled library dependencies, so finalize right now.
+ $show "$link_command"
+ $run eval "$link_command"
+ status=$?
+
+ # Delete the generated files.
+ if test -n "$dlsyms"; then
+ $show "$rm $output_objdir/${outputname}S.${objext}"
+ $run $rm "$output_objdir/${outputname}S.${objext}"
+ fi
+
+ exit $status
+ fi
+
+ if test -n "$shlibpath_var"; then
+ # We should set the shlibpath_var
+ rpath=
+ for dir in $temp_rpath; do
+ case $dir in
+ [\\/]* | [A-Za-z]:[\\/]*)
+ # Absolute path.
+ rpath="$rpath$dir:"
+ ;;
+ *)
+ # Relative path: add a thisdir entry.
+ rpath="$rpath\$thisdir/$dir:"
+ ;;
+ esac
+ done
+ temp_rpath="$rpath"
+ fi
+
+ if test -n "$compile_shlibpath$finalize_shlibpath"; then
+ compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command"
+ fi
+ if test -n "$finalize_shlibpath"; then
+ finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command"
+ fi
+
+ compile_var=
+ finalize_var=
+ if test -n "$runpath_var"; then
+ if test -n "$perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $perm_rpath; do
+ rpath="$rpath$dir:"
+ done
+ compile_var="$runpath_var=\"$rpath\$$runpath_var\" "
+ fi
+ if test -n "$finalize_perm_rpath"; then
+ # We should set the runpath_var.
+ rpath=
+ for dir in $finalize_perm_rpath; do
+ rpath="$rpath$dir:"
+ done
+ finalize_var="$runpath_var=\"$rpath\$$runpath_var\" "
+ fi
+ fi
+
+ if test "$no_install" = yes; then
+ # We don't need to create a wrapper script.
+ link_command="$compile_var$compile_command$compile_rpath"
+ # Replace the output file specification.
+ link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'`
+ # Delete the old output file.
+ $run $rm $output
+ # Link the executable and exit
+ $show "$link_command"
+ $run eval "$link_command" || exit $?
+ exit $EXIT_SUCCESS
+ fi
+
+ if test "$hardcode_action" = relink; then
+ # Fast installation is not supported
+ link_command="$compile_var$compile_command$compile_rpath"
+ relink_command="$finalize_var$finalize_command$finalize_rpath"
+
+ $echo "$modename: warning: this platform does not like uninstalled shared libraries" 1>&2
+ $echo "$modename: \`$output' will be relinked during installation" 1>&2
+ else
+ if test "$fast_install" != no; then
+ link_command="$finalize_var$compile_command$finalize_rpath"
+ if test "$fast_install" = yes; then
+ relink_command=`$echo "X$compile_var$compile_command$compile_rpath" | $Xsed -e 's%@OUTPUT@%\$progdir/\$file%g'`
+ else
+ # fast_install is set to needless
+ relink_command=
+ fi
+ else
+ link_command="$compile_var$compile_command$compile_rpath"
+ relink_command="$finalize_var$finalize_command$finalize_rpath"
+ fi
+ fi
+
+ # Replace the output file specification.
+ link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'`
+
+ # Delete the old output files.
+ $run $rm $output $output_objdir/$outputname $output_objdir/lt-$outputname
+
+ $show "$link_command"
+ $run eval "$link_command" || exit $?
+
+ # Now create the wrapper script.
+ $show "creating $output"
+
+ # Quote the relink command for shipping.
+ if test -n "$relink_command"; then
+ # Preserve any variables that may affect compiler behavior
+ for var in $variables_saved_for_relink; do
+ if eval test -z \"\${$var+set}\"; then
+ relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command"
+ elif eval var_value=\$$var; test -z "$var_value"; then
+ relink_command="$var=; export $var; $relink_command"
+ else
+ var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"`
+ relink_command="$var=\"$var_value\"; export $var; $relink_command"
+ fi
+ done
+ relink_command="(cd `pwd`; $relink_command)"
+ relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"`
+ fi
+
+ # Quote $echo for shipping.
+ if test "X$echo" = "X$SHELL $progpath --fallback-echo"; then
+ case $progpath in
+ [\\/]* | [A-Za-z]:[\\/]*) qecho="$SHELL $progpath --fallback-echo";;
+ *) qecho="$SHELL `pwd`/$progpath --fallback-echo";;
+ esac
+ qecho=`$echo "X$qecho" | $Xsed -e "$sed_quote_subst"`
+ else
+ qecho=`$echo "X$echo" | $Xsed -e "$sed_quote_subst"`
+ fi
+
+ # Only actually do things if our run command is non-null.
+ if test -z "$run"; then
+ # win32 will think the script is a binary if it has
+ # a .exe suffix, so we strip it off here.
+ case $output in
+ *.exe) output=`$echo $output|${SED} 's,.exe$,,'` ;;
+ esac
+ # test for cygwin because mv fails w/o .exe extensions
+ case $host in
+ *cygwin*)
+ exeext=.exe
+ outputname=`$echo $outputname|${SED} 's,.exe$,,'` ;;
+ *) exeext= ;;
+ esac
+ case $host in
+ *cygwin* | *mingw* )
+ cwrappersource=`$echo ${objdir}/lt-${output}.c`
+ cwrapper=`$echo ${output}.exe`
+ $rm $cwrappersource $cwrapper
+ trap "$rm $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15
+
+ cat > $cwrappersource <<EOF
+
+/* $cwrappersource - temporary wrapper executable for $objdir/$outputname
+ Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP
+
+ The $output program cannot be directly executed until all the libtool
+ libraries that it depends on are installed.
+
+ This wrapper executable should never be moved out of the build directory.
+ If it is, it will not operate correctly.
+
+ Currently, it simply execs the wrapper *script* "/bin/sh $output",
+ but could eventually absorb all of the scripts functionality and
+ exec $objdir/$outputname directly.
+*/
+EOF
+ cat >> $cwrappersource<<"EOF"
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <malloc.h>
+#include <stdarg.h>
+#include <assert.h>
+
+#if defined(PATH_MAX)
+# define LT_PATHMAX PATH_MAX
+#elif defined(MAXPATHLEN)
+# define LT_PATHMAX MAXPATHLEN
+#else
+# define LT_PATHMAX 1024
+#endif
+
+#ifndef DIR_SEPARATOR
+#define DIR_SEPARATOR '/'
+#endif
+
+#if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
+ defined (__OS2__)
+#define HAVE_DOS_BASED_FILE_SYSTEM
+#ifndef DIR_SEPARATOR_2
+#define DIR_SEPARATOR_2 '\\'
+#endif
+#endif
+
+#ifndef DIR_SEPARATOR_2
+# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
+#else /* DIR_SEPARATOR_2 */
+# define IS_DIR_SEPARATOR(ch) \
+ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
+#endif /* DIR_SEPARATOR_2 */
+
+#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type)))
+#define XFREE(stale) do { \
+ if (stale) { free ((void *) stale); stale = 0; } \
+} while (0)
+
+const char *program_name = NULL;
+
+void * xmalloc (size_t num);
+char * xstrdup (const char *string);
+char * basename (const char *name);
+char * fnqualify(const char *path);
+char * strendzap(char *str, const char *pat);
+void lt_fatal (const char *message, ...);
+
+int
+main (int argc, char *argv[])
+{
+ char **newargz;
+ int i;
+
+ program_name = (char *) xstrdup ((char *) basename (argv[0]));
+ newargz = XMALLOC(char *, argc+2);
+EOF
+
+ cat >> $cwrappersource <<EOF
+ newargz[0] = "$SHELL";
+EOF
+
+ cat >> $cwrappersource <<"EOF"
+ newargz[1] = fnqualify(argv[0]);
+ /* we know the script has the same name, without the .exe */
+ /* so make sure newargz[1] doesn't end in .exe */
+ strendzap(newargz[1],".exe");
+ for (i = 1; i < argc; i++)
+ newargz[i+1] = xstrdup(argv[i]);
+ newargz[argc+1] = NULL;
+EOF
+
+ cat >> $cwrappersource <<EOF
+ execv("$SHELL",newargz);
+EOF
+
+ cat >> $cwrappersource <<"EOF"
+}
+
+void *
+xmalloc (size_t num)
+{
+ void * p = (void *) malloc (num);
+ if (!p)
+ lt_fatal ("Memory exhausted");
+
+ return p;
+}
+
+char *
+xstrdup (const char *string)
+{
+ return string ? strcpy ((char *) xmalloc (strlen (string) + 1), string) : NULL
+;
+}
+
+char *
+basename (const char *name)
+{
+ const char *base;
+
+#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
+ /* Skip over the disk name in MSDOS pathnames. */
+ if (isalpha (name[0]) && name[1] == ':')
+ name += 2;
+#endif
+
+ for (base = name; *name; name++)
+ if (IS_DIR_SEPARATOR (*name))
+ base = name + 1;
+ return (char *) base;
+}
+
+char *
+fnqualify(const char *path)
+{
+ size_t size;
+ char *p;
+ char tmp[LT_PATHMAX + 1];
+
+ assert(path != NULL);
+
+ /* Is it qualified already? */
+#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
+ if (isalpha (path[0]) && path[1] == ':')
+ return xstrdup (path);
+#endif
+ if (IS_DIR_SEPARATOR (path[0]))
+ return xstrdup (path);
+
+ /* prepend the current directory */
+ /* doesn't handle '~' */
+ if (getcwd (tmp, LT_PATHMAX) == NULL)
+ lt_fatal ("getcwd failed");
+ size = strlen(tmp) + 1 + strlen(path) + 1; /* +2 for '/' and '\0' */
+ p = XMALLOC(char, size);
+ sprintf(p, "%s%c%s", tmp, DIR_SEPARATOR, path);
+ return p;
+}
+
+char *
+strendzap(char *str, const char *pat)
+{
+ size_t len, patlen;
+
+ assert(str != NULL);
+ assert(pat != NULL);
+
+ len = strlen(str);
+ patlen = strlen(pat);
+
+ if (patlen <= len)
+ {
+ str += len - patlen;
+ if (strcmp(str, pat) == 0)
+ *str = '\0';
+ }
+ return str;
+}
+
+static void
+lt_error_core (int exit_status, const char * mode,
+ const char * message, va_list ap)
+{
+ fprintf (stderr, "%s: %s: ", program_name, mode);
+ vfprintf (stderr, message, ap);
+ fprintf (stderr, ".\n");
+
+ if (exit_status >= 0)
+ exit (exit_status);
+}
+
+void
+lt_fatal (const char *message, ...)
+{
+ va_list ap;
+ va_start (ap, message);
+ lt_error_core (EXIT_FAILURE, "FATAL", message, ap);
+ va_end (ap);
+}
+EOF
+ # we should really use a build-platform specific compiler
+ # here, but OTOH, the wrappers (shell script and this C one)
+ # are only useful if you want to execute the "real" binary.
+ # Since the "real" binary is built for $host, then this
+ # wrapper might as well be built for $host, too.
+ $run $LTCC -s -o $cwrapper $cwrappersource
+ ;;
+ esac
+ $rm $output
+ trap "$rm $output; exit $EXIT_FAILURE" 1 2 15
+
+ $echo > $output "\
+#! $SHELL
+
+# $output - temporary wrapper script for $objdir/$outputname
+# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP
+#
+# The $output program cannot be directly executed until all the libtool
+# libraries that it depends on are installed.
+#
+# This wrapper script should never be moved out of the build directory.
+# If it is, it will not operate correctly.
+
+# Sed substitution that helps us do robust quoting. It backslashifies
+# metacharacters that are still active within double-quoted strings.
+Xsed='${SED} -e 1s/^X//'
+sed_quote_subst='$sed_quote_subst'
+
+# The HP-UX ksh and POSIX shell print the target directory to stdout
+# if CDPATH is set.
+if test \"\${CDPATH+set}\" = set; then CDPATH=:; export CDPATH; fi
+
+relink_command=\"$relink_command\"
+
+# This environment variable determines our operation mode.
+if test \"\$libtool_install_magic\" = \"$magic\"; then
+ # install mode needs the following variable:
+ notinst_deplibs='$notinst_deplibs'
+else
+ # When we are sourced in execute mode, \$file and \$echo are already set.
+ if test \"\$libtool_execute_magic\" != \"$magic\"; then
+ echo=\"$qecho\"
+ file=\"\$0\"
+ # Make sure echo works.
+ if test \"X\$1\" = X--no-reexec; then
+ # Discard the --no-reexec flag, and continue.
+ shift
+ elif test \"X\`(\$echo '\t') 2>/dev/null\`\" = 'X\t'; then
+ # Yippee, \$echo works!
+ :
+ else
+ # Restart under the correct shell, and then maybe \$echo will work.
+ exec $SHELL \"\$0\" --no-reexec \${1+\"\$@\"}
+ fi
+ fi\
+"
+ $echo >> $output "\
+
+ # Find the directory that this script lives in.
+ thisdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*$%%'\`
+ test \"x\$thisdir\" = \"x\$file\" && thisdir=.
+
+ # Follow symbolic links until we get to the real thisdir.
+ file=\`ls -ld \"\$file\" | ${SED} -n 's/.*-> //p'\`
+ while test -n \"\$file\"; do
+ destdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*\$%%'\`
+
+ # If there was a directory component, then change thisdir.
+ if test \"x\$destdir\" != \"x\$file\"; then
+ case \"\$destdir\" in
+ [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;;
+ *) thisdir=\"\$thisdir/\$destdir\" ;;
+ esac
+ fi
+
+ file=\`\$echo \"X\$file\" | \$Xsed -e 's%^.*/%%'\`
+ file=\`ls -ld \"\$thisdir/\$file\" | ${SED} -n 's/.*-> //p'\`
+ done
+
+ # Try to get the absolute directory name.
+ absdir=\`cd \"\$thisdir\" && pwd\`
+ test -n \"\$absdir\" && thisdir=\"\$absdir\"
+"
+
+ if test "$fast_install" = yes; then
+ $echo >> $output "\
+ program=lt-'$outputname'$exeext
+ progdir=\"\$thisdir/$objdir\"
+
+ if test ! -f \"\$progdir/\$program\" || \\
+ { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\
+ test \"X\$file\" != \"X\$progdir/\$program\"; }; then
+
+ file=\"\$\$-\$program\"
+
+ if test ! -d \"\$progdir\"; then
+ $mkdir \"\$progdir\"
+ else
+ $rm \"\$progdir/\$file\"
+ fi"
+
+ $echo >> $output "\
+
+ # relink executable if necessary
+ if test -n \"\$relink_command\"; then
+ if relink_command_output=\`eval \$relink_command 2>&1\`; then :
+ else
+ $echo \"\$relink_command_output\" >&2
+ $rm \"\$progdir/\$file\"
+ exit $EXIT_FAILURE
+ fi
+ fi
+
+ $mv \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null ||
+ { $rm \"\$progdir/\$program\";
+ $mv \"\$progdir/\$file\" \"\$progdir/\$program\"; }
+ $rm \"\$progdir/\$file\"
+ fi"
+ else
+ $echo >> $output "\
+ program='$outputname'
+ progdir=\"\$thisdir/$objdir\"
+"
+ fi
+
+ $echo >> $output "\
+
+ if test -f \"\$progdir/\$program\"; then"
+
+ # Export our shlibpath_var if we have one.
+ if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
+ $echo >> $output "\
+ # Add our own library path to $shlibpath_var
+ $shlibpath_var=\"$temp_rpath\$$shlibpath_var\"
+
+ # Some systems cannot cope with colon-terminated $shlibpath_var
+ # The second colon is a workaround for a bug in BeOS R4 sed
+ $shlibpath_var=\`\$echo \"X\$$shlibpath_var\" | \$Xsed -e 's/::*\$//'\`
+
+ export $shlibpath_var
+"
+ fi
+
+ # fixup the dll searchpath if we need to.
+ if test -n "$dllsearchpath"; then
+ $echo >> $output "\
+ # Add the dll search path components to the executable PATH
+ PATH=$dllsearchpath:\$PATH
+"
+ fi
+
+ $echo >> $output "\
+ if test \"\$libtool_execute_magic\" != \"$magic\"; then
+ # Run the actual program with our arguments.
+"
+ case $host in
+ # Backslashes separate directories on plain windows
+ *-*-mingw | *-*-os2*)
+ $echo >> $output "\
+ exec \$progdir\\\\\$program \${1+\"\$@\"}
+"
+ ;;
+
+ *)
+ $echo >> $output "\
+ exec \$progdir/\$program \${1+\"\$@\"}
+"
+ ;;
+ esac
+ $echo >> $output "\
+ \$echo \"\$0: cannot exec \$program \${1+\"\$@\"}\"
+ exit $EXIT_FAILURE
+ fi
+ else
+ # The program doesn't exist.
+ \$echo \"\$0: error: \$progdir/\$program does not exist\" 1>&2
+ \$echo \"This script is just a wrapper for \$program.\" 1>&2
+ $echo \"See the $PACKAGE documentation for more information.\" 1>&2
+ exit $EXIT_FAILURE
+ fi
+fi\
+"
+ chmod +x $output
+ fi
+ exit $EXIT_SUCCESS
+ ;;
+ esac
+
+ # See if we need to build an old-fashioned archive.
+ for oldlib in $oldlibs; do
+
+ if test "$build_libtool_libs" = convenience; then
+ oldobjs="$libobjs_save"
+ addlibs="$convenience"
+ build_libtool_libs=no
+ else
+ if test "$build_libtool_libs" = module; then
+ oldobjs="$libobjs_save"
+ build_libtool_libs=no
+ else
+ oldobjs="$old_deplibs $non_pic_objects"
+ fi
+ addlibs="$old_convenience"
+ fi
+
+ if test -n "$addlibs"; then
+ gentop="$output_objdir/${outputname}x"
+ $show "${rm}r $gentop"
+ $run ${rm}r "$gentop"
+ $show "$mkdir $gentop"
+ $run $mkdir "$gentop"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$gentop"; then
+ exit $status
+ fi
+ generated="$generated $gentop"
+
+ # Add in members from convenience archives.
+ for xlib in $addlibs; do
+ # Extract the objects.
+ case $xlib in
+ [\\/]* | [A-Za-z]:[\\/]*) xabs="$xlib" ;;
+ *) xabs=`pwd`"/$xlib" ;;
+ esac
+ xlib=`$echo "X$xlib" | $Xsed -e 's%^.*/%%'`
+ xdir="$gentop/$xlib"
+
+ $show "${rm}r $xdir"
+ $run ${rm}r "$xdir"
+ $show "$mkdir $xdir"
+ $run $mkdir "$xdir"
+ status=$?
+ if test "$status" -ne 0 && test ! -d "$xdir"; then
+ exit $status
+ fi
+ # We will extract separately just the conflicting names and we will no
+ # longer touch any unique names. It is faster to leave these extract
+ # automatically by $AR in one run.
+ $show "(cd $xdir && $AR x $xabs)"
+ $run eval "(cd \$xdir && $AR x \$xabs)" || exit $?
+ if ($AR t "$xabs" | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ $echo "$modename: warning: object name conflicts; renaming object files" 1>&2
+ $echo "$modename: warning: to ensure that they will not overwrite" 1>&2
+ $AR t "$xabs" | sort | uniq -cd | while read -r count name
+ do
+ i=1
+ while test "$i" -le "$count"
+ do
+ # Put our $i before any first dot (extension)
+ # Never overwrite any file
+ name_to="$name"
+ while test "X$name_to" = "X$name" || test -f "$xdir/$name_to"
+ do
+ name_to=`$echo "X$name_to" | $Xsed -e "s/\([^.]*\)/\1-$i/"`
+ done
+ $show "(cd $xdir && $AR xN $i $xabs '$name' && $mv '$name' '$name_to')"
+ $run eval "(cd \$xdir && $AR xN $i \$xabs '$name' && $mv '$name' '$name_to')" || exit $?
+ i=`expr $i + 1`
+ done
+ done
+ fi
+
+ oldobjs="$oldobjs "`find $xdir -name \*.${objext} -print -o -name \*.lo -print | $NL2SP`
+ done
+ fi
+
+ # Do each command in the archive commands.
+ if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then
+ cmds=$old_archive_from_new_cmds
+ else
+ eval cmds=\"$old_archive_cmds\"
+
+ if len=`expr "X$cmds" : ".*"` &&
+ test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then
+ cmds=$old_archive_cmds
+ else
+ # the command line is too long to link in one step, link in parts
+ $echo "using piecewise archive linking..."
+ save_RANLIB=$RANLIB
+ RANLIB=:
+ objlist=
+ concat_cmds=
+ save_oldobjs=$oldobjs
+ # GNU ar 2.10+ was changed to match POSIX; thus no paths are
+ # encoded into archives. This makes 'ar r' malfunction in
+ # this piecewise linking case whenever conflicting object
+ # names appear in distinct ar calls; check, warn and compensate.
+ if (for obj in $save_oldobjs
+ do
+ $echo "X$obj" | $Xsed -e 's%^.*/%%'
+ done | sort | sort -uc >/dev/null 2>&1); then
+ :
+ else
+ $echo "$modename: warning: object name conflicts; overriding AR_FLAGS to 'cq'" 1>&2
+ $echo "$modename: warning: to ensure that POSIX-compatible ar will work" 1>&2
+ AR_FLAGS=cq
+ fi
+ # Is there a better way of finding the last object in the list?
+ for obj in $save_oldobjs
+ do
+ last_oldobj=$obj
+ done
+ for obj in $save_oldobjs
+ do
+ oldobjs="$objlist $obj"
+ objlist="$objlist $obj"
+ eval test_cmds=\"$old_archive_cmds\"
+ if len=`expr "X$test_cmds" : ".*"` &&
+ test "$len" -le "$max_cmd_len"; then
+ :
+ else
+ # the above command should be used before it gets too long
+ oldobjs=$objlist
+ if test "$obj" = "$last_oldobj" ; then
+ RANLIB=$save_RANLIB
+ fi
+ test -z "$concat_cmds" || concat_cmds=$concat_cmds~
+ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\"
+ objlist=
+ fi
+ done
+ RANLIB=$save_RANLIB
+ oldobjs=$objlist
+ if test "X$oldobjs" = "X" ; then
+ eval cmds=\"\$concat_cmds\"
+ else
+ eval cmds=\"\$concat_cmds~\$old_archive_cmds\"
+ fi
+ fi
+ fi
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ eval cmd=\"$cmd\"
+ IFS="$save_ifs"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ done
+
+ if test -n "$generated"; then
+ $show "${rm}r$generated"
+ $run ${rm}r$generated
+ fi
+
+ # Now create the libtool archive.
+ case $output in
+ *.la)
+ old_library=
+ test "$build_old_libs" = yes && old_library="$libname.$libext"
+ $show "creating $output"
+
+ # Preserve any variables that may affect compiler behavior
+ for var in $variables_saved_for_relink; do
+ if eval test -z \"\${$var+set}\"; then
+ relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command"
+ elif eval var_value=\$$var; test -z "$var_value"; then
+ relink_command="$var=; export $var; $relink_command"
+ else
+ var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"`
+ relink_command="$var=\"$var_value\"; export $var; $relink_command"
+ fi
+ done
+ # Quote the link command for shipping.
+ relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)"
+ relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"`
+ if test "$hardcode_automatic" = yes ; then
+ relink_command=
+ fi
+
+
+ # Only create the output if not a dry run.
+ if test -z "$run"; then
+ for installed in no yes; do
+ if test "$installed" = yes; then
+ if test -z "$install_libdir"; then
+ break
+ fi
+ output="$output_objdir/$outputname"i
+ # Replace all uninstalled libtool libraries with the installed ones
+ newdependency_libs=
+ for deplib in $dependency_libs; do
+ case $deplib in
+ *.la)
+ name=`$echo "X$deplib" | $Xsed -e 's%^.*/%%'`
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
+ if test -z "$libdir"; then
+ $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ newdependency_libs="$newdependency_libs $libdir/$name"
+ ;;
+ *) newdependency_libs="$newdependency_libs $deplib" ;;
+ esac
+ done
+ dependency_libs="$newdependency_libs"
+ newdlfiles=
+ for lib in $dlfiles; do
+ name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'`
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
+ if test -z "$libdir"; then
+ $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ newdlfiles="$newdlfiles $libdir/$name"
+ done
+ dlfiles="$newdlfiles"
+ newdlprefiles=
+ for lib in $dlprefiles; do
+ name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'`
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
+ if test -z "$libdir"; then
+ $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ newdlprefiles="$newdlprefiles $libdir/$name"
+ done
+ dlprefiles="$newdlprefiles"
+ else
+ newdlfiles=
+ for lib in $dlfiles; do
+ case $lib in
+ [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
+ *) abs=`pwd`"/$lib" ;;
+ esac
+ newdlfiles="$newdlfiles $abs"
+ done
+ dlfiles="$newdlfiles"
+ newdlprefiles=
+ for lib in $dlprefiles; do
+ case $lib in
+ [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
+ *) abs=`pwd`"/$lib" ;;
+ esac
+ newdlprefiles="$newdlprefiles $abs"
+ done
+ dlprefiles="$newdlprefiles"
+ fi
+ $rm $output
+ # place dlname in correct position for cygwin
+ tdlname=$dlname
+ case $host,$output,$installed,$module,$dlname in
+ *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll) tdlname=../bin/$dlname ;;
+ esac
+ $echo > $output "\
+# $outputname - a libtool library file
+# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP
+#
+# Please DO NOT delete this file!
+# It is necessary for linking the library.
+
+# The name that we can dlopen(3).
+dlname='$tdlname'
+
+# Names of this library.
+library_names='$library_names'
+
+# The name of the static archive.
+old_library='$old_library'
+
+# Libraries that this one depends upon.
+dependency_libs='$dependency_libs'
+
+# Version information for $libname.
+current=$current
+age=$age
+revision=$revision
+
+# Is this an already installed library?
+installed=$installed
+
+# Should we warn about portability when linking against -modules?
+shouldnotlink=$module
+
+# Files to dlopen/dlpreopen
+dlopen='$dlfiles'
+dlpreopen='$dlprefiles'
+
+# Directory that this library needs to be installed in:
+libdir='$install_libdir'"
+ if test "$installed" = no && test "$need_relink" = yes; then
+ $echo >> $output "\
+relink_command=\"$relink_command\""
+ fi
+ done
+ fi
+
+ # Do a symbolic link so that the libtool archive can be found in
+ # LD_LIBRARY_PATH before the program is installed.
+ $show "(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)"
+ $run eval '(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)' || exit $?
+ ;;
+ esac
+ exit $EXIT_SUCCESS
+ ;;
+
+ # libtool install mode
+ install)
+ modename="$modename: install"
+
+ # There may be an optional sh(1) argument at the beginning of
+ # install_prog (especially on Windows NT).
+ if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh ||
+ # Allow the use of GNU shtool's install command.
+ $echo "X$nonopt" | $Xsed | grep shtool > /dev/null; then
+ # Aesthetically quote it.
+ arg=`$echo "X$nonopt" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*)
+ arg="\"$arg\""
+ ;;
+ esac
+ install_prog="$arg "
+ arg="$1"
+ shift
+ else
+ install_prog=
+ arg="$nonopt"
+ fi
+
+ # The real first argument should be the name of the installation program.
+ # Aesthetically quote it.
+ arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*)
+ arg="\"$arg\""
+ ;;
+ esac
+ install_prog="$install_prog$arg"
+
+ # We need to accept at least all the BSD install flags.
+ dest=
+ files=
+ opts=
+ prev=
+ install_type=
+ isdir=no
+ stripme=
+ for arg
+ do
+ if test -n "$dest"; then
+ files="$files $dest"
+ dest="$arg"
+ continue
+ fi
+
+ case $arg in
+ -d) isdir=yes ;;
+ -f) prev="-f" ;;
+ -g) prev="-g" ;;
+ -m) prev="-m" ;;
+ -o) prev="-o" ;;
+ -s)
+ stripme=" -s"
+ continue
+ ;;
+ -*) ;;
+
+ *)
+ # If the previous option needed an argument, then skip it.
+ if test -n "$prev"; then
+ prev=
+ else
+ dest="$arg"
+ continue
+ fi
+ ;;
+ esac
+
+ # Aesthetically quote the argument.
+ arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`
+ case $arg in
+ *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*)
+ arg="\"$arg\""
+ ;;
+ esac
+ install_prog="$install_prog $arg"
+ done
+
+ if test -z "$install_prog"; then
+ $echo "$modename: you must specify an install program" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ if test -n "$prev"; then
+ $echo "$modename: the \`$prev' option requires an argument" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ if test -z "$files"; then
+ if test -z "$dest"; then
+ $echo "$modename: no file or destination specified" 1>&2
+ else
+ $echo "$modename: you must specify a destination" 1>&2
+ fi
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Strip any trailing slash from the destination.
+ dest=`$echo "X$dest" | $Xsed -e 's%/$%%'`
+
+ # Check to see that the destination is a directory.
+ test -d "$dest" && isdir=yes
+ if test "$isdir" = yes; then
+ destdir="$dest"
+ destname=
+ else
+ destdir=`$echo "X$dest" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$destdir" = "X$dest" && destdir=.
+ destname=`$echo "X$dest" | $Xsed -e 's%^.*/%%'`
+
+ # Not a directory, so check to see that there is only one file specified.
+ set dummy $files
+ if test "$#" -gt 2; then
+ $echo "$modename: \`$dest' is not a directory" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ fi
+ case $destdir in
+ [\\/]* | [A-Za-z]:[\\/]*) ;;
+ *)
+ for file in $files; do
+ case $file in
+ *.lo) ;;
+ *)
+ $echo "$modename: \`$destdir' must be an absolute directory name" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+ done
+ ;;
+ esac
+
+ # This variable tells wrapper scripts just to set variables rather
+ # than running their programs.
+ libtool_install_magic="$magic"
+
+ staticlibs=
+ future_libdirs=
+ current_libdirs=
+ for file in $files; do
+
+ # Do each installation.
+ case $file in
+ *.$libext)
+ # Do the static libraries later.
+ staticlibs="$staticlibs $file"
+ ;;
+
+ *.la)
+ # Check to see that this really is a libtool archive.
+ if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then :
+ else
+ $echo "$modename: \`$file' is not a valid libtool archive" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ library_names=
+ old_library=
+ relink_command=
+ # If there is no directory component, then add one.
+ case $file in
+ */* | *\\*) . $file ;;
+ *) . ./$file ;;
+ esac
+
+ # Add the libdir to current_libdirs if it is the destination.
+ if test "X$destdir" = "X$libdir"; then
+ case "$current_libdirs " in
+ *" $libdir "*) ;;
+ *) current_libdirs="$current_libdirs $libdir" ;;
+ esac
+ else
+ # Note the libdir as a future libdir.
+ case "$future_libdirs " in
+ *" $libdir "*) ;;
+ *) future_libdirs="$future_libdirs $libdir" ;;
+ esac
+ fi
+
+ dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`/
+ test "X$dir" = "X$file/" && dir=
+ dir="$dir$objdir"
+
+ if test -n "$relink_command"; then
+ # Determine the prefix the user has applied to our future dir.
+ inst_prefix_dir=`$echo "$destdir" | $SED "s%$libdir\$%%"`
+
+ # Don't allow the user to place us outside of our expected
+ # location b/c this prevents finding dependent libraries that
+ # are installed to the same prefix.
+ # At present, this check doesn't affect windows .dll's that
+ # are installed into $libdir/../bin (currently, that works fine)
+ # but it's something to keep an eye on.
+ if test "$inst_prefix_dir" = "$destdir"; then
+ $echo "$modename: error: cannot install \`$file' to a directory not ending in $libdir" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ if test -n "$inst_prefix_dir"; then
+ # Stick the inst_prefix_dir data into the link command.
+ relink_command=`$echo "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"`
+ else
+ relink_command=`$echo "$relink_command" | $SED "s%@inst_prefix_dir@%%"`
+ fi
+
+ $echo "$modename: warning: relinking \`$file'" 1>&2
+ $show "$relink_command"
+ if $run eval "$relink_command"; then :
+ else
+ $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ fi
+
+ # See the names of the shared library.
+ set dummy $library_names
+ if test -n "$2"; then
+ realname="$2"
+ shift
+ shift
+
+ srcname="$realname"
+ test -n "$relink_command" && srcname="$realname"T
+
+ # Install the shared library and build the symlinks.
+ $show "$install_prog $dir/$srcname $destdir/$realname"
+ $run eval "$install_prog $dir/$srcname $destdir/$realname" || exit $?
+ if test -n "$stripme" && test -n "$striplib"; then
+ $show "$striplib $destdir/$realname"
+ $run eval "$striplib $destdir/$realname" || exit $?
+ fi
+
+ if test "$#" -gt 0; then
+ # Delete the old symlinks, and create new ones.
+ for linkname
+ do
+ if test "$linkname" != "$realname"; then
+ $show "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)"
+ $run eval "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)"
+ fi
+ done
+ fi
+
+ # Do each command in the postinstall commands.
+ lib="$destdir/$realname"
+ cmds=$postinstall_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ fi
+
+ # Install the pseudo-library for information purposes.
+ name=`$echo "X$file" | $Xsed -e 's%^.*/%%'`
+ instname="$dir/$name"i
+ $show "$install_prog $instname $destdir/$name"
+ $run eval "$install_prog $instname $destdir/$name" || exit $?
+
+ # Maybe install the static library, too.
+ test -n "$old_library" && staticlibs="$staticlibs $dir/$old_library"
+ ;;
+
+ *.lo)
+ # Install (i.e. copy) a libtool object.
+
+ # Figure out destination file name, if it wasn't already specified.
+ if test -n "$destname"; then
+ destfile="$destdir/$destname"
+ else
+ destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'`
+ destfile="$destdir/$destfile"
+ fi
+
+ # Deduce the name of the destination old-style object file.
+ case $destfile in
+ *.lo)
+ staticdest=`$echo "X$destfile" | $Xsed -e "$lo2o"`
+ ;;
+ *.$objext)
+ staticdest="$destfile"
+ destfile=
+ ;;
+ *)
+ $echo "$modename: cannot copy a libtool object to \`$destfile'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ # Install the libtool object if requested.
+ if test -n "$destfile"; then
+ $show "$install_prog $file $destfile"
+ $run eval "$install_prog $file $destfile" || exit $?
+ fi
+
+ # Install the old object if enabled.
+ if test "$build_old_libs" = yes; then
+ # Deduce the name of the old-style object file.
+ staticobj=`$echo "X$file" | $Xsed -e "$lo2o"`
+
+ $show "$install_prog $staticobj $staticdest"
+ $run eval "$install_prog \$staticobj \$staticdest" || exit $?
+ fi
+ exit $EXIT_SUCCESS
+ ;;
+
+ *)
+ # Figure out destination file name, if it wasn't already specified.
+ if test -n "$destname"; then
+ destfile="$destdir/$destname"
+ else
+ destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'`
+ destfile="$destdir/$destfile"
+ fi
+
+ # If the file is missing, and there is a .exe on the end, strip it
+ # because it is most likely a libtool script we actually want to
+ # install
+ stripped_ext=""
+ case $file in
+ *.exe)
+ if test ! -f "$file"; then
+ file=`$echo $file|${SED} 's,.exe$,,'`
+ stripped_ext=".exe"
+ fi
+ ;;
+ esac
+
+ # Do a test to see if this is really a libtool program.
+ case $host in
+ *cygwin*|*mingw*)
+ wrapper=`$echo $file | ${SED} -e 's,.exe$,,'`
+ ;;
+ *)
+ wrapper=$file
+ ;;
+ esac
+ if (${SED} -e '4q' $wrapper | grep "^# Generated by .*$PACKAGE")>/dev/null 2>&1; then
+ notinst_deplibs=
+ relink_command=
+
+ # To insure that "foo" is sourced, and not "foo.exe",
+ # finese the cygwin/MSYS system by explicitly sourcing "foo."
+ # which disallows the automatic-append-.exe behavior.
+ case $build in
+ *cygwin* | *mingw*) wrapperdot=${wrapper}. ;;
+ *) wrapperdot=${wrapper} ;;
+ esac
+ # If there is no directory component, then add one.
+ case $file in
+ */* | *\\*) . ${wrapperdot} ;;
+ *) . ./${wrapperdot} ;;
+ esac
+
+ # Check the variables that should have been set.
+ if test -z "$notinst_deplibs"; then
+ $echo "$modename: invalid libtool wrapper script \`$wrapper'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ finalize=yes
+ for lib in $notinst_deplibs; do
+ # Check to see that each library is installed.
+ libdir=
+ if test -f "$lib"; then
+ # If there is no directory component, then add one.
+ case $lib in
+ */* | *\\*) . $lib ;;
+ *) . ./$lib ;;
+ esac
+ fi
+ libfile="$libdir/"`$echo "X$lib" | $Xsed -e 's%^.*/%%g'` ### testsuite: skip nested quoting test
+ if test -n "$libdir" && test ! -f "$libfile"; then
+ $echo "$modename: warning: \`$lib' has not been installed in \`$libdir'" 1>&2
+ finalize=no
+ fi
+ done
+
+ relink_command=
+ # To insure that "foo" is sourced, and not "foo.exe",
+ # finese the cygwin/MSYS system by explicitly sourcing "foo."
+ # which disallows the automatic-append-.exe behavior.
+ case $build in
+ *cygwin* | *mingw*) wrapperdot=${wrapper}. ;;
+ *) wrapperdot=${wrapper} ;;
+ esac
+ # If there is no directory component, then add one.
+ case $file in
+ */* | *\\*) . ${wrapperdot} ;;
+ *) . ./${wrapperdot} ;;
+ esac
+
+ outputname=
+ if test "$fast_install" = no && test -n "$relink_command"; then
+ if test "$finalize" = yes && test -z "$run"; then
+ tmpdir="/tmp"
+ test -n "$TMPDIR" && tmpdir="$TMPDIR"
+ tmpdir="$tmpdir/libtool-$$"
+ save_umask=`umask`
+ umask 0077
+ if $mkdir "$tmpdir"; then
+ umask $save_umask
+ else
+ umask $save_umask
+ $echo "$modename: error: cannot create temporary directory \`$tmpdir'" 1>&2
+ continue
+ fi
+ file=`$echo "X$file$stripped_ext" | $Xsed -e 's%^.*/%%'`
+ outputname="$tmpdir/$file"
+ # Replace the output file specification.
+ relink_command=`$echo "X$relink_command" | $Xsed -e 's%@OUTPUT@%'"$outputname"'%g'`
+
+ $show "$relink_command"
+ if $run eval "$relink_command"; then :
+ else
+ $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2
+ ${rm}r "$tmpdir"
+ continue
+ fi
+ file="$outputname"
+ else
+ $echo "$modename: warning: cannot relink \`$file'" 1>&2
+ fi
+ else
+ # Install the binary that we compiled earlier.
+ file=`$echo "X$file$stripped_ext" | $Xsed -e "s%\([^/]*\)$%$objdir/\1%"`
+ fi
+ fi
+
+ # remove .exe since cygwin /usr/bin/install will append another
+ # one anyways
+ case $install_prog,$host in
+ */usr/bin/install*,*cygwin*)
+ case $file:$destfile in
+ *.exe:*.exe)
+ # this is ok
+ ;;
+ *.exe:*)
+ destfile=$destfile.exe
+ ;;
+ *:*.exe)
+ destfile=`$echo $destfile | ${SED} -e 's,.exe$,,'`
+ ;;
+ esac
+ ;;
+ esac
+ $show "$install_prog$stripme $file $destfile"
+ $run eval "$install_prog\$stripme \$file \$destfile" || exit $?
+ test -n "$outputname" && ${rm}r "$tmpdir"
+ ;;
+ esac
+ done
+
+ for file in $staticlibs; do
+ name=`$echo "X$file" | $Xsed -e 's%^.*/%%'`
+
+ # Set up the ranlib parameters.
+ oldlib="$destdir/$name"
+
+ $show "$install_prog $file $oldlib"
+ $run eval "$install_prog \$file \$oldlib" || exit $?
+
+ if test -n "$stripme" && test -n "$old_striplib"; then
+ $show "$old_striplib $oldlib"
+ $run eval "$old_striplib $oldlib" || exit $?
+ fi
+
+ # Do each command in the postinstall commands.
+ cmds=$old_postinstall_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || exit $?
+ done
+ IFS="$save_ifs"
+ done
+
+ if test -n "$future_libdirs"; then
+ $echo "$modename: warning: remember to run \`$progname --finish$future_libdirs'" 1>&2
+ fi
+
+ if test -n "$current_libdirs"; then
+ # Maybe just do a dry run.
+ test -n "$run" && current_libdirs=" -n$current_libdirs"
+ exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs'
+ else
+ exit $EXIT_SUCCESS
+ fi
+ ;;
+
+ # libtool finish mode
+ finish)
+ modename="$modename: finish"
+ libdirs="$nonopt"
+ admincmds=
+
+ if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
+ for dir
+ do
+ libdirs="$libdirs $dir"
+ done
+
+ for libdir in $libdirs; do
+ if test -n "$finish_cmds"; then
+ # Do each command in the finish commands.
+ cmds=$finish_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd" || admincmds="$admincmds
+ $cmd"
+ done
+ IFS="$save_ifs"
+ fi
+ if test -n "$finish_eval"; then
+ # Do the single finish_eval.
+ eval cmds=\"$finish_eval\"
+ $run eval "$cmds" || admincmds="$admincmds
+ $cmds"
+ fi
+ done
+ fi
+
+ # Exit here if they wanted silent mode.
+ test "$show" = : && exit $EXIT_SUCCESS
+
+ $echo "----------------------------------------------------------------------"
+ $echo "Libraries have been installed in:"
+ for libdir in $libdirs; do
+ $echo " $libdir"
+ done
+ $echo
+ $echo "If you ever happen to want to link against installed libraries"
+ $echo "in a given directory, LIBDIR, you must either use libtool, and"
+ $echo "specify the full pathname of the library, or use the \`-LLIBDIR'"
+ $echo "flag during linking and do at least one of the following:"
+ if test -n "$shlibpath_var"; then
+ $echo " - add LIBDIR to the \`$shlibpath_var' environment variable"
+ $echo " during execution"
+ fi
+ if test -n "$runpath_var"; then
+ $echo " - add LIBDIR to the \`$runpath_var' environment variable"
+ $echo " during linking"
+ fi
+ if test -n "$hardcode_libdir_flag_spec"; then
+ libdir=LIBDIR
+ eval flag=\"$hardcode_libdir_flag_spec\"
+
+ $echo " - use the \`$flag' linker flag"
+ fi
+ if test -n "$admincmds"; then
+ $echo " - have your system administrator run these commands:$admincmds"
+ fi
+ if test -f /etc/ld.so.conf; then
+ $echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'"
+ fi
+ $echo
+ $echo "See any operating system documentation about shared libraries for"
+ $echo "more information, such as the ld(1) and ld.so(8) manual pages."
+ $echo "----------------------------------------------------------------------"
+ exit $EXIT_SUCCESS
+ ;;
+
+ # libtool execute mode
+ execute)
+ modename="$modename: execute"
+
+ # The first argument is the command name.
+ cmd="$nonopt"
+ if test -z "$cmd"; then
+ $echo "$modename: you must specify a COMMAND" 1>&2
+ $echo "$help"
+ exit $EXIT_FAILURE
+ fi
+
+ # Handle -dlopen flags immediately.
+ for file in $execute_dlfiles; do
+ if test ! -f "$file"; then
+ $echo "$modename: \`$file' is not a file" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ dir=
+ case $file in
+ *.la)
+ # Check to see that this really is a libtool archive.
+ if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then :
+ else
+ $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ # Read the libtool library.
+ dlname=
+ library_names=
+
+ # If there is no directory component, then add one.
+ case $file in
+ */* | *\\*) . $file ;;
+ *) . ./$file ;;
+ esac
+
+ # Skip this library if it cannot be dlopened.
+ if test -z "$dlname"; then
+ # Warn if it was a shared library.
+ test -n "$library_names" && $echo "$modename: warning: \`$file' was not linked with \`-export-dynamic'"
+ continue
+ fi
+
+ dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$dir" = "X$file" && dir=.
+
+ if test -f "$dir/$objdir/$dlname"; then
+ dir="$dir/$objdir"
+ else
+ $echo "$modename: cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" 1>&2
+ exit $EXIT_FAILURE
+ fi
+ ;;
+
+ *.lo)
+ # Just add the directory containing the .lo file.
+ dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`
+ test "X$dir" = "X$file" && dir=.
+ ;;
+
+ *)
+ $echo "$modename: warning \`-dlopen' is ignored for non-libtool libraries and objects" 1>&2
+ continue
+ ;;
+ esac
+
+ # Get the absolute pathname.
+ absdir=`cd "$dir" && pwd`
+ test -n "$absdir" && dir="$absdir"
+
+ # Now add the directory to shlibpath_var.
+ if eval "test -z \"\$$shlibpath_var\""; then
+ eval "$shlibpath_var=\"\$dir\""
+ else
+ eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\""
+ fi
+ done
+
+ # This variable tells wrapper scripts just to set shlibpath_var
+ # rather than running their programs.
+ libtool_execute_magic="$magic"
+
+ # Check if any of the arguments is a wrapper script.
+ args=
+ for file
+ do
+ case $file in
+ -*) ;;
+ *)
+ # Do a test to see if this is really a libtool program.
+ if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ # If there is no directory component, then add one.
+ case $file in
+ */* | *\\*) . $file ;;
+ *) . ./$file ;;
+ esac
+
+ # Transform arg to wrapped name.
+ file="$progdir/$program"
+ fi
+ ;;
+ esac
+ # Quote arguments (to preserve shell metacharacters).
+ file=`$echo "X$file" | $Xsed -e "$sed_quote_subst"`
+ args="$args \"$file\""
+ done
+
+ if test -z "$run"; then
+ if test -n "$shlibpath_var"; then
+ # Export the shlibpath_var.
+ eval "export $shlibpath_var"
+ fi
+
+ # Restore saved environment variables
+ if test "${save_LC_ALL+set}" = set; then
+ LC_ALL="$save_LC_ALL"; export LC_ALL
+ fi
+ if test "${save_LANG+set}" = set; then
+ LANG="$save_LANG"; export LANG
+ fi
+
+ # Now prepare to actually exec the command.
+ exec_cmd="\$cmd$args"
+ else
+ # Display what would be done.
+ if test -n "$shlibpath_var"; then
+ eval "\$echo \"\$shlibpath_var=\$$shlibpath_var\""
+ $echo "export $shlibpath_var"
+ fi
+ $echo "$cmd$args"
+ exit $EXIT_SUCCESS
+ fi
+ ;;
+
+ # libtool clean and uninstall mode
+ clean | uninstall)
+ modename="$modename: $mode"
+ rm="$nonopt"
+ files=
+ rmforce=
+ exit_status=0
+
+ # This variable tells wrapper scripts just to set variables rather
+ # than running their programs.
+ libtool_install_magic="$magic"
+
+ for arg
+ do
+ case $arg in
+ -f) rm="$rm $arg"; rmforce=yes ;;
+ -*) rm="$rm $arg" ;;
+ *) files="$files $arg" ;;
+ esac
+ done
+
+ if test -z "$rm"; then
+ $echo "$modename: you must specify an RM program" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+
+ rmdirs=
+
+ origobjdir="$objdir"
+ for file in $files; do
+ dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`
+ if test "X$dir" = "X$file"; then
+ dir=.
+ objdir="$origobjdir"
+ else
+ objdir="$dir/$origobjdir"
+ fi
+ name=`$echo "X$file" | $Xsed -e 's%^.*/%%'`
+ test "$mode" = uninstall && objdir="$dir"
+
+ # Remember objdir for removal later, being careful to avoid duplicates
+ if test "$mode" = clean; then
+ case " $rmdirs " in
+ *" $objdir "*) ;;
+ *) rmdirs="$rmdirs $objdir" ;;
+ esac
+ fi
+
+ # Don't error if the file doesn't exist and rm -f was used.
+ if (test -L "$file") >/dev/null 2>&1 \
+ || (test -h "$file") >/dev/null 2>&1 \
+ || test -f "$file"; then
+ :
+ elif test -d "$file"; then
+ exit_status=1
+ continue
+ elif test "$rmforce" = yes; then
+ continue
+ fi
+
+ rmfiles="$file"
+
+ case $name in
+ *.la)
+ # Possibly a libtool archive, so verify it.
+ if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ . $dir/$name
+
+ # Delete the libtool libraries and symlinks.
+ for n in $library_names; do
+ rmfiles="$rmfiles $objdir/$n"
+ done
+ test -n "$old_library" && rmfiles="$rmfiles $objdir/$old_library"
+ test "$mode" = clean && rmfiles="$rmfiles $objdir/$name $objdir/${name}i"
+
+ if test "$mode" = uninstall; then
+ if test -n "$library_names"; then
+ # Do each command in the postuninstall commands.
+ cmds=$postuninstall_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd"
+ if test "$?" -ne 0 && test "$rmforce" != yes; then
+ exit_status=1
+ fi
+ done
+ IFS="$save_ifs"
+ fi
+
+ if test -n "$old_library"; then
+ # Do each command in the old_postuninstall commands.
+ cmds=$old_postuninstall_cmds
+ save_ifs="$IFS"; IFS='~'
+ for cmd in $cmds; do
+ IFS="$save_ifs"
+ eval cmd=\"$cmd\"
+ $show "$cmd"
+ $run eval "$cmd"
+ if test "$?" -ne 0 && test "$rmforce" != yes; then
+ exit_status=1
+ fi
+ done
+ IFS="$save_ifs"
+ fi
+ # FIXME: should reinstall the best remaining shared library.
+ fi
+ fi
+ ;;
+
+ *.lo)
+ # Possibly a libtool object, so verify it.
+ if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+
+ # Read the .lo file
+ . $dir/$name
+
+ # Add PIC object to the list of files to remove.
+ if test -n "$pic_object" \
+ && test "$pic_object" != none; then
+ rmfiles="$rmfiles $dir/$pic_object"
+ fi
+
+ # Add non-PIC object to the list of files to remove.
+ if test -n "$non_pic_object" \
+ && test "$non_pic_object" != none; then
+ rmfiles="$rmfiles $dir/$non_pic_object"
+ fi
+ fi
+ ;;
+
+ *)
+ if test "$mode" = clean ; then
+ noexename=$name
+ case $file in
+ *.exe)
+ file=`$echo $file|${SED} 's,.exe$,,'`
+ noexename=`$echo $name|${SED} 's,.exe$,,'`
+ # $file with .exe has already been added to rmfiles,
+ # add $file without .exe
+ rmfiles="$rmfiles $file"
+ ;;
+ esac
+ # Do a test to see if this is a libtool program.
+ if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then
+ relink_command=
+ . $dir/$noexename
+
+ # note $name still contains .exe if it was in $file originally
+ # as does the version of $file that was added into $rmfiles
+ rmfiles="$rmfiles $objdir/$name $objdir/${name}S.${objext}"
+ if test "$fast_install" = yes && test -n "$relink_command"; then
+ rmfiles="$rmfiles $objdir/lt-$name"
+ fi
+ if test "X$noexename" != "X$name" ; then
+ rmfiles="$rmfiles $objdir/lt-${noexename}.c"
+ fi
+ fi
+ fi
+ ;;
+ esac
+ $show "$rm $rmfiles"
+ $run $rm $rmfiles || exit_status=1
+ done
+ objdir="$origobjdir"
+
+ # Try to remove the ${objdir}s in the directories where we deleted files
+ for dir in $rmdirs; do
+ if test -d "$dir"; then
+ $show "rmdir $dir"
+ $run rmdir $dir >/dev/null 2>&1
+ fi
+ done
+
+ exit $exit_status
+ ;;
+
+ "")
+ $echo "$modename: you must specify a MODE" 1>&2
+ $echo "$generic_help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+ esac
+
+ if test -z "$exec_cmd"; then
+ $echo "$modename: invalid operation mode \`$mode'" 1>&2
+ $echo "$generic_help" 1>&2
+ exit $EXIT_FAILURE
+ fi
+fi # test -z "$show_help"
+
+if test -n "$exec_cmd"; then
+ eval exec $exec_cmd
+ exit $EXIT_FAILURE
+fi
+
+# We need to display help for each of the modes.
+case $mode in
+"") $echo \
+"Usage: $modename [OPTION]... [MODE-ARG]...
+
+Provide generalized library-building support services.
+
+ --config show all configuration variables
+ --debug enable verbose shell tracing
+-n, --dry-run display commands without modifying any files
+ --features display basic configuration information and exit
+ --finish same as \`--mode=finish'
+ --help display this help message and exit
+ --mode=MODE use operation mode MODE [default=inferred from MODE-ARGS]
+ --quiet same as \`--silent'
+ --silent don't print informational messages
+ --tag=TAG use configuration variables from tag TAG
+ --version print version information
+
+MODE must be one of the following:
+
+ clean remove files from the build directory
+ compile compile a source file into a libtool object
+ execute automatically set library path, then run a program
+ finish complete the installation of libtool libraries
+ install install libraries or executables
+ link create a library or an executable
+ uninstall remove libraries from an installed directory
+
+MODE-ARGS vary depending on the MODE. Try \`$modename --help --mode=MODE' for
+a more detailed description of MODE.
+
+Report bugs to <bug-libtool at gnu.org>."
+ exit $EXIT_SUCCESS
+ ;;
+
+clean)
+ $echo \
+"Usage: $modename [OPTION]... --mode=clean RM [RM-OPTION]... FILE...
+
+Remove files from the build directory.
+
+RM is the name of the program to use to delete files associated with each FILE
+(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
+to RM.
+
+If FILE is a libtool library, object or program, all the files associated
+with it are deleted. Otherwise, only FILE itself is deleted using RM."
+ ;;
+
+compile)
+ $echo \
+"Usage: $modename [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE
+
+Compile a source file into a libtool library object.
+
+This mode accepts the following additional options:
+
+ -o OUTPUT-FILE set the output file name to OUTPUT-FILE
+ -prefer-pic try to building PIC objects only
+ -prefer-non-pic try to building non-PIC objects only
+ -static always build a \`.o' file suitable for static linking
+
+COMPILE-COMMAND is a command to be used in creating a \`standard' object file
+from the given SOURCEFILE.
+
+The output file name is determined by removing the directory component from
+SOURCEFILE, then substituting the C source code suffix \`.c' with the
+library object suffix, \`.lo'."
+ ;;
+
+execute)
+ $echo \
+"Usage: $modename [OPTION]... --mode=execute COMMAND [ARGS]...
+
+Automatically set library path, then run a program.
+
+This mode accepts the following additional options:
+
+ -dlopen FILE add the directory containing FILE to the library path
+
+This mode sets the library path environment variable according to \`-dlopen'
+flags.
+
+If any of the ARGS are libtool executable wrappers, then they are translated
+into their corresponding uninstalled binary, and any of their required library
+directories are added to the library path.
+
+Then, COMMAND is executed, with ARGS as arguments."
+ ;;
+
+finish)
+ $echo \
+"Usage: $modename [OPTION]... --mode=finish [LIBDIR]...
+
+Complete the installation of libtool libraries.
+
+Each LIBDIR is a directory that contains libtool libraries.
+
+The commands that this mode executes may require superuser privileges. Use
+the \`--dry-run' option if you just want to see what would be executed."
+ ;;
+
+install)
+ $echo \
+"Usage: $modename [OPTION]... --mode=install INSTALL-COMMAND...
+
+Install executables or libraries.
+
+INSTALL-COMMAND is the installation command. The first component should be
+either the \`install' or \`cp' program.
+
+The rest of the components are interpreted as arguments to that command (only
+BSD-compatible install options are recognized)."
+ ;;
+
+link)
+ $echo \
+"Usage: $modename [OPTION]... --mode=link LINK-COMMAND...
+
+Link object files or libraries together to form another library, or to
+create an executable program.
+
+LINK-COMMAND is a command using the C compiler that you would use to create
+a program from several object files.
+
+The following components of LINK-COMMAND are treated specially:
+
+ -all-static do not do any dynamic linking at all
+ -avoid-version do not add a version suffix if possible
+ -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime
+ -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols
+ -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3)
+ -export-symbols SYMFILE
+ try to export only the symbols listed in SYMFILE
+ -export-symbols-regex REGEX
+ try to export only the symbols matching REGEX
+ -LLIBDIR search LIBDIR for required installed libraries
+ -lNAME OUTPUT-FILE requires the installed library libNAME
+ -module build a library that can dlopened
+ -no-fast-install disable the fast-install mode
+ -no-install link a not-installable executable
+ -no-undefined declare that a library does not refer to external symbols
+ -o OUTPUT-FILE create OUTPUT-FILE from the specified objects
+ -objectlist FILE Use a list of object files found in FILE to specify objects
+ -precious-files-regex REGEX
+ don't remove output files matching REGEX
+ -release RELEASE specify package release information
+ -rpath LIBDIR the created library will eventually be installed in LIBDIR
+ -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries
+ -static do not do any dynamic linking of libtool libraries
+ -version-info CURRENT[:REVISION[:AGE]]
+ specify library version info [each variable defaults to 0]
+
+All other options (arguments beginning with \`-') are ignored.
+
+Every other argument is treated as a filename. Files ending in \`.la' are
+treated as uninstalled libtool libraries, other files are standard or library
+object files.
+
+If the OUTPUT-FILE ends in \`.la', then a libtool library is created,
+only library objects (\`.lo' files) may be specified, and \`-rpath' is
+required, except when creating a convenience library.
+
+If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created
+using \`ar' and \`ranlib', or on Windows using \`lib'.
+
+If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file
+is created, otherwise an executable program is created."
+ ;;
+
+uninstall)
+ $echo \
+"Usage: $modename [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE...
+
+Remove libraries from an installation directory.
+
+RM is the name of the program to use to delete files associated with each FILE
+(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
+to RM.
+
+If FILE is a libtool library, all the files associated with it are deleted.
+Otherwise, only FILE itself is deleted using RM."
+ ;;
+
+*)
+ $echo "$modename: invalid operation mode \`$mode'" 1>&2
+ $echo "$help" 1>&2
+ exit $EXIT_FAILURE
+ ;;
+esac
+
+$echo
+$echo "Try \`$modename --help' for more information about other modes."
+
+exit $EXIT_SUCCESS
+
+# The TAGs below are defined such that we never get into a situation
+# in which we disable both kinds of libraries. Given conflicting
+# choices, we go for a static library, that is the most portable,
+# since we can't tell whether shared libraries were disabled because
+# the user asked for that or because the platform doesn't support
+# them. This is particularly important on AIX, because we don't
+# support having both static and shared libraries enabled at the same
+# time on that platform, so we default to a shared-only configuration.
+# If a disable-shared tag is given, we'll fallback to a static-only
+# configuration. But we'll never go from static-only to shared-only.
+
+# ### BEGIN LIBTOOL TAG CONFIG: disable-shared
+build_libtool_libs=no
+build_old_libs=yes
+# ### END LIBTOOL TAG CONFIG: disable-shared
+
+# ### BEGIN LIBTOOL TAG CONFIG: disable-static
+build_old_libs=`case $build_libtool_libs in yes) $echo no;; *) $echo yes;; esac`
+# ### END LIBTOOL TAG CONFIG: disable-static
+
+# Local Variables:
+# mode:shell-script
+# sh-indentation:2
+# End:
Property changes on: trunk/libltdl/ltmain.sh
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:eol-style
+ native
Added: trunk/libltdl/missing
===================================================================
--- trunk/libltdl/missing (rev 0)
+++ trunk/libltdl/missing 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,360 @@
+#! /bin/sh
+# Common stub for a few missing GNU programs while installing.
+
+scriptversion=2003-09-02.23
+
+# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003
+# Free Software Foundation, Inc.
+# Originally by Fran,cois Pinard <pinard at iro.umontreal.ca>, 1996.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+# As a special exception to the GNU General Public License, if you
+# distribute this file as part of a program that contains a
+# configuration script generated by Autoconf, you may include it under
+# the same distribution terms that you use for the rest of that program.
+
+if test $# -eq 0; then
+ echo 1>&2 "Try \`$0 --help' for more information"
+ exit 1
+fi
+
+run=:
+
+# In the cases where this matters, `missing' is being run in the
+# srcdir already.
+if test -f configure.ac; then
+ configure_ac=configure.ac
+else
+ configure_ac=configure.in
+fi
+
+msg="missing on your system"
+
+case "$1" in
+--run)
+ # Try to run requested program, and just exit if it succeeds.
+ run=
+ shift
+ "$@" && exit 0
+ # Exit code 63 means version mismatch. This often happens
+ # when the user try to use an ancient version of a tool on
+ # a file that requires a minimum version. In this case we
+ # we should proceed has if the program had been absent, or
+ # if --run hadn't been passed.
+ if test $? = 63; then
+ run=:
+ msg="probably too old"
+ fi
+ ;;
+esac
+
+# If it does not exist, or fails to run (possibly an outdated version),
+# try to emulate it.
+case "$1" in
+
+ -h|--h|--he|--hel|--help)
+ echo "\
+$0 [OPTION]... PROGRAM [ARGUMENT]...
+
+Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an
+error status if there is no known handling for PROGRAM.
+
+Options:
+ -h, --help display this help and exit
+ -v, --version output version information and exit
+ --run try to run the given command, and emulate it if it fails
+
+Supported PROGRAM values:
+ aclocal touch file \`aclocal.m4'
+ autoconf touch file \`configure'
+ autoheader touch file \`config.h.in'
+ automake touch all \`Makefile.in' files
+ bison create \`y.tab.[ch]', if possible, from existing .[ch]
+ flex create \`lex.yy.c', if possible, from existing .c
+ help2man touch the output file
+ lex create \`lex.yy.c', if possible, from existing .c
+ makeinfo touch the output file
+ tar try tar, gnutar, gtar, then tar without non-portable flags
+ yacc create \`y.tab.[ch]', if possible, from existing .[ch]
+
+Send bug reports to <bug-automake at gnu.org>."
+ ;;
+
+ -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
+ echo "missing $scriptversion (GNU Automake)"
+ ;;
+
+ -*)
+ echo 1>&2 "$0: Unknown \`$1' option"
+ echo 1>&2 "Try \`$0 --help' for more information"
+ exit 1
+ ;;
+
+ aclocal*)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified \`acinclude.m4' or \`${configure_ac}'. You might want
+ to install the \`Automake' and \`Perl' packages. Grab them from
+ any GNU archive site."
+ touch aclocal.m4
+ ;;
+
+ autoconf)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified \`${configure_ac}'. You might want to install the
+ \`Autoconf' and \`GNU m4' packages. Grab them from any GNU
+ archive site."
+ touch configure
+ ;;
+
+ autoheader)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified \`acconfig.h' or \`${configure_ac}'. You might want
+ to install the \`Autoconf' and \`GNU m4' packages. Grab them
+ from any GNU archive site."
+ files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}`
+ test -z "$files" && files="config.h"
+ touch_files=
+ for f in $files; do
+ case "$f" in
+ *:*) touch_files="$touch_files "`echo "$f" |
+ sed -e 's/^[^:]*://' -e 's/:.*//'`;;
+ *) touch_files="$touch_files $f.in";;
+ esac
+ done
+ touch $touch_files
+ ;;
+
+ automake*)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'.
+ You might want to install the \`Automake' and \`Perl' packages.
+ Grab them from any GNU archive site."
+ find . -type f -name Makefile.am -print |
+ sed 's/\.am$/.in/' |
+ while read f; do touch "$f"; done
+ ;;
+
+ autom4te)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is needed, but is $msg.
+ You might have modified some files without having the
+ proper tools for further handling them.
+ You can get \`$1' as part of \`Autoconf' from any GNU
+ archive site."
+
+ file=`echo "$*" | sed -n 's/.*--output[ =]*\([^ ]*\).*/\1/p'`
+ test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'`
+ if test -f "$file"; then
+ touch $file
+ else
+ test -z "$file" || exec >$file
+ echo "#! /bin/sh"
+ echo "# Created by GNU Automake missing as a replacement of"
+ echo "# $ $@"
+ echo "exit 0"
+ chmod +x $file
+ exit 1
+ fi
+ ;;
+
+ bison|yacc)
+ echo 1>&2 "\
+WARNING: \`$1' $msg. You should only need it if
+ you modified a \`.y' file. You may need the \`Bison' package
+ in order for those modifications to take effect. You can get
+ \`Bison' from any GNU archive site."
+ rm -f y.tab.c y.tab.h
+ if [ $# -ne 1 ]; then
+ eval LASTARG="\${$#}"
+ case "$LASTARG" in
+ *.y)
+ SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" y.tab.c
+ fi
+ SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" y.tab.h
+ fi
+ ;;
+ esac
+ fi
+ if [ ! -f y.tab.h ]; then
+ echo >y.tab.h
+ fi
+ if [ ! -f y.tab.c ]; then
+ echo 'main() { return 0; }' >y.tab.c
+ fi
+ ;;
+
+ lex|flex)
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified a \`.l' file. You may need the \`Flex' package
+ in order for those modifications to take effect. You can get
+ \`Flex' from any GNU archive site."
+ rm -f lex.yy.c
+ if [ $# -ne 1 ]; then
+ eval LASTARG="\${$#}"
+ case "$LASTARG" in
+ *.l)
+ SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'`
+ if [ -f "$SRCFILE" ]; then
+ cp "$SRCFILE" lex.yy.c
+ fi
+ ;;
+ esac
+ fi
+ if [ ! -f lex.yy.c ]; then
+ echo 'main() { return 0; }' >lex.yy.c
+ fi
+ ;;
+
+ help2man)
+ if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
+ # We have it, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified a dependency of a manual page. You may need the
+ \`Help2man' package in order for those modifications to take
+ effect. You can get \`Help2man' from any GNU archive site."
+
+ file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'`
+ if test -z "$file"; then
+ file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'`
+ fi
+ if [ -f "$file" ]; then
+ touch $file
+ else
+ test -z "$file" || exec >$file
+ echo ".ab help2man is required to generate this page"
+ exit 1
+ fi
+ ;;
+
+ makeinfo)
+ if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then
+ # We have makeinfo, but it failed.
+ exit 1
+ fi
+
+ echo 1>&2 "\
+WARNING: \`$1' is $msg. You should only need it if
+ you modified a \`.texi' or \`.texinfo' file, or any other file
+ indirectly affecting the aspect of the manual. The spurious
+ call might also be the consequence of using a buggy \`make' (AIX,
+ DU, IRIX). You might want to install the \`Texinfo' package or
+ the \`GNU make' package. Grab either from any GNU archive site."
+ file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'`
+ if test -z "$file"; then
+ file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'`
+ file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file`
+ fi
+ touch $file
+ ;;
+
+ tar)
+ shift
+ if test -n "$run"; then
+ echo 1>&2 "ERROR: \`tar' requires --run"
+ exit 1
+ fi
+
+ # We have already tried tar in the generic part.
+ # Look for gnutar/gtar before invocation to avoid ugly error
+ # messages.
+ if (gnutar --version > /dev/null 2>&1); then
+ gnutar "$@" && exit 0
+ fi
+ if (gtar --version > /dev/null 2>&1); then
+ gtar "$@" && exit 0
+ fi
+ firstarg="$1"
+ if shift; then
+ case "$firstarg" in
+ *o*)
+ firstarg=`echo "$firstarg" | sed s/o//`
+ tar "$firstarg" "$@" && exit 0
+ ;;
+ esac
+ case "$firstarg" in
+ *h*)
+ firstarg=`echo "$firstarg" | sed s/h//`
+ tar "$firstarg" "$@" && exit 0
+ ;;
+ esac
+ fi
+
+ echo 1>&2 "\
+WARNING: I can't seem to be able to run \`tar' with the given arguments.
+ You may want to install GNU tar or Free paxutils, or check the
+ command line arguments."
+ exit 1
+ ;;
+
+ *)
+ echo 1>&2 "\
+WARNING: \`$1' is needed, and is $msg.
+ You might have modified some files without having the
+ proper tools for further handling them. Check the \`README' file,
+ it often tells you about the needed prerequisites for installing
+ this package. You may also peek at any GNU archive site, in case
+ some other package would contain this missing \`$1' program."
+ exit 1
+ ;;
+esac
+
+exit 0
+
+# Local variables:
+# eval: (add-hook 'write-file-hooks 'time-stamp)
+# time-stamp-start: "scriptversion="
+# time-stamp-format: "%:y-%02m-%02d.%02H"
+# time-stamp-end: "$"
+# End:
Property changes on: trunk/libltdl/missing
___________________________________________________________________
Name: svn:executable
+ *
Modified: trunk/projects/AstEquivalence/astEquivalenceMainGui.C
===================================================================
--- trunk/projects/AstEquivalence/astEquivalenceMainGui.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/AstEquivalence/astEquivalenceMainGui.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -53,7 +53,7 @@
}
- catch(exception& e) {
+ catch(std::exception& e) {
cout << e.what() << "\n";
}
Modified: trunk/projects/AstEquivalence/createTextFiles.C
===================================================================
--- trunk/projects/AstEquivalence/createTextFiles.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/AstEquivalence/createTextFiles.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -242,7 +242,7 @@
// SgNode* disFile = disassembleFile(argv[1]);
SgProject* disFile = frontend(argc,argv);
-
+#if 0
VariantVector vv1(V_SgAsmPEDLL);
vv1.push_back(V_SgAsmPEDLL);
std::vector<SgNode*> peDLL = NodeQuery::querySubTree(disFile,vv1);
@@ -261,7 +261,8 @@
};
-
+#endif
+
std::cout << "END - PEDLL" <<std::endl;
{
Modified: trunk/projects/AstEquivalence/evaluateAllBinaries.C
===================================================================
--- trunk/projects/AstEquivalence/evaluateAllBinaries.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/AstEquivalence/evaluateAllBinaries.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -108,7 +108,7 @@
try {
con.executenonquery("create table IF NOT EXISTS timing(property_name TEXT, total_wallclock FLOAT, total_usertime FLOAT, total_systime FLOAT, wallclock FLOAT, usertime FLOAT, systime FLOAT )");
}
- catch(exception &ex) {
+ catch(std::exception &ex) {
cerr << "Exception Occurred: " << ex.what() << endl;
}
@@ -116,14 +116,14 @@
// Function IDs are only unique within a file
con.executenonquery("create table IF NOT EXISTS function_statistics(row_number INTEGER PRIMARY KEY, function_id INTEGER, num_instructions INTEGER )");
}
- catch(exception &ex) {
+ catch(std::exception &ex) {
cerr << "Exception Occurred: " << ex.what() << endl;
}
try {
con.executenonquery("create table IF NOT EXISTS function_ids(row_number INTEGER PRIMARY KEY, file TEXT, function_name TEXT)");
}
- catch(exception &ex) {
+ catch(std::exception &ex) {
cerr << "Exception Occurred: " << ex.what() << endl;
}
@@ -132,7 +132,7 @@
con.executenonquery("create table IF NOT EXISTS vectors(row_number INTEGER PRIMARY KEY, function_id INTEGER, index_within_function INTEGER, line INTEGER, offset INTEGER, sum_of_counts INTEGER, counts BLOB, instr_seq BLOB)");
}
- catch(exception &ex) {
+ catch(std::exception &ex) {
cerr << "Exception Occurred: " << ex.what() << endl;
}
@@ -141,7 +141,7 @@
}
- catch(exception &ex) {
+ catch(std::exception &ex) {
cerr << "Exception Occurred: " << ex.what() << endl;
}
Modified: trunk/projects/AstEquivalence/gui/compilerFlagsGui.C
===================================================================
--- trunk/projects/AstEquivalence/gui/compilerFlagsGui.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/AstEquivalence/gui/compilerFlagsGui.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -336,7 +336,7 @@
try {
eltCount = boost::lexical_cast<size_t>(cur_con.executestring("select max(row_number) from largest_clones"));
- } catch (exception& e) {
+ } catch (std::exception& e) {
eAssert(0, ("internal error: No largest_clones table found -- invalid database?!"));
}
@@ -434,7 +434,7 @@
std::cout << "Output A" << std::endl;;
}
- catch(exception& e) {
+ catch(std::exception& e) {
//cout << e.what() << "\n";
}
Modified: trunk/projects/AstEquivalence/gui/compilerFlagsMainGui.C
===================================================================
--- trunk/projects/AstEquivalence/gui/compilerFlagsMainGui.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/AstEquivalence/gui/compilerFlagsMainGui.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -53,7 +53,7 @@
}
- catch(exception& e) {
+ catch(std::exception& e) {
cout << e.what() << "\n";
}
Modified: trunk/projects/BinQ/AlignFunctions.C
===================================================================
--- trunk/projects/BinQ/AlignFunctions.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/AlignFunctions.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -9,7 +9,7 @@
#include "slide.h"
#include <qtabwidget.h>
-#include "Clone.h"
+#include "AlignFunctions.h"
using namespace qrs;
using namespace boost::filesystem;
@@ -17,10 +17,12 @@
using namespace boost;
using namespace __gnu_cxx;
+std::string AlignFunction::name() {
+ return "Align Functions";
+}
-
bool
-findPosWhenFunctionsAreNotSync(int& position, int& offset, int& currentPos) {
+AlignFunction::findPosWhenFunctionsAreNotSync(int& position, int& offset, int& currentPos) {
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
unsigned int max = instance->itemsFileA.size();
if (instance->itemsFileB.size()>max)
@@ -68,9 +70,14 @@
return true; // should not be reached
}
+std::string
+AlignFunction::getDescription() {
+ return "This Analysis aligns functions of two binaries. It is a simple algorithm that aligns functions based on their first encounter.";
+}
+
void
-alignFunctions() {
+AlignFunction::run() {
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
#if 1
@@ -92,9 +99,9 @@
for (int i=0; i<offset;++i) {
Item* item =NULL;
if (i==0)
- item = new Item(false,NULL,0,4,(position+i+1),length,(oldPos),"",0);
+ item = new Item(0,NULL,4,(position+i+1),length,(oldPos),"",0);
else
- item = new Item(false,NULL,0,4,(position+i+1),0,(oldPos)+length,"",0);
+ item = new Item(0,NULL,4,(position+i+1),0,(oldPos)+length,"",0);
it = instance->itemsFileA.insert(it,item);
++it;
// cerr << " A: adding NULL item at : " << (position+i+1) << " pos : " << (oldPos+i) <<endl;
@@ -119,9 +126,9 @@
for (int i=0; i<offset;++i) {
Item* item =NULL;
if (i==0)
- item = new Item(false,NULL,0,4,(position+i+1),length,(oldPos),"",0);
+ item = new Item(0,NULL,4,(position+i+1),length,(oldPos),"",0);
else
- item = new Item(false,NULL,0,4,(position+i+1),0,(oldPos)+length,"",0);
+ item = new Item(0,NULL,4,(position+i+1),0,(oldPos)+length,"",0);
it = instance->itemsFileB.insert(it,item);
++it;
//cerr << " B: adding NULL item at : " << (position+i+1) << " pos : " << oldPos+i<<endl;
Added: trunk/projects/BinQ/AlignFunctions.h
===================================================================
--- trunk/projects/BinQ/AlignFunctions.h (rev 0)
+++ trunk/projects/BinQ/AlignFunctions.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,23 @@
+#ifndef ALIGNFUNCTION_R_H
+#define ALIGNFUNCTION_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+
+class AlignFunction : public BinAnalyses {
+ public:
+ AlignFunction(){};
+ virtual ~AlignFunction(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+ private:
+ bool findPosWhenFunctionsAreNotSync(int& position, int& offset, int& currentPos);
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/AlignFunctions.h
___________________________________________________________________
Name: svn:eol-style
+ native
Deleted: trunk/projects/BinQ/AlignFunctionsSmart.C
===================================================================
--- trunk/projects/BinQ/AlignFunctionsSmart.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/AlignFunctionsSmart.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,153 +0,0 @@
-#include "BinQGui.h"
-
-#include "boost/filesystem/operations.hpp"
-#include <boost/lexical_cast.hpp>
-#include <iostream>
-
-
-#include "BinQSupport.h"
-#include "slide.h"
-
-#include <qtabwidget.h>
-#include "Clone.h"
-
-using namespace qrs;
-using namespace boost::filesystem;
-using namespace std;
-using namespace boost;
-using namespace __gnu_cxx;
-
-
-
-bool
-findPosWhenFunctionsAreNotSyncSmart(int& position, int& offset, int& currentPos) {
- BinQGUI *instance = QROSE::cbData<BinQGUI *>();
- unsigned int max = instance->itemsFileA.size();
- if (instance->itemsFileB.size()>max)
- max=instance->itemsFileB.size();
- for (unsigned int i=0;i<max;++i) {
- Item* itemA =NULL;
- Item* itemB =NULL;
- if (i<instance->itemsFileA.size())
- itemA=instance->itemsFileA[i];
- if (i<instance->itemsFileB.size())
- itemB=instance->itemsFileB[i];
- if (itemA && itemB) {
- SgAsmFunctionDeclaration* fa = isSgAsmFunctionDeclaration(itemA->statement);
- SgAsmFunctionDeclaration* fb = isSgAsmFunctionDeclaration(itemB->statement);
- if (fa && !fb) {
- // fa occured but fb is further away, need padding for fa
- for (unsigned int k=i;k<instance->itemsFileB.size();++k) {
- itemB=instance->itemsFileB[k];
- fb = isSgAsmFunctionDeclaration(itemB->statement);
- if (fb) {
- // We need a padding in B at pos i with length (k-i)
- position=i-1;
- offset=k-i;
- currentPos = itemB->pos;
- return true; //left (A)
- }
- }
- } else if (fb && !fa) {
- // fa occured but fb is further away, need padding for fa
- for (unsigned int k=i;k<instance->itemsFileA.size();++k) {
- itemA=instance->itemsFileA[k];
- fa = isSgAsmFunctionDeclaration(itemA->statement);
- if (fa) {
- // We need a padding in A at pos i with length (k-i)
- position=i-1;
- offset=k-i;
- currentPos = itemA->pos;
- return false; //right (B)
- }
- }
- }
-
- }
- }
- return true; // should not be reached
-}
-
-
-void
-alignFunctionsSmart() {
- BinQGUI *instance = QROSE::cbData<BinQGUI *>();
-
-#if 1
- // ------------------------------ Sync statments between itemsFileA amd itemsFileB
- // add padding
- int position=-1, offset=0, currentPos=0;
- bool fileAPadd = findPosWhenFunctionsAreNotSyncSmart(position, offset,currentPos);
- cerr << " 1 Found PosWhenFunctionsAre not sync : " << position << " offset : " << offset <<
- " A? " << fileAPadd << " currentPos : " << currentPos << endl;
- //int count=0;
- while (position!=-1) {
- // lets add padding
- if (fileAPadd) {
- Item* oldItem = *(instance->itemsFileA.begin()+position);
- int oldPos = oldItem->pos+oldItem->length;
- //cerr << " A: old item at : " << (position) << " oldPos : " << oldPos << endl;
- vector<Item*>::iterator it = instance->itemsFileA.begin()+position+1;
- int length=currentPos-oldPos;
- for (int i=0; i<offset;++i) {
- Item* item =NULL;
- if (i==0)
- item = new Item(false,NULL,0,4,(position+i+1),length,(oldPos),"",0);
- else
- item = new Item(false,NULL,0,4,(position+i+1),0,(oldPos)+length,"",0);
- it = instance->itemsFileA.insert(it,item);
- ++it;
- // cerr << " A: adding NULL item at : " << (position+i+1) << " pos : " << (oldPos+i) <<endl;
- }
- // need to adjust the remainder
- int c=1;
- for (; it!=instance->itemsFileA.end();++it) {
- Item* item = (*it);
- //cerr << " changing row at : " << (item->row) << " to : " << (position+offset+c) <<endl;
- item->row = position+offset+c;
- item->pos = item->pos+length;
- c++;
- }
- }
-
- if (!fileAPadd) {
- Item* oldItem = *(instance->itemsFileB.begin()+position);
- int oldPos = oldItem->pos+oldItem->length;
- //cerr << " B: old item at : " << (position) << " oldPos : " << oldPos << endl;
- vector<Item*>::iterator it = instance->itemsFileB.begin()+position+1;
- int length=currentPos-oldPos;
- for (int i=0; i<offset;++i) {
- Item* item =NULL;
- if (i==0)
- item = new Item(false,NULL,0,4,(position+i+1),length,(oldPos),"",0);
- else
- item = new Item(false,NULL,0,4,(position+i+1),0,(oldPos)+length,"",0);
- it = instance->itemsFileB.insert(it,item);
- ++it;
- //cerr << " B: adding NULL item at : " << (position+i+1) << " pos : " << oldPos+i<<endl;
- }
- // need to adjust the remainder
- int c=1;
- for (; it!=instance->itemsFileB.end();++it) {
- Item* item = (*it);
- //cerr << " changing row at : " << (item->row) << " to : " << (position+offset+c) <<endl;
- item->row = position+offset+c;
- item->pos = item->pos+length;
- c++;
- }
- }
- position=-1;
- offset=0;
- currentPos=0;
- fileAPadd = findPosWhenFunctionsAreNotSyncSmart(position, offset,currentPos);
- cerr << " 2 Found PosWhenFunctionsAre not sync : " << position << " offset : " << offset <<
- " A? " << fileAPadd << " currentPos : " << currentPos << endl;
- // count++;
- //if (count==5) break;
- }
-
- instance->updateByteItemList();
-#endif
-
-}
-
Added: trunk/projects/BinQ/BinAnalyses.h
===================================================================
--- trunk/projects/BinQ/BinAnalyses.h (rev 0)
+++ trunk/projects/BinQ/BinAnalyses.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,21 @@
+#ifndef BINANALYSES_R_H
+#define BINANALYSES_R_H
+#include "rose.h"
+
+#include <iostream>
+
+
+class BinAnalyses {
+ public:
+
+ BinAnalyses(){};
+ virtual ~BinAnalyses(){};
+ virtual void run()=0;
+ virtual std::string name()=0;
+ virtual std::string getDescription()=0;
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/BinAnalyses.h
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/projects/BinQ/BinCallGraph.C
===================================================================
--- trunk/projects/BinQ/BinCallGraph.C (rev 0)
+++ trunk/projects/BinQ/BinCallGraph.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,70 @@
+#include "BinQGui.h"
+
+#include <iostream>
+
+
+#include "BinQSupport.h"
+#include "slide.h"
+
+#include <qtabwidget.h>
+#include "BinCallGraph.h"
+
+using namespace qrs;
+using namespace std;
+using namespace __gnu_cxx;
+
+std::string BinCallGraph::name() {
+ return "Binary Call Graph";
+}
+
+std::string BinCallGraph::getDescription() {
+ return "Creates a call graph for the current Binary. Output is callgraph.dot";
+}
+
+
+void
+BinCallGraph::run() {
+ BinQGUI *instance = QROSE::cbData<BinQGUI *>();
+
+ RoseBin_Graph* graph=NULL;
+ ROSE_ASSERT(isSgProject(instance->fileA));
+ SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(instance->fileA)->get_fileList()[0]);
+ SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
+ ROSE_ASSERT(file);
+
+ VirtualBinCFG::AuxiliaryInformation* info = new VirtualBinCFG::AuxiliaryInformation(file);
+
+ // call graph analysis *******************************************************
+ cerr << " creating call graph ... " << endl;
+ instance->analysisTab->setCurrentIndex(1);
+ QString res = QString("Creating call graph ");
+ instance->analysisResult->append(res);
+
+ graph= new RoseBin_DotGraph(info);
+ ROSE_ASSERT(graph);
+ string callFileName = "callgraph.dot";
+ bool dot=true;
+ bool mergedEdges=true;
+ if (dot==false) {
+ callFileName = "callgraph.gml";
+ graph= new RoseBin_GMLGraph(info);
+ }
+
+ SgAsmInterpretation* interp = SageInterface::getMainInterpretation(file);
+ RoseBin_CallGraphAnalysis* callanalysis =
+ // new RoseBin_CallGraphAnalysis(isSgAsmNode(instance->fileA), new RoseObj(), info);
+ new RoseBin_CallGraphAnalysis(interp->get_global_block(), new RoseObj(), info);
+
+ ROSE_ASSERT(callanalysis);
+ callanalysis->run(graph, callFileName, !mergedEdges);
+
+ res = QString("nr of nodes visited %1. nr of edges visited %2. ")
+ .arg(callanalysis->nodesVisited())
+ .arg(callanalysis->edgesVisited());
+
+ instance->analysisResult->append(res);
+
+ cerr << " nr of nodes visited in callanalysis : " << callanalysis->nodesVisited() << endl;
+ cerr << " nr of edges visited in callanalysis : " << callanalysis->edgesVisited() << endl;
+
+}
Added: trunk/projects/BinQ/BinCallGraph.h
===================================================================
--- trunk/projects/BinQ/BinCallGraph.h (rev 0)
+++ trunk/projects/BinQ/BinCallGraph.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,23 @@
+#ifndef BINCALLGRAPH_R_H
+#define BINCALLGRAPH_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+
+class BinCallGraph : public BinAnalyses {
+ public:
+ BinCallGraph(){};
+ virtual ~BinCallGraph(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+ private:
+
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/BinCallGraph.h
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/projects/BinQ/BinControlFlowAnalysis.C
===================================================================
--- trunk/projects/BinQ/BinControlFlowAnalysis.C (rev 0)
+++ trunk/projects/BinQ/BinControlFlowAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,65 @@
+#include "BinQGui.h"
+
+#include <iostream>
+
+
+#include "BinQSupport.h"
+#include "slide.h"
+
+#include <qtabwidget.h>
+#include "BinControlFlowAnalysis.h"
+
+using namespace qrs;
+using namespace std;
+using namespace __gnu_cxx;
+
+std::string BinControlFlowAnalysis::name() {
+ return "Control Flow Graph";
+}
+
+std::string BinControlFlowAnalysis::getDescription() {
+ return "Creates a control flow graph. Outputs cfg.dot";
+}
+
+
+void
+BinControlFlowAnalysis::run() {
+ BinQGUI *instance = QROSE::cbData<BinQGUI *>();
+
+ RoseBin_Graph* graph=NULL;
+ ROSE_ASSERT(isSgProject(instance->fileA));
+ SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(instance->fileA)->get_fileList()[0]);
+ SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
+ ROSE_ASSERT(file);
+
+ VirtualBinCFG::AuxiliaryInformation* info = new VirtualBinCFG::AuxiliaryInformation(file);
+
+
+ // control flow analysis *******************************************************
+ instance->analysisTab->setCurrentIndex(1);
+ QString res = QString("Creating control flow graph ");
+ instance->analysisResult->append(res);
+ string cfgFileName = "cfg.dot";
+ graph= new RoseBin_DotGraph(info);
+ bool dot=true;
+ bool forward=true;
+ bool edges=true;
+ bool mergedEdges=true;
+ if (dot==false) {
+ cfgFileName = "cfg.gml";
+ graph= new RoseBin_GMLGraph(info);
+ }
+
+
+ SgAsmInterpretation* interp = SageInterface::getMainInterpretation(file);
+ RoseBin_ControlFlowAnalysis* cfganalysis =
+ new RoseBin_ControlFlowAnalysis(interp->get_global_block(), forward, new RoseObj(), edges, info);
+ ROSE_ASSERT(cfganalysis);
+ cfganalysis->run(graph, cfgFileName, mergedEdges);
+ res = QString("nr of nodes visited %1. nr of edges visited %2. ")
+ .arg(cfganalysis->nodesVisited())
+ .arg(cfganalysis->edgesVisited());
+
+ instance->analysisResult->append(res);
+
+}
Added: trunk/projects/BinQ/BinControlFlowAnalysis.h
===================================================================
--- trunk/projects/BinQ/BinControlFlowAnalysis.h (rev 0)
+++ trunk/projects/BinQ/BinControlFlowAnalysis.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,23 @@
+#ifndef CONTROLFLOW_R_H
+#define CONTROLFLOW_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+
+class BinControlFlowAnalysis : public BinAnalyses {
+ public:
+ BinControlFlowAnalysis(){};
+ virtual ~BinControlFlowAnalysis(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+ private:
+
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/BinControlFlowAnalysis.h
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/projects/BinQ/BinDataFlowAnalysis.C
===================================================================
--- trunk/projects/BinQ/BinDataFlowAnalysis.C (rev 0)
+++ trunk/projects/BinQ/BinDataFlowAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,68 @@
+#include "BinQGui.h"
+
+#include <iostream>
+
+
+#include "BinQSupport.h"
+#include "slide.h"
+
+#include <qtabwidget.h>
+#include "BinDataFlowAnalysis.h"
+
+using namespace qrs;
+using namespace std;
+using namespace __gnu_cxx;
+
+std::string BinDataFlowAnalysis::name() {
+ return "Data Flow Graph";
+}
+
+std::string BinDataFlowAnalysis::getDescription() {
+ return "Creates a dataflow graph. Outputs dfg.dot";
+}
+
+
+void
+BinDataFlowAnalysis::run() {
+ BinQGUI *instance = QROSE::cbData<BinQGUI *>();
+
+ RoseBin_Graph* graph=NULL;
+ ROSE_ASSERT(isSgProject(instance->fileA));
+ SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(instance->fileA)->get_fileList()[0]);
+ SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
+ ROSE_ASSERT(file);
+
+ VirtualBinCFG::AuxiliaryInformation* info = new VirtualBinCFG::AuxiliaryInformation(file);
+
+ // call graph analysis *******************************************************
+ instance->analysisTab->setCurrentIndex(1);
+ QString res = QString("Creating dataflow graph ");
+ instance->analysisResult->append(res);
+
+ bool dot=true;
+ bool forward=true;
+ bool edges=true;
+ bool mergedEdges=true;
+ bool interprocedural=false;
+ string dfgFileName = "dfg.dot";
+ graph= new RoseBin_DotGraph(info);
+ if (dot==false) {
+ dfgFileName = "dfg.gml";
+ graph= new RoseBin_GMLGraph(info);
+ }
+
+ SgAsmInterpretation* interp = SageInterface::getMainInterpretation(file);
+ RoseBin_DataFlowAnalysis* dfanalysis =
+ new RoseBin_DataFlowAnalysis(interp->get_global_block(), forward, new RoseObj(), info);
+ ROSE_ASSERT(dfanalysis);
+ dfanalysis->init(interprocedural, edges);
+ dfanalysis->run(graph, dfgFileName, mergedEdges);
+
+ res = QString("nr of nodes visited %1. nr of edges visited %2. ")
+ .arg(dfanalysis->nodesVisited())
+ .arg(dfanalysis->edgesVisited());
+
+ instance->analysisResult->append(res);
+
+
+}
Added: trunk/projects/BinQ/BinDataFlowAnalysis.h
===================================================================
--- trunk/projects/BinQ/BinDataFlowAnalysis.h (rev 0)
+++ trunk/projects/BinQ/BinDataFlowAnalysis.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,23 @@
+#ifndef DATAFLOW_R_H
+#define DATAFLOW_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+
+class BinDataFlowAnalysis : public BinAnalyses {
+ public:
+ BinDataFlowAnalysis(){};
+ virtual ~BinDataFlowAnalysis(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+ private:
+
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/BinDataFlowAnalysis.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/projects/BinQ/BinQGui.C
===================================================================
--- trunk/projects/BinQ/BinQGui.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/BinQGui.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -14,7 +14,15 @@
#include "slide.h"
#include <qtabwidget.h>
+
+
#include "Clone.h"
+#include "AlignFunctions.h"
+#include "BinCallGraph.h"
+#include "BinControlFlowAnalysis.h"
+#include "BinDataFlowAnalysis.h"
+#include "BufferOverflow.h"
+#include "InterruptAnalysis.h"
using namespace qrs;
using namespace boost::filesystem;
@@ -25,9 +33,9 @@
// ----------------------------------------------------------------------------------------------
// specify analyses here!
-void alignFunctions();
-void andreasDiff();
-void alignFunctionsSmart();
+//void alignFunctions();
+//void andreasDiff();
+//void alignFunctionsSmart();
void clicked1() {
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
@@ -36,17 +44,13 @@
string t = te.toStdString();
//const char *t = (const char *)text;
cerr << " Selected : " << t << endl;
-
- if (t=="Andreas's Diff") {
- andreasDiff();
- } // andreas diff
- else if (t=="Align Functions") {
- alignFunctions();
+ for (unsigned int i=0;i<instance->analyses.size();++i) {
+ BinAnalyses* analysis = instance->analyses[i];
+ if (t==analysis->name()) {
+ instance->analysisInfo->setText(instance->analyses[i]->getDescription().c_str());
+ instance->analyses[i]->run();
+ }
}
- else if (t=="Align Functions Smart") {
- alignFunctionsSmart();
- }
-
}
@@ -87,6 +91,18 @@
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
instance->unhighlightInstructionRow(oldRow, true);
instance->highlightInstructionRow(row, true);
+ Item* item = instance->rowItemFileA[row];
+ if (item) {
+ QString res = QString("A: Item selected %1 : %2.")
+ .arg(item->row)
+ .arg(isSgNode(item->statement)->class_name().c_str());
+ instance->console->append(res);
+ SgAsmElfSection* sec = isSgAsmElfSection(item->statement);
+ if (sec) {
+ instance->analysisTab->setCurrentIndex(3);
+ instance->insertSectionInformation(sec,instance->fileNameA);
+ }
+ }
return;
} //tableCellActivated(int col, int row, int oldCol, int oldRow)
@@ -101,6 +117,18 @@
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
instance->unhighlightInstructionRow(oldRow, false);
instance->highlightInstructionRow(row, false);
+ Item* item = instance->rowItemFileB[row];
+ if (item) {
+ QString res = QString("B: Item selected %1 : %2.")
+ .arg(item->row)
+ .arg(isSgNode(item->statement)->class_name().c_str());
+ instance->console->append(res);
+ SgAsmElfSection* sec = isSgAsmElfSection(item->statement);
+ if (sec) {
+ instance->analysisTab->setCurrentIndex(3);
+ instance->insertSectionInformation(sec,instance->fileNameB);
+ }
+ }
return;
} //tableCellActivated(int col, int row, int oldCol, int oldRow)
@@ -133,8 +161,8 @@
}
}
- //cerr << " highlight func row : " << row << " inst row : " << offset << endl;
- codeTableWidget->setCurrentCell(offset,0);
+ //cerr << " highlight func row : " << row << " inst row : " << offset << endl;
+ codeTableWidget->setCurrentCell(offset,0);
}
} else {
QFont f = tableWidget2->getFont(0, row);
@@ -154,8 +182,8 @@
break;
}
}
- // cerr << " highlight func row : " << row << " inst row : " << offset << endl;
- codeTableWidget2->setCurrentCell(offset,0);
+ // cerr << " highlight func row : " << row << " inst row : " << offset << endl;
+ codeTableWidget2->setCurrentCell(offset,0);
} else if (isSgFunctionDeclaration(funcsFileB[row])) {
SgFunctionDeclaration* func = isSgFunctionDeclaration(funcsFileB[row]);
std::vector<Item*>::iterator it = itemsFileB.begin();
@@ -202,7 +230,8 @@
Item* item = itemsFileA[row];
for (int j=1;j<maxrows;j++) {
codeTableWidget->setFont(f, j, row);
- if (item->function)
+ if (isSgAsmFunctionDeclaration(item->statement) ||
+ isSgFunctionDeclaration(item->statement))
codeTableWidget->setBgColor(QColor(120,120,120),j,row);
else
codeTableWidget->setBgColor(QColor(255,255,0),j,row);
@@ -215,7 +244,8 @@
if (item) {
for (int j=1;j<maxrows;j++) {
codeTableWidget2->setFont(f, j, row);
- if (item->function)
+ if (isSgAsmFunctionDeclaration(item->statement) ||
+ isSgFunctionDeclaration(item->statement))
codeTableWidget2->setBgColor(QColor(120,120,120),j,row);
else
codeTableWidget2->setBgColor(QColor(255,255,0),j,row);
@@ -256,15 +286,19 @@
void BinQGUI::updateByteItemList() {
// update byteItemList
+ cerr << "updating itemsFileA : " << itemsFileA.size() << endl;
for (unsigned int i=0;i<itemsFileA.size();++i) {
Item* a = itemsFileA[i];
if (a) {
int pos = a->pos;
int length = a->length;
+ // cerr << i << ": updating pos : " << pos << " length : " << length << endl;
for (int k=0; k<length;++k)
byteItemFileA[pos+k]=a;
+ rowItemFileA[i]=a;
}
}
+ cerr << "updating itemsFileA : " << itemsFileB.size() << endl;
for (unsigned int i=0;i<itemsFileB.size();++i) {
Item* b = itemsFileB[i];
if (b) {
@@ -272,8 +306,10 @@
int length = b->length;
for (int k=0; k<length;++k)
byteItemFileB[pos+k]=b;
+ rowItemFileB[i]=b;
}
}
+ cerr << "displaying A and B ... " << endl;
slide->colorize();
showFileA(0);
showFileB(0);
@@ -285,8 +321,48 @@
void
+BinQGUI::insertSectionInformation(SgAsmElfSection* sec, std::string filename) {
+ ROSE_ASSERT(sec);
+ sectionInfo->setText(filename.c_str());
+ SgAsmElfFileHeader* elf = isSgAsmElfFileHeader(sec);
+ if (elf) {
+ sectionInfo->append(elf->format_name());
+ string num = RoseBin_support::ToString(elf->get_e_machine());
+ sectionInfo->append( QString("Machine: %1")
+ .arg(num.c_str()) );
+ SgAsmElfSegmentTable *segments = elf->get_segment_table();
+ string seg = RoseBin_support::ToString(segments);
+ sectionInfo->append( QString("ElfSegmentTable: %1")
+ .arg(seg.c_str()) );
+ SgAsmElfSectionTable *sections = elf->get_section_table();
+ string sec = RoseBin_support::ToString(sections);
+ sectionInfo->append( QString("ElfSectionTable: %1")
+ .arg(sec.c_str()) );
+ } else {
+ SgAsmElfSectionTableEntry* entry= sec->get_section_entry();
+ if (entry) {
+ rose_addr_t addr = entry->get_sh_addr();
+ rose_addr_t size = entry->get_sh_size();
+ rose_addr_t offset = entry->get_sh_offset();
+ string addrS = RoseBin_support::HexToString(addr);
+ string sizeS = RoseBin_support::HexToString(size);
+ string offsetS = RoseBin_support::HexToString(offset);
+ sectionInfo->append( QString("%1 type: %2 Addr: %3 Size: %4 Offset: %5")
+ .arg(QString(sec->get_name()->get_string().c_str()))
+ .arg(sec->class_name().c_str())
+ .arg(addrS.c_str())
+ .arg(sizeS.c_str())
+ .arg(offsetS.c_str()));
+ }
+ }
+ sectionInfo->append(QString("Append dump information here..."));
+}
+
+void
BinQGUI::insertFileInformation() {
+
ROSE_ASSERT(isSgProject(fileA));
+
SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(fileA)->get_fileList()[0]);
SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
@@ -391,6 +467,17 @@
}
void BinQGUI::init(){
+ cerr << "Checking for analyses ... " << endl;
+ analyses.clear();
+ analyses.push_back(new DiffAlgo());
+ analyses.push_back(new AlignFunction());
+ analyses.push_back(new BinCallGraph());
+ analyses.push_back(new BinControlFlowAnalysis());
+ analyses.push_back(new BinDataFlowAnalysis());
+ analyses.push_back(new BufferOverflow());
+ analyses.push_back(new InterruptAnalysis());
+
+
cerr << "Disassemble File A ... " << fileNameA << endl;
std::string sourceFileS;
fileA = binqsupport->disassembleFile(fileNameA, sourceFileS);
@@ -401,6 +488,14 @@
if (sourceFileS=="true")
sourceFile=true;
+ ROSE_ASSERT(isSgProject(fileA));
+ backend(isSgProject(fileA));
+
+ string filename="binary_tree.dot";
+ AST_BIN_Traversal* trav = new AST_BIN_Traversal();
+ trav->run(fileA, filename);
+
+
// this part writes the file out to an assembly file -----------------------------------
SgBinaryFile* binaryFileA = isSgBinaryFile(isSgProject(fileA)->get_fileList()[0]);
SgAsmFile* file1 = binaryFileA != NULL ? binaryFileA->get_binaryFile() : NULL;
@@ -431,31 +526,37 @@
cerr << " File A has " << funcsFileA.size() << " funcs." << endl;
cerr << " File B has " << funcsFileB.size() << " funcs." << endl;
- FindAsmStatementsVisitor visStat;
+ FindAsmStatementsHeaderVisitor visStat;
std::vector<SgNode*> stmts;
AstQueryNamespace::querySubTree(fileA, std::bind2nd( visStat, &stmts ));
vector<SgNode*>::iterator it= stmts.begin();
int pos=0;
int row=0;
for (;it!=stmts.end();++it) {
- Item* item;
+ Item* item=NULL;
int length=1;
// make sure file 1 is a binary file -- source file only for file 2 allowed
- ROSE_ASSERT(isSgAsmStatement(*it));
+ ROSE_ASSERT(isSgAsmNode(*it));
if (isSgAsmFunctionDeclaration(*it)) {
- FindAsmStatementsVisitor visStat2;
- std::vector<SgAsmStatement*> stmts2;
- AstQueryNamespace::querySubTree(fileA, std::bind2nd( visStat2, &stmts2 ));
- int funcsize= stmts2.size();
- item = new Item(true,isSgAsmFunctionDeclaration(*it),funcsize,2,row,length, pos,"",0);
+ SgAsmFunctionDeclaration* func = isSgAsmFunctionDeclaration(*it);
+ item = new Item(func->get_address(),func,2,row,length, pos,"",0);
} else if (isSgAsmBlock(*it)) {
- continue;
- //item = new Item(false,*it,0,1,row,0);
+
} else if (isSgAsmInstruction(*it)) {
+ SgAsmInstruction* inst = isSgAsmInstruction(*it);
length = isSgAsmInstruction(*it)->get_raw_bytes().size();
- item = new Item(false,isSgAsmInstruction(*it),0,0,row,length,pos,"",0);
+ item = new Item(inst->get_address(),inst,0,row,length,pos,"",0);
+ } else if (isSgAsmElfSection(*it)) {
+ SgAsmElfSection* sec = isSgAsmElfSection(*it);
+ std::string nam = "size: " + RoseBin_support::ToString(sec->get_size());
+ // item = new Item(sec->get_offset(),sec,2,row,length,pos,nam,0);
+ item = new Item(sec->get_mapped_rva(),sec,2,row,length,pos,nam,0);
+ } else {
+ cerr << " >>> found pos : " << pos << " item " <<
+ isSgAsmNode(*it)->class_name() << " length : " << length << endl;
+
}
- // color code pushes as an example
+ // color code call as an example
if (isSgAsmx86Instruction(*it)) {
length = isSgAsmInstruction(*it)->get_raw_bytes().size();
if (isSgAsmx86Instruction(*it)->get_kind() == x86_call) {
@@ -477,18 +578,22 @@
break;
}
}
- item = new Item(false,isSgAsmx86Instruction(*it),0,3,row,length,pos,s,0);
+ delete item;
+ item = new Item(inst->get_address(),inst,3,row,length,pos,s,0);
}
}
- row++;
- itemsFileA.push_back(item);
- pos+=length;
+ if (item) {
+ row++;
+ // cerr << " creating pos : " << pos << " item " <<
+ // isSgAsmNode(*it)->class_name() << " length : " << length << endl;
+ itemsFileA.push_back(item);
+ pos+=length;
+ }
}
-
stmts.clear();
if (!sourceFile) {
- FindAsmStatementsVisitor visStat2;
+ FindAsmStatementsHeaderVisitor visStat2;
AstQueryNamespace::querySubTree(fileB, std::bind2nd( visStat2, &stmts ));
} else {
FindNodeVisitor visStat2;
@@ -501,32 +606,30 @@
Item* item = NULL;
int length=1;
if (isSgAsmFunctionDeclaration(*it)){
- int funcsize=0;
- FindAsmStatementsVisitor visStat2;
- std::vector<SgAsmStatement*> stmts2;
- AstQueryNamespace::querySubTree(fileB, std::bind2nd( visStat2, &stmts2 ));
- funcsize= stmts2.size();
- item = new Item(true,isSgAsmFunctionDeclaration(*it),funcsize,2,row,length,pos,"",0);
+ SgAsmFunctionDeclaration* func = isSgAsmFunctionDeclaration(*it);
+ item = new Item(func->get_address(),func,2,row,length,pos,"",0);
} else if (isSgAsmBlock(*it)) {
continue;
//item = new Item(false,*it,0,1,row,0);
} else if (isSgAsmInstruction(*it)) {
+ SgAsmInstruction* inst = isSgAsmInstruction(*it);
length = isSgAsmInstruction(*it)->get_raw_bytes().size();
- item = new Item(false,isSgAsmInstruction(*it),0,0,row,length,pos,"",0);
+ item = new Item(inst->get_address(),inst,0,row,length,pos,"",0);
} else if (isSgFunctionDeclaration(*it)) {
- int funcsize=0;
- FindNodeVisitor visStat2;
- std::vector<SgLocatedNode*> stmts2;
- AstQueryNamespace::querySubTree(fileB, std::bind2nd( visStat2, &stmts2 ));
- funcsize= stmts2.size();
int color=4;
+ SgFunctionDeclaration* func = isSgFunctionDeclaration(*it);
SgFunctionDefinition* def = isSgFunctionDefinition(isSgFunctionDeclaration(*it)->get_definition());
if (def)
color=2;
if (isSgFunctionDeclaration(*it)->get_file_info()->isCompilerGenerated())
color=3;
- item = new Item(true,isSgFunctionDeclaration(*it),funcsize,color,row,length,pos,"",0);
- } else if (isSgLocatedNode(*it)) {
+ item = new Item(0,func,color,row,length,pos,"",0);
+ } else if (isSgAsmElfSection(*it)) {
+ SgAsmElfSection* sec = isSgAsmElfSection(*it);
+ std::string nam = "size: " + RoseBin_support::ToString(sec->get_size());
+ // item = new Item(sec->get_offset(),sec,2,row,length,pos,nam,0);
+ item = new Item(sec->get_mapped_rva(),sec,2,row,length,pos,nam,0);
+ }else if (isSgLocatedNode(*it)) {
Sg_File_Info* fi = isSgLocatedNode(*it)->get_file_info();
int line = -1;
if (fi) {
@@ -534,13 +637,13 @@
length = 1;
}
// cerr << fi << " creating statement : " << isSgLocatedNode(*it)->class_name() << " ... comment " << line << endl;
- item = new Item(false,isSgLocatedNode(*it),0,0,row,length,pos,
+ item = new Item(line,isSgLocatedNode(*it),0,row,length,pos,
isSgLocatedNode(*it)->class_name(),line);
} else {
// cerr << "unknown node " << endl;//*it->class_name() << endl;
// item = new Item(false,NULL,0,0,row,0,pos, " ",0);
}
- //example -- color pushes red
+ //example -- color calls red
if (isSgAsmx86Instruction(*it)) {
length = isSgAsmInstruction(*it)->get_raw_bytes().size();
if (isSgAsmx86Instruction(*it)->get_kind() == x86_call) {
@@ -562,7 +665,8 @@
break;
}
}
- item = new Item(false,isSgAsmx86Instruction(*it),0,3,row,length,pos,s,0);
+ delete item;
+ item = new Item(inst->get_address(),inst,3,row,length,pos,s,0);
}
}
@@ -575,14 +679,14 @@
}
- void BinQGUI::createGUI() {
- QDesktopWidget *desktop = QApplication::desktop();
+void BinQGUI::createGUI() {
+ QDesktopWidget *desktop = QApplication::desktop();
- screenWidth = desktop->width()-50;
- screenHeight = desktop->height()-150;
- if (screenWidth>1424) screenWidth=1424;
- if (screenHeight>1224) screenHeight=1224;
+ screenWidth = desktop->width()-10;
+ screenHeight = desktop->height()-100;
+ if (screenWidth>1450) screenWidth=1450;
+ if (screenHeight>1250) screenHeight=1250;
{
@@ -601,43 +705,67 @@
{
QRPanel &topPanels = mainPanel << *new QRPanel(QROSE::TopDown, QROSE::UseSplitter);
{
- QGroupBox *selectGroup = topPanels << new QGroupBox(("Binary File Analysis Information"));
+ QGroupBox *topPanelLeft = topPanels << new QGroupBox(("Binary File Analysis Information"));
{
QGridLayout *echoLayout = new QGridLayout;
slide = new Slide(this);
echoLayout->addWidget(slide, 0, 0 );
- selectGroup->setLayout(echoLayout);
+ topPanelLeft->setLayout(echoLayout);
}
- selectGroup->setFixedHeight(70);
+ topPanelLeft->setFixedHeight(70);
QRPanel &analysisPanel = topPanels << *new QRPanel(QROSE::LeftRight, QROSE::UseSplitter);
{
- // add analyses here
- QTabWidget *qtabwidgetL = analysisPanel << new QTabWidget( );
- listWidget = new QListWidget;
- new QListWidgetItem(("Align Functions"), listWidget);
- new QListWidgetItem(("Align Functions Smart"), listWidget);
- new QListWidgetItem(("Andreas's Diff"), listWidget);
+ QRPanel &analysisPanelLeft = analysisPanel << *new QRPanel(QROSE::TopDown, QROSE::UseSplitter);
+ {
+ // add analyses here
+ QTabWidget *qtabwidgetL = analysisPanelLeft << new QTabWidget( );
+ listWidget = new QListWidget;
+ for (unsigned int i=0; i < analyses.size(); ++i){
+ new QListWidgetItem((analyses[i]->name().c_str()), listWidget);
+ }
+ // new QListWidgetItem(("Align Functions Smart"), listWidget);
+ //new QListWidgetItem(("Binary Diff"), listWidget);
- QROSE::link(listWidget,
- SIGNAL(itemSelectionChanged()),
- &clicked1, this);
+ QROSE::link(listWidget,
+ SIGNAL(itemSelectionChanged()),
+ &clicked1, this);
- qtabwidgetL->insertTab(0,listWidget,"Analyses");
-
- QTabWidget *qtabwidget = analysisPanel << new QTabWidget( );
- analysisPanel.setTileSize(50,50);
+ qtabwidgetL->insertTab(0,listWidget,"Analyses");
- analysisResult = new QTextEdit;//new QREdit(QREdit::Box);
- analysisResult->setReadOnly(true);
- analysisResult->setText("Initializing GUI");
+ analysisInfo = analysisPanelLeft << new QTextEdit;//new QREdit(QREdit::Box);
+ analysisInfo->setReadOnly(true);
+
+ }
+ analysisPanelLeft.setFixedWidth(screenWidth/4 );
+ // analysisPanelLeft.setFixedHeight(170);
- fileInfo = new QTextEdit;//new QREdit(QREdit::Box);
- fileInfo->setReadOnly(true);
- insertFileInformation();
+ QRPanel &analysisPanelRight = analysisPanel << *new QRPanel(QROSE::LeftRight, QROSE::UseSplitter);
+ {
- qtabwidget->insertTab(0,analysisResult,"Analysis Results");
- qtabwidget->insertTab(1,fileInfo,"File Info");
+ // --------
+ analysisTab = analysisPanelRight << new QTabWidget();
+ // analysisPanelRight.setTileSize(50,50);
+
+ console = new QTextEdit;//new QREdit(QREdit::Box);
+ console->setReadOnly(true);
+ console->setText("Initializing GUI");
+
+ analysisResult = new QTextEdit;//new QREdit(QREdit::Box);
+ analysisResult->setReadOnly(true);
+
+ sectionInfo = new QTextEdit;//new QREdit(QREdit::Box);
+ sectionInfo->setReadOnly(true);
+
+ fileInfo = new QTextEdit;//new QREdit(QREdit::Box);
+ fileInfo->setReadOnly(true);
+ insertFileInformation();
+
+ analysisTab->insertTab(0,console,"Console");
+ analysisTab->insertTab(1,analysisResult,"Analysis Results");
+ analysisTab->insertTab(2,fileInfo,"File Info");
+ analysisTab->insertTab(3,sectionInfo,"Section Info");
+ }
}
// topPanels.setFixedHeight(300);
}
@@ -676,15 +804,15 @@
window->setGeometry(0,0,screenWidth,screenHeight);
window->setTitle("BinQ");
- analysisResult->append("Initializing done.");
+ console->append("Initializing done.");
QString res = QString("A: Total functions %1. Total statements: %2. ")
.arg(funcsFileA.size())
.arg(itemsFileA.size());
- analysisResult->append(res);
+ console->append(res);
QString res2 = QString("B: Total functions %1. Total statements: %2. ")
.arg(funcsFileB.size())
.arg(itemsFileB.size());
- analysisResult->append(res2);
+ console->append(res2);
updateByteItemList();
@@ -760,7 +888,7 @@
QROSE::link(tableWidget, SIGNAL(activated(int, int, int, int)), &tableWidgetCellActivatedA, this);
QROSE::link(tableWidget2, SIGNAL(activated(int, int, int, int)), &tableWidgetCellActivatedB, this);
- showFileA(0);
+ showFileA(0);
showFileB(0);
}
@@ -779,12 +907,12 @@
.arg(isSgAsmFunctionDeclaration(funcsFileA[row])->get_name().c_str())
.arg(row);
// .arg(elem.size);
- analysisResult->append(res);
+ console->append(res);
// std::cout << "Looking at function " << elem.function_name_B << " row : " << row << " size : " << elem.size << std::endl;
int rowC=0;
int posC=0;
for(size_t i=0; i < itemsFileA.size(); i++ ) {
- SgAsmStatement* stmts = isSgAsmStatement(itemsFileA[i]->statement);
+ SgAsmNode* stmts = isSgAsmNode(itemsFileA[i]->statement);
// ROSE_ASSERT(stmts);
int length=1;
bool addRow=false;
@@ -850,6 +978,26 @@
codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->pos), 5, i);
codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->length), 6, i);
addRow=true;
+ } else if (isSgAsmElfSection(stmts)) {
+ codeTableWidget->addRows(1);
+ itemsFileA[i]->bg=QColor(0,100,0);
+ QColor back = itemsFileA[i]->bg;
+ itemsFileA[i]->fg=QColor(255,255,255);
+ QColor front = itemsFileA[i]->fg;
+ for (int j=1;j<maxrows;++j) {
+ codeTableWidget->setBgColor(back,j,i);
+ codeTableWidget->setTextColor(front,j,i);
+ }
+ codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->row), 0, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>(RoseBin_support::HexToString(itemsFileA[i]->addr) ), 1, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>(isSgAsmElfSection(itemsFileA[i]->statement)->get_name()->get_string()), 2, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>((isSgAsmNode(stmts))->class_name() ), 3, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->comment ), 4, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->pos), 5, i);
+ codeTableWidget->setText(boost::lexical_cast<std::string>(itemsFileA[i]->length), 6, i);
+ addRow=true;
+
+
} else {
codeTableWidget->addRows(1);
itemsFileA[i]->bg=QColor(128,128,128);
@@ -869,13 +1017,16 @@
codeTableWidget->setHAlignment(true, false, 1); // left horizontal alignment
codeTableWidget->setHAlignment(true, false, 2); // left horizontal alignment
codeTableWidget->setHAlignment(true, false, 3); // left horizontal alignment
+ codeTableWidget->setHAlignment(true, false, 4); // left horizontal alignment
+ codeTableWidget->setHAlignment(true, false, 5); // left horizontal alignment
+ codeTableWidget->setHAlignment(true, false, 6); // left horizontal alignment
codeTableWidget->setVDim(i,18);
codeTableWidget->setHDim(0,30);
- codeTableWidget->setHDim(1,80);
- codeTableWidget->setHDim(2,50);
- codeTableWidget->setHDim(3,190);
- codeTableWidget->setHDim(4,110);
+ codeTableWidget->setHDim(1,65);
+ codeTableWidget->setHDim(2,55);
+ codeTableWidget->setHDim(3,180);
+ codeTableWidget->setHDim(4,90);
codeTableWidget->setHDim(5,30);
codeTableWidget->setHDim(6,30);
@@ -909,7 +1060,7 @@
.arg(funcname.c_str())
.arg(row);
// .arg(elem.size);
- analysisResult->append(res);
+ console->append(res);
// std::cout << "Looking at function " << elem.function_name_B << " row : " << row << " size : " << elem.size << std::endl;
int rowC=0;
int posC=0;
@@ -977,6 +1128,28 @@
codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->length), 6, i);
addRow=true;
}
+ else if (isSgAsmElfSection(stmts)) {
+ codeTableWidget2->addRows(1);
+ itemsFileB[i]->bg=QColor(0,100,0);
+ QColor back = itemsFileB[i]->bg;
+ itemsFileB[i]->fg=QColor(255,255,255);
+ QColor front = itemsFileB[i]->fg;
+ for (int j=1;j<maxrows;++j) {
+ codeTableWidget2->setBgColor(back,j,i);
+ codeTableWidget2->setTextColor(front,j,i);
+ }
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->row), 0, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(RoseBin_support::HexToString(itemsFileB[i]->addr) ), 1, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(isSgAsmElfSection(itemsFileB[i]->statement)->get_name()->get_string()), 2, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>((isSgAsmNode(stmts))->class_name() ), 3, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->comment ), 4, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->pos), 5, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->length), 6, i);
+ addRow=true;
+
+
+ }
+
else if (isSgFunctionDeclaration(stmts)) {
SgFunctionDeclaration* func = isSgFunctionDeclaration(stmts);
//cerr << func->class_name() << " maxrows: " << maxrows << endl;
@@ -1029,20 +1202,20 @@
addRow=true;
}
else {
- codeTableWidget2->addRows(1);
- itemsFileB[i]->bg=QColor(128,128,128);
- QColor back = itemsFileB[i]->bg;
- for (int j=1;j<maxrows;++j) {
- codeTableWidget2->setBgColor(back,j,i);
- }
+ codeTableWidget2->addRows(1);
+ itemsFileB[i]->bg=QColor(128,128,128);
+ QColor back = itemsFileB[i]->bg;
+ for (int j=1;j<maxrows;++j) {
+ codeTableWidget2->setBgColor(back,j,i);
+ }
- if (itemsFileB[i]->row) {
- codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->row), 0, i);
- if (!sourceFile) {
- codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->pos), 5, i);
- codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->length), 6, i);
- }
+ if (itemsFileB[i]->row) {
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->row), 0, i);
+ if (!sourceFile) {
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->pos), 5, i);
+ codeTableWidget2->setText(boost::lexical_cast<std::string>(itemsFileB[i]->length), 6, i);
}
+ }
addRow=true;
}
@@ -1061,11 +1234,13 @@
codeTableWidget2->setHDim(3,110);
codeTableWidget2->setHDim(4,40);
} else {
+ codeTableWidget2->setHAlignment(true, false, 5); // left horizontal alignment
+ codeTableWidget2->setHAlignment(true, false, 6); // left horizontal alignment
codeTableWidget2->setHDim(0,30);
- codeTableWidget2->setHDim(1,80);
- codeTableWidget2->setHDim(2,50);
- codeTableWidget2->setHDim(3,190);
- codeTableWidget2->setHDim(4,110);
+ codeTableWidget2->setHDim(1,65);
+ codeTableWidget2->setHDim(2,55);
+ codeTableWidget2->setHDim(3,180);
+ codeTableWidget2->setHDim(4,90);
codeTableWidget2->setHDim(5,30);
codeTableWidget2->setHDim(6,30);
}
Modified: trunk/projects/BinQ/BinQGui.h
===================================================================
--- trunk/projects/BinQ/BinQGui.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/BinQGui.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -20,6 +20,7 @@
#include <QApplication>
#include "Item.h"
+#include "BinAnalyses.h"
class Slide;
class BinQSupport;
@@ -45,9 +46,14 @@
std::vector<Item*> itemsFileB;
std::map<int,Item*> byteItemFileA;
std::map<int,Item*> byteItemFileB;
+ std::map<int,Item*> rowItemFileA;
+ std::map<int,Item*> rowItemFileB;
+ QTextEdit *console;
QTextEdit *analysisResult;
QTextEdit *fileInfo;
+ QTextEdit *sectionInfo;
QListWidget *listWidget;
+ QTextEdit *analysisInfo;
SgNode* fileA;
SgNode* fileB;
Slide *slide;
@@ -56,12 +62,17 @@
qrs::QRWindow *window;
qrs::QRTable *tableWidget;
qrs::QRTable *codeTableWidget;
+ QTabWidget *analysisTab;
qrs::QRTable *tableWidget2;
qrs::QRTable *codeTableWidget2;
+ std::string fileNameA,fileNameB;
void updateByteItemList();
+ void insertSectionInformation(SgAsmElfSection* sec,std::string filename);
+ void insertFileInformation();
+ std::vector<BinAnalyses*> analyses;
protected:
QComboBox *comboBox;
@@ -73,12 +84,12 @@
QLineEdit *largerThanRestriction;
private:
- void insertFileInformation();
+
+
std::vector<SgNode*> funcsFileA;
std::vector<SgNode*> funcsFileB;
BinQSupport* binqsupport;
- std::string fileNameA,fileNameB;
int screenWidth;
int screenHeight;
Modified: trunk/projects/BinQ/BinQMain.C
===================================================================
--- trunk/projects/BinQ/BinQMain.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/BinQMain.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -69,7 +69,7 @@
}
- catch(exception& e) {
+ catch(std::exception& e) {
cout << e.what() << "\n";
}
Added: trunk/projects/BinQ/BufferOverflow.C
===================================================================
--- trunk/projects/BinQ/BufferOverflow.C (rev 0)
+++ trunk/projects/BinQ/BufferOverflow.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,289 @@
+#include "BinQGui.h"
+
+#include <iostream>
+
+
+#include "BinQSupport.h"
+#include "slide.h"
+
+#include <qtabwidget.h>
+#include "BufferOverflow.h"
+
+
+using namespace qrs;
+using namespace std;
+using namespace __gnu_cxx;
+using namespace RoseBin_DataTypes;
+
+std::string BufferOverflow::name() {
+ return "Buffer Overflow Analysis";
+}
+
+std::string BufferOverflow::getDescription() {
+ return "Runs Buffer Overflow analysis on binary.";
+}
+
+
+bool
+BufferOverflow::run(string& name, SgDirectedGraphNode* node,
+ SgDirectedGraphNode* previous){
+ // check known function calls and resolve variables
+ ROSE_ASSERT(node);
+
+ //cerr << " bufferoverflow->run " << node->get_name() << endl;
+ SgAsmx86Instruction* asmNode = isSgAsmx86Instruction(node->get_SgNode());
+ if (asmNode) {
+
+ // ANALYSIS 2 : BUFFER OVERFLOW DETECTION -------------------------------------------
+ if (asmNode->get_kind() == x86_call) {
+ // DEFINITION OF BUFFER OVERFLOW
+ uint64_t malloc_pos = asmNode->get_address();
+ SgAsmOperandList* opList = asmNode->get_operandList();
+ ROSE_ASSERT(opList);
+ SgAsmExpressionPtrList ptrList = opList->get_operands();
+ // get the first (and only) element
+ if (ptrList.size()!=0) {
+ SgAsmExpression* expr = *(ptrList.begin());
+ string replace = expr->get_replacement();
+ string op = unparseX86Expression(expr);
+
+ // we can detect malloc with the help of ida.
+ if (replace=="_malloc" || replace=="malloc at plt") {
+ if (RoseBin_support::DEBUG_MODE())
+ cerr << " " << name << " : found malloc function call " << endl;
+
+ // find the size of the malloc, = backward search within this function
+ bool foundMov=false;
+ SgDirectedGraphNode* pre = node;
+ uint64_t value=0;
+ while (foundMov!=true && sameParents(node, pre)) {
+ pre = getPredecessor(pre);
+ SgAsmx86Instruction* asmPre = isSgAsmx86Instruction(pre->get_SgNode());
+ if (asmPre->get_kind() == x86_mov || asmPre->get_kind() == x86_push) {
+ foundMov = true;
+ if (asmPre->get_kind() == x86_mov) {
+ // make sure we are moving to the top of the stack, i.e. esp
+ bool memRef = false;
+ std::pair<X86RegisterClass, int> code;
+ code = check_isRegister(pre, asmPre, false, memRef);
+ string codeStr = unparseX86Register(code.first, code.second, x86_regpos_qword);
+ if (codeStr=="rsp")
+ value = getValueOfInstr(asmPre, true);
+ else
+ cerr << " Error :: foud a mov before a call that does not point to rsp but ::: " << codeStr << endl;
+ if (RoseBin_support::DEBUG_MODE() && asmPre->get_kind() == x86_mov)
+ cerr << " malloc: found mov size of " << codeStr << " in " << value << " for malloc call : " << unparseInstruction(asmPre) <<endl;
+ } else if (asmPre->get_kind() == x86_push) {
+ value = getValueOfInstr(asmPre, false);
+ if (RoseBin_support::DEBUG_MODE() && asmPre->get_kind() == x86_push)
+ cerr << " malloc: found push size " << value << " for malloc call : " << unparseInstruction(asmPre) <<endl;
+ }
+ }
+ }
+
+
+ // result of malloc (variable) is in eax, we need to see what the variable is and store it
+ // forward search in the same function
+ foundMov=false;
+ SgDirectedGraphNode* aft = node;
+ while (foundMov!=true && sameParents(node, aft)) {
+ aft = getSuccessor(aft);
+ SgAsmx86Instruction* asmAft = isSgAsmx86Instruction(aft->get_SgNode());
+ if (asmAft->get_kind() == x86_mov) {
+ foundMov = true;
+ uint64_t address_of_var=0;
+ bool memRef = false;
+ std::pair<X86RegisterClass, int> code;
+ code = check_isRegister(aft, asmAft, true, memRef);
+ if (code.first == x86_regclass_gpr && code.second == x86_gpr_ax) {
+ if (RoseBin_support::DEBUG_MODE() && asmAft->get_kind() == x86_mov)
+ cerr << " found mov of eax of malloc call : " << unparseInstruction(asmAft) <<endl;
+ SgAsmMemoryReferenceExpression* memExpr =
+ isSgAsmMemoryReferenceExpression(getOperand(asmAft,false));
+ if (memExpr) {
+ //SgAsmRegisterReferenceExpression* refLeft = getRegister(memref->get_segment(),false);
+
+ //SgAsmMemoryReferenceExpression* memExpr =
+ // isSgAsmMemoryReferenceExpression(refLeft->get_offset());
+ //if (memExpr)
+ address_of_var = getValueInMemoryRefExp( memExpr->get_address());
+ if (RoseBin_support::DEBUG_MODE())
+ cerr << " The address of the malloc variable is : " << RoseBin_support::HexToString(address_of_var) << endl;
+ string functionName = "func";
+ //SgAsmFunctionDeclaration* func = isSgAsmFunctionDeclaration(mov->get_parent());
+ //if (func)
+ // functionName = func->get_name();
+ functionName = RoseBin_support::HexToString(malloc_pos)+":";
+ uint64_t pos = asmAft->get_address();
+ vector<uint64_t> val_v ;
+ val_v.push_back(address_of_var);
+ vector<uint64_t> pos_v ;
+ pos_v.push_back(address_of_var);
+ //RoseBin_Variable* var =
+ createVariable(pos, pos_v, functionName+"_malloc", d_array, "Memory allocation", value, val_v,true);
+ //string varStr = var->toString();
+ //aft->append_properties(RoseBin_Def::dfa_variable,varStr);
+ }
+ } else
+ cerr << " Error :: foud a mov after a call that is not rax." << endl;
+ } // mov
+ } // while
+ }
+ }
+ }
+
+ // BUFFER OVERFLOW : Once we have the buffer overflow variable,
+ // we are looking for the mov instruction, that moves the variable into eax
+ // in order to access it.
+ // if (isSgAsmMov(asmNode) ) {
+ bool isDataTransfer = x86InstructionIsDataTransfer(asmNode);
+ if (isDataTransfer ) {
+ // USAGE OF BUFFER OVERFLOW
+ // Should this be only for mov instructions?
+ if (isDataTransfer) {
+ bool memRef = false;
+ uint64_t address_of_var=0;
+ std::pair<X86RegisterClass, int> code;
+ // check if eax register on the left hand side
+ code = check_isRegister(node, asmNode, false, memRef);
+ if (code.first == x86_regclass_gpr && code.second == x86_gpr_ax) {
+ // right hand side is Register Reg / MemoryRef
+ // SgAsmRegisterReferenceExpression* refRight = getRegister(mov,true);
+ //if (refRight) {
+ SgAsmMemoryReferenceExpression* memExpr =
+ isSgAsmMemoryReferenceExpression(getOperand(asmNode,true));
+ if (memExpr) {
+ address_of_var = getValueInMemoryRefExp( memExpr->get_address());
+ if (RoseBin_support::DEBUG_MODE() && isDataTransfer) {
+ cout << " malloc: found mov to eax " << unparseInstruction(asmNode) ;
+ cout << " malloc address :: : " << RoseBin_support::HexToString(address_of_var) << endl;
+ }
+ RoseBin_Variable* var = getVariable(address_of_var);
+ if (var) {
+ string varName = var->toString();
+ RoseBin_DataTypes::DataTypes type = var->getType();
+ bool array = false;
+ if (type==d_array)
+ array = true;
+ if (RoseBin_support::DEBUG_MODE() )
+ cerr << " malloc: variable found : " << varName << " array? " << RoseBin_support::resBool(array)
+ << " instr : " << unparseInstruction(asmNode) <<endl;
+ // now that we have found the usage of an array, we check
+ // in a forward analysis, whether we access a value that is greater than
+ // the length of the array
+ if (array) {
+ int length = var->getLength();
+ int arrayLength = 0;
+ bool foundMov=false;
+ SgDirectedGraphNode* aft = node;
+ while (foundMov!=true && sameParents(node, aft)) {
+ aft = getSuccessor(aft);
+ SgAsmx86Instruction* asmAft = isSgAsmx86Instruction(aft->get_SgNode());
+ if (asmAft->get_kind() == x86_add) {
+ bool memRef = false;
+ std::pair<X86RegisterClass, int> code;
+ code = check_isRegister(aft, asmAft, false, memRef);
+ if (code.first == x86_regclass_gpr && code.second == x86_gpr_ax) {
+ uint64_t val = getValueOfInstr(asmAft, true);
+ arrayLength += val;
+ }
+ }
+ if (asmAft->get_kind() == x86_mov) {
+ foundMov = true;
+ bool memRef = false;
+ std::pair<X86RegisterClass, int> code;
+ code = check_isRegister(aft, asmAft, true, memRef);
+ if (code.first == x86_regclass_gpr && code.second == x86_gpr_ax) {
+ if (RoseBin_support::DEBUG_MODE() && asmAft->get_kind() == x86_mov) {
+ cout << " malloc - access to eax : " << unparseInstruction(asmAft)
+ << " length array (var) " << length << " access array point: " << arrayLength <<endl;
+ }
+ if (arrayLength> array) {
+ if (RoseBin_support::DEBUG_MODE() && asmAft->get_kind() == x86_mov) {
+ cerr << " WARNING:: MALLOC - Buffer Overflow at : " << unparseInstruction(asmAft)
+ << " Length of array is " << length << " but access at : " << arrayLength << endl;
+ aft->append_properties(RoseBin_Def::dfa_bufferoverflow,varName);
+ }
+ }
+ }
+ }
+ } // while
+
+ }
+ }
+ } // refRight
+ }
+ } // mov
+ }
+
+ }
+ return false;
+}
+
+
+void
+BufferOverflow::run() {
+ BinQGUI *instance = QROSE::cbData<BinQGUI *>();
+
+ RoseBin_Graph* graph=NULL;
+ ROSE_ASSERT(isSgProject(instance->fileA));
+ SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(instance->fileA)->get_fileList()[0]);
+ SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
+ ROSE_ASSERT(file);
+
+ VirtualBinCFG::AuxiliaryInformation* info = new VirtualBinCFG::AuxiliaryInformation(file);
+
+ // call graph analysis *******************************************************
+ instance->analysisTab->setCurrentIndex(1);
+ QString res = QString("Creating dataflow graph ");
+ instance->analysisResult->append(res);
+
+ bool dot=true;
+ bool forward=true;
+ bool edges=true;
+ bool mergedEdges=true;
+ bool interprocedural=false;
+ string dfgFileName = "dfg.dot";
+ graph= new RoseBin_DotGraph(info);
+ if (dot==false) {
+ dfgFileName = "dfg.gml";
+ graph= new RoseBin_GMLGraph(info);
+ }
+
+ SgAsmInterpretation* interp = SageInterface::getMainInterpretation(file);
+ RoseBin_DataFlowAnalysis* dfanalysis =
+ new RoseBin_DataFlowAnalysis(interp->get_global_block(), forward, new RoseObj(), info);
+ ROSE_ASSERT(dfanalysis);
+ dfanalysis->init(interprocedural, edges);
+ dfanalysis->run(graph, dfgFileName, mergedEdges);
+
+ res = QString("nr of nodes visited %1. nr of edges visited %2. ")
+ .arg(dfanalysis->nodesVisited())
+ .arg(dfanalysis->edgesVisited());
+
+ instance->analysisResult->append(res);
+
+ res = QString("Running BufferOverflow detection... ");
+ instance->analysisResult->append(res);
+
+ vector<SgDirectedGraphNode*> rootNodes;
+ dfanalysis->getRootNodes(rootNodes);
+
+ res = QString("Graph has Rootnodes : %1 ")
+ .arg(rootNodes.size());
+ instance->analysisResult->append(res);
+
+ dfanalysis->init();
+ res = QString("Initializing ... ");
+ instance->analysisResult->append(res);
+ init(graph);
+ res = QString("Traversing ... ");
+ instance->analysisResult->append(res);
+ dfanalysis->traverseGraph(rootNodes, this, interprocedural);
+
+ res = QString("Done. ");
+ instance->analysisResult->append(res);
+
+
+
+}
Added: trunk/projects/BinQ/BufferOverflow.h
===================================================================
--- trunk/projects/BinQ/BufferOverflow.h (rev 0)
+++ trunk/projects/BinQ/BufferOverflow.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,38 @@
+#ifndef BUFFEROVERFLOW_R_H
+#define BUFFEROVERFLOW_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+#include "RoseBin_DataFlowAbstract.h"
+#include "RoseBin_DefUseAnalysis.h"
+//#include "RoseBin_VariableAnalysis.h"
+
+class BufferOverflow : public BinAnalyses, RoseBin_DataFlowAbstract {
+ public:
+ BufferOverflow(){};
+ virtual ~BufferOverflow(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+
+ bool run(std::string& name, SgDirectedGraphNode* node,
+ SgDirectedGraphNode* previous);
+
+
+ private:
+
+ void init(RoseBin_Graph* vg) {
+ vizzGraph = vg;
+ }
+ bool runEdge(SgDirectedGraphNode* node, SgDirectedGraphNode* next) {
+ return false;
+ }
+
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/BufferOverflow.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/projects/BinQ/Clone.C
===================================================================
--- trunk/projects/BinQ/Clone.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/Clone.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -11,7 +11,7 @@
std::string
-unparseInstrFast(SgAsmInstruction* iA)
+DiffAlgo::unparseInstrFast(SgAsmInstruction* iA)
{
static std::map<SgAsmInstruction*,std::string> strMap = std::map<SgAsmInstruction*,std::string>();
std::map<SgAsmInstruction*,std::string>::iterator iItr =
@@ -24,11 +24,6 @@
string mne = iA->get_mnemonic();
boost::to_lower(mne);
- if( isSgAsmx86Instruction(iA) != NULL)
- normalizex86Mnemonic(mne);
- else if( isSgAsmArmInstruction(iA) != NULL )
- normalizeArmMnemonic(mne);
-
value += mne;
const SgAsmExpressionPtrList& operands = getOperands(iA);
// Add to total for this variant
@@ -47,8 +42,8 @@
};
-static bool
-isEqual(SgNode* A, SgNode* B)
+ bool
+DiffAlgo::isEqual(SgNode* A, SgNode* B)
{
if(A==NULL || B == NULL) return false;
SgAsmInstruction* iA = isSgAsmx86Instruction(A);
@@ -66,7 +61,8 @@
}
-void LCSLength( scoped_array<scoped_array<size_t> >& C ,vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B )
+void
+DiffAlgo::LCSLength( scoped_array<scoped_array<size_t> >& C ,vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B )
{
int m = A.size()+1;
int n = B.size()+1;
@@ -92,8 +88,12 @@
}
+std::string DiffAlgo::name() {
+ return "BinaryDiff";
+}
-void printDiff( scoped_array<scoped_array<size_t> >& C,
+void
+DiffAlgo::printDiff( scoped_array<scoped_array<size_t> >& C,
vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B, int i, int j,
std::vector<pair<int,int> >& addInstr, std::vector<pair<int,int> >& minusInstr
)
@@ -117,10 +117,14 @@
}
}
+std::string
+DiffAlgo::getDescription() {
+ return "This Analysis detects the diff between two binary files. It marks the additions and removals between them.";
+}
void
-andreasDiff() {
+DiffAlgo::run() {
BinQGUI *instance = QROSE::cbData<BinQGUI *>();
// this part is to find the added and removed code (from Andreas)
FindInstructionsVisitor vis;
@@ -139,6 +143,7 @@
QString res = QString("Found adds: %1. Found subbs: %2. ")
.arg(addInstr.size())
.arg(minusInst.size());
+ instance->analysisTab->setCurrentIndex(1);
instance->analysisResult->append(res);
Modified: trunk/projects/BinQ/Clone.h
===================================================================
--- trunk/projects/BinQ/Clone.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/Clone.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -6,8 +6,8 @@
#include <iostream>
#include <list>
+#include "BinAnalyses.h"
-
template <typename T>
class vector_start_at_one {
std::vector<T> sa;
@@ -27,19 +27,30 @@
vector_start_at_one(const vector_start_at_one<T>&); // Not copyable
};
+class DiffAlgo : public BinAnalyses {
+ public:
-std::string
-unparseInstrFast(SgAsmInstruction* iA);
+ DiffAlgo(){};
+ virtual ~DiffAlgo(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+ private:
+ std::string
+ unparseInstrFast(SgAsmInstruction* iA);
-static bool
-isEqual(SgNode* A, SgNode* B);
+ bool
+ isEqual(SgNode* A, SgNode* B);
+
+ void LCSLength( boost::scoped_array<boost::scoped_array<size_t> >& C ,vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B );
+
+ void printDiff( boost::scoped_array<boost::scoped_array<size_t> >& C,
+ vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B, int i, int j,
+ std::vector<std::pair<int,int> >& addInstr, std::vector<std::pair<int,int> >& minusInstr
+ );
-void LCSLength( boost::scoped_array<boost::scoped_array<size_t> >& C ,vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B );
+};
-void printDiff( boost::scoped_array<boost::scoped_array<size_t> >& C,
- vector_start_at_one<SgNode*>& A, vector_start_at_one<SgNode*>& B, int i, int j,
- std::vector<std::pair<int,int> >& addInstr, std::vector<std::pair<int,int> >& minusInstr
- );
#endif
Added: trunk/projects/BinQ/InterruptAnalysis.C
===================================================================
--- trunk/projects/BinQ/InterruptAnalysis.C (rev 0)
+++ trunk/projects/BinQ/InterruptAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,593 @@
+#include "BinQGui.h"
+
+#include <iostream>
+
+
+#include "BinQSupport.h"
+#include "slide.h"
+
+#include <qtabwidget.h>
+#include "InterruptAnalysis.h"
+
+
+using namespace qrs;
+using namespace std;
+using namespace __gnu_cxx;
+using namespace RoseBin_DataTypes;
+using namespace RoseBin_OS_VER;
+using namespace RoseBin_Arch;
+
+std::string InterruptAnalysis::name() {
+ return "Interrupt Analysis";
+}
+
+std::string InterruptAnalysis::getDescription() {
+ return "Runs interrupt analysis on binary.";
+}
+
+
+std::string
+InterruptAnalysis::getIntCallName(uint64_t rax,
+ DataTypes& data_ebx,
+ DataTypes& data_ecx,
+ DataTypes& data_edx,
+ vector<uint64_t>& val_rbx,
+ vector<uint64_t>& val_rcx,
+ vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_rbx,
+ std::vector<uint64_t>& pos_rcx,
+ std::vector<uint64_t>& pos_rdx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx ) {
+ string int_name = "unknown";
+ data_ebx = d_none;
+ data_ecx = d_none;
+ data_edx = d_none;
+
+ if ((os_ver==linux_22 ||
+ os_ver==linux_24 ||
+ os_ver==linux_26 ||
+ os_ver==linux_27) && arch==bit32)
+ int_name = getIntCallName_Linux32bit(rax, data_ebx, data_ecx, data_edx,
+ val_rbx, val_rcx, val_rdx,
+ pos_rbx, pos_rcx, pos_rdx,
+ fpos_rbx, fpos_rcx, fpos_rdx);
+ if ((os_ver==linux_22 ||
+ os_ver==linux_24 ||
+ os_ver==linux_26 ||
+ os_ver==linux_27) && arch==bit64)
+ int_name = getIntCallName_Linux64bit(rax, data_ebx, data_ecx, data_edx,
+ val_rbx, val_rcx, val_rdx,
+ pos_rbx, pos_rcx, pos_rdx,
+ fpos_rbx, fpos_rcx, fpos_rdx);
+
+ return int_name;
+}
+
+std::string
+InterruptAnalysis::getIntCallName_Linux32bit(uint64_t rax,
+ DataTypes& data_ebx,
+ DataTypes& data_ecx,
+ DataTypes& data_edx,
+ vector<uint64_t>& val_rbx,
+ vector<uint64_t>& val_rcx,
+ vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_rbx,
+ std::vector<uint64_t>& pos_rcx,
+ std::vector<uint64_t>& pos_rdx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx) {
+ string int_name = "unknown";
+ // linux system calls for kernel 2.2 - 32bit
+ switch (rax) {
+ case 1: {
+ int_name="sys_exit";
+ data_ebx = d_int;
+ createVariable(fpos_rbx, pos_rbx, "error_code", data_ebx, int_name, 0, val_rbx,false);
+ break;
+ }
+ case 2: {
+ int_name="sys_fork";
+ data_ebx = d_struct;
+ createVariable(fpos_rbx, pos_rbx, "fork", data_ebx, int_name, 0, val_rbx,false);
+ break;
+ }
+ case 3: {
+ int_name="sys_read";
+ data_ebx = d_uint;
+ data_ecx = d_char_p;
+ data_edx = d_size_t;
+ createVariable(fpos_rbx, pos_rbx, "fd", data_ebx, int_name, 0, val_rbx,false);
+ createVariable(fpos_rcx, pos_rcx, "buf", data_ecx, int_name, *(val_rdx.begin()), val_rcx,true);
+ createVariable(fpos_rdx, pos_rdx, "count", data_edx, int_name, 0, val_rdx,false);
+ break;
+ }
+ case 4: {
+ int_name="sys_write";
+ data_ebx = d_uint;
+ data_ecx = d_const_char_p;
+ data_edx = d_size_t;
+ createVariable(fpos_rbx, pos_rbx, "fd", data_ebx, int_name, 0, val_rbx,false);
+ createVariable(fpos_rcx, pos_rcx, "buf", data_ecx, int_name, *(val_rdx.begin()), val_rcx,true);
+ createVariable(fpos_rdx, pos_rdx, "count", data_edx, int_name, 0, val_rdx,false);
+ break;
+ }
+ case 5: {
+ int_name="sys_open";
+ data_ebx = d_const_char_p;
+ data_ecx = d_int;
+ data_edx = d_int;
+ break;
+ }
+ case 6: {
+ int_name="sys_close";
+ data_ebx = d_uint;
+ break;
+ }
+ case 7: {
+ int_name="sys_waitpid";
+ data_ebx = d_pid_t;
+ data_ecx = d_uint_p;
+ data_edx = d_int;
+ break;
+ }
+ case 8: {
+ int_name="sys_creat";
+ data_ebx = d_const_char_p;
+ data_ecx = d_int;
+ break;
+ }
+ case 9: {
+ int_name="sys_link";
+ data_ebx = d_const_char_p;
+ data_ecx = d_const_char_p;
+ break;
+ }
+ case 10: {
+ int_name="sys_unlink";
+ data_ebx = d_const_char_p;
+ break;
+ }
+ case 11: {
+ int_name="sys_execve";
+ data_ebx = d_struct;
+ break;
+ }
+ case 12: {
+ int_name="sys_chdir";
+ data_ebx = d_const_char_p;
+ break;
+ }
+ case 13: {
+ int_name="sys_time";
+ data_ebx = d_int;
+ break;
+ }
+ case 14: {
+ int_name="sys_mknod"; break;
+ }
+ case 15: {
+ int_name="sys_chmod"; break;
+ }
+ case 16: {
+ int_name="sys_lchown"; break;
+ }
+ case 18: {
+ int_name="sys_stat"; break;
+ }
+ case 19: {
+ int_name="sys_lseek"; break;
+ }
+ case 20: {
+ int_name="sys_getpid"; break;
+ }
+ case 21: {
+ int_name="sys_mount"; break;
+ }
+ case 22: {
+ int_name="sys_oldumount"; break;
+ }
+ case 23: {
+ int_name="sys_setuid"; break;
+ }
+ case 24: {
+ int_name="sys_getuid"; break;
+ }
+ case 25: {
+ int_name="sys_stime"; break;
+ }
+ case 26: {
+ int_name="sys_ptrace"; break;
+ }
+ case 27: {
+ int_name="sys_alarm"; break;
+ }
+ case 28: {
+ int_name="sys_fstat"; break;
+ }
+ case 29: {
+ int_name="sys_pause"; break;
+ }
+ case 30: {
+ int_name="sys_utime"; break;
+ }
+ case 33: {
+ int_name="sys_access"; break;
+ }
+ case 34: {
+ int_name="sys_nice"; break;
+ }
+ case 36: {
+ int_name="sys_sync"; break;
+ }
+ case 37: {
+ int_name="sys_kill"; break;
+ }
+ case 38: {
+ int_name="sys_rename"; break;
+ }
+ case 39: {
+ int_name="sys_mkdir"; break;
+ }
+ case 40: {
+ int_name="sys_rmdir"; break;
+ }
+ case 41: {
+ int_name="sys_dup"; break;
+ }
+ case 42: {
+ int_name="sys_pipe"; break;
+ }
+ case 43: {
+ int_name="sys_times"; break;
+ }
+ case 45: {
+ int_name="sys_brk"; break;
+ }
+ case 46: {
+ int_name="sys_setgid"; break;
+ }
+ case 47: {
+ int_name="sys_getgid"; break;
+ }
+ case 48: {
+ int_name="sys_signal"; break;
+ }
+ case 49: {
+ int_name="sys_geteuid"; break;
+ }
+ case 50: {
+ int_name="sys_getegid"; break;
+ }
+ case 51: {
+ int_name="sys_acct"; break;
+ }
+ case 52: {
+ int_name="sys_umount"; break;
+ }
+ case 54: {
+ int_name="sys_ioctl"; break;
+ }
+ case 55: {
+ int_name="sys_fcntl"; break;
+ }
+ case 57: {
+ int_name="sys_setpgid"; break;
+ }
+ case 59: {
+ int_name="sys_olduname"; break;
+ }
+ case 60: {
+ int_name="sys_umask"; break;
+ }
+ case 61: {
+ int_name="sys_chroot"; break;
+ }
+ case 62: {
+ int_name="sys_ustat"; break;
+ }
+ case 63: {
+ int_name="sys_dup2"; break;
+ }
+ case 64: {
+ int_name="sys_getppid"; break;
+ }
+ case 65: {
+ int_name="sys_getpgrp"; break;
+ }
+ case 66: {
+ int_name="sys_setsid"; break;
+ }
+ case 67: {
+ int_name="sys_sigaction"; break;
+ }
+ case 68: {
+ int_name="sys_sgetmask"; break;
+ }
+ case 69: {
+ int_name="sys_ssetmask"; break;
+ }
+ case 70: {
+ int_name="sys_setreuid"; break;
+ }
+ case 71: {
+ int_name="sys_setregid"; break;
+ }
+ case 72: {
+ int_name="sys_sigsuspend"; break;
+ }
+ default:
+ break;
+ }
+ return int_name;
+}
+
+std::string
+InterruptAnalysis::getIntCallName_Linux64bit(uint64_t rax,
+ DataTypes& data_ebx,
+ DataTypes& data_ecx,
+ DataTypes& data_edx,
+ vector<uint64_t>& val_rbx,
+ vector<uint64_t>& val_rcx,
+ vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_rbx,
+ std::vector<uint64_t>& pos_rcx,
+ std::vector<uint64_t>& pos_rdx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx) {
+ string int_name = "unknown";
+ // linux system calls for kernel 2.6 - 64bit
+ // check in linux src : uinstd.h and syscalls.h
+ switch (rax) {
+ case 0: {
+ int_name="sys_read";
+ data_ebx = d_uint;
+ data_ecx = d_char_p;
+ data_edx = d_size_t;
+ break;
+ }
+ case 1: {
+ int_name="sys_write";
+ data_ebx = d_uint;
+ data_ecx = d_const_char_p;
+ data_edx = d_size_t;
+ break;
+ }
+ case 2: {
+ int_name="sys_open";
+ data_ebx = d_const_char_p;
+ data_ecx = d_int;
+ data_edx = d_int;
+ break;
+ }
+ case 3: {
+ int_name="sys_close";
+ data_ebx = d_uint;
+ break;
+ }
+ case 4: {
+ int_name="sys_newstat"; break;
+ data_ebx = d_const_char_p;
+ data_ecx = d_struct;
+ }
+ case 5: {
+ int_name="sys_newfstat"; break;
+ data_ebx = d_uint;
+ data_ecx = d_struct;
+ }
+ case 6: {
+ int_name="sys_newlstat"; break;
+ data_ebx = d_const_char_p;
+ data_ecx = d_struct;
+ }
+ case 7: {
+ int_name="sys_poll"; break;
+ data_ebx = d_struct;
+ data_ecx = d_uint;
+ data_edx = d_long;
+ }
+ default:
+ break;
+ }
+ return int_name;
+}
+
+
+void
+InterruptAnalysis::getValueForDefinition(std::vector<uint64_t>& vec,
+ std::vector<uint64_t>& positions,
+ uint64_t& fpos,
+ SgDirectedGraphNode* node,
+ std::pair<X86RegisterClass, int> reg ) {
+ set <SgDirectedGraphNode*> defNodeSet = getDefFor(node, reg);
+ if (RoseBin_support::DEBUG_MODE())
+ cout << " size of found NodeSet = " << defNodeSet.size() <<endl;
+ set <SgDirectedGraphNode*>::const_iterator it = defNodeSet.begin();
+ for (;it!=defNodeSet.end();++it) {
+ SgDirectedGraphNode* defNode = *it;
+ if (RoseBin_support::DEBUG_MODE() && defNode)
+ cout << " investigating ... " << defNode->get_name() <<endl;
+ ROSE_ASSERT(defNode);
+ SgAsmx86Instruction* inst = isSgAsmx86Instruction(defNode->get_SgNode());
+ ROSE_ASSERT(inst);
+ positions.push_back(inst->get_address());
+ // the right hand side of the instruction is either a use or a value
+ bool memRef = false;
+ std::pair<X86RegisterClass, int> regRight =
+ check_isRegister(defNode, inst, true, memRef);
+
+ if (RoseBin_support::DEBUG_MODE()) {
+ string regName = unparseX86Register(reg.first, reg.second, x86_regpos_qword);
+ string regNameRight = unparseX86Register(regRight.first, regRight.second, x86_regpos_qword);
+ cout << " VarAnalysis: getValueForDef . " << regName << " right hand : " << regNameRight <<endl;
+ }
+ if (regRight.first == x86_regclass_unknown) {
+ // it is either a memref or a value
+ if (!memRef) {
+ // get value of right hand side instruction
+ uint64_t val = getValueOfInstr(inst, true);
+ vec.push_back(val);
+ fpos = inst->get_address();
+ if (RoseBin_support::DEBUG_MODE())
+ cout << " found valueOfInst = " << RoseBin_support::ToString(val) <<endl;
+ }
+ } else {
+ // it is a register reference. I.e we need to follow the usage edge to find the
+ // definition of that node
+ SgDirectedGraphNode* usageNode = vizzGraph->getDefinitionForUsage(defNode);
+ if (usageNode && usageNode!=node) {
+ if (RoseBin_support::DEBUG_MODE() && usageNode)
+ cout << " following up usage for " << usageNode->get_name() <<endl;
+ getValueForDefinition(vec, positions, fpos, usageNode, regRight);
+ } else {
+ // we look at the same node.
+ cout << " ERROR :: Either following usage to itself or usageNode = NULL. " << usageNode << endl;
+ }
+ }
+ }
+}
+
+
+bool
+InterruptAnalysis::run(string& name, SgDirectedGraphNode* node,
+ SgDirectedGraphNode* previous){
+ // check known function calls and resolve variables
+ ROSE_ASSERT(node);
+ vector<uint64_t> val_rax, val_rbx, val_rcx, val_rdx ;
+ std::vector<uint64_t> pos_rax, pos_rbx, pos_rcx, pos_rdx;
+ uint64_t fpos_rax, fpos_rbx, fpos_rcx, fpos_rdx=0xffffffff;
+
+ SgAsmx86Instruction* asmNode = isSgAsmx86Instruction(node->get_SgNode());
+ if (asmNode) {
+ // cerr << " Interrupt Analysis :: checking node " << RoseBin_support::HexToString(asmNode->get_address())
+ // << " - " << toString(asmNode->get_kind()) << endl;
+ // ANALYSIS 1 : INTERRUPT DETECTION -------------------------------------------
+
+ // verify all interrupts and make sure they do what one expects them to do.
+ if (asmNode->get_kind() == x86_int) {
+ if (RoseBin_support::DEBUG_MODE())
+ cout << " " << name << " : found int call " << endl;
+ // need to resolve rax, rbx, rcx, rdx
+ // therefore get the definition for each
+ getValueForDefinition(val_rax, pos_rax, fpos_rax, node, std::make_pair(x86_regclass_gpr, x86_gpr_ax));
+ getValueForDefinition(val_rbx, pos_rbx, fpos_rbx, node, std::make_pair(x86_regclass_gpr, x86_gpr_bx));
+ getValueForDefinition(val_rcx, pos_rcx, fpos_rcx, node, std::make_pair(x86_regclass_gpr, x86_gpr_cx));
+ getValueForDefinition(val_rdx, pos_rdx, fpos_rdx, node, std::make_pair(x86_regclass_gpr, x86_gpr_dx));
+
+ string int_name = "unknown ";
+
+ DataTypes data_ebx = unknown;
+ DataTypes data_ecx = unknown;
+ DataTypes data_edx = unknown;
+
+ bool ambigious_inst=false;
+ if (val_rax.size()>1)
+ ambigious_inst = true;
+ else
+ if (val_rax.size()==1) {
+ uint64_t rax = *(val_rax.begin());
+ int_name = getIntCallName(rax, data_ebx, data_ecx, data_edx,
+ val_rbx, val_rcx, val_rdx,
+ pos_rbx, pos_rcx, pos_rdx,
+ fpos_rbx, fpos_rcx, fpos_rdx);
+ ambigious_inst = false;
+ }
+
+ if (ambigious_inst) {
+ string value = "";
+ vector<uint64_t>::iterator it = val_rax.begin();
+ for (;it!=val_rax.end();++it) {
+ string i_name = getIntCallName(*it, data_ebx, data_ecx, data_edx,
+ val_rbx, val_rcx, val_rdx,
+ pos_rbx, pos_rcx, pos_rdx,
+ fpos_rbx, fpos_rcx, fpos_rdx);
+ value +="rAX:"+RoseBin_support::HexToString(*it)+" "+i_name+" ";
+ // createVariable(fpos_rax, pos_rax, "rax", data_ebx, "rax", 0, val_rax,false);
+ }
+
+ cerr << " DataFlow::VariableAnalysis . Ambigious INT call: " <<
+ vizzGraph->getProperty(RoseBin_Def::name, node) << " - " << value << endl;
+ value = "PROBLEM: " + value;
+ node->append_properties(RoseBin_Def::dfa_unresolved_func,value);
+
+ } else {
+ // we know what INT instruction it is
+ string t_ebx = RoseBin_support::getTypeName(data_ebx);
+ string t_ecx = RoseBin_support::getTypeName(data_ecx);
+ string t_edx = RoseBin_support::getTypeName(data_edx);
+
+ int_name += " ("+t_ebx+","+t_ecx+","+t_edx+")";
+ //if (RoseBin_support::DEBUG_MODE())
+ // cout << " found INT call : " << value << " .. " << int_name << endl;
+ node->append_properties(RoseBin_Def::dfa_variable,int_name);
+ }
+ }
+ }
+ return false;
+}
+
+
+
+void
+InterruptAnalysis::run() {
+ BinQGUI *instance = QROSE::cbData<BinQGUI *>();
+
+ RoseBin_Graph* graph=NULL;
+ ROSE_ASSERT(isSgProject(instance->fileA));
+ SgBinaryFile* binaryFile = isSgBinaryFile(isSgProject(instance->fileA)->get_fileList()[0]);
+ SgAsmFile* file = binaryFile != NULL ? binaryFile->get_binaryFile() : NULL;
+ ROSE_ASSERT(file);
+
+ VirtualBinCFG::AuxiliaryInformation* info = new VirtualBinCFG::AuxiliaryInformation(file);
+
+ // call graph analysis *******************************************************
+ instance->analysisTab->setCurrentIndex(1);
+ QString res = QString("Creating dataflow graph ");
+ instance->analysisResult->append(res);
+
+ bool dot=true;
+ bool forward=true;
+ bool edges=true;
+ bool mergedEdges=true;
+ bool interprocedural=false;
+ string dfgFileName = "dfg.dot";
+ graph= new RoseBin_DotGraph(info);
+ if (dot==false) {
+ dfgFileName = "dfg.gml";
+ graph= new RoseBin_GMLGraph(info);
+ }
+
+ SgAsmInterpretation* interp = SageInterface::getMainInterpretation(file);
+ RoseBin_DataFlowAnalysis* dfanalysis =
+ new RoseBin_DataFlowAnalysis(interp->get_global_block(), forward, new RoseObj(), info);
+ ROSE_ASSERT(dfanalysis);
+ dfanalysis->init(interprocedural, edges);
+ dfanalysis->run(graph, dfgFileName, mergedEdges);
+
+ res = QString("nr of nodes visited %1. nr of edges visited %2. ")
+ .arg(dfanalysis->nodesVisited())
+ .arg(dfanalysis->edgesVisited());
+
+ instance->analysisResult->append(res);
+
+ res = QString("Running InterruptAnalysis detection... ");
+ instance->analysisResult->append(res);
+
+ vector<SgDirectedGraphNode*> rootNodes;
+ dfanalysis->getRootNodes(rootNodes);
+
+ res = QString("Graph has Rootnodes : %1 ")
+ .arg(rootNodes.size());
+ instance->analysisResult->append(res);
+
+ dfanalysis->init();
+ res = QString("Initializing ... ");
+ instance->analysisResult->append(res);
+ init(graph);
+ res = QString("Traversing ... ");
+ instance->analysisResult->append(res);
+ dfanalysis->traverseGraph(rootNodes, this, interprocedural);
+
+ res = QString("Done. ");
+ instance->analysisResult->append(res);
+
+
+
+}
Added: trunk/projects/BinQ/InterruptAnalysis.h
===================================================================
--- trunk/projects/BinQ/InterruptAnalysis.h (rev 0)
+++ trunk/projects/BinQ/InterruptAnalysis.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,77 @@
+#ifndef INTERRUPTANALYSIS_R_H
+#define INTERRUPTANALYSIS_R_H
+#include "rose.h"
+
+#include <iostream>
+#include <list>
+#include "BinAnalyses.h"
+#include "RoseBin_DataFlowAbstract.h"
+#include "RoseBin_DefUseAnalysis.h"
+
+
+class InterruptAnalysis : public BinAnalyses, RoseBin_DataFlowAbstract {
+ public:
+ InterruptAnalysis(){};
+ virtual ~InterruptAnalysis(){};
+ void run();
+ std::string name();
+ std::string getDescription();
+
+ bool run(std::string& name, SgDirectedGraphNode* node,
+ SgDirectedGraphNode* previous);
+
+
+ private:
+
+ void init(RoseBin_Graph* vg) {
+ vizzGraph = vg;
+ }
+ bool runEdge(SgDirectedGraphNode* node, SgDirectedGraphNode* next) {
+ return false;
+ }
+
+
+ void getValueForDefinition(std::vector<uint64_t>& vec,
+ std::vector<uint64_t>& positions,
+ uint64_t& fpos,
+ SgDirectedGraphNode* node,
+ std::pair<X86RegisterClass, int> reg );
+
+ std::string getIntCallName_Linux32bit(uint64_t rax,RoseBin_DataTypes::DataTypes& data_ebx,
+ RoseBin_DataTypes::DataTypes& data_ecx,
+ RoseBin_DataTypes::DataTypes& data_edx,
+ std::vector<uint64_t>& val_rbx,
+ std::vector<uint64_t>& val_rcx,
+ std::vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_ebx,
+ std::vector<uint64_t>& pos_ecx,
+ std::vector<uint64_t>& pos_edx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx);
+ std::string getIntCallName_Linux64bit(uint64_t rax,RoseBin_DataTypes::DataTypes& data_ebx,
+ RoseBin_DataTypes::DataTypes& data_ecx,
+ RoseBin_DataTypes::DataTypes& data_edx,
+ std::vector<uint64_t>& val_rbx,
+ std::vector<uint64_t>& val_rcx,
+ std::vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_ebx,
+ std::vector<uint64_t>& pos_ecx,
+ std::vector<uint64_t>& pos_edx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx);
+ std::string getIntCallName(uint64_t rax,RoseBin_DataTypes::DataTypes& data_ebx,
+ RoseBin_DataTypes::DataTypes& data_ecx,
+ RoseBin_DataTypes::DataTypes& data_edx,
+ std::vector<uint64_t>& val_rbx,
+ std::vector<uint64_t>& val_rcx,
+ std::vector<uint64_t>& val_rdx,
+ std::vector<uint64_t>& pos_ebx,
+ std::vector<uint64_t>& pos_ecx,
+ std::vector<uint64_t>& pos_edx,
+ uint64_t fpos_rbx, uint64_t fpos_rcx, uint64_t fpos_rdx);
+
+
+
+};
+
+
+
+#endif
Property changes on: trunk/projects/BinQ/InterruptAnalysis.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/projects/BinQ/Item.h
===================================================================
--- trunk/projects/BinQ/Item.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/Item.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -4,27 +4,25 @@
class Item {
public:
- Item(bool function, SgNode* statement,
- int functionSize, int resolved, int row, int length, int pos,
- std::string comment, int lineNr):function(function),
- statement(statement),functionSize(functionSize),
- resolved(resolved),row(row),length(length),pos(pos),comment(comment),lineNr(lineNr){
+ Item(rose_addr_t addr, SgNode* statement,
+ int resolvedColor, int row, int length, int pos,
+ std::string comment, int lineNr):
+ addr(addr),statement(statement),
+ resolvedColor(resolvedColor),
+ row(row),length(length),pos(pos),
+ comment(comment),lineNr(lineNr){
fg = QColor(128,128,128);
bg = QColor(128,128,128);
}
- bool function;
+ rose_addr_t addr;
SgNode* statement;
- int functionSize;
- int resolved;
+ int resolvedColor;
int row;
-
int length;
int pos;
std::string comment;
int lineNr;
- // is this a added or removed instruction (clone detection)
-
QColor bg;
QColor fg;
Modified: trunk/projects/BinQ/Makefile.am
===================================================================
--- trunk/projects/BinQ/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,10 +13,15 @@
slide.C \
Clone.C \
AlignFunctions.C \
- AlignFunctionsSmart.C
+ BinCallGraph.C \
+ BinControlFlowAnalysis.C \
+ BinDataFlowAnalysis.C \
+ BufferOverflow.C \
+ InterruptAnalysis.C
+
BinQ_LDADD = $(ROSE_LIBS) $(QT_LDFLAGS) $(QROSE_LDFLAGS) -lrt
INCLUDES = $(ROSE_INCLUDES) $(BOOST_CPPFLAGS) -I.
@@ -35,15 +40,23 @@
clean:
- rm -f *.o BinQ *.s
+ rm -f *.o BinQ *.s *.dump
endif
EXTRA_DIST = BinQGui.h \
BinQSupport.h \
+ AlignFunctions.h \
+ BinAnalyses.h \
slide.h \
disks.xpm \
folder.xpm \
icons.h \
Item.h \
- Clone.h
+ Clone.h \
+ BinCallGraph.h \
+ BinControlFlowAnalysis.h \
+ BinDataFlowAnalysis.h \
+ BufferOverflow.h \
+ InterruptAnalysis.h
+
Modified: trunk/projects/BinQ/slide.C
===================================================================
--- trunk/projects/BinQ/slide.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinQ/slide.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -40,12 +40,13 @@
if (item) {
int pos = item->pos;
int length=item->length;
- int color = item->resolved;
+ int color = item->resolvedColor;
if (color==0) painter.setBrush(Qt::black);
if (color==1) painter.setBrush(Qt::blue);
if (color==2) painter.setBrush(Qt::green);
if (color==3) painter.setBrush(Qt::red);
if (color==4) painter.setBrush(Qt::gray);
+ if (color==5) painter.setBrush(Qt::white);
painter.drawRect(QRect(pos, 0, length, 15));
}
}
@@ -58,12 +59,13 @@
if (item) {
int pos = item->pos;
int length=item->length;
- int color = item->resolved;
+ int color = item->resolvedColor;
if (color==0) painter.setBrush(Qt::black);
if (color==1) painter.setBrush(Qt::blue);
if (color==2) painter.setBrush(Qt::green);
if (color==3) painter.setBrush(Qt::red);
if (color==4) painter.setBrush(Qt::gray);
+ if (color==5) painter.setBrush(Qt::white);
painter.drawRect(QRect(pos, 15, length, 15));
}
}
@@ -82,10 +84,10 @@
int selected = posX;
Item* item = gui->byteItemFileA[selected];
Item* item2 = gui->byteItemFileB[selected];
+ ROSE_ASSERT(gui);
-
if (item) {
- SgAsmStatement* stmt=isSgAsmStatement(item->statement);
+ SgAsmNode* stmt=isSgAsmNode(item->statement);
if (stmt) {
if (isSgAsmFunctionDeclaration(stmt)) {
QString res = QString("FILE_A: selected Function %1 pos:%2")
@@ -93,14 +95,30 @@
.arg(selected);
if (lastStringA!=res) {
lastStringA = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
}
} else if (isSgAsmBlock(stmt)) {
QString res = QString("FILE_A: selected Block");
if (lastStringA!=res) {
lastStringA = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
}
+ } else if (isSgAsmElfSection(stmt)) {
+ QString res = QString("FILE_A: selected Section %1")
+ .arg(isSgAsmElfSection(stmt)->get_name()->get_string().c_str());
+ if (lastStringA!=res) {
+ lastStringA = res;
+ gui->console->append(res);
+ int row = item->row;
+ //cerr << "Selected row: " << row << " lastRowA:" << lastRowA << endl;
+ if (row>=0) {
+ if (lastRowA!=row) {
+ gui->unhighlightInstructionRow(lastRowA, true);
+ gui->highlightInstructionRow(row, true);
+ lastRowA=row;
+ }
+ }
+ }
} else if (isSgAsmInstruction(stmt)) {
//cerr << " selected Byte: " << isSgAsmInstruction(stmt)->get_mnemonic() << endl;
QString res = QString("FILE_A: selected Byte %1: %2 size %3 pos: %4")
@@ -110,7 +128,7 @@
.arg(selected);
if (lastStringA!=res) {
lastStringA = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
int row = item->row;
//cerr << "Selected row: " << row << " lastRowA:" << lastRowA << endl;
if (row>=0) {
@@ -134,19 +152,19 @@
.arg(selected);
if (lastStringB!=res) {
lastStringB = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
}
} else if (isSgAsmBlock(stmt)) {
QString res = QString("FILE_B: selected Block");
if (lastStringB!=res) {
lastStringB = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
}
} else if (isSgFunctionDeclaration(stmt)) {
QString res = QString("FILE_B: Func selected");
if (lastStringB!=res) {
lastStringB = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
}
} else if (isSgStatement(stmt)) {
// cerr << " selected statement!! " << endl;
@@ -157,7 +175,7 @@
.arg(selected);
if (lastStringB!=res) {
lastStringB = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
int row = item2->row;
//cerr << "Selected row: " << row << " lastRowB:" << lastRowB << endl;
if (row>=0) {
@@ -168,7 +186,23 @@
}
}
}
- }else if (isSgAsmInstruction(stmt)) {
+ }else if (isSgAsmElfSection(stmt)) {
+ QString res = QString("FILE_B: selected Section %1")
+ .arg(isSgAsmElfSection(stmt)->get_name()->get_string().c_str());
+ if (lastStringB!=res) {
+ lastStringB = res;
+ gui->console->append(res);
+ int row = item2->row;
+ //cerr << "Selected row: " << row << " lastRowA:" << lastRowA << endl;
+ if (row>=0) {
+ if (lastRowB!=row) {
+ gui->unhighlightInstructionRow(lastRowB, false);
+ gui->highlightInstructionRow(row, false);
+ lastRowB=row;
+ }
+ }
+ }
+ } else if (isSgAsmInstruction(stmt)) {
//cerr << " selected Byte: " << isSgAsmInstruction(stmt)->get_mnemonic() << endl;
QString res = QString("FILE_B: selected Byte %1: %2 size %3 pos: %4")
.arg(RoseBin_support::HexToString((isSgAsmx86Instruction(stmt))->get_address()).c_str() )
@@ -177,7 +211,7 @@
.arg(selected);
if (lastStringB!=res) {
lastStringB = res;
- gui->analysisResult->append(res);
+ gui->console->append(res);
int row = item2->row;
//cerr << "Selected row: " << row << " lastRowB:" << lastRowB << endl;
if (row>=0) {
Modified: trunk/projects/BinaryCloneDetection/gui/binaryCloneGui.C
===================================================================
--- trunk/projects/BinaryCloneDetection/gui/binaryCloneGui.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/BinaryCloneDetection/gui/binaryCloneGui.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -319,7 +319,7 @@
try {
eltCount = boost::lexical_cast<size_t>(con.executestring("select max(row_number) from largest_clones"));
- } catch (exception& e) {
+ } catch (std::exception& e) {
eAssert(0, ("internal error: No largest_clones table found -- invalid database?!"));
}
@@ -429,7 +429,7 @@
row++;
}
}
- catch(exception& e) {
+ catch(std::exception& e) {
//cout << e.what() << "\n";
}
Modified: trunk/projects/OpenMP_Translator/ompTranslator.C
===================================================================
--- trunk/projects/OpenMP_Translator/ompTranslator.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/OpenMP_Translator/ompTranslator.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -85,6 +85,9 @@
static int setForLoopTripleValues(int valuetype,SgForStatement* forstmt, SgExpression* exp);
static SgInitializedName * getLoopIndexVar(SgForStatement* forstmt);
static bool isLoopIndexVarRef(SgForStatement* forstmt, SgVarRefExp *varref);
+ // Check if node1 is an ancester of node2 (parent of parent of.. node 2)
+ // a reliable way to compare two scopes:
+ static bool isAncester(SgNode* node1, SgNode* node2);
};
//--------------------------------------------------------------
@@ -634,9 +637,10 @@
for (Rose_STL_Container<SgNode*>::iterator i=used_variables.begin();i!=used_variables.end();i++)
{
// only care the used variables from the same scope and outer scope
- // interestingly, outer scope is 'smaller'
+ // interestingly, outer scope is 'smaller' currentscope >= orig_scope
SgInitializedName* initname= isSgVarRefExp(*i)->get_symbol()->get_declaration();
- if ( currentscope >= isSgScopeStatement(ASTtools::get_scope(initname)) )
+ SgScopeStatement* orig_scope=isSgScopeStatement(ASTtools::get_scope(initname));
+ if (( currentscope == orig_scope)||ASTtools::isAncester(orig_scope,currentscope) )
all_var_list.push_back(initname);
} //end for
@@ -871,7 +875,9 @@
// only care the used variables from the same scope and outer scope
// interestingly, outer scope is 'smaller'
SgInitializedName* initname= isSgVarRefExp(*i)->get_symbol()->get_declaration();
- if ( currentscope >= isSgScopeStatement(ASTtools::get_scope(initname)) )
+ //if ( currentscope >= isSgScopeStatement(ASTtools::get_scope(initname)) )
+ SgScopeStatement* orig_scope = isSgScopeStatement(ASTtools::get_scope(initname));
+ if (( currentscope==orig_scope) || ASTtools::isAncester(orig_scope,currentscope))
all_var_list.push_back(initname);
} //end for
@@ -1413,6 +1419,23 @@
}
//-------------
+//check if node1 is an ancester of node 2
+bool ASTtools::isAncester(SgNode* node1, SgNode* node2)
+{
+ ROSE_ASSERT(node1&&node2);
+ SgNode* curnode= node2;
+ if (node1==node2)
+ return false;
+ do {
+ curnode= curnode->get_parent();
+ } while( (curnode!=NULL)&&(curnode!=node1));
+
+ if (curnode==node1)
+ return true;
+ else
+ return false;
+}
+
// what if the current node is already the outmost scope??
SgNode* ASTtools::get_scope(SgNode* astNode)
{
@@ -1721,7 +1744,8 @@
if (( ((ompattribute->isInClause(initname,e_private))||
(ompattribute->isInClause(initname,e_firstprivate))||
(ompattribute->isInClause(initname,e_lastprivate)))
- &&(currentscope >= varscope)) ||
+// &&(currentscope >= varscope)) ||
+ &&((currentscope==varscope)|| ASTtools::isAncester(varscope,currentscope))) ||
(ompattribute->isInClause(initname,e_reduction_plus)))
{
//cout<<"debug:private:"<<(initname->get_name()).getString()<<endl;
@@ -1819,7 +1843,8 @@
SgExpression * lhs = NULL;
SgExpression * rhs = NULL;
- if (varscope<currentscope)
+// if (varscope<currentscope) // I thought higher scope was smaller
+ if (ASTtools::isAncester(varscope,currentscope))
{
lhs = buildVarRefExp(initname,bBlock1);
rhs = buildVarRefExp(name1,bBlock1);
@@ -1905,7 +1930,7 @@
appendExpression(exp_list_exp,arg2);
}
//&gi for reduction variables from higher scope or for all orphaned case
- else if (((ompattribute->isOrphaned==false)&&(currentscope>varscope))||\
+ else if (((ompattribute->isOrphaned==false)&&(ASTtools::isAncester(varscope,currentscope)))||\
(ompattribute->isOrphaned==true))
{
SgName varName2(myname.getString());
@@ -2237,7 +2262,8 @@
SgName varname1_name(myname.getString());
SgName initname2_name("_pp_"+myname.getString());
- if (varscope<currentscope)
+// if (varscope<currentscope)
+ if (ASTtools::isAncester(varscope,currentscope))
{
// reusing initname directly will have weird behavior during runtime.
// so build varname1 from scratch!!
Modified: trunk/projects/arrayOptimization/ArrayAnnot.C
===================================================================
--- trunk/projects/arrayOptimization/ArrayAnnot.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/arrayOptimization/ArrayAnnot.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -257,7 +257,7 @@
{
return arrayopt.known_type( fa, array, r);
}
-
+//! Check if an expression 'arrayExp' is an expression(operation) modifying an array(creation or modifying)
bool ArrayAnnotation::
is_array_mod_op( CPPAstInterface& fa, const AstNodePtr& arrayExp,
AstNodePtr* arrayp, ArrayDescriptor* descp, bool* reshape,
@@ -371,7 +371,9 @@
}
return false;
}
-
+//! Check if a node is a known member function of an array to access the length of one dimension
+// If true, return the array node 'arrayp', function parameter 'dimAst',
+// and the integer value of the prameter 'dim'
bool ArrayAnnotation ::
is_access_array_length( CPPAstInterface& fa, const AstNodePtr& orig, AstNodePtr* arrayp,
AstNodePtr* dimAst, int *dim)
Modified: trunk/projects/arrayOptimization/ArrayAnnot.h
===================================================================
--- trunk/projects/arrayOptimization/ArrayAnnot.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/arrayOptimization/ArrayAnnot.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -147,7 +147,7 @@
second.replace_val(repl);
}
};
-
+//! Modify Array[symbolic_value]
class ArrayModifyDescriptor :
public OPDescriptorTemp < CollectPair< CloseDescriptor<SymbolicValDescriptor, '(', ')'>,
ArrayDescriptor,0> >
@@ -210,7 +210,13 @@
OperatorAnnotCollection<ArrayModifyDescriptor>::Dump();
}
};
-
+//! Array annotations contains semantics for
+// * types/classes: array attributes: dimension, length,
+// * operators/functions: side effects such as mod/read; and alias information
+// Please refer to the following paper for details
+// Yi, Qing, and Dan Quinlan, \u201cApplying Loop Optimizations to Object-oriented Abstractions
+// Through General Classification of Array Semantics\u201d, the 17th International Workshop on
+// Languages and Compilers for Parallel Computing, West Lafayette, Indiana, USA. Sep. 2004.
class ArrayAnnotation
: public FunctionSideEffectInterface,
public FunctionAliasInterface
@@ -249,7 +255,8 @@
bool is_array_construct_op( CPPAstInterface& fa, const AstNodePtr& arrayExp,
CPPAstInterface::AstNodeList* alias = 0,
ArrayDescriptor* desc = 0, ReplaceParams* repl = 0);
-
+ //! Check if a node 'orig' is a reference to an array element
+ // If true, return the array node 'array', and the list of subscripts 'args'
bool is_access_array_elem( CPPAstInterface& fa, const AstNodePtr& orig,
AstNodePtr* array=0, CPPAstInterface::AstNodeList* args=0);
bool is_access_array_length( CPPAstInterface& fa, const AstNodePtr& orig,
Modified: trunk/projects/arrayOptimization/test/Makefile.am
===================================================================
--- trunk/projects/arrayOptimization/test/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/arrayOptimization/test/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -5,8 +5,11 @@
# to deactivate tests comment out check-local.
check-local:
@echo "SKIPPING TEST CODES RUN BY \"make check\" rule in projects/arrayOptimization/test directory ..."
-# $(MAKE) FORCE_TEST_CODES_TO_RUN
+# DQ (11/8/2008): Commented out as requested by Liao.
+ $(MAKE) FORCE_TEST_CODES_TO_RUN
FORCE_TEST_CODES_TO_RUN:
- $(srcdir)/TestDriver $(srcdir)
+ $(srcdir)/TestDriver $(srcdir) $(top_builddir)/projects/arrayOptimization
+clean-local:
+ rm -f *.o rose_*.[cC]
Modified: trunk/projects/arrayOptimization/test/TestDriver
===================================================================
--- trunk/projects/arrayOptimization/test/TestDriver 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/arrayOptimization/test/TestDriver 2008-11-12 23:49:35 UTC (rev 120)
@@ -11,17 +11,18 @@
test1="$2/ArrayProcessor -fs2 -annot $srcdir/floatArray.annot -annot $srcdir/funcs.annot -annot $srcdir/Index.annot $srcdir/interp1.C"
echo $test1
$test1
-${DIFF} $srcdir/rose_interp1.C.save rose_interp1.C
-rm rose_interp1.C
+#${DIFF} $srcdir/rose_interp1.C.save rose_interp1.C
+#rm rose_interp1.C
test2="$2/ArrayProcessor -fs2 -annot $srcdir/floatArray.annot -annot $srcdir/funcs.annot -annot $srcdir/Index.annot $srcdir/redBlack1.C"
echo $test2
$test2
-${DIFF} $srcdir/rose_redBlack1.C.save rose_redBlack1.C
-rm rose_redBlack1.C
+#${DIFF} $srcdir/rose_redBlack1.C.save rose_redBlack1.C
+#rm rose_redBlack1.C
-test3="$2/ArrayProcessor -fs2 -annot $srcdir/floatArray.annot -annot $srcdir/funcs.annot -annot $srcdir/Index.annot -splitloop $srcdir/redBlack1.C"
-echo $test3
-$test3
-${DIFF} $srcdir/rose_redBlack1_split.C.save rose_redBlack1.C
-rm rose_redBlack1.C
+# Infinite running for some reason
+#test3="$2/ArrayProcessor -fs2 -annot $srcdir/floatArray.annot -annot $srcdir/funcs.annot -annot $srcdir/Index.annot -splitloop $srcdir/redBlack1.C"
+#echo $test3
+#$test3
+#${DIFF} $srcdir/rose_redBlack1_split.C.save rose_redBlack1.C
+#rm rose_redBlack1.C
Modified: trunk/projects/autoParallelization/tests/Makefile.am
===================================================================
--- trunk/projects/autoParallelization/tests/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/autoParallelization/tests/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -16,6 +16,7 @@
firstprivate.c \
inner_only.c \
jacobi_seq.c \
+lastprivate.c \
matrixmultiply.c \
output_dep2.c \
output_dep3.c \
Added: trunk/projects/autoParallelization/tests/lastprivate.c
===================================================================
--- trunk/projects/autoParallelization/tests/lastprivate.c (rev 0)
+++ trunk/projects/autoParallelization/tests/lastprivate.c 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,20 @@
+// an example of output dependence preventing parallelization
+// x: not live-in, yes live-out
+// outer scope
+// loop-carried output-dependence: x=... : accept values based on loop variable; or not.
+//Solution: Can be parallelized using lastprivate(x)
+#include <stdio.h>
+void foo()
+{
+ int i,x;
+
+ for (i=0;i<100;i++)
+ x=i;
+ printf("x=%d",x);
+}
+/* carryLevel should be 0?
+
+ * output dependence, loop carried
+ * dep SgExprStatement:x = i; SgExprStatement:x = i; 1*1 SCALAR_DEP; commonlevel = 1 CarryLevel = 1 SgVarRefExp:x at 7:6->SgVarRefExp:x at 7:6 == 0;||::
+
+ */
Property changes on: trunk/projects/autoParallelization/tests/lastprivate.c
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/projects/autoParallelization/tests/private.c
===================================================================
--- trunk/projects/autoParallelization/tests/private.c 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/autoParallelization/tests/private.c 2008-11-12 23:49:35 UTC (rev 120)
@@ -16,13 +16,9 @@
}
/*
*
-output dependence: should be loop carried (level=0), but reported as non-loop carried?
-dep SgExprStatement:x =(a[i]); SgExprStatement:x =(a[i]); 1*1 SCALAR_DEP; commonlevel = 1 CarryLevel = 1 SgVarRefExp:x at 13:6->SgVarRefExp:x at 13:6 == 0;||::
+dep SgExprStatement:x =(a[i]); SgExprStatement:x =(a[i]); 1*1 SCALAR_DEP; commonlevel = 1 CarryLevel = 0 Scalar dep type OUTPUT_DEP;SgVarRefExp:x at 13:6->SgVarRefExp:x at 13:6 == 0;||::
-true dependence: non-loop carried
-dep SgExprStatement:x =(a[i]); SgExprStatement:b[i] =(x + 1); 1*1 SCALAR_DEP; commonlevel = 1 CarryLevel = 1 SgVarRefExp:x at 13:6->SgVarRefExp:x at 14:10 == 0;||::
+dep SgExprStatement:x =(a[i]); SgExprStatement:b[i] =(x + 1); 1*1 SCALAR_DEP; commonlevel = 1 CarryLevel = 1 Scalar dep type TRUE_DEP;SgVarRefExp:x at 13:6->SgVarRefExp:x at 14:10 == 0;||::
-anti-dependence: loop -carried
-dep SgExprStatement:b[i] =(x + 1); SgExprStatement:x =(a[i]); 1*1 SCALAR_BACK_DEP; commonlevel = 1 CarryLevel = 0 SgVarRefExp:x at 14:10->SgVarRefExp:x at 13:6 <= -1;||::
-
+dep SgExprStatement:b[i] =(x + 1); SgExprStatement:x =(a[i]); 1*1 SCALAR_BACK_DEP; commonlevel = 1 CarryLevel = 0 Scalar dep type ANTI_DEP;SgVarRefExp:x at 14:10->SgVarRefExp:x at 13:6 <= -1;||::
*/
Modified: trunk/projects/compass/extensions/checkers/binPrintAsmFunctions/binPrintAsmFunctionsDocs.tex
===================================================================
--- trunk/projects/compass/extensions/checkers/binPrintAsmFunctions/binPrintAsmFunctionsDocs.tex 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/compass/extensions/checkers/binPrintAsmFunctions/binPrintAsmFunctionsDocs.tex 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,48 +13,18 @@
\section{Bin Print Asm Functions}
\label{BinPrintAsmFunctions::overview}
-% write your introduction
+This binary analysis traverses over the AST and prints all functions within the binary.
+This is an example of how to traverse a binary. This is not a security checker per se.
+
\subsection{Parameter Requirements}
-%Write the Parameter specification here.
- No Parameter specifications yet!
+None.
\subsection{Implementation}
-%Details of the implementation go here.
- No implementation yet!
+See binPrintAsmFunctions.C
-\subsection{Non-Compliant Code Example}
-% write your non-compliant code subsection
-
-\begin{verbatim}
-
-% write your non-compliant code example
-
-\end{verbatim}
-
-\subsection{Compliant Solution}
-
-% write your compliant code subsection
-
-\begin{verbatim}
-
-% write your compliant code example
-
-\end{verbatim}
-
-\subsection{Mitigation Strategies}
-\subsubsection{Static Analysis}
-
-Compliance with this rule can be checked using structural static analysis checkers using the following algorithm:
-
-\begin{enumerate}
-\item Write your checker algorithm
-\end{enumerate}
-
-\subsection{References}
-
% Write some references
% ex. \htmladdnormallink{ISO/IEC 9899-1999:TC2}{https://www.securecoding.cert.org/confluence/display/seccode/AA.+C+References} Forward, Section 6.9.1, Function definitions''
Modified: trunk/projects/compass/extensions/checkers/binPrintAsmInstruction/binPrintAsmInstructionDocs.tex
===================================================================
--- trunk/projects/compass/extensions/checkers/binPrintAsmInstruction/binPrintAsmInstructionDocs.tex 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/compass/extensions/checkers/binPrintAsmInstruction/binPrintAsmInstructionDocs.tex 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,48 +13,19 @@
\section{Bin Print Asm Instruction}
\label{BinPrintAsmInstruction::overview}
-% write your introduction
+This binary analysis traverses over the AST and prints all instructions within the binary.
+This is an example of how to traverse a binary. This is not a security checker per se.
+
+
\subsection{Parameter Requirements}
-%Write the Parameter specification here.
- No Parameter specifications yet!
+None.
\subsection{Implementation}
-%Details of the implementation go here.
- No implementation yet!
+See binPrintAsmInstructions.C
-\subsection{Non-Compliant Code Example}
-% write your non-compliant code subsection
-
-\begin{verbatim}
-
-% write your non-compliant code example
-
-\end{verbatim}
-
-\subsection{Compliant Solution}
-
-% write your compliant code subsection
-
-\begin{verbatim}
-
-% write your compliant code example
-
-\end{verbatim}
-
-\subsection{Mitigation Strategies}
-\subsubsection{Static Analysis}
-
-Compliance with this rule can be checked using structural static analysis checkers using the following algorithm:
-
-\begin{enumerate}
-\item Write your checker algorithm
-\end{enumerate}
-
-\subsection{References}
-
% Write some references
% ex. \htmladdnormallink{ISO/IEC 9899-1999:TC2}{https://www.securecoding.cert.org/confluence/display/seccode/AA.+C+References} Forward, Section 6.9.1, Function definitions''
Modified: trunk/projects/compass/extensions/checkers/binaryBufferOverflow/binaryBufferOverflowDocs.tex
===================================================================
--- trunk/projects/compass/extensions/checkers/binaryBufferOverflow/binaryBufferOverflowDocs.tex 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/compass/extensions/checkers/binaryBufferOverflow/binaryBufferOverflowDocs.tex 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,48 +13,45 @@
\section{Binary Buffer Overflow}
\label{BinaryBufferOverflow::overview}
-% write your introduction
+This analysis looks for buffer overflows in binaries.
\subsection{Parameter Requirements}
-%Write the Parameter specification here.
- No Parameter specifications yet!
+None.
\subsection{Implementation}
-%Details of the implementation go here.
- No implementation yet!
+The implementation is dependent on the availability of symbols.
+Functions must have names. The algorithm looks then for the malloc function
+and determines the memory allocation made.
+Using the def-use algorithm, uses of the allocated variable are looked for
+and any access beyond the allocation size are flagged as a buffer overflow.
+
+This analysis operates on a graph, not an AST.
+
\subsection{Non-Compliant Code Example}
-% write your non-compliant code subsection
+This is an example of a code that will trigger a buffer overflow.
\begin{verbatim}
-% write your non-compliant code example
+#include <stdio.h>
+#include <stdlib.h>
-\end{verbatim}
+int main(int argc, char* argv) {
+ int* arr = malloc( sizeof(int)*10);
-\subsection{Compliant Solution}
+ int i=0;
+ for (i=0; i<10;++i) {
+ arr[i]=5;
+ }
+ int x = arr[12];
+}
-% write your compliant code subsection
-
-\begin{verbatim}
-
-% write your compliant code example
-
\end{verbatim}
-\subsection{Mitigation Strategies}
-\subsubsection{Static Analysis}
-Compliance with this rule can be checked using structural static analysis checkers using the following algorithm:
-\begin{enumerate}
-\item Write your checker algorithm
-\end{enumerate}
-
-\subsection{References}
-
% Write some references
% ex. \htmladdnormallink{ISO/IEC 9899-1999:TC2}{https://www.securecoding.cert.org/confluence/display/seccode/AA.+C+References} Forward, Section 6.9.1, Function definitions''
Modified: trunk/projects/compass/extensions/checkers/binaryInterruptAnalysis/binaryInterruptAnalysisDocs.tex
===================================================================
--- trunk/projects/compass/extensions/checkers/binaryInterruptAnalysis/binaryInterruptAnalysisDocs.tex 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/compass/extensions/checkers/binaryInterruptAnalysis/binaryInterruptAnalysisDocs.tex 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,48 +13,22 @@
\section{Binary Interrupt Analysis}
\label{BinaryInterruptAnalysis::overview}
-% write your introduction
+This analysis looks for intx80 instruction calls. If such a call is detected,
+a dataflow analysis traces back the eax register to determine what Linux system call will being executed.
+E.g. if eax == 1 , its a sys\_exit, eax == 3, its a sys\_read or eax == 4 is a sys\_write.
+
+
\subsection{Parameter Requirements}
-%Write the Parameter specification here.
- No Parameter specifications yet!
+None.
\subsection{Implementation}
-%Details of the implementation go here.
- No implementation yet!
+This analysis operates on a graph, not an AST.
-\subsection{Non-Compliant Code Example}
+See binaryInterruptAnalysis.C
-% write your non-compliant code subsection
-\begin{verbatim}
-
-% write your non-compliant code example
-
-\end{verbatim}
-
-\subsection{Compliant Solution}
-
-% write your compliant code subsection
-
-\begin{verbatim}
-
-% write your compliant code example
-
-\end{verbatim}
-
-\subsection{Mitigation Strategies}
-\subsubsection{Static Analysis}
-
-Compliance with this rule can be checked using structural static analysis checkers using the following algorithm:
-
-\begin{enumerate}
-\item Write your checker algorithm
-\end{enumerate}
-
-\subsection{References}
-
% Write some references
% ex. \htmladdnormallink{ISO/IEC 9899-1999:TC2}{https://www.securecoding.cert.org/confluence/display/seccode/AA.+C+References} Forward, Section 6.9.1, Function definitions''
Modified: trunk/projects/palette/Makefile.am
===================================================================
--- trunk/projects/palette/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/palette/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -39,7 +39,7 @@
SUFFIXES = .P
$(srcdir)/rose.P: $(srcdir)/gen_rose_tables.tcl $(top_srcdir)/src/ROSETTA/src/*.C
- if test -w $(srcdir)/rose.P; then ${SHELL} $(top_srcdir)/config/missing --run tclsh $(srcdir)/gen_rose_tables.tcl $(top_builddir)/src/frontend/SageIII/Cxx_Grammar.h $(srcdir)/rose.P; fi
+ if test \! -e $(srcdir)/rose.P -o -w $(srcdir)/rose.P; then ${SHELL} $(top_srcdir)/config/missing --run tclsh $(srcdir)/gen_rose_tables.tcl $(top_builddir)/src/frontend/SageIII/Cxx_Grammar.h $(srcdir)/rose.P; fi
check-local: switch_without_default null_deref qsolve simple_example sortTest
@if [ -e compass_parameters ]; then echo "Please remove compass_parameters before running \"make check\"" 1>&2; exit 1; fi
Modified: trunk/projects/palette/rose.P
===================================================================
--- trunk/projects/palette/rose.P 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/projects/palette/rose.P 2008-11-12 23:49:35 UTC (rev 120)
@@ -903,12 +903,12 @@
:- prim(node, 1,
[rule([+('SgNode*')], [cond("isSgNode($0)")
])
-,rule([-('SgNode*')], [iterMemoryPools($0, ['SgNode','SgSupport','SgModifier','SgModifierNodes','SgConstVolatileModifier','SgStorageModifier','SgAccessModifier','SgFunctionModifier','SgUPC_AccessModifier','SgSpecialFunctionModifier','SgElaboratedTypeModifier','SgLinkageModifier','SgBaseClassModifier','SgTypeModifier','SgDeclarationModifier','SgName','SgSymbolTable','SgInitializedName','SgAttribute','SgPragma','SgBitAttribute','SgFuncDecl_attr','SgClassDecl_attr','Sg_File_Info','SgFile','SgSourceFile','SgBinaryFile','SgProject','SgOptions','SgUnparse_Info','SgBaseClass','SgTypedefSeq','SgTemplateParameter','SgTemplateArgument','SgDirectory','SgFileList','SgDirectoryList','SgFunctionParameterTypeList','SgQualifiedName','SgTemplateArgumentList','SgTemplateParameterList','SgGraph','SgDirectedGraph','SgGraphNode','SgDirectedGraphNode','SgGraphEdge','SgDirectedGraphEdge','SgNameGroup','SgCommonBlockObject','SgDimensionObject','SgFormatItem','SgFormatItemList','SgDataStatementGroup','SgDataStatementObject','SgDataStatementValue','SgType','SgTypeUnknown','SgTypeChar','SgTypeSignedChar','SgTypeUnsignedChar','SgTypeShort','SgTypeSignedShort','SgTypeUnsignedShort','SgTypeInt','SgTypeSignedInt','SgTypeUnsignedInt','SgTypeLong','SgTypeSignedLong','SgTypeUnsignedLong','SgTypeVoid','SgTypeGlobalVoid','SgTypeWchar','SgTypeFloat','SgTypeDouble','SgTypeLongLong','SgTypeUnsignedLongLong','SgTypeLongDouble','SgTypeString','SgTypeBool','SgPointerType','SgPointerMemberType','SgReferenceType','SgNamedType','SgClassType','SgEnumType','SgTypedefType','SgModifierType','SgFunctionType','SgMemberFunctionType','SgPartialFunctionType','SgPartialFunctionModifierType','SgArrayType','SgTypeEllipse','SgTemplateType','SgQualifiedNameType','SgTypeComplex','SgTypeImaginary','SgTypeDefault','SgLocatedNode','SgStatement','SgScopeStatement','SgGlobal','SgBasicBlock','SgIfStmt','SgForStatement','SgFunctionDefinition','SgClassDefinition','SgTemplateInstantiationDefn','SgWhileStmt','SgDoWhileStmt','SgSwitchStatement','SgCatchOptionStmt','SgNames!
paceDefi
nitionStatement','SgBlockDataStatement','SgAssociateStatement','SgFortranDo','SgFortranNonblockedDo','SgForAllStatement','SgUpcForAllStatement','SgFunctionTypeTable','SgDeclarationStatement','SgFunctionParameterList','SgVariableDeclaration','SgVariableDefinition','SgClinkageDeclarationStatement','SgClinkageStartStatement','SgClinkageEndStatement','SgEnumDeclaration','SgAsmStmt','SgAttributeSpecificationStatement','SgFormatStatement','SgTemplateDeclaration','SgTemplateInstantiationDirectiveStatement','SgUseStatement','SgParameterStatement','SgNamespaceDeclarationStatement','SgEquivalenceStatement','SgInterfaceStatement','SgNamespaceAliasDeclarationStatement','SgCommonBlock','SgTypedefDeclaration','SgStatementFunctionStatement','SgCtorInitializerList','SgPragmaDeclaration','SgUsingDirectiveStatement','SgClassDeclaration','SgTemplateInstantiationDecl','SgDerivedTypeStatement','SgModuleStatement','SgImplicitStatement','SgUsingDeclarationStatement','SgNamelistStatement','SgImportStatement','SgFunctionDeclaration','SgMemberFunctionDeclaration','SgTemplateInstantiationMemberFunctionDecl','SgTemplateInstantiationFunctionDecl','SgProgramHeaderStatement','SgProcedureHeaderStatement','SgEntryStatement','SgContainsStatement','SgC_PreprocessorDirectiveStatement','SgIncludeDirectiveStatement','SgDefineDirectiveStatement','SgUndefDirectiveStatement','SgIfdefDirectiveStatement','SgIfndefDirectiveStatement','SgIfDirectiveStatement','SgDeadIfDirectiveStatement','SgElseDirectiveStatement','SgElseifDirectiveStatement','SgEndifDirectiveStatement','SgLineDirectiveStatement','SgWarningDirectiveStatement','SgErrorDirectiveStatement','SgEmptyDirectiveStatement','SgFortranIncludeLine','SgExprStatement','SgLabelStatement','SgCaseOptionStmt','SgTryStmt','SgDefaultOptionStmt','SgBreakStmt','SgContinueStmt','SgReturnStmt','SgGotoStatement','SgSpawnStmt','SgNullStatement','SgVariantStatement','SgForInitStatement','SgCatchStatementSeq','SgStopOrPauseStatement','SgIOStatement','SgPrintStatement','SgReadStatement','SgWriteStatement','SgO!
penState
ment','SgCloseStatement','SgInquireStatement','SgFlushStatement','SgBackspaceStatement','SgRewindStatement','SgEndfileStatement','SgWaitStatement','SgWhereStatement','SgElseWhereStatement','SgNullifyStatement','SgArithmeticIfStatement','SgAssignStatement','SgComputedGotoStatement','SgAssignedGotoStatement','SgAllocateStatement','SgDeallocateStatement','SgUpcNotifyStatement','SgUpcWaitStatement','SgUpcBarrierStatement','SgUpcFenceStatement','SgSequenceStatement','SgExpression','SgUnaryOp','SgExpressionRoot','SgMinusOp','SgUnaryAddOp','SgNotOp','SgPointerDerefExp','SgAddressOfOp','SgMinusMinusOp','SgPlusPlusOp','SgBitComplementOp','SgCastExp','SgThrowOp','SgUserDefinedUnaryOp','SgBinaryOp','SgArrowExp','SgDotExp','SgDotStarOp','SgArrowStarOp','SgEqualityOp','SgLessThanOp','SgGreaterThanOp','SgNotEqualOp','SgLessOrEqualOp','SgGreaterOrEqualOp','SgAddOp','SgSubtractOp','SgMultiplyOp','SgDivideOp','SgIntegerDivideOp','SgModOp','SgAndOp','SgOrOp','SgBitXorOp','SgBitAndOp','SgBitOrOp','SgCommaOpExp','SgLshiftOp','SgRshiftOp','SgPntrArrRefExp','SgScopeOp','SgAssignOp','SgPlusAssignOp','SgMinusAssignOp','SgAndAssignOp','SgIorAssignOp','SgMultAssignOp','SgDivAssignOp','SgModAssignOp','SgXorAssignOp','SgLshiftAssignOp','SgRshiftAssignOp','SgExponentiationOp','SgConcatenationOp','SgUserDefinedBinaryOp','SgExprListExp','SgVarRefExp','SgClassNameRefExp','SgFunctionRefExp','SgMemberFunctionRefExp','SgValueExp','SgBoolValExp','SgStringVal','SgShortVal','SgCharVal','SgUnsignedCharVal','SgWcharVal','SgUnsignedShortVal','SgIntVal','SgEnumVal','SgUnsignedIntVal','SgLongIntVal','SgLongLongIntVal','SgUnsignedLongLongIntVal','SgUnsignedLongVal','SgFloatVal','SgDoubleVal','SgLongDoubleVal','SgComplexVal','SgUpcThreads','SgUpcMythread','SgFunctionCallExp','SgSizeOfOp','SgUpcLocalsizeofExpression','SgUpcBlocksizeofExpression','SgUpcElemsizeofExpression','SgTypeIdOp','SgConditionalExp','SgNewExp','SgDeleteExp','SgThisExp','SgRefExp','SgInitializer','SgAggregateInitializer','SgConstructorInitializer','SgAssignInitializer','SgDesign!
atedInit
ializer','SgVarArgStartOp','SgVarArgOp','SgVarArgEndOp','SgVarArgCopyOp','SgVarArgStartOneOperandOp','SgNullExpression','SgVariantExpression','SgSubscriptExpression','SgColonShapeExp','SgAsteriskShapeExp','SgImpliedDo','SgIOItemExpression','SgStatementExpression','SgAsmOp','SgLabelRefExp','SgActualArgumentExpression','SgUnknownArrayOrFunctionReference','SgLocatedNodeSupport','SgInterfaceBody','SgRenamePair','SgToken','SgSymbol','SgVariableSymbol','SgFunctionSymbol','SgMemberFunctionSymbol','SgRenameSymbol','SgFunctionTypeSymbol','SgClassSymbol','SgTemplateSymbol','SgEnumSymbol','SgEnumFieldSymbol','SgTypedefSymbol','SgLabelSymbol','SgDefaultSymbol','SgNamespaceSymbol','SgIntrinsicSymbol','SgModuleSymbol','SgInterfaceSymbol','SgCommonSymbol','SgAliasSymbol','SgAsmNode','SgAsmStatement','SgAsmDeclaration','SgAsmDataStructureDeclaration','SgAsmFunctionDeclaration','SgAsmFieldDeclaration','SgAsmBlock','SgAsmInstruction','SgAsmx86Instruction','SgAsmArmInstruction','SgAsmPowerpcInstruction','SgAsmExpression','SgAsmValueExpression','SgAsmByteValueExpression','SgAsmWordValueExpression','SgAsmDoubleWordValueExpression','SgAsmQuadWordValueExpression','SgAsmSingleFloatValueExpression','SgAsmDoubleFloatValueExpression','SgAsmVectorValueExpression','SgAsmBinaryExpression','SgAsmBinaryAdd','SgAsmBinarySubtract','SgAsmBinaryMultiply','SgAsmBinaryDivide','SgAsmBinaryMod','SgAsmBinaryAddPreupdate','SgAsmBinarySubtractPreupdate','SgAsmBinaryAddPostupdate','SgAsmBinarySubtractPostupdate','SgAsmBinaryLsl','SgAsmBinaryLsr','SgAsmBinaryAsr','SgAsmBinaryRor','SgAsmUnaryExpression','SgAsmUnaryPlus','SgAsmUnaryMinus','SgAsmUnaryRrx','SgAsmUnaryArmSpecialRegisterList','SgAsmMemoryReferenceExpression','SgAsmRegisterReferenceExpression','SgAsmx86RegisterReferenceExpression','SgAsmArmRegisterReferenceExpression','SgAsmPowerpcRegisterReferenceExpression','SgAsmControlFlagsExpression','SgAsmCommonSubExpression','SgAsmExprListExp','SgAsmFile','SgAsmInterpretation','SgAsmOperandList','SgAsmType','SgAsmTypeByte','SgAsmTypeWord','SgAsmTyp!
eDoubleW
ord','SgAsmTypeQuadWord','SgAsmTypeDoubleQuadWord','SgAsmType80bitFloat','SgAsmType128bitFloat','SgAsmTypeSingleFloat','SgAsmTypeDoubleFloat','SgAsmTypeVector','SgAsmExecutableFileFormat','SgAsmGenericDLL','SgAsmPEDLL','SgAsmGenericFormat','SgAsmGenericDLLList','SgAsmGenericFile','SgAsmGenericSection','SgAsmGenericHeader','SgAsmPEFileHeader','SgAsmLEFileHeader','SgAsmNEFileHeader','SgAsmDOSFileHeader','SgAsmElfFileHeader','SgAsmElfSection','SgAsmElfSymbolSection','SgAsmElfRelaSection','SgAsmElfDynamicSection','SgAsmElfStringSection','SgAsmElfSectionTable','SgAsmElfSegmentTable','SgAsmPESection','SgAsmPEImportSection','SgAsmPEExportSection','SgAsmPEStringSection','SgAsmPESectionTable','SgAsmPEExtendedDOSHeader','SgAsmCoffSymbolTable','SgAsmNESection','SgAsmNESectionTable','SgAsmNEExtendedDOSHeader','SgAsmNENameTable','SgAsmNEModuleTable','SgAsmNEStringTable','SgAsmNEEntryTable','SgAsmNERelocTable','SgAsmLESection','SgAsmLESectionTable','SgAsmLENameTable','SgAsmLEPageTable','SgAsmLEEntryTable','SgAsmLERelocTable','SgAsmGenericSymbol','SgAsmCoffSymbol','SgAsmElfSymbol','SgAsmGenericStrtab','SgAsmElfStrtab','SgAsmCoffStrtab','SgAsmGenericSymbolList','SgAsmGenericSectionList','SgAsmGenericHeaderList','SgAsmGenericString','SgAsmBasicString','SgAsmStoredString','SgAsmElfSectionTableEntry','SgAsmElfSegmentTableEntry','SgAsmElfSymbolList','SgAsmElfRelaEntry','SgAsmElfRelaEntryList','SgAsmPEExportEntry','SgAsmPEExportEntryList','SgAsmElfDynamicEntry','SgAsmElfDynamicEntryList','SgAsmElfSegmentTableEntryList','SgAsmStringStorage','SgAsmPEImportDirectory','SgAsmPEImportHintName','SgAsmPESectionTableEntry','SgAsmPEExportDirectory','SgAsmPERVASizePair','SgAsmCoffSymbolList','SgAsmPERVASizePairList','SgAsmPEDLLList','SgAsmPEImportHintNameList','SgAsmNEEntryPoint','SgAsmNERelocEntry','SgAsmNESectionTableEntry','SgAsmLEPageTableEntry','SgAsmLEEntryPoint','SgAsmLESectionTableEntry']), makeGround($0, 'SgNode*'), rescan])
+,rule([-('SgNode*')], [iterMemoryPools($0, ['SgNode','SgSupport','SgModifier','SgModifierNodes','SgConstVolatileModifier','SgStorageModifier','SgAccessModifier','SgFunctionModifier','SgUPC_AccessModifier','SgSpecialFunctionModifier','SgElaboratedTypeModifier','SgLinkageModifier','SgBaseClassModifier','SgTypeModifier','SgDeclarationModifier','SgName','SgSymbolTable','SgInitializedName','SgAttribute','SgPragma','SgBitAttribute','SgFuncDecl_attr','SgClassDecl_attr','Sg_File_Info','SgFile','SgSourceFile','SgBinaryFile','SgUnknownFile','SgProject','SgOptions','SgUnparse_Info','SgBaseClass','SgTypedefSeq','SgTemplateParameter','SgTemplateArgument','SgDirectory','SgFileList','SgDirectoryList','SgFunctionParameterTypeList','SgQualifiedName','SgTemplateArgumentList','SgTemplateParameterList','SgGraph','SgDirectedGraph','SgGraphNode','SgDirectedGraphNode','SgGraphEdge','SgDirectedGraphEdge','SgNameGroup','SgCommonBlockObject','SgDimensionObject','SgFormatItem','SgFormatItemList','SgDataStatementGroup','SgDataStatementObject','SgDataStatementValue','SgType','SgTypeUnknown','SgTypeChar','SgTypeSignedChar','SgTypeUnsignedChar','SgTypeShort','SgTypeSignedShort','SgTypeUnsignedShort','SgTypeInt','SgTypeSignedInt','SgTypeUnsignedInt','SgTypeLong','SgTypeSignedLong','SgTypeUnsignedLong','SgTypeVoid','SgTypeGlobalVoid','SgTypeWchar','SgTypeFloat','SgTypeDouble','SgTypeLongLong','SgTypeUnsignedLongLong','SgTypeLongDouble','SgTypeString','SgTypeBool','SgPointerType','SgPointerMemberType','SgReferenceType','SgNamedType','SgClassType','SgEnumType','SgTypedefType','SgModifierType','SgFunctionType','SgMemberFunctionType','SgPartialFunctionType','SgPartialFunctionModifierType','SgArrayType','SgTypeEllipse','SgTemplateType','SgQualifiedNameType','SgTypeComplex','SgTypeImaginary','SgTypeDefault','SgLocatedNode','SgStatement','SgScopeStatement','SgGlobal','SgBasicBlock','SgIfStmt','SgForStatement','SgFunctionDefinition','SgClassDefinition','SgTemplateInstantiationDefn','SgWhileStmt','SgDoWhileStmt','SgSwitchStatement','SgCatchOpti!
onStmt',
'SgNamespaceDefinitionStatement','SgBlockDataStatement','SgAssociateStatement','SgFortranDo','SgFortranNonblockedDo','SgForAllStatement','SgUpcForAllStatement','SgFunctionTypeTable','SgDeclarationStatement','SgFunctionParameterList','SgVariableDeclaration','SgVariableDefinition','SgClinkageDeclarationStatement','SgClinkageStartStatement','SgClinkageEndStatement','SgEnumDeclaration','SgAsmStmt','SgAttributeSpecificationStatement','SgFormatStatement','SgTemplateDeclaration','SgTemplateInstantiationDirectiveStatement','SgUseStatement','SgParameterStatement','SgNamespaceDeclarationStatement','SgEquivalenceStatement','SgInterfaceStatement','SgNamespaceAliasDeclarationStatement','SgCommonBlock','SgTypedefDeclaration','SgStatementFunctionStatement','SgCtorInitializerList','SgPragmaDeclaration','SgUsingDirectiveStatement','SgClassDeclaration','SgTemplateInstantiationDecl','SgDerivedTypeStatement','SgModuleStatement','SgImplicitStatement','SgUsingDeclarationStatement','SgNamelistStatement','SgImportStatement','SgFunctionDeclaration','SgMemberFunctionDeclaration','SgTemplateInstantiationMemberFunctionDecl','SgTemplateInstantiationFunctionDecl','SgProgramHeaderStatement','SgProcedureHeaderStatement','SgEntryStatement','SgContainsStatement','SgC_PreprocessorDirectiveStatement','SgIncludeDirectiveStatement','SgDefineDirectiveStatement','SgUndefDirectiveStatement','SgIfdefDirectiveStatement','SgIfndefDirectiveStatement','SgIfDirectiveStatement','SgDeadIfDirectiveStatement','SgElseDirectiveStatement','SgElseifDirectiveStatement','SgEndifDirectiveStatement','SgLineDirectiveStatement','SgWarningDirectiveStatement','SgErrorDirectiveStatement','SgEmptyDirectiveStatement','SgFortranIncludeLine','SgExprStatement','SgLabelStatement','SgCaseOptionStmt','SgTryStmt','SgDefaultOptionStmt','SgBreakStmt','SgContinueStmt','SgReturnStmt','SgGotoStatement','SgSpawnStmt','SgNullStatement','SgVariantStatement','SgForInitStatement','SgCatchStatementSeq','SgStopOrPauseStatement','SgIOStatement','SgPrintStatement','SgReadStatement','SgWrit!
eStateme
nt','SgOpenStatement','SgCloseStatement','SgInquireStatement','SgFlushStatement','SgBackspaceStatement','SgRewindStatement','SgEndfileStatement','SgWaitStatement','SgWhereStatement','SgElseWhereStatement','SgNullifyStatement','SgArithmeticIfStatement','SgAssignStatement','SgComputedGotoStatement','SgAssignedGotoStatement','SgAllocateStatement','SgDeallocateStatement','SgUpcNotifyStatement','SgUpcWaitStatement','SgUpcBarrierStatement','SgUpcFenceStatement','SgSequenceStatement','SgExpression','SgUnaryOp','SgExpressionRoot','SgMinusOp','SgUnaryAddOp','SgNotOp','SgPointerDerefExp','SgAddressOfOp','SgMinusMinusOp','SgPlusPlusOp','SgBitComplementOp','SgCastExp','SgThrowOp','SgUserDefinedUnaryOp','SgBinaryOp','SgArrowExp','SgDotExp','SgDotStarOp','SgArrowStarOp','SgEqualityOp','SgLessThanOp','SgGreaterThanOp','SgNotEqualOp','SgLessOrEqualOp','SgGreaterOrEqualOp','SgAddOp','SgSubtractOp','SgMultiplyOp','SgDivideOp','SgIntegerDivideOp','SgModOp','SgAndOp','SgOrOp','SgBitXorOp','SgBitAndOp','SgBitOrOp','SgCommaOpExp','SgLshiftOp','SgRshiftOp','SgPntrArrRefExp','SgScopeOp','SgAssignOp','SgPlusAssignOp','SgMinusAssignOp','SgAndAssignOp','SgIorAssignOp','SgMultAssignOp','SgDivAssignOp','SgModAssignOp','SgXorAssignOp','SgLshiftAssignOp','SgRshiftAssignOp','SgExponentiationOp','SgConcatenationOp','SgUserDefinedBinaryOp','SgExprListExp','SgVarRefExp','SgClassNameRefExp','SgFunctionRefExp','SgMemberFunctionRefExp','SgValueExp','SgBoolValExp','SgStringVal','SgShortVal','SgCharVal','SgUnsignedCharVal','SgWcharVal','SgUnsignedShortVal','SgIntVal','SgEnumVal','SgUnsignedIntVal','SgLongIntVal','SgLongLongIntVal','SgUnsignedLongLongIntVal','SgUnsignedLongVal','SgFloatVal','SgDoubleVal','SgLongDoubleVal','SgComplexVal','SgUpcThreads','SgUpcMythread','SgFunctionCallExp','SgSizeOfOp','SgUpcLocalsizeofExpression','SgUpcBlocksizeofExpression','SgUpcElemsizeofExpression','SgTypeIdOp','SgConditionalExp','SgNewExp','SgDeleteExp','SgThisExp','SgRefExp','SgInitializer','SgAggregateInitializer','SgConstructorInitializer','SgAssignInitia!
lizer','
SgDesignatedInitializer','SgVarArgStartOp','SgVarArgOp','SgVarArgEndOp','SgVarArgCopyOp','SgVarArgStartOneOperandOp','SgNullExpression','SgVariantExpression','SgSubscriptExpression','SgColonShapeExp','SgAsteriskShapeExp','SgImpliedDo','SgIOItemExpression','SgStatementExpression','SgAsmOp','SgLabelRefExp','SgActualArgumentExpression','SgUnknownArrayOrFunctionReference','SgLocatedNodeSupport','SgInterfaceBody','SgRenamePair','SgToken','SgSymbol','SgVariableSymbol','SgFunctionSymbol','SgMemberFunctionSymbol','SgRenameSymbol','SgFunctionTypeSymbol','SgClassSymbol','SgTemplateSymbol','SgEnumSymbol','SgEnumFieldSymbol','SgTypedefSymbol','SgLabelSymbol','SgDefaultSymbol','SgNamespaceSymbol','SgIntrinsicSymbol','SgModuleSymbol','SgInterfaceSymbol','SgCommonSymbol','SgAliasSymbol','SgAsmNode','SgAsmStatement','SgAsmDeclaration','SgAsmDataStructureDeclaration','SgAsmFunctionDeclaration','SgAsmFieldDeclaration','SgAsmBlock','SgAsmInstruction','SgAsmx86Instruction','SgAsmArmInstruction','SgAsmPowerpcInstruction','SgAsmExpression','SgAsmValueExpression','SgAsmByteValueExpression','SgAsmWordValueExpression','SgAsmDoubleWordValueExpression','SgAsmQuadWordValueExpression','SgAsmSingleFloatValueExpression','SgAsmDoubleFloatValueExpression','SgAsmVectorValueExpression','SgAsmBinaryExpression','SgAsmBinaryAdd','SgAsmBinarySubtract','SgAsmBinaryMultiply','SgAsmBinaryDivide','SgAsmBinaryMod','SgAsmBinaryAddPreupdate','SgAsmBinarySubtractPreupdate','SgAsmBinaryAddPostupdate','SgAsmBinarySubtractPostupdate','SgAsmBinaryLsl','SgAsmBinaryLsr','SgAsmBinaryAsr','SgAsmBinaryRor','SgAsmUnaryExpression','SgAsmUnaryPlus','SgAsmUnaryMinus','SgAsmUnaryRrx','SgAsmUnaryArmSpecialRegisterList','SgAsmMemoryReferenceExpression','SgAsmRegisterReferenceExpression','SgAsmx86RegisterReferenceExpression','SgAsmArmRegisterReferenceExpression','SgAsmPowerpcRegisterReferenceExpression','SgAsmControlFlagsExpression','SgAsmCommonSubExpression','SgAsmExprListExp','SgAsmFile','SgAsmInterpretation','SgAsmOperandList','SgAsmType','SgAsmTypeByte','SgAsmTyp!
eWord','
SgAsmTypeDoubleWord','SgAsmTypeQuadWord','SgAsmTypeDoubleQuadWord','SgAsmType80bitFloat','SgAsmType128bitFloat','SgAsmTypeSingleFloat','SgAsmTypeDoubleFloat','SgAsmTypeVector','SgAsmExecutableFileFormat','SgAsmGenericDLL','SgAsmGenericFormat','SgAsmGenericDLLList','SgAsmGenericFile','SgAsmGenericSection','SgAsmGenericHeader','SgAsmPEFileHeader','SgAsmLEFileHeader','SgAsmNEFileHeader','SgAsmDOSFileHeader','SgAsmElfFileHeader','SgAsmElfSection','SgAsmElfSymbolSection','SgAsmElfRelaSection','SgAsmElfDynamicSection','SgAsmElfStringSection','SgAsmElfSectionTable','SgAsmElfSegmentTable','SgAsmPESection','SgAsmPEImportSection','SgAsmPEExportSection','SgAsmPEStringSection','SgAsmPESectionTable','SgAsmPEExtendedDOSHeader','SgAsmCoffSymbolTable','SgAsmNESection','SgAsmNESectionTable','SgAsmNEExtendedDOSHeader','SgAsmNENameTable','SgAsmNEModuleTable','SgAsmNEStringTable','SgAsmNEEntryTable','SgAsmNERelocTable','SgAsmLESection','SgAsmLESectionTable','SgAsmLENameTable','SgAsmLEPageTable','SgAsmLEEntryTable','SgAsmLERelocTable','SgAsmGenericSymbol','SgAsmCoffSymbol','SgAsmElfSymbol','SgAsmGenericStrtab','SgAsmElfStrtab','SgAsmCoffStrtab','SgAsmGenericSymbolList','SgAsmGenericSectionList','SgAsmGenericHeaderList','SgAsmGenericString','SgAsmBasicString','SgAsmStoredString','SgAsmElfSectionTableEntry','SgAsmElfSegmentTableEntry','SgAsmElfSymbolList','SgAsmPEImportILTEntry','SgAsmElfRelaEntry','SgAsmElfRelaEntryList','SgAsmPEExportEntry','SgAsmPEExportEntryList','SgAsmElfDynamicEntry','SgAsmElfDynamicEntryList','SgAsmElfSegmentTableEntryList','SgAsmStringStorage','SgAsmPEImportDirectory','SgAsmPEImportHNTEntry','SgAsmPESectionTableEntry','SgAsmPEExportDirectory','SgAsmPERVASizePair','SgAsmCoffSymbolList','SgAsmPERVASizePairList','SgAsmPEImportHNTEntryList','SgAsmPEImportILTEntryList','SgAsmPEImportLookupTable','SgAsmPEImportDirectoryList','SgAsmNEEntryPoint','SgAsmNERelocEntry','SgAsmNESectionTableEntry','SgAsmLEPageTableEntry','SgAsmLEEntryPoint','SgAsmLESectionTableEntry','SgAsmDwarfInformation','SgAsmDwarfMacro','SgAsm!
DwarfMac
roList','SgAsmDwarfLine','SgAsmDwarfLineList','SgAsmDwarfCompilationUnitList','SgAsmDwarfConstruct','SgAsmDwarfArrayType','SgAsmDwarfClassType','SgAsmDwarfEntryPoint','SgAsmDwarfEnumerationType','SgAsmDwarfFormalParameter','SgAsmDwarfImportedDeclaration','SgAsmDwarfLabel','SgAsmDwarfLexicalBlock','SgAsmDwarfMember','SgAsmDwarfPointerType','SgAsmDwarfReferenceType','SgAsmDwarfCompilationUnit','SgAsmDwarfStringType','SgAsmDwarfStructureType','SgAsmDwarfSubroutineType','SgAsmDwarfTypedef','SgAsmDwarfUnionType','SgAsmDwarfUnspecifiedParameters','SgAsmDwarfVariant','SgAsmDwarfCommonBlock','SgAsmDwarfCommonInclusion','SgAsmDwarfInheritance','SgAsmDwarfInlinedSubroutine','SgAsmDwarfModule','SgAsmDwarfPtrToMemberType','SgAsmDwarfSetType','SgAsmDwarfSubrangeType','SgAsmDwarfWithStmt','SgAsmDwarfAccessDeclaration','SgAsmDwarfBaseType','SgAsmDwarfCatchBlock','SgAsmDwarfConstType','SgAsmDwarfConstant','SgAsmDwarfEnumerator','SgAsmDwarfFileType','SgAsmDwarfFriend','SgAsmDwarfNamelist','SgAsmDwarfNamelistItem','SgAsmDwarfPackedType','SgAsmDwarfSubprogram','SgAsmDwarfTemplateTypeParameter','SgAsmDwarfTemplateValueParameter','SgAsmDwarfThrownType','SgAsmDwarfTryBlock','SgAsmDwarfVariantPart','SgAsmDwarfVariable','SgAsmDwarfVolatileType','SgAsmDwarfDwarfProcedure','SgAsmDwarfRestrictType','SgAsmDwarfInterfaceType','SgAsmDwarfNamespace','SgAsmDwarfImportedModule','SgAsmDwarfUnspecifiedType','SgAsmDwarfPartialUnit','SgAsmDwarfImportedUnit','SgAsmDwarfMutableType','SgAsmDwarfCondition','SgAsmDwarfSharedType','SgAsmDwarfFormatLabel','SgAsmDwarfFunctionTemplate','SgAsmDwarfClassTemplate','SgAsmDwarfUpcSharedType','SgAsmDwarfUpcStrictType','SgAsmDwarfUpcRelaxedType','SgAsmDwarfUnknownConstruct','SgAsmDwarfConstructList']), makeGround($0, 'SgNode*'), rescan])
]).
:- prim(supportNode, 1,
[rule([+('SgNode*')], [cond("isSgSupport($0)")
])
-,rule([-('SgNode*')], [iterMemoryPools($0, ['SgSupport','SgModifier','SgModifierNodes','SgConstVolatileModifier','SgStorageModifier','SgAccessModifier','SgFunctionModifier','SgUPC_AccessModifier','SgSpecialFunctionModifier','SgElaboratedTypeModifier','SgLinkageModifier','SgBaseClassModifier','SgTypeModifier','SgDeclarationModifier','SgName','SgSymbolTable','SgInitializedName','SgAttribute','SgPragma','SgBitAttribute','SgFuncDecl_attr','SgClassDecl_attr','Sg_File_Info','SgFile','SgSourceFile','SgBinaryFile','SgProject','SgOptions','SgUnparse_Info','SgBaseClass','SgTypedefSeq','SgTemplateParameter','SgTemplateArgument','SgDirectory','SgFileList','SgDirectoryList','SgFunctionParameterTypeList','SgQualifiedName','SgTemplateArgumentList','SgTemplateParameterList','SgGraph','SgDirectedGraph','SgGraphNode','SgDirectedGraphNode','SgGraphEdge','SgDirectedGraphEdge','SgNameGroup','SgCommonBlockObject','SgDimensionObject','SgFormatItem','SgFormatItemList','SgDataStatementGroup','SgDataStatementObject','SgDataStatementValue']), makeGround($0, 'SgNode*'), rescan])
+,rule([-('SgNode*')], [iterMemoryPools($0, ['SgSupport','SgModifier','SgModifierNodes','SgConstVolatileModifier','SgStorageModifier','SgAccessModifier','SgFunctionModifier','SgUPC_AccessModifier','SgSpecialFunctionModifier','SgElaboratedTypeModifier','SgLinkageModifier','SgBaseClassModifier','SgTypeModifier','SgDeclarationModifier','SgName','SgSymbolTable','SgInitializedName','SgAttribute','SgPragma','SgBitAttribute','SgFuncDecl_attr','SgClassDecl_attr','Sg_File_Info','SgFile','SgSourceFile','SgBinaryFile','SgUnknownFile','SgProject','SgOptions','SgUnparse_Info','SgBaseClass','SgTypedefSeq','SgTemplateParameter','SgTemplateArgument','SgDirectory','SgFileList','SgDirectoryList','SgFunctionParameterTypeList','SgQualifiedName','SgTemplateArgumentList','SgTemplateParameterList','SgGraph','SgDirectedGraph','SgGraphNode','SgDirectedGraphNode','SgGraphEdge','SgDirectedGraphEdge','SgNameGroup','SgCommonBlockObject','SgDimensionObject','SgFormatItem','SgFormatItemList','SgDataStatementGroup','SgDataStatementObject','SgDataStatementValue']), makeGround($0, 'SgNode*'), rescan])
]).
:- prim(locatedNode, 1,
[rule([+('SgNode*')], [cond("isSgLocatedNode($0)")
Modified: trunk/src/3rdPartyLibraries/Makefile.am
===================================================================
--- trunk/src/3rdPartyLibraries/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/3rdPartyLibraries/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,6 +1,6 @@
# This should not depend on ROSE in any way so I don't think we need this
# include $(top_srcdir)/config/Makefile.for.ROSE.includes.and.libs
-SUBDIRS = MSTL libltdl libharu-2.1.0 fortran-parser antlr-jars qrose
+SUBDIRS = MSTL libharu-2.1.0 fortran-parser antlr-jars qrose
# checkPointLibrary
Modified: trunk/src/ROSETTA/Grammar/BinaryInstruction.code
===================================================================
--- trunk/src/ROSETTA/Grammar/BinaryInstruction.code 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/Grammar/BinaryInstruction.code 2008-11-12 23:49:35 UTC (rev 120)
@@ -656,6 +656,7 @@
// DQ (12/8/2008): Hook into the construction of the binary file format support.
static void parseBinaryFormat(const std::string & name, SgAsmFile* asmFile);
static void unparseBinaryFormat(const std::string &name, SgAsmFile *asmFile);
+ static void unparseBinaryFormat(std::ostream&, SgAsmFile*);
// DQ (11/8/2008): used in the PE support.
// Looking for function: hexdump(_IO_FILE*&, long unsigned int, const char[5], SgCharList&, size_t&)
@@ -779,9 +780,9 @@
static void dump_containing_sections(FILE *f, const std::string &prefix, rose_rva_t rva, const SgAsmGenericSectionPtrList&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
virtual bool reallocate() {return false;}
- virtual void unparse(FILE*);
- void unparse(FILE*, const ExtentMap&);
- void unparse_holes(FILE*);
+ virtual void unparse(std::ostream&);
+ void unparse(std::ostream&, const ExtentMap&);
+ void unparse_holes(std::ostream&);
SgAsmGenericHeader *is_file_header(); /* true if section represents a top level file header */
/* Functions for section extent within the file */
@@ -792,11 +793,11 @@
addr_t get_end_offset(); /* file offset for end of section */
void extend(addr_t nbytes); /* make section larger by extending the end */
void extend_up_to(addr_t nbytes); /* like extend() but more relaxed at EOF */
- addr_t write(FILE *f, addr_t offset, size_t bufsize, const void *buf);
- addr_t write(FILE *f, addr_t offset, const std::string &str);
- addr_t write(FILE *f, addr_t offset, char c);
- addr_t write(FILE *f, addr_t offset, const SgFileContentList &buf);
- addr_t write(FILE *f, addr_t offset, const SgUnsignedCharList &buf);
+ addr_t write(std::ostream&, addr_t offset, size_t bufsize, const void *buf);
+ addr_t write(std::ostream&, addr_t offset, const std::string &str);
+ addr_t write(std::ostream&, addr_t offset, char c);
+ addr_t write(std::ostream&, addr_t offset, const SgFileContentList &buf);
+ addr_t write(std::ostream&, addr_t offset, const SgUnsignedCharList &buf);
/* Functions for accessing content */
const unsigned char *content(addr_t offset, addr_t size);/*returns ptr to SIZE bytes starting at OFFSET */
@@ -837,7 +838,7 @@
SgAsmGenericHeader(SgAsmGenericFile *ef, addr_t offset, addr_t size);
virtual ~SgAsmGenericHeader();
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
// DQ (8/8/2008): We can't make this pure virtual since then we can't allocate this class.
@@ -906,7 +907,7 @@
public:
SgAsmGenericFile(std::string file_name);
virtual ~SgAsmGenericFile(); /* Destructor deletes children and unmaps/closes file */
- void unparse(const std::string &filename); /* Unparse the file -- mirror image of parsing */
+ void unparse(std::ostream&); /* Unparse the file -- mirror image of parsing */
void dump(FILE*); /* Print some debugging info */
/* File contents */
@@ -1003,76 +1004,71 @@
HEADER_GENERIC_FORMAT_END
-HEADER_GENERIC_DLL_START
- public:
- SgAsmGenericDLL(SgAsmGenericString *s);
- // Use the ones automatically generated by ROSETTA.
- // virtual ~SgAsmGenericDLL() {}
- virtual void dump(FILE*, const char *prefix, ssize_t idx);
+HEADER_GENERIC_DLL_START
+ public:
+ SgAsmGenericDLL(SgAsmGenericString *s);
+ virtual void dump(FILE*, const char *prefix, ssize_t idx);
+ void add_symbol(const std::string &s) /* Add a needed symbol to the import list for this DLL */
+ {p_symbols.push_back(s);}
- void add_function(std::string fname) { p_funcs.push_back(fname); } /* Add a needed function to the import list for this DLL */
+ /* Override ROSETTA accessors */
+ SgAsmGenericString *get_name() const;
+ void set_name(SgAsmGenericString *s);
+HEADER_GENERIC_DLL_END
- /* Accessors for protected/private data members */
- SgAsmGenericString *get_name() const;
- void set_name(SgAsmGenericString *s);
-HEADER_GENERIC_DLL_END
HEADER_GENERIC_DLL_LIST_START
HEADER_GENERIC_DLL_LIST_END
+
+
HEADER_GENERIC_SYMBOL_START
+ public:
+ enum SymbolDefState {
+ SYM_UNDEFINED, /* Symbol has not been defined yet */
+ SYM_TENTATIVE, /* Does not have size/value yet (uninitialized C or Fortran common blks) */
+ SYM_DEFINED /* Created and assigned storage */
+ };
- public:
- enum SymbolDefState {
- SYM_UNDEFINED, /* Symbol has not been defined yet */
- SYM_TENTATIVE, /* Does not have size/value yet (uninitialized C or Fortran common blks) */
- SYM_DEFINED /* Created and assigned storage */
- };
+ enum SymbolType {
+ SYM_NO_TYPE, /* No type or type is unknown */
+ SYM_DATA, /* Normal variable definitions */
+ SYM_FUNC, /* Function or other code */
+ SYM_SECTION, /* Section of a file */
+ SYM_FILE, /* Name of a file */
+ SYM_ARRAY, /* Array of some other type */
+ SYM_TLS, /* Thread-local storage */
+ SYM_REGISTER, /* CPU register value (see Sparc) */
+ SYM_COMMON /* Common block */
+ };
- enum SymbolType {
- SYM_NO_TYPE, /* No type or type is unknown */
- SYM_DATA, /* Normal variable definitions */
- SYM_FUNC, /* Function */
- SYM_SECTION, /* Section of a file */
- SYM_FILE, /* Name of a file */
- SYM_ARRAY, /* Array of some other type */
- SYM_TLS, /* Thread-local storage */
- SYM_REGISTER /* CPU register value (see Sparc) */
- };
+ enum SymbolBinding {
+ SYM_NO_BINDING, /* Unknown binding */
+ SYM_LOCAL,
+ SYM_GLOBAL,
+ SYM_WEAK
+ };
- enum SymbolBinding {
- SYM_NO_BINDING, /* Unknown binding */
- SYM_LOCAL,
- SYM_GLOBAL,
- SYM_WEAK
- };
+ SgAsmGenericSymbol(SgAsmGenericString *name)
+ : p_def_state(SYM_UNDEFINED), p_binding(SYM_NO_BINDING), p_type(SYM_NO_TYPE), p_value(0), p_size(0),
+ p_bound(NULL), p_name(NULL)
+ {set_name(name);}
- // Rosetta-generated version doesn't set the name
- //SgAsmGenericSymbol()
- // : p_def_state(SYM_UNDEFINED), p_binding(SYM_NO_BINDING), p_type(SYM_NO_TYPE), p_value(0), p_size(0),
- // p_bound(NULL), p_name(NULL)
- // {set_name(new SgAsmBasicString(""));}
- SgAsmGenericSymbol(SgAsmGenericString *name)
- : p_def_state(SYM_UNDEFINED), p_binding(SYM_NO_BINDING), p_type(SYM_NO_TYPE), p_value(0), p_size(0),
- p_bound(NULL), p_name(NULL)
- {set_name(name);}
- //virtual ~SgAsmGenericSymbol() {}
+ virtual void dump(FILE*, const char *prefix, ssize_t idx);
+ std::string stringifyDefState() const;
+ std::string stringifyType() const;
+ std::string stringifyBinding() const;
- virtual void dump(FILE*, const char *prefix, ssize_t idx);
+ // Accessors
+ SgAsmGenericString *get_name() const; // same as ROSETTA-generated version
+ void set_name(SgAsmGenericString *s); // also sets s.parent
+HEADER_GENERIC_SYMBOL_END
- std::string stringifyDefState() const;
- std::string stringifyType() const;
- std::string stringifyBinding() const;
- // Accessors
- SgAsmGenericString *get_name() const; // same as ROSETTA-generated version
- void set_name(SgAsmGenericString *s); // also sets s.parent
-HEADER_GENERIC_SYMBOL_END
-
HEADER_GENERIC_SYMBOL_LIST_START
HEADER_GENERIC_SYMBOL_LIST_END
@@ -1149,7 +1145,7 @@
HEADER_GENERIC_STRTAB_START
public:
SgAsmGenericStrtab(SgAsmGenericSection *container)
- : p_container(container) {}
+ : p_container(container), p_dont_free(0), p_num_freed(0) {}
virtual ~SgAsmGenericStrtab() {}
virtual void dump(FILE*, const char *prefix, ssize_t idx);
@@ -1229,7 +1225,7 @@
uint64_t max_page_size();
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
void *encode(SgAsmExecutableFileFormat::ByteOrder, SgAsmElfFileHeader::Elf32FileHeader_disk*);
void *encode(SgAsmExecutableFileFormat::ByteOrder, SgAsmElfFileHeader::Elf64FileHeader_disk*);
@@ -1255,7 +1251,7 @@
rose_addr_t calculate_sizes(size_t *entsize, size_t *required, size_t *optional, size_t *entcount);
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -1396,7 +1392,7 @@
: SgAsmGenericStrtab(containing_section)
{ctor();}
virtual ~SgAsmElfStrtab();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual SgAsmStringStorage *create_storage(addr_t offset, bool shared);
virtual addr_t get_storage_size(const SgAsmStringStorage*);
virtual void allocate_overlap(SgAsmStringStorage*);
@@ -1413,7 +1409,7 @@
virtual void dump(FILE*, const char *prefix, ssize_t idx);
virtual void set_size(addr_t newsize);
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
private:
void ctor();
HEADER_ELF_STRING_SECTION_END
@@ -1426,7 +1422,7 @@
//virtual ~SgAsmElfRelaSection() {}
using SgAsmElfSection::calculate_sizes;
virtual rose_addr_t calculate_sizes(size_t *total, size_t *required, size_t *optional, size_t *entcount);
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
void ctor(SgAsmElfFileHeader*, SgAsmElfSectionTableEntry*);
@@ -1473,7 +1469,7 @@
using SgAsmElfSection::calculate_sizes;
virtual rose_addr_t calculate_sizes(size_t *total, size_t *required, size_t *optional, size_t *entcount);
virtual void set_linked_section(SgAsmElfSection*); /* Parsing happens here rather than in constructor */
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
void ctor(SgAsmElfFileHeader*, SgAsmElfSectionTableEntry*);
@@ -1590,7 +1586,7 @@
rose_addr_t calculate_sizes(size_t *entsize, size_t *required, size_t *optional, size_t *entcount);
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
void ctor();
@@ -1695,7 +1691,7 @@
using SgAsmElfSection::calculate_sizes;
virtual rose_addr_t calculate_sizes(size_t *total, size_t *required, size_t *optional, size_t *nentries);
virtual void set_linked_section(SgAsmElfSection*);
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
void ctor(SgAsmElfSectionTableEntry*);
@@ -1713,11 +1709,13 @@
};
enum ElfSymType {
- STT_NOTYPE = 0,
- STT_OBJECT = 1,
- STT_FUNC = 2,
- STT_SECTION = 3,
- STT_FILE = 4
+ STT_NOTYPE = 0, /* unspecified type */
+ STT_OBJECT = 1, /* data object */
+ STT_FUNC = 2, /* code object */
+ STT_SECTION = 3, /* associated with a section */
+ STT_FILE = 4, /* name of a file */
+ STT_COMMON = 5, /* common data object */
+ STT_TLS = 6 /* thread-local data object */
};
struct Elf32SymbolEntry_disk {
@@ -1903,7 +1901,7 @@
void add_rvasize_pairs();
virtual bool reallocate();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
void create_table_sections();
@@ -1946,14 +1944,86 @@
HEADER_PE_SECTION_END
+
+
+HEADER_PE_IMPORT_DIRECTORY_START
+ public:
+ struct PEImportDirectory_disk {
+ uint32_t ilt_rva; /* 0x00 Import Lookup Table RVA */
+ uint32_t time; /* 0x04 Zero until the image is bound, then time stamp of the DLL */
+ uint32_t forwarder_chain; /* 0x08 Index of the first forwarder chain */
+ uint32_t dll_name_rva; /* 0x0c address of NUL-terminated DLL name */
+ uint32_t iat_rva; /* 0x10 Import Address Table (Thunk Table) RVA */
+ } __attribute__((packed)); /* 0x14 */
+
+ SgAsmPEImportDirectory(SgAsmPEImportSection *isec, size_t idx)
+ {ctor(isec,idx);}
+ void *encode(SgAsmPEImportDirectory::PEImportDirectory_disk*);
+ virtual void unparse(std::ostream&, SgAsmPEImportSection*);
+ virtual void dump(FILE*, const char *prefix, ssize_t idx);
+ private:
+ void ctor(SgAsmPEImportSection*, size_t idx);
+HEADER_PE_IMPORT_DIRECTORY_END
+
+
+
+HEADER_PE_IMPORT_ILT_ENTRY_START
+ // PE -> Import Table -> Import Lookup Table -> Entry
+ public:
+ enum ILTEntryType {
+ ILT_ORDINAL, /* Entry is an ordinal */
+ ILT_HNT_ENTRY_RVA, /* Entry is the RVA of a Hint/Name Pair in the Hint/Name Table */
+ ILT_BOUND_RVA, /* Entry is the actual memory address of the symbol */
+ };
+
+ SgAsmPEImportILTEntry(SgAsmPEImportSection *isec, uint64_t entry_word)
+ {ctor(isec,entry_word);}
+ uint64_t encode(SgAsmPEFileHeader*);
+ void unparse(std::ostream&, SgAsmPEFileHeader *fhdr, rva_t rva, size_t idx);
+ virtual void dump(FILE *f, const char *prefix, ssize_t idx);
+ private:
+ void ctor(SgAsmPEImportSection*, uint64_t);
+HEADER_PE_IMPORT_ILT_ENTRY_END
+
+
+
+HEADER_PE_IMPORT_LOOKUP_TABLE_START
+ // PE -> Import Table -> Import Lookup Table or
+ // PE -> Import Table -> Import Address Table
+ public:
+ SgAsmPEImportLookupTable(SgAsmPEImportSection *isec, rose_rva_t table_rva, size_t idir_idx, bool is_iat=false)
+ : p_entries(NULL)
+ {ctor(isec, table_rva, idir_idx, is_iat);}
+ void add_ilt_entry(SgAsmPEImportILTEntry*);
+ virtual void unparse(std::ostream&, SgAsmPEFileHeader*, rose_rva_t);
+ virtual void dump(FILE *f, const char *prefix, ssize_t idx);
+ private:
+ void ctor(SgAsmPEImportSection*, rose_rva_t table_rva, size_t idir_idx, bool is_iat);
+HEADER_PE_IMPORT_LOOKUP_TABLE_END
+
+
+
+HEADER_PE_IMPORT_HNT_ENTRY_START
+ // PE -> Import Table -> Hint/Name Table -> Entry
+ public:
+ SgAsmPEImportHNTEntry(rose_rva_t offset)
+ {ctor(offset);}
+ void unparse(std::ostream&, rva_t rva);
+ virtual void dump(FILE*, const char *prefix, ssize_t idx);
+ private:
+ void ctor(rose_rva_t offset);
+HEADER_PE_IMPORT_HNT_ENTRY_END
+
+
+
HEADER_PE_IMPORT_SECTION_START
public:
SgAsmPEImportSection(SgAsmPEFileHeader *fhdr, addr_t offset, addr_t size, addr_t mapped_rva)
: SgAsmPESection(fhdr, offset, size)
{ctor(offset, size, mapped_rva);}
- //virtual void unparse(FILE*); FIXME: Temporarily commented out (see implementation comments)
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
- void add_dll(SgAsmPEDLL *d);
+ void add_import_directory(SgAsmPEImportDirectory*);
private:
void ctor(addr_t offset, addr_t size, addr_t mapped_rva);
HEADER_PE_IMPORT_SECTION_END
@@ -2038,7 +2108,7 @@
SgAsmPESectionTable(SgAsmPEFileHeader *fhdr, addr_t offset, addr_t size);
// virtual ~SgAsmPESectionTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2051,7 +2121,7 @@
SgAsmCoffSymbolTable(SgAsmPEFileHeader *fhdr);
// virtual ~COFFSymtab() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
/* Accessors for protected/private data members */
@@ -2065,60 +2135,7 @@
HEADER_PE_COFF_SYMBOL_TABLE_END
-HEADER_PE_IMPORT_HINT_NAME_START
- public:
- /* Hint/name pairs */
- struct PEImportHintName_disk {
- uint16_t hint; /* Possible index into lib's export name pointer table */
- /* NUL-terminated name follows */
- /* Optional byte to pad struct to an even number of bytes */
- };
- SgAsmPEImportHintName(SgAsmGenericSection*, addr_t offset);
- // virtual ~PEImportHintName() {};
-
- void unparse(FILE *f, SgAsmGenericSection*, addr_t spos); /*not the standard unparse() function*/
- virtual void dump(FILE*, const char *prefix, ssize_t idx);
-
- /* Accessors for protected/private data members */
- // void set_name(std::string name) {this->name=name;}
- // std::string get_name() {return name;}
-
- private:
- void ctor(SgAsmGenericSection*, addr_t offset);
- // unsigned hint;
- // std::string name;
- // unsigned char padding;
-
-HEADER_PE_IMPORT_HINT_NAME_END
-
-HEADER_PE_IMPORT_DIRECTORY_START
-
- public:
- struct PEImportDirectory_disk {
- uint32_t hintnames_rva; /* address (RVA) of array of addresses (RVAs) of hint/name pairs */
- uint32_t time;
- uint32_t forwarder_chain;
- uint32_t dll_name_rva; /* address of NUL-terminated library name */
- uint32_t bindings_rva; /* address (RVA) of array of object addresses after binding to DLL */
- } __attribute__((packed));
-
- SgAsmPEImportDirectory(const SgAsmPEImportDirectory::PEImportDirectory_disk *disk);
- // virtual ~PEImportDirectory() {}
-
- void *encode(SgAsmPEImportDirectory::PEImportDirectory_disk*);
- virtual void dump(FILE*, const char *prefix, ssize_t idx);
-
- /* Native versions of the fields in PEImportDirectory_disk */
- // addr_t hintnames_rva, bindings_rva, dll_name_rva;
- // time_t time;
- // unsigned forwarder_chain;
-
- private:
- void ctor(const SgAsmPEImportDirectory::PEImportDirectory_disk*);
-
-HEADER_PE_IMPORT_DIRECTORY_END
-
HEADER_PE_EXTENDED_DOS_HEADER_START
public:
@@ -2135,7 +2152,7 @@
// virtual ~SgAsmPEExtendedDOSHeader() {}
void *encode(SgAsmPEExtendedDOSHeader::ExtendedDOSHeader_disk*);
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2210,33 +2227,8 @@
HEADER_PE_SECTION_TABLE_ENTRY_END
-HEADER_PE_DLL_START
- public:
- SgAsmPEDLL(SgAsmGenericString *name);
- // virtual ~SgAsmPEDLL() {}
- virtual void dump(FILE*, const char *prefix, ssize_t idx);
- void add_hintname_rva(addr_t a);
- void add_hintname(SgAsmPEImportHintName *hn);
- void add_binding(addr_t a);
- /* Accessors for protected/private data members */
- // PEImportDirectory *get_idir() {return idir;}
- // void set_idir(PEImportDirectory *d) {idir=d;}
- // const std::vector<addr_t>& get_hintname_rvas() const {return hintname_rvas;}
- // const std::vector<PEImportHintName*>& get_hintnames() const {return hintnames;}
- // const std::vector<addr_t>& get_bindings() const {return bindings;}
-
- // private:
- // PEImportDirectory *idir;
- // std::vector<addr_t> hintname_rvas; /* RVAs for the hint/name pairs of the DLL functions */
- // std::vector<PEImportHintName*> hintnames; /* The hint/name pairs */
- // std::vector<addr_t> bindings; /* Bindings (RVA) for each function */
- void ctor();
-HEADER_PE_DLL_END
-
-
-
HEADER_PE_COFF_SYMBOL_LIST_START
HEADER_PE_COFF_SYMBOL_LIST_END
@@ -2289,7 +2281,7 @@
: SgAsmGenericStrtab(containing_section)
{}
virtual ~SgAsmCoffStrtab();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual SgAsmStringStorage *create_storage(addr_t offset, bool shared);
virtual addr_t get_storage_size(const SgAsmStringStorage*);
HEADER_COFF_STRING_TABLE_END
@@ -2303,7 +2295,7 @@
virtual bool reallocate();
virtual void dump(FILE*, const char *prefix, ssize_t idx);
virtual void set_size(addr_t newsize);
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
private:
void ctor();
HEADER_PE_STRING_SECTION_END
@@ -2387,7 +2379,7 @@
SgAsmNEFileHeader(SgAsmGenericFile *f, addr_t offset);
// virtual ~NEFileHeader() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
// virtual const char *format_name() {return "NE";}
@@ -2430,7 +2422,7 @@
SgAsmNESection(SgAsmNEFileHeader*, addr_t offset, addr_t size);
// virtual ~NESection() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
/* Accessors for protected/private data */
@@ -2449,7 +2441,7 @@
SgAsmNESectionTable(SgAsmNEFileHeader *fhdr);
// virtual ~NESectionTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2462,7 +2454,7 @@
SgAsmNENameTable(SgAsmNEFileHeader *fhdr, addr_t offset);
// virtual ~NENameTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
std::vector<std::string> get_names_by_ordinal(unsigned ordinal);
@@ -2478,7 +2470,7 @@
SgAsmNEModuleTable(SgAsmNEFileHeader *fhdr, addr_t offset, addr_t size, SgAsmNEStringTable *strtab);
// virtual ~NEModuleTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2493,7 +2485,7 @@
SgAsmNEStringTable(SgAsmNEFileHeader *fhdr, addr_t offset, addr_t length);
// virtual ~NEStringTable() {}
- // virtual void unparse(FILE*); /*not needed; use parent's implementation*/
+ // virtual void unparse(std::ostream&); /*not needed; use parent's implementation*/
virtual void dump(FILE*, const char *prefix, ssize_t idx);
std::string get_string(addr_t offset);
@@ -2509,7 +2501,7 @@
// virtual ~NEEntryTable() {}
void populate_entries();
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2525,7 +2517,7 @@
SgAsmNERelocTable(SgAsmNEFileHeader *fhdr, addr_t offset);
// virtual ~NERelocTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2546,7 +2538,7 @@
// virtual ~ExtendedDOSHeader() {};
void *encode(SgAsmNEExtendedDOSHeader::ExtendedDOSHeader_disk*);
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
/* These are the native-format versions of the same members described in the ExtendedDOSHeader_disk struct. */
@@ -2668,7 +2660,7 @@
SgAsmNERelocEntry(SgAsmGenericSection *relocs, addr_t at, addr_t *rec_size);
void ctor(SgAsmGenericSection*, addr_t at, addr_t *rec_size);
- addr_t unparse(FILE*, SgAsmGenericSection*, addr_t spos);
+ addr_t unparse(std::ostream&, SgAsmGenericSection*, addr_t spos);
void dump(FILE*, const char *prefix, ssize_t idx);
// NERelocSrcType src_type; /* low nibble of first byte of relocation record */
@@ -2815,7 +2807,7 @@
SgAsmLEFileHeader(SgAsmGenericFile *f, addr_t offset);
// virtual ~LEFileHeader() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
// virtual const char *format_name();
@@ -2866,7 +2858,7 @@
SgAsmLESection(SgAsmLEFileHeader*, addr_t offset, addr_t size);
// virtual ~LESection() {}
- // virtual void unparse(FILE*); /*nothing special to do*/
+ // virtual void unparse(std::ostream&); /*nothing special to do*/
virtual void dump(FILE*, const char *prefix, ssize_t idx);
/* Accessors for protected/private data */
@@ -2883,7 +2875,7 @@
SgAsmLESectionTable(SgAsmLEFileHeader *fhdr, addr_t offset, addr_t size);
// virtual ~LESectionTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2903,7 +2895,7 @@
SgAsmLENameTable(SgAsmLEFileHeader *fhdr, addr_t offset);
// virtual ~LENameTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2919,7 +2911,7 @@
SgAsmLEPageTable(SgAsmLEFileHeader *fhdr, addr_t offset, addr_t size);
// virtual ~LEPageTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
SgAsmLEPageTableEntry *get_page(size_t idx);
@@ -2935,7 +2927,7 @@
SgAsmLEEntryTable(SgAsmLEFileHeader *fhdr, addr_t offset);
// virtual ~LEEntryTable() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -2951,7 +2943,7 @@
SgAsmLERelocTable(SgAsmLEFileHeader *fhdr, addr_t offset);
// virtual ~LERelocTable() {}
- // virtual void unparse(FILE*);
+ // virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -3007,7 +2999,7 @@
SgAsmLEEntryPoint(SgAsmExecutableFileFormat::ByteOrder sex, const SgAsmLEEntryPoint::LEEntryPoint_disk *disk);
SgAsmLEEntryPoint(SgAsmExecutableFileFormat::ByteOrder sex, unsigned flags);
- addr_t unparse(FILE*, SgAsmExecutableFileFormat::ByteOrder, SgAsmGenericSection*, addr_t spos);
+ addr_t unparse(std::ostream&, SgAsmExecutableFileFormat::ByteOrder, SgAsmGenericSection*, addr_t spos);
void dump(FILE*, const char *prefix, ssize_t idx);
private:
@@ -3113,7 +3105,7 @@
SgAsmDOSFileHeader(SgAsmGenericFile *f, addr_t offset);
// virtual ~DOSFileHeader() {}
- virtual void unparse(FILE*);
+ virtual void unparse(std::ostream&);
virtual void dump(FILE*, const char *prefix, ssize_t idx);
// Required function to overload base class (ROSETTA does not permit the base class function to be pure virtual, as I recall)
@@ -3407,8 +3399,141 @@
+// ************************************
+// DWARF SUPPORT
+// ************************************
+HEADER_DWARF_INFORMATION_START
+HEADER_DWARF_INFORMATION_END
+HEADER_DWARF_COMPILATION_UNIT_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_COMPILATION_UNIT_END
+
+HEADER_DWARF_COMPILATION_UNIT_LIST_START
+HEADER_DWARF_COMPILATION_UNIT_LIST_END
+
+HEADER_DWARF_MACRO_START
+HEADER_DWARF_MACRO_END
+
+HEADER_DWARF_LINE_START
+HEADER_DWARF_LINE_END
+
+HEADER_DWARF_MACRO_LIST_START
+HEADER_DWARF_MACRO_LIST_END
+
+HEADER_DWARF_LINE_LIST_START
+
+ // Once the maps are setup using a valid SgAsmDwarfCompilationUnit, NULL is an acceptable value.
+ //! Support for building maps to and from instruction addresses to source positions (files, line numbers, column numbers).
+ static DwarfInstructionSourceMapReturnType buildInstructionAddressSourcePositionMaps( SgAsmDwarfCompilationUnit* dwarf_cu = NULL );
+
+ //! Output information about instruction address <--> source position
+ void display( const std::string & label );
+
+ static std::pair<uint64_t,uint64_t> instructionRange();
+ static std::pair<LineColumnFilePosition,LineColumnFilePosition> sourceCodeRange( int file_id );
+
+ static uint64_t sourceCodeToAddress ( FileIdLineColumnFilePosition sourcePosition );
+ static FileIdLineColumnFilePosition addressToSourceCode ( uint64_t address );
+
+HEADER_DWARF_LINE_LIST_END
+
+HEADER_DWARF_CONSTRUCT_START
+
+ public:
+ //! Factory pattern to build IR nodes based on the tag
+ static SgAsmDwarfConstruct* createDwarfConstruct( int tag, int nesting_level, uint64_t offset, uint64_t overall_offset );
+
+ virtual SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_CONSTRUCT_END
+
+HEADER_DWARF_CONSTRUCT_LIST_START
+HEADER_DWARF_CONSTRUCT_LIST_END
+
+HEADER_DWARF_SUBPROGRAM_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_SUBPROGRAM_END
+
+HEADER_DWARF_STRUCTURE_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_STRUCTURE_TYPE_END
+
+HEADER_DWARF_ARRAY_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_ARRAY_TYPE_END
+
+HEADER_DWARF_LEXICAL_BLOCK_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_LEXICAL_BLOCK_END
+
+
+HEADER_DWARF_INLINED_SUBROUTINE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_INLINED_SUBROUTINE_END
+
+HEADER_DWARF_ENUMERATION_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_ENUMERATION_TYPE_END
+
+HEADER_DWARF_SUBROUTINE_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_SUBROUTINE_TYPE_END
+
+HEADER_DWARF_UNION_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_UNION_TYPE_END
+
+HEADER_DWARF_NAMESPACE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_NAMESPACE_END
+
+HEADER_DWARF_CLASS_TYPE_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_CLASS_TYPE_END
+
+HEADER_DWARF_COMMON_BLOCK_START
+
+ public:
+ SgAsmDwarfConstructList* get_children();
+
+HEADER_DWARF_COMMON_BLOCK_END
+
+
/* --------------------------------------------------------------------------------- */
/* --------------------------------------------------------------------------------- */
/* --------------------------------------------------------------------------------- */
@@ -4022,145 +4147,6 @@
SOURCE_GENERIC_ARCHITECTURE_END
SOURCE_GENERIC_SYMBOL_START
-
-std::string
-SgAsmGenericSymbol::stringifyDefState() const
- {
- std::string s;
- switch (p_def_state)
- {
- case SYM_UNDEFINED:
- {
- s = "SYM_UNDEFINED";
- break;
- }
-
- case SYM_TENTATIVE:
- {
- s = "SYM_TENTATIVE";
- break;
- }
-
- case SYM_DEFINED:
- {
- s = "SYM_DEFINED";
- break;
- }
-
- default:
- {
- printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
- ROSE_ASSERT(false);
- }
- }
-
- return s;
- }
-
-std::string
-SgAsmGenericSymbol::stringifyType() const
- {
- std::string s;
- switch (p_type)
- {
- case SYM_NO_TYPE:
- {
- s = "SYM_NO_TYPE";
- break;
- }
-
- case SYM_DATA:
- {
- s = "SYM_DATA";
- break;
- }
-
- case SYM_FUNC:
- {
- s = "SYM_FUNC";
- break;
- }
-
- case SYM_SECTION:
- {
- s = "SYM_SECTION";
- break;
- }
-
- case SYM_FILE:
- {
- s = "SYM_FILE";
- break;
- }
-
- case SYM_ARRAY:
- {
- s = "SYM_ARRAY";
- break;
- }
-
- case SYM_TLS:
- {
- s = "SYM_TLS";
- break;
- }
-
- case SYM_REGISTER:
- {
- s = "SYM_REGISTER";
- break;
- }
-
- default:
- {
- printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
- ROSE_ASSERT(false);
- }
- }
-
- return s;
- }
-
-std::string
-SgAsmGenericSymbol::stringifyBinding() const
- {
- std::string s;
- switch (p_binding)
- {
- case SYM_NO_BINDING:
- {
- s = "SYM_NO_BINDING";
- break;
- }
-
- case SYM_LOCAL:
- {
- s = "SYM_LOCAL";
- break;
- }
-
- case SYM_GLOBAL:
- {
- s = "SYM_GLOBAL";
- break;
- }
-
- case SYM_WEAK:
- {
- s = "SYM_WEAK";
- break;
- }
-
- default:
- {
- printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
- ROSE_ASSERT(false);
- }
- }
-
- return s;
- }
-
SOURCE_GENERIC_SYMBOL_END
SOURCE_GENERIC_SYMBOL_LIST_START
@@ -4487,20 +4473,9 @@
SOURCE_PE_COFF_SYMBOL_TABLE_END
SOURCE_PE_IMPORT_HINT_NAME_START
-SgAsmPEImportHintName::SgAsmPEImportHintName(SgAsmGenericSection *section, addr_t offset)
- : p_hint(0), p_padding('\0')
- {
- ctor(section, offset);
- }
-
SOURCE_PE_IMPORT_HINT_NAME_END
SOURCE_PE_IMPORT_DIRECTORY_START
-SgAsmPEImportDirectory::SgAsmPEImportDirectory(const SgAsmPEImportDirectory::PEImportDirectory_disk *disk)
- {
- ctor(disk);
- }
-
SOURCE_PE_IMPORT_DIRECTORY_END
SOURCE_PE_EXTENDED_DOS_HEADER_START
@@ -4529,34 +4504,6 @@
SOURCE_PE_COFF_SYMBOL_END
-SOURCE_PE_DLL_START
-SgAsmPEDLL::SgAsmPEDLL(SgAsmGenericString *name)
- : SgAsmGenericDLL(name), p_idir(NULL)
- {
- ctor();
- }
-
-void
-SgAsmPEDLL::add_hintname_rva(addr_t a)
- {
- p_hintname_rvas.push_back(a);
- }
-
-void
-SgAsmPEDLL::add_hintname(SgAsmPEImportHintName *hn)
- {
- ROSE_ASSERT(p_hintnames != NULL);
- p_hintnames->get_hintnames().push_back(hn);
- }
-
-void
-SgAsmPEDLL::add_binding(addr_t a)
- {
- p_bindings.push_back(a);
- }
-
-SOURCE_PE_DLL_END
-
SOURCE_COFF_STRING_TABLE_START
SOURCE_COFF_STRING_TABLE_END
@@ -4848,10 +4795,302 @@
{
return "DOS";
}
+SOURCE_DOS_HEADER_END
-SOURCE_DOS_HEADER_END
+SOURCE_DWARF_INFORMATION_START
+SOURCE_DWARF_INFORMATION_END
+SOURCE_DWARF_COMPILATION_UNIT_START
+SgAsmDwarfConstructList*
+SgAsmDwarfCompilationUnit::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+ if (p_language_constructs == NULL)
+ p_language_constructs = new SgAsmDwarfConstructList();
+
+ return p_language_constructs;
+ }
+
+SOURCE_DWARF_COMPILATION_UNIT_END
+
+SOURCE_DWARF_COMPILATION_UNIT_LIST_START
+SOURCE_DWARF_COMPILATION_UNIT_LIST_END
+
+SOURCE_DWARF_MACRO_START
+SOURCE_DWARF_MACRO_END
+
+SOURCE_DWARF_LINE_START
+SOURCE_DWARF_LINE_END
+
+SOURCE_DWARF_MACRO_LIST_START
+SOURCE_DWARF_MACRO_LIST_END
+
+SOURCE_DWARF_LINE_LIST_START
+
+DwarfInstructionSourceMapReturnType
+SgAsmDwarfLineList::buildInstructionAddressSourcePositionMaps( SgAsmDwarfCompilationUnit* dwarf_cu )
+ {
+ // SgInstructionAddressSourcePositionMapPtrList* instruction_source_code_map = new SgInstructionAddressSourcePositionMapPtrList;
+ // SgSourcePositionInstructionAddressMapPtrList* source_code_instruction_map = new SgSourcePositionInstructionAddressMapPtrList;
+
+ // Build this as static local data
+ static SgInstructionAddressSourcePositionMapPtrList* instruction_source_code_map = NULL;
+
+ bool recomputeMap = false;
+ if (instruction_source_code_map == NULL)
+ {
+ recomputeMap = true;
+ instruction_source_code_map = new SgInstructionAddressSourcePositionMapPtrList;
+ }
+
+ ROSE_ASSERT(instruction_source_code_map != NULL);
+
+ static SgSourcePositionInstructionAddressMapPtrList* source_code_instruction_map = NULL;
+ if (source_code_instruction_map == NULL)
+ source_code_instruction_map = new SgSourcePositionInstructionAddressMapPtrList;
+ ROSE_ASSERT(source_code_instruction_map != NULL);
+
+ if (recomputeMap == true)
+ {
+ ROSE_ASSERT(dwarf_cu != NULL);
+ ROSE_ASSERT(dwarf_cu->get_line_info() != NULL);
+
+ SgAsmDwarfLinePtrList & line_list = dwarf_cu->get_line_info()->get_line_list();
+
+ int listSize = (int) line_list.size();
+ for (int i = 0; i < listSize; i++)
+ {
+ // Loop over each of the entries in the Dwarf line section.
+ uint64_t address = line_list[i]->get_address();
+
+ // Note that file_id values are already in terms of the Sg_File_Info maps
+ // between file name integers and file name strings.
+ int file_id = line_list[i]->get_file_id();
+
+ int line = line_list[i]->get_line();
+ int column = line_list[i]->get_column();
+
+ // printf ("address = 0x%lx file_id = %d line = %d column = %d \n",address,file_id,line,column);
+
+ FileIdLineColumnFilePosition file_info(file_id,std::pair<int,int>(line,column));
+
+ // This works for stp::map, but for std::multimap
+ // instruction_source_code_map->operator[](address) = file_info;
+ // source_code_instruction_map->operator[](file_info) = address;
+
+ // This is the std::multiset version ...
+ instruction_source_code_map->insert(AddressFileIdLineColumnFilePositionPair(address,file_info));
+ source_code_instruction_map->insert(FileIdLineColumnFilePositionAddressPair(file_info,address));
+ }
+ }
+ else
+ {
+ // printf ("Maps were computed previously \n");
+ }
+
+ DwarfInstructionSourceMapReturnType returnValue(instruction_source_code_map,source_code_instruction_map);
+
+ return returnValue;
+ }
+
+SOURCE_DWARF_LINE_LIST_END
+
+SOURCE_DWARF_CONSTRUCT_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfConstruct::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+#if 0
+ printf ("Error: base class of virtual function called by mistake: class_name = %s \n",class_name().c_str());
+ ROSE_ASSERT(false);
+#else
+ printf ("Warning: base class of virtual function called by mistake: class_name = %s \n",class_name().c_str());
+#endif
+ return NULL;
+ }
+
+SOURCE_DWARF_CONSTRUCT_END
+
+SOURCE_DWARF_CONSTRUCT_LIST_START
+SOURCE_DWARF_CONSTRUCT_LIST_END
+
+SOURCE_DWARF_SUBPROGRAM_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfSubprogram::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_SUBPROGRAM_END
+
+SOURCE_DWARF_STRUCTURE_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfStructureType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_STRUCTURE_TYPE_END
+
+SOURCE_DWARF_ARRAY_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfArrayType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_ARRAY_TYPE_END
+
+
+SOURCE_DWARF_LEXICAL_BLOCK_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfLexicalBlock::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_LEXICAL_BLOCK_END
+
+
+SOURCE_DWARF_INLINED_SUBROUTINE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfInlinedSubroutine::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_INLINED_SUBROUTINE_END
+
+
+SOURCE_DWARF_ENUMERATION_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfEnumerationType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_ENUMERATION_TYPE_END
+
+
+SOURCE_DWARF_SUBROUTINE_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfSubroutineType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_SUBROUTINE_TYPE_END
+
+
+SOURCE_DWARF_UNION_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfUnionType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_UNION_TYPE_END
+
+
+SOURCE_DWARF_NAMESPACE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfNamespace::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_NAMESPACE_END
+
+
+SOURCE_DWARF_CLASS_TYPE_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfClassType::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_CLASS_TYPE_END
+
+
+SOURCE_DWARF_COMMON_BLOCK_START
+
+SgAsmDwarfConstructList*
+SgAsmDwarfCommonBlock::get_children()
+ {
+ ROSE_ASSERT(this != NULL);
+
+ if (p_body == NULL)
+ p_body = new SgAsmDwarfConstructList();
+
+ return p_body;
+ }
+
+SOURCE_DWARF_COMMON_BLOCK_END
+
+
Modified: trunk/src/ROSETTA/Grammar/Node.code
===================================================================
--- trunk/src/ROSETTA/Grammar/Node.code 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/Grammar/Node.code 2008-11-12 23:49:35 UTC (rev 120)
@@ -31,7 +31,7 @@
rose_rva_t& set_rva(rose_addr_t rva);
SgAsmGenericSection *get_section() const;
rose_rva_t& set_section(SgAsmGenericSection *section);
- rose_rva_t& set_section(SgAsmGenericHeader*);
+ rose_rva_t& bind(SgAsmGenericHeader*);
std::string to_string() const;
private:
rose_addr_t addr; /* virtual address (relative to section if section is not null) */
@@ -193,9 +193,15 @@
// typedef SgAsmElfSegmentEntryPtrList* SgAsmElfSegmentEntryPtrListPtr;
// DQ (8/3/2008): Added support for new IR nodes for new binary file formate work by Robb.
-typedef Rose_STL_Container<SgAsmPEImportHintName*> SgAsmPEImportHintNamePtrList;
-typedef SgAsmPEImportHintNamePtrList* SgAsmPEImportHintNamePtrListPtr;
+typedef Rose_STL_Container<SgAsmPEImportHNTEntry*> SgAsmPEImportHNTEntryPtrList;
+typedef SgAsmPEImportHNTEntryPtrList* SgAsmPEImportHNTEntryPtrListPtr;
+typedef Rose_STL_Container<SgAsmPEImportILTEntry*> SgAsmPEImportILTEntryPtrList;
+typedef SgAsmPEImportILTEntryPtrList* SgAsmPEImportILTEntryPtrListPtr;
+
+typedef Rose_STL_Container<SgAsmPEImportDirectory*> SgAsmPEImportDirectoryPtrList;
+typedef SgAsmPEImportDirectoryPtrList* SgAsmPEImportDirectoryPtrListPtr;
+
// DQ (6/14/2008): Added to support new exec format IR nodes
typedef Rose_STL_Container<SgAsmElfSymbol*> SgAsmElfSymbolPtrList;
typedef SgAsmElfSymbolPtrList* SgAsmElfSymbolPtrListPtr;
@@ -382,9 +388,6 @@
typedef Rose_STL_Container<rose_rva_t> SgRVAList;
typedef SgRVAList* SgRVAListPtr;
-typedef Rose_STL_Container<SgAsmPEDLL*> SgAsmPEDLLPtrList;
-typedef SgAsmPEDLLPtrList* SgAsmPEDLLPtrListPtr;
-
typedef Rose_STL_Container<SgAsmPEExportEntry*> SgAsmPEExportEntryPtrList;
typedef SgAsmPEExportEntryPtrList* SgAsmPEExportEntryPtrListPtr;
@@ -435,7 +438,20 @@
typedef Rose_STL_Container<SgInterfaceBody*> SgInterfaceBodyPtrList;
typedef SgInterfaceBodyPtrList* SgInterfaceBodyPtrListPtr;
+// DQ (11/5/2008): Addes as part of general Dwarf support in the AST for binary executables.
+typedef Rose_STL_Container<SgAsmDwarfLine*> SgAsmDwarfLinePtrList;
+typedef SgAsmDwarfLinePtrList* SgAsmDwarfLinePtrListPtr;
+typedef Rose_STL_Container<SgAsmDwarfMacro*> SgAsmDwarfMacroPtrList;
+typedef SgAsmDwarfMacroPtrList* SgAsmDwarfMacroPtrListPtr;
+
+typedef Rose_STL_Container<SgAsmDwarfConstruct*> SgAsmDwarfConstructPtrList;
+typedef SgAsmDwarfConstructPtrList* SgAsmDwarfConstructPtrListPtr;
+
+typedef Rose_STL_Container<SgAsmDwarfCompilationUnit*> SgAsmDwarfCompilationUnitPtrList;
+typedef SgAsmDwarfCompilationUnitPtrList* SgAsmDwarfCompilationUnitPtrListPtr;
+
+
// FIXME: This might not the the right place for this class. (RPM 2008-08-26)
/* An SgSharedVector is like an STL vector except for two things:
*
@@ -708,8 +724,25 @@
typedef SgIntegerStringMapPtrList* SgIntegerStringMapPtrListPtr;
#endif
+// DQ (11/6/2008): This is the support for mapping instructions to source code and back.
+// When it is further along it will be moved to the SgAsmDwarfCompilationUnit as a member
+// function which will built it if it has not previously been built.
+// This is how a triplet would be built (in the future), instead of a pair, but for now use a pair.
+// std::tr1::tuple<int, int, int> tp;
+typedef std::pair<int,int> LineColumnFilePosition;
+typedef std::pair<int,LineColumnFilePosition> FileIdLineColumnFilePosition;
+typedef std::pair<uint64_t,FileIdLineColumnFilePosition> AddressFileIdLineColumnFilePositionPair;
+typedef std::pair<FileIdLineColumnFilePosition,uint64_t> FileIdLineColumnFilePositionAddressPair;
+// typedef std::multimap<uint64_t,FileIdLineColumnFilePosition> SgInstructionAddressSourcePositionMapPtrList;
+// typedef std::multimap<FileIdLineColumnFilePosition,uint64_t> SgSourcePositionInstructionAddressMapPtrList;
+typedef std::multimap<uint64_t,FileIdLineColumnFilePosition> SgInstructionAddressSourcePositionMapPtrList;
+typedef std::multimap<FileIdLineColumnFilePosition,uint64_t> SgSourcePositionInstructionAddressMapPtrList;
+
+typedef std::pair<SgInstructionAddressSourcePositionMapPtrList*,SgSourcePositionInstructionAddressMapPtrList*> DwarfInstructionSourceMapReturnType;
+
+
// DQ (11/26/2005): Support for visitor pattern.
class ROSE_VisitTraversal;
class ROSE_VisitorPattern;
Modified: trunk/src/ROSETTA/Grammar/Support.code
===================================================================
--- trunk/src/ROSETTA/Grammar/Support.code 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/Grammar/Support.code 2008-11-12 23:49:35 UTC (rev 120)
@@ -3493,8 +3493,18 @@
// DQ (2/15/2003): added copy constructor
Sg_File_Info(const Sg_File_Info & X);
+ // DQ (11/6/2008): Added to support construction of objects using Dwarf information.
+ Sg_File_Info( int file_id, int line, int column );
+
void post_construction_initialization();
+ // DQ (11/6/2008): Added support for extending the internal static filename to integer id map
+ //! Access function to permit files referenced in Dwarf to be mapped to integers using the same scheme as for source code.
+ static int addFilenameToMap ( const std::string & filename );
+
+ //! Returns the number of entries in the filename map
+ static int numberOfSourceFiles();
+
void set_filename (const char* filename) ROSE_DEPRECATED_FUNCTION;
void set_filenameString ( const std::string & filename );
void set_line (int line);
@@ -3872,7 +3882,7 @@
//! Sets up the source file name (there should only be one source file in the
//! commandline to a SgFile, there can be multiple ones to a SgProject).
- void setupSourceFilename ( const std::vector<std::string>& argv );
+ // void setupSourceFilename ( const std::vector<std::string>& argv );
//! Access function calling get_startOfConstruct(), provided to support older interface.
Sg_File_Info* get_file_info() const;
@@ -8606,6 +8616,22 @@
}
#endif
+// DQ (11/6/2008): added constructor to support building objects from Dwarf
+// information (which uses a pre-resolved integer file_id instead of a string)
+Sg_File_Info::Sg_File_Info( int file_id, int line, int column )
+ : p_file_id(file_id),
+ p_line(line),
+ p_col(column),
+ p_classificationBitField(0)
+ {
+ ROSE_ASSERT(this != NULL);
+
+ ROSE_ASSERT (p_col >= 0);
+
+ // Provide a common function called for initialization support.
+ post_construction_initialization();
+ }
+
void
Sg_File_Info::post_construction_initialization()
{
@@ -8680,6 +8706,35 @@
p_file_id = file_id;
}
+int
+Sg_File_Info::numberOfSourceFiles()
+ {
+ return p_nametofileid_map.size();
+ }
+
+int
+Sg_File_Info::addFilenameToMap ( const std::string & filename )
+ {
+ // DQ (11/6/2008): Added support for extending the internal static filename to integer id map.
+ // This static function is used the the Dwarf support to convert filenames to integer values and
+ // maintain a map similar to the Dwarf mapping of integers to filenames as a way to save space
+ // in the represnetation of source position mappings of the instructions in the binary.
+
+ int returnValue = 0;
+ if (p_nametofileid_map.count(filename) == 0)
+ {
+ returnValue = p_nametofileid_map.size();
+ p_nametofileid_map[filename] = returnValue;
+ p_fileidtoname_map[returnValue] = filename;
+ }
+ else
+ {
+ returnValue = p_nametofileid_map[filename];
+ }
+
+ return returnValue;
+ }
+
void
// DQ (9/5/2006): renamed functions to swap the implementations
// Sg_File_Info::set_filename(const char* filename)
@@ -9819,8 +9874,16 @@
// DQ (10/19/2007): Added initialization new data member added to support handing of binary AST and source code AST.
// p_binaryFile = NULL;
+ // This will cause only the binary file format to be read and skipps instruction disassembly
p_read_executable_file_format_only = false;
+ // DQ (11/11/2008): Added to support visualization of only parts of the AST.
+ // this will cause attributes to be added to IR nodes that will be skipped
+ // in the generation of DOT files. This is helpful for debugging and in
+ // tutorial examples/presentations.
+ p_visualize_executable_file_format_skip_symbols = false;
+ p_visualize_dwarf_only = false;
+
p_read_instructions_only = false;
// DQ (9/2/2008): This is moved to the new SgBinaryFile (derived from SgFile)
Modified: trunk/src/ROSETTA/astNodeList
===================================================================
--- trunk/src/ROSETTA/astNodeList 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/astNodeList 2008-11-12 23:49:35 UTC (rev 120)
@@ -410,8 +410,6 @@
SgUpcForAllStatement
SgUpcThreads
SgUpcMythread
-SgAsmLEDLL
-SgAsmPEDLL
SgAsmGenericDLL
SgAsmPEFileHeader
SgAsmLEFileHeader
@@ -462,13 +460,17 @@
SgAsmElfSymbolList
SgAsmElfSegmentTableEntryList
SgAsmPEExtendedDOSHeader
+SgAsmPEImportILTEntry
+SgAsmPEImportILTEntryList
SgAsmPEImportDirectory
+SgAsmPEImportDirectoryList
SgAsmPEExportDirectory
SgAsmPEExportEntry
SgAsmPEExportEntryList
-SgAsmPEImportHintName
+SgAsmPEImportHNTEntry
+SgAsmPEImportLookupTable
SgAsmPESectionTableEntry
-SgAsmPEImportHintNameList
+SgAsmPEImportHNTEntryList
SgAsmPERVASizePair
SgAsmPERVASizePairList
SgAsmCoffSymbol
@@ -482,7 +484,6 @@
SgAsmLESectionTableEntry
SgAsmDOSFileHeader
SgAsmExecutableFileFormat
-SgAsmPEDLLList
SgStringKeyedBidirectionalGraph
SgIntKeyedBidirectionalGraph
SgDummyGraph
@@ -511,5 +512,77 @@
SgRenameSymbol
SgAsmPowerpcInstruction
SgAsmPowerpcRegisterReferenceExpression
+SgAsmDwarfInformation
+SgAsmDwarfMacro
+SgAsmDwarfMacroList
+SgAsmDwarfLine
+SgAsmDwarfLineList
+SgAsmDwarfConstruct
+SgAsmDwarfArrayType
+SgAsmDwarfClassType
+SgAsmDwarfEntryPoint
+SgAsmDwarfEnumerationType
+SgAsmDwarfFormalParameter
+SgAsmDwarfImportedDeclaration
+SgAsmDwarfLabel
+SgAsmDwarfLexicalBlock
+SgAsmDwarfMember
+SgAsmDwarfPointerType
+SgAsmDwarfReferenceType
+SgAsmDwarfCompilationUnit
+SgAsmDwarfStringType
+SgAsmDwarfStructureType
+SgAsmDwarfSubroutineType
+SgAsmDwarfTypedef
+SgAsmDwarfUnionType
+SgAsmDwarfUnspecifiedParameters
+SgAsmDwarfVariant
+SgAsmDwarfCommonBlock
+SgAsmDwarfCommonInclusion
+SgAsmDwarfInheritance
+SgAsmDwarfInlinedSubroutine
+SgAsmDwarfModule
+SgAsmDwarfPtrToMemberType
+SgAsmDwarfSetType
+SgAsmDwarfSubrangeType
+SgAsmDwarfWithStmt
+SgAsmDwarfAccessDeclaration
+SgAsmDwarfBaseType
+SgAsmDwarfCatchBlock
+SgAsmDwarfConstType
+SgAsmDwarfConstant
+SgAsmDwarfEnumerator
+SgAsmDwarfFileType
+SgAsmDwarfFriend
+SgAsmDwarfNamelist
+SgAsmDwarfNamelistItem
+SgAsmDwarfPackedType
+SgAsmDwarfSubprogram
+SgAsmDwarfTemplateTypeParameter
+SgAsmDwarfTemplateValueParameter
+SgAsmDwarfThrownType
+SgAsmDwarfTryBlock
+SgAsmDwarfVariantPart
+SgAsmDwarfVariable
+SgAsmDwarfVolatileType
+SgAsmDwarfDwarfProcedure
+SgAsmDwarfRestrictType
+SgAsmDwarfInterfaceType
+SgAsmDwarfNamespace
+SgAsmDwarfImportedModule
+SgAsmDwarfUnspecifiedType
+SgAsmDwarfPartialUnit
+SgAsmDwarfImportedUnit
+SgAsmDwarfMutableType
+SgAsmDwarfCondition
+SgAsmDwarfSharedType
+SgAsmDwarfFormatLabel
+SgAsmDwarfFunctionTemplate
+SgAsmDwarfClassTemplate
+SgAsmDwarfUpcSharedType
+SgAsmDwarfUpcStrictType
+SgAsmDwarfUpcRelaxedType
+SgAsmDwarfUnknownConstruct
+SgAsmDwarfConstructList
+SgAsmDwarfCompilationUnitList
-
Modified: trunk/src/ROSETTA/src/binaryInstruction.C
===================================================================
--- trunk/src/ROSETTA/src/binaryInstruction.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/src/binaryInstruction.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -143,14 +143,11 @@
AsmType128bitFloat | AsmTypeSingleFloat | AsmTypeDoubleFloat |
AsmTypeVector, "AsmType", "AsmTypeTag", false /* canHaveInstances = false */ );
- // Support for DLL's for different file formats (there appears to only be a PE form of DLL)
- // NEW_TERMINAL_MACRO ( AsmLEDLL, "AsmLEDLL", "AsmLEDLLTag" );
+ NEW_TERMINAL_MACRO ( AsmGenericDLL, "AsmGenericDLL", "AsmGenericDLLTag");
+ NEW_TERMINAL_MACRO ( AsmPEImportHNTEntryList, "AsmPEImportHNTEntryList", "AsmPEImportHNTEntryListTag" );
+ NEW_TERMINAL_MACRO ( AsmPEImportILTEntryList, "AsmPEImportILTEntryList", "AsmPEImportILTEntryListTag" );
+ NEW_TERMINAL_MACRO ( AsmPEImportDirectoryList, "AsmPEImportDirectoryList", "AsmPEImportDirectoryListTag" );
- NEW_TERMINAL_MACRO ( AsmPEDLL, "AsmPEDLL", "AsmPEDLLTag" );
- NEW_NONTERMINAL_MACRO ( AsmGenericDLL, AsmPEDLL , "AsmGenericDLL", "AsmGenericDLLTag", false );
-
- NEW_TERMINAL_MACRO ( AsmPEImportHintNameList, "AsmPEImportHintNameList", "AsmPEImportHintNameListTag" );
-
NEW_TERMINAL_MACRO ( AsmGenericFormat, "AsmGenericFormat", "AsmGenericFormatTag" );
NEW_TERMINAL_MACRO ( AsmGenericFile, "AsmGenericFile", "AsmGenericFileTag" );
@@ -233,7 +230,9 @@
NEW_TERMINAL_MACRO ( AsmPEExportDirectory, "AsmPEExportDirectory", "AsmPEExportDirectoryTag" );
NEW_TERMINAL_MACRO ( AsmPEExportEntry, "AsmPEExportEntry", "AsmPEExportEntryTag" );
NEW_TERMINAL_MACRO ( AsmPEImportDirectory, "AsmPEImportDirectory", "AsmPEImportDirectoryTag" );
- NEW_TERMINAL_MACRO ( AsmPEImportHintName, "AsmPEImportHintName", "AsmPEImportHintNameTag" );
+ NEW_TERMINAL_MACRO ( AsmPEImportILTEntry, "AsmPEImportILTEntry", "AsmPEImportILTEntryTag" );
+ NEW_TERMINAL_MACRO ( AsmPEImportHNTEntry, "AsmPEImportHNTEntry", "AsmPEImportHNTEntryTag" );
+ NEW_TERMINAL_MACRO ( AsmPEImportLookupTable, "AsmPEImportLookupTable", "AsmPEImportLookupTableTag" );
NEW_TERMINAL_MACRO ( AsmPESectionTableEntry, "AsmPESectionTableEntry", "AsmPESectionTableEntryTag" );
NEW_TERMINAL_MACRO ( AsmNEEntryPoint, "AsmNEEntryPoint", "AsmNEEntryPointTag" );
@@ -251,7 +250,6 @@
NEW_TERMINAL_MACRO ( AsmElfSymbolList, "AsmElfSymbolList", "AsmElfSymbolListTag" );
NEW_TERMINAL_MACRO ( AsmCoffSymbolList, "AsmCoffSymbolList", "AsmCoffSymbolListTag" );
NEW_TERMINAL_MACRO ( AsmGenericDLLList, "AsmGenericDLLList", "AsmGenericDLLListTag" );
- NEW_TERMINAL_MACRO ( AsmPEDLLList, "AsmPEDLLList", "AsmPEDLLListTag" );
NEW_TERMINAL_MACRO ( AsmPERVASizePairList, "AsmPERVASizePairList", "AsmPERVASizePairListTag" );
NEW_TERMINAL_MACRO (AsmPEExportEntryList, "AsmPEExportEntryList", "AsmPEExportEntryListTag" );
@@ -274,21 +272,128 @@
NEW_TERMINAL_MACRO ( AsmStringStorage, "AsmStringStorage", "AsmStringStorageTag" );
#endif
+// DQ (11/3/2008): Later this might go into a separate file.
+// ***************************************************************************************
+// DWARF Support for mapping information in the binary executable back to the source code.
+// ***************************************************************************************
+ NEW_TERMINAL_MACRO ( AsmDwarfMacro, "AsmDwarfMacro", "AsmDwarfMacroTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfLine, "AsmDwarfLine", "AsmDwarfLineTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfMacroList, "AsmDwarfMacroList", "AsmDwarfMacroListTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfLineList, "AsmDwarfLineList", "AsmDwarfLineListTag" );
+ // These are a subset (but most of) the possible Dwarf Tags, I have skipped some of the
+ // architecture specific tags (except for GNU). There are about 63 new IR nodes here.
+ // These are kinds of language constructs that are stored in the ".debug_info" section
+ // when dwarf debug information is available (generated by the compiler) in the binary
+ // executable.
+ NEW_TERMINAL_MACRO ( AsmDwarfArrayType, "AsmDwarfArrayType", "AsmDwarfArrayTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfClassType, "AsmDwarfClassType", "AsmDwarfClassTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfEntryPoint, "AsmDwarfEntryPoint", "AsmDwarfEntryPointTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfEnumerationType, "AsmDwarfEnumerationType", "AsmDwarfEnumerationTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfFormalParameter, "AsmDwarfFormalParameter", "AsmDwarfFormalParameterTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfImportedDeclaration, "AsmDwarfImportedDeclaration", "AsmDwarfImportedDeclarationTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfLabel, "AsmDwarfLabel", "AsmDwarfLabelTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfLexicalBlock, "AsmDwarfLexicalBlock", "AsmDwarfLexicalBlockTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfMember, "AsmDwarfMember", "AsmDwarfMemberTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfPointerType, "AsmDwarfPointerType", "AsmDwarfPointerTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfReferenceType, "AsmDwarfReferenceType", "AsmDwarfReferenceTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfCompilationUnit, "AsmDwarfCompilationUnit", "AsmDwarfCompilationUnitTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfStringType, "AsmDwarfStringType", "AsmDwarfStringTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfStructureType, "AsmDwarfStructureType", "AsmDwarfStructureTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfSubroutineType, "AsmDwarfSubroutineType", "AsmDwarfSubroutineTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfTypedef, "AsmDwarfTypedef", "AsmDwarfTypedefTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUnionType, "AsmDwarfUnionType", "AsmDwarfUnionTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUnspecifiedParameters, "AsmDwarfUnspecifiedParameters", "AsmDwarfUnspecifiedParametersTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfVariant, "AsmDwarfVariant", "AsmDwarfVariantTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfCommonBlock, "AsmDwarfCommonBlock", "AsmDwarfCommonBlockTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfCommonInclusion, "AsmDwarfCommonInclusion", "AsmDwarfCommonInclusionTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfInheritance, "AsmDwarfInheritance", "AsmDwarfInheritanceTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfInlinedSubroutine, "AsmDwarfInlinedSubroutine", "AsmDwarfInlinedSubroutineTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfModule, "AsmDwarfModule", "AsmDwarfModuleTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfPtrToMemberType, "AsmDwarfPtrToMemberType", "AsmDwarfPtrToMemberTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfSetType, "AsmDwarfSetType", "AsmDwarfSetTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfSubrangeType, "AsmDwarfSubrangeType", "AsmDwarfSubrangeTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfWithStmt, "AsmDwarfWithStmt", "AsmDwarfWithStmtTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfAccessDeclaration, "AsmDwarfAccessDeclaration", "AsmDwarfAccessDeclarationTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfBaseType, "AsmDwarfBaseType", "AsmDwarfBaseTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfCatchBlock, "AsmDwarfCatchBlock", "AsmDwarfCatchBlockTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfConstType, "AsmDwarfConstType", "AsmDwarfConstTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfConstant, "AsmDwarfConstant", "AsmDwarfConstantTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfEnumerator, "AsmDwarfEnumerator", "AsmDwarfEnumeratorTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfFileType, "AsmDwarfFileType", "AsmDwarfFileTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfFriend, "AsmDwarfFriend", "AsmDwarfFriendTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfNamelist, "AsmDwarfNamelist", "AsmDwarfNamelistTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfNamelistItem, "AsmDwarfNamelistItem", "AsmDwarfNamelistItemTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfPackedType, "AsmDwarfPackedType", "AsmDwarfPackedTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfSubprogram, "AsmDwarfSubprogram", "AsmDwarfSubprogramTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfTemplateTypeParameter, "AsmDwarfTemplateTypeParameter", "AsmDwarfTemplateTypeParameterTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfTemplateValueParameter, "AsmDwarfTemplateValueParameter", "AsmDwarfTemplateValueParameterTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfThrownType, "AsmDwarfThrownType", "AsmDwarfThrownTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfTryBlock, "AsmDwarfTryBlock", "AsmDwarfTryBlockTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfVariantPart, "AsmDwarfVariantPart", "AsmDwarfVariantPartTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfVariable, "AsmDwarfVariable", "AsmDwarfVariableTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfVolatileType, "AsmDwarfVolatileType", "AsmDwarfVolatileTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfDwarfProcedure, "AsmDwarfDwarfProcedure", "AsmDwarfDwarfProcedureTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfRestrictType, "AsmDwarfRestrictType", "AsmDwarfRestrictTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfInterfaceType, "AsmDwarfInterfaceType", "AsmDwarfInterfaceTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfNamespace, "AsmDwarfNamespace", "AsmDwarfNamespaceTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfImportedModule, "AsmDwarfImportedModule", "AsmDwarfImportedModuleTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUnspecifiedType, "AsmDwarfUnspecifiedType", "AsmDwarfUnspecifiedTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfPartialUnit, "AsmDwarfPartialUnit", "AsmDwarfPartialUnitTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfImportedUnit, "AsmDwarfImportedUnit", "AsmDwarfImportedUnitTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfMutableType, "AsmDwarfMutableType", "AsmDwarfMutableTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfCondition, "AsmDwarfCondition", "AsmDwarfConditionTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfSharedType, "AsmDwarfSharedType", "AsmDwarfSharedTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfFormatLabel, "AsmDwarfFormatLabel", "AsmDwarfFormatLabelTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfFunctionTemplate, "AsmDwarfFunctionTemplate", "AsmDwarfFunctionTemplateTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfClassTemplate, "AsmDwarfClassTemplate", "AsmDwarfClassTemplateTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUpcSharedType, "AsmDwarfUpcSharedType", "AsmDwarfUpcSharedTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUpcStrictType, "AsmDwarfUpcStrictType", "AsmDwarfUpcStrictTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUpcRelaxedType, "AsmDwarfUpcRelaxedType", "AsmDwarfUpcRelaxedTypeTag" );
+ NEW_TERMINAL_MACRO ( AsmDwarfUnknownConstruct, "AsmDwarfUnknownConstruct", "AsmDwarfUnknownConstructTag" );
+
+ NEW_NONTERMINAL_MACRO ( AsmDwarfConstruct,
+ AsmDwarfArrayType | AsmDwarfClassType | AsmDwarfEntryPoint | AsmDwarfEnumerationType | AsmDwarfFormalParameter | AsmDwarfImportedDeclaration |
+ AsmDwarfLabel | AsmDwarfLexicalBlock | AsmDwarfMember | AsmDwarfPointerType | AsmDwarfReferenceType | AsmDwarfCompilationUnit | AsmDwarfStringType |
+ AsmDwarfStructureType | AsmDwarfSubroutineType | AsmDwarfTypedef | AsmDwarfUnionType | AsmDwarfUnspecifiedParameters | AsmDwarfVariant |
+ AsmDwarfCommonBlock | AsmDwarfCommonInclusion | AsmDwarfInheritance | AsmDwarfInlinedSubroutine | AsmDwarfModule | AsmDwarfPtrToMemberType |
+ AsmDwarfSetType | AsmDwarfSubrangeType | AsmDwarfWithStmt | AsmDwarfAccessDeclaration | AsmDwarfBaseType | AsmDwarfCatchBlock | AsmDwarfConstType |
+ AsmDwarfConstant | AsmDwarfEnumerator | AsmDwarfFileType | AsmDwarfFriend | AsmDwarfNamelist | AsmDwarfNamelistItem | AsmDwarfPackedType |
+ AsmDwarfSubprogram | AsmDwarfTemplateTypeParameter | AsmDwarfTemplateValueParameter | AsmDwarfThrownType | AsmDwarfTryBlock | AsmDwarfVariantPart |
+ AsmDwarfVariable | AsmDwarfVolatileType | AsmDwarfDwarfProcedure | AsmDwarfRestrictType | AsmDwarfInterfaceType | AsmDwarfNamespace |
+ AsmDwarfImportedModule | AsmDwarfUnspecifiedType | AsmDwarfPartialUnit | AsmDwarfImportedUnit | AsmDwarfMutableType | AsmDwarfCondition |
+ AsmDwarfSharedType | AsmDwarfFormatLabel | AsmDwarfFunctionTemplate | AsmDwarfClassTemplate | AsmDwarfUpcSharedType | AsmDwarfUpcStrictType |
+ AsmDwarfUpcRelaxedType | AsmDwarfUnknownConstruct, "AsmDwarfConstruct", "AsmDwarfConstructTag", false /* canHaveInstances = false */ );
+
+ NEW_TERMINAL_MACRO ( AsmDwarfConstructList, "AsmDwarfConstructList", "AsmDwarfConstructListTag" );
+
+ NEW_TERMINAL_MACRO ( AsmDwarfCompilationUnitList, "AsmDwarfCompilationUnitList", "AsmDwarfCompilationUnitListTag" );
+
+ NEW_NONTERMINAL_MACRO ( AsmDwarfInformation,
+ AsmDwarfMacro | AsmDwarfMacroList | AsmDwarfLine | AsmDwarfLineList | AsmDwarfCompilationUnitList |
+ AsmDwarfConstruct | AsmDwarfConstructList, "AsmDwarfInformation", "AsmDwarfInformationTag", false /* canHaveInstances = false */ );
+
+// ***************************************************************************************
+// END OF DWARF SPECIFIC IR NODE DEFINITIONS
+// ***************************************************************************************
+
+
+
// Root of class hierarchy for binary file support
NEW_NONTERMINAL_MACRO ( AsmExecutableFileFormat,
AsmGenericDLL | AsmGenericFormat | AsmGenericDLLList |
- AsmGenericFile | AsmGenericSection | AsmGenericSymbol | AsmGenericStrtab |
- AsmGenericSymbolList | AsmGenericSectionList | AsmGenericHeaderList | AsmGenericString |
- AsmElfSectionTableEntry | AsmElfSegmentTableEntry | AsmElfSymbolList |
- AsmElfRelaEntry | AsmElfRelaEntryList | AsmPEExportEntry | AsmPEExportEntryList |
- AsmElfDynamicEntry | AsmElfDynamicEntryList | AsmElfSegmentTableEntryList | AsmStringStorage |
- AsmPEImportDirectory | AsmPEImportHintName | AsmPESectionTableEntry | AsmPEExportDirectory |
- AsmPERVASizePair | AsmCoffSymbolList | AsmPERVASizePairList | AsmPEDLLList |
- AsmPEImportHintNameList |
+ AsmGenericFile | AsmGenericSection | AsmGenericSymbol | AsmGenericStrtab |
+ AsmGenericSymbolList | AsmGenericSectionList | AsmGenericHeaderList | AsmGenericString |
+ AsmElfSectionTableEntry | AsmElfSegmentTableEntry | AsmElfSymbolList | AsmPEImportILTEntry |
+ AsmElfRelaEntry | AsmElfRelaEntryList | AsmPEExportEntry | AsmPEExportEntryList |
+ AsmElfDynamicEntry | AsmElfDynamicEntryList | AsmElfSegmentTableEntryList | AsmStringStorage |
+ AsmPEImportDirectory | AsmPEImportHNTEntry | AsmPESectionTableEntry | AsmPEExportDirectory |
+ AsmPERVASizePair | AsmCoffSymbolList | AsmPERVASizePairList |
+ AsmPEImportHNTEntryList | AsmPEImportILTEntryList | AsmPEImportLookupTable | AsmPEImportDirectoryList |
AsmNEEntryPoint | AsmNERelocEntry | AsmNESectionTableEntry |
- AsmLEPageTableEntry | AsmLEEntryPoint | AsmLESectionTableEntry, "AsmExecutableFileFormat", "AsmExecutableFileFormatTag", false /* canHaveInstances = false */ );
+ AsmLEPageTableEntry | AsmLEEntryPoint | AsmLESectionTableEntry |
+ AsmDwarfInformation, "AsmExecutableFileFormat", "AsmExecutableFileFormatTag", false /* canHaveInstances = false */ );
// This is the IR node for a binary executable that loosely corresponds to the SgFile IR node for
@@ -297,23 +402,9 @@
NEW_TERMINAL_MACRO ( AsmInterpretation, "AsmInterpretation", "AsmInterpretationTag" );
#if USE_OLD_BINARY_EXECUTABLE_IR_NODES
- // DQ (8/2/2008): these might be required for now, but we need to be removed later!
#error "Dead Code!"
- // DQ (1/6/2008): Added ELF program header and section header support to AST.
- NEW_TERMINAL_MACRO ( AsmProgramHeader, "AsmProgramHeader", "AsmProgramHeaderTag" );
- NEW_TERMINAL_MACRO ( AsmSectionHeader, "AsmSectionHeader", "AsmSectionHeaderTag" );
-
- // DQ (1/6/2008): These store the lists of AsmProgramHeader and AsmSectionHeader objects.
- // AsmFile can not have traversed data members and lists, so this give it two additional data members.
- NEW_TERMINAL_MACRO ( AsmProgramHeaderList, "AsmProgramHeaderList", "AsmProgramHeaderListTag" );
- NEW_TERMINAL_MACRO ( AsmSectionHeaderList, "AsmSectionHeaderList", "AsmSectionHeaderListTag" );
-
- // We will elimiate: AsmFile, AsmProgramHeader, AsmSectionHeader, AsmProgramHeaderList, AsmSectionHeaderList
- // NEW_NONTERMINAL_MACRO (AsmNode, AsmStatement | AsmExpression | AsmFile | AsmProgramHeader | AsmSectionHeader | AsmProgramHeaderList | AsmSectionHeaderList | AsmOperandList | AsmType | AsmExecutableFileFormat, "AsmNode","AsmNodeTag", false);
- // NEW_NONTERMINAL_MACRO (AsmNode, AsmStatement | AsmExpression | AsmFile | AsmProgramHeader | AsmSectionHeader | AsmProgramHeaderList | AsmSectionHeaderList | AsmOperandList | AsmType | AsmExecutableFileFormat, "AsmNode","AsmNodeTag", false);
- NEW_NONTERMINAL_MACRO (AsmNode, AsmStatement | AsmExpression | AsmFile | AsmProgramHeader | AsmSectionHeader | AsmProgramHeaderList | AsmSectionHeaderList | AsmOperandList | AsmType | AsmExecutableFileFormat, "AsmNode","AsmNodeTag", false);
#else
NEW_NONTERMINAL_MACRO (AsmNode, AsmStatement | AsmExpression | AsmFile | AsmInterpretation | AsmOperandList | AsmType | AsmExecutableFileFormat, "AsmNode","AsmNodeTag", false);
#endif
@@ -322,9 +413,21 @@
// AsmInstructionBase.setFunctionPrototype ( "HEADER", "../Grammar/Common.code");
AsmNode.setFunctionPrototype ( "HEADER_BINARY", "../Grammar/BinaryInstruction.code");
- // Asm instructions should be able to have attached attributes like other IR nodes in ROSE
+ // Asm instructions should be able to have attached attributes (comments) like other IR nodes in ROSE
AsmNode.setDataPrototype ( "AttachedPreprocessingInfoType*", "attachedPreprocessingInfoPtr", "= NULL",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, DEF_DELETE, COPY_DATA);
+
+#if 1
+ // DQ (11/10/2008): Added attribute via ROSETTA (changed to pointer to AstAttributeMechanism)
+ // Modified implementation to only be at specific IR nodes (now supporting all binary IR nodes).
+ AsmNode.setDataPrototype("AstAttributeMechanism*","asmAttributeMechanism","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
+
+ // Reuse the same definition as in SgSupport.
+ AsmNode.setFunctionPrototype ( "HEADER_ATTRIBUTE_SUPPORT", "../Grammar/Support.code");
+ AsmNode.setFunctionSource ( "SOURCE_ATTRIBUTE_SUPPORT", "../Grammar/Support.code");
+#endif
+
// DQ (8/28/2008): Change "unsigned int" to "addr_t"
AsmStatement.setDataPrototype("rose_addr_t","address","= 0",
CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, COPY_DATA);
@@ -396,6 +499,19 @@
AsmFile.setDataPrototype("SgAsmInterpretationPtrList","interpretations","",
NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ // DQ (11/5/2008): This currently added to the SgBinaryFile instead of the SgAsmFile, we may want to
+ // move it later. For now we can't add it to SgAsmFile becuase we could not traverse both a list and
+ // a data member in the definition of an AST traversal.
+ // AsmFile.setDataPrototype("SgAsmDwarfCompilationUnit*","dwarf_info","= NULL",
+ // NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ // DQ (11/6/2008): Moved Dwarf support to AsmInterpretation from SgBinaryFile. Moved ahead of the
+ // SgAsmGenericHeader so that maps (of instructions to source) built in the Dwarf section can be
+ // used in analysis in the instruction sections. since Dwarf is meant to be read-only (at least
+ // for now) this is a simpler design and avoids redundant traversals.
+ AsmInterpretation.setDataPrototype("SgAsmDwarfCompilationUnitList*","dwarf_info","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
// DQ (8/13/2008): Required data member for Jeremiah's ROSE/projects/assemblyToSourceAst/x86AssemblyToC.C
// DQ (8/13/2008): This needs to be removed once the x86AssemblyToC.C file is fixed up to not require it.
// This is redundant with the more complete information in the SgAsmGenericSections of the binary file format.
@@ -438,6 +554,8 @@
AsmElfFileHeader.setFunctionPrototype ( "HEADER_ELF_HEADER", "../Grammar/BinaryInstruction.code");
AsmElfFileHeader.setDataPrototype("unsigned char","e_ident_file_class","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmElfFileHeader.setDataPrototype("unsigned char","e_ident_data_encoding","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
AsmElfFileHeader.setDataPrototype("unsigned char","e_ident_file_version","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
AsmElfFileHeader.setDataPrototype("SgUnsignedCharList","e_ident_padding","",
@@ -811,7 +929,7 @@
AsmPEImportSection.setFunctionPrototype ( "HEADER_PE_IMPORT_SECTION", "../Grammar/BinaryInstruction.code");
- AsmPEImportSection.setDataPrototype("SgAsmPEDLLList*","dlls","",
+ AsmPEImportSection.setDataPrototype ("SgAsmPEImportDirectoryList*","import_directories","= NULL",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
@@ -840,9 +958,6 @@
NO_CONSTRUCTOR_PARAMETER, NO_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
- AsmPEDLLList.setDataPrototype("SgAsmPEDLLPtrList","dlls","",
- NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
-
// std::vector<COFFSymbol*> symbols;
// ExecSection *strtab; /* Section containing symbol names */
AsmCoffSymbolTable.setFunctionPrototype ( "HEADER_PE_COFF_SYMBOL_TABLE", "../Grammar/BinaryInstruction.code");
@@ -902,19 +1017,62 @@
AsmPEImportDirectory.setFunctionPrototype ( "HEADER_PE_IMPORT_DIRECTORY", "../Grammar/BinaryInstruction.code");
- AsmPEImportDirectory.setDataPrototype("rose_rva_t","hintnames_rva","= 0",
+ AsmPEImportDirectory.setDataPrototype("int","idx","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
- AsmPEImportDirectory.setDataPrototype("rose_rva_t","bindings_rva","= 0",
+ AsmPEImportDirectory.setDataPrototype("rose_rva_t","ilt_rva","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
- AsmPEImportDirectory.setDataPrototype("rose_rva_t","dll_name_rva","= 0",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportDirectory.setDataPrototype("SgAsmPEImportLookupTable*", "ilt", "= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
AsmPEImportDirectory.setDataPrototype("time_t","time","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
AsmPEImportDirectory.setDataPrototype("unsigned","forwarder_chain","= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportDirectory.setDataPrototype("rose_rva_t","dll_name_rva","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportDirectory.setDataPrototype("SgAsmGenericString*", "dll_name", "=0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportDirectory.setDataPrototype("rose_rva_t","iat_rva","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportDirectory.setDataPrototype("SgAsmPEImportLookupTable*", "iat", "= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setFunctionPrototype("HEADER_PE_IMPORT_ILT_ENTRY", "../Grammar/BinaryInstruction.code");
+ AsmPEImportILTEntry.setDataPrototype("SgAsmPEImportILTEntry::ILTEntryType", "entry_type", "=ILT_ORDINAL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setDataPrototype("unsigned","ordinal","= 0", /*if entry_type==ILT_ORDINAL*/
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setDataPrototype("rose_rva_t","hnt_entry_rva","= 0", /*if entry_type==ILT_HNT_ENTRY_RVA*/
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setDataPrototype("SgAsmPEImportHNTEntry*","hnt_entry","= 0", /*if entry_type==ILT_HNT_ENTRY_RVA*/
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setDataPrototype("rose_rva_t","bound_rva","= 0", /*if entry_type==ILT_BOUND_RVA*/
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportILTEntry.setDataPrototype("uint64_t","extra_bits","= 0", /*non-zero reserved bits, all entry types*/
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+
+
+ AsmPEImportLookupTable.setFunctionPrototype("HEADER_PE_IMPORT_LOOKUP_TABLE", "../Grammar/BinaryInstruction.code");
+ AsmPEImportLookupTable.setDataPrototype("bool", "is_iat", "= false",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportLookupTable.setDataPrototype("SgAsmPEImportILTEntryList*","entries","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+
+
+ AsmPEImportHNTEntry.setFunctionPrototype("HEADER_PE_IMPORT_HNT_ENTRY", "../Grammar/BinaryInstruction.code");
+ AsmPEImportHNTEntry.setDataPrototype("unsigned","hint","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportHNTEntry.setDataPrototype("SgAsmGenericString*","name","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportHNTEntry.setDataPrototype("unsigned char","padding","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+
+
+
AsmPEExportDirectory.setFunctionPrototype("HEADER_PE_EXPORT_DIRECTORY", "../Grammar/BinaryInstruction.code");
AsmPEExportDirectory.setDataPrototype("unsigned", "res1", "= 0",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
@@ -944,35 +1102,14 @@
- // unsigned hint;
- // std::string name;
- // unsigned char padding;
- AsmPEImportHintName.setFunctionPrototype ( "HEADER_PE_IMPORT_HINT_NAME", "../Grammar/BinaryInstruction.code");
- // DQ (8/28/2008): Check against the specification
- AsmPEImportHintName.setDataPrototype("unsigned","hint","= 0",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
- AsmPEImportHintName.setDataPrototype("std::string","name","= \"\"",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
- // DQ (8/28/2008): Check against the specification
- AsmPEImportHintName.setDataPrototype("unsigned char","padding","= 0",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmPEImportHNTEntryList.setDataPrototype("SgAsmPEImportHNTEntryPtrList","hintnames","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
- // PEImportDirectory *idir;
- // std::vector<addr_t> hintname_rvas; /* RVAs for the hint/name pairs of the DLL functions */
- // std::vector<PEImportHintName*> hintnames; /* The hint/name pairs */
- // std::vector<addr_t> bindings; /* Bindings (RVA) for each function */
- AsmPEDLL.setFunctionPrototype ( "HEADER_PE_DLL", "../Grammar/BinaryInstruction.code");
- AsmPEDLL.setDataPrototype ("SgAsmPEImportDirectory*","idir","= NULL",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
- AsmPEDLL.setDataPrototype ("SgAddressList","hintname_rvas","",
- NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
- AsmPEDLL.setDataPrototype ("SgAsmPEImportHintNameList*","hintnames","= NULL",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
- AsmPEDLL.setDataPrototype ("SgAddressList","bindings","",
- NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
+ AsmPEImportILTEntryList.setDataPrototype("SgAsmPEImportILTEntryPtrList","vector","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
- AsmPEImportHintNameList.setDataPrototype("SgAsmPEImportHintNamePtrList","hintnames","",
+ AsmPEImportDirectoryList.setDataPrototype("SgAsmPEImportDirectoryPtrList","vector","",
NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
@@ -1678,7 +1815,7 @@
AsmGenericDLL.setFunctionPrototype ( "HEADER_GENERIC_DLL", "../Grammar/BinaryInstruction.code");
AsmGenericDLL.setDataPrototype("SgAsmGenericString*","name","= 0",
NO_CONSTRUCTOR_PARAMETER, NO_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
- AsmGenericDLL.setDataPrototype("SgStringList","funcs","",
+ AsmGenericDLL.setDataPrototype("SgStringList","symbols","",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
@@ -1849,18 +1986,173 @@
AsmNode.setDataPrototype("AstAttributeMechanism*","attributeMechanism","= NULL",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE, NO_COPY_DATA);
AsmNode.setFunctionPrototype ( "HEADER_ATTRIBUTE_SUPPORT", "../Grammar/Support.code");
- AsmNode.setFunctionSource ( "SOURCE_ATTRIBUTE_SUPPORT", "../Grammar/Support.code");
+// DQ (11/3/2008): Later this might go into a separate file.
+// ***************************************************************************************
+// DWARF Support for mapping information in the binary executable back to the source code.
+// ***************************************************************************************
+ // This is the base class for all the AsmDwarf IR nodes
+ AsmDwarfInformation.setFunctionPrototype ( "HEADER_DWARF_INFORMATION", "../Grammar/BinaryInstruction.code");
+ // This is the Dwarf CU:
+/* Dwarf_Debug cc_dbg;
+ Dwarf_Word cc_length;
+ Dwarf_Small cc_length_size;
+ Dwarf_Small cc_extension_size;
+ Dwarf_Half cc_version_stamp;
+ Dwarf_Sword cc_abbrev_offset;
+ Dwarf_Small cc_address_size;
+ Dwarf_Word cc_debug_info_offset;
+ Dwarf_Byte_Ptr cc_last_abbrev_ptr;
+ Dwarf_Hash_Table cc_abbrev_hash_table;
+ Dwarf_CU_Context cc_next;
+ unsigned char cc_offset_length;
+*/
+ AsmDwarfCompilationUnit.setFunctionPrototype ( "HEADER_DWARF_COMPILATION_UNIT", "../Grammar/BinaryInstruction.code");
+ // AsmDwarfCompilationUnit.setDataPrototype("std::string","name","= \"\"",
+ // NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("std::string","producer","= \"\"",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("std::string","language","= \"\"",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("uint64_t","low_pc","= 0x0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("uint64_t","hi_pc","= 0x0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("int","version_stamp","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("uint64_t","abbrev_offset","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("uint64_t","address_size","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("uint64_t","offset_length","= 0",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("SgAsmDwarfLineList*","line_info","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("SgAsmDwarfConstructList*","language_constructs","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnit.setDataPrototype("SgAsmDwarfMacroList*","macro_info","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ AsmDwarfCompilationUnitList.setFunctionPrototype ( "HEADER_DWARF_COMPILATION_UNIT_LIST", "../Grammar/BinaryInstruction.code");
+ AsmDwarfCompilationUnitList.setDataPrototype("SgAsmDwarfCompilationUnitPtrList","cu_list","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfMacroList.setFunctionPrototype ( "HEADER_DWARF_MACRO_LIST", "../Grammar/BinaryInstruction.code");
+ AsmDwarfMacroList.setDataPrototype("SgAsmDwarfMacroPtrList","macro_list","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfMacro.setFunctionPrototype ( "HEADER_DWARF_MACRO", "../Grammar/BinaryInstruction.code");
+ AsmDwarfMacro.setDataPrototype("std::string","macro_string","= \"\"",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfLineList.setFunctionPrototype ( "HEADER_DWARF_LINE_LIST", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLineList.setDataPrototype("SgAsmDwarfLinePtrList","line_list","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+#if 0
+ // I am having trouble making these proper data members so just use function to return them, so that they are computed dynamically.
+ AsmDwarfLineList.setDataPrototype("SgInstructionAddressSourcePositionMapPtrList","instructionToSourceMap","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfLineList.setDataPrototype("SgSourcePositionInstructionAddressMapPtrList","sourceToInstructionMap","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+#endif
+
+ AsmDwarfLine.setFunctionPrototype ( "HEADER_DWARF_LINE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLine.setDataPrototype("uint64_t","address","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfLine.setDataPrototype("int","file_id","= Sg_File_Info::NULL_FILE_ID",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfLine.setDataPrototype("int","line","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfLine.setDataPrototype("int","column","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfConstruct.setFunctionPrototype ( "HEADER_DWARF_CONSTRUCT", "../Grammar/BinaryInstruction.code");
+
+ // For now we will store the nesting level (just to support debugging), then it will be removed.
+ AsmDwarfConstruct.setDataPrototype("int","nesting_level","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfConstruct.setDataPrototype("uint64_t","offset","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ AsmDwarfConstruct.setDataPrototype("uint64_t","overall_offset","= 0",
+ CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ // A lot of constructs have a name so put the name into the base class
+ AsmDwarfConstruct.setDataPrototype("std::string","name","= \"\"",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ // This is a data member that can be filled in via a separate analysis (we would have to read the line information before hand).
+ AsmDwarfConstruct.setDataPrototype("SgAsmDwarfLine*","source_position","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfConstructList.setFunctionPrototype ( "HEADER_DWARF_CONSTRUCT_LIST", "../Grammar/BinaryInstruction.code");
+ AsmDwarfConstructList.setDataPrototype("SgAsmDwarfConstructPtrList","list","",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_LIST_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ // These are the Dwarf IR nodes that require support for children
+ AsmDwarfSubprogram.setFunctionPrototype ( "HEADER_DWARF_SUBPROGRAM", "../Grammar/BinaryInstruction.code");
+ AsmDwarfSubprogram.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfStructureType.setFunctionPrototype ( "HEADER_DWARF_STRUCTURE_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfStructureType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfArrayType.setFunctionPrototype ( "HEADER_DWARF_ARRAY_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfArrayType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfLexicalBlock.setFunctionPrototype ( "HEADER_DWARF_LEXICAL_BLOCK", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLexicalBlock.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfInlinedSubroutine.setFunctionPrototype ( "HEADER_DWARF_INLINED_SUBROUTINE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfInlinedSubroutine.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfEnumerationType.setFunctionPrototype ( "HEADER_DWARF_ENUMERATION_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfEnumerationType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfSubroutineType.setFunctionPrototype ( "HEADER_DWARF_SUBROUTINE_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfSubroutineType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfUnionType.setFunctionPrototype ( "HEADER_DWARF_UNION_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfUnionType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfNamespace.setFunctionPrototype ( "HEADER_DWARF_NAMESPACE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfNamespace.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfClassType.setFunctionPrototype ( "HEADER_DWARF_CLASS_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfClassType.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+ AsmDwarfCommonBlock.setFunctionPrototype ( "HEADER_DWARF_COMMON_BLOCK", "../Grammar/BinaryInstruction.code");
+ AsmDwarfCommonBlock.setDataPrototype("SgAsmDwarfConstructList*","body","= NULL",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
+
+// ***************************************************************************************
+// END OF DWARF SPECIFIC IR NODE DEFINITIONS
+// ***************************************************************************************
+
+
+
+
// ***********************************************************************
// ***********************************************************************
// Source Code Definition
// ***********************************************************************
// ***********************************************************************
+ AsmNode.setFunctionSource ( "SOURCE_ATTRIBUTE_SUPPORT", "../Grammar/Support.code");
+
// Binary File Format
AsmExecutableFileFormat.setFunctionSource ( "SOURCE_EXECUTABLE_FILE_FORMAT", "../Grammar/BinaryInstruction.code");
@@ -1900,12 +2192,9 @@
AsmPESection.setFunctionSource ( "SOURCE_PE_SECTION", "../Grammar/BinaryInstruction.code");
AsmPESectionTable.setFunctionSource ( "SOURCE_PE_SECTION_TABLE", "../Grammar/BinaryInstruction.code");
AsmCoffSymbolTable.setFunctionSource ( "SOURCE_PE_COFF_SYMBOL_TABLE", "../Grammar/BinaryInstruction.code");
- AsmPEImportHintName.setFunctionSource ( "SOURCE_PE_IMPORT_HINT_NAME", "../Grammar/BinaryInstruction.code");
AsmPEImportDirectory.setFunctionSource ( "SOURCE_PE_IMPORT_DIRECTORY", "../Grammar/BinaryInstruction.code");
AsmPEExtendedDOSHeader.setFunctionSource ( "SOURCE_PE_EXTENDED_DOS_HEADER", "../Grammar/BinaryInstruction.code");
AsmPESectionTableEntry.setFunctionSource ( "SOURCE_PE_SECTION_TABLE_ENTRY", "../Grammar/BinaryInstruction.code");
- AsmPEDLL.setFunctionSource ( "SOURCE_PE_DLL", "../Grammar/BinaryInstruction.code");
- // AsmCoffSymbolList.setFunctionSource ( "SOURCE_PE_COFF_SYMBOL_LIST", "../Grammar/BinaryInstruction.code");
AsmCoffSymbol.setFunctionSource ( "SOURCE_PE_COFF_SYMBOL", "../Grammar/BinaryInstruction.code");
AsmCoffStrtab.setFunctionSource("SOURCE_COFF_STRING_TABLE", "../Grammar/BinaryInstruction.code");
@@ -1946,7 +2235,7 @@
AsmFunctionDeclaration.setFunctionSource ( "SOURCE_BINARY_FUNCTION_DECLARATION", "../Grammar/BinaryInstruction.code");
AsmNode.setFunctionSource ( "SOURCE_BINARY_NODE", "../Grammar/BinaryInstruction.code");
Asmx86Instruction.setFunctionSource ( "SOURCE_BINARY_X86_INSTRUCTION", "../Grammar/BinaryInstruction.code");
- // AsmArmInstruction.setFunctionSource ( "SOURCE_BINARY_ARM_INSTRUCTION", "../Grammar/BinaryInstruction.code");
+ // AsmArmInstruction.setFunctionSource ( "SOURCE_BINARY_ARM_INSTRUCTION", "../Grammar/BinaryInstruction.code");
AsmType.setFunctionSource ( "SOURCE_BINARY_TYPE", "../Grammar/BinaryInstruction.code");
AsmTypeByte.setFunctionSource ( "SOURCE_BINARY_TYPE_BYTE", "../Grammar/BinaryInstruction.code");
@@ -1981,4 +2270,39 @@
AsmProgramHeaderList.setFunctionSource ( "SOURCE_BINARY_FILE_PROGRAM_HEADER_LIST", "../Grammar/BinaryInstruction.code");
#endif
+// DQ (11/3/2008): Later this might go into a separate file.
+// ***************************************************************************************
+// DWARF Support for mapping information in the binary executable back to the source code.
+// ***************************************************************************************
+
+ AsmDwarfInformation.setFunctionSource ( "SOURCE_DWARF_INFORMATION", "../Grammar/BinaryInstruction.code");
+ AsmDwarfCompilationUnit.setFunctionSource ( "SOURCE_DWARF_COMPILATION_UNIT", "../Grammar/BinaryInstruction.code");
+ AsmDwarfMacro.setFunctionSource ( "SOURCE_DWARF_MACRO", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLine.setFunctionSource ( "SOURCE_DWARF_LINE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfMacroList.setFunctionSource ( "SOURCE_DWARF_MACRO_LIST", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLineList.setFunctionSource ( "SOURCE_DWARF_LINE_LIST", "../Grammar/BinaryInstruction.code");
+
+ AsmDwarfConstruct.setFunctionSource ( "SOURCE_DWARF_CONSTRUCT", "../Grammar/BinaryInstruction.code");
+ AsmDwarfConstructList.setFunctionSource ( "SOURCE_DWARF_CONSTRUCT_LIST", "../Grammar/BinaryInstruction.code");
+
+ AsmDwarfCompilationUnitList.setFunctionSource ( "SOURCE_DWARF_COMPILATION_UNIT_LIST", "../Grammar/BinaryInstruction.code");
+
+ // These are the Dwarf IR nodes that require support for children
+ AsmDwarfSubprogram.setFunctionSource ( "SOURCE_DWARF_SUBPROGRAM", "../Grammar/BinaryInstruction.code");
+ AsmDwarfStructureType.setFunctionSource ( "SOURCE_DWARF_STRUCTURE_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfArrayType.setFunctionSource ( "SOURCE_DWARF_ARRAY_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfLexicalBlock.setFunctionSource ( "SOURCE_DWARF_LEXICAL_BLOCK", "../Grammar/BinaryInstruction.code");
+ AsmDwarfInlinedSubroutine.setFunctionSource ( "SOURCE_DWARF_INLINED_SUBROUTINE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfEnumerationType.setFunctionSource ( "SOURCE_DWARF_ENUMERATION_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfSubroutineType.setFunctionSource ( "SOURCE_DWARF_SUBROUTINE_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfUnionType.setFunctionSource ( "SOURCE_DWARF_UNION_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfNamespace.setFunctionSource ( "SOURCE_DWARF_NAMESPACE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfClassType.setFunctionSource ( "SOURCE_DWARF_CLASS_TYPE", "../Grammar/BinaryInstruction.code");
+ AsmDwarfCommonBlock.setFunctionSource ( "SOURCE_DWARF_COMMON_BLOCK", "../Grammar/BinaryInstruction.code");
+
+// ***************************************************************************************
+// END OF DWARF SPECIFIC IR NODE DEFINITIONS
+// ***************************************************************************************
+
+
}
Modified: trunk/src/ROSETTA/src/buildStorageClasses.C
===================================================================
--- trunk/src/ROSETTA/src/buildStorageClasses.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/src/buildStorageClasses.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -764,6 +764,7 @@
( varTypeString == "SgAsmNERelocEntry::NERelocTgtType" ) ||
( varTypeString == "SgAsmNERelocEntry::NERelocFlags" ) ||
( varTypeString == "SgInterfaceStatement::generic_spec_enum" ) ||
+ ( varTypeString == "SgAsmPEImportILTEntry::ILTEntryType" ) ||
false
)
{
Modified: trunk/src/ROSETTA/src/grammar.C
===================================================================
--- trunk/src/ROSETTA/src/grammar.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/src/grammar.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1969,13 +1969,18 @@
return it->second;
}
-Terminal& Grammar::getTerminalForVariant(size_t var) {
- std::map<size_t, Terminal*>::const_iterator it = this->astVariantToTerminalMap.find(var);
- ROSE_ASSERT (it != this->astVariantToTerminalMap.end());
- ROSE_ASSERT (it->second);
- return *(it->second);
-}
+Terminal& Grammar::getTerminalForVariant(size_t var)
+ {
+ std::map<size_t, Terminal*>::const_iterator it = this->astVariantToTerminalMap.find(var);
+ // Note that when this assertion fails it can be because the IR nodes
+ // name is listed more than once in the "astNodeList" file.
+ ROSE_ASSERT (it != this->astVariantToTerminalMap.end());
+
+ ROSE_ASSERT (it->second);
+ return *(it->second);
+ }
+
StringUtility::FileWithLineNumbers
Grammar::buildVariants ()
{
Modified: trunk/src/ROSETTA/src/support.C
===================================================================
--- trunk/src/ROSETTA/src/support.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/ROSETTA/src/support.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1017,11 +1017,27 @@
BinaryFile.setDataPrototype ( "SgAsmFile*", "binaryFile", "= NULL",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+ // DQ (11/5/2008): This should maybe be added to the SgAsmFile instead of the SgBinaryFile, if so
+ // we will move it. For now we can't add it to SgAsmFile becuase we could not traverse both a
+ // list and a data member in the definition of an AST traversal.
+ // BinaryFile.setDataPrototype("SgAsmDwarfCompilationUnit*","dwarf_info","= NULL",
+ // NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, DEF_TRAVERSAL, NO_DELETE);
+
// DQ (8/16/2008): parse binary executable file format only (some uses of ROSE may only do analysis of
// the binary executable file format and not the instructions). This is also useful for testing.
File.setDataPrototype ( "bool", "read_executable_file_format_only", "= false",
NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+ // DQ (11/9/2008): parse binary executable file format only (but skip the representation of
+ // symbols since there can be thousands of them and they make the dot graphs impossible to manage).
+ File.setDataPrototype ( "bool", "visualize_executable_file_format_skip_symbols", "= false",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
+ // DQ (11/9/2008): parse binary executable file format only (but skip the representation of
+ // symbols since there can be thousands of them and they make the dot graphs impossible to manage).
+ File.setDataPrototype ( "bool", "visualize_dwarf_only", "= false",
+ NO_CONSTRUCTOR_PARAMETER, BUILD_ACCESS_FUNCTIONS, NO_TRAVERSAL, NO_DELETE);
+
// DQ (8/26/2008): Adds support for only disassembling the instructions, skips use of information
// gathered from the data structures built from the binary executable file format (symbols,
// section permisions, etc.).
Modified: trunk/src/backend/asmUnparser/unparseArmAsm.C
===================================================================
--- trunk/src/backend/asmUnparser/unparseArmAsm.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/asmUnparser/unparseArmAsm.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -140,13 +140,9 @@
result += unparseArmRegister(isSgAsmArmRegisterReferenceExpression(expr)->get_arm_register_code());
break;
case V_SgAsmByteValueExpression:
- result += "#" + unparseArmSign(sign) + StringUtility::numberToString(isSgAsmByteValueExpression(expr)->get_value());
- break;
case V_SgAsmWordValueExpression:
- result += "#" + unparseArmSign(sign) + StringUtility::numberToString(isSgAsmWordValueExpression(expr)->get_value());
- break;
case V_SgAsmDoubleWordValueExpression:
- result += "#" + unparseArmSign(sign) + StringUtility::numberToString(isSgAsmDoubleWordValueExpression(expr)->get_value());
+ result += "#" + unparseArmSign(sign) + StringUtility::numberToString(SageInterface::getAsmConstant(isSgAsmValueExpression(expr)));
break;
default: {
cerr << "Unhandled expression kind " << expr->class_name() << endl;
Modified: trunk/src/backend/asmUnparser/unparseAsm.h
===================================================================
--- trunk/src/backend/asmUnparser/unparseAsm.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/asmUnparser/unparseAsm.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -27,7 +27,7 @@
PowerpcRegisterClass cl,
int num,
PowerpcConditionRegisterAccessGranularity gr);
-std::string unparsePowerpcExpression(SgAsmExpression* expr);
+std::string unparsePowerpcExpression(SgAsmExpression* expr, bool useHex = false);
std::string unparsePowerpcInstruction(SgAsmPowerpcInstruction* insn);
std::string unparsePowerpcInstructionWithAddress(SgAsmPowerpcInstruction* insn);
Modified: trunk/src/backend/asmUnparser/unparsePowerpcAsm.C
===================================================================
--- trunk/src/backend/asmUnparser/unparsePowerpcAsm.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/asmUnparser/unparsePowerpcAsm.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -8,6 +8,7 @@
#include "rose.h"
#include <iomanip>
#include <boost/lexical_cast.hpp>
+#include "integerOps.h"
using namespace std;
@@ -46,12 +47,10 @@
return "fpscr";
}
case powerpc_regclass_spr: {
- // FIXME: add names
- return "spr" + boost::lexical_cast<string>(reg);
+ return sprToString((PowerpcSpecialPurposeRegister)reg);
}
case powerpc_regclass_tbr: {
- // FIXME: add names
- return "tbr" + boost::lexical_cast<string>(reg);
+ return tbrToString((PowerpcTimeBaseRegister)reg);
}
case powerpc_regclass_msr: {
return "msr";
@@ -69,7 +68,7 @@
}
}
-string unparsePowerpcExpression(SgAsmExpression* expr) {
+string unparsePowerpcExpression(SgAsmExpression* expr, bool useHex) {
string result = "";
if (expr == NULL) return "BOGUS:NULL";
switch (expr->variantT()) {
@@ -83,8 +82,8 @@
case V_SgAsmBinaryAdd: {
SgAsmBinaryAdd* a = isSgAsmBinaryAdd(addr);
string lhs = unparsePowerpcExpression(a->get_lhs());
- if (isSgAsmWordValueExpression(a->get_rhs())) {
- result = boost::lexical_cast<string>((int)(int16_t)(isSgAsmWordValueExpression(a->get_rhs())->get_value())); // Sign-extend from 16 bits
+ if (isSgAsmValueExpression(a->get_rhs())) {
+ result = boost::lexical_cast<string>((int64_t)IntegerOps::signExtend<16, 64>(SageInterface::getAsmConstant(isSgAsmValueExpression(a->get_rhs())))); // Sign-extend from 16 bits
result += "(" + lhs + ")";
} else {
result = lhs + ", " + unparsePowerpcExpression(a->get_rhs());
@@ -100,14 +99,17 @@
result = unparsePowerpcRegister(rr->get_register_class(), rr->get_register_number(), rr->get_conditionRegisterGranularity());
break;
}
- case V_SgAsmByteValueExpression: result = StringUtility::intToHex(isSgAsmByteValueExpression(expr)->get_value());
- break;
- case V_SgAsmWordValueExpression: result = StringUtility::intToHex(isSgAsmWordValueExpression(expr)->get_value());
- break;
- case V_SgAsmDoubleWordValueExpression: result = StringUtility::intToHex(isSgAsmDoubleWordValueExpression(expr)->get_value());
- break;
- case V_SgAsmQuadWordValueExpression: result = StringUtility::intToHex(isSgAsmQuadWordValueExpression(expr)->get_value());
- break;
+ case V_SgAsmByteValueExpression:
+ case V_SgAsmWordValueExpression:
+ case V_SgAsmDoubleWordValueExpression:
+ case V_SgAsmQuadWordValueExpression: {
+ if (useHex) {
+ result = StringUtility::intToHex(SageInterface::getAsmConstant(isSgAsmValueExpression(expr)));
+ } else {
+ result = StringUtility::numberToString((int64_t)SageInterface::getAsmConstant(isSgAsmValueExpression(expr)));
+ }
+ break;
+ }
default: {
cerr << "Unhandled expression kind " << expr->class_name() << endl;
ROSE_ASSERT (false);
@@ -127,7 +129,18 @@
const SgAsmExpressionPtrList& operands = opList->get_operands();
for (size_t i = 0; i < operands.size(); ++i) {
if (i != 0) result += ", ";
- result += unparsePowerpcExpression(operands[i]);
+ PowerpcInstructionKind kind = insn->get_kind();
+ bool isBranchTarget = (
+ ((kind == powerpc_b ||
+ kind == powerpc_bl ||
+ kind == powerpc_ba ||
+ kind == powerpc_bla) && i == 0) ||
+ ((kind == powerpc_bc ||
+ kind == powerpc_bcl ||
+ kind == powerpc_bca ||
+ kind == powerpc_bcla) && i == 2) ||
+ false);
+ result += unparsePowerpcExpression(operands[i], isBranchTarget);
}
return result;
}
Modified: trunk/src/backend/asmUnparser/unparseX86Asm.C
===================================================================
--- trunk/src/backend/asmUnparser/unparseX86Asm.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/asmUnparser/unparseX86Asm.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -117,14 +117,12 @@
result = unparseX86Register(rr->get_register_class(), rr->get_register_number(), rr->get_position_in_register());
break;
}
- case V_SgAsmByteValueExpression: result = StringUtility::intToHex(isSgAsmByteValueExpression(expr)->get_value());
- break;
- case V_SgAsmWordValueExpression: result = StringUtility::intToHex(isSgAsmWordValueExpression(expr)->get_value());
- break;
- case V_SgAsmDoubleWordValueExpression: result = StringUtility::intToHex(isSgAsmDoubleWordValueExpression(expr)->get_value());
- break;
- case V_SgAsmQuadWordValueExpression: result = StringUtility::intToHex(isSgAsmQuadWordValueExpression(expr)->get_value());
- break;
+ case V_SgAsmByteValueExpression:
+ case V_SgAsmWordValueExpression:
+ case V_SgAsmDoubleWordValueExpression:
+ case V_SgAsmQuadWordValueExpression:
+ result = StringUtility::intToHex(SageInterface::getAsmConstant(isSgAsmValueExpression(expr)));
+ break;
default: {
cerr << "Unhandled expression kind " << expr->class_name() << endl;
ROSE_ASSERT (false);
Modified: trunk/src/backend/unparser/CxxCodeGeneration/unparseCxx_types.C
===================================================================
--- trunk/src/backend/unparser/CxxCodeGeneration/unparseCxx_types.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/unparser/CxxCodeGeneration/unparseCxx_types.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -208,7 +208,7 @@
ROSE_ASSERT(class_type != NULL);
SgClassDeclaration *cdecl = isSgClassDeclaration(class_type->get_declaration());
SgName nm = cdecl->get_qualified_name();
- printf ("In unparseType(%p): nm = %s \n",t,nm.str());
+ //printf ("In unparseType(%p): nm = %s \n",t,nm.str());
if (nm.getString() != "")
return nm.getString();
else
Modified: trunk/src/backend/unparser/languageIndependenceSupport/unparseLanugageIndependentConstructs.C
===================================================================
--- trunk/src/backend/unparser/languageIndependenceSupport/unparseLanugageIndependentConstructs.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/backend/unparser/languageIndependenceSupport/unparseLanugageIndependentConstructs.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -527,6 +527,7 @@
case V_SgNullStatement: unparseNullStatement(stmt, info); break;
default:
+ // DQ (11/4/2008): This is a bug for the case of a SgFortranDo statement, unclear what to do about this.
// Call the derived class implementation for C, C++, or Fortran specific language unparsing.
unparseLanguageSpecificStatement(stmt,info);
break;
Modified: trunk/src/frontend/BinaryDisassembly/Makefile.am
===================================================================
--- trunk/src/frontend/BinaryDisassembly/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -34,7 +34,7 @@
AST_BIN_Traversal.C
-BUILT_SOURCES = x86InstructionEnumPrinter.C armInstructionEnumPrinter.C
+BUILT_SOURCES = x86InstructionEnumPrinter.C armInstructionEnumPrinter.C powerpcInstructionEnumPrinter.C
CLEANFILES = $(BUILT_SOURCES)
Modified: trunk/src/frontend/BinaryDisassembly/RoseBin_instruction_table_x86
===================================================================
--- trunk/src/frontend/BinaryDisassembly/RoseBin_instruction_table_x86 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/RoseBin_instruction_table_x86 2008-11-12 23:49:35 UTC (rev 120)
@@ -265,7 +265,12 @@
addss -> Addss
ucomiss -> Ucomiss
andpd -> Andpd
-paddusb paddusw -> Paddus
-pcmpeqb pcmpeqw pcmpeqd -> Pcmpeq
-andnpd andnps -> Andnpd
-psubusb psubusw -> Psubus
+paddusb -> Paddusb
+paddusw -> Paddusw
+pcmpeqb -> Pcmpeqb
+pcmpeqw -> Pcmpeqw
+pcmpeqd -> Pcmpeqd
+andnpd -> Andnpd
+andnps -> Andnps
+psubusb -> Psubusb
+psubusw -> Psubusw
Modified: trunk/src/frontend/BinaryDisassembly/instructionDispatch.cpp
===================================================================
--- trunk/src/frontend/BinaryDisassembly/instructionDispatch.cpp 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/instructionDispatch.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -27,7 +27,7 @@
insn->set_kind(x86_jb);
break;}
case 'c': { // 'jc'
- insn->set_kind(x86_jb);
+ insn->set_kind(x86_jb); insn->set_mnemonic("jb");
break;}
case 'e': { // 'je'
insn->set_kind(x86_je);
@@ -42,13 +42,13 @@
insn->set_kind(x86_jo);
break;}
case 'p': { // 'jp'
- insn->set_kind(x86_jpe);
+ insn->set_kind(x86_jpe); insn->set_mnemonic("jpe");
break;}
case 's': { // 'js'
insn->set_kind(x86_js);
break;}
case 'z': { // 'jz'
- insn->set_kind(x86_je);
+ insn->set_kind(x86_je); insn->set_mnemonic("je");
break;}
default: break;
}
@@ -120,7 +120,7 @@
insn->set_kind(x86_btc);
break;}
case 'l': { // 'btl'
- insn->set_kind(x86_bt);
+ insn->set_kind(x86_bt); insn->set_mnemonic("bt");
break;}
case 'r': { // 'btr'
insn->set_kind(x86_btr);
@@ -243,22 +243,22 @@
if (mnemonic[1] == 'n') { // 'in'
switch (mnemonic[2]) {
case 'b': { // 'inb'
- insn->set_kind(x86_in);
+ insn->set_kind(x86_in); insn->set_mnemonic("in");
break;}
case 'c': { // 'inc'
insn->set_kind(x86_inc);
break;}
case 'd': { // 'ind'
- insn->set_kind(x86_in);
+ insn->set_kind(x86_in); insn->set_mnemonic("in");
break;}
case 'l': { // 'inl'
- insn->set_kind(x86_in);
+ insn->set_kind(x86_in); insn->set_mnemonic("in");
break;}
case 't': { // 'int'
insn->set_kind(x86_int);
break;}
case 'w': { // 'inw'
- insn->set_kind(x86_in);
+ insn->set_kind(x86_in); insn->set_mnemonic("in");
break;}
default: break;
}
@@ -294,34 +294,34 @@
case 'n': { // 'jn'
switch (mnemonic[2]) {
case 'a': { // 'jna'
- insn->set_kind(x86_jbe);
+ insn->set_kind(x86_jbe); insn->set_mnemonic("jbe");
break;}
case 'b': { // 'jnb'
- insn->set_kind(x86_jae);
+ insn->set_kind(x86_jae); insn->set_mnemonic("jae");
break;}
case 'c': { // 'jnc'
- insn->set_kind(x86_jae);
+ insn->set_kind(x86_jae); insn->set_mnemonic("jae");
break;}
case 'e': { // 'jne'
insn->set_kind(x86_jne);
break;}
case 'g': { // 'jng'
- insn->set_kind(x86_jle);
+ insn->set_kind(x86_jle); insn->set_mnemonic("jle");
break;}
case 'l': { // 'jnl'
- insn->set_kind(x86_jge);
+ insn->set_kind(x86_jge); insn->set_mnemonic("jge");
break;}
case 'o': { // 'jno'
insn->set_kind(x86_jno);
break;}
case 'p': { // 'jnp'
- insn->set_kind(x86_jpo);
+ insn->set_kind(x86_jpo); insn->set_mnemonic("jpo");
break;}
case 's': { // 'jns'
insn->set_kind(x86_jns);
break;}
case 'z': { // 'jnz'
- insn->set_kind(x86_jne);
+ insn->set_kind(x86_jne); insn->set_mnemonic("jne");
break;}
default: break;
}
@@ -463,7 +463,7 @@
case 'a': { // 'sa'
switch (mnemonic[2]) {
case 'l': { // 'sal'
- insn->set_kind(x86_shl);
+ insn->set_kind(x86_shl); insn->set_mnemonic("shl");
break;}
case 'r': { // 'sar'
insn->set_kind(x86_sar);
@@ -542,17 +542,17 @@
switch (mnemonic[2]) {
case 'c': { // 'btc'
if (mnemonic[3] == 'l') { // 'btcl'
- insn->set_kind(x86_btc);
+ insn->set_kind(x86_btc); insn->set_mnemonic("btc");
}
break;}
case 'r': { // 'btr'
if (mnemonic[3] == 'l') { // 'btrl'
- insn->set_kind(x86_btr);
+ insn->set_kind(x86_btr); insn->set_mnemonic("btr");
}
break;}
case 's': { // 'bts'
if (mnemonic[3] == 'l') { // 'btsl'
- insn->set_kind(x86_bts);
+ insn->set_kind(x86_bts); insn->set_mnemonic("bts");
}
break;}
default: break;
@@ -661,13 +661,13 @@
insn->set_kind(x86_fld1);
break;}
case 'l': { // 'fldl'
- insn->set_kind(x86_fld);
+ insn->set_kind(x86_fld); insn->set_mnemonic("fld");
break;}
case 's': { // 'flds'
- insn->set_kind(x86_fld);
+ insn->set_kind(x86_fld); insn->set_mnemonic("fld");
break;}
case 't': { // 'fldt'
- insn->set_kind(x86_fld);
+ insn->set_kind(x86_fld); insn->set_mnemonic("fld");
break;}
case 'z': { // 'fldz'
insn->set_kind(x86_fldz);
@@ -700,13 +700,13 @@
case 't': { // 'fst'
switch (mnemonic[3]) {
case 'l': { // 'fstl'
- insn->set_kind(x86_fst);
+ insn->set_kind(x86_fst); insn->set_mnemonic("fst");
break;}
case 'p': { // 'fstp'
insn->set_kind(x86_fstp);
break;}
case 's': { // 'fsts'
- insn->set_kind(x86_fst);
+ insn->set_kind(x86_fst); insn->set_mnemonic("fst");
break;}
default: break;
}
@@ -799,22 +799,22 @@
switch (mnemonic[2]) {
case 'a': { // 'jna'
if (mnemonic[3] == 'e') { // 'jnae'
- insn->set_kind(x86_jb);
+ insn->set_kind(x86_jb); insn->set_mnemonic("jb");
}
break;}
case 'b': { // 'jnb'
if (mnemonic[3] == 'e') { // 'jnbe'
- insn->set_kind(x86_ja);
+ insn->set_kind(x86_ja); insn->set_mnemonic("ja");
}
break;}
case 'g': { // 'jng'
if (mnemonic[3] == 'e') { // 'jnge'
- insn->set_kind(x86_jl);
+ insn->set_kind(x86_jl); insn->set_mnemonic("jl");
}
break;}
case 'l': { // 'jnl'
if (mnemonic[3] == 'e') { // 'jnle'
- insn->set_kind(x86_jg);
+ insn->set_kind(x86_jg); insn->set_mnemonic("jg");
}
break;}
default: break;
@@ -908,7 +908,7 @@
insn->set_kind(x86_setb);
break;}
case 'c': { // 'setc'
- insn->set_kind(x86_setb);
+ insn->set_kind(x86_setb); insn->set_mnemonic("setb");
break;}
case 'e': { // 'sete'
insn->set_kind(x86_sete);
@@ -923,13 +923,13 @@
insn->set_kind(x86_seto);
break;}
case 'p': { // 'setp'
- insn->set_kind(x86_setpe);
+ insn->set_kind(x86_setpe); insn->set_mnemonic("setpe");
break;}
case 's': { // 'sets'
insn->set_kind(x86_sets);
break;}
case 'z': { // 'setz'
- insn->set_kind(x86_sete);
+ insn->set_kind(x86_sete); insn->set_mnemonic("sete");
break;}
default: break;
}
@@ -1012,7 +1012,7 @@
case 'l': { // 'xl'
if (mnemonic[2] == 'a') { // 'xla'
if (mnemonic[3] == 't') { // 'xlat'
- insn->set_kind(x86_xlatb);
+ insn->set_kind(x86_xlatb); insn->set_mnemonic("xlatb");
}
}
break;}
@@ -1090,7 +1090,7 @@
insn->set_kind(x86_cmovb);
break;}
case 'c': { // 'cmovc'
- insn->set_kind(x86_cmovb);
+ insn->set_kind(x86_cmovb); insn->set_mnemonic("cmovb");
break;}
case 'e': { // 'cmove'
insn->set_kind(x86_cmove);
@@ -1105,13 +1105,13 @@
insn->set_kind(x86_cmovo);
break;}
case 'p': { // 'cmovp'
- insn->set_kind(x86_cmovpe);
+ insn->set_kind(x86_cmovpe); insn->set_mnemonic("cmovpe");
break;}
case 's': { // 'cmovs'
insn->set_kind(x86_cmovs);
break;}
case 'z': { // 'cmovz'
- insn->set_kind(x86_cmove);
+ insn->set_kind(x86_cmove); insn->set_mnemonic("cmove");
break;}
default: break;
}
@@ -1189,13 +1189,13 @@
if (mnemonic[3] == 'd') { // 'fadd'
switch (mnemonic[4]) {
case 'l': { // 'faddl'
- insn->set_kind(x86_fadd);
+ insn->set_kind(x86_fadd); insn->set_mnemonic("fadd");
break;}
case 'p': { // 'faddp'
insn->set_kind(x86_faddp);
break;}
case 's': { // 'fadds'
- insn->set_kind(x86_fadd);
+ insn->set_kind(x86_fadd); insn->set_mnemonic("fadd");
break;}
default: break;
}
@@ -1207,13 +1207,13 @@
if (mnemonic[3] == 'm') { // 'fcom'
switch (mnemonic[4]) {
case 'l': { // 'fcoml'
- insn->set_kind(x86_fcom);
+ insn->set_kind(x86_fcom); insn->set_mnemonic("fcom");
break;}
case 'p': { // 'fcomp'
insn->set_kind(x86_fcomp);
break;}
case 's': { // 'fcoms'
- insn->set_kind(x86_fcom);
+ insn->set_kind(x86_fcom); insn->set_mnemonic("fcom");
break;}
default: break;
}
@@ -1225,7 +1225,7 @@
if (mnemonic[3] == 'v') { // 'fdiv'
switch (mnemonic[4]) {
case 'l': { // 'fdivl'
- insn->set_kind(x86_fdiv);
+ insn->set_kind(x86_fdiv); insn->set_mnemonic("fdiv");
break;}
case 'p': { // 'fdivp'
insn->set_kind(x86_fdivp);
@@ -1234,7 +1234,7 @@
insn->set_kind(x86_fdivr);
break;}
case 's': { // 'fdivs'
- insn->set_kind(x86_fdiv);
+ insn->set_kind(x86_fdiv); insn->set_mnemonic("fdiv");
break;}
default: break;
}
@@ -1269,7 +1269,7 @@
case 'l': { // 'fil'
if (mnemonic[3] == 'd') { // 'fild'
if (mnemonic[4] == 'l') { // 'fildl'
- insn->set_kind(x86_fild);
+ insn->set_kind(x86_fild); insn->set_mnemonic("fild");
}
}
break;}
@@ -1284,7 +1284,7 @@
if (mnemonic[3] == 't') { // 'fist'
switch (mnemonic[4]) {
case 'l': { // 'fistl'
- insn->set_kind(x86_fist);
+ insn->set_kind(x86_fist); insn->set_mnemonic("fist");
break;}
case 'p': { // 'fistp'
insn->set_kind(x86_fistp);
@@ -1318,13 +1318,13 @@
if (mnemonic[3] == 'l') { // 'fmul'
switch (mnemonic[4]) {
case 'l': { // 'fmull'
- insn->set_kind(x86_fmul);
+ insn->set_kind(x86_fmul); insn->set_mnemonic("fmul");
break;}
case 'p': { // 'fmulp'
insn->set_kind(x86_fmulp);
break;}
case 's': { // 'fmuls'
- insn->set_kind(x86_fmul);
+ insn->set_kind(x86_fmul); insn->set_mnemonic("fmul");
break;}
default: break;
}
@@ -1370,13 +1370,13 @@
if (mnemonic[3] == 'p') { // 'fstp'
switch (mnemonic[4]) {
case 'l': { // 'fstpl'
- insn->set_kind(x86_fstp);
+ insn->set_kind(x86_fstp); insn->set_mnemonic("fstp");
break;}
case 's': { // 'fstps'
- insn->set_kind(x86_fstp);
+ insn->set_kind(x86_fstp); insn->set_mnemonic("fstp");
break;}
case 't': { // 'fstpt'
- insn->set_kind(x86_fstp);
+ insn->set_kind(x86_fstp); insn->set_mnemonic("fstp");
break;}
default: break;
}
@@ -1386,7 +1386,7 @@
if (mnemonic[3] == 'b') { // 'fsub'
switch (mnemonic[4]) {
case 'l': { // 'fsubl'
- insn->set_kind(x86_fsub);
+ insn->set_kind(x86_fsub); insn->set_mnemonic("fsub");
break;}
case 'p': { // 'fsubp'
insn->set_kind(x86_fsubp);
@@ -1395,7 +1395,7 @@
insn->set_kind(x86_fsubr);
break;}
case 's': { // 'fsubs'
- insn->set_kind(x86_fsub);
+ insn->set_kind(x86_fsub); insn->set_mnemonic("fsub");
break;}
default: break;
}
@@ -1440,13 +1440,13 @@
if (mnemonic[3] == 't') { // 'iret'
switch (mnemonic[4]) {
case 'd': { // 'iretd'
- insn->set_kind(x86_iret);
+ insn->set_kind(x86_iret); insn->set_mnemonic("iret");
break;}
case 'l': { // 'iretl'
- insn->set_kind(x86_iret);
+ insn->set_kind(x86_iret); insn->set_mnemonic("iret");
break;}
case 'q': { // 'iretq'
- insn->set_kind(x86_iret);
+ insn->set_kind(x86_iret); insn->set_mnemonic("iret");
break;}
default: break;
}
@@ -1513,10 +1513,10 @@
if (mnemonic[3] == 'p') { // 'loop'
switch (mnemonic[4]) {
case 'e': { // 'loope'
- insn->set_kind(x86_loopz);
+ insn->set_kind(x86_loopz); insn->set_mnemonic("loopz");
break;}
case 'l': { // 'loopl'
- insn->set_kind(x86_loop);
+ insn->set_kind(x86_loop); insn->set_mnemonic("loop");
break;}
case 'z': { // 'loopz'
insn->set_kind(x86_loopz);
@@ -1596,16 +1596,16 @@
if (mnemonic[3] == 'd') { // 'padd'
switch (mnemonic[4]) {
case 'b': { // 'paddb'
- insn->set_kind(x86_padd);
+ insn->set_kind(x86_padd); insn->set_mnemonic("padd");
break;}
case 'd': { // 'paddd'
- insn->set_kind(x86_padd);
+ insn->set_kind(x86_padd); insn->set_mnemonic("padd");
break;}
case 'q': { // 'paddq'
- insn->set_kind(x86_padd);
+ insn->set_kind(x86_padd); insn->set_mnemonic("padd");
break;}
case 'w': { // 'paddw'
- insn->set_kind(x86_padd);
+ insn->set_kind(x86_padd); insn->set_mnemonic("padd");
break;}
default: break;
}
@@ -1657,13 +1657,13 @@
if (mnemonic[3] == 'l') { // 'psll'
switch (mnemonic[4]) {
case 'd': { // 'pslld'
- insn->set_kind(x86_psll);
+ insn->set_kind(x86_psll); insn->set_mnemonic("psll");
break;}
case 'q': { // 'psllq'
- insn->set_kind(x86_psll);
+ insn->set_kind(x86_psll); insn->set_mnemonic("psll");
break;}
case 'w': { // 'psllw'
- insn->set_kind(x86_psll);
+ insn->set_kind(x86_psll); insn->set_mnemonic("psll");
break;}
default: break;
}
@@ -1673,13 +1673,13 @@
if (mnemonic[3] == 'l') { // 'psrl'
switch (mnemonic[4]) {
case 'd': { // 'psrld'
- insn->set_kind(x86_psrl);
+ insn->set_kind(x86_psrl); insn->set_mnemonic("psrl");
break;}
case 'q': { // 'psrlq'
- insn->set_kind(x86_psrl);
+ insn->set_kind(x86_psrl); insn->set_mnemonic("psrl");
break;}
case 'w': { // 'psrlw'
- insn->set_kind(x86_psrl);
+ insn->set_kind(x86_psrl); insn->set_mnemonic("psrl");
break;}
default: break;
}
@@ -1689,13 +1689,13 @@
if (mnemonic[3] == 'b') { // 'psub'
switch (mnemonic[4]) {
case 'b': { // 'psubb'
- insn->set_kind(x86_psub);
+ insn->set_kind(x86_psub); insn->set_mnemonic("psub");
break;}
case 'd': { // 'psubd'
- insn->set_kind(x86_psub);
+ insn->set_kind(x86_psub); insn->set_mnemonic("psub");
break;}
case 'w': { // 'psubw'
- insn->set_kind(x86_psub);
+ insn->set_kind(x86_psub); insn->set_mnemonic("psub");
break;}
default: break;
}
@@ -1761,7 +1761,7 @@
switch (mnemonic[3]) {
case 'a': { // 'seta'
if (mnemonic[4] == 'e') { // 'setae'
- insn->set_kind(x86_setb);
+ insn->set_kind(x86_setb); insn->set_mnemonic("setb");
}
break;}
case 'b': { // 'setb'
@@ -1782,34 +1782,34 @@
case 'n': { // 'setn'
switch (mnemonic[4]) {
case 'a': { // 'setna'
- insn->set_kind(x86_setbe);
+ insn->set_kind(x86_setbe); insn->set_mnemonic("setbe");
break;}
case 'b': { // 'setnb'
- insn->set_kind(x86_setae);
+ insn->set_kind(x86_setae); insn->set_mnemonic("setae");
break;}
case 'c': { // 'setnc'
- insn->set_kind(x86_setae);
+ insn->set_kind(x86_setae); insn->set_mnemonic("setae");
break;}
case 'e': { // 'setne'
insn->set_kind(x86_setne);
break;}
case 'g': { // 'setng'
- insn->set_kind(x86_setle);
+ insn->set_kind(x86_setle); insn->set_mnemonic("setle");
break;}
case 'l': { // 'setnl'
- insn->set_kind(x86_setge);
+ insn->set_kind(x86_setge); insn->set_mnemonic("setge");
break;}
case 'o': { // 'setno'
insn->set_kind(x86_setno);
break;}
case 'p': { // 'setnp'
- insn->set_kind(x86_setpo);
+ insn->set_kind(x86_setpo); insn->set_mnemonic("setpo");
break;}
case 's': { // 'setns'
insn->set_kind(x86_setns);
break;}
case 'z': { // 'setnz'
- insn->set_kind(x86_setne);
+ insn->set_kind(x86_setne); insn->set_mnemonic("setne");
break;}
default: break;
}
@@ -1833,7 +1833,7 @@
if (mnemonic[2] == 'd') { // 'sld'
if (mnemonic[3] == 't') { // 'sldt'
if (mnemonic[4] == 'l') { // 'sldtl'
- insn->set_kind(x86_sldt);
+ insn->set_kind(x86_sldt); insn->set_mnemonic("sldt");
}
}
}
@@ -1883,7 +1883,7 @@
if (mnemonic[2] == 'd') { // 'xad'
if (mnemonic[3] == 'd') { // 'xadd'
if (mnemonic[4] == 'l') { // 'xaddl'
- insn->set_kind(x86_xadd);
+ insn->set_kind(x86_xadd); insn->set_mnemonic("xadd");
}
}
}
@@ -1930,7 +1930,7 @@
insn->set_kind(x86_andnpd);
break;}
case 's': { // 'andnps'
- insn->set_kind(x86_andnpd);
+ insn->set_kind(x86_andnps);
break;}
default: break;
}
@@ -1945,7 +1945,7 @@
if (mnemonic[3] == 'n') { // 'boun'
if (mnemonic[4] == 'd') { // 'bound'
if (mnemonic[5] == 'l') { // 'boundl'
- insn->set_kind(x86_bound);
+ insn->set_kind(x86_bound); insn->set_mnemonic("bound");
}
}
}
@@ -1980,34 +1980,34 @@
case 'n': { // 'cmovn'
switch (mnemonic[5]) {
case 'a': { // 'cmovna'
- insn->set_kind(x86_cmovbe);
+ insn->set_kind(x86_cmovbe); insn->set_mnemonic("cmovbe");
break;}
case 'b': { // 'cmovnb'
- insn->set_kind(x86_cmovae);
+ insn->set_kind(x86_cmovae); insn->set_mnemonic("cmovae");
break;}
case 'c': { // 'cmovnc'
- insn->set_kind(x86_cmovae);
+ insn->set_kind(x86_cmovae); insn->set_mnemonic("cmovae");
break;}
case 'e': { // 'cmovne'
insn->set_kind(x86_cmovne);
break;}
case 'g': { // 'cmovng'
- insn->set_kind(x86_cmovle);
+ insn->set_kind(x86_cmovle); insn->set_mnemonic("cmovle");
break;}
case 'l': { // 'cmovnl'
- insn->set_kind(x86_cmovge);
+ insn->set_kind(x86_cmovge); insn->set_mnemonic("cmovge");
break;}
case 'o': { // 'cmovno'
insn->set_kind(x86_cmovno);
break;}
case 'p': { // 'cmovnp'
- insn->set_kind(x86_cmovpo);
+ insn->set_kind(x86_cmovpo); insn->set_mnemonic("cmovpo");
break;}
case 's': { // 'cmovns'
insn->set_kind(x86_cmovns);
break;}
case 'z': { // 'cmovnz'
- insn->set_kind(x86_cmovne);
+ insn->set_kind(x86_cmovne); insn->set_mnemonic("cmovne");
break;}
default: break;
}
@@ -2048,7 +2048,7 @@
if (mnemonic[3] == 'e') { // 'ente'
if (mnemonic[4] == 'r') { // 'enter'
if (mnemonic[5] == 'l') { // 'enterl'
- insn->set_kind(x86_enter);
+ insn->set_kind(x86_enter); insn->set_mnemonic("enter");
}
}
}
@@ -2063,13 +2063,13 @@
if (mnemonic[4] == 'p') { // 'fcomp'
switch (mnemonic[5]) {
case 'l': { // 'fcompl'
- insn->set_kind(x86_fcomp);
+ insn->set_kind(x86_fcomp); insn->set_mnemonic("fcomp");
break;}
case 'p': { // 'fcompp'
insn->set_kind(x86_fcompp);
break;}
case 's': { // 'fcomps'
- insn->set_kind(x86_fcomp);
+ insn->set_kind(x86_fcomp); insn->set_mnemonic("fcomp");
break;}
default: break;
}
@@ -2083,13 +2083,13 @@
if (mnemonic[4] == 'r') { // 'fdivr'
switch (mnemonic[5]) {
case 'l': { // 'fdivrl'
- insn->set_kind(x86_fdivr);
+ insn->set_kind(x86_fdivr); insn->set_mnemonic("fdivr");
break;}
case 'p': { // 'fdivrp'
insn->set_kind(x86_fdivrp);
break;}
case 's': { // 'fdivrs'
- insn->set_kind(x86_fdivr);
+ insn->set_kind(x86_fdivr); insn->set_mnemonic("fdivr");
break;}
default: break;
}
@@ -2103,7 +2103,7 @@
if (mnemonic[3] == 'd') { // 'fiad'
if (mnemonic[4] == 'd') { // 'fiadd'
if (mnemonic[5] == 'l') { // 'fiaddl'
- insn->set_kind(x86_fiadd);
+ insn->set_kind(x86_fiadd); insn->set_mnemonic("fiadd");
}
}
}
@@ -2112,7 +2112,7 @@
if (mnemonic[3] == 'i') { // 'fidi'
if (mnemonic[4] == 'v') { // 'fidiv'
if (mnemonic[5] == 'l') { // 'fidivl'
- insn->set_kind(x86_fidiv);
+ insn->set_kind(x86_fidiv); insn->set_mnemonic("fidiv");
}
}
}
@@ -2121,7 +2121,7 @@
if (mnemonic[3] == 'u') { // 'fimu'
if (mnemonic[4] == 'l') { // 'fimul'
if (mnemonic[5] == 'l') { // 'fimull'
- insn->set_kind(x86_fimul);
+ insn->set_kind(x86_fimul); insn->set_mnemonic("fimul");
}
}
}
@@ -2130,7 +2130,7 @@
if (mnemonic[3] == 't') { // 'fist'
if (mnemonic[4] == 'p') { // 'fistp'
if (mnemonic[5] == 'l') { // 'fistpl'
- insn->set_kind(x86_fistp);
+ insn->set_kind(x86_fistp); insn->set_mnemonic("fistp");
}
}
}
@@ -2214,13 +2214,13 @@
if (mnemonic[4] == 'r') { // 'fsubr'
switch (mnemonic[5]) {
case 'l': { // 'fsubrl'
- insn->set_kind(x86_fsubr);
+ insn->set_kind(x86_fsubr); insn->set_mnemonic("fsubr");
break;}
case 'p': { // 'fsubrp'
insn->set_kind(x86_fsubrp);
break;}
case 's': { // 'fsubrs'
- insn->set_kind(x86_fsubr);
+ insn->set_kind(x86_fsubr); insn->set_mnemonic("fsubr");
break;}
default: break;
}
@@ -2236,7 +2236,7 @@
if (mnemonic[4] == 'm') { // 'fucom'
switch (mnemonic[5]) {
case 'i': { // 'fucomi'
- insn->set_kind(x86_fucom);
+ insn->set_kind(x86_fucom); insn->set_mnemonic("fucom");
break;}
case 'p': { // 'fucomp'
insn->set_kind(x86_fucomp);
@@ -2268,7 +2268,7 @@
if (mnemonic[4] == 'n') { // 'loopn'
switch (mnemonic[5]) {
case 'e': { // 'loopne'
- insn->set_kind(x86_loopnz);
+ insn->set_kind(x86_loopnz); insn->set_mnemonic("loopnz");
break;}
case 'z': { // 'loopnz'
insn->set_kind(x86_loopnz);
@@ -2351,17 +2351,17 @@
switch (mnemonic[4]) {
case 'b': { // 'setnb'
if (mnemonic[5] == 'e') { // 'setnbe'
- insn->set_kind(x86_seta);
+ insn->set_kind(x86_seta); insn->set_mnemonic("seta");
}
break;}
case 'g': { // 'setng'
if (mnemonic[5] == 'e') { // 'setnge'
- insn->set_kind(x86_setl);
+ insn->set_kind(x86_setl); insn->set_mnemonic("setl");
}
break;}
case 'l': { // 'setnl'
if (mnemonic[5] == 'e') { // 'setnle'
- insn->set_kind(x86_setg);
+ insn->set_kind(x86_setg); insn->set_mnemonic("setg");
}
break;}
default: break;
@@ -2384,22 +2384,22 @@
switch (mnemonic[5]) {
case 'a': { // 'cmovna'
if (mnemonic[6] == 'e') { // 'cmovnae'
- insn->set_kind(x86_cmovb);
+ insn->set_kind(x86_cmovb); insn->set_mnemonic("cmovb");
}
break;}
case 'b': { // 'cmovnb'
if (mnemonic[6] == 'e') { // 'cmovnbe'
- insn->set_kind(x86_cmova);
+ insn->set_kind(x86_cmova); insn->set_mnemonic("cmova");
}
break;}
case 'g': { // 'cmovng'
if (mnemonic[6] == 'e') { // 'cmovnge'
- insn->set_kind(x86_cmovl);
+ insn->set_kind(x86_cmovl); insn->set_mnemonic("cmovl");
}
break;}
case 'l': { // 'cmovnl'
if (mnemonic[6] == 'e') { // 'cmovnle'
- insn->set_kind(x86_cmovg);
+ insn->set_kind(x86_cmovg); insn->set_mnemonic("cmovg");
}
break;}
default: break;
@@ -2461,10 +2461,10 @@
if (mnemonic[5] == 's') { // 'paddus'
switch (mnemonic[6]) {
case 'b': { // 'paddusb'
- insn->set_kind(x86_paddus);
+ insn->set_kind(x86_paddusb);
break;}
case 'w': { // 'paddusw'
- insn->set_kind(x86_paddus);
+ insn->set_kind(x86_paddusw);
break;}
default: break;
}
@@ -2480,13 +2480,13 @@
if (mnemonic[5] == 'q') { // 'pcmpeq'
switch (mnemonic[6]) {
case 'b': { // 'pcmpeqb'
- insn->set_kind(x86_pcmpeq);
+ insn->set_kind(x86_pcmpeqb);
break;}
case 'd': { // 'pcmpeqd'
- insn->set_kind(x86_pcmpeq);
+ insn->set_kind(x86_pcmpeqd);
break;}
case 'w': { // 'pcmpeqw'
- insn->set_kind(x86_pcmpeq);
+ insn->set_kind(x86_pcmpeqw);
break;}
default: break;
}
@@ -2502,10 +2502,10 @@
if (mnemonic[5] == 's') { // 'psubus'
switch (mnemonic[6]) {
case 'b': { // 'psubusb'
- insn->set_kind(x86_psubus);
+ insn->set_kind(x86_psubusb);
break;}
case 'w': { // 'psubusw'
- insn->set_kind(x86_psubus);
+ insn->set_kind(x86_psubusw);
break;}
default: break;
}
@@ -2581,2582 +2581,6 @@
}
return insn;
}
-void normalizex86Mnemonic(std::string& mnemonic) {
- switch (mnemonic.size()) {
- case 2:
- switch (mnemonic[0]) {
- case 'b': { // 'b'
- if (mnemonic[1] == 't') { // 'bt'
- mnemonic = "Bt";
- }
- break;}
- case 'i': { // 'i'
- if (mnemonic[1] == 'n') { // 'in'
- mnemonic = "In";
- }
- break;}
- case 'j': { // 'j'
- switch (mnemonic[1]) {
- case 'a': { // 'ja'
- mnemonic = "Ja";
- break;}
- case 'b': { // 'jb'
- mnemonic = "Jb";
- break;}
- case 'c': { // 'jc'
- mnemonic = "Jb";
- break;}
- case 'e': { // 'je'
- mnemonic = "Je";
- break;}
- case 'g': { // 'jg'
- mnemonic = "Jg";
- break;}
- case 'l': { // 'jl'
- mnemonic = "Jl";
- break;}
- case 'o': { // 'jo'
- mnemonic = "Jo";
- break;}
- case 'p': { // 'jp'
- mnemonic = "Jpe";
- break;}
- case 's': { // 'js'
- mnemonic = "Js";
- break;}
- case 'z': { // 'jz'
- mnemonic = "Je";
- break;}
- default: break;
- }
- break;}
- case 'o': { // 'o'
- if (mnemonic[1] == 'r') { // 'or'
- mnemonic = "Or";
- }
- break;}
- default: break;
- }
- break;
- case 3:
- switch (mnemonic[0]) {
- case 'a': { // 'a'
- switch (mnemonic[1]) {
- case 'a': { // 'aa'
- switch (mnemonic[2]) {
- case 'a': { // 'aaa'
- mnemonic = "Aaa";
- break;}
- case 'd': { // 'aad'
- mnemonic = "Aad";
- break;}
- case 'm': { // 'aam'
- mnemonic = "Aam";
- break;}
- case 's': { // 'aas'
- mnemonic = "Aas";
- break;}
- default: break;
- }
- break;}
- case 'd': { // 'ad'
- switch (mnemonic[2]) {
- case 'c': { // 'adc'
- mnemonic = "Adc";
- break;}
- case 'd': { // 'add'
- mnemonic = "Add";
- break;}
- default: break;
- }
- break;}
- case 'n': { // 'an'
- if (mnemonic[2] == 'd') { // 'and'
- mnemonic = "And";
- }
- break;}
- default: break;
- }
- break;}
- case 'b': { // 'b'
- switch (mnemonic[1]) {
- case 's': { // 'bs'
- switch (mnemonic[2]) {
- case 'f': { // 'bsf'
- mnemonic = "Bsf";
- break;}
- case 'r': { // 'bsr'
- mnemonic = "Bsr";
- break;}
- default: break;
- }
- break;}
- case 't': { // 'bt'
- switch (mnemonic[2]) {
- case 'c': { // 'btc'
- mnemonic = "Btc";
- break;}
- case 'l': { // 'btl'
- mnemonic = "Bt";
- break;}
- case 'r': { // 'btr'
- mnemonic = "Btr";
- break;}
- case 's': { // 'bts'
- mnemonic = "Bts";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'c': { // 'c'
- switch (mnemonic[1]) {
- case 'b': { // 'cb'
- if (mnemonic[2] == 'w') { // 'cbw'
- mnemonic = "Cbw";
- }
- break;}
- case 'd': { // 'cd'
- if (mnemonic[2] == 'q') { // 'cdq'
- mnemonic = "Cdq";
- }
- break;}
- case 'l': { // 'cl'
- switch (mnemonic[2]) {
- case 'c': { // 'clc'
- mnemonic = "Clc";
- break;}
- case 'd': { // 'cld'
- mnemonic = "Cld";
- break;}
- case 'i': { // 'cli'
- mnemonic = "Cli";
- break;}
- default: break;
- }
- break;}
- case 'm': { // 'cm'
- switch (mnemonic[2]) {
- case 'c': { // 'cmc'
- mnemonic = "Cmc";
- break;}
- case 'p': { // 'cmp'
- mnemonic = "Cmp";
- break;}
- default: break;
- }
- break;}
- case 'q': { // 'cq'
- if (mnemonic[2] == 'o') { // 'cqo'
- mnemonic = "Cqo";
- }
- break;}
- case 'w': { // 'cw'
- if (mnemonic[2] == 'd') { // 'cwd'
- mnemonic = "Cwd";
- }
- break;}
- default: break;
- }
- break;}
- case 'd': { // 'd'
- switch (mnemonic[1]) {
- case 'a': { // 'da'
- switch (mnemonic[2]) {
- case 'a': { // 'daa'
- mnemonic = "Daa";
- break;}
- case 's': { // 'das'
- mnemonic = "Das";
- break;}
- default: break;
- }
- break;}
- case 'e': { // 'de'
- if (mnemonic[2] == 'c') { // 'dec'
- mnemonic = "Dec";
- }
- break;}
- case 'i': { // 'di'
- if (mnemonic[2] == 'v') { // 'div'
- mnemonic = "Div";
- }
- break;}
- default: break;
- }
- break;}
- case 'e': { // 'e'
- if (mnemonic[1] == 's') { // 'es'
- if (mnemonic[2] == 'c') { // 'esc'
- mnemonic = "Esc";
- }
- }
- break;}
- case 'f': { // 'f'
- switch (mnemonic[1]) {
- case 'l': { // 'fl'
- if (mnemonic[2] == 'd') { // 'fld'
- mnemonic = "Fld";
- }
- break;}
- case 's': { // 'fs'
- if (mnemonic[2] == 't') { // 'fst'
- mnemonic = "Fst";
- }
- break;}
- default: break;
- }
- break;}
- case 'h': { // 'h'
- if (mnemonic[1] == 'l') { // 'hl'
- if (mnemonic[2] == 't') { // 'hlt'
- mnemonic = "Hlt";
- }
- }
- break;}
- case 'i': { // 'i'
- if (mnemonic[1] == 'n') { // 'in'
- switch (mnemonic[2]) {
- case 'b': { // 'inb'
- mnemonic = "In";
- break;}
- case 'c': { // 'inc'
- mnemonic = "Inc";
- break;}
- case 'd': { // 'ind'
- mnemonic = "In";
- break;}
- case 'l': { // 'inl'
- mnemonic = "In";
- break;}
- case 't': { // 'int'
- mnemonic = "Int";
- break;}
- case 'w': { // 'inw'
- mnemonic = "In";
- break;}
- default: break;
- }
- }
- break;}
- case 'j': { // 'j'
- switch (mnemonic[1]) {
- case 'a': { // 'ja'
- if (mnemonic[2] == 'e') { // 'jae'
- mnemonic = "Jae";
- }
- break;}
- case 'b': { // 'jb'
- if (mnemonic[2] == 'e') { // 'jbe'
- mnemonic = "Jbe";
- }
- break;}
- case 'g': { // 'jg'
- if (mnemonic[2] == 'e') { // 'jge'
- mnemonic = "Jge";
- }
- break;}
- case 'l': { // 'jl'
- if (mnemonic[2] == 'e') { // 'jle'
- mnemonic = "Jle";
- }
- break;}
- case 'm': { // 'jm'
- if (mnemonic[2] == 'p') { // 'jmp'
- mnemonic = "Jmp";
- }
- break;}
- case 'n': { // 'jn'
- switch (mnemonic[2]) {
- case 'a': { // 'jna'
- mnemonic = "Jbe";
- break;}
- case 'b': { // 'jnb'
- mnemonic = "Jae";
- break;}
- case 'c': { // 'jnc'
- mnemonic = "Jae";
- break;}
- case 'e': { // 'jne'
- mnemonic = "Jne";
- break;}
- case 'g': { // 'jng'
- mnemonic = "Jle";
- break;}
- case 'l': { // 'jnl'
- mnemonic = "Jge";
- break;}
- case 'o': { // 'jno'
- mnemonic = "Jno";
- break;}
- case 'p': { // 'jnp'
- mnemonic = "Jpo";
- break;}
- case 's': { // 'jns'
- mnemonic = "Jns";
- break;}
- case 'z': { // 'jnz'
- mnemonic = "Jne";
- break;}
- default: break;
- }
- break;}
- case 'p': { // 'jp'
- switch (mnemonic[2]) {
- case 'e': { // 'jpe'
- mnemonic = "Jpe";
- break;}
- case 'o': { // 'jpo'
- mnemonic = "Jpo";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'l'
- switch (mnemonic[1]) {
- case 'd': { // 'ld'
- if (mnemonic[2] == 's') { // 'lds'
- mnemonic = "Lds";
- }
- break;}
- case 'e': { // 'le'
- switch (mnemonic[2]) {
- case 'a': { // 'lea'
- mnemonic = "Lea";
- break;}
- case 's': { // 'les'
- mnemonic = "Les";
- break;}
- default: break;
- }
- break;}
- case 'f': { // 'lf'
- if (mnemonic[2] == 's') { // 'lfs'
- mnemonic = "Lfs";
- }
- break;}
- case 'g': { // 'lg'
- if (mnemonic[2] == 's') { // 'lgs'
- mnemonic = "Lgs";
- }
- break;}
- case 's': { // 'ls'
- if (mnemonic[2] == 's') { // 'lss'
- mnemonic = "Lss";
- }
- break;}
- default: break;
- }
- break;}
- case 'm': { // 'm'
- switch (mnemonic[1]) {
- case 'o': { // 'mo'
- if (mnemonic[2] == 'v') { // 'mov'
- mnemonic = "Mov";
- }
- break;}
- case 'u': { // 'mu'
- if (mnemonic[2] == 'l') { // 'mul'
- mnemonic = "Mul";
- }
- break;}
- default: break;
- }
- break;}
- case 'n': { // 'n'
- switch (mnemonic[1]) {
- case 'e': { // 'ne'
- if (mnemonic[2] == 'g') { // 'neg'
- mnemonic = "Neg";
- }
- break;}
- case 'o': { // 'no'
- switch (mnemonic[2]) {
- case 'p': { // 'nop'
- mnemonic = "Nop";
- break;}
- case 't': { // 'not'
- mnemonic = "Not";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'o': { // 'o'
- if (mnemonic[1] == 'u') { // 'ou'
- if (mnemonic[2] == 't') { // 'out'
- mnemonic = "Out";
- }
- }
- break;}
- case 'p': { // 'p'
- if (mnemonic[1] == 'o') { // 'po'
- if (mnemonic[2] == 'p') { // 'pop'
- mnemonic = "Pop";
- }
- }
- break;}
- case 'r': { // 'r'
- switch (mnemonic[1]) {
- case 'c': { // 'rc'
- switch (mnemonic[2]) {
- case 'l': { // 'rcl'
- mnemonic = "Rcl";
- break;}
- case 'r': { // 'rcr'
- mnemonic = "Rcr";
- break;}
- default: break;
- }
- break;}
- case 'e': { // 're'
- if (mnemonic[2] == 't') { // 'ret'
- mnemonic = "Ret";
- }
- break;}
- case 'o': { // 'ro'
- switch (mnemonic[2]) {
- case 'l': { // 'rol'
- mnemonic = "Rol";
- break;}
- case 'r': { // 'ror'
- mnemonic = "Ror";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 's': { // 's'
- switch (mnemonic[1]) {
- case 'a': { // 'sa'
- switch (mnemonic[2]) {
- case 'l': { // 'sal'
- mnemonic = "Shl";
- break;}
- case 'r': { // 'sar'
- mnemonic = "Sar";
- break;}
- default: break;
- }
- break;}
- case 'b': { // 'sb'
- if (mnemonic[2] == 'b') { // 'sbb'
- mnemonic = "Sbb";
- }
- break;}
- case 'h': { // 'sh'
- switch (mnemonic[2]) {
- case 'l': { // 'shl'
- mnemonic = "Shl";
- break;}
- case 'r': { // 'shr'
- mnemonic = "Shr";
- break;}
- default: break;
- }
- break;}
- case 't': { // 'st'
- switch (mnemonic[2]) {
- case 'c': { // 'stc'
- mnemonic = "Stc";
- break;}
- case 'd': { // 'std'
- mnemonic = "Std";
- break;}
- case 'i': { // 'sti'
- mnemonic = "Sti";
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'su'
- if (mnemonic[2] == 'b') { // 'sub'
- mnemonic = "Sub";
- }
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'u'
- if (mnemonic[1] == 'd') { // 'ud'
- if (mnemonic[2] == '2') { // 'ud2'
- mnemonic = "Ud2";
- }
- }
- break;}
- case 'x': { // 'x'
- if (mnemonic[1] == 'o') { // 'xo'
- if (mnemonic[2] == 'r') { // 'xor'
- mnemonic = "Xor";
- }
- }
- break;}
- default: break;
- }
- break;
- case 4:
- switch (mnemonic[0]) {
- case 'a': { // 'a'
- if (mnemonic[1] == 'r') { // 'ar'
- if (mnemonic[2] == 'p') { // 'arp'
- if (mnemonic[3] == 'l') { // 'arpl'
- mnemonic = "Arpl";
- }
- }
- }
- break;}
- case 'b': { // 'b'
- if (mnemonic[1] == 't') { // 'bt'
- switch (mnemonic[2]) {
- case 'c': { // 'btc'
- if (mnemonic[3] == 'l') { // 'btcl'
- mnemonic = "Btc";
- }
- break;}
- case 'r': { // 'btr'
- if (mnemonic[3] == 'l') { // 'btrl'
- mnemonic = "Btr";
- }
- break;}
- case 's': { // 'bts'
- if (mnemonic[3] == 'l') { // 'btsl'
- mnemonic = "Bts";
- }
- break;}
- default: break;
- }
- }
- break;}
- case 'c': { // 'c'
- switch (mnemonic[1]) {
- case 'a': { // 'ca'
- if (mnemonic[2] == 'l') { // 'cal'
- if (mnemonic[3] == 'l') { // 'call'
- mnemonic = "Call";
- }
- }
- break;}
- case 'd': { // 'cd'
- if (mnemonic[2] == 'q') { // 'cdq'
- if (mnemonic[3] == 'e') { // 'cdqe'
- mnemonic = "Cdqe";
- }
- }
- break;}
- case 'w': { // 'cw'
- if (mnemonic[2] == 'd') { // 'cwd'
- if (mnemonic[3] == 'e') { // 'cwde'
- mnemonic = "Cwde";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'e': { // 'e'
- if (mnemonic[1] == 'm') { // 'em'
- if (mnemonic[2] == 'm') { // 'emm'
- if (mnemonic[3] == 's') { // 'emms'
- mnemonic = "Emms";
- }
- }
- }
- break;}
- case 'f': { // 'f'
- switch (mnemonic[1]) {
- case 'a': { // 'fa'
- switch (mnemonic[2]) {
- case 'b': { // 'fab'
- if (mnemonic[3] == 's') { // 'fabs'
- mnemonic = "Fabs";
- }
- break;}
- case 'd': { // 'fad'
- if (mnemonic[3] == 'd') { // 'fadd'
- mnemonic = "Fadd";
- }
- break;}
- default: break;
- }
- break;}
- case 'c': { // 'fc'
- switch (mnemonic[2]) {
- case 'h': { // 'fch'
- if (mnemonic[3] == 's') { // 'fchs'
- mnemonic = "Fchs";
- }
- break;}
- case 'o': { // 'fco'
- switch (mnemonic[3]) {
- case 'm': { // 'fcom'
- mnemonic = "Fcom";
- break;}
- case 's': { // 'fcos'
- mnemonic = "Fcos";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'd': { // 'fd'
- if (mnemonic[2] == 'i') { // 'fdi'
- if (mnemonic[3] == 'v') { // 'fdiv'
- mnemonic = "Fdiv";
- }
- }
- break;}
- case 'i': { // 'fi'
- switch (mnemonic[2]) {
- case 'l': { // 'fil'
- if (mnemonic[3] == 'd') { // 'fild'
- mnemonic = "Fild";
- }
- break;}
- case 's': { // 'fis'
- if (mnemonic[3] == 't') { // 'fist'
- mnemonic = "Fist";
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'fl'
- if (mnemonic[2] == 'd') { // 'fld'
- switch (mnemonic[3]) {
- case '1': { // 'fld1'
- mnemonic = "Fld1";
- break;}
- case 'l': { // 'fldl'
- mnemonic = "Fld";
- break;}
- case 's': { // 'flds'
- mnemonic = "Fld";
- break;}
- case 't': { // 'fldt'
- mnemonic = "Fld";
- break;}
- case 'z': { // 'fldz'
- mnemonic = "Fldz";
- break;}
- default: break;
- }
- }
- break;}
- case 'm': { // 'fm'
- if (mnemonic[2] == 'u') { // 'fmu'
- if (mnemonic[3] == 'l') { // 'fmul'
- mnemonic = "Fmul";
- }
- }
- break;}
- case 'n': { // 'fn'
- if (mnemonic[2] == 'o') { // 'fno'
- if (mnemonic[3] == 'p') { // 'fnop'
- mnemonic = "Fnop";
- }
- }
- break;}
- case 's': { // 'fs'
- switch (mnemonic[2]) {
- case 'i': { // 'fsi'
- if (mnemonic[3] == 'n') { // 'fsin'
- mnemonic = "Fsin";
- }
- break;}
- case 't': { // 'fst'
- switch (mnemonic[3]) {
- case 'l': { // 'fstl'
- mnemonic = "Fst";
- break;}
- case 'p': { // 'fstp'
- mnemonic = "Fstp";
- break;}
- case 's': { // 'fsts'
- mnemonic = "Fst";
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'fsu'
- if (mnemonic[3] == 'b') { // 'fsub'
- mnemonic = "Fsub";
- }
- break;}
- default: break;
- }
- break;}
- case 't': { // 'ft'
- if (mnemonic[2] == 's') { // 'fts'
- if (mnemonic[3] == 't') { // 'ftst'
- mnemonic = "Ftst";
- }
- }
- break;}
- case 'x': { // 'fx'
- if (mnemonic[2] == 'c') { // 'fxc'
- if (mnemonic[3] == 'h') { // 'fxch'
- mnemonic = "Fxch";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'i': { // 'i'
- switch (mnemonic[1]) {
- case 'd': { // 'id'
- if (mnemonic[2] == 'i') { // 'idi'
- if (mnemonic[3] == 'v') { // 'idiv'
- mnemonic = "IDiv";
- }
- }
- break;}
- case 'm': { // 'im'
- if (mnemonic[2] == 'u') { // 'imu'
- if (mnemonic[3] == 'l') { // 'imul'
- mnemonic = "IMul";
- }
- }
- break;}
- case 'n': { // 'in'
- switch (mnemonic[2]) {
- case 's': { // 'ins'
- switch (mnemonic[3]) {
- case 'b': { // 'insb'
- mnemonic = "Insb";
- break;}
- case 'd': { // 'insd'
- mnemonic = "Insd";
- break;}
- case 'w': { // 'insw'
- mnemonic = "Insw";
- break;}
- default: break;
- }
- break;}
- case 't': { // 'int'
- if (mnemonic[3] == 'o') { // 'into'
- mnemonic = "Into";
- }
- break;}
- default: break;
- }
- break;}
- case 'r': { // 'ir'
- if (mnemonic[2] == 'e') { // 'ire'
- if (mnemonic[3] == 't') { // 'iret'
- mnemonic = "IRet";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'j': { // 'j'
- switch (mnemonic[1]) {
- case 'c': { // 'jc'
- if (mnemonic[2] == 'x') { // 'jcx'
- if (mnemonic[3] == 'z') { // 'jcxz'
- mnemonic = "Jcxz";
- }
- }
- break;}
- case 'n': { // 'jn'
- switch (mnemonic[2]) {
- case 'a': { // 'jna'
- if (mnemonic[3] == 'e') { // 'jnae'
- mnemonic = "Jb";
- }
- break;}
- case 'b': { // 'jnb'
- if (mnemonic[3] == 'e') { // 'jnbe'
- mnemonic = "Ja";
- }
- break;}
- case 'g': { // 'jng'
- if (mnemonic[3] == 'e') { // 'jnge'
- mnemonic = "Jl";
- }
- break;}
- case 'l': { // 'jnl'
- if (mnemonic[3] == 'e') { // 'jnle'
- mnemonic = "Jg";
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'l'
- switch (mnemonic[1]) {
- case 'a': { // 'la'
- if (mnemonic[2] == 'h') { // 'lah'
- if (mnemonic[3] == 'f') { // 'lahf'
- mnemonic = "Lahf";
- }
- }
- break;}
- case 'o': { // 'lo'
- switch (mnemonic[2]) {
- case 'c': { // 'loc'
- if (mnemonic[3] == 'k') { // 'lock'
- mnemonic = "Lock";
- }
- break;}
- case 'o': { // 'loo'
- if (mnemonic[3] == 'p') { // 'loop'
- mnemonic = "Loop";
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'p': { // 'p'
- switch (mnemonic[1]) {
- case 'a': { // 'pa'
- if (mnemonic[2] == 'n') { // 'pan'
- if (mnemonic[3] == 'd') { // 'pand'
- mnemonic = "Pand";
- }
- }
- break;}
- case 'o': { // 'po'
- if (mnemonic[2] == 'p') { // 'pop'
- switch (mnemonic[3]) {
- case 'a': { // 'popa'
- mnemonic = "Popa";
- break;}
- case 'f': { // 'popf'
- mnemonic = "Popf";
- break;}
- default: break;
- }
- }
- break;}
- case 'u': { // 'pu'
- if (mnemonic[2] == 's') { // 'pus'
- if (mnemonic[3] == 'h') { // 'push'
- mnemonic = "Push";
- }
- }
- break;}
- case 'x': { // 'px'
- if (mnemonic[2] == 'o') { // 'pxo'
- if (mnemonic[3] == 'r') { // 'pxor'
- mnemonic = "Pxor";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 's': { // 's'
- switch (mnemonic[1]) {
- case 'a': { // 'sa'
- if (mnemonic[2] == 'h') { // 'sah'
- if (mnemonic[3] == 'f') { // 'sahf'
- mnemonic = "Sahf";
- }
- }
- break;}
- case 'e': { // 'se'
- if (mnemonic[2] == 't') { // 'set'
- switch (mnemonic[3]) {
- case 'a': { // 'seta'
- mnemonic = "Seta";
- break;}
- case 'b': { // 'setb'
- mnemonic = "Setb";
- break;}
- case 'c': { // 'setc'
- mnemonic = "Setb";
- break;}
- case 'e': { // 'sete'
- mnemonic = "Sete";
- break;}
- case 'g': { // 'setg'
- mnemonic = "Setg";
- break;}
- case 'l': { // 'setl'
- mnemonic = "Setl";
- break;}
- case 'o': { // 'seto'
- mnemonic = "Seto";
- break;}
- case 'p': { // 'setp'
- mnemonic = "Setpe";
- break;}
- case 's': { // 'sets'
- mnemonic = "Sets";
- break;}
- case 'z': { // 'setz'
- mnemonic = "Sete";
- break;}
- default: break;
- }
- }
- break;}
- case 'h': { // 'sh'
- switch (mnemonic[2]) {
- case 'l': { // 'shl'
- if (mnemonic[3] == 'd') { // 'shld'
- mnemonic = "Shld";
- }
- break;}
- case 'r': { // 'shr'
- if (mnemonic[3] == 'd') { // 'shrd'
- mnemonic = "Shrd";
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'sl'
- if (mnemonic[2] == 'd') { // 'sld'
- if (mnemonic[3] == 't') { // 'sldt'
- mnemonic = "Sldt";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 't': { // 't'
- if (mnemonic[1] == 'e') { // 'te'
- if (mnemonic[2] == 's') { // 'tes'
- if (mnemonic[3] == 't') { // 'test'
- mnemonic = "Test";
- }
- }
- }
- break;}
- case 'v': { // 'v'
- if (mnemonic[1] == 'e') { // 've'
- if (mnemonic[2] == 'r') { // 'ver'
- switch (mnemonic[3]) {
- case 'r': { // 'verr'
- mnemonic = "Verr";
- break;}
- case 'w': { // 'verw'
- mnemonic = "Verw";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'w': { // 'w'
- if (mnemonic[1] == 'a') { // 'wa'
- if (mnemonic[2] == 'i') { // 'wai'
- if (mnemonic[3] == 't') { // 'wait'
- mnemonic = "Wait";
- }
- }
- }
- break;}
- case 'x': { // 'x'
- switch (mnemonic[1]) {
- case 'a': { // 'xa'
- if (mnemonic[2] == 'd') { // 'xad'
- if (mnemonic[3] == 'd') { // 'xadd'
- mnemonic = "Xadd";
- }
- }
- break;}
- case 'c': { // 'xc'
- if (mnemonic[2] == 'h') { // 'xch'
- if (mnemonic[3] == 'g') { // 'xchg'
- mnemonic = "Xchg";
- }
- }
- break;}
- case 'l': { // 'xl'
- if (mnemonic[2] == 'a') { // 'xla'
- if (mnemonic[3] == 't') { // 'xlat'
- mnemonic = "Xlatb";
- }
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;
- case 5:
- switch (mnemonic[0]) {
- case 'a': { // 'a'
- switch (mnemonic[1]) {
- case 'd': { // 'ad'
- if (mnemonic[2] == 'd') { // 'add'
- if (mnemonic[3] == 's') { // 'adds'
- switch (mnemonic[4]) {
- case 'd': { // 'addsd'
- mnemonic = "Addsd";
- break;}
- case 's': { // 'addss'
- mnemonic = "Addss";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'n': { // 'an'
- if (mnemonic[2] == 'd') { // 'and'
- if (mnemonic[3] == 'p') { // 'andp'
- if (mnemonic[4] == 'd') { // 'andpd'
- mnemonic = "Andpd";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'b': { // 'b'
- switch (mnemonic[1]) {
- case 'o': { // 'bo'
- if (mnemonic[2] == 'u') { // 'bou'
- if (mnemonic[3] == 'n') { // 'boun'
- if (mnemonic[4] == 'd') { // 'bound'
- mnemonic = "Bound";
- }
- }
- }
- break;}
- case 's': { // 'bs'
- if (mnemonic[2] == 'w') { // 'bsw'
- if (mnemonic[3] == 'a') { // 'bswa'
- if (mnemonic[4] == 'p') { // 'bswap'
- mnemonic = "Bswap";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'c': { // 'c'
- switch (mnemonic[1]) {
- case 'm': { // 'cm'
- switch (mnemonic[2]) {
- case 'o': { // 'cmo'
- if (mnemonic[3] == 'v') { // 'cmov'
- switch (mnemonic[4]) {
- case 'a': { // 'cmova'
- mnemonic = "CMova";
- break;}
- case 'b': { // 'cmovb'
- mnemonic = "CMovb";
- break;}
- case 'c': { // 'cmovc'
- mnemonic = "CMovb";
- break;}
- case 'e': { // 'cmove'
- mnemonic = "CMove";
- break;}
- case 'g': { // 'cmovg'
- mnemonic = "CMovg";
- break;}
- case 'l': { // 'cmovl'
- mnemonic = "CMovl";
- break;}
- case 'o': { // 'cmovo'
- mnemonic = "CMovo";
- break;}
- case 'p': { // 'cmovp'
- mnemonic = "CMovpe";
- break;}
- case 's': { // 'cmovs'
- mnemonic = "CMovs";
- break;}
- case 'z': { // 'cmovz'
- mnemonic = "CMove";
- break;}
- default: break;
- }
- }
- break;}
- case 'p': { // 'cmp'
- if (mnemonic[3] == 's') { // 'cmps'
- switch (mnemonic[4]) {
- case 'b': { // 'cmpsb'
- mnemonic = "Cmpsb";
- break;}
- case 'd': { // 'cmpsd'
- mnemonic = "Cmpsd";
- break;}
- case 'q': { // 'cmpsq'
- mnemonic = "Cmpsq";
- break;}
- case 'w': { // 'cmpsw'
- mnemonic = "Cmpsw";
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'p': { // 'cp'
- if (mnemonic[2] == 'u') { // 'cpu'
- if (mnemonic[3] == 'i') { // 'cpui'
- if (mnemonic[4] == 'd') { // 'cpuid'
- mnemonic = "Cpuid";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'd': { // 'd'
- if (mnemonic[1] == 'i') { // 'di'
- if (mnemonic[2] == 'v') { // 'div'
- if (mnemonic[3] == 's') { // 'divs'
- if (mnemonic[4] == 'd') { // 'divsd'
- mnemonic = "Divsd";
- }
- }
- }
- }
- break;}
- case 'e': { // 'e'
- if (mnemonic[1] == 'n') { // 'en'
- if (mnemonic[2] == 't') { // 'ent'
- if (mnemonic[3] == 'e') { // 'ente'
- if (mnemonic[4] == 'r') { // 'enter'
- mnemonic = "Enter";
- }
- }
- }
- }
- break;}
- case 'f': { // 'f'
- switch (mnemonic[1]) {
- case '2': { // 'f2'
- if (mnemonic[2] == 'x') { // 'f2x'
- if (mnemonic[3] == 'm') { // 'f2xm'
- if (mnemonic[4] == '1') { // 'f2xm1'
- mnemonic = "F2xm1";
- }
- }
- }
- break;}
- case 'a': { // 'fa'
- if (mnemonic[2] == 'd') { // 'fad'
- if (mnemonic[3] == 'd') { // 'fadd'
- switch (mnemonic[4]) {
- case 'l': { // 'faddl'
- mnemonic = "Fadd";
- break;}
- case 'p': { // 'faddp'
- mnemonic = "Faddp";
- break;}
- case 's': { // 'fadds'
- mnemonic = "Fadd";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'c': { // 'fc'
- if (mnemonic[2] == 'o') { // 'fco'
- if (mnemonic[3] == 'm') { // 'fcom'
- switch (mnemonic[4]) {
- case 'l': { // 'fcoml'
- mnemonic = "Fcom";
- break;}
- case 'p': { // 'fcomp'
- mnemonic = "Fcomp";
- break;}
- case 's': { // 'fcoms'
- mnemonic = "Fcom";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'd': { // 'fd'
- if (mnemonic[2] == 'i') { // 'fdi'
- if (mnemonic[3] == 'v') { // 'fdiv'
- switch (mnemonic[4]) {
- case 'l': { // 'fdivl'
- mnemonic = "Fdiv";
- break;}
- case 'p': { // 'fdivp'
- mnemonic = "Fdivp";
- break;}
- case 'r': { // 'fdivr'
- mnemonic = "Fdivr";
- break;}
- case 's': { // 'fdivs'
- mnemonic = "Fdiv";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'f': { // 'ff'
- if (mnemonic[2] == 'r') { // 'ffr'
- if (mnemonic[3] == 'e') { // 'ffre'
- if (mnemonic[4] == 'e') { // 'ffree'
- mnemonic = "Ffree";
- }
- }
- }
- break;}
- case 'i': { // 'fi'
- switch (mnemonic[2]) {
- case 'a': { // 'fia'
- if (mnemonic[3] == 'd') { // 'fiad'
- if (mnemonic[4] == 'd') { // 'fiadd'
- mnemonic = "Fiadd";
- }
- }
- break;}
- case 'd': { // 'fid'
- if (mnemonic[3] == 'i') { // 'fidi'
- if (mnemonic[4] == 'v') { // 'fidiv'
- mnemonic = "Fidiv";
- }
- }
- break;}
- case 'l': { // 'fil'
- if (mnemonic[3] == 'd') { // 'fild'
- if (mnemonic[4] == 'l') { // 'fildl'
- mnemonic = "Fild";
- }
- }
- break;}
- case 'm': { // 'fim'
- if (mnemonic[3] == 'u') { // 'fimu'
- if (mnemonic[4] == 'l') { // 'fimul'
- mnemonic = "Fimul";
- }
- }
- break;}
- case 's': { // 'fis'
- if (mnemonic[3] == 't') { // 'fist'
- switch (mnemonic[4]) {
- case 'l': { // 'fistl'
- mnemonic = "Fist";
- break;}
- case 'p': { // 'fistp'
- mnemonic = "Fistp";
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'fl'
- if (mnemonic[2] == 'd') { // 'fld'
- switch (mnemonic[3]) {
- case 'c': { // 'fldc'
- if (mnemonic[4] == 'w') { // 'fldcw'
- mnemonic = "Fldcw";
- }
- break;}
- case 'p': { // 'fldp'
- if (mnemonic[4] == 'i') { // 'fldpi'
- mnemonic = "Fldpi";
- }
- break;}
- default: break;
- }
- }
- break;}
- case 'm': { // 'fm'
- if (mnemonic[2] == 'u') { // 'fmu'
- if (mnemonic[3] == 'l') { // 'fmul'
- switch (mnemonic[4]) {
- case 'l': { // 'fmull'
- mnemonic = "Fmul";
- break;}
- case 'p': { // 'fmulp'
- mnemonic = "Fmulp";
- break;}
- case 's': { // 'fmuls'
- mnemonic = "Fmul";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'p': { // 'fp'
- switch (mnemonic[2]) {
- case 'r': { // 'fpr'
- if (mnemonic[3] == 'e') { // 'fpre'
- if (mnemonic[4] == 'm') { // 'fprem'
- mnemonic = "Fprem";
- }
- }
- break;}
- case 't': { // 'fpt'
- if (mnemonic[3] == 'a') { // 'fpta'
- if (mnemonic[4] == 'n') { // 'fptan'
- mnemonic = "Fptan";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 's': { // 'fs'
- switch (mnemonic[2]) {
- case 'a': { // 'fsa'
- if (mnemonic[3] == 'v') { // 'fsav'
- if (mnemonic[4] == 'e') { // 'fsave'
- mnemonic = "Fsave";
- }
- }
- break;}
- case 'q': { // 'fsq'
- if (mnemonic[3] == 'r') { // 'fsqr'
- if (mnemonic[4] == 't') { // 'fsqrt'
- mnemonic = "Fsqrt";
- }
- }
- break;}
- case 't': { // 'fst'
- if (mnemonic[3] == 'p') { // 'fstp'
- switch (mnemonic[4]) {
- case 'l': { // 'fstpl'
- mnemonic = "Fstp";
- break;}
- case 's': { // 'fstps'
- mnemonic = "Fstp";
- break;}
- case 't': { // 'fstpt'
- mnemonic = "Fstp";
- break;}
- default: break;
- }
- }
- break;}
- case 'u': { // 'fsu'
- if (mnemonic[3] == 'b') { // 'fsub'
- switch (mnemonic[4]) {
- case 'l': { // 'fsubl'
- mnemonic = "Fsub";
- break;}
- case 'p': { // 'fsubp'
- mnemonic = "Fsubp";
- break;}
- case 'r': { // 'fsubr'
- mnemonic = "Fsubr";
- break;}
- case 's': { // 'fsubs'
- mnemonic = "Fsub";
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'fu'
- if (mnemonic[2] == 'c') { // 'fuc'
- if (mnemonic[3] == 'o') { // 'fuco'
- if (mnemonic[4] == 'm') { // 'fucom'
- mnemonic = "Fucom";
- }
- }
- }
- break;}
- case 'w': { // 'fw'
- if (mnemonic[2] == 'a') { // 'fwa'
- if (mnemonic[3] == 'i') { // 'fwai'
- if (mnemonic[4] == 't') { // 'fwait'
- mnemonic = "Fwait";
- }
- }
- }
- break;}
- case 'y': { // 'fy'
- if (mnemonic[2] == 'l') { // 'fyl'
- if (mnemonic[3] == '2') { // 'fyl2'
- if (mnemonic[4] == 'x') { // 'fyl2x'
- mnemonic = "Fyl2x";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'i': { // 'i'
- if (mnemonic[1] == 'r') { // 'ir'
- if (mnemonic[2] == 'e') { // 'ire'
- if (mnemonic[3] == 't') { // 'iret'
- switch (mnemonic[4]) {
- case 'd': { // 'iretd'
- mnemonic = "IRet";
- break;}
- case 'l': { // 'iretl'
- mnemonic = "IRet";
- break;}
- case 'q': { // 'iretq'
- mnemonic = "IRet";
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'j': { // 'j'
- switch (mnemonic[1]) {
- case 'e': { // 'je'
- if (mnemonic[2] == 'c') { // 'jec'
- if (mnemonic[3] == 'x') { // 'jecx'
- if (mnemonic[4] == 'z') { // 'jecxz'
- mnemonic = "Jecxz";
- }
- }
- }
- break;}
- case 'r': { // 'jr'
- if (mnemonic[2] == 'c') { // 'jrc'
- if (mnemonic[3] == 'x') { // 'jrcx'
- if (mnemonic[4] == 'z') { // 'jrcxz'
- mnemonic = "Jrcxz";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'l'
- switch (mnemonic[1]) {
- case 'e': { // 'le'
- if (mnemonic[2] == 'a') { // 'lea'
- if (mnemonic[3] == 'v') { // 'leav'
- if (mnemonic[4] == 'e') { // 'leave'
- mnemonic = "Leave";
- }
- }
- }
- break;}
- case 'o': { // 'lo'
- switch (mnemonic[2]) {
- case 'd': { // 'lod'
- if (mnemonic[3] == 's') { // 'lods'
- switch (mnemonic[4]) {
- case 'b': { // 'lodsb'
- mnemonic = "Lodsb";
- break;}
- case 'd': { // 'lodsd'
- mnemonic = "Lodsd";
- break;}
- case 'q': { // 'lodsq'
- mnemonic = "Lodsq";
- break;}
- case 'w': { // 'lodsw'
- mnemonic = "Lodsw";
- break;}
- default: break;
- }
- }
- break;}
- case 'o': { // 'loo'
- if (mnemonic[3] == 'p') { // 'loop'
- switch (mnemonic[4]) {
- case 'e': { // 'loope'
- mnemonic = "Loopz";
- break;}
- case 'l': { // 'loopl'
- mnemonic = "Loop";
- break;}
- case 'z': { // 'loopz'
- mnemonic = "Loopz";
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 'm': { // 'm'
- if (mnemonic[1] == 'o') { // 'mo'
- if (mnemonic[2] == 'v') { // 'mov'
- switch (mnemonic[3]) {
- case 's': { // 'movs'
- switch (mnemonic[4]) {
- case 'b': { // 'movsb'
- mnemonic = "Movsb";
- break;}
- case 'd': { // 'movsd'
- mnemonic = "Movsd";
- break;}
- case 'q': { // 'movsq'
- mnemonic = "Movsq";
- break;}
- case 's': { // 'movss'
- mnemonic = "Movss";
- break;}
- case 'w': { // 'movsw'
- mnemonic = "Movsw";
- break;}
- case 'x': { // 'movsx'
- mnemonic = "Movsx";
- break;}
- default: break;
- }
- break;}
- case 'z': { // 'movz'
- if (mnemonic[4] == 'x') { // 'movzx'
- mnemonic = "Movzx";
- }
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'o': { // 'o'
- if (mnemonic[1] == 'u') { // 'ou'
- if (mnemonic[2] == 't') { // 'out'
- if (mnemonic[3] == 's') { // 'outs'
- switch (mnemonic[4]) {
- case 'b': { // 'outsb'
- mnemonic = "Outsb";
- break;}
- case 'd': { // 'outsd'
- mnemonic = "Outsd";
- break;}
- case 'w': { // 'outsw'
- mnemonic = "Outsw";
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'p': { // 'p'
- switch (mnemonic[1]) {
- case 'a': { // 'pa'
- switch (mnemonic[2]) {
- case 'd': { // 'pad'
- if (mnemonic[3] == 'd') { // 'padd'
- switch (mnemonic[4]) {
- case 'b': { // 'paddb'
- mnemonic = "Padd";
- break;}
- case 'd': { // 'paddd'
- mnemonic = "Padd";
- break;}
- case 'q': { // 'paddq'
- mnemonic = "Padd";
- break;}
- case 'w': { // 'paddw'
- mnemonic = "Padd";
- break;}
- default: break;
- }
- }
- break;}
- case 'n': { // 'pan'
- if (mnemonic[3] == 'd') { // 'pand'
- if (mnemonic[4] == 'n') { // 'pandn'
- mnemonic = "Pandn";
- }
- }
- break;}
- case 'u': { // 'pau'
- if (mnemonic[3] == 's') { // 'paus'
- if (mnemonic[4] == 'e') { // 'pause'
- mnemonic = "Pause";
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'o': { // 'po'
- if (mnemonic[2] == 'p') { // 'pop'
- switch (mnemonic[3]) {
- case 'a': { // 'popa'
- if (mnemonic[4] == 'd') { // 'popad'
- mnemonic = "Popad";
- }
- break;}
- case 'f': { // 'popf'
- switch (mnemonic[4]) {
- case 'd': { // 'popfd'
- mnemonic = "Popfd";
- break;}
- case 'q': { // 'popfq'
- mnemonic = "Popfq";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- }
- break;}
- case 's': { // 'ps'
- switch (mnemonic[2]) {
- case 'l': { // 'psl'
- if (mnemonic[3] == 'l') { // 'psll'
- switch (mnemonic[4]) {
- case 'd': { // 'pslld'
- mnemonic = "Psll";
- break;}
- case 'q': { // 'psllq'
- mnemonic = "Psll";
- break;}
- case 'w': { // 'psllw'
- mnemonic = "Psll";
- break;}
- default: break;
- }
- }
- break;}
- case 'r': { // 'psr'
- if (mnemonic[3] == 'l') { // 'psrl'
- switch (mnemonic[4]) {
- case 'd': { // 'psrld'
- mnemonic = "Psrl";
- break;}
- case 'q': { // 'psrlq'
- mnemonic = "Psrl";
- break;}
- case 'w': { // 'psrlw'
- mnemonic = "Psrl";
- break;}
- default: break;
- }
- }
- break;}
- case 'u': { // 'psu'
- if (mnemonic[3] == 'b') { // 'psub'
- switch (mnemonic[4]) {
- case 'b': { // 'psubb'
- mnemonic = "Psub";
- break;}
- case 'd': { // 'psubd'
- mnemonic = "Psub";
- break;}
- case 'w': { // 'psubw'
- mnemonic = "Psub";
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'pu'
- if (mnemonic[2] == 's') { // 'pus'
- if (mnemonic[3] == 'h') { // 'push'
- switch (mnemonic[4]) {
- case 'a': { // 'pusha'
- mnemonic = "Pusha";
- break;}
- case 'f': { // 'pushf'
- mnemonic = "Pushf";
- break;}
- default: break;
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'r': { // 'r'
- if (mnemonic[1] == 'd') { // 'rd'
- if (mnemonic[2] == 't') { // 'rdt'
- if (mnemonic[3] == 's') { // 'rdts'
- if (mnemonic[4] == 'c') { // 'rdtsc'
- mnemonic = "Rdtsc";
- }
- }
- }
- }
- break;}
- case 's': { // 's'
- switch (mnemonic[1]) {
- case 'c': { // 'sc'
- if (mnemonic[2] == 'a') { // 'sca'
- if (mnemonic[3] == 's') { // 'scas'
- switch (mnemonic[4]) {
- case 'b': { // 'scasb'
- mnemonic = "Scasb";
- break;}
- case 'd': { // 'scasd'
- mnemonic = "Scasd";
- break;}
- case 'q': { // 'scasq'
- mnemonic = "Scasq";
- break;}
- case 'w': { // 'scasw'
- mnemonic = "Scasw";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'e': { // 'se'
- if (mnemonic[2] == 't') { // 'set'
- switch (mnemonic[3]) {
- case 'a': { // 'seta'
- if (mnemonic[4] == 'e') { // 'setae'
- mnemonic = "Setb";
- }
- break;}
- case 'b': { // 'setb'
- if (mnemonic[4] == 'e') { // 'setbe'
- mnemonic = "Setbe";
- }
- break;}
- case 'g': { // 'setg'
- if (mnemonic[4] == 'e') { // 'setge'
- mnemonic = "Setge";
- }
- break;}
- case 'l': { // 'setl'
- if (mnemonic[4] == 'e') { // 'setle'
- mnemonic = "Setle";
- }
- break;}
- case 'n': { // 'setn'
- switch (mnemonic[4]) {
- case 'a': { // 'setna'
- mnemonic = "Setbe";
- break;}
- case 'b': { // 'setnb'
- mnemonic = "Setae";
- break;}
- case 'c': { // 'setnc'
- mnemonic = "Setae";
- break;}
- case 'e': { // 'setne'
- mnemonic = "Setne";
- break;}
- case 'g': { // 'setng'
- mnemonic = "Setle";
- break;}
- case 'l': { // 'setnl'
- mnemonic = "Setge";
- break;}
- case 'o': { // 'setno'
- mnemonic = "Setno";
- break;}
- case 'p': { // 'setnp'
- mnemonic = "Setpo";
- break;}
- case 's': { // 'setns'
- mnemonic = "Setns";
- break;}
- case 'z': { // 'setnz'
- mnemonic = "Setne";
- break;}
- default: break;
- }
- break;}
- case 'p': { // 'setp'
- switch (mnemonic[4]) {
- case 'e': { // 'setpe'
- mnemonic = "Setpe";
- break;}
- case 'o': { // 'setpo'
- mnemonic = "Setpo";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- }
- break;}
- case 'l': { // 'sl'
- if (mnemonic[2] == 'd') { // 'sld'
- if (mnemonic[3] == 't') { // 'sldt'
- if (mnemonic[4] == 'l') { // 'sldtl'
- mnemonic = "Sldt";
- }
- }
- }
- break;}
- case 't': { // 'st'
- if (mnemonic[2] == 'o') { // 'sto'
- if (mnemonic[3] == 's') { // 'stos'
- switch (mnemonic[4]) {
- case 'b': { // 'stosb'
- mnemonic = "Stosb";
- break;}
- case 'd': { // 'stosd'
- mnemonic = "Stosd";
- break;}
- case 'q': { // 'stosq'
- mnemonic = "Stosq";
- break;}
- case 'w': { // 'stosw'
- mnemonic = "Stosw";
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'u': { // 'su'
- if (mnemonic[2] == 'b') { // 'sub'
- if (mnemonic[3] == 's') { // 'subs'
- switch (mnemonic[4]) {
- case 'd': { // 'subsd'
- mnemonic = "Subsd";
- break;}
- case 's': { // 'subss'
- mnemonic = "Subss";
- break;}
- default: break;
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'x': { // 'x'
- switch (mnemonic[1]) {
- case 'a': { // 'xa'
- if (mnemonic[2] == 'd') { // 'xad'
- if (mnemonic[3] == 'd') { // 'xadd'
- if (mnemonic[4] == 'l') { // 'xaddl'
- mnemonic = "Xadd";
- }
- }
- }
- break;}
- case 'l': { // 'xl'
- if (mnemonic[2] == 'a') { // 'xla'
- if (mnemonic[3] == 't') { // 'xlat'
- if (mnemonic[4] == 'b') { // 'xlatb'
- mnemonic = "Xlatb";
- }
- }
- }
- break;}
- case 'o': { // 'xo'
- if (mnemonic[2] == 'r') { // 'xor'
- if (mnemonic[3] == 'p') { // 'xorp'
- switch (mnemonic[4]) {
- case 'd': { // 'xorpd'
- mnemonic = "Xorpd";
- break;}
- case 's': { // 'xorps'
- mnemonic = "Xorps";
- break;}
- default: break;
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;
- case 6:
- switch (mnemonic[0]) {
- case 'a': { // 'a'
- if (mnemonic[1] == 'n') { // 'an'
- if (mnemonic[2] == 'd') { // 'and'
- if (mnemonic[3] == 'n') { // 'andn'
- if (mnemonic[4] == 'p') { // 'andnp'
- switch (mnemonic[5]) {
- case 'd': { // 'andnpd'
- mnemonic = "Andnpd";
- break;}
- case 's': { // 'andnps'
- mnemonic = "Andnpd";
- break;}
- default: break;
- }
- }
- }
- }
- }
- break;}
- case 'b': { // 'b'
- if (mnemonic[1] == 'o') { // 'bo'
- if (mnemonic[2] == 'u') { // 'bou'
- if (mnemonic[3] == 'n') { // 'boun'
- if (mnemonic[4] == 'd') { // 'bound'
- if (mnemonic[5] == 'l') { // 'boundl'
- mnemonic = "Bound";
- }
- }
- }
- }
- }
- break;}
- case 'c': { // 'c'
- if (mnemonic[1] == 'm') { // 'cm'
- if (mnemonic[2] == 'o') { // 'cmo'
- if (mnemonic[3] == 'v') { // 'cmov'
- switch (mnemonic[4]) {
- case 'a': { // 'cmova'
- if (mnemonic[5] == 'e') { // 'cmovae'
- mnemonic = "CMovae";
- }
- break;}
- case 'b': { // 'cmovb'
- if (mnemonic[5] == 'e') { // 'cmovbe'
- mnemonic = "CMovbe";
- }
- break;}
- case 'g': { // 'cmovg'
- if (mnemonic[5] == 'e') { // 'cmovge'
- mnemonic = "CMovge";
- }
- break;}
- case 'l': { // 'cmovl'
- if (mnemonic[5] == 'e') { // 'cmovle'
- mnemonic = "CMovle";
- }
- break;}
- case 'n': { // 'cmovn'
- switch (mnemonic[5]) {
- case 'a': { // 'cmovna'
- mnemonic = "CMovbe";
- break;}
- case 'b': { // 'cmovnb'
- mnemonic = "CMovae";
- break;}
- case 'c': { // 'cmovnc'
- mnemonic = "CMovae";
- break;}
- case 'e': { // 'cmovne'
- mnemonic = "CMovne";
- break;}
- case 'g': { // 'cmovng'
- mnemonic = "CMovle";
- break;}
- case 'l': { // 'cmovnl'
- mnemonic = "CMovge";
- break;}
- case 'o': { // 'cmovno'
- mnemonic = "CMovno";
- break;}
- case 'p': { // 'cmovnp'
- mnemonic = "CMovpo";
- break;}
- case 's': { // 'cmovns'
- mnemonic = "CMovns";
- break;}
- case 'z': { // 'cmovnz'
- mnemonic = "CMovne";
- break;}
- default: break;
- }
- break;}
- case 'p': { // 'cmovp'
- switch (mnemonic[5]) {
- case 'e': { // 'cmovpe'
- mnemonic = "CMovpe";
- break;}
- case 'o': { // 'cmovpo'
- mnemonic = "CMovpo";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'd': { // 'd'
- if (mnemonic[1] == 'a') { // 'da'
- if (mnemonic[2] == 't') { // 'dat'
- if (mnemonic[3] == 'a') { // 'data'
- if (mnemonic[4] == '1') { // 'data1'
- if (mnemonic[5] == '6') { // 'data16'
- mnemonic = "Data16";
- }
- }
- }
- }
- }
- break;}
- case 'e': { // 'e'
- if (mnemonic[1] == 'n') { // 'en'
- if (mnemonic[2] == 't') { // 'ent'
- if (mnemonic[3] == 'e') { // 'ente'
- if (mnemonic[4] == 'r') { // 'enter'
- if (mnemonic[5] == 'l') { // 'enterl'
- mnemonic = "Enter";
- }
- }
- }
- }
- }
- break;}
- case 'f': { // 'f'
- switch (mnemonic[1]) {
- case 'c': { // 'fc'
- if (mnemonic[2] == 'o') { // 'fco'
- if (mnemonic[3] == 'm') { // 'fcom'
- if (mnemonic[4] == 'p') { // 'fcomp'
- switch (mnemonic[5]) {
- case 'l': { // 'fcompl'
- mnemonic = "Fcomp";
- break;}
- case 'p': { // 'fcompp'
- mnemonic = "Fcompp";
- break;}
- case 's': { // 'fcomps'
- mnemonic = "Fcomp";
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'd': { // 'fd'
- if (mnemonic[2] == 'i') { // 'fdi'
- if (mnemonic[3] == 'v') { // 'fdiv'
- if (mnemonic[4] == 'r') { // 'fdivr'
- switch (mnemonic[5]) {
- case 'l': { // 'fdivrl'
- mnemonic = "Fdivr";
- break;}
- case 'p': { // 'fdivrp'
- mnemonic = "Fdivrp";
- break;}
- case 's': { // 'fdivrs'
- mnemonic = "Fdivr";
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'i': { // 'fi'
- switch (mnemonic[2]) {
- case 'a': { // 'fia'
- if (mnemonic[3] == 'd') { // 'fiad'
- if (mnemonic[4] == 'd') { // 'fiadd'
- if (mnemonic[5] == 'l') { // 'fiaddl'
- mnemonic = "Fiadd";
- }
- }
- }
- break;}
- case 'd': { // 'fid'
- if (mnemonic[3] == 'i') { // 'fidi'
- if (mnemonic[4] == 'v') { // 'fidiv'
- if (mnemonic[5] == 'l') { // 'fidivl'
- mnemonic = "Fidiv";
- }
- }
- }
- break;}
- case 'm': { // 'fim'
- if (mnemonic[3] == 'u') { // 'fimu'
- if (mnemonic[4] == 'l') { // 'fimul'
- if (mnemonic[5] == 'l') { // 'fimull'
- mnemonic = "Fimul";
- }
- }
- }
- break;}
- case 's': { // 'fis'
- if (mnemonic[3] == 't') { // 'fist'
- if (mnemonic[4] == 'p') { // 'fistp'
- if (mnemonic[5] == 'l') { // 'fistpl'
- mnemonic = "Fistp";
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'fl'
- if (mnemonic[2] == 'd') { // 'fld'
- if (mnemonic[3] == 'l') { // 'fldl'
- switch (mnemonic[4]) {
- case '2': { // 'fldl2'
- switch (mnemonic[5]) {
- case 'e': { // 'fldl2e'
- mnemonic = "Fldl2e";
- break;}
- case 't': { // 'fldl2t'
- mnemonic = "Fldl2t";
- break;}
- default: break;
- }
- break;}
- case 'g': { // 'fldlg'
- if (mnemonic[5] == '2') { // 'fldlg2'
- mnemonic = "Fldlg2";
- }
- break;}
- case 'n': { // 'fldln'
- if (mnemonic[5] == '2') { // 'fldln2'
- mnemonic = "Fldln2";
- }
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'n': { // 'fn'
- if (mnemonic[2] == 's') { // 'fns'
- if (mnemonic[3] == 't') { // 'fnst'
- switch (mnemonic[4]) {
- case 'c': { // 'fnstc'
- if (mnemonic[5] == 'w') { // 'fnstcw'
- mnemonic = "Fnstcw";
- }
- break;}
- case 's': { // 'fnsts'
- if (mnemonic[5] == 'w') { // 'fnstsw'
- mnemonic = "Fnstsw";
- }
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'p': { // 'fp'
- if (mnemonic[2] == 'a') { // 'fpa'
- if (mnemonic[3] == 't') { // 'fpat'
- if (mnemonic[4] == 'a') { // 'fpata'
- if (mnemonic[5] == 'n') { // 'fpatan'
- mnemonic = "Fpatan";
- }
- }
- }
- }
- break;}
- case 's': { // 'fs'
- switch (mnemonic[2]) {
- case 'c': { // 'fsc'
- if (mnemonic[3] == 'a') { // 'fsca'
- if (mnemonic[4] == 'l') { // 'fscal'
- if (mnemonic[5] == 'e') { // 'fscale'
- mnemonic = "Fscale";
- }
- }
- }
- break;}
- case 'u': { // 'fsu'
- if (mnemonic[3] == 'b') { // 'fsub'
- if (mnemonic[4] == 'r') { // 'fsubr'
- switch (mnemonic[5]) {
- case 'l': { // 'fsubrl'
- mnemonic = "Fsubr";
- break;}
- case 'p': { // 'fsubrp'
- mnemonic = "Fsubrp";
- break;}
- case 's': { // 'fsubrs'
- mnemonic = "Fsubr";
- break;}
- default: break;
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'fu'
- if (mnemonic[2] == 'c') { // 'fuc'
- if (mnemonic[3] == 'o') { // 'fuco'
- if (mnemonic[4] == 'm') { // 'fucom'
- switch (mnemonic[5]) {
- case 'i': { // 'fucomi'
- mnemonic = "Fucom";
- break;}
- case 'p': { // 'fucomp'
- mnemonic = "Fucomp";
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 'x': { // 'fx'
- if (mnemonic[2] == 's') { // 'fxs'
- if (mnemonic[3] == 'a') { // 'fxsa'
- if (mnemonic[4] == 'v') { // 'fxsav'
- if (mnemonic[5] == 'e') { // 'fxsave'
- mnemonic = "Fxsave";
- }
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 'l': { // 'l'
- if (mnemonic[1] == 'o') { // 'lo'
- if (mnemonic[2] == 'o') { // 'loo'
- if (mnemonic[3] == 'p') { // 'loop'
- if (mnemonic[4] == 'n') { // 'loopn'
- switch (mnemonic[5]) {
- case 'e': { // 'loopne'
- mnemonic = "Loopnz";
- break;}
- case 'z': { // 'loopnz'
- mnemonic = "Loopnz";
- break;}
- default: break;
- }
- }
- }
- }
- }
- break;}
- case 'm': { // 'm'
- if (mnemonic[1] == 'o') { // 'mo'
- if (mnemonic[2] == 'v') { // 'mov'
- switch (mnemonic[3]) {
- case 'a': { // 'mova'
- if (mnemonic[4] == 'p') { // 'movap'
- if (mnemonic[5] == 's') { // 'movaps'
- mnemonic = "Movaps";
- }
- }
- break;}
- case 'd': { // 'movd'
- if (mnemonic[4] == 'q') { // 'movdq'
- if (mnemonic[5] == 'u') { // 'movdqu'
- mnemonic = "Movdqu";
- }
- }
- break;}
- case 'l': { // 'movl'
- if (mnemonic[4] == 'p') { // 'movlp'
- if (mnemonic[5] == 'd') { // 'movlpd'
- mnemonic = "Movlpd";
- }
- }
- break;}
- case 'n': { // 'movn'
- if (mnemonic[4] == 't') { // 'movnt'
- if (mnemonic[5] == 'q') { // 'movntq'
- mnemonic = "Movntq";
- }
- }
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'p': { // 'p'
- if (mnemonic[1] == 'u') { // 'pu'
- if (mnemonic[2] == 's') { // 'pus'
- if (mnemonic[3] == 'h') { // 'push'
- switch (mnemonic[4]) {
- case 'a': { // 'pusha'
- if (mnemonic[5] == 'd') { // 'pushad'
- mnemonic = "Pushad";
- }
- break;}
- case 'f': { // 'pushf'
- switch (mnemonic[5]) {
- case 'd': { // 'pushfd'
- mnemonic = "Pushfd";
- break;}
- case 'q': { // 'pushfq'
- mnemonic = "Pushfq";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- case 's': { // 's'
- if (mnemonic[1] == 'e') { // 'se'
- if (mnemonic[2] == 't') { // 'set'
- if (mnemonic[3] == 'n') { // 'setn'
- switch (mnemonic[4]) {
- case 'b': { // 'setnb'
- if (mnemonic[5] == 'e') { // 'setnbe'
- mnemonic = "Seta";
- }
- break;}
- case 'g': { // 'setng'
- if (mnemonic[5] == 'e') { // 'setnge'
- mnemonic = "Setl";
- }
- break;}
- case 'l': { // 'setnl'
- if (mnemonic[5] == 'e') { // 'setnle'
- mnemonic = "Setg";
- }
- break;}
- default: break;
- }
- }
- }
- }
- break;}
- default: break;
- }
- break;
- case 7:
- switch (mnemonic[0]) {
- case 'c': { // 'c'
- if (mnemonic[1] == 'm') { // 'cm'
- switch (mnemonic[2]) {
- case 'o': { // 'cmo'
- if (mnemonic[3] == 'v') { // 'cmov'
- if (mnemonic[4] == 'n') { // 'cmovn'
- switch (mnemonic[5]) {
- case 'a': { // 'cmovna'
- if (mnemonic[6] == 'e') { // 'cmovnae'
- mnemonic = "CMovb";
- }
- break;}
- case 'b': { // 'cmovnb'
- if (mnemonic[6] == 'e') { // 'cmovnbe'
- mnemonic = "CMova";
- }
- break;}
- case 'g': { // 'cmovng'
- if (mnemonic[6] == 'e') { // 'cmovnge'
- mnemonic = "CMovl";
- }
- break;}
- case 'l': { // 'cmovnl'
- if (mnemonic[6] == 'e') { // 'cmovnle'
- mnemonic = "CMovg";
- }
- break;}
- default: break;
- }
- }
- }
- break;}
- case 'p': { // 'cmp'
- if (mnemonic[3] == 'x') { // 'cmpx'
- if (mnemonic[4] == 'c') { // 'cmpxc'
- if (mnemonic[5] == 'h') { // 'cmpxch'
- if (mnemonic[6] == 'g') { // 'cmpxchg'
- mnemonic = "Cmpxchg";
- }
- }
- }
- }
- break;}
- default: break;
- }
- }
- break;}
- case 'f': { // 'f'
- if (mnemonic[1] == 'u') { // 'fu'
- if (mnemonic[2] == 'c') { // 'fuc'
- if (mnemonic[3] == 'o') { // 'fuco'
- if (mnemonic[4] == 'm') { // 'fucom'
- if (mnemonic[5] == 'p') { // 'fucomp'
- if (mnemonic[6] == 'p') { // 'fucompp'
- mnemonic = "Fucompp";
- }
- }
- }
- }
- }
- }
- break;}
- case 'l': { // 'l'
- if (mnemonic[1] == 'd') { // 'ld'
- if (mnemonic[2] == 'm') { // 'ldm'
- if (mnemonic[3] == 'x') { // 'ldmx'
- if (mnemonic[4] == 'c') { // 'ldmxc'
- if (mnemonic[5] == 's') { // 'ldmxcs'
- if (mnemonic[6] == 'r') { // 'ldmxcsr'
- mnemonic = "Ldmxcsr";
- }
- }
- }
- }
- }
- }
- break;}
- case 'p': { // 'p'
- switch (mnemonic[1]) {
- case 'a': { // 'pa'
- if (mnemonic[2] == 'd') { // 'pad'
- if (mnemonic[3] == 'd') { // 'padd'
- if (mnemonic[4] == 'u') { // 'paddu'
- if (mnemonic[5] == 's') { // 'paddus'
- switch (mnemonic[6]) {
- case 'b': { // 'paddusb'
- mnemonic = "Paddus";
- break;}
- case 'w': { // 'paddusw'
- mnemonic = "Paddus";
- break;}
- default: break;
- }
- }
- }
- }
- }
- break;}
- case 'c': { // 'pc'
- if (mnemonic[2] == 'm') { // 'pcm'
- if (mnemonic[3] == 'p') { // 'pcmp'
- if (mnemonic[4] == 'e') { // 'pcmpe'
- if (mnemonic[5] == 'q') { // 'pcmpeq'
- switch (mnemonic[6]) {
- case 'b': { // 'pcmpeqb'
- mnemonic = "Pcmpeq";
- break;}
- case 'd': { // 'pcmpeqd'
- mnemonic = "Pcmpeq";
- break;}
- case 'w': { // 'pcmpeqw'
- mnemonic = "Pcmpeq";
- break;}
- default: break;
- }
- }
- }
- }
- }
- break;}
- case 's': { // 'ps'
- if (mnemonic[2] == 'u') { // 'psu'
- if (mnemonic[3] == 'b') { // 'psub'
- if (mnemonic[4] == 'u') { // 'psubu'
- if (mnemonic[5] == 's') { // 'psubus'
- switch (mnemonic[6]) {
- case 'b': { // 'psubusb'
- mnemonic = "Psubus";
- break;}
- case 'w': { // 'psubusw'
- mnemonic = "Psubus";
- break;}
- default: break;
- }
- }
- }
- }
- }
- break;}
- default: break;
- }
- break;}
- case 's': { // 's'
- if (mnemonic[1] == 't') { // 'st'
- if (mnemonic[2] == 'm') { // 'stm'
- if (mnemonic[3] == 'x') { // 'stmx'
- if (mnemonic[4] == 'c') { // 'stmxc'
- if (mnemonic[5] == 's') { // 'stmxcs'
- if (mnemonic[6] == 'r') { // 'stmxcsr'
- mnemonic = "Stmxcsr";
- }
- }
- }
- }
- }
- }
- break;}
- case 'u': { // 'u'
- if (mnemonic[1] == 'c') { // 'uc'
- if (mnemonic[2] == 'o') { // 'uco'
- if (mnemonic[3] == 'm') { // 'ucom'
- if (mnemonic[4] == 'i') { // 'ucomi'
- if (mnemonic[5] == 's') { // 'ucomis'
- switch (mnemonic[6]) {
- case 'd': { // 'ucomisd'
- mnemonic = "Ucomisd";
- break;}
- case 's': { // 'ucomiss'
- mnemonic = "Ucomiss";
- break;}
- default: break;
- }
- }
- }
- }
- }
- }
- break;}
- default: break;
- }
- break;
- case 9:
- if (mnemonic[0] == 'c') { // 'c'
- if (mnemonic[1] == 'm') { // 'cm'
- if (mnemonic[2] == 'p') { // 'cmp'
- if (mnemonic[3] == 'x') { // 'cmpx'
- if (mnemonic[4] == 'c') { // 'cmpxc'
- if (mnemonic[5] == 'h') { // 'cmpxch'
- if (mnemonic[6] == 'g') { // 'cmpxchg'
- if (mnemonic[7] == '8') { // 'cmpxchg8'
- if (mnemonic[8] == 'b') { // 'cmpxchg8b'
- mnemonic = "Cmpxchg8b";
- }
- }
- }
- }
- }
- }
- }
- }
- }
- break;
- default: break;
- }
-}
SgAsmArmInstruction* createArmInstruction(uint64_t address, const std::string& mnemonic) {
SgAsmArmInstruction* insn = new SgAsmArmInstruction(address, mnemonic, arm_unknown_instruction);
switch (mnemonic.size()) {
@@ -5402,246 +2826,3 @@
}
return insn;
}
-void normalizeArmMnemonic(std::string& mnemonic) {
- switch (mnemonic.size()) {
- case 1:
- if (mnemonic[0] == 'b') { // 'b'
- mnemonic = "B";
- }
- break;
- case 2:
- if (mnemonic[0] == 'b') { // 'b'
- switch (mnemonic[1]) {
- case 'l': { // 'bl'
- mnemonic = "Bl";
- break;}
- case 'x': { // 'bx'
- mnemonic = "Bx";
- break;}
- default: break;
- }
- }
- break;
- case 3:
- switch (mnemonic[0]) {
- case 'a': { // 'a'
- switch (mnemonic[1]) {
- case 'd': { // 'ad'
- switch (mnemonic[2]) {
- case 'c': { // 'adc'
- mnemonic = "Adc";
- break;}
- case 'd': { // 'add'
- mnemonic = "Add";
- break;}
- default: break;
- }
- break;}
- case 'n': { // 'an'
- if (mnemonic[2] == 'd') { // 'and'
- mnemonic = "And";
- }
- break;}
- default: break;
- }
- break;}
- case 'b': { // 'b'
- if (mnemonic[1] == 'i') { // 'bi'
- if (mnemonic[2] == 'c') { // 'bic'
- mnemonic = "Bic";
- }
- }
- break;}
- case 'c': { // 'c'
- if (mnemonic[1] == 'm') { // 'cm'
- switch (mnemonic[2]) {
- case 'n': { // 'cmn'
- mnemonic = "Cmn";
- break;}
- case 'p': { // 'cmp'
- mnemonic = "Cmp";
- break;}
- default: break;
- }
- }
- break;}
- case 'e': { // 'e'
- if (mnemonic[1] == 'o') { // 'eo'
- if (mnemonic[2] == 'r') { // 'eor'
- mnemonic = "Eor";
- }
- }
- break;}
- case 'l': { // 'l'
- if (mnemonic[1] == 'd') { // 'ld'
- switch (mnemonic[2]) {
- case 'm': { // 'ldm'
- mnemonic = "Ldm";
- break;}
- case 'r': { // 'ldr'
- mnemonic = "Ldr";
- break;}
- default: break;
- }
- }
- break;}
- case 'm': { // 'm'
- switch (mnemonic[1]) {
- case 'l': { // 'ml'
- if (mnemonic[2] == 'a') { // 'mla'
- mnemonic = "Mla";
- }
- break;}
- case 'o': { // 'mo'
- if (mnemonic[2] == 'v') { // 'mov'
- mnemonic = "Mov";
- }
- break;}
- case 'r': { // 'mr'
- if (mnemonic[2] == 's') { // 'mrs'
- mnemonic = "Mrs";
- }
- break;}
- case 's': { // 'ms'
- if (mnemonic[2] == 'r') { // 'msr'
- mnemonic = "Msr";
- }
- break;}
- case 'u': { // 'mu'
- if (mnemonic[2] == 'l') { // 'mul'
- mnemonic = "Mul";
- }
- break;}
- case 'v': { // 'mv'
- if (mnemonic[2] == 'n') { // 'mvn'
- mnemonic = "Mvn";
- }
- break;}
- default: break;
- }
- break;}
- case 'o': { // 'o'
- if (mnemonic[1] == 'r') { // 'or'
- if (mnemonic[2] == 'r') { // 'orr'
- mnemonic = "Orr";
- }
- }
- break;}
- case 'r': { // 'r'
- if (mnemonic[1] == 's') { // 'rs'
- switch (mnemonic[2]) {
- case 'b': { // 'rsb'
- mnemonic = "Rsb";
- break;}
- case 'c': { // 'rsc'
- mnemonic = "Rsc";
- break;}
- default: break;
- }
- }
- break;}
- case 's': { // 's'
- switch (mnemonic[1]) {
- case 'b': { // 'sb'
- if (mnemonic[2] == 'c') { // 'sbc'
- mnemonic = "Sbc";
- }
- break;}
- case 't': { // 'st'
- switch (mnemonic[2]) {
- case 'm': { // 'stm'
- mnemonic = "Stm";
- break;}
- case 'r': { // 'str'
- mnemonic = "Str";
- break;}
- default: break;
- }
- break;}
- case 'u': { // 'su'
- if (mnemonic[2] == 'b') { // 'sub'
- mnemonic = "Sub";
- }
- break;}
- case 'w': { // 'sw'
- switch (mnemonic[2]) {
- case 'i': { // 'swi'
- mnemonic = "Swi";
- break;}
- case 'p': { // 'swp'
- mnemonic = "Swp";
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;}
- case 't': { // 't'
- switch (mnemonic[1]) {
- case 'e': { // 'te'
- if (mnemonic[2] == 'q') { // 'teq'
- mnemonic = "Teq";
- }
- break;}
- case 's': { // 'ts'
- if (mnemonic[2] == 't') { // 'tst'
- mnemonic = "Tst";
- }
- break;}
- default: break;
- }
- break;}
- default: break;
- }
- break;
- case 5:
- switch (mnemonic[0]) {
- case 's': { // 's'
- if (mnemonic[1] == 'm') { // 'sm'
- switch (mnemonic[2]) {
- case 'l': { // 'sml'
- if (mnemonic[3] == 'a') { // 'smla'
- if (mnemonic[4] == 'l') { // 'smlal'
- mnemonic = "Smlal";
- }
- }
- break;}
- case 'u': { // 'smu'
- if (mnemonic[3] == 'l') { // 'smul'
- if (mnemonic[4] == 'l') { // 'smull'
- mnemonic = "Smull";
- }
- }
- break;}
- default: break;
- }
- }
- break;}
- case 'u': { // 'u'
- if (mnemonic[1] == 'm') { // 'um'
- switch (mnemonic[2]) {
- case 'l': { // 'uml'
- if (mnemonic[3] == 'a') { // 'umla'
- if (mnemonic[4] == 'l') { // 'umlal'
- mnemonic = "Umlal";
- }
- }
- break;}
- case 'u': { // 'umu'
- if (mnemonic[3] == 'l') { // 'umul'
- if (mnemonic[4] == 'l') { // 'umull'
- mnemonic = "Umull";
- }
- }
- break;}
- default: break;
- }
- }
- break;}
- default: break;
- }
- break;
- default: break;
- }
-}
Modified: trunk/src/frontend/BinaryDisassembly/make-decision-tree.tcl
===================================================================
--- trunk/src/frontend/BinaryDisassembly/make-decision-tree.tcl 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/make-decision-tree.tcl 2008-11-12 23:49:35 UTC (rev 120)
@@ -5,7 +5,12 @@
proc doLeaf {insn platform} {
global astNode$platform
if {[info exists astNode${platform}($insn)]} {
- return [format "insn->set_kind([string tolower $platform]_[string tolower [set astNode${platform}($insn)]]);"]
+ set result ""
+ append result "insn->set_kind([string tolower $platform]_[string tolower [set astNode${platform}($insn)]]);"
+ if {$insn != [string tolower [set astNode${platform}($insn)]]} {
+ append result [format " insn->set_mnemonic(\"[string tolower [set astNode${platform}($insn)]]\");"]
+ }
+ return $result
} else {
return [format ";"]
}
@@ -72,84 +77,6 @@
}
-##BEGIN SUPPORT FOR STRING MNEMONIC NORMALIZATION
-##AS(10/04/08) This is necessary for the work where we compare
-##the output of ROSE with the output of IDA Pro.
-
-proc doLeafNormalize {insn platform} {
- global astNode$platform
- if {[info exists astNode${platform}($insn)]} {
- return [format "mnemonic = \"[set astNode${platform}($insn)]\";"]
- } else {
- return [format ";"]
- }
-}
-
-proc makeSwitchNormalize {len prefix platform outFile indent} {
- global astNode$platform
- set offset [string length $prefix]
- if {$offset == $len} {puts $outFile "${indent}[doLeafNormalize $prefix $platform]"; return}
- foreach str [array names astNode$platform] {
- if {[string range $str 0 [expr {$offset - 1}]] != $prefix} {continue}
- if {[string length $str] != $len} {continue}
- set c [string index $str $offset]
- if {$c == ""} {continue}
- lappend firstChar($c) $str
- }
- if {[array size firstChar] == 0} {
- error "Bad prefix '$prefix' for length $len"
- } elseif {[array size firstChar] == 1} {
- puts $outFile "${indent}if (mnemonic\[$offset\] == '$c') { // '$prefix$c'"
- makeSwitchNormalize $len "$prefix$c" $platform $outFile "${indent} "
- puts $outFile "${indent}}"
- } else {
- puts $outFile "${indent}switch (mnemonic\[$offset\]) {"
- foreach c [lsort [array names firstChar]] {
- puts $outFile "${indent} case '$c': { // '$prefix$c'"
- makeSwitchNormalize $len "$prefix$c" $platform $outFile "${indent} "
- puts $outFile "${indent} break;}"
- }
- puts $outFile "${indent} default: break;"
- puts $outFile "${indent}}"
- }
-}
-
-
-proc makeSwitchForLanguageNormalizeToString {platform outFile} {
- global astNode$platform
- set instructionTable [open "RoseBin_instruction_table_[string tolower $platform]" r]
- while {1} {
- set line [split [gets $instructionTable] " "]
- if {[eof $instructionTable]} {break}
- if {[lindex $line end-1] != "->"} {error "Incorrect line format: should be mnemonic ... -> AstNodeName" line}
- foreach mnemonic [lrange $line 0 end-2] {
- set astNode${platform}($mnemonic) [lindex $line end]
- }
- }
- close $instructionTable
-
- foreach mnemonic [array names astNode$platform] {
- set byLength([string length $mnemonic]) x
- }
-
- puts $outFile "void normalize${platform}Mnemonic(std::string& mnemonic) {"
- #puts $outFile " std::string returnMnemonic = \"unknown_instruction\";"
- puts $outFile " switch (mnemonic.size()) {"
- foreach len [lsort -integer [array names byLength]] {
- puts $outFile " case $len:"
- makeSwitchNormalize $len "" $platform $outFile " "
- puts $outFile " break;"
- }
- puts $outFile " default: break;"
- puts $outFile " }"
- #puts $outFile " return returnMnemonic;"
- puts $outFile "}"
-}
-
-## END CODE FOR SUPPORTING NORMALIZATION OF MNEMONICS
-
-
-
set outFile [open "instructionDispatch.cpp" w]
puts $outFile "#include \"rose.h\""
puts $outFile "#include <stdint.h>"
@@ -158,10 +85,5 @@
puts $outFile "// ************************************"
foreach platform {x86 Arm} {
makeSwitchForLanguage $platform $outFile
-
- ##Call code for generation the function to normalize mnemnoic strings
- ##necessary for work which compares ROSE disassembler with IDA Pro.
- makeSwitchForLanguageNormalizeToString $platform $outFile
-
}
close $outFile
Modified: trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnum.h
===================================================================
--- trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnum.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnum.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -153,9 +153,7 @@
powerpc_fnmsub, // Floating Negative Multiply-Subtract
powerpc_fnmsub_record, // Floating Negative Multiply-Subtract
powerpc_fnmsubs, // Floating Negative Multiply-Subtract Single
- powerpc_fnmsubs_record, // Floating Negative Multiply-Subtract Single
-
- // DQ (11/1/2008): Added PowerPC 440 BGL (Double Hummer) specific floating point instructions.
+ powerpc_fnmsubs_record, // Floating Negative Multiply-Subtract Single
powerpc_fpmul, // FP2 Floating Parallel Multiply (BGL specific)
powerpc_fxmul, // FP2 Floating Cross Multiply (BGL specific)
powerpc_fxpmul, // FP2 Floating Cross Copy-Primary Multiply (BGL specific)
@@ -227,8 +225,7 @@
powerpc_fxcpnmsub,
powerpc_fxcxnsma,
powerpc_fxcsnmsub,
- powerpc_fxcxnms,
-
+ powerpc_fxcxnms, // Last FP2 specific enum value
powerpc_fre, // Floating Reciprocal Estimate Single (optional)
powerpc_fre_record, // Floating Reciprocal Estimate Single (optional)
powerpc_fres, // Floating Reciprocal Estimate Single (optional)
Modified: trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnumPrinter.C
===================================================================
--- trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnumPrinter.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/powerpcInstructionEnumPrinter.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -148,8 +148,6 @@
"powerpc_fnmsub.",
"powerpc_fnmsubs",
"powerpc_fnmsubs.",
-"",
-"",
"powerpc_fpmul",
"powerpc_fxmul",
"powerpc_fxpmul",
@@ -222,7 +220,6 @@
"powerpc_fxcxnsma",
"powerpc_fxcsnmsub",
"powerpc_fxcxnms",
-"",
"powerpc_fre",
"powerpc_fre.",
"powerpc_fres",
Modified: trunk/src/frontend/BinaryDisassembly/x86InstructionProperties.C
===================================================================
--- trunk/src/frontend/BinaryDisassembly/x86InstructionProperties.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/BinaryDisassembly/x86InstructionProperties.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -457,12 +457,7 @@
if (exprs.size() != 1) return false;
SgAsmExpression* dest = exprs[0];
if (!isSgAsmValueExpression(dest)) return false;
- switch (dest->variantT()) {
- case V_SgAsmWordValueExpression: addr = isSgAsmWordValueExpression(dest)->get_value(); break;
- case V_SgAsmDoubleWordValueExpression: addr = isSgAsmDoubleWordValueExpression(dest)->get_value(); break;
- case V_SgAsmQuadWordValueExpression: addr = isSgAsmQuadWordValueExpression(dest)->get_value(); break;
- default: return false;
- }
+ addr = SageInterface::getAsmConstant(isSgAsmValueExpression(dest));
return true;
}
default: return false;
Modified: trunk/src/frontend/CxxFrontend/Makefile.am
===================================================================
--- trunk/src/frontend/CxxFrontend/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/CxxFrontend/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -20,4 +20,4 @@
clean-local:
-rm -rf .libs/
-EXTRA_DIST = roseBinaryEDG-i686-apple-darwin9.5.0-b0847234cb4f3e1afaefa965207df2c0.tar.gz roseBinaryEDG-i686-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz roseBinaryEDG-x86_64-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz
+EXTRA_DIST = roseBinaryEDG-i686-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz roseBinaryEDG-x86_64-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
Deleted: trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-apple-darwin9.5.0-b0847234cb4f3e1afaefa965207df2c0.tar.gz
===================================================================
(Binary files differ)
Deleted: trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz
===================================================================
(Binary files differ)
Added: trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
===================================================================
(Binary files differ)
Property changes on: trunk/src/frontend/CxxFrontend/roseBinaryEDG-i686-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
___________________________________________________________________
Name: svn:mime-type
+ application/x-gzip
Deleted: trunk/src/frontend/CxxFrontend/roseBinaryEDG-x86_64-pc-linux-gnu-b0847234cb4f3e1afaefa965207df2c0.tar.gz
===================================================================
(Binary files differ)
Added: trunk/src/frontend/CxxFrontend/roseBinaryEDG-x86_64-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
===================================================================
(Binary files differ)
Property changes on: trunk/src/frontend/CxxFrontend/roseBinaryEDG-x86_64-pc-linux-gnu-b748587de57a44c0e686aff4093bdc70.tar.gz
___________________________________________________________________
Name: svn:mime-type
+ application/x-gzip
Modified: trunk/src/frontend/Disassemblers/disassemblerCommon.C
===================================================================
--- trunk/src/frontend/Disassemblers/disassemblerCommon.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/Disassemblers/disassemblerCommon.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -406,7 +406,7 @@
entryPoint = DOS_header->get_e_ip();
}
- printf ("In Disassembler::disassembleInterpretation(): entryPoint = %p \n",(void*)entryPoint);
+ // printf ("In Disassembler::disassembleInterpretation(): entryPoint = %p \n",(void*)entryPoint);
basicBlockStarts[entryPoint] = true;
@@ -493,7 +493,7 @@
MapGlobalVariables t;
t.traverse(interp, preorder);
- printf ("Number of global functions = %zu \n",t.globalFunctionMap.size());
+ // printf ("Number of global functions = %zu \n",t.globalFunctionMap.size());
std::string funcName="none";
SgAsmBlock* blk = PutInstructionsIntoBasicBlocks::putInstructionsIntoBasicBlocks(basicBlocks, insns);
@@ -501,7 +501,7 @@
// are only considered if they are at the start of a basic block
const SgAsmStatementPtrList& computedBasicBlocks = blk->get_statementList();
- printf ("computedBasicBlocks.size() = %zu \n",computedBasicBlocks.size());
+ // printf ("computedBasicBlocks.size() = %zu \n",computedBasicBlocks.size());
for (size_t i = 0; i < computedBasicBlocks.size(); ++i)
{
// DQ (10/14/2008): Is this the sort of coding style that we want to have in a for loop?
@@ -616,8 +616,9 @@
// DQ (10/16/2008): This outputs a hexidecimal number at times!
// (tps - 2Jun08) : commented out for now until we investigate this further... breaking the current function analysis
// cerr << ">> Number of FunctionStarts: " << functionStarts.size() << endl;
- printf ("Number of FunctionStarts: %zu \n",functionStarts.size());
+ // printf ("Number of FunctionStarts: %zu \n",functionStarts.size());
+
blk = PutInstructionsIntoBasicBlocks::putInstructionsIntoFunctions(blk, functionStarts);
interp->set_global_block(blk);
blk->set_parent(interp);
Modified: trunk/src/frontend/Disassemblers/powerpcDisassembler.C
===================================================================
--- trunk/src/frontend/Disassemblers/powerpcDisassembler.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/Disassemblers/powerpcDisassembler.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,49 +13,127 @@
#define DEBUG_OPCODES 0
#define DEBUG_BRANCH_LOGIC 0
+// These are macros to make them look like constants while they are really
+// function calls
+#define BYTET (SgAsmTypeByte::createType())
+#define WORDT (SgAsmTypeWord::createType())
+#define DWORDT (SgAsmTypeDoubleWord::createType())
+#define QWORDT (SgAsmTypeQuadWord::createType())
+#define FLOATT (SgAsmTypeSingleFloat::createType())
+#define DOUBLET (SgAsmTypeDoubleFloat::createType())
+#define V2DWORDT (SgAsmTypeVector::createType(2, DWORDT))
+#define V2FLOATT (SgAsmTypeVector::createType(2, FLOATT))
+#define V2DOUBLET (SgAsmTypeVector::createType(2, DOUBLET))
namespace PowerpcDisassembler
{
+ SgAsmPowerpcRegisterReferenceExpression* makeRegister(PowerpcRegisterClass reg_class, int reg_number, PowerpcConditionRegisterAccessGranularity reg_grainularity = powerpc_condreggranularity_whole );
+
struct SingleInstructionDisassembler
{
const Parameters& p;
uint32_t insn;
std::set<uint64_t>* knownSuccessorsReturn;
- // PowerPC instructions don't have conditions like ARM, as I understand it.
- // PowerpcInstructionCondition cond;
- // SingleInstructionDisassembler(const Parameters& p, uint32_t insn, std::set<uint64_t>* knownSuccessorsReturn): p(p), insn(insn), knownSuccessorsReturn(knownSuccessorsReturn), cond(powerpc_cond_unknown) {}
-
SingleInstructionDisassembler(const Parameters& p, uint32_t insn, std::set<uint64_t>* knownSuccessorsReturn): p(p), insn(insn), knownSuccessorsReturn(knownSuccessorsReturn) {}
- SgAsmPowerpcInstruction* disassemble(const uint8_t* const instructionList, size_t positionInVector);
+ // Helper function to use field definitions (counted with bits from left and inclusive on both sides) from manual
+ template <size_t First, size_t Last> uint32_t fld() const {
+ return (insn >> (31 - Last)) & (IntegerOps::GenMask<uint32_t, Last - First + 1>::value);
+ }
+ // Decoded fields from section 1.7.16 of the v2.01 UISA
+ bool AA() const {return fld<30, 30>();}
+ SgAsmPowerpcRegisterReferenceExpression* BA() const {return makeRegister(powerpc_regclass_cr, fld<11, 15>(), powerpc_condreggranularity_bit);}
+ SgAsmPowerpcRegisterReferenceExpression* BB() const {return makeRegister(powerpc_regclass_cr, fld<16, 20>(), powerpc_condreggranularity_bit);}
+ uint64_t BD() const {return IntegerOps::signExtend<16, 64>((uint64_t)insn & 0xfffc);}
+ SgAsmPowerpcRegisterReferenceExpression* BF_cr() const {return makeRegister(powerpc_regclass_cr, fld<6, 8>(), powerpc_condreggranularity_field);}
+ SgAsmPowerpcRegisterReferenceExpression* BF_fpscr() const {return makeRegister(powerpc_regclass_fpscr, fld<6, 8>(), powerpc_condreggranularity_field);}
+ SgAsmPowerpcRegisterReferenceExpression* BFA_cr() const {return makeRegister(powerpc_regclass_cr, fld<11, 13>(), powerpc_condreggranularity_field);}
+ SgAsmPowerpcRegisterReferenceExpression* BFA_fpscr() const {return makeRegister(powerpc_regclass_fpscr, fld<11, 13>(), powerpc_condreggranularity_field);}
+ SgAsmValueExpression* BH() const {return makeByteValue(fld<19, 20>());}
+ SgAsmPowerpcRegisterReferenceExpression* BI() const {return BA();}
+ SgAsmValueExpression* BO() const {return makeByteValue(fld<6, 10>());}
+ SgAsmPowerpcRegisterReferenceExpression* BT() const {return makeRegister(powerpc_regclass_cr, fld<6, 10>(), powerpc_condreggranularity_bit);}
+ SgAsmValueExpression* D() const {return makeQWordValue(IntegerOps::signExtend<16, 64>((uint64_t)fld<16, 31>()));}
+ SgAsmValueExpression* DS() const {return makeQWordValue(IntegerOps::signExtend<16, 64>((uint64_t)fld<16, 31>() & 0xfffc));}
+ SgAsmValueExpression* FLM() const {return makeByteValue(fld<7, 14>());}
+ SgAsmPowerpcRegisterReferenceExpression* FRA() const {return makeRegister(powerpc_regclass_fpr, fld<11, 15>());}
+ SgAsmPowerpcRegisterReferenceExpression* FRB() const {return makeRegister(powerpc_regclass_fpr, fld<16, 20>());}
+ SgAsmPowerpcRegisterReferenceExpression* FRC() const {return makeRegister(powerpc_regclass_fpr, fld<21, 25>());}
+ SgAsmPowerpcRegisterReferenceExpression* FRS() const {return makeRegister(powerpc_regclass_fpr, fld<6, 10>());}
+ SgAsmPowerpcRegisterReferenceExpression* FRT() const {return FRS();}
+ SgAsmValueExpression* FXM() const {return makeByteValue(fld<12, 19>());}
+
+ SgAsmValueExpression* L_10() const {return makeByteValue(fld<10, 10>());}
+ SgAsmValueExpression* L_15() const {return makeByteValue(fld<15, 15>());}
+ uint8_t L_sync() const {return fld<9, 10>();}
+ SgAsmValueExpression* LEV() const {return makeByteValue(fld<20, 26>());}
+ uint64_t LI() const {return IntegerOps::signExtend<26, 64>(uint64_t(fld<6, 29>() * 4));}
+ bool LK() const {return fld<31, 31>();}
+ SgAsmValueExpression* MB_32bit() const {return makeByteValue(fld<21, 25>());}
+ SgAsmValueExpression* ME_32bit() const {return makeByteValue(fld<26, 30>());}
+ SgAsmValueExpression* MB_64bit() const {return makeByteValue(fld<21, 26>());} // FIXME check for splitting
+ SgAsmValueExpression* ME_64bit() const {return makeByteValue(fld<21, 26>());} // FIXME check for splitting
+ SgAsmValueExpression* NB() const {return makeByteValue(fld<16, 20>() == 0 ? 32 : fld<16, 20>());}
+ bool OE() const {return fld<21, 21>();}
+ SgAsmPowerpcRegisterReferenceExpression* RA() const {return makeRegister(powerpc_regclass_gpr, fld<11, 15>());}
+ SgAsmExpression* RA_or_zero() const {return fld<11, 15>() == 0 ? (SgAsmExpression*)makeByteValue(0) : RA();}
+ SgAsmPowerpcRegisterReferenceExpression* RB() const {return makeRegister(powerpc_regclass_gpr, fld<16, 20>());}
+ bool Rc() const {return fld<31, 31>();}
+ SgAsmPowerpcRegisterReferenceExpression* RS() const {return makeRegister(powerpc_regclass_gpr, fld<6, 10>());}
+ SgAsmPowerpcRegisterReferenceExpression* RT() const {return RS();}
+ SgAsmValueExpression* SH_32bit() const {return makeByteValue(fld<16, 20>());}
+ SgAsmValueExpression* SH_64bit() const {return makeByteValue(fld<16, 20>() + fld<30, 30>() * 32);} // FIXME check
+ SgAsmValueExpression* SI() const {return D();}
+ SgAsmPowerpcRegisterReferenceExpression* SPR() const {return makeRegister(powerpc_regclass_spr, fld<16, 20>() * 32 + fld<11, 15>());}
+ SgAsmPowerpcRegisterReferenceExpression* SR() const {return makeRegister(powerpc_regclass_sr, fld<12, 15>());}
+ SgAsmPowerpcRegisterReferenceExpression* TBR() const {return makeRegister(powerpc_regclass_tbr, fld<16, 20>() * 32 + fld<11, 15>());}
+ SgAsmValueExpression* TH() const {return makeByteValue(fld<9, 10>());}
+ SgAsmValueExpression* TO() const {return makeByteValue(fld<6, 10>());}
+ SgAsmValueExpression* U() const {return makeByteValue(fld<16, 19>());}
+ SgAsmValueExpression* UI() const {return makeQWordValue(fld<16, 31>());}
+
+ SgAsmMemoryReferenceExpression* memref(SgAsmType* t) const {
+ return makeMemoryReference(makeAdd(RA_or_zero(), D()), NULL, t);
+ }
+ SgAsmMemoryReferenceExpression* memrefx(SgAsmType* t) const {
+ return makeMemoryReference(makeAdd(RA_or_zero(), RB()), NULL, t);
+ }
+ SgAsmMemoryReferenceExpression* memrefu(SgAsmType* t) const {
+ if (fld<11, 15>() == 0) throw BadInstruction();
+ return makeMemoryReference(makeAdd(RA(), D()), NULL, t);
+ }
+ SgAsmMemoryReferenceExpression* memrefux(SgAsmType* t) const {
+ if (fld<11, 15>() == 0) throw BadInstruction();
+ return makeMemoryReference(makeAdd(RA(), RB()), NULL, t);
+ }
+
// There are 15 different forms of PowerPC instructions, but all are 32-bit (fixed length instruction set).
- // SgAsmPowerpcInstruction* decode_I_formInstruction(const uint8_t* const instructionList, size_t positionInVector);
SgAsmPowerpcInstruction* decode_I_formInstruction();
SgAsmPowerpcInstruction* decode_B_formInstruction();
SgAsmPowerpcInstruction* decode_SC_formInstruction();
- SgAsmPowerpcInstruction* decode_D_formInstruction();
SgAsmPowerpcInstruction* decode_DS_formInstruction();
- SgAsmPowerpcInstruction* decode_X_formInstruction();
+ SgAsmPowerpcInstruction* decode_X_formInstruction_00();
+ SgAsmPowerpcInstruction* decode_X_formInstruction_1F();
+ SgAsmPowerpcInstruction* decode_X_formInstruction_3F();
SgAsmPowerpcInstruction* decode_XL_formInstruction();
- SgAsmPowerpcInstruction* decode_XFX_formInstruction();
- SgAsmPowerpcInstruction* decode_XFL_formInstruction();
SgAsmPowerpcInstruction* decode_XS_formInstruction();
- SgAsmPowerpcInstruction* decode_XO_formInstruction();
- SgAsmPowerpcInstruction* decode_A_formInstruction();
- SgAsmPowerpcInstruction* decode_M_formInstruction();
+ SgAsmPowerpcInstruction* decode_A_formInstruction_00();
+ SgAsmPowerpcInstruction* decode_A_formInstruction_04();
+ SgAsmPowerpcInstruction* decode_A_formInstruction_3B();
+ SgAsmPowerpcInstruction* decode_A_formInstruction_3F();
SgAsmPowerpcInstruction* decode_MD_formInstruction();
SgAsmPowerpcInstruction* decode_MDS_formInstruction();
SgAsmQuadWordValueExpression* makeBranchTarget( uint64_t targetAddr ) const;
+
+
+ SgAsmPowerpcInstruction* disassemble();
};
SgAsmPowerpcInstruction* makeInstructionWithoutOperands(uint64_t address, const std::string& mnemonic, PowerpcInstructionKind kind, uint32_t insn);
- // SgAsmPowerpcRegisterReferenceExpression* makeRegister(uint8_t reg);
- SgAsmPowerpcRegisterReferenceExpression* makeRegister(PowerpcRegisterClass reg_class, int reg_number, PowerpcConditionRegisterAccessGranularity reg_grainularity = powerpc_condreggranularity_whole );
-
// SgAsmPowerpcInstruction* disassemble(const Parameters& p, const uint8_t* const insn, const uint64_t insnSize, size_t positionInVector, set<uint64_t>* knownSuccessorsReturn);
// SgAsmPowerpcInstruction* disassemble(const Parameters& p, const uint32_t* const insn, const uint64_t insnSize, size_t positionInVector, set<uint64_t>* knownSuccessorsReturn);
// SgAsmPowerpcInstruction* disassemble(const Parameters& p, const uint32_t insn, const uint64_t insnSize, size_t positionInVector, set<uint64_t>* knownSuccessorsReturn);
@@ -65,25 +143,25 @@
}
#define MAKE_INSN0(Mne) (makeInstructionWithoutOperands(p.ip, #Mne, powerpc_##Mne, insn))
+#define MAKE_INSN0_RC(Mne) (Rc() ? MAKE_INSN0(Mne##_record) : MAKE_INSN0(Mne))
+#define MAKE_INSN0_O_RC(Mne) (OE() ? MAKE_INSN0_RC(Mne##o) : MAKE_INSN0_RC(Mne))
#define MAKE_INSN1(Mne, Op1) (appendOperand(MAKE_INSN0(Mne), (Op1)))
+#define MAKE_INSN1_RC(Mne, Op1) (appendOperand(MAKE_INSN0_RC(Mne), (Op1)))
+#define MAKE_INSN1_O_RC(Mne, Op1) (appendOperand(MAKE_INSN0_O_RC(Mne), (Op1)))
#define MAKE_INSN2(Mne, Op1, Op2) (appendOperand(MAKE_INSN1(Mne, Op1), (Op2)))
+#define MAKE_INSN2_RC(Mne, Op1, Op2) (appendOperand(MAKE_INSN1_RC(Mne, Op1), (Op2)))
+#define MAKE_INSN2_O_RC(Mne, Op1, Op2) (appendOperand(MAKE_INSN1_O_RC(Mne, Op1), (Op2)))
#define MAKE_INSN3(Mne, Op1, Op2, Op3) (appendOperand(MAKE_INSN2(Mne, Op1, Op2), (Op3)))
+#define MAKE_INSN3_RC(Mne, Op1, Op2, Op3) (appendOperand(MAKE_INSN2_RC(Mne, Op1, Op2), (Op3)))
+#define MAKE_INSN3_O_RC(Mne, Op1, Op2, Op3) (appendOperand(MAKE_INSN2_O_RC(Mne, Op1, Op2), (Op3)))
#define MAKE_INSN4(Mne, Op1, Op2, Op3, Op4) (appendOperand(MAKE_INSN3(Mne, Op1, Op2, Op3), (Op4)))
+#define MAKE_INSN4_RC(Mne, Op1, Op2, Op3, Op4) (appendOperand(MAKE_INSN3_RC(Mne, Op1, Op2, Op3), (Op4)))
#define MAKE_INSN5(Mne, Op1, Op2, Op3, Op4, Op5) (appendOperand(MAKE_INSN4(Mne, Op1, Op2, Op3, Op4), (Op5)))
+#define MAKE_INSN5_RC(Mne, Op1, Op2, Op3, Op4, Op5) (appendOperand(MAKE_INSN4_RC(Mne, Op1, Op2, Op3, Op4), (Op5)))
SgAsmQuadWordValueExpression*
PowerpcDisassembler::SingleInstructionDisassembler::makeBranchTarget ( uint64_t targetAddr ) const
{
- // int32_t val = insn & 0xFFFFFF;
- // val <<= 8;
- // val >>= 6; // Arithmetic shift to copy highest bit of immediate
-#if 0
- uint32_t val_temp = (LI >= (1U << 23)) ? LI - (1U << 24) : LI;
- val_temp <<= 2;
-
- uint32_t targetAddr = p.ip + val_temp;
-#endif
-
if (knownSuccessorsReturn) knownSuccessorsReturn->insert(targetAddr);
return makeQWordValue(targetAddr);
}
@@ -102,6 +180,10 @@
SgAsmPowerpcInstruction* instruction = new SgAsmPowerpcInstruction(address, mnemonic, kind);
ROSE_ASSERT (instruction);
+ if (mnemonic.size() >= 7 && mnemonic.substr(mnemonic.size() - 7) == "_record") {
+ instruction->set_mnemonic(mnemonic.substr(0, mnemonic.size() - 7) + ".");
+ }
+
SgAsmOperandList* operands = new SgAsmOperandList();
instruction->set_operandList(operands);
operands->set_parent(instruction);
@@ -135,7 +217,7 @@
// r->set_powerpc_register_code((SgAsmPowerpcRegisterReferenceExpression::powerpc_register_enum)(reg + 1));
// r->set_register_class((SgAsmPowerpcRegisterReferenceExpression::powerpc_register_enum)(reg + 1));
- SgAsmPowerpcRegisterReferenceExpression* r = new SgAsmPowerpcRegisterReferenceExpression(reg_class,reg_number,reg_grainularity);
+ SgAsmPowerpcRegisterReferenceExpression* r = new SgAsmPowerpcRegisterReferenceExpression(reg_class, reg_number, reg_grainularity);
return r;
}
@@ -143,7 +225,7 @@
SgAsmPowerpcInstruction*
PowerpcDisassembler::disassemble(const Parameters& p, const uint8_t* const instructionList, const uint64_t insnSize, size_t positionInVector, set<uint64_t>* knownSuccessorsReturn)
{
- // printf ("Inside of PowerpcDisassembler::disassemble(): instructionList = %p insnSize = %zu positionInVector = %zu \n",instructionList,insnSize,positionInVector);
+ // printf ("Inside of PowerpcDisassembler::disassemble(): instructionList = %p insnSize = %zu positionInVector = %zu \n", instructionList, insnSize, positionInVector);
ROSE_ASSERT(knownSuccessorsReturn != NULL);
@@ -160,37 +242,21 @@
c = (c << 8) | instructionList[positionInVector + 2];
c = (c << 8) | instructionList[positionInVector + 3];
- // printf ("Single instruction opcode = 0x%x (calling disassembler) \n",c);
+ // printf ("Single instruction opcode = 0x%x (calling disassembler) \n", c);
// Added this to get pass zero instruction (padding?)
- if (c == 0)
- {
- // DQ (11/1/2008): This case generates a lot of calls to the BadInstruction() handler! Why?
-
-#if DEBUG_OPCODES
- printf ("####### In PowerpcDisassembler::disassemble(): Return NULL pointer for case of c == 0 ####### \n");
-#endif
- throw BadInstruction();
- }
-
SingleInstructionDisassembler sid(p, c, knownSuccessorsReturn);
- return sid.disassemble(instructionList,positionInVector);
+ return sid.disassemble();
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::disassemble(const uint8_t* const instructionList, size_t positionInVector)
+PowerpcDisassembler::SingleInstructionDisassembler::disassemble()
{
// The Primary Opcode Field is bits 0-5, 6-bits wide, so there are max 64 primary opcode values
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- // printf ("instruction opcode = 0x%x primaryOpcode = 0x%x \n",insn,primaryOpcode);
+ // printf ("instruction opcode = 0x%08"PRIx32" primaryOpcode = 0x%"PRIx8" \n", insn, primaryOpcode);
- // This should not happend on a PowerPC system
- ROSE_ASSERT(insn != 0);
-
- // This should clear the upper two bits of the byte (so we only evaluate the Primary Opcode Field)
- // getByte(opcode);
-
SgAsmPowerpcInstruction* instruction = NULL;
ROSE_ASSERT(knownSuccessorsReturn != NULL);
@@ -212,161 +278,103 @@
// uint16_t x_Opcode = (insn >> 1) & 0x3FF;
uint8_t a_Opcode = (insn >> 1) & 0x1F;
- // printf ("x_Opcode = 0x%x = %d xfl_Opcode = 0x%x = %d a_Opcode = 0x%x = %d \n",x_Opcode,x_Opcode,xfl_Opcode,xfl_Opcode,a_Opcode,a_Opcode);
+ // printf ("x_Opcode = 0x%x = %d xfl_Opcode = 0x%x = %d a_Opcode = 0x%x = %d \n", x_Opcode, x_Opcode, xfl_Opcode, xfl_Opcode, a_Opcode, a_Opcode);
// Different parts of the instruction are used to identify what kind of instruction this is!
if ( a_Opcode == 5 || (a_Opcode >= 8 && a_Opcode <= 31) )
{
- instruction = decode_A_formInstruction();
+ instruction = decode_A_formInstruction_00();
}
else
{
- instruction = decode_X_formInstruction();
+ instruction = decode_X_formInstruction_00();
}
ROSE_ASSERT(instruction != NULL);
break;
}
-#if 1
- case 0x01: { /* illegal instruction */ ROSE_ASSERT(false); break; }
-#endif
- case 0x02: { instruction = decode_D_formInstruction(); break; }
- case 0x03: { instruction = decode_D_formInstruction(); break; }
+ case 0x01: throw BadInstruction(); break;
+ case 0x02: instruction = MAKE_INSN3(tdi, TO(), RA(), SI()); break;
+ case 0x03: instruction = MAKE_INSN3(twi, TO(), RA(), SI()); break;
// 4 : These are the BGL specific PowerPC440 FP2 Architecture instructions
- case 0x04: { instruction = decode_A_formInstruction(); break; }
+ case 0x04: { instruction = decode_A_formInstruction_04(); break; }
- case 0x05:
- case 0x06: { /* illegal instruction */ ROSE_ASSERT(false); break; }
+ case 0x05: throw BadInstruction(); break;
+ case 0x06: throw BadInstruction(); break;
+ case 0x07: instruction = MAKE_INSN3(mulli, RT(), RA(), SI()); break;
+ case 0x08: instruction = MAKE_INSN3(subfic, RT(), RA(), SI()); break;
+ case 0x09: throw BadInstruction(); break;
+ case 0x0A: instruction = MAKE_INSN4(cmpli, BF_cr(), L_10(), RA(), UI()); break;
+ case 0x0B: instruction = MAKE_INSN4(cmpi, BF_cr(), L_10(), RA(), SI()); break;
+ case 0x0C: instruction = MAKE_INSN3(addic, RT(), RA(), SI()); break;
+ case 0x0D: instruction = MAKE_INSN3(addic_record, RT(), RA(), SI()); break;
+ case 0x0E: instruction = MAKE_INSN3(addi, RT(), RA_or_zero(), SI()); break;
+ case 0x0F: instruction = MAKE_INSN3(addis, RT(), RA_or_zero(), SI()); break;
- case 0x07: { instruction = decode_D_formInstruction(); break; }
- case 0x08: { instruction = decode_D_formInstruction(); break; }
-
- case 0x09: { /* illegal instruction */ ROSE_ASSERT(false); break; }
-
- case 0x0A: { instruction = decode_D_formInstruction(); break; }
- case 0x0B: { instruction = decode_D_formInstruction(); break; }
- case 0x0C: { instruction = decode_D_formInstruction(); break; }
- case 0x0D: { instruction = decode_D_formInstruction(); break; }
- case 0x0E: { instruction = decode_D_formInstruction(); break; }
- case 0x0F: { instruction = decode_D_formInstruction(); break; }
-
// Branch instruction
case 0x10: { instruction = decode_B_formInstruction(); break; }
case 0x11: { instruction = decode_SC_formInstruction(); break; }
// Conditional branch
- // case 0x12: { instruction = decode_I_formInstruction(instructionList,positionInVector); break; }
case 0x12: { instruction = decode_I_formInstruction(); break; }
case 0x13: { instruction = decode_XL_formInstruction(); break; }
- // 20
- case 0x14: { instruction = decode_M_formInstruction(); break; }
- case 0x15: { instruction = decode_M_formInstruction(); break; }
-
- case 0x16: { /* illegal instruction */ ROSE_ASSERT(false); break; }
-
- case 0x17: { instruction = decode_M_formInstruction(); break; }
-
- // 24
- case 0x18: { instruction = decode_D_formInstruction(); break; }
- case 0x19: { instruction = decode_D_formInstruction(); break; }
- case 0x1A: { instruction = decode_D_formInstruction(); break; }
- case 0x1B: { instruction = decode_D_formInstruction(); break; }
- case 0x1C: { instruction = decode_D_formInstruction(); break; }
- case 0x1D: { instruction = decode_D_formInstruction(); break; }
-
+ case 0x14: instruction = MAKE_INSN5_RC(rlwimi, RA(), RS(), SH_32bit(), MB_32bit(), ME_32bit()); break;
+ case 0x15: instruction = MAKE_INSN5_RC(rlwinm, RA(), RS(), SH_32bit(), MB_32bit(), ME_32bit()); break;
+ case 0x17: instruction = MAKE_INSN5_RC(rlwnm, RA(), RS(), RB(), MB_32bit(), ME_32bit()); break;
+ case 0x18: instruction = MAKE_INSN3(ori, RS(), RA(), UI()); break;
+ case 0x19: instruction = MAKE_INSN3(oris, RS(), RA(), UI()); break;
+ case 0x1A: instruction = MAKE_INSN3(xori, RS(), RA(), UI()); break;
+ case 0x1B: instruction = MAKE_INSN3(xoris, RS(), RA(), UI()); break;
+ case 0x1C: instruction = MAKE_INSN3(andi_record, RS(), RA(), UI()); break;
+ case 0x1D: instruction = MAKE_INSN3(andis_record, RS(), RA(), UI()); break;
// 30
case 0x1E: { instruction = decode_MD_formInstruction(); break; }
// 31: includes X form, XO form, XFX form, and XS form
- case 0x1F:
- {
- // Depending on the extended Opcode this is an X form, XO form, XFX form,
- // and XS form, the extended opCode maps to different bit ranges.
+ case 0x1F: { instruction = decode_X_formInstruction_1F(); break; }
- uint16_t x_Opcode = (insn >> 1) & 0x3FF;
- uint16_t xfx_Opcode = x_Opcode;
- // uint16_t xl_Opcode = x_Opcode;
- // uint16_t xfl_Opcode = x_Opcode;
- uint16_t xs_Opcode = (insn >> 2) & 0x1FF;
- uint16_t xo_Opcode = (insn >> 1) & 0x1FF;
-
- // printf ("x_Opcode = 0x%x = %d xfx_Opcode = 0x%x = %d xs_Opcode = 0x%x = %d xo_Opcode = 0x%x = %d \n",x_Opcode,x_Opcode,xfx_Opcode,xfx_Opcode,xs_Opcode,xs_Opcode,xo_Opcode,xo_Opcode);
-
- // Different parts of the instruction are used to identify what kind of instruction this is!
- if ( xfx_Opcode == 19 || xfx_Opcode == 144 || xfx_Opcode == 339 || xfx_Opcode == 371 || xfx_Opcode == 467 )
- {
- instruction = decode_XFX_formInstruction();
- }
- else
- {
- if ( (xo_Opcode >= 8 && xo_Opcode <= 11) || xo_Opcode == 40 || xo_Opcode == 73 || xo_Opcode == 75 ||
- xo_Opcode == 104 || xo_Opcode == 136 || xo_Opcode == 138 || xo_Opcode == 200 || xo_Opcode == 202 ||
- (xo_Opcode >= 232 && xo_Opcode <= 235) || xo_Opcode == 266 || xo_Opcode == 457 || xo_Opcode == 459 ||
- xo_Opcode == 489 || xo_Opcode == 491 )
- {
- instruction = decode_XO_formInstruction();
- }
- else
- {
- if ( xs_Opcode == 413 )
- {
- instruction = decode_XS_formInstruction();
- }
- else
- {
- instruction = decode_X_formInstruction();
- }
- }
- }
-
- ROSE_ASSERT(instruction != NULL);
- break;
- }
-
- // 32 load store instructions
- case 0x20: { instruction = decode_D_formInstruction(); break; }
- case 0x21: { instruction = decode_D_formInstruction(); break; }
- case 0x22: { instruction = decode_D_formInstruction(); break; }
- case 0x23: { instruction = decode_D_formInstruction(); break; }
- case 0x24: { instruction = decode_D_formInstruction(); break; }
- case 0x25: { instruction = decode_D_formInstruction(); break; }
- case 0x26: { instruction = decode_D_formInstruction(); break; }
- case 0x27: { instruction = decode_D_formInstruction(); break; }
- case 0x28: { instruction = decode_D_formInstruction(); break; }
- case 0x29: { instruction = decode_D_formInstruction(); break; }
- case 0x2A: { instruction = decode_D_formInstruction(); break; }
- case 0x2B: { instruction = decode_D_formInstruction(); break; }
- case 0x2C: { instruction = decode_D_formInstruction(); break; }
- case 0x2D: { instruction = decode_D_formInstruction(); break; }
- case 0x2E: { instruction = decode_D_formInstruction(); break; }
- case 0x2F: { instruction = decode_D_formInstruction(); break; }
- case 0x30: { instruction = decode_D_formInstruction(); break; }
- case 0x31: { instruction = decode_D_formInstruction(); break; }
- case 0x32: { instruction = decode_D_formInstruction(); break; }
- case 0x33: { instruction = decode_D_formInstruction(); break; }
- case 0x34: { instruction = decode_D_formInstruction(); break; }
- case 0x35: { instruction = decode_D_formInstruction(); break; }
- case 0x36: { instruction = decode_D_formInstruction(); break; }
- case 0x37: { instruction = decode_D_formInstruction(); break; }
-
+ case 0x20: instruction = MAKE_INSN2(lwz, RT(), memref(DWORDT)); break;
+ case 0x21: instruction = MAKE_INSN2(lwzu, RT(), memrefu(DWORDT)); break;
+ case 0x22: instruction = MAKE_INSN2(lbz, RT(), memref(BYTET)); break;
+ case 0x23: instruction = MAKE_INSN2(lbzu, RT(), memrefu(BYTET)); break;
+ case 0x24: instruction = MAKE_INSN2(stw, RS(), memref(DWORDT)); break;
+ case 0x25: instruction = MAKE_INSN2(stwu, RS(), memrefu(DWORDT)); break;
+ case 0x26: instruction = MAKE_INSN2(stb, RS(), memref(BYTET)); break;
+ case 0x27: instruction = MAKE_INSN2(stbu, RS(), memrefu(BYTET)); break;
+ case 0x28: instruction = MAKE_INSN2(lhz, RT(), memref(WORDT)); break;
+ case 0x29: instruction = MAKE_INSN2(lhzu, RT(), memrefu(WORDT)); break;
+ case 0x2A: instruction = MAKE_INSN2(lha, RT(), memref(WORDT)); break;
+ case 0x2B: instruction = MAKE_INSN2(lhau, RT(), memrefu(WORDT)); break;
+ case 0x2C: instruction = MAKE_INSN2(sth, RS(), memref(WORDT)); break;
+ case 0x2D: instruction = MAKE_INSN2(sthu, RS(), memrefu(WORDT)); break;
+ case 0x2E: instruction = MAKE_INSN2(lmw, RT(), memref(DWORDT)); break;
+ case 0x2F: instruction = MAKE_INSN2(stmw, RS(), memref(DWORDT)); break;
+ case 0x30: instruction = MAKE_INSN2(lfs, FRT(), memref(FLOATT)); break;
+ case 0x31: instruction = MAKE_INSN2(lfsu, FRT(), memrefu(FLOATT)); break;
+ case 0x32: instruction = MAKE_INSN2(lfd, FRT(), memref(DOUBLET)); break;
+ case 0x33: instruction = MAKE_INSN2(lfdu, FRT(), memrefu(DOUBLET)); break;
+ case 0x34: instruction = MAKE_INSN2(stfs, FRS(), memref(FLOATT)); break;
+ case 0x35: instruction = MAKE_INSN2(stfsu, FRS(), memrefu(FLOATT)); break;
+ case 0x36: instruction = MAKE_INSN2(stfd, FRS(), memref(DOUBLET)); break;
+ case 0x37: instruction = MAKE_INSN2(stfdu, FRS(), memrefu(DOUBLET)); break;
// 56
- case 0x38:
- case 0x39: { /* illegal instruction */ ROSE_ASSERT(false); break; }
+ case 0x38: throw BadInstruction(); break;
+ case 0x39: throw BadInstruction(); break;
// 58
case 0x3A: { instruction = decode_DS_formInstruction(); break; }
// 59
- case 0x3B: { instruction = decode_A_formInstruction(); break; }
+ case 0x3B: { instruction = decode_A_formInstruction_3B(); break; }
// 60, 61
- case 0x3C:
- case 0x3D: { /* illeagal instruction */ ROSE_ASSERT(false); break; }
+ case 0x3C: throw BadInstruction(); break;
+ case 0x3D: throw BadInstruction(); break;
// 62
case 0x3E: { instruction = decode_DS_formInstruction(); break; }
@@ -375,27 +383,18 @@
case 0x3F:
{
// Depending on if this is A form or X form, the extended opCode maps to different bit ranges, so this code is incorrect!
- uint16_t x_Opcode = (insn >> 1) & 0x3FF;
- uint16_t xfl_Opcode = x_Opcode;
uint8_t a_Opcode = (insn >> 1) & 0x1F;
- // printf ("x_Opcode = 0x%x = %d xfl_Opcode = 0x%x = %d a_Opcode = 0x%x = %d \n",x_Opcode,x_Opcode,xfl_Opcode,xfl_Opcode,a_Opcode,a_Opcode);
+ // printf ("x_Opcode = 0x%x = %d xfl_Opcode = 0x%x = %d a_Opcode = 0x%x = %d \n", x_Opcode, x_Opcode, xfl_Opcode, xfl_Opcode, a_Opcode, a_Opcode);
// Different parts of the instruction are used to identify what kind of instruction this is!
if ( a_Opcode == 18 || (a_Opcode >= 20 && a_Opcode <= 31) )
{
- instruction = decode_A_formInstruction();
+ instruction = decode_A_formInstruction_3F();
}
else
{
- if ( xfl_Opcode == 711 )
- {
- instruction = decode_XFL_formInstruction();
- }
- else
- {
- instruction = decode_X_formInstruction();
- }
+ instruction = decode_X_formInstruction_3F(); // Also includes XFL form
}
ROSE_ASSERT(instruction != NULL);
@@ -406,7 +405,7 @@
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Primary opcode not handled yet: primaryOpcode = %d \n",primaryOpcode);
+ printf ("Primary opcode not handled yet: primaryOpcode = %d \n", primaryOpcode);
ROSE_ASSERT(false);
// throw BadInstruction();
}
@@ -425,37 +424,12 @@
SgAsmPowerpcInstruction* instruction = NULL;
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
-
- // Get bits 6-8, 3 bits as the BF opcode
- uint32_t liOpcode = (insn >> 2) & 0xFFFFFF;
-
- // Get bit 30, 1 bit as the reserved flag
- uint8_t aaOpcode = (insn >> 1) & 0x1;
-
- // Get bit 31, 1 bit as the reserved flag
- uint8_t lkOpcode = (insn >> 0) & 0x1;
-
-#if DEBUG_OPCODES
- printf ("I-Form instruction opcode = 0x%x liOpcode = 0x%x aaOpcode = 0x%x lkOpcode = 0x%x \n",insn,liOpcode,aaOpcode,lkOpcode);
-#endif
-
switch(primaryOpcode)
{
case 0x12:
{
- // The address should be computed for the knownSuccessorsReturn set, but not computed for use
- // in the instuction (else we would be mixing the semantic analysis into the disassembly).
- // SgAsmExpression* targetAddress = new SgAsmDoubleWordValueExpression(liOpcode);
-
- // DQ (10/15/2008): Compute the address of the branch to restart the disassembly.
- // The address is LI || 0b00 sign-extended.
- uint32_t computedAddress = (liOpcode >= (1U << 23)) ? liOpcode - (1U << 24) : liOpcode;
- computedAddress <<= 2;
-
- // uint32_t targetAddr = p.ip + val_temp;
- uint32_t targetBranchAddress = computedAddress;
-
- if (aaOpcode == 0)
+ uint32_t targetBranchAddress = LI();
+ if (AA() == 0)
{
// In this case the address is the sum of LI || 0b00 sign-extended AND "the address of this instruction".
targetBranchAddress += p.ip;
@@ -464,31 +438,31 @@
SgAsmQuadWordValueExpression* targetAddressExpression = makeBranchTarget(targetBranchAddress);
ROSE_ASSERT(knownSuccessorsReturn->empty() == false);
- if (aaOpcode == 0)
+ if (AA() == 0)
{
- if (lkOpcode == 0)
+ if (LK() == 0)
{
- instruction = MAKE_INSN1(b,targetAddressExpression);
+ instruction = MAKE_INSN1(b, targetAddressExpression);
}
else
{
- instruction = MAKE_INSN1(bl,targetAddressExpression);
+ instruction = MAKE_INSN1(bl, targetAddressExpression);
}
}
else
{
- if (lkOpcode == 0)
+ if (LK() == 0)
{
- instruction = MAKE_INSN1(ba,targetAddressExpression);
+ instruction = MAKE_INSN1(ba, targetAddressExpression);
}
else
{
- instruction = MAKE_INSN1(bla,targetAddressExpression);
+ instruction = MAKE_INSN1(bla, targetAddressExpression);
}
}
#if DEBUG_BRANCH_LOGIC
- printf ("Computation of targetAddressExpression = 0x%x \n",targetAddressExpression->get_value());
+ printf ("Computation of targetAddressExpression = 0x%x \n", targetAddressExpression->get_value());
#endif
break;
}
@@ -497,12 +471,12 @@
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: I-Form primaryOpcode = %d (illegal instruction) \n",primaryOpcode);
+ printf ("Error: I-Form primaryOpcode = %d (illegal instruction) \n", primaryOpcode);
ROSE_ASSERT(false);
}
}
- if (lkOpcode == 1)
+ if (LK() == 1)
{
// Also need to disassemble the next instruction!
knownSuccessorsReturn->insert(p.ip + 4);
@@ -518,42 +492,18 @@
SgAsmPowerpcInstruction* instruction = NULL;
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
-
- // Get bits 6-10, 5 bits as the BO opcode
- uint8_t boOpcode = (insn >> 21) & 0x1F;
-
- // Get the bits 11-15, next 5 bits, as the tertiary opcode
- uint8_t biOpcode = (insn >> 16) & 0x1F;
-
- // Get the bits 16-29, next 14 bits, as the tertiary opcode
- uint16_t bdOpcode = (insn >> 2) & 0x3FFF;
-
- // Get bit 30, 1 bit as the reserved flag
- uint8_t aaOpcode = (insn >> 1) & 0x1;
-
- // Get bit 31, 1 bit as the reserved flag
- uint8_t lkOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("B-Form instruction opcode = 0x%x boOpcode = 0x%x biOpcode = 0x%x bdOpcode = 0x%x aaOpcode = 0x%x lkOpcode = 0x%x \n",insn,boOpcode,biOpcode,bdOpcode,aaOpcode,lkOpcode);
+ printf ("B-Form instruction opcode = 0x%x boOpcode = 0x%x biOpcode = 0x%x bdOpcode = 0x%x aaOpcode = 0x%x lkOpcode = 0x%x \n", insn, boOpcode, biOpcode, bdOpcode, aaOpcode, lkOpcode);
#endif
switch(primaryOpcode)
{
case 0x10:
{
- // Skip the registers for now!
- SgAsmExpression* BO = new SgAsmByteValueExpression(boOpcode);
- SgAsmExpression* BI = makeRegister(powerpc_regclass_cr,biOpcode,powerpc_condreggranularity_bit);
-
// DQ (10/15/2008): Compute the address of the branch to restart the disassembly.
// The address is BD || 0b00 sign-extended.
- uint64_t computedAddress = (bdOpcode >= (1U << 13)) ? bdOpcode - (1U << 14) : bdOpcode;
- computedAddress <<= 2;
-
- uint32_t targetBranchAddress = computedAddress;
-
- if (aaOpcode == 0)
+ uint32_t targetBranchAddress = BD();
+ if (AA() == 0)
{
// In this case the address is the sum of BD || 0b00 sign-extended AND "the address of this instruction".
targetBranchAddress += p.ip;
@@ -562,26 +512,26 @@
SgAsmQuadWordValueExpression* targetAddressExpression = makeBranchTarget(targetBranchAddress);
ROSE_ASSERT(knownSuccessorsReturn->empty() == false);
- if (lkOpcode == 0)
+ if (LK() == 0)
{
- if (aaOpcode == 0)
+ if (AA() == 0)
{
- instruction = MAKE_INSN3(bc,BO,BI,targetAddressExpression);
+ instruction = MAKE_INSN3(bc, BO(), BI(), targetAddressExpression);
}
else
{
- instruction = MAKE_INSN3(bca,BO,BI,targetAddressExpression);
+ instruction = MAKE_INSN3(bca, BO(), BI(), targetAddressExpression);
}
}
else
{
- if (aaOpcode == 0)
+ if (AA() == 0)
{
- instruction = MAKE_INSN3(bcl,BO,BI,targetAddressExpression);
+ instruction = MAKE_INSN3(bcl, BO(), BI(), targetAddressExpression);
}
else
{
- instruction = MAKE_INSN3(bcla,BO,BI,targetAddressExpression);
+ instruction = MAKE_INSN3(bcla, BO(), BI(), targetAddressExpression);
}
}
@@ -592,12 +542,12 @@
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: B-Form primaryOpcode = %d not handled! \n",primaryOpcode);
+ printf ("Error: B-Form primaryOpcode = %d not handled! \n", primaryOpcode);
ROSE_ASSERT(false);
}
}
- if (lkOpcode == 1)
+ if (LK() == 1)
{
// Also need to disassemble the next instruction!
knownSuccessorsReturn->insert(p.ip + 4);
@@ -616,632 +566,21 @@
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
ROSE_ASSERT(primaryOpcode == 0x11);
- // Get the bits 6-10, next 5 bits, as the secondary opcode: RT, RS, TO, FRT, FRS
- uint8_t levOpcode = (insn >> 5) & 0x7F;
-
// Get bit 30, 1 bit as the reserved flag
uint8_t constantOneOpcode = (insn >> 1) & 0x1;
ROSE_ASSERT(constantOneOpcode == 1);
#if DEBUG_OPCODES
- printf ("SC-Form instruction opcode = 0x%x levOpcode = 0x%x constantOneOpcode = 0x%x \n",insn,levOpcode,constantOneOpcode);
+ printf ("SC-Form instruction opcode = 0x%x levOpcode = 0x%x constantOneOpcode = 0x%x \n", insn, levOpcode, constantOneOpcode);
#endif
- SgAsmExpression* LEV = new SgAsmWordValueExpression(levOpcode);
- instruction = MAKE_INSN1(sc,LEV);
+ instruction = MAKE_INSN1(sc, LEV());
ROSE_ASSERT(instruction != NULL);
return instruction;
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_D_formInstruction()
- {
- SgAsmPowerpcInstruction* instruction = NULL;
-
- // The primaryOpcode does not have to be 0x0B!
- uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- // ROSE_ASSERT(primaryOpcode == 0x0B);
-
- // Get the bits 6-10, next 5 bits, as the secondary opcode: RT, RS, TO, FRT, FRS
- uint8_t secodaryOpcode = (insn >> 21) & 0x1F;
- uint8_t rtOpcode = (insn >> 21) & 0x1F;
- uint8_t toOpcode = rtOpcode;
-
- // Get the bits 11-15, next 5 bits, as the tertiary opcode
- uint8_t raOpcode = (insn >> 16) & 0x1F;
-
- // Get bits 6-8, 3 bits as the BF opcode
- uint8_t bfOpcode = (insn >> 23) & 0x7;
-
- // Get bit 9, 1 bit as the reserved flag
- // uint8_t reservedOpcode = (insn >> 24) & 0x1;
-
- // Get bit 10, 1 bit as the length flag
- uint8_t lengthOpcode = (insn >> 21) & 0x1;
-
- // Get the bits 16-31, next 16 bits, as the tertiary opcode
- uint16_t lastOpcode = (insn >> 0) & 0xFFFF;
-
-#if DEBUG_OPCODES
- // printf ("D-Form instruction opcode = 0x%x secodaryOpcode = 0x%x bfOpcode = 0x%x reservedOpcode = 0x%x lengthOpcode = 0x%x raOpcode = 0x%x lastOpcode 0x%x \n",insn,secodaryOpcode,bfOpcode,reservedOpcode,lengthOpcode,raOpcode,lastOpcode);
- printf ("D-Form instruction opcode = 0x%x secodaryOpcode = 0x%x bfOpcode = 0x%x lengthOpcode = 0x%x raOpcode = 0x%x lastOpcode 0x%x \n",insn,secodaryOpcode,bfOpcode,lengthOpcode,raOpcode,lastOpcode);
-#endif
-
- switch(primaryOpcode)
- {
- // 2
- case 0x2:
- {
- SgAsmExpression* TO = makeRegister(powerpc_regclass_gpr,toOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(tdi,TO,RA,SI);
- break;
- }
-
- // 3
- case 0x3:
- {
- SgAsmExpression* TO = makeRegister(powerpc_regclass_gpr,toOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(twi,TO,RA,SI);
- break;
- }
-
- // 4-6
- case 0x4:
- case 0x5:
- case 0x6: { /* illeagal instruction */ ROSE_ASSERT(false); break; }
-
- // 7
- case 0x7:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(mulli,RT,RA,SI);
- break;
- }
-
- // 8
- case 0x8:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(subfic,RT,RA,SI);
- break;
- }
-
- // 9
- case 0x9: { /* illeagal instruction */ ROSE_ASSERT(false); break; }
-
- // 10
- case 0x0A:
- {
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* L = new SgAsmByteValueExpression(lengthOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN4(cmpli,BF,L,RA,UI);
- break;
- }
-
- // 11
- case 0x0B:
- {
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* L = new SgAsmByteValueExpression(lengthOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN4(cmpi,BF,L,RA,SI);
- break;
- }
-
- // 12
- case 0x0C:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(addic,RT,RA,SI);
- break;
- }
-
- // 13
- case 0x0D:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- instruction = MAKE_INSN3(addic_record,RT,RA,SI);
- break;
- }
-
- // 14
- case 0x0E:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* SI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- // SgAsmExpression* addressExpr = makeAdd(RA,D);
- // SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- // instruction = MAKE_INSN2(addi,RT,mr);
- instruction = MAKE_INSN3(addi,RT,RA,SI);
- break;
- }
-
- // 15
- case 0x0F:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = raOpcode == 0 ? new SgAsmDoubleWordValueExpression(0) : (SgAsmExpression*) makeRegister(powerpc_regclass_gpr,raOpcode);
-
- // Compute the signExtended value directly in the disassembly instead of in the emulation.
- // Computing this to be sign extended is more important for 64-bit mode (which is not currently supported).
- // The signExtend keeps the same type, so it needs to be cast to a 32 bit value.
- SgAsmExpression* SI = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
-
- instruction = MAKE_INSN3(addis,RT,RA,SI);
- break;
- }
-
- // 24
- case 0x18:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(ori,RS,RA,UI);
- break;
- }
-
- // 25
- case 0x19:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(oris,RS,RA,UI);
- break;
- }
-
- // 26
- case 0x1A:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(xori,RS,RA,UI);
- break;
- }
-
- // 27
- case 0x1B:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(xoris,RS,RA,UI);
- break;
- }
-
- // 28
- case 0x1C:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(andi_record,RS,RA,UI);
- break;
- }
-
- // 29
- case 0x1D:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* UI = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* UI = new SgAsmDoubleWordValueExpression(uint32_t(lastOpcode));
- instruction = MAKE_INSN3(andis_record,RS,RA,UI);
- break;
- }
-
- // 32
- case 0x20:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
-
- // Compute the signExtended value directly in the disassembly instead of in the emulation.
- // The signExtend keeps the same type, so it needs to be cast to a 32 bit value.
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = raOpcode == 0 ? D : makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL,SgAsmTypeDoubleWord::createType());
- instruction = MAKE_INSN2(lwz,RT,mr);
- break;
- }
-
- // 33
- case 0x21:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
-
- if (raOpcode == 0 || raOpcode == secodaryOpcode)
- {
- printf ("bad instruction: raOpcode == 0 || raOpcode == secodaryOpcode \n");
- throw BadInstruction();
- }
-
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lwzu,RT,mr);
- break;
- }
-
- // 34
- case 0x22:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
-
- // Compute the signExtended value directly in the disassembly instead of in the emulation.
- // The signExtend keeps the same type, so it needs to be cast to a 32 bit value.
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = raOpcode == 0 ? D : makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL,SgAsmTypeDoubleWord::createType());
-
- instruction = MAKE_INSN2(lbz,RT,mr);
- break;
- }
-
- // 35
- case 0x23:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lbzu,RT,mr);
- break;
- }
-
- // 36
- case 0x24:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
-
- // Compute the signExtended value directly in the disassembly instead of in the emulation.
- // The signExtend keeps the same type, so it needs to be cast to a 32 bit value.
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
-
- // SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmExpression* addressExpr = raOpcode == 0 ? D : makeAdd(RA,D);
-
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL,SgAsmTypeDoubleWord::createType());
-
- instruction = MAKE_INSN2(stw,RS,mr);
- break;
- }
-
- // 37
- case 0x25:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
-
- // Compute the signExtended value directly in the disassembly instead of in the emulation.
- // The signExtend keeps the same type, so it needs to be cast to a 32 bit value.
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
-
- // SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmExpression* addressExpr = raOpcode == 0 ? D : makeAdd(RA,D);
-
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL,SgAsmTypeDoubleWord::createType());
- instruction = MAKE_INSN2(stwu,RS,mr);
- break;
- }
-
- // 38
- case 0x26:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stb,RS,mr);
- break;
- }
-
- // 39
- case 0x27:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stbu,RS,mr);
- break;
- }
-
- // 40
- case 0x28:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lhz,RT,mr);
- break;
- }
-
- // 41
- case 0x29:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lhzu,RT,mr);
- break;
- }
-
- // 42
- case 0x2A:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lha,RT,mr);
- break;
- }
-
- // 43
- case 0x2B:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lhau,RS,mr);
- break;
- }
-
- // 44
- case 0x2C:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmDoubleWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- // SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmExpression* addressExpr = raOpcode == 0 ? D : makeAdd(RA,D);
-
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(sth,RS,mr);
- break;
- }
-
- // 45
- case 0x2D:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(sthu,RS,mr);
- break;
- }
-
- // 46
- case 0x2E:
- {
- // The correct form of this instruction is "xxx RT,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lmw,RT,mr);
- break;
- }
-
- // 47
- case 0x2F:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stmw,RS,mr);
- break;
- }
-
- // 48
- case 0x30:
- {
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_fpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lfs,FRT,mr);
- break;
- }
-
- // 49
- case 0x31:
- {
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_fpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
-
- if (raOpcode == 0)
- {
- printf ("bad instruction: raOpcode == 0 case 0x31 = 49 \n");
- throw BadInstruction();
- }
-
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lfsu,FRT,mr);
- break;
- }
-
- // 50
- case 0x32:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_fpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lfd,FRT,mr);
- break;
- }
-
- // 51
- case 0x33:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_fpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
-
- if (raOpcode == 0)
- {
- printf ("bad instruction: raOpcode == 0 case 0x33 = 51 \n");
- throw BadInstruction();
- }
-
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(lfdu,FRT,mr);
- break;
- }
-
- // 52
- case 0x34:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stfs,FRS,mr);
- break;
- }
-
- // 53
- case 0x35:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stfsu,FRS,mr);
- break;
- }
-
- // 54
- case 0x36:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stfd,FRS,mr);
- break;
- }
-
- // 55
- case 0x37:
- {
- // The correct form of this instruction is "xxx FRS,D(RA)", so maybe we need a more elaborate way to form "D(RA)" explicitly, perhaps as "(RA) + D".
- SgAsmExpression* FRS = makeRegister(powerpc_regclass_gpr,secodaryOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- // SgAsmExpression* D = new SgAsmWordValueExpression(lastOpcode);
- SgAsmExpression* D = new SgAsmDoubleWordValueExpression(IntegerOps::signExtend<16,32>(uint32_t(lastOpcode)));
- SgAsmExpression* addressExpr = makeAdd(RA,D);
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL);
- instruction = MAKE_INSN2(stfdu,FRS,mr);
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: D-Form primaryOpcode = %d not handled! \n",primaryOpcode);
- ROSE_ASSERT(false);
- }
- }
-
- ROSE_ASSERT(instruction != NULL);
- return instruction;
- }
-
-SgAsmPowerpcInstruction*
PowerpcDisassembler::SingleInstructionDisassembler::decode_DS_formInstruction()
{
SgAsmPowerpcInstruction* instruction = NULL;
@@ -1253,1604 +592,196 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_X_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_X_formInstruction_1F()
{
SgAsmPowerpcInstruction* instruction = NULL;
// The primaryOpcode
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
+ ROSE_ASSERT (primaryOpcode == 0x1F);
- // Get the bits 6-10, next 5 bits
- uint8_t rtOpcode = (insn >> 21) & 0x1F;
- uint8_t rsOpcode = rtOpcode;
- uint8_t btOpcode = rtOpcode;
- uint8_t toOpcode = rtOpcode;
-
- uint8_t bfOpcode = (rtOpcode >> 2) & 0x7;
- uint8_t lOpcode = (rtOpcode >> 0) & 0x1;
-
- // Values currently commented out are expected to be used later!
- // uint8_t toOpcode = rtOpcode;
- uint8_t frtOpcode = rtOpcode;
- uint8_t frsOpcode = rtOpcode;
- // uint8_t boOpcode = rtOpcode;
-
- // Values currently commented out are expected to be used later!
- // Get the bits 11-15, next 5 bits
- uint8_t raOpcode = (insn >> 16) & 0x1F;
- uint8_t fraOpcode = raOpcode;
-
- // Get the bits 16-20, next 5 bits, as the secondary opcode: RT, RS, TO, FRT, FRS
- uint8_t rbOpcode = (insn >> 11) & 0x1F;
- // uint8_t nbOpcode = rbOpcode;
- uint8_t shOpcode = rbOpcode;
- uint8_t frbOpcode = rbOpcode;
-
- uint8_t uOpcode = (insn >> 12) & 0xF;
-
// Get the bits 21-30, next 10 bits
uint16_t xoOpcode = (insn >> 1) & 0x3FF;
- // Get bit 31, 1 bit as the link bit
- uint8_t rcOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("X-Form instruction opcode = 0x%x primaryOpcode = 0x%x xoOpcode = 0x%x \n",insn,primaryOpcode,xoOpcode);
+ printf ("X-Form instruction 1F opcode = 0x%x primaryOpcode = 0x%x xoOpcode = 0x%x \n", insn, primaryOpcode, xoOpcode);
#endif
- // X-form instructions can be associated with only 2 primary opcodes (or zero for BGL FP2 instructions).
- ROSE_ASSERT(primaryOpcode == 0x0 || primaryOpcode == 0x1F || primaryOpcode == 0x3F);
-
switch(xoOpcode)
{
- // 0
- case 0x0:
- {
- if (primaryOpcode == 0x1F)
- {
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* L = new SgAsmByteValueExpression(lOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN4(cmp,BF,L,RA,RB);
- }
- else
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_fpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_fpr,frbOpcode);
- instruction = MAKE_INSN3(fcmpu,BF,FRA,FRB);
- }
- break;
- }
+ case 0x000: instruction = MAKE_INSN4(cmp, BF_cr(), L_10(), RA(), RB()); break;
+ case 0x004: instruction = MAKE_INSN3(tw, TO(), RA(), RB()); break;
+ case 0x008: instruction = MAKE_INSN3_RC(subfc, RT(), RA(), RB()); break;
+ case 0x009: instruction = MAKE_INSN3_RC(mulhdu, RT(), RA(), RB()); break;
+ case 0x00A: instruction = MAKE_INSN3_RC(addc, RT(), RA(), RB()); break;
+ case 0x00B: instruction = MAKE_INSN3_RC(mulhwu, RT(), RA(), RB()); break;
+ case 0x014: instruction = MAKE_INSN2(lwarx, RT(), memrefx(DWORDT)); break;
+ case 0x015: instruction = MAKE_INSN2(ldx, RT(), memrefx(QWORDT)); break;
+ case 0x017: instruction = MAKE_INSN2(lwzx, RT(), memrefx(DWORDT)); break;
+ case 0x018: instruction = MAKE_INSN3_RC(slw, RA(), RS(), RB()); break;
+ case 0x01A: instruction = MAKE_INSN2_RC(cntlzw, RA(), RS()); break;
+ case 0x01B: instruction = MAKE_INSN3_RC(sld, RA(), RS(), RB()); break;
+ case 0x01C: instruction = MAKE_INSN3_RC(and, RA(), RS(), RB()); break;
+ case 0x020: instruction = MAKE_INSN4(cmpl, BF_cr(), L_10(), RA(), RB()); break;
+ case 0x028: instruction = MAKE_INSN3_RC(subf, RT(), RA(), RB()); break;
+ case 0x035: instruction = MAKE_INSN2(ldux, RT(), memrefux(QWORDT)); break;
+ case 0x037: instruction = MAKE_INSN2(lwzux, RT(), memrefux(DWORDT)); break;
+ case 0x03C: instruction = MAKE_INSN3_RC(andc, RA(), RS(), RB()); break;
+ case 0x044: instruction = MAKE_INSN3(td, TO(), RA(), RB()); break;
+ case 0x049: instruction = MAKE_INSN3_RC(mulhd, RT(), RA(), RB()); break;
+ case 0x04B: instruction = MAKE_INSN3_RC(mulhw, RT(), RA(), RB()); break;
+ case 0x053: instruction = MAKE_INSN1(mfmsr, RT()); break;
+ case 0x057: instruction = MAKE_INSN2(lbzx, RT(), memrefx(BYTET)); break;
+ case 0x068: instruction = MAKE_INSN2_RC(neg, RT(), RA()); break;
+ case 0x077: instruction = MAKE_INSN2(lbzux, RT(), memrefux(BYTET)); break;
+ case 0x07C: instruction = MAKE_INSN3_RC(nor, RA(), RS(), RB()); break;
+ case 0x088: instruction = MAKE_INSN3_RC(adde, RT(), RA(), RB()); break;
+ case 0x08A: instruction = MAKE_INSN3_RC(subfe, RT(), RA(), RB()); break;
+ case 0x08E: instruction = MAKE_INSN2(lfssx, FRT(), memrefx(FLOATT)); break;
+ case 0x095: instruction = MAKE_INSN2(stdx, RS(), memrefx(QWORDT)); break;
+ case 0x096: instruction = MAKE_INSN2(stwcx_record, RS(), memrefx(DWORDT)); break;
+ case 0x097: instruction = MAKE_INSN2(stwx, RS(), memrefx(DWORDT)); break;
+ case 0x0AE: instruction = MAKE_INSN2(lfssux, FRT(), memrefux(FLOATT)); break;
+ case 0x0B5: instruction = MAKE_INSN2(stdux, RS(), memrefux(QWORDT)); break;
+ case 0x0B7: instruction = MAKE_INSN2(stwux, RS(), memrefux(DWORDT)); break;
+ case 0x0C8: instruction = MAKE_INSN2_RC(subfze, RT(), RA()); break;
+ case 0x0CA: instruction = MAKE_INSN2_RC(addze, RT(), RA()); break;
+ case 0x0CE: instruction = MAKE_INSN2(lfsdx, FRT(), memrefx(DOUBLET)); break;
+ case 0x0D6: instruction = MAKE_INSN2(stdcx_record, RS(), memrefx(QWORDT)); break;
+ case 0x0D7: instruction = MAKE_INSN2(stbx, RS(), memrefx(BYTET)); break;
+ case 0x0E8: instruction = MAKE_INSN2_RC(subfme, RT(), RA()); break;
+ case 0x0EA: instruction = MAKE_INSN2_RC(addme, RT(), RA()); break;
+ case 0x0EB: instruction = MAKE_INSN3_RC(mullw, RT(), RA(), RB()); break;
+ case 0x0EE: instruction = MAKE_INSN2(lfsdux, FRT(), memrefux(DOUBLET)); break;
+ case 0x0F7: instruction = MAKE_INSN2(stbux, RS(), memrefux(BYTET)); break;
+ case 0x10A: instruction = MAKE_INSN3_RC(add, RT(), RA(), RB()); break;
+ case 0x10E: instruction = MAKE_INSN2(lfxsx, FRT(), memrefx(V2FLOATT)); break;
+ case 0x116: instruction = MAKE_INSN1(dcbt, memrefx(BYTET)); break;
+ case 0x117: instruction = MAKE_INSN2(lhzx, RT(), memrefx(WORDT)); break;
+ case 0x11C: instruction = MAKE_INSN3_RC(eqv, RA(), RS(), RB()); break;
+ case 0x12E: instruction = MAKE_INSN2(lfxsux, FRT(), memrefux(V2FLOATT)); break;
+ case 0x137: instruction = MAKE_INSN2(lhzux, RT(), memrefux(WORDT)); break;
+ case 0x13C: instruction = MAKE_INSN3_RC(xor, RA(), RS(), RB()); break;
+ case 0x14E: instruction = MAKE_INSN2(lfxdx, FRT(), memrefx(V2DOUBLET)); break;
+ case 0x153: instruction = MAKE_INSN2(mfspr, RT(), SPR()); break;
+ case 0x155: instruction = MAKE_INSN2(lwax, RT(), memrefx(DWORDT)); break;
+ case 0x157: instruction = MAKE_INSN2(lhax, RT(), memrefx(WORDT)); break;
+ case 0x16E: instruction = MAKE_INSN2(lfxdux, FRT(), memrefux(V2DOUBLET)); break;
+ case 0x175: instruction = MAKE_INSN2(lwaux, RT(), memrefux(DWORDT)); break;
+ case 0x177: instruction = MAKE_INSN2(lhaux, RT(), memrefux(WORDT)); break;
+ case 0x18E: instruction = MAKE_INSN2(lfpsx, FRT(), memrefx(V2FLOATT)); break;
+ case 0x197: instruction = MAKE_INSN2(sthx, RS(), memrefx(WORDT)); break;
+ case 0x19C: instruction = MAKE_INSN3_RC(orc, RA(), RS(), RB()); break;
+ case 0x1AE: instruction = MAKE_INSN2(lfpsux, FRT(), memrefux(V2FLOATT)); break;
+ case 0x1B7: instruction = MAKE_INSN2(sthux, RS(), memrefux(WORDT)); break;
+ case 0x1BC: instruction = MAKE_INSN3_RC(or, RA(), RS(), RB()); break;
+ case 0x1C9: instruction = MAKE_INSN3_RC(divdu, RT(), RA(), RB()); break;
+ case 0x1CB: instruction = MAKE_INSN3_RC(divwu, RT(), RA(), RB()); break;
+ case 0x1CE: instruction = MAKE_INSN2(lfpdx, FRT(), memrefx(V2DOUBLET)); break;
+ case 0x1D3: instruction = MAKE_INSN2(mtspr, RS(), SPR()); break;
+ case 0x1DC: instruction = MAKE_INSN3_RC(nand, RA(), RS(), RB()); break;
+ case 0x1E9: instruction = MAKE_INSN3_RC(divd, RT(), RA(), RB()); break;
+ case 0x1EB: instruction = MAKE_INSN3_RC(divw, RT(), RA(), RB()); break;
+ case 0x1EE: instruction = MAKE_INSN2(lfpdux, FRT(), memrefux(V2DOUBLET)); break;
+ case 0x208: instruction = MAKE_INSN3_RC(subfco, RT(), RA(), RB()); break;
+ case 0x20A: instruction = MAKE_INSN3_RC(addco, RT(), RA(), RB()); break;
+ case 0x20E: instruction = MAKE_INSN2(stfpiwx, FRT(), memrefx(V2DWORDT)); break;
+ case 0x215: instruction = MAKE_INSN2(lswx, RT(), memrefx(DWORDT)); break;
+ case 0x216: instruction = MAKE_INSN2(lwbrx, RT(), memrefx(DWORDT)); break;
+ case 0x217: instruction = MAKE_INSN2(lfsx, FRT(), memrefx(FLOATT)); break;
+ case 0x218: instruction = MAKE_INSN3_RC(srw, RA(), RS(), RB()); break;
+ case 0x21B: instruction = MAKE_INSN3_RC(srd, RA(), RS(), RB()); break;
+ case 0x228: instruction = MAKE_INSN3_RC(subfo, RT(), RA(), RB()); break;
+ case 0x237: instruction = MAKE_INSN2(lfsux, FRT(), memrefux(FLOATT)); break;
+ case 0x255: instruction = MAKE_INSN2(lswx, RT(), memrefx(DWORDT)); break;
+ case 0x257: instruction = MAKE_INSN2(lfdx, FRT(), memrefx(DOUBLET)); break;
+ case 0x268: instruction = MAKE_INSN2_RC(nego, RT(), RA()); break;
+ case 0x288: instruction = MAKE_INSN3_RC(addeo, RT(), RA(), RB()); break;
+ case 0x28A: instruction = MAKE_INSN3_RC(subfeo, RT(), RA(), RB()); break;
+ case 0x28E: instruction = MAKE_INSN2(stfssx, FRT(), memrefx(FLOATT)); break;
+ case 0x295: instruction = MAKE_INSN2(stswx, RS(), memrefx(DWORDT)); break;
+ case 0x296: instruction = MAKE_INSN2(stwbrx, RS(), memrefx(DWORDT)); break;
+ case 0x2AE: instruction = MAKE_INSN2(stfssux, FRT(), memrefux(FLOATT)); break;
+ case 0x2C8: instruction = MAKE_INSN2_RC(subfzeo, RT(), RA()); break;
+ case 0x2CA: instruction = MAKE_INSN2_RC(addzeo, RT(), RA()); break;
+ case 0x2CE: instruction = MAKE_INSN2(stfsdx, FRT(), memrefx(DOUBLET)); break;
+ case 0x2D5: instruction = MAKE_INSN2(stswi, RS(), memrefx(DWORDT)); break;
+ case 0x2D7: instruction = MAKE_INSN2(stfdx, FRS(), memrefx(DOUBLET)); break;
+ case 0x2E8: instruction = MAKE_INSN2_RC(subfmeo, RT(), RA()); break;
+ case 0x2EA: instruction = MAKE_INSN2_RC(addmeo, RT(), RA()); break;
+ case 0x2EB: instruction = MAKE_INSN3_RC(mullwo, RT(), RA(), RB()); break;
+ case 0x2EE: instruction = MAKE_INSN2(stfsdux, FRT(), memrefux(DOUBLET)); break;
+ case 0x2F7: instruction = MAKE_INSN2(stfdux, FRS(), memrefx(DOUBLET)); break;
+ case 0x30A: instruction = MAKE_INSN3_RC(addo, RT(), RA(), RB()); break;
+ case 0x30E: instruction = MAKE_INSN2(stfxsx, FRT(), memrefx(V2FLOATT)); break;
+ case 0x316: instruction = MAKE_INSN2(lhbrx, RT(), memrefx(WORDT)); break;
+ case 0x318: instruction = MAKE_INSN3_RC(sraw, RA(), RS(), RB()); break;
+ case 0x31A: instruction = MAKE_INSN3_RC(srad, RA(), RS(), RB()); break;
+ case 0x32E: instruction = MAKE_INSN2(stfxsux, FRT(), memrefux(V2FLOATT)); break;
+ case 0x338: instruction = MAKE_INSN3_RC(srawi, RA(), RS(), SH_32bit()); break;
+ case 0x33A: instruction = MAKE_INSN3_RC(sradi, RA(), RS(), SH_64bit()); break; // The last bit of the ext. opcode is part of SH
+ case 0x33B: instruction = MAKE_INSN3_RC(sradi, RA(), RS(), SH_64bit()); break; // Same as previous insn
+ case 0x34E: instruction = MAKE_INSN2(stfxdx, FRT(), memrefx(V2DOUBLET)); break;
+ case 0x356: instruction = MAKE_INSN0(eieio); break;
+ case 0x36E: instruction = MAKE_INSN2(stfxdux, FRT(), memrefux(V2DOUBLET)); break;
+ case 0x38E: instruction = MAKE_INSN2(stfpsx, FRT(), memrefx(V2FLOATT)); break;
+ case 0x396: instruction = MAKE_INSN2(sthbrx, RS(), memrefx(WORDT)); break;
+ case 0x39A: instruction = MAKE_INSN2_RC(extsh, RA(), RS()); break;
+ case 0x3AE: instruction = MAKE_INSN2(stfpsux, FRT(), memrefux(V2FLOATT)); break;
+ case 0x3BA: instruction = MAKE_INSN2_RC(extsb, RA(), RS()); break;
+ case 0x3C9: instruction = MAKE_INSN3_RC(divduo, RT(), RA(), RB()); break;
+ case 0x3CB: instruction = MAKE_INSN3_RC(divwuo, RT(), RA(), RB()); break;
+ case 0x3CE: instruction = MAKE_INSN2(stfpdx, FRT(), memrefx(V2DOUBLET)); break;
+ case 0x3D7: instruction = MAKE_INSN2(stfiwx, FRS(), memrefx(DWORDT)); break;
+ case 0x3DA: instruction = MAKE_INSN2_RC(extsw, RA(), RS()); break;
+ case 0x3E9: instruction = MAKE_INSN3_RC(divdo, RT(), RA(), RB()); break;
+ case 0x3EB: instruction = MAKE_INSN3_RC(divwo, RT(), RA(), RB()); break;
+ case 0x3EE: instruction = MAKE_INSN2(stfpdux, FRT(), memrefux(V2DOUBLET)); break;
+ case 0x3F6: instruction = MAKE_INSN1(dcbz, memrefx(BYTET)); break;
- // 4
- case 0x4:
+ // FIXME: merge these into list
+ case 0x13:
{
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* TO = makeRegister(powerpc_regclass_gpr,toOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(tw,TO,RA,RB);
- break;
- }
-
- // 12
- case 0xC:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
+ if (fld<11, 11>() == 0)
{
- instruction = MAKE_INSN2(frsp,FRT,FRB);
+ instruction = MAKE_INSN1(mfcr, RT());
}
else
{
- instruction = MAKE_INSN2(frsp_record,FRT,FRB);
- }
- break;
- }
+ // instruction = MAKE_INSN1(mfocr, RT());
+ instruction = MAKE_INSN1(mfcr, RT());
- // 14
- case 0xE:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fctiw,FRT,FRB);
+ // See note on page 124 of User Instruction Set Architecture version 2.02
+ printf ("This mfocr instruction is an old form of the mfcr instruction ... \n");
+ ROSE_ASSERT(false);
}
- else
- {
- instruction = MAKE_INSN2(fctiw_record,FRT,FRB);
- }
break;
}
- // 15
- case 0xF:
+ case 0x90:
{
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
+ if (fld<11, 11>() == 0)
{
- instruction = MAKE_INSN2(fctiwz,FRT,FRB);
+ instruction = MAKE_INSN2(mtcrf, FXM(), RS());
}
else
{
- instruction = MAKE_INSN2(fctiwz_record,FRT,FRB);
- }
- break;
- }
+ // instruction = MAKE_INSN2(mtocrf, FXM(), RS());
+ instruction = MAKE_INSN2(mtcrf, FXM(), RS());
- // 20
- case 0x14:
- {
- // This is a Book II instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwarx,RT,RA,RB);
- break;
- }
-
- // 21
- case 0x15:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(ldx,RT,RA,RB);
- break;
- }
-
- // 23
- case 0x17:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwzx,RT,RA,RB);
- break;
- }
-
- // 24
- case 0x18:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(slw,RA,RS,RB);
+ // See note on page 124 of User Instruction Set Architecture version 2.02
+ printf ("This mtocrf instruction is an old form of the mtcrf instruction ... \n");
+ ROSE_ASSERT(false);
}
- else
- {
- instruction = MAKE_INSN3(slw_record,RA,RS,RB);
- }
break;
}
- // 26
- case 0x1A:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(cntlzw,RA,RS);
- }
- else
- {
- instruction = MAKE_INSN2(cntlzw_record,RA,RS);
- }
- break;
- }
-
- // 27
- case 0x1B:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(sld,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(sld_record,RA,RS,RB);
- }
- break;
- }
-
- // 28
- case 0x1C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(and,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(and_record,RA,RS,RB);
- }
- break;
- }
-
- // 32
- case 0x20:
- {
- if (primaryOpcode == 0x1F)
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* L = new SgAsmByteValueExpression(lOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN4(cmpl,BF,L,RA,RB);
- }
- else
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpmr,FRT,FRB);
- }
- break;
- }
-
- // 38
- case 0x26:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* BT = new SgAsmByteValueExpression(btOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN1(mtfsb1,BT);
- }
- else
- {
- instruction = MAKE_INSN1(mtfsb1_record,BT);
- }
- break;
- }
-
- // 40
- case 0x28:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fneg,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fneg_record,FRT,FRB);
- }
- break;
- }
-
- // 53
- case 0x35:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(ldux,RT,RA,RB);
- break;
- }
-
- // 55
- case 0x37:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwzux,RT,RA,RB);
- break;
- }
-
- // 60
- case 0x3C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(andc,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(andc_record,RA,RS,RB);
- }
- break;
- }
-
- // 68
- case 0x44:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* TO = makeRegister(powerpc_regclass_gpr,toOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(td,TO,RA,RB);
- break;
- }
-
- // 70
- case 0x46:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* BT = new SgAsmByteValueExpression(btOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN1(mtfsb0,BT);
- }
- else
- {
- instruction = MAKE_INSN1(mtfsb0_record,BT);
- }
- break;
- }
-
- // 72
- case 0x48:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fmr,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fmr_record,FRT,FRB);
- }
- break;
- }
-
- // 83
- case 0x53:
- {
- // This is a privileged instruction (documented in Book III)!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- instruction = MAKE_INSN1(mfmsr,RT);
- break;
- }
-
- // 87
- case 0x57:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lbzx,RT,RA,RB);
- break;
- }
-
- // 96
- case 0x60:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpabs,FRT,FRB);
- break;
- }
-
- // 119
- case 0x77:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lbzux,RT,RA,RB);
- break;
- }
-
- // 124
- case 0x7C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(nor,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(nor_record,RA,RS,RB);
- }
- break;
- }
-
- // 134
- case 0x86:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* U = new SgAsmByteValueExpression(uOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(mtfsfi,BF,U);
- }
- else
- {
- instruction = MAKE_INSN2(mtfsfi_record,BF,U);
- }
- break;
- }
-
- // 136
- case 0x88:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fnabs,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fnabs_record,FRT,FRB);
- }
- break;
- }
-
- // 142
- case 0x8E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfssx,FRT,FRA,FRB);
- break;
- }
-
- // 149
- case 0x95:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stdx,RS,RA,RB);
- break;
- }
-
- // 150
- case 0x96:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stwcx_record,RS,RA,RB);
- break;
- }
-
- // 151
- case 0x97:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stwx,RS,RA,RB);
- break;
- }
-
- // 160
- case 0xA0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpneg,FRT,FRB);
- break;
- }
-
- // 174
- case 0xAE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfssux,FRT,FRA,FRB);
- break;
- }
-
- // 181
- case 0xB5:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stdux,RS,RA,RB);
- break;
- }
-
- // 183
- case 0xB7:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
-
- // If raOpcode == 0, this is an illegal instruction
- ROSE_ASSERT(raOpcode != 0);
-
- SgAsmExpression* addressExpr = makeAdd(RA,RB);
-
- SgAsmMemoryReferenceExpression* mr = makeMemoryReference(addressExpr,NULL,SgAsmTypeDoubleWord::createType());
-
- instruction = MAKE_INSN2(stwux,RS,mr);
- break;
- }
-
- // 188
- case 0xBC: // 188
- case 0xD3: // 211
- {
- // This is a illegal instruction which I will translate to NOP (in PowerPC: nop -> ori for now!
-
- printf ("Processing an illegal instruction (generating a NOP)! \n");
- ROSE_ASSERT(false);
-#if 0
- SgAsmExpression* R0a = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* R0b = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* zero = new SgAsmByteValueExpression(0);
- instruction = MAKE_INSN3(ori,R0a,R0b,zero);
-#endif
- break;
- }
-
- // 192
- case 0xC0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fprsp,FRT,FRB);
- break;
- }
-
- // 206
- case 0xCE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfsdx,FRT,FRA,FRB);
- break;
- }
-
- // 214
- case 0xD6:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stdcx_record,RS,RA,RB);
- break;
- }
-
- // 215
- case 0xD7:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stbx,RS,RA,RB);
- break;
- }
-
- // 224
- case 0xE0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpnabs,FRT,FRB);
- break;
- }
-
- // 238
- case 0xEE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfsdux,FRT,FRA,FRB);
- break;
- }
-
- // 247
- case 0xF7:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stbux,RS,RA,RB);
- break;
- }
-
- // 264
- case 0x108:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fabs,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fabs_record,FRT,FRB);
- }
- break;
- }
-
- // 270
- case 0x10E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfxsx,FRT,FRA,FRB);
- break;
- }
-
- // 278
- case 0x116:
- {
- // This is an instruction from Book II (data cache block touch)
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN2(dcbt,RA,RB);
- break;
- }
-
- // 279
- case 0x117:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lhzx,RT,RA,RB);
- break;
- }
-
- // 284
- case 0x11C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(eqv,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(eqv_record,RA,RS,RB);
- }
- break;
- }
-
- // 288
- case 0x120:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsmr,FRT,FRB);
- break;
- }
-
- // 302
- case 0x12E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfxsux,FRT,FRA,FRB);
- break;
- }
-
- // 311
- case 0x137:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lhzux,RT,RA,RB);
- break;
- }
-
- // 316
- case 0x13C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(xor,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(xor_record,RA,RS,RB);
- }
- break;
- }
-
- // 320
- case 0x140:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* BF = makeRegister(powerpc_regclass_cr,bfOpcode,powerpc_condreggranularity_field);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lhzux,BF,FRA,FRB);
- break;
- }
-
- // 334
- case 0x14E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfxdx,FRT,FRA,FRB);
- break;
- }
-
- // 341
- case 0x155:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwax,RT,RA,RB);
- break;
- }
-
- // 343
- case 0x157:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lhax,RT,RA,RB);
- break;
- }
-
- // 352
- case 0x160:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsabs,FRT,FRB);
- break;
- }
-
- // 366
- case 0x16E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfxdux,FRT,FRA,FRB);
- break;
- }
-
- // 373
- case 0x175:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwaux,RT,RA,RB);
- break;
- }
-
- // 375
- case 0x177:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lhaux,RT,RA,RB);
- break;
- }
-
- // 398
- case 0x18E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfpsx,FRT,FRA,FRB);
- break;
- }
-
- // 407
- case 0x197:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(sthx,RS,RA,RB);
- break;
- }
-
- // 412
- case 0x19C:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(orc,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(orc_record,RA,RS,RB);
- }
- break;
- }
-
- // 416
- case 0x1A0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsneg,FRT,FRB);
- break;
- }
-
- // 430
- case 0x1AE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfpsux,FRT,FRA,FRB);
- break;
- }
-
- // 439
- case 0x1B7:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(sthux,RS,RA,RB);
- break;
- }
-
- // 444
- case 0x1BC:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(or,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(or_record,RA,RS,RB);
- }
- break;
- }
-
- // 462
- case 0x1CE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfpdx,FRT,FRA,FRB);
- break;
- }
-
- // 476
- case 0x1DC:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(nand,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(nand_record,RA,RS,RB);
- }
- break;
- }
-
- // 480
- case 0x1E0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsnabs,FRT,FRB);
- break;
- }
-
- // 494
- case 0x1EE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(lfpdux,FRT,FRA,FRB);
- break;
- }
-
- // 526
- case 0x20E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfpiwx,FRT,FRA,FRB);
- break;
- }
-
- // 533
- case 0x215:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lswx,RT,RA,RB);
- break;
- }
-
- // 534
- case 0x216:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lwbrx,RT,RA,RB);
- break;
- }
-
- // 535
- case 0x217:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lfsx,FRT,RA,RB);
- break;
- }
-
- // 536
- case 0x218:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(srw,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(srw_record,RA,RS,RB);
- }
- break;
- }
-
- // 539
- case 0x21B:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(srd,RA,RS,RB);
- }
- else
- {
- instruction = MAKE_INSN3(srd_record,RA,RS,RB);
- }
- break;
- }
-
- // 544
- case 0x220:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fxmr,FRT,FRB);
- break;
- }
-
- // 567
- case 0x237:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lfsux,FRT,RA,RB);
- break;
- }
-
- // 583
- case 0x247:
- {
- ROSE_ASSERT(primaryOpcode == 0x3F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_fpr,frtOpcode,powerpc_condreggranularity_whole);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN1(mffs,FRT);
- }
- else
- {
- instruction = MAKE_INSN1(mffs_record,FRT);
- }
- break;
- }
-
- // 576
- case 0x240:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpctiw,FRT,FRB);
- break;
- }
-
- // 597
- case 0x255:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lswx,RT,RA,RB);
- break;
- }
-
- // 599
- case 0x257:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lfdx,FRT,RA,RB);
- break;
- }
-
- // 631
- case 0x277:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lfdux,FRT,RA,RB);
- break;
- }
-
- // 654
- case 0x28E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfssx,FRT,FRA,FRB);
- break;
- }
-
- // 661
- case 0x295:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stswx,RS,RA,RB);
- break;
- }
-
- // 662
- case 0x296:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stwbrx,RS,RA,RB);
- break;
- }
-
- // 686
- case 0x2AE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfssux,FRT,FRA,FRB);
- break;
- }
-
- // 704
- case 0x2C0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fpctiwz,FRT,FRB);
- break;
- }
-
- // 718
- case 0x2CE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfsdx,FRT,FRA,FRB);
- break;
- }
-
- // 725
- case 0x2D5:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stswi,RS,RA,RB);
- break;
- }
-
- // 750
- case 0x2EE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfsdux,FRT,FRA,FRB);
- break;
- }
-
- // 782
- case 0x30E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfxsx,FRT,FRA,FRB);
- break;
- }
-
- // 790
- case 0x316:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(lhbrx,RT,RA,RB);
- break;
- }
-
- // 792
- case 0x318:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(srad,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(srad_record,RA,RS,SH);
- }
- break;
- }
-
- // 794
- case 0x31A:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(sraw,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(sraw_record,RA,RS,SH);
- }
- break;
- }
-
- // 800
- case 0x320:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsmtp,FRT,FRB);
- break;
- }
-
- // 814
- case 0x32E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfxsux,FRT,FRA,FRB);
- break;
- }
-
- // 824
- case 0x338:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(srawi,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(srawi_record,RA,RS,SH);
- }
- break;
- }
-
- // 846
- case 0x34E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfxdx,FRT,FRA,FRB);
- break;
- }
-
- // 854
- case 0x356:
- {
- // This is a book II instruction "Enforce In-order Execution of I/O
- ROSE_ASSERT(primaryOpcode == 0x1F);
- instruction = MAKE_INSN0(eieio);
- break;
- }
-
- // 878
- case 0x36E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfxdux,FRT,FRA,FRB);
- break;
- }
-
- // 910
- case 0x38E:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfpsx,FRT,FRA,FRB);
- break;
- }
-
- // 918
- case 0x396:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(sthbrx,RS,RA,RB);
- break;
- }
-
- // 922
- case 0x39A:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(extsh,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(extsh_record,RA,RS,SH);
- }
- break;
- }
-
- // 928
- case 0x3A0:
- {
- ROSE_ASSERT(primaryOpcode == 0x0);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN2(fsmfp,FRT,FRB);
- break;
- }
-
- // 942
- case 0x3AE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfpsux,FRT,FRA,FRB);
- break;
- }
-
- // 954
- case 0x3BA:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(extsb,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(extsb_record,RA,RS,SH);
- }
- break;
- }
-
- // 974
- case 0x3CE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfpdx,FRT,FRA,FRB);
- break;
- }
-
- // 983
- case 0x3D7:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRS = makeRegister(powerpc_regclass_gpr,frsOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN3(stfiwx,FRS,RA,RB);
- break;
- }
-
- // 986
- case 0x3DA:
- {
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(extsw,RA,RS,SH);
- }
- else
- {
- instruction = MAKE_INSN3(extsw_record,RA,RS,SH);
- }
- break;
- }
-
- // 1006
- case 0x3EE:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- instruction = MAKE_INSN3(stfpdux,FRT,FRA,FRB);
- break;
- }
-
- // 1014
- case 0x3F6:
- {
- // BGL instruction!
- ROSE_ASSERT(primaryOpcode == 0x1F);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- instruction = MAKE_INSN2(dcbz,RA,RB);
- break;
- }
-
- // BGL specific instructions
- case 0x2A0: // 672
- {
- // These appear to be BGL specific instructions (not a part of the public PowerPC instruction set documentation).
- ROSE_ASSERT(primaryOpcode == 0x0);
- instruction = MAKE_INSN0(unknown_instruction);
- break;
- }
-
- // BGL specific instructions
- case 0x36: // 54
- case 0x56: // 86
-// case 0x1CE: // 462
-// case 0x1EE: // 494
- case 0x256: // 598
-// case 0x257: // 599
- case 0x2D7: // 727
-// case 0x3BA: // 954
- case 0x3BE: // 958
-// case 0x3CE: // 974
-// case 0x3EE: // 1006
- {
- // These appear to be BGL specific instructions (not a part of the public PowerPC instruction set documentation).
- ROSE_ASSERT(primaryOpcode == 0x1F);
- instruction = MAKE_INSN0(unknown_instruction);
- break;
- }
-#if 0
- // BGL specific instructions
- case 0x48: // 72
- {
- // These appear to be BGL specific instructions (not a part of the public PowerPC instruction set documentation).
- ROSE_ASSERT(primaryOpcode == 0x3F);
- instruction = MAKE_INSN0(unknown_instruction);
- break;
- }
-#endif
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: X-Form xoOpcode = %d not handled! \n",xoOpcode);
- ROSE_ASSERT(false);
-
- // throw BadInstruction();
+ printf ("Error: X-Form 1F xoOpcode = %d not handled! \n", xoOpcode);
+ throw BadInstruction();
}
}
@@ -2859,188 +790,86 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_XL_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_X_formInstruction_3F()
{
SgAsmPowerpcInstruction* instruction = NULL;
// The primaryOpcode
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- ROSE_ASSERT(primaryOpcode == 0x13);
+ ROSE_ASSERT (primaryOpcode == 0x3F);
- // Get the bits 6-10, next 5 bits
- uint8_t btOpcode = (insn >> 21) & 0x1F;
- uint8_t boOpcode = btOpcode;
- uint8_t bfOpcode = btOpcode;
-
- // Get the bits 11-15, next 5 bits
- uint8_t baOpcode = (insn >> 16) & 0x1F;
- uint8_t biOpcode = baOpcode;
-
- // Get the bits 11-13, next 3 bits
- uint8_t bfaOpcode = (insn >> 18) & 0x7;
-
- // Get the bits 16-20, next 5 bits
- uint8_t bbOpcode = (insn >> 11) & 0x1F;
-
- // Get the bits 19-20, next 2 bits
- uint8_t bhOpcode = (insn >> 11) & 0x3;
-
// Get the bits 21-30, next 10 bits
uint16_t xoOpcode = (insn >> 1) & 0x3FF;
- // Get bit 31, 1 bit as the link bit
- uint8_t lkOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("XL-Form instruction opcode = 0x%x xoOpcode = 0x%x = %d btOpcode = 0x%x = %d baOpcode = 0x%x = %d bbOpcode = 0x%x = %d bhOpcode = 0x%x = %d lkOpcode = 0x%x \n",
- insn,xoOpcode,xoOpcode,btOpcode,btOpcode,baOpcode,baOpcode,bbOpcode,bbOpcode,bhOpcode,bhOpcode,lkOpcode);
+ printf ("X-Form instruction opcode = 0x%x primaryOpcode = 0x%x xoOpcode = 0x%x \n", insn, primaryOpcode, xoOpcode);
#endif
switch(xoOpcode)
{
- // 0
- case 0x0:
- {
- SgAsmExpression* BF = makeRegister(powerpc_regclass_gpr,bfOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BFA = makeRegister(powerpc_regclass_gpr,bfaOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN2(mcrf,BF,BFA);
- break;
- }
+ case 0x0: instruction = MAKE_INSN3(fcmpu, BF_cr(), FRA(), FRB()); break;
+ case 0xC: instruction = MAKE_INSN2_RC(frsp, FRT(), FRB()); break;
+ case 0xE: instruction = MAKE_INSN2_RC(fctiw, FRT(), FRB()); break;
+ case 0xF: instruction = MAKE_INSN2_RC(fctiwz, FRT(), FRB()); break;
+ case 0x26: instruction = MAKE_INSN1(mtfsb1, BT()); break;
+ case 0x28: instruction = MAKE_INSN2_RC(fneg, FRT(), FRB()); break;
+ case 0x46: instruction = MAKE_INSN1_RC(mtfsb0, BT()); break;
+ case 0x48: instruction = MAKE_INSN2_RC(fmr, FRT(), FRB()); break;
+ case 0x86: instruction = MAKE_INSN2_RC(mtfsfi, BF_fpscr(), U()); break;
+ case 0x88: instruction = MAKE_INSN2_RC(fnabs, FRT(), FRB()); break;
+ case 0x108: instruction = MAKE_INSN2_RC(fabs, FRT(), FRB()); break;
+ case 0x247: instruction = MAKE_INSN1_RC(mffs, FRT()); break;
+ case 0x2C7: instruction = MAKE_INSN2_RC(mtfsf, FLM(), FRB()); break;
- // 16
- case 0x10:
+ default:
{
- SgAsmExpression* BO = new SgAsmByteValueExpression(boOpcode);
- SgAsmExpression* BI = makeRegister(powerpc_regclass_cr,biOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BH = new SgAsmByteValueExpression(bhOpcode);
- if (lkOpcode == 0)
- {
- instruction = MAKE_INSN3(bclr,BO,BI,BH);
- }
- else
- {
- instruction = MAKE_INSN3(bclrl,BO,BI,BH);
+ // The default case is now used for handling illegal instructions
+ // (during development it was for those not yet implemented).
+ printf ("Error: X-Form 3F xoOpcode = %d not handled! \n", xoOpcode);
+ ROSE_ASSERT(false);
- knownSuccessorsReturn->insert(p.ip + 4);
- }
-
-#if DEBUG_BRANCH_LOGIC
- printf ("***** Need to compute branch address (but it is indirect, via link register) ***** \n");
- // ROSE_ASSERT(false);
-#endif
- break;
+ // throw BadInstruction();
}
+ }
- // 33
- case 0x21:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crnor,BT,BA,BB);
- break;
- }
+ ROSE_ASSERT(instruction != NULL);
+ return instruction;
+ }
- // 129
- case 0x81:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crandc,BT,BA,BB);
- break;
- }
+SgAsmPowerpcInstruction*
+PowerpcDisassembler::SingleInstructionDisassembler::decode_X_formInstruction_00()
+ {
+ SgAsmPowerpcInstruction* instruction = NULL;
- // 193
- case 0xC1:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crxor,BT,BA,BB);
- break;
- }
+ if (insn == 0) throw BadInstruction(); // Special, known bad instruction form
- // 225
- case 0xE1:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crnand,BT,BA,BB);
- break;
- }
+ // Get the bits 21-30, next 10 bits
+ uint16_t xoOpcode = (insn >> 1) & 0x3FF;
- // 257
- case 0x101:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crand,BT,BA,BB);
- break;
- }
-
- // 289
- case 0x121:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(creqv,BT,BA,BB);
- break;
- }
-
- // 417
- case 0x1A1:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(crorc,BT,BA,BB);
- break;
- }
-
- // 449
- case 0x1C1:
- {
- SgAsmExpression* BT = makeRegister(powerpc_regclass_cr,btOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BA = makeRegister(powerpc_regclass_cr,baOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BB = makeRegister(powerpc_regclass_cr,bbOpcode,powerpc_condreggranularity_bit);
- instruction = MAKE_INSN3(cror,BT,BA,BB);
- break;
- }
-
- // 528
- case 0x210:
- {
- SgAsmExpression* BO = new SgAsmByteValueExpression(boOpcode);
- SgAsmExpression* BI = makeRegister(powerpc_regclass_cr,biOpcode,powerpc_condreggranularity_bit);
- SgAsmExpression* BH = new SgAsmByteValueExpression(bhOpcode);
- if (lkOpcode == 0)
- {
- instruction = MAKE_INSN3(bcctr,BO,BI,BH);
- }
- else
- {
- instruction = MAKE_INSN3(bcctrl,BO,BI,BH);
-
- knownSuccessorsReturn->insert(p.ip + 4);
- }
-
-#if DEBUG_BRANCH_LOGIC
- printf ("***** Need to compute branch address (but it is indirect, via link register) ***** \n");
- // ROSE_ASSERT(false);
-#endif
- break;
- }
-
+ switch(xoOpcode)
+ {
+ case 0x020: instruction = MAKE_INSN2(fpmr, FRT(), FRB()); break;
+ case 0x060: instruction = MAKE_INSN2(fpabs, FRT(), FRB()); break;
+ case 0x0A0: instruction = MAKE_INSN2(fpneg, FRT(), FRB()); break;
+ case 0x0C0: instruction = MAKE_INSN2(fprsp, FRT(), FRB()); break;
+ case 0x0E0: instruction = MAKE_INSN2(fpnabs, FRT(), FRB()); break;
+ case 0x120: instruction = MAKE_INSN2(fsmr, FRT(), FRB()); break;
+ case 0x160: instruction = MAKE_INSN2(fsabs, FRT(), FRB()); break;
+ case 0x1A0: instruction = MAKE_INSN2(fsneg, FRT(), FRB()); break;
+ case 0x1E0: instruction = MAKE_INSN2(fsnabs, FRT(), FRB()); break;
+ case 0x220: instruction = MAKE_INSN2(fxmr, FRT(), FRB()); break;
+ case 0x240: instruction = MAKE_INSN2(fpctiw, FRT(), FRB()); break;
+ case 0x2C0: instruction = MAKE_INSN2(fpctiwz, FRT(), FRB()); break;
+ case 0x320: instruction = MAKE_INSN2(fsmtp, FRT(), FRB()); break;
+ case 0x3A0: instruction = MAKE_INSN2(fsmfp, FRT(), FRB()); break;
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: XL-Form xoOpcode = %d not handled! \n",xoOpcode);
+ printf ("Error: X-Form 00 xoOpcode = %d not handled! \n", xoOpcode);
ROSE_ASSERT(false);
+
+ // throw BadInstruction();
}
}
@@ -3049,106 +878,65 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_XFX_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_XL_formInstruction()
{
SgAsmPowerpcInstruction* instruction = NULL;
// The primaryOpcode
uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- ROSE_ASSERT(primaryOpcode == 0x1F);
+ ROSE_ASSERT(primaryOpcode == 0x13);
- // Get the bits 6-10, 5 bits wide
- uint8_t rtOpcode = (insn >> 21) & 0x1F;
- uint8_t rsOpcode = rtOpcode;
-
- // Get the bits 11-20, 10 bits wide
- uint16_t sprOpcode_temp = (insn >> 11) & 0x3FF;
- uint16_t sprOpcode = ((sprOpcode_temp >> 5) | (sprOpcode_temp << 5)) & 0x3FF;
-
- // Values currently commented out are expected to be used later!
- // uint16_t tbrOpcode = sprOpcode;
-
- // Get the bit 11, 1 bit wide
- uint8_t constantOpcode = (insn >> 20) & 0x1;
-
- // Values currently commented out are expected to be used later!
- // Get the bits 12-20, 8 bits wide
- uint8_t fxmOpcode = (insn >> 12) & 0xFF;
-
// Get the bits 21-30, next 10 bits
uint16_t xoOpcode = (insn >> 1) & 0x3FF;
#if DEBUG_OPCODES
- printf ("XFX-Form instruction opcode = 0x%x xoOpcode = 0x%x \n",insn,xoOpcode);
+ printf ("XL-Form instruction opcode = 0x%x xoOpcode = 0x%x = %d btOpcode = 0x%x = %d baOpcode = 0x%x = %d bbOpcode = 0x%x = %d bhOpcode = 0x%x = %d lkOpcode = 0x%x \n",
+ insn, xoOpcode, xoOpcode, btOpcode, btOpcode, baOpcode, baOpcode, bbOpcode, bbOpcode, bhOpcode, bhOpcode, lkOpcode);
#endif
switch(xoOpcode)
{
- // 19
- case 0x13:
+ case 0x000: instruction = MAKE_INSN2(mcrf, BF_cr(), BFA_cr()); break;
+ case 0x010:
{
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- if (constantOpcode == 0)
+ if (LK() == 0)
{
- instruction = MAKE_INSN1(mfcr,RT);
+ instruction = MAKE_INSN3(bclr, BO(), BI(), BH());
}
else
{
- // instruction = MAKE_INSN1(mfocr,RT);
- instruction = MAKE_INSN1(mfcr,RT);
-
- // See note on page 124 of User Instruction Set Architecture version 2.02
- printf ("This mfocr instruction is an old form of the mfcr instruction ... \n");
- ROSE_ASSERT(false);
+ instruction = MAKE_INSN3(bclrl, BO(), BI(), BH());
+ knownSuccessorsReturn->insert(p.ip + 4);
}
break;
}
-
- // 144
- case 0x90:
+ case 0x021: instruction = MAKE_INSN3(crnor, BT(), BA(), BB()); break;
+ case 0x081: instruction = MAKE_INSN3(crandc, BT(), BA(), BB()); break;
+ case 0x0C1: instruction = MAKE_INSN3(crxor, BT(), BA(), BB()); break;
+ case 0x0E1: instruction = MAKE_INSN3(crnand, BT(), BA(), BB()); break;
+ case 0x101: instruction = MAKE_INSN3(crand, BT(), BA(), BB()); break;
+ case 0x121: instruction = MAKE_INSN3(creqv, BT(), BA(), BB()); break;
+ case 0x1A1: instruction = MAKE_INSN3(crorc, BT(), BA(), BB()); break;
+ case 0x1C1: instruction = MAKE_INSN3(cror, BT(), BA(), BB()); break;
+ case 0x210:
{
- SgAsmExpression* FXM = new SgAsmByteValueExpression(fxmOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- if (constantOpcode == 0)
+ if (LK() == 0)
{
- instruction = MAKE_INSN2(mtcrf,FXM,RS);
+ instruction = MAKE_INSN3(bcctr, BO(), BI(), BH());
}
else
{
- // instruction = MAKE_INSN2(mtocrf,FXM,RS);
- instruction = MAKE_INSN2(mtcrf,FXM,RS);
-
- // See note on page 124 of User Instruction Set Architecture version 2.02
- printf ("This mtocrf instruction is an old form of the mtcrf instruction ... \n");
- ROSE_ASSERT(false);
+ instruction = MAKE_INSN3(bcctrl, BO(), BI(), BH());
+ knownSuccessorsReturn->insert(p.ip + 4);
}
break;
}
- // 339
- case 0x153:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- // SgAsmExpression* SPR = new SgAsmWordValueExpression(sprOpcode);
- SgAsmExpression* SPR = makeRegister(powerpc_regclass_spr,sprOpcode,powerpc_condreggranularity_whole);
- instruction = MAKE_INSN2(mfspr,RT,SPR);
- break;
- }
-
- // 467
- case 0x1d3:
- {
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
- SgAsmExpression* SPR = makeRegister(powerpc_regclass_spr,sprOpcode,powerpc_condreggranularity_whole);
- instruction = MAKE_INSN2(mtspr,RS,SPR);
- break;
- }
-
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: XFX-Form xoOpcode = %d not handled! \n",xoOpcode);
+ printf ("Error: XL-Form xoOpcode = %d not handled! \n", xoOpcode);
ROSE_ASSERT(false);
}
}
@@ -3158,650 +946,80 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_XFL_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_A_formInstruction_00()
{
SgAsmPowerpcInstruction* instruction = NULL;
- // The primaryOpcode
- uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- ROSE_ASSERT(primaryOpcode == 0x3F);
-
- // Get the bits 7-14, 8 bits wide
- uint8_t flmOpcode = (insn >> 17) & 0xFF;
-
- // Get the bits 16-20, 5 bits wide
- uint8_t frbOpcode = (insn >> 11) & 0x1F;
-
- // Get the bit 31, 1 bit wide
- uint8_t rcOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("XFL-Form instruction opcode = 0x%x flmOpcode = 0x%x = %d frbOpcode = 0x%x = %d \n",insn,flmOpcode,flmOpcode,frbOpcode,frbOpcode);
+ printf ("A-Form instruction opcode = 0x%x primaryOpcode = 0x%x frtOpcode = 0x%x fraOpcode = 0x%x frbOpcode = 0x%x frcOpcode = 0x%x xOpcode = 0x%x rcOpcode = 0x%x \n", insn, primaryOpcode, frtOpcode, fraOpcode, frbOpcode, frcOpcode, xOpcode, rcOpcode);
#endif
- SgAsmExpression* FLM = new SgAsmWordValueExpression(flmOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (rcOpcode == 0)
+ switch(fld<26, 30>())
{
- instruction = MAKE_INSN2(mtfsf,FLM,FRB);
+ case 0x05: instruction = MAKE_INSN4(fpsel, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x08: instruction = MAKE_INSN3(fpmul, FRT(), FRA(), FRC()); break;
+ case 0x09: instruction = MAKE_INSN3(fxmul, FRT(), FRA(), FRC()); break;
+ case 0x0A: instruction = MAKE_INSN3(fxpmul, FRT(), FRA(), FRC()); break;
+ case 0x0B: instruction = MAKE_INSN3(fxsmul, FRT(), FRA(), FRC()); break;
+ case 0x0C: instruction = MAKE_INSN3(fpadd, FRT(), FRA(), FRB()); break;
+ case 0x0D: instruction = MAKE_INSN3(fpsub, FRT(), FRA(), FRB()); break;
+ case 0x0E: instruction = MAKE_INSN2(fpre, FRT(), FRB()); break;
+ case 0x0F: instruction = MAKE_INSN2(fprsqrte, FRT(), FRB()); break;
+ case 0x10: instruction = MAKE_INSN4(fpmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x11: instruction = MAKE_INSN4(fxmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x12: instruction = MAKE_INSN4(fxcpmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x13: instruction = MAKE_INSN4(fxcsmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x14: instruction = MAKE_INSN4(fpnmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x15: instruction = MAKE_INSN4(fxnmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x16: instruction = MAKE_INSN4(fxcpnmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x17: instruction = MAKE_INSN4(fxcsnmadd, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x18: instruction = MAKE_INSN4(fpmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x19: instruction = MAKE_INSN4(fxmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1A: instruction = MAKE_INSN4(fxcpmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1B: instruction = MAKE_INSN4(fxcsmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1C: instruction = MAKE_INSN4(fpnmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1D: instruction = MAKE_INSN4(fxnmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1E: instruction = MAKE_INSN4(fxcpnmsub, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1F: instruction = MAKE_INSN4(fxcsnmsub, FRT(), FRA(), FRB(), FRC()); break;
+ default:
+ {
+ // The default case is now used for handling illegal instructions
+ // (during development it was for those not yet implemented).
+ printf ("Error: A-Form xOpcode = %d (illegal instruction) \n", int(fld<26, 30>()));
+ ROSE_ASSERT(false);
+ }
}
- else
- {
- instruction = MAKE_INSN2(mtfsf_record,FLM,FRB);
- }
ROSE_ASSERT(instruction != NULL);
return instruction;
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_XS_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_A_formInstruction_04()
{
SgAsmPowerpcInstruction* instruction = NULL;
- printf ("XS-Form instructions not implemented yet, I have no examples so far! \n");
-
- ROSE_ASSERT(instruction != NULL);
- return instruction;
- }
-
-SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_XO_formInstruction()
- {
- SgAsmPowerpcInstruction* instruction = NULL;
-
- // The primaryOpcode
- uint8_t primaryOpcode = (insn >> 26) & 0x3F;
- ROSE_ASSERT(primaryOpcode == 0x1F);
-
- // Get the bits 6-10, 5 bits wide
- uint8_t rtOpcode = (insn >> 21) & 0x1F;
-
- // Get the bits 11-15, 5 bits wide
- uint8_t raOpcode = (insn >> 16) & 0x1F;
-
- // Get the bits 16-20, 5 bits wide
- uint8_t rbOpcode = (insn >> 11) & 0x1F;
-
- // Get the bit 21, 1 bit wide
- uint8_t oeOpcode = (insn >> 10) & 0x1;
-
- // Get the bits 21-30, next 10 bits
- uint16_t xoOpcode = (insn >> 1) & 0x1FF;
-
- // Get the bit 31, 1 bit wide
- uint8_t rcOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("XO-Form instruction opcode = 0x%x xoOpcode = 0x%x \n",insn,xoOpcode);
+ printf ("A-Form instruction opcode = 0x%x primaryOpcode = 0x%x frtOpcode = 0x%x fraOpcode = 0x%x frbOpcode = 0x%x frcOpcode = 0x%x xOpcode = 0x%x rcOpcode = 0x%x \n", insn, primaryOpcode, frtOpcode, fraOpcode, frbOpcode, frcOpcode, xOpcode, rcOpcode);
#endif
- switch(xoOpcode)
- {
- // 8
- case 0x8:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subfc,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subfc_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subfco,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subfco_record,RT,RA,RB);
- }
- }
- break;
- }
+ // FIX ME: Make the floating point registers use the powerpc_regclass_fpr instead of powerpc_regclass_gpr
- // 9
- case 0x9:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mulhdu,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mulhdu_record,RT,RA,RB);
- }
- break;
- }
-
- // 10
- case 0xA:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(addc,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(addc_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(addco,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(addco_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 11
- case 0xB:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mulhwu,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mulhwu_record,RT,RA,RB);
- }
- break;
- }
-
- // 40
- case 0x28:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subf,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subf_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subfo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subfo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 73
- case 0x49:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mulhd,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mulhd_record,RT,RA,RB);
- }
- break;
- }
-
- // 75
- case 0x4B:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mulhw,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mulhw_record,RT,RA,RB);
- }
- break;
- }
-
- // 104
- case 0x68:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(neg,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(neg_record,RT,RA);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(nego,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(nego_record,RT,RA);
- }
- }
- break;
- }
-
- // 136
- case 0x88:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(adde,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(adde_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(addeo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(addeo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 138
- case 0x8A:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subfe,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subfe_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(subfeo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(subfeo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 200
- case 0xC8:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(subfze,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(subfze_record,RT,RA);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(subfzeo,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(subfzeo_record,RT,RA);
- }
- }
- break;
- }
-
- // 202
- case 0xCA:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(addze,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(addze_record,RT,RA);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(addzeo,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(addzeo_record,RT,RA);
- }
- }
- break;
- }
-
- // 232
- case 0xE8:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(subfme,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(subfme_record,RT,RA);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(subfmeo,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(subfmeo_record,RT,RA);
- }
- }
- break;
- }
-
- // 234
- case 0xEA:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(addme,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(addme_record,RT,RA);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(addmeo,RT,RA);
- }
- else
- {
- instruction = MAKE_INSN2(addmeo_record,RT,RA);
- }
- }
- break;
- }
-
- // 235
- case 0xEB:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mullw,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mullw_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(mullwo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(mullwo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 266
- case 0x10A:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(add,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(add_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(addo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(addo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 457
- case 0x1C9:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divdu,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divdu_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divduo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divduo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 459
- case 0x1CB:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divwu,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divwu_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divwuo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divwuo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 489
- case 0x1E9:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divd,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divd_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divdo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divdo_record,RT,RA,RB);
- }
- }
- break;
- }
-
- // 491
- case 0x1EB:
- {
- SgAsmExpression* RT = makeRegister(powerpc_regclass_gpr,rtOpcode);
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RB = makeRegister(powerpc_regclass_gpr,rbOpcode);
- if (oeOpcode == 0)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divw,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divw_record,RT,RA,RB);
- }
- }
- else
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(divwo,RT,RA,RB);
- }
- else
- {
- instruction = MAKE_INSN3(divwo_record,RT,RA,RB);
- }
- }
- break;
- }
-
+ switch(fld<26, 30>())
+ {
+ case 0x18: instruction = MAKE_INSN4(fxcpnpma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x19: instruction = MAKE_INSN4(fxcsnpma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1A: instruction = MAKE_INSN4(fxcpnsma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1B: instruction = MAKE_INSN4(fxcsnsma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1C: instruction = MAKE_INSN4(fxcxma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1D: instruction = MAKE_INSN4(fxcxnpma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1E: instruction = MAKE_INSN4(fxcxnsma, FRT(), FRA(), FRB(), FRC()); break;
+ case 0x1F: instruction = MAKE_INSN4(fxcxnms, FRT(), FRA(), FRB(), FRC()); break;
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: XO-Form xoOpcode = %d not handled! \n",xoOpcode);
+ printf ("Error: A-Form xOpcode = %d (illegal instruction) \n", int(fld<26, 30>()));
ROSE_ASSERT(false);
}
}
@@ -3811,861 +1029,28 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_A_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_A_formInstruction_3B()
{
SgAsmPowerpcInstruction* instruction = NULL;
- // The primaryOpcode
- uint8_t primaryOpcode = (insn >> 26) & 0x3F;
-
- // Get the bits 6-10, next 5 bits
- uint8_t frtOpcode = (insn >> 21) & 0x1F;
-
- // Get the bits 11-15, next 5 bits
- uint8_t fraOpcode = (insn >> 16) & 0x1F;
-
- // Get the bits 16-20, next 5 bits
- uint8_t frbOpcode = (insn >> 11) & 0x1F;
-
- // Get the bits 21-25, next 5 bits
- uint8_t frcOpcode = (insn >> 6) & 0x1F;
-
- // Get the bits 26-30, next 5 bits
- uint8_t xOpcode = (insn >> 1) & 0x1F;
-
- // Get bit 31, 1 bit as the record bit
- uint8_t rcOpcode = (insn >> 0) & 0x1;
-
-#if DEBUG_OPCODES
- printf ("A-Form instruction opcode = 0x%x primaryOpcode = 0x%x frtOpcode = 0x%x fraOpcode = 0x%x frbOpcode = 0x%x frcOpcode = 0x%x xOpcode = 0x%x rcOpcode = 0x%x \n",insn,primaryOpcode,frtOpcode,fraOpcode,frbOpcode,frcOpcode,xOpcode,rcOpcode);
-#endif
-
- SgAsmExpression* FRT = makeRegister(powerpc_regclass_gpr,frtOpcode);
-
- // Decode these instructions last, to avoid confusion!
- ROSE_ASSERT(primaryOpcode != 0x4);
-
- switch(xOpcode)
+ switch(fld<26, 30>())
{
- // 5
- case 0x5:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fpsel,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 8
- case 0x8:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fpmul,FRT,FRA,FRC);
- break;
- }
-
- // 9
- case 0x9:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fxmul,FRT,FRA,FRC);
- break;
- }
-
- // 10
- case 0xA:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fxpmul,FRT,FRA,FRC);
- break;
- }
-
- // 11
- case 0xB:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fxsmul,FRT,FRA,FRC);
- break;
- }
-
- // 12
- case 0xC:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fpadd,FRT,FRA,FRB);
- break;
- }
-
- // 13
- case 0xD:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN3(fpsub,FRT,FRA,FRB);
- break;
- }
-
- // 14
- case 0xE:
- {
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN2(fpre,FRT,FRB);
- break;
- }
-
- // 15
- case 0xF:
- {
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN2(fprsqrte,FRT,FRB);
- break;
- }
-
- // 16
- case 0x10:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fpmadd,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 17
- case 0x11:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxmadd,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 18
- case 0x12:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (primaryOpcode == 0x3B /*59*/)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fdivs,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fdivs_record,FRT,FRA,FRB);
- }
- }
- else
- {
- if (primaryOpcode == 0x3F /*63*/)
- {
- ROSE_ASSERT (primaryOpcode == 0x3F /*63*/);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fdiv,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fdiv_record,FRT,FRA,FRB);
- }
- }
- else
- {
- // FP2 BGL instruction
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpmadd,FRT,FRA,FRB,FRC);
- }
- }
- break;
- }
-
- // 19
- case 0x13:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcsmadd,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 20
- case 0x14:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (primaryOpcode == 0x3B /*59*/)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fsubs,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fsubs_record,FRT,FRA,FRB);
- }
- }
- else
- {
- if (primaryOpcode == 0x3F /*63*/)
- {
- ROSE_ASSERT (primaryOpcode == 0x3F /*63*/);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fsub,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fsub_record,FRT,FRA,FRB);
- }
- }
- else
- {
- // FP2 BGL instruction
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fpnmadd,FRT,FRA,FRB,FRC);
- }
- }
- break;
- }
-
- // 21
- case 0x15:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (primaryOpcode == 0x3B /*59*/)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fadds,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fadds_record,FRT,FRA,FRB);
- }
- }
- else
- {
- if (primaryOpcode == 0x3F /*63*/)
- {
- ROSE_ASSERT (primaryOpcode == 0x3F /*63*/);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fadd,FRT,FRA,FRB);
- }
- else
- {
- instruction = MAKE_INSN3(fadd_record,FRT,FRA,FRB);
- }
- }
- else
- {
- // FP2 BGL instruction
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxnmadd,FRT,FRA,FRB,FRC);
- }
- }
- break;
- }
-
- // 22
- case 0x16:
- {
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- if (primaryOpcode == 0x3B /*59*/)
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fsqrts,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fsqrts_record,FRT,FRB);
- }
- }
- else
- {
- if (primaryOpcode == 0x3F /*63*/)
- {
- ROSE_ASSERT (primaryOpcode == 0x3F /*63*/);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fsqrt,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fsqrt_record,FRT,FRB);
- }
- }
- else
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpnmadd,FRT,FRA,FRB,FRC);
- }
- }
- break;
- }
-
- // 23
- case 0x17:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- if (primaryOpcode == 0x3F /*63*/)
- {
- ROSE_ASSERT (primaryOpcode == 0x3F /*63*/);
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN4(fsel,FRT,FRA,FRC,FRB);
- }
- else
- {
- instruction = MAKE_INSN4(fsel_record,FRT,FRA,FRC,FRB);
- }
- }
- else
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcsnmadd,FRT,FRA,FRB,FRC);
- }
- break;
- }
-
- // 24
- case 0x18:
- {
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fpmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpnpma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fres,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fres_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fre,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fre_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 25
- case 0x19:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcsnpma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fmuls,FRT,FRA,FRC);
- }
- else
- {
- instruction = MAKE_INSN3(fmuls_record,FRT,FRA,FRC);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN3(fmul,FRT,FRA,FRC);
- }
- else
- {
- instruction = MAKE_INSN3(fmul_record,FRT,FRA,FRC);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 26
- case 0x1A:
- {
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpnsma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(frsqrtes,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(frsqrtes_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(frsqrte,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(frsqrte_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 27
- case 0x1B:
- {
- // FP2 BGL instruction
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcsmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x4 /*4*/);
- instruction = MAKE_INSN4(fxcsnsma,FRT,FRA,FRB,FRC);
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 28
- case 0x1C:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fpnmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcxma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fmsubs,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fmsubs_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fmsub,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fmsub_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 29
- case 0x1D:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxnmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcxnpma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fmadds,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fmadds_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fmadd,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fmadd_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 30
- case 0x1E:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcpnmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcxnsma,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fnmsubs,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fnmsubs_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fnmsub,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fnmsub_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
- // 31
- case 0x1F:
- {
- SgAsmExpression* FRA = makeRegister(powerpc_regclass_gpr,fraOpcode);
- SgAsmExpression* FRB = makeRegister(powerpc_regclass_gpr,frbOpcode);
- SgAsmExpression* FRC = makeRegister(powerpc_regclass_gpr,frcOpcode);
- switch(primaryOpcode)
- {
- // 0
- case 0x0:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcsnmsub,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 4
- case 0x4:
- {
- // FP2 BGL instruction
- ROSE_ASSERT (primaryOpcode == 0x0 /*0*/);
- instruction = MAKE_INSN4(fxcxnms,FRT,FRA,FRB,FRC);
- break;
- }
-
- // 59
- case 0x3B:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fnmadds,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fnmadds_record,FRT,FRB);
- }
- break;
- }
-
- // 63
- case 0x3F:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN2(fnmadd,FRT,FRB);
- }
- else
- {
- instruction = MAKE_INSN2(fnmadd_record,FRT,FRB);
- }
- break;
- }
-
- default:
- {
- // The default case is now used for handling illegal instructions
- // (during development it was for those not yet implemented).
- printf ("Error: A-Form primaryOpcode = %d xOpcode = %d (illegal instruction) \n",primaryOpcode,xOpcode);
- ROSE_ASSERT(false);
- }
- }
- break;
- }
-
+ case 0x12: instruction = MAKE_INSN3_RC(fdivs, FRT(), FRA(), FRB()); break;
+ case 0x14: instruction = MAKE_INSN3_RC(fsubs, FRT(), FRA(), FRB()); break;
+ case 0x15: instruction = MAKE_INSN3_RC(fadds, FRT(), FRA(), FRB()); break;
+ case 0x16: instruction = MAKE_INSN2_RC(fsqrts, FRT(), FRB()); break;
+ case 0x18: instruction = MAKE_INSN2_RC(fres, FRT(), FRB()); break;
+ case 0x19: instruction = MAKE_INSN3_RC(fmuls, FRT(), FRA(), FRC()); break;
+ case 0x1A: instruction = MAKE_INSN2_RC(frsqrtes, FRT(), FRB()); break;
+ case 0x1C: instruction = MAKE_INSN4_RC(fmsubs, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1D: instruction = MAKE_INSN4_RC(fmadds, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1E: instruction = MAKE_INSN4_RC(fnmsubs, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1F: instruction = MAKE_INSN4_RC(fnmadds, FRT(), FRA(), FRC(), FRB()); break;
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- printf ("Error: A-Form xOpcode = %d (illegal instruction) \n",xOpcode);
+ printf ("Error: A-Form xOpcode = %d (illegal instruction) \n", int(fld<26, 30>()));
ROSE_ASSERT(false);
}
}
@@ -4675,94 +1060,35 @@
}
SgAsmPowerpcInstruction*
-PowerpcDisassembler::SingleInstructionDisassembler::decode_M_formInstruction()
+PowerpcDisassembler::SingleInstructionDisassembler::decode_A_formInstruction_3F()
{
SgAsmPowerpcInstruction* instruction = NULL;
- // The primaryOpcode
- uint8_t primaryOpcode = (insn >> 26) & 0x3F;
-
- // Get the bits 6-10, next 5 bits
- uint8_t rsOpcode = (insn >> 21) & 0x1F;
-
- // Get the bits 11-15, next 5 bits
- uint8_t raOpcode = (insn >> 16) & 0x1F;
-
- // Get the bits 16-20, next 5 bits
- uint8_t rbOpcode = (insn >> 11) & 0x1F;
- uint8_t shOpcode = rbOpcode;
-
- // Get the bits 21-25, next 5 bits
- uint8_t mbOpcode = (insn >> 6) & 0x1F;
-
- // Get the bits 26-30, next 5 bits
- uint8_t meOpcode = (insn >> 1) & 0x1F;
-
- // Get bit 31, 1 bit as the record bit
- uint8_t rcOpcode = (insn >> 0) & 0x1;
-
#if DEBUG_OPCODES
- printf ("M-Form instruction opcode = 0x%x rsOpcode = 0x%x raOpcode = 0x%x rbOpcode = 0x%x mbOpcode = 0x%x meOpcode = 0x%x rcOpcode = 0x%x \n",insn,rsOpcode,raOpcode,rbOpcode,mbOpcode,meOpcode,rcOpcode);
+ printf ("A-Form instruction opcode = 0x%x primaryOpcode = 0x%x frtOpcode = 0x%x fraOpcode = 0x%x frbOpcode = 0x%x frcOpcode = 0x%x xOpcode = 0x%x rcOpcode = 0x%x \n", insn, primaryOpcode, frtOpcode, fraOpcode, frbOpcode, frcOpcode, xOpcode, rcOpcode);
#endif
- SgAsmExpression* RA = makeRegister(powerpc_regclass_gpr,raOpcode);
- SgAsmExpression* RS = makeRegister(powerpc_regclass_gpr,rsOpcode);
+ // FIX ME: Make the floating point registers use the powerpc_regclass_fpr instead of powerpc_regclass_gpr
- // There should be a build function for these!
- SgAsmExpression* SH = new SgAsmByteValueExpression(shOpcode);
- SgAsmExpression* MB = new SgAsmByteValueExpression(mbOpcode);
- SgAsmExpression* ME = new SgAsmByteValueExpression(meOpcode);
-
- switch(primaryOpcode)
+ switch(fld<26, 30>())
{
- // 20
- case 0x14:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN5(rlwimi,RA,RS,SH,MB,ME);
- }
- else
- {
- instruction = MAKE_INSN5(rlwimi_record,RA,RS,SH,MB,ME);
- }
- break;
- }
-
- // 21
- case 0x15:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN5(rlwinm,RA,RS,SH,MB,ME);
- }
- else
- {
- instruction = MAKE_INSN5(rlwinm_record,RA,RS,SH,MB,ME);
- }
- break;
- }
-
- // 23
- case 0x17:
- {
- if (rcOpcode == 0)
- {
- instruction = MAKE_INSN5(rlwnm,RA,RS,SH,MB,ME);
- }
- else
- {
- instruction = MAKE_INSN5(rlwnm_record,RA,RS,SH,MB,ME);
- }
- break;
- }
-
+ case 0x12: instruction = MAKE_INSN3_RC(fdiv, FRT(), FRA(), FRB()); break;
+ case 0x14: instruction = MAKE_INSN3_RC(fsub, FRT(), FRA(), FRB()); break;
+ case 0x15: instruction = MAKE_INSN3_RC(fadd, FRT(), FRA(), FRB()); break;
+ case 0x16: instruction = MAKE_INSN2_RC(fsqrt, FRT(), FRB()); break;
+ case 0x17: instruction = MAKE_INSN4_RC(fsel, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x18: instruction = MAKE_INSN2_RC(fre, FRT(), FRB()); break;
+ case 0x19: instruction = MAKE_INSN3_RC(fmul, FRT(), FRA(), FRC()); break;
+ case 0x1A: instruction = MAKE_INSN2_RC(frsqrte, FRT(), FRB()); break;
+ case 0x1C: instruction = MAKE_INSN4_RC(fmsub, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1D: instruction = MAKE_INSN4_RC(fmadd, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1E: instruction = MAKE_INSN4_RC(fnmsub, FRT(), FRA(), FRC(), FRB()); break;
+ case 0x1F: instruction = MAKE_INSN4_RC(fnmadd, FRT(), FRA(), FRC(), FRB()); break;
default:
{
// The default case is now used for handling illegal instructions
// (during development it was for those not yet implemented).
- // There are only 3 legal M-form instructions, so everything else is an illegal instruction!
- printf ("Error: M-Form primaryOpcode = %d (illegal instruction) \n",primaryOpcode);
+ printf ("Error: A-Form xOpcode = %d (illegal instruction) \n", int(fld<26, 30>()));
ROSE_ASSERT(false);
}
}
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecDOS.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecDOS.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecDOS.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -93,7 +93,7 @@
/* Write the DOS file header back to disk */
void
-SgAsmDOSFileHeader::unparse(FILE *f)
+SgAsmDOSFileHeader::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
DOSFileHeader_disk disk;
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecELF.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecELF.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecELF.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -69,6 +69,7 @@
}
ROSE_ASSERT(p_exec_format != NULL);
p_exec_format->set_sex(sex);
+ p_e_ident_data_encoding = disk32.e_ident_data_encoding; /*save original value*/
/* Decode header to native format */
addr_t entry_rva;
@@ -304,8 +305,19 @@
}
host_to_disk(sex, ident_file_class, &(disk->e_ident_file_class));
- unsigned data_encoding = ORDER_LSB==get_sex() ? 1 : 2;
+ /* Byte order. According to the spec, valid values are 1 (little-endian) and 2 (big-endian). However, we've seen cases
+ * where a value of zero is used to indicate "native" order (loader assumes words are in the order of the machine on which
+ * the loader is running, and the ROSE ELF parser determines the order by looking at other fields in the header). Any
+ * original value other than 1 or 2 will be written to the new output; otherwise we choose 1 or 2 based on the currently
+ * defined byte order. */
+ unsigned data_encoding;
+ if (p_e_ident_data_encoding==1 || p_e_ident_data_encoding==2) {
+ data_encoding = ORDER_LSB==get_sex() ? 1 : 2;
+ } else {
+ data_encoding = p_e_ident_data_encoding;
+ }
host_to_disk(sex, data_encoding, &(disk->e_ident_data_encoding));
+
host_to_disk(sex, p_e_ident_file_version, &(disk->e_ident_file_version));
ROSE_ASSERT(p_e_ident_padding.size() == NELMTS(disk->e_ident_padding));
for (size_t i=0; i<NELMTS(disk->e_ident_padding); i++)
@@ -413,7 +425,7 @@
/* Write ELF contents back to a file. */
void
-SgAsmElfFileHeader::unparse(FILE *f)
+SgAsmElfFileHeader::unparse(std::ostream &f)
{
/* Allow sections to reallocate themselves until things settle */
while (reallocate()) /*void*/;
@@ -736,7 +748,7 @@
/* Unparse an ElfStringSection by unparsing the ElfStrtab */
void
-SgAsmElfStringSection::unparse(FILE *f)
+SgAsmElfStringSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
get_strtab()->unparse(f);
@@ -899,7 +911,7 @@
/* Write string table back to disk. Free space is zeroed out; holes are left as they are. */
void
-SgAsmElfStrtab::unparse(FILE *f)
+SgAsmElfStrtab::unparse(std::ostream &f)
{
SgAsmGenericSection *container = get_container();
ROSE_ASSERT(0==reallocate(false)); /*should have been called well before any unparsing started*/
@@ -1247,7 +1259,7 @@
/* Write the section table section back to disk */
void
-SgAsmElfSectionTable::unparse(FILE *f)
+SgAsmElfSectionTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -1653,7 +1665,7 @@
/* Write the segment table to disk. */
void
-SgAsmElfSegmentTable::unparse(FILE *f)
+SgAsmElfSegmentTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -1842,7 +1854,7 @@
/* Write section back to disk */
void
-SgAsmElfRelaSection::unparse(FILE *f)
+SgAsmElfRelaSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -2172,7 +2184,7 @@
/* Write the dynamic section back to disk */
void
-SgAsmElfDynamicSection::unparse(FILE *f)
+SgAsmElfDynamicSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -2292,6 +2304,8 @@
case STT_FUNC: p_type = SYM_FUNC; break;
case STT_SECTION: p_type = SYM_SECTION; break;
case STT_FILE: p_type = SYM_FILE; break;
+ case STT_COMMON: p_type = SYM_COMMON; break;
+ case STT_TLS: p_type = SYM_TLS; break;
default:
fprintf(stderr, "ROBB: unknown elf symbol type: %u\n", get_elf_type());
ROSE_ASSERT(0);
@@ -2417,7 +2431,7 @@
size_t entry_size, struct_size, extra_size, nentries;
calculate_sizes(&entry_size, &struct_size, &extra_size, &nentries);
ROSE_ASSERT(entry_size==shdr->get_sh_entsize());
-
+
/* Parse each entry; some fields can't be initialized until set_linked_section() is called. */
for (size_t i=0; i<nentries; i++) {
SgAsmElfSymbol *entry=0;
@@ -2495,7 +2509,7 @@
/* Write symbol table sections back to disk */
void
-SgAsmElfSymbolSection::unparse(FILE *f)
+SgAsmElfSymbolSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -2603,7 +2617,7 @@
/* Associate the entry point with a particular section. */
ROSE_ASSERT(fhdr->get_entry_rvas().size()==1);
- fhdr->get_entry_rvas()[0].set_section(fhdr);
+ fhdr->get_entry_rvas()[0].bind(fhdr);
/* Use symbols from either ".symtab" or ".dynsym" */
SgAsmElfSymbolSection *symtab = dynamic_cast<SgAsmElfSymbolSection*>(ef->get_section_by_name(".symtab"));
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecGeneric.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecGeneric.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecGeneric.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -29,6 +29,7 @@
// symbol.get_addresses()[0].set_section(section); // so does this.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
rose_addr_t
rose_rva_t::get_rva() const
{
@@ -68,7 +69,7 @@
/* Set the section to the section that best (most specifically) describes the virtual address */
rose_rva_t&
-rose_rva_t::set_section(SgAsmGenericHeader *fhdr)
+rose_rva_t::bind(SgAsmGenericHeader *fhdr)
{
rose_addr_t va = get_rva() + fhdr->get_base_va();
SgAsmGenericSection *secbind = fhdr->get_best_section_by_va(va);
@@ -512,7 +513,7 @@
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-// ExecFormat
+// SgAsmGenericFormat
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/* Print some debugging info */
@@ -522,9 +523,9 @@
char p[4096], sbuf[256];
const char *s;
if (idx>=0) {
- sprintf(p, "%sExecFormat[%zd].", prefix, idx);
+ sprintf(p, "%sFormat[%zd].", prefix, idx);
} else {
- sprintf(p, "%sExecFormat.", prefix);
+ sprintf(p, "%sFormat.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
@@ -1603,24 +1604,24 @@
ROSE_ASSERT(get_holes()->get_sections().size()==0);
}
-/* Mirror image of parsing an executable file. The result should be identical to the original file. */
+/* Mirror image of parsing an executable file. The result (unless the AST has been modified) should be identical to the
+ * original file. */
void
-SgAsmGenericFile::unparse(const std::string &filename)
+SgAsmGenericFile::unparse(std::ostream &f)
{
- FILE *f = fopen(filename.c_str(), "wb");
- ROSE_ASSERT(f);
-
#if 0
/* This is only for debugging -- fill the file with something other than zero so we have a better chance of making sure
* that all data is written back to the file, including things that are zero. */
- addr_t remaining = get_size();
- unsigned char fill=0xaa, buf[4096];
- memset(buf, fill, sizeof buf);
+ addr_t remaining = get_current_size();
+ unsigned char buf[4096];
+ memset(buf, 0xaa, sizeof buf);
while (remaining>=sizeof buf) {
- fwrite(buf, sizeof buf, 1, f);
+ f.write((const char*)buf, sizeof buf);
+ ROSE_ASSERT(f);
remaining -= sizeof buf;
}
- fwrite(buf, remaining, 1, f);
+ f.write((const char*)buf, remaining);
+ ROSE_ASSERT(f);
#endif
/* Write unreferenced sections (i.e., "holes") back to disk */
@@ -1630,8 +1631,6 @@
/* Write file headers (and indirectly, all that they reference) */
for (SgAsmGenericHeaderPtrList::iterator i=p_headers->get_headers().begin(); i!=p_headers->get_headers().end(); ++i)
(*i)->unparse(f);
-
- fclose(f);
}
/* Return a string describing the file format. We use the last header so that files like PE, NE, LE, LX, etc. which also have
@@ -1920,7 +1919,7 @@
/* Write data back to a file section. The data to write may be larger than the file section as long as the extra (which will
* not be written) is all zero. The offset is relative to the start of the section. */
rose_addr_t
-SgAsmGenericSection::write(FILE *f, addr_t offset, size_t bufsize, const void *buf)
+SgAsmGenericSection::write(std::ostream &f, addr_t offset, size_t bufsize, const void *buf)
{
size_t nwrite, nzero;
if (offset>=get_size()) {
@@ -1933,18 +1932,19 @@
nwrite = get_size() - offset;
nzero = bufsize - nwrite;
}
-
- int status = fseek(f, get_offset()+offset, SEEK_SET);
- ROSE_ASSERT(status>=0);
- size_t nwritten = fwrite(buf, 1, nwrite, f);
- ROSE_ASSERT(nwrite==nwritten);
-
+
+ ROSE_ASSERT(f);
+ f.seekp(get_offset()+offset);
+ ROSE_ASSERT(f);
+ f.write((const char*)buf, nwrite);
+ ROSE_ASSERT(f);
+
for (size_t i=nwrite; i<bufsize; i++) {
if (((const char*)buf)[i]) {
char mesg[1024];
sprintf(mesg, "non-zero value truncated: buf[0x%zx]=0x%02x", i, ((const unsigned char*)buf)[i]);
#if 1
- fprintf(stderr, "ROBB: Exec::ExecSection::write(): %s\n", mesg);
+ fprintf(stderr, "ROBB: SgAsmGenericSection::write(): %s\n", mesg);
hexdump(stderr, get_offset()+offset, " ", (const unsigned char*)buf, bufsize);
abort(); /*DEBUGGING*/
#endif
@@ -1957,7 +1957,7 @@
/* See related method above */
rose_addr_t
-SgAsmGenericSection::write(FILE *f, addr_t offset, const SgFileContentList &buf)
+SgAsmGenericSection::write(std::ostream &f, addr_t offset, const SgFileContentList &buf)
{
if (0==buf.size())
return 0;
@@ -1966,7 +1966,7 @@
/* See related method above */
rose_addr_t
-SgAsmGenericSection::write(FILE *f, addr_t offset, const SgUnsignedCharList &buf)
+SgAsmGenericSection::write(std::ostream &f, addr_t offset, const SgUnsignedCharList &buf)
{
if (0==buf.size())
return 0;
@@ -1975,14 +1975,14 @@
/* See related method above. */
rose_addr_t
-SgAsmGenericSection::write(FILE *f, addr_t offset, const std::string &str)
+SgAsmGenericSection::write(std::ostream &f, addr_t offset, const std::string &str)
{
return write(f, offset, str.size(), &(str[0]));
}
/* See related method above. */
rose_addr_t
-SgAsmGenericSection::write(FILE *f, addr_t offset, char c)
+SgAsmGenericSection::write(std::ostream &f, addr_t offset, char c)
{
return write(f, offset, 1, &c);
}
@@ -2045,7 +2045,7 @@
p_size = new_size;
}
-/* True (the ExecHeader pointer) if this section is also a top-level file header, false (NULL) otherwise. */
+/* True (the SgAsmGenericHeader pointer) if this section is also a top-level file header, false (NULL) otherwise. */
SgAsmGenericHeader *
SgAsmGenericSection::is_file_header()
{
@@ -2060,14 +2060,14 @@
/* Write a section back to the file. This is the generic version that simply writes the content. Subclasses should override
* this. */
void
-SgAsmGenericSection::unparse(FILE *f)
+SgAsmGenericSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
#if 0
/* FIXME: for now we print the names of all sections we dump using this method. Eventually most of these sections will
* have subclasses that override this method. */
- fprintf(stderr, "Exec::ExecSection::unparse(FILE*) for section [%d] \"%s\"\n", id, name.c_str());
+ fprintf(stderr, "SgAsmGenericSection::unparse(FILE*) for section [%d] \"%s\"\n", id, name.c_str());
#endif
write(f, 0, p_data);
@@ -2075,7 +2075,7 @@
/* Write just the specified regions back to the file */
void
-SgAsmGenericSection::unparse(FILE *f, const ExtentMap &map)
+SgAsmGenericSection::unparse(std::ostream &f, const ExtentMap &map)
{
for (ExtentMap::const_iterator i=map.begin(); i!=map.end(); ++i) {
ROSE_ASSERT((*i).first+(*i).second <= get_size());
@@ -2086,7 +2086,7 @@
/* Write holes (unreferenced areas) back to the file */
void
-SgAsmGenericSection::unparse_holes(FILE *f)
+SgAsmGenericSection::unparse_holes(std::ostream &f)
{
bool was_congealed = get_congealed();
unparse(f, congeal());
@@ -2134,9 +2134,9 @@
char p[4096], sbuf[256];
const char *s;
if (idx>=0) {
- sprintf(p, "%sExecSection[%zd].", prefix, idx);
+ sprintf(p, "%sSection[%zd].", prefix, idx);
} else {
- sprintf(p, "%sExecSection.", prefix);
+ sprintf(p, "%sSection.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
@@ -2437,7 +2437,7 @@
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-// ExecHeader
+// SgAsmGenericHeader
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/* Constructor.
@@ -2512,7 +2512,7 @@
/* Unparse headers and all they point to */
void
-SgAsmGenericHeader::unparse(FILE *f)
+SgAsmGenericHeader::unparse(std::ostream &f)
{
/* Allow all sections to reallocate themselves until things settle */
while (reallocate()) /*void*/;
@@ -2758,9 +2758,9 @@
{
char p[4096];
if (idx>=0) {
- sprintf(p, "%sExecHeader[%zd].", prefix, idx);
+ sprintf(p, "%sHeader[%zd].", prefix, idx);
} else {
- sprintf(p, "%sExecHeader.", prefix);
+ sprintf(p, "%sHeader.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
@@ -2809,11 +2809,11 @@
fprintf(f, "%s%-*s = [%d] \"%s\"\n", p, w, label, section->get_id(), section->get_name()->c_str());
}
- fprintf(f, "%s%-*s = %zu entries\n", p, w, "ExecDLL.size", p_dlls->get_dlls().size());
+ fprintf(f, "%s%-*s = %zu entries\n", p, w, "DLL.size", p_dlls->get_dlls().size());
for (size_t i = 0; i < p_dlls->get_dlls().size(); i++)
p_dlls->get_dlls()[i]->dump(f, p, i);
- fprintf(f, "%s%-*s = %zu entries\n", p, w, "ExecSymbol.size", p_symbols->get_symbols().size());
+ fprintf(f, "%s%-*s = %zu entries\n", p, w, "Symbol.size", p_symbols->get_symbols().size());
for (size_t i = 0; i < p_symbols->get_symbols().size(); i++)
p_symbols->get_symbols()[i]->dump(f, p, i);
}
@@ -2842,15 +2842,15 @@
{
char p[4096];
if (idx>=0) {
- sprintf(p, "%sExecDLL[%zd].", prefix, idx);
+ sprintf(p, "%sDLL[%zd].", prefix, idx);
} else {
- sprintf(p, "%sExecDLL.", prefix);
+ sprintf(p, "%sDLL.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
- fprintf(f, "%s%-*s = \"%s\"\n", p, w, "name", p_name->c_str());
- for (size_t i = 0; i < p_funcs.size(); i++)
- fprintf(f, "%s%-*s = [%zd] \"%s\"\n", p, w, "func", i, p_funcs[i].c_str());
+ fprintf(f, "%s%-*s = \"%s\"\n", p, w, "lib_name", p_name->c_str());
+ for (size_t i = 0; i < p_symbols.size(); i++)
+ fprintf(f, "%s%-*s = [%zd] \"%s\"\n", p, w, "symbol_name", i, p_symbols[i].c_str());
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -2871,15 +2871,99 @@
p_name = s;
}
+std::string
+SgAsmGenericSymbol::stringifyDefState() const
+{
+ std::string s;
+ switch (p_def_state) {
+ case SYM_UNDEFINED:
+ s = "SYM_UNDEFINED";
+ break;
+ case SYM_TENTATIVE:
+ s = "SYM_TENTATIVE";
+ break;
+ case SYM_DEFINED:
+ s = "SYM_DEFINED";
+ break;
+ default:
+ printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
+ ROSE_ASSERT(false);
+ }
+ return s;
+}
+
+std::string
+SgAsmGenericSymbol::stringifyType() const
+{
+ std::string s;
+ switch (p_type) {
+ case SYM_NO_TYPE:
+ s = "SYM_NO_TYPE";
+ break;
+ case SYM_DATA:
+ s = "SYM_DATA";
+ break;
+ case SYM_FUNC:
+ s = "SYM_FUNC";
+ break;
+ case SYM_SECTION:
+ s = "SYM_SECTION";
+ break;
+ case SYM_FILE:
+ s = "SYM_FILE";
+ break;
+ case SYM_ARRAY:
+ s = "SYM_ARRAY";
+ break;
+ case SYM_TLS:
+ s = "SYM_TLS";
+ break;
+ case SYM_REGISTER:
+ s = "SYM_REGISTER";
+ break;
+ case SYM_COMMON:
+ s = "SYM_COMMON";
+ break;
+ default:
+ printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
+ ROSE_ASSERT(false);
+ }
+ return s;
+}
+
+std::string
+SgAsmGenericSymbol::stringifyBinding() const
+{
+ std::string s;
+ switch (p_binding) {
+ case SYM_NO_BINDING:
+ s = "SYM_NO_BINDING";
+ break;
+ case SYM_LOCAL:
+ s = "SYM_LOCAL";
+ break;
+ case SYM_GLOBAL:
+ s = "SYM_GLOBAL";
+ break;
+ case SYM_WEAK:
+ s = "SYM_WEAK";
+ break;
+ default:
+ printf ("Error: (out of range) p_def_state = %d \n",p_def_state);
+ ROSE_ASSERT(false);
+ }
+ return s;
+}
+
/* Print some debugging info */
void
SgAsmGenericSymbol::dump(FILE *f, const char *prefix, ssize_t idx)
{
char p[4096];
if (idx>=0) {
- sprintf(p, "%sExecSymbol[%zd].", prefix, idx);
+ sprintf(p, "%sSymbol[%zd].", prefix, idx);
} else {
- sprintf(p, "%sExecSymbol.", prefix);
+ sprintf(p, "%sSymbol.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
@@ -2912,6 +2996,7 @@
case SYM_TLS: s_type = "thread"; break;
case SYM_REGISTER: s_type = "register"; break;
case SYM_ARRAY: s_type = "array"; break;
+ case SYM_COMMON: s_type = "common"; break;
}
fprintf(f, "%s%-*s = %s\n", p, w, "type", s_type);
if (p_bound) {
@@ -3386,16 +3471,24 @@
hexdump(f, base_addr, prefix.c_str(), &(data[0]), data.size());
}
-/* Writes a new file from the IR node for a parse executable file. This is primarily to debug the parser by creating
- * an executable that *should* be identical to the original. */
+/* Writes a new file from the IR node for a parse executable file. */
void
SgAsmExecutableFileFormat::unparseBinaryFormat(const std::string &name, SgAsmFile *asmFile)
{
- FILE *output = fopen(name.c_str(), "wb");
- ROSE_ASSERT(output!=NULL);
+ std::ofstream f(name.c_str(), std::ios_base::out|std::ios_base::binary|std::ios_base::trunc);
+ ROSE_ASSERT(f.is_open());
+ f.exceptions(std::ios::badbit | std::ios::failbit);
+ unparseBinaryFormat(f, asmFile);
+ f.close();
+}
+
+/* Unparses an executable file into the supplied output stream. */
+void
+SgAsmExecutableFileFormat::unparseBinaryFormat(std::ostream &f, SgAsmFile *asmFile)
+{
ROSE_ASSERT(asmFile!=NULL);
ROSE_ASSERT(asmFile->get_genericFile() != NULL);
- asmFile->get_genericFile()->unparse(name);
+ asmFile->get_genericFile()->unparse(f);
}
// FIXME: This cut-n-pasted version of Exec::ELF::parse() is out-of-date (rpm 2008-07-10)
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecLE.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecLE.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecLE.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -190,7 +190,7 @@
/* Write the LE file header back to disk and all that it references */
void
-SgAsmLEFileHeader::unparse(FILE *f)
+SgAsmLEFileHeader::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
LEFileHeader_disk fh;
@@ -422,7 +422,7 @@
/* Write page table back to disk */
void
-SgAsmLEPageTable::unparse(FILE *f)
+SgAsmLEPageTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
@@ -612,7 +612,7 @@
/* Writes the section table back to disk along with each of the sections. */
void
-SgAsmLESectionTable::unparse(FILE *f)
+SgAsmLESectionTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
SgAsmLEFileHeader *fhdr = dynamic_cast<SgAsmLEFileHeader*>(get_header());
@@ -687,7 +687,7 @@
/* Writes the section back to disk. */
void
-SgAsmLENameTable::unparse(FILE *f)
+SgAsmLENameTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
@@ -749,7 +749,7 @@
/* Write the entry information back to the disk at the specified section and section offset, returning the new section offset. */
rose_addr_t
-SgAsmLEEntryPoint::unparse(FILE *f, ByteOrder sex, SgAsmGenericSection *section, rose_addr_t spos)
+SgAsmLEEntryPoint::unparse(std::ostream &f, ByteOrder sex, SgAsmGenericSection *section, rose_addr_t spos)
{
if (0==(p_flags & 0x01)) {
/* Empty entry; write only the flag byte */
@@ -841,7 +841,7 @@
/* Write entry table back to file */
void
-SgAsmLEEntryTable::unparse(FILE *f)
+SgAsmLEEntryTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
@@ -907,7 +907,7 @@
#if 0 /*FIXME: not implemented yet*/
/* Write relocation table back to disk */
void
-SgAsmLERelocTable::unparse(FILE *f)
+SgAsmLERelocTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate(false)); /*should have been called well before any unparsing started*/
}
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecNE.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecNE.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecNE.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -97,7 +97,7 @@
/* Write an extended header back to disk */
void
-SgAsmNEExtendedDOSHeader::unparse(FILE *f)
+SgAsmNEExtendedDOSHeader::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
ExtendedDOSHeader_disk disk;
@@ -252,7 +252,7 @@
/* Write the NE file header back to disk and all that it references */
void
-SgAsmNEFileHeader::unparse(FILE *f)
+SgAsmNEFileHeader::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
NEFileHeader_disk fh;
@@ -432,7 +432,7 @@
/* Write section back to disk */
void
-SgAsmNESection::unparse(FILE *f)
+SgAsmNESection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
SgAsmGenericSection::unparse(f);
@@ -523,7 +523,7 @@
/* Writes the section table back to disk along with each of the sections. */
void
-SgAsmNESectionTable::unparse(FILE *f)
+SgAsmNESectionTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
SgAsmNEFileHeader *fhdr = dynamic_cast<SgAsmNEFileHeader*>(get_header());
@@ -598,7 +598,7 @@
/* Writes the section back to disk. */
void
-SgAsmNENameTable::unparse(FILE *f)
+SgAsmNENameTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
@@ -688,7 +688,7 @@
/* Writes the section back to disk. */
void
-SgAsmNEModuleTable::unparse(FILE *f)
+SgAsmNEModuleTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos = 0; /*section offset*/
@@ -889,7 +889,7 @@
/* Write section back to disk */
void
-SgAsmNEEntryTable::unparse(FILE *f)
+SgAsmNEEntryTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
@@ -1057,7 +1057,7 @@
/* Write entry back to disk at the specified section and section offset, returning new offset */
rose_addr_t
-SgAsmNERelocEntry::unparse(FILE *f, SgAsmGenericSection *section, rose_addr_t spos)
+SgAsmNERelocEntry::unparse(std::ostream &f, SgAsmGenericSection *section, rose_addr_t spos)
{
unsigned char byte;
byte = (p_modifier << 8) | (p_src_type & 0x0f);
@@ -1230,7 +1230,7 @@
/* Write relocation table back to disk */
void
-SgAsmNERelocTable::unparse(FILE *f)
+SgAsmNERelocTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos=0; /*section offset*/
Modified: trunk/src/frontend/ExecFormats/ROSE_ExecPE.C
===================================================================
--- trunk/src/frontend/ExecFormats/ROSE_ExecPE.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/ExecFormats/ROSE_ExecPE.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -49,7 +49,7 @@
/* Write an extended header back to disk */
void
-SgAsmPEExtendedDOSHeader::unparse(FILE *f)
+SgAsmPEExtendedDOSHeader::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -570,7 +570,7 @@
/* Write the PE file header back to disk and all that it references */
void
-SgAsmPEFileHeader::unparse(FILE *f)
+SgAsmPEFileHeader::unparse(std::ostream &f)
{
/* Allow sections to reallocate themselves until things settle. */
while (reallocate()) /*void*/;
@@ -905,7 +905,7 @@
/* Writes the section table back to disk along with each of the sections. */
void
-SgAsmPESectionTable::unparse(FILE *f)
+SgAsmPESectionTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
@@ -954,27 +954,77 @@
/* Constructor */
void
-SgAsmPEImportDirectory::ctor(const PEImportDirectory_disk *disk)
+SgAsmPEImportDirectory::ctor(SgAsmPEImportSection *section, size_t idx)
{
- p_hintnames_rva = le_to_host(disk->hintnames_rva);
- p_time = le_to_host(disk->time);
- p_forwarder_chain = le_to_host(disk->forwarder_chain);
- p_dll_name_rva = le_to_host(disk->dll_name_rva);
- p_bindings_rva = le_to_host(disk->bindings_rva);
+ SgAsmPEFileHeader *fhdr = dynamic_cast<SgAsmPEFileHeader*>(section->get_header());
+ ROSE_ASSERT(fhdr!=NULL);
+
+ set_parent(section);
+
+ size_t entry_size = sizeof(PEImportDirectory_disk);
+ PEImportDirectory_disk disk, zero;
+ memset(&zero, 0, sizeof zero);
+ section->content(idx*entry_size, entry_size, &disk);
+
+ if (0==memcmp(&disk, &zero, sizeof zero)) {
+ p_idx = -1;
+ } else {
+ p_idx = idx;
+ }
+
+ p_ilt_rva = le_to_host(disk.ilt_rva);
+ p_time = le_to_host(disk.time);
+ p_forwarder_chain = le_to_host(disk.forwarder_chain);
+ p_dll_name_rva = le_to_host(disk.dll_name_rva);
+ p_iat_rva = le_to_host(disk.iat_rva);
+
+ /* Bind RVAs to best sections */
+ p_ilt_rva.bind(fhdr);
+ p_dll_name_rva.bind(fhdr);
+ p_iat_rva.bind(fhdr);
+
+ if (p_dll_name_rva.get_section()) {
+ p_dll_name = new SgAsmBasicString(p_dll_name_rva.get_section()->content_str(p_dll_name_rva.get_rel()));
+ } else {
+ p_dll_name = NULL;
+ }
}
/* Encode a directory entry back into disk format */
void *
SgAsmPEImportDirectory::encode(PEImportDirectory_disk *disk)
{
- host_to_le(p_hintnames_rva.get_rva(), &(disk->hintnames_rva));
- host_to_le(p_time, &(disk->time));
- host_to_le(p_forwarder_chain, &(disk->forwarder_chain));
- host_to_le(p_dll_name_rva.get_rva(), &(disk->dll_name_rva));
- host_to_le(p_bindings_rva.get_rva(), &(disk->bindings_rva));
+ host_to_le(p_ilt_rva.get_rva(), &(disk->ilt_rva));
+ host_to_le(p_time, &(disk->time));
+ host_to_le(p_forwarder_chain, &(disk->forwarder_chain));
+ host_to_le(p_dll_name_rva.get_rva(), &(disk->dll_name_rva));
+ host_to_le(p_iat_rva.get_rva(), &(disk->iat_rva));
return disk;
}
+void
+SgAsmPEImportDirectory::unparse(std::ostream &f, SgAsmPEImportSection *section)
+{
+ ROSE_ASSERT(get_idx()>=0);
+
+ SgAsmPEFileHeader *fhdr = dynamic_cast<SgAsmPEFileHeader*>(section->get_header());
+ ROSE_ASSERT(fhdr!=NULL);
+
+ if (p_dll_name_rva>0) {
+ addr_t spos = p_dll_name_rva.get_section()->write(f, p_dll_name_rva.get_rel(), p_dll_name->get_string());
+ p_dll_name_rva.get_section()->write(f, spos, '\0');
+ }
+ if (p_ilt)
+ p_ilt->unparse(f, fhdr, p_ilt_rva);
+ if (p_iat)
+ p_iat->unparse(f, fhdr, p_iat_rva);
+
+ PEImportDirectory_disk disk;
+ encode(&disk);
+ section->write(f, get_idx()*sizeof disk, sizeof disk, &disk);
+}
+
+
/* Print debugging info */
void
SgAsmPEImportDirectory::dump(FILE *f, const char *prefix, ssize_t idx)
@@ -987,368 +1037,417 @@
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
- fprintf(f, "%s%-*s = %s\n", p, w, "hintnames_rva", p_hintnames_rva.to_string().c_str());
+ fprintf(f, "%s%-*s = %s", p, w, "dll_name_rva", p_dll_name_rva.to_string().c_str());
+ if (p_dll_name)
+ fprintf(f, " \"%s\"", p_dll_name->c_str());
+ fputc('\n', f);
+
+ fprintf(f, "%s%-*s = %s\n", p, w, "ilt_rva", p_ilt_rva.to_string().c_str());
+ fprintf(f, "%s%-*s = %s\n", p, w, "iat_rva", p_iat_rva.to_string().c_str());
fprintf(f, "%s%-*s = %lu %s", p, w, "time", (unsigned long)p_time, ctime(&p_time));
fprintf(f, "%s%-*s = 0x%08x (%u)\n", p, w, "forwarder_chain", p_forwarder_chain, p_forwarder_chain);
- fprintf(f, "%s%-*s = %s\n", p, w, "dll_name_rva", p_dll_name_rva.to_string().c_str());
- fprintf(f, "%s%-*s = %s\n", p, w, "bindings_rva", p_bindings_rva.to_string().c_str());
+ if (p_ilt)
+ p_ilt->dump(f, p, -1);
+ if (p_iat)
+ p_iat->dump(f, p, -1);
}
-/* Constructor */
+/* Construct an Import Lookup Table Entry or a Lookup Address Table Entry */
void
-SgAsmPEImportHintName::ctor(SgAsmGenericSection *section, addr_t offset)
+SgAsmPEImportILTEntry::ctor(SgAsmPEImportSection *isec, uint64_t ilt_word)
{
- PEImportHintName_disk disk;
- section->content(offset, sizeof disk, &disk);
- p_hint = le_to_host(disk.hint);
- p_name = section->content_str(offset+sizeof disk);
- p_padding = (p_name.size()+1) % 2 ? *(section->content(offset + sizeof(disk)+ p_name.size() + 1, 1)) : '\0';
+ SgAsmPEFileHeader *fhdr = dynamic_cast<SgAsmPEFileHeader*>(isec->get_header());
+ ROSE_ASSERT(fhdr!=NULL);
+ p_hnt_entry = NULL;
+
+ /* Initialize */
+ p_ordinal = 0;
+ p_hnt_entry_rva = 0;
+ p_hnt_entry = NULL;
+ p_extra_bits = 0;
+ p_bound_rva = 0;
+
+ /* Masks for different word sizes */
+ uint64_t ordmask; /* if bit is set then ILT Entry is an Ordinal */
+ uint64_t hnrvamask = 0x7fffffff; /* Hint/Name RVA mask (both word sizes use 31 bits) */
+ if (4==fhdr->get_word_size()) {
+ ordmask = (uint64_t)1<<31;
+ } else if (8==fhdr->get_word_size()) {
+ ordmask = (uint64_t)1<<63;
+ } else {
+ throw FormatError("unsupported PE word size");
+ }
+
+ if (ilt_word & ordmask) {
+ /* Ordinal */
+ p_entry_type = ILT_ORDINAL;
+ p_ordinal = ilt_word & 0xffff;
+ p_extra_bits = ilt_word & ~(ordmask|0xffff);
+ } else if (0!=(ilt_word & ~hnrvamask) || NULL==fhdr->get_best_section_by_va((ilt_word&hnrvamask) + fhdr->get_base_va())) {
+ /* Bound address */
+ p_entry_type = ILT_BOUND_RVA;
+ p_bound_rva = ilt_word;
+ p_bound_rva.bind(fhdr);
+ } else {
+ /* Hint/Name Pair RVA */
+ p_entry_type = ILT_HNT_ENTRY_RVA;
+ p_hnt_entry_rva = ilt_word & hnrvamask;
+ p_hnt_entry_rva.bind(fhdr);
+ }
}
-/* Writes the hint/name back to disk at the specified offset */
+/* Encode the PE Import Lookup Table or PE Import Address Table object into a word. */
+uint64_t
+SgAsmPEImportILTEntry::encode(SgAsmPEFileHeader *fhdr)
+{
+ uint64_t w = 0;
+
+ /* Masks for different word sizes */
+ uint64_t ordmask; /* if bit is set then ILT Entry is an Ordinal */
+ if (4==fhdr->get_word_size()) {
+ ordmask = (uint64_t)1<<31;
+ } else if (8==fhdr->get_word_size()) {
+ ordmask = (uint64_t)1<<63;
+ } else {
+ throw FormatError("unsupported PE word size");
+ }
+
+ switch (p_entry_type) {
+ case ILT_ORDINAL:
+ w |= ordmask | p_extra_bits | p_ordinal;
+ break;
+ case ILT_BOUND_RVA:
+ w |= p_bound_rva.get_rva();
+ break;
+ case ILT_HNT_ENTRY_RVA:
+ w |= p_hnt_entry_rva.get_rva();
+ break;
+ }
+ return w;
+}
+
void
-SgAsmPEImportHintName::unparse(FILE *f, SgAsmGenericSection *section, addr_t spos)
+SgAsmPEImportILTEntry::unparse(std::ostream &f, SgAsmPEFileHeader *fhdr, rva_t rva, size_t idx)
{
- /* The hint */
- uint16_t hint_le;
+ ROSE_ASSERT(rva.get_section()!=NULL);
+ uint64_t ilt_entry_word = encode(fhdr);
+ if (4==fhdr->get_word_size()) {
+ uint32_t ilt_entry_disk;
+ host_to_le(ilt_entry_word, &ilt_entry_disk);
+ rva.get_section()->write(f, rva.get_rel()+idx*4, 4, &ilt_entry_disk);
+ } else if (8==fhdr->get_word_size()) {
+ uint64_t ilt_entry_disk;
+ host_to_le(ilt_entry_word, &ilt_entry_disk);
+ rva.get_section()->write(f, rva.get_rel()+idx*8, 8, &ilt_entry_disk);
+ } else {
+ throw FormatError("unsupported PE word size");
+ }
- // DQ (8/16/2008): Assertion on p_hint in host_to_le
- assert(0==(p_hint & ~0xffff));
+ if (p_hnt_entry)
+ p_hnt_entry->unparse(f, p_hnt_entry_rva);
+}
- host_to_le(p_hint, &hint_le);
- spos = section->write(f, spos, sizeof hint_le, &hint_le);
+/* Print debugging info for an Import Lookup Table Entry or an Import Address Table Entry */
+void
+SgAsmPEImportILTEntry::dump(FILE *f, const char *prefix, ssize_t idx)
+{
+ char p[4096];
+ if (idx>=0) {
+ sprintf(p, "%sentry[%zd].", prefix, idx);
+ } else {
+ sprintf(p, "%sentry.", prefix);
+ }
+ const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
- /* NUL-terminated name */
- spos = section->write(f, spos, p_name);
- spos = section->write(f, spos, '\0');
+ switch (p_entry_type) {
+ case ILT_ORDINAL:
+ fprintf(f, "%s%-*s = 0x%04x (%u)\n", p, w, "ordinal", p_ordinal, p_ordinal);
+ break;
+ case ILT_HNT_ENTRY_RVA:
+ fprintf(f, "%s%-*s = %s\n", p, w, "hnt_entry_rva", p_hnt_entry_rva.to_string().c_str());
+ break;
+ case ILT_BOUND_RVA:
+ fprintf(f, "%s%-*s = %s\n", p, w, "bound_rva", p_bound_rva.to_string().c_str());
+ break;
+ default:
+ ROSE_ASSERT(!"PE Import Lookup Table entry type is not valid");
+ }
+ if (p_extra_bits)
+ fprintf(f, "%s%-*s = 0x%08"PRIx64"\n", p, w, "extra_bits", p_extra_bits);
+ if (p_hnt_entry)
+ p_hnt_entry->dump(f, p, -1);
+}
+
+/* Constructor. rva is the address of the table and should be bound to a section (which may not necessarily be isec). This
+ * C object represents one of two PE objects depending on the value of is_iat.
+ * true => PE Import Address Table
+ * false => PE Import Lookup Table */
+void
+SgAsmPEImportLookupTable::ctor(SgAsmPEImportSection *isec, rva_t rva, size_t idir_idx, bool is_iat)
+{
+ ROSE_ASSERT(p_entries==NULL);
+ p_entries = new SgAsmPEImportILTEntryList();
+ p_entries->set_parent(this);
+ p_is_iat = is_iat;
+ const char *tname = is_iat ? "Import Address Table" : "Import Lookup Table";
+
+ SgAsmPEFileHeader *fhdr = dynamic_cast<SgAsmPEFileHeader*>(isec->get_header());
+ ROSE_ASSERT(fhdr!=NULL);
+
+ /* Read the Import Lookup (or Address) Table, an array of 32 or 64 bit values, the last of which is zero */
+ if (!rva.get_section()) {
+ fprintf(stderr, "SgAsmPEImportSection::ctor: error: in PE Import Directory entry %zu "
+ "%s RVA (0x%08"PRIx64") is not in the mapped address space.\n",
+ idir_idx, tname, rva.get_rva());
+ return;
+ }
- /* Padding to make an even size */
- if ((p_name.size() + 1) % 2)
- section->write(f, spos, p_padding);
+ if (rva.get_section()!=isec) {
+ fprintf(stderr, "SgAsmPEImportSection::ctor: warning: %s RVA is outside PE Import Table\n", tname);
+ fprintf(stderr, " Import Directory Entry #%zu\n", idir_idx);
+ fprintf(stderr, " %s RVA is %s\n", tname, rva.to_string().c_str());
+ fprintf(stderr, " PE Import Table mapped from 0x%08"PRIx64" to 0x%08"PRIx64"\n",
+ isec->get_mapped_rva(), isec->get_mapped_rva()+isec->get_mapped_size());
+ }
+
+ for (size_t i=0; 1; i++) {
+ uint64_t ilt_entry_word=0;
+ if (4==fhdr->get_word_size()) {
+ const uint32_t *ilt_entry_disk;
+ ilt_entry_disk = (const uint32_t*)rva.get_section()->content(rva.get_rel(), sizeof ilt_entry_disk);
+ ilt_entry_word = le_to_host(*ilt_entry_disk);
+ } else if (8==fhdr->get_word_size()) {
+ const uint64_t *ilt_entry_disk;
+ ilt_entry_disk = (const uint64_t*)rva.get_section()->content(rva.get_rel(), sizeof ilt_entry_disk);
+ ilt_entry_word = le_to_host(*ilt_entry_disk);
+ } else {
+ throw FormatError("unsupported PE word size");
+ }
+ rva.set_rva(rva.get_rva()+fhdr->get_word_size()); /*advance to next entry of table*/
+ if (0==ilt_entry_word)
+ break;
+
+ SgAsmPEImportILTEntry *ilt_entry = new SgAsmPEImportILTEntry(isec, ilt_entry_word);
+ add_ilt_entry(ilt_entry);
+
+ if (SgAsmPEImportILTEntry::ILT_HNT_ENTRY_RVA==ilt_entry->get_entry_type()) {
+ SgAsmPEImportHNTEntry *hnt_entry = new SgAsmPEImportHNTEntry(ilt_entry->get_hnt_entry_rva());
+ ilt_entry->set_hnt_entry(hnt_entry);
+ hnt_entry->set_parent(ilt_entry);
+ }
+ }
}
-/* Print debugging info */
+/* Adds another Import Lookup Table Entry or Import Address Table Entry to the Import Lookup Table */
void
-SgAsmPEImportHintName::dump(FILE *f, const char *prefix, ssize_t idx)
+SgAsmPEImportLookupTable::add_ilt_entry(SgAsmPEImportILTEntry *ilt_entry)
{
+ ROSE_ASSERT(p_entries!=NULL);
+ ROSE_ASSERT(ilt_entry);
+ p_entries->get_vector().push_back(ilt_entry);
+ ROSE_ASSERT(p_entries->get_vector().size()>0);
+ ilt_entry->set_parent(this);
+}
+
+void
+SgAsmPEImportLookupTable::unparse(std::ostream &f, SgAsmPEFileHeader *fhdr, rva_t rva)
+{
+ if (rva!=0) {
+ const char *tname = p_is_iat ? "Import Address Table" : "Import Lookup Table";
+ for (size_t i=0; i<p_entries->get_vector().size(); i++) {
+ SgAsmPEImportILTEntry *ilt_entry = p_entries->get_vector()[i];
+ ilt_entry->unparse(f, fhdr, rva, i);
+ }
+
+ /* Zero terminated */
+ uint64_t zero = 0;
+ ROSE_ASSERT(fhdr->get_word_size()<=sizeof zero);
+ addr_t spos = rva.get_rel() + p_entries->get_vector().size() * fhdr->get_word_size();
+ rva.get_section()->write(f, spos, fhdr->get_word_size(), &zero);
+ }
+}
+
+/* Print some debugging info for an Import Lookup Table or Import Address Table */
+void
+SgAsmPEImportLookupTable::dump(FILE *f, const char *prefix, ssize_t idx)
+{
+ prefix = " ...";
+ const char *tabbr = p_is_iat ? "IAT" : "ILT";
char p[4096];
if (idx>=0) {
- sprintf(p, "%sImporNameHint[%zd].", prefix, idx);
+ sprintf(p, "%s%s[%zd].", prefix, tabbr, idx);
} else {
- sprintf(p, "%sImporNameHint.", prefix);
+ sprintf(p, "%s%s.", prefix, tabbr);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
- fprintf(f, "%s%-*s = %u\n", p, w, "hint", p_hint);
- fprintf(f, "%s%-*s = \"%s\"\n", p, w, "name", p_name.c_str());
- fprintf(f, "%s%-*s = 0x%02x\n", p, w, "padding", p_padding);
+ fprintf(f, "%s%-*s = %zu\n", p, w, "nentries", p_entries->get_vector().size());
+ for (size_t i=0; i<p_entries->get_vector().size(); i++) {
+ SgAsmPEImportILTEntry *ilt_entry = p_entries->get_vector()[i];
+ ilt_entry->dump(f, p, i);
+ }
}
/* Constructor */
void
-SgAsmPEDLL::ctor()
+SgAsmPEImportHNTEntry::ctor(rva_t rva)
{
- p_hintnames = new SgAsmPEImportHintNameList;
- p_hintnames->set_parent(this);
+ ROSE_ASSERT(rva.get_rva() % 2 == 0);
+ ROSE_ASSERT(rva.get_section());
+
+ const uint16_t *hint_disk = (const uint16_t*)rva.get_section()->content(rva.get_rel(), 2);
+ p_hint = le_to_host(*hint_disk);
+
+ const char *s = (const char*)rva.get_section()->content_str(rva.get_rel()+2);
+ p_name = new SgAsmBasicString(s);
+
+ if ((strlen(s)+1) % 2) {
+ p_padding = *(rva.get_section()->content(rva.get_rel()+2+strlen(s)+1, 1));
+ } else {
+ p_padding = 0;
+ }
}
+void
+SgAsmPEImportHNTEntry::unparse(std::ostream &f, rva_t rva)
+{
+ uint16_t hint_disk;
+ host_to_le(p_hint, &hint_disk);
+ addr_t spos = rva.get_rel();
+ spos = rva.get_section()->write(f, spos, 2, &hint_disk);
+ spos = rva.get_section()->write(f, spos, p_name->get_string());
+ spos = rva.get_section()->write(f, spos, '\0');
+ if ((p_name->get_string().size()+1) % 2)
+ rva.get_section()->write(f, spos, p_padding);
+}
+
/* Print debugging info */
void
-SgAsmPEDLL::dump(FILE *f, const char *prefix, ssize_t idx)
+SgAsmPEImportHNTEntry::dump(FILE *f, const char *prefix, ssize_t idx)
{
char p[4096];
if (idx>=0) {
- sprintf(p, "%sPEDLL[%zd].", prefix, idx);
+ sprintf(p, "%sHNTEntry[%zd].", prefix, idx);
} else {
- sprintf(p, "%sPEDLL.", prefix);
+ sprintf(p, "%sHNTEntry.", prefix);
}
const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
- SgAsmGenericDLL::dump(f, p, -1);
- if (p_idir)
- p_idir->dump(f, p, -1);
- for (size_t i=0; i < p_hintname_rvas.size(); i++) {
- fprintf(f, "%s%-*s = [%zu] 0x%08"PRIx64"\n", p, w, "hintname_rva", i, p_hintname_rvas[i]);
- fprintf(f, "%s%-*s = [%zu] 0x%08"PRIx64"\n", p, w, "binding", i, p_bindings[i]);
- }
+
+ fprintf(f, "%s%-*s = %u\t\"%s\"", p, w, "hint/name", p_hint, p_name->c_str());
+ if ((p_name->get_string().size()+1)%2)
+ fprintf(f, " + '\\%03o'", p_padding);
+ fputc('\n', f);
}
-/* Constructor */
+/** Constructor for PE import data. Constructs an SgAsmPEImportSection that represents either a PE ".idata" section as defined
+ * by the PE Section Table, or a PE Import Table as described by the RVA/Size pairs at the end of the NT Optional Header. The
+ * ".idata" section and PE Import Table both have the same format, which is generally:
+ *
+ * @code
+ * +-------------------------------+ Starts at address zero of the .idata
+ * | Import Directory Table: | section or PE Import Table. Each Directory
+ * | Import Directory Entry #0 | represents one library and all its
+ * | Import Directory Entry #1 | associated symbols.
+ * | ... |
+ * | Zero-filled Directory Entry |
+ * +-------------------------------+
+ *
+ * +-------------------------------+ One table per dynamic library, starting
+ * | Import Lookup Table (ILT) | at arbitrary RVA specified in the
+ * | ILT Entry #0 | Directory Table.
+ * | ILT Entry #1 |
+ * | Zero-filled ILTEntry |
+ * +-------------------------------+
+ *
+ * +-------------------------------+ There is no starting RVA for this table.
+ * | Hint-Name Table | Rather, ILT Entries each contain an RVA
+ * | | to an entry in the Hint-Name Table.
+ * +-------------------------------+
+ * @endcode
+ */
void
SgAsmPEImportSection::ctor(addr_t offset, addr_t size, addr_t mapped_rva)
{
set_mapped_rva(mapped_rva);
set_mapped_size(size);
+ p_import_directories = new SgAsmPEImportDirectoryList();
+ p_import_directories->set_parent(this);
SgAsmPEFileHeader *fhdr = dynamic_cast<SgAsmPEFileHeader*>(get_header());
ROSE_ASSERT(fhdr!=NULL);
- size_t entry_size = sizeof(SgAsmPEImportDirectory::PEImportDirectory_disk);
- SgAsmPEImportDirectory::PEImportDirectory_disk zero;
- memset(&zero, 0, sizeof zero);
-
- p_dlls = new SgAsmPEDLLList();
- p_dlls->set_parent(this);
-
- /* Read idata directory entries--one per DLL*/
for (size_t i = 0; 1; i++) {
- /* End of list is marked by an entry of all zero. */
- SgAsmPEImportDirectory::PEImportDirectory_disk idir_disk;
- content(i*entry_size, entry_size, &idir_disk);
- if (!memcmp(&zero, &idir_disk, sizeof zero)) break;
- SgAsmPEImportDirectory *idir = new SgAsmPEImportDirectory(&idir_disk);
+ /* Read idata directory entries. The list is terminated with a zero-filled entry whose idx will be negative */
+ SgAsmPEImportDirectory *idir = new SgAsmPEImportDirectory(this, i);
+ if (idir->get_idx()<0) {
+ delete idir;
+ break;
+ }
- /* The library name, indicated by RVA.
- *
- * FIXME (RPM 2008-10-29) We're having problems with this because in some files (e.g., Windows XP
- * WINDOWS/system32/msacm32.dll) have no ".idata" section defined in the Section Table, but sill have an Import Table
- * defined in the RVA/Size pairs of the NT Optional Header. This would normally be OK, but it seems that the Import
- * Table size is too small and doesn't include the strings for the library names; rather, they appear immediately
- * after the Import Table in part of the file that isn't referenced by any other section and therefore has no RVA
- * since it's not mapped. */
- std::string dll_name;
+ /* Library name warnings and errors */
rva_t rva = idir->get_dll_name_rva();
- if (rva.get_rva()<mapped_rva || rva.get_rva()>=mapped_rva+get_size()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: warning: in PE Import Directory entry %zu "
- "Name RVA (0x%08"PRIx64") is outside of import section (0x%08"PRIx64"-0x%08"PRIx64")\n",
- i, rva.get_rva(), mapped_rva, mapped_rva+get_size());
- rva.set_section(fhdr->get_best_section_by_va(rva.get_rva()+fhdr->get_base_va()));
- if (!rva.get_section()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: error: 0x%08"PRIx64" is not in the mapped address space\n",
- rva.get_rva());
- } else {
- fprintf(stderr, "SgAsmPEImportSection::ctor: note: 0x%08"PRIx64" was found at offset 0x%08"PRIx64" (%"PRIu64")"
- " in [%d] \"%s\"\n", rva.get_rva(), rva.get_rel(), rva.get_rel(),
- rva.get_section()->get_id(), rva.get_section()->get_name()->c_str());
- }
- } else {
- rva.set_section(this);
+ if (!rva.get_section()) {
+ fprintf(stderr, "SgAsmPEImportSection::ctor: error: in PE Import Directory entry %zu "
+ "Name RVA (0x%08"PRIx64") is not in the mapped address space.\n",
+ i, rva.get_rva());
+ } else if (rva.get_section()!=this) {
+ fprintf(stderr, "SgAsmPEImportSection::ctor: warning: Name RVA is outside PE Import Table\n");
+ fprintf(stderr, " Import Directory Entry #%zu\n", i);
+ fprintf(stderr, " Name RVA is %s\n", rva.to_string().c_str());
+ fprintf(stderr, " PE Import Table mapped from 0x%08"PRIx64" to 0x%08"PRIx64"\n",
+ get_mapped_rva(), get_mapped_rva()+get_mapped_size());
}
- if (rva.get_section()) {
- idir->set_dll_name_rva(rva);
- dll_name = rva.get_section()->content_str(rva.get_rel());
- }
-
- /* Create the DLL objects */
- SgAsmPEDLL *dll = new SgAsmPEDLL(new SgAsmBasicString(dll_name));
- dll->set_idir(idir);
- idir->set_parent(dll);
+ /* Import Lookup Table */
+ SgAsmPEImportLookupTable *ilt = new SgAsmPEImportLookupTable(this, idir->get_ilt_rva(), i, false);
+ idir->set_ilt(ilt);
+ ilt->set_parent(idir);
- /* The idir->hintname_rvas is an (optional) RVA for a NULL-terminated array whose members are either:
- * 1. an RVA of a hint/name pair (if the high-order bit of the array member is clear)
- * 2. an ordinal if the high-order bit is set
- * This information suffers from the same problem as dll_name above. */
- if (idir->get_hintnames_rva() != 0) {
- rva_t rva = idir->get_hintnames_rva();
- if (rva.get_rva()<mapped_rva || rva.get_rva()>=mapped_rva+get_size()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: warning: in PE Import Directory entry %zu "
- "Import Lookup Table RVA (0x%08"PRIx64") is outside of import section (0x%08"PRIx64"-0x%08"PRIx64")\n",
- i, rva.get_rva(), mapped_rva, mapped_rva+get_size());
- rva.set_section(fhdr->get_best_section_by_va(rva.get_rva()+fhdr->get_base_va()));
- if (!rva.get_section()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: error: 0x%08"PRIx64" is not in the mapped address space\n",
- rva.get_rva());
- } else {
- fprintf(stderr, "SgAsmPEImportSection::ctor: note: 0x%08"PRIx64" was found at offset 0x%08"PRIx64" (%"PRIu64")"
- " in [%d] \"%s\"\n", rva.get_rva(), rva.get_rel(), rva.get_rel(),
- rva.get_section()->get_id(), rva.get_section()->get_name()->c_str());
- }
- } else {
- rva.set_section(this);
- }
-
- if (rva.get_section()) {
- idir->set_hintnames_rva(rva);
- for (addr_t hintname_rvas_offset = rva.get_rel(); 1; hintname_rvas_offset += fhdr->get_word_size()) {
- addr_t hintname_rva = 0; /*RVA of the hint/name pair*/
- bool import_by_ordinal=false; /*was high-order bit of array element set?*/
- if (4==fhdr->get_word_size()) {
- uint32_t word;
- content(hintname_rvas_offset, sizeof word, &word);
- hintname_rva = le_to_host(word);
- import_by_ordinal = (hintname_rva & 0x80000000) != 0;
- } else if (8==fhdr->get_word_size()) {
- uint64_t word;
- content(hintname_rvas_offset, sizeof word, &word);
- hintname_rva = le_to_host(word);
- import_by_ordinal = (hintname_rva & 0x8000000000000000ull) != 0;
- } else {
- ROSE_ASSERT(!"unsupported word size");
- }
+ /* Import Address Table (same class as the Import Lookup Table) */
+ SgAsmPEImportLookupTable *iat = new SgAsmPEImportLookupTable(this, idir->get_iat_rva(), i, true);
+ idir->set_iat(iat);
+ iat->set_parent(idir);
- /* Array is NULL terminated */
- if (0==hintname_rva)
- break;
+ add_import_directory(idir);
- /* Add arrary value and hint/name pair to the DLL object */
- dll->add_hintname_rva(hintname_rva);
- if (!import_by_ordinal) {
- addr_t hintname_offset = (hintname_rva & 0x7fffffff) - mapped_rva;
- SgAsmPEImportHintName *hintname = new SgAsmPEImportHintName(this, hintname_offset);
- dll->add_function(hintname->get_name());
- dll->add_hintname(hintname);
-
- // Make the parent the list IR node
- hintname->set_parent(dll->get_hintnames());
- }
- }
- }
+ /* Create the GenericDLL for this library */
+ SgAsmGenericDLL *dll = new SgAsmGenericDLL(idir->get_dll_name());
+ for (size_t j=0; j<ilt->get_entries()->get_vector().size(); j++) {
+ SgAsmPEImportILTEntry *e = ilt->get_entries()->get_vector()[j];
+ SgAsmPEImportHNTEntry *hn = e->get_hnt_entry();
+ if (hn!=NULL)
+ dll->add_symbol(hn->get_name()->c_str());
}
-
- /* The idir->bindings_rva is a NULL-terminated array of RVAs.
- * This information suffers from the same problem as dll_name above. */
- if (idir->get_bindings_rva() != 0) {
- rva_t rva = idir->get_bindings_rva();
- if (rva.get_rva()<mapped_rva || rva.get_rva()>=mapped_rva+get_size()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: warning: in PE Import Directory entry %zu "
- "Import Address Table RVA (0x%08"PRIx64") is outside of import section (0x%08"PRIx64"-0x%08"PRIx64")\n",
- i, rva.get_rva(), mapped_rva, mapped_rva+get_size());
- rva.set_section(fhdr->get_best_section_by_va(rva.get_rva()+fhdr->get_base_va()));
- if (!rva.get_section()) {
- fprintf(stderr, "SgAsmPEImportSection::ctor: error: 0x%08"PRIx64" is not in the mapped address space\n",
- rva.get_rva());
- } else {
- fprintf(stderr, "SgAsmPEImportSection::ctor: note: 0x%08"PRIx64" was found at offset 0x%08"PRIx64" (%"PRIu64")"
- " in [%d] \"%s\"\n", rva.get_rva(), rva.get_rel(), rva.get_rel(),
- rva.get_section()->get_id(), rva.get_section()->get_name()->c_str());
- }
- } else {
- rva.set_section(this);
- }
-
- if (rva.get_section()) {
- idir->set_bindings_rva(rva);
- for (addr_t bindings_offset = rva.get_rel(); 1; bindings_offset += fhdr->get_word_size()) {
- addr_t binding=0;
- if (4==fhdr->get_word_size()) {
- uint32_t word;
- content(bindings_offset, sizeof word, &word);
- binding = le_to_host(word);
- } else if (8==fhdr->get_word_size()) {
- uint64_t word;
- content(bindings_offset, sizeof word, &word);
- binding = le_to_host(word);
- } else {
- ROSE_ASSERT(!"unsupported word size");
- }
-
- /* Array is NULL terminated; otherwise add binding to DLL object */
- if (0==binding)
- break;
- dll->add_binding(binding);
- }
- }
- }
-
- /* Add dll to both this section and to the file header */
- add_dll(dll);
fhdr->add_dll(dll);
}
}
void
-SgAsmPEImportSection::add_dll(SgAsmPEDLL *d)
+SgAsmPEImportSection::add_import_directory(SgAsmPEImportDirectory *d)
{
- ROSE_ASSERT(p_dlls != NULL);
- p_dlls->get_dlls().push_back(d);
+ ROSE_ASSERT(p_import_directories!=NULL);
+ p_import_directories->get_vector().push_back(d);
+ d->set_parent(this);
}
-// /* The following code is commented out pending some redesign work for SgAsmGenericDLL. The plan is to not use SgAsmGenericDLL
-// * for the time being, which will make SgAsmPEImportSection look a lot more like SgAsmPEExportSection in terms of the IR nodes
-// * that are created. Part of what makes this necessary is that PE shared libraries have very messed up Import Tables -- the
-// * Import Directory points off into completely unrelated parts of the file. Commenting out the unparser causes us to use the
-// * implementation from the super class, which just writes the original data back to disk. (RPM 2008-10-29). */
-//
-// /* Write the import section back to disk */
-// void
-// SgAsmPEImportSection::unparse(FILE *f)
-// {
-// ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
-// SgAsmGenericHeader *fhdr = get_header();
-//
-// const std::vector<SgAsmPEDLL*> & dlls = get_dlls()->get_dlls();
-//
-// for (size_t dllno = 0; dllno < dlls.size(); dllno++) {
-// SgAsmPEDLL *dll = dlls[dllno];
-// SgAsmPEImportDirectory *idir = dll->get_idir();
-//
-// /* Directory entry */
-// SgAsmPEImportDirectory::PEImportDirectory_disk idir_disk;
-// idir->encode(&idir_disk);
-// write(f, dllno*sizeof(idir_disk), sizeof idir_disk, &idir_disk);
-//
-// /* Library name. Write it even if it's not in this section! (RPM 2008-10-29) */
-// rva_t rva = idir->get_dll_name_rva();
-// ROSE_ASSERT(rva >= p_mapped_rva);
-// ROSE_ASSERT(rva.get_section()); /*should have been bound in constructor*/
-// addr_t spos = rva.get_section()->write(f, rva.get_rel(), dll->get_name()->get_string());
-// rva.get_section()->write(f, spos, '\0');
-//
-// /* Write the hint/name pairs and the array entries that point to them. They might not even be in this section! See
-// * ctor */
-// rva = idir->get_hintnames_rva();
-// if (rva != 0) {
-// ROSE_ASSERT(rva.get_section());
-// const std::vector<addr_t> & hintname_rvas = dll->get_hintname_rvas();
-// const std::vector<SgAsmPEImportHintName*> & hintnames = dll->get_hintnames()->get_hintnames();
-// for (size_t i = 0; i <= hintname_rvas.size(); i++) {
-// /* Hint/name RVA */
-// addr_t hintname_rva = i < hintname_rvas.size() ? hintname_rvas[i] : 0; /*zero terminated*/
-// bool import_by_ordinal = false;
-// if (4 == fhdr->get_word_size()) {
-// uint32_t rva_le;
-// host_to_le(hintname_rva, &rva_le);
-// rva.get_section()->write(f, rva.get_rel() + i*fhdr->get_word_size(), sizeof rva_le, &rva_le);
-// import_by_ordinal = (hintname_rva & 0x80000000) != 0;
-// } else if (8==fhdr->get_word_size()) {
-// uint64_t rva_le;
-// host_to_le(hintname_rva, &rva_le);
-// rva.get_section()->write(f, rva.get_rel() + i*fhdr->get_word_size(), sizeof rva_le, &rva_le);
-// import_by_ordinal = (hintname_rva & 0x8000000000000000ull) != 0;
-// } else {
-// ROSE_ASSERT(!"unsupported word size");
-// }
-//
-// /* Hint/name pair */
-// if (i<hintname_rvas.size() && !import_by_ordinal) {
-// addr_t hintname_spos = (hintname_rvas[i] & 0x7fffffff) - p_mapped_rva; /*section offset*/
-// hintnames[i]->unparse(f, this, hintname_spos);
-// }
-// }
-// }
-//
-// /* Write the bindings array. These could be in some other section (see constructor)! */
-// rva = idir->get_bindings_rva();
-// if (rva != 0) {
-// ROSE_ASSERT(rva.get_section());
-// const std::vector<addr_t> & bindings = dll->get_bindings();
-// for (size_t i=0; i<=bindings.size(); i++) {
-// addr_t binding = i<bindings.size() ? bindings[i] : 0; /*zero terminated*/
-// if (4==fhdr->get_word_size()) {
-// uint32_t binding_le;
-// host_to_le(binding, &binding_le);
-// rva.get_section()->write(f, rva.get_rel() + i*fhdr->get_word_size(), sizeof binding_le, &binding_le);
-// } else if (8==fhdr->get_word_size()) {
-// uint64_t binding_le;
-// host_to_le(binding, &binding_le);
-// rva.get_section()->write(f, rva.get_rel() + i*fhdr->get_word_size(), sizeof binding_le, &binding_le);
-// } else {
-// ROSE_ASSERT(!"unsupported word size");
-// }
-// }
-// }
-// }
-//
-// /* DLL list is zero terminated */
-// {
-// SgAsmPEImportDirectory::PEImportDirectory_disk zero;
-// memset(&zero, 0, sizeof zero);
-// write(f, dlls.size()*sizeof zero, sizeof zero, &zero);
-// }
-//
-// unparse_holes(f);
-// }
+/* Write the import section back to disk */
+void
+SgAsmPEImportSection::unparse(std::ostream &f)
+{
+ ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
+ unparse_holes(f);
+ /* Import Directory Entries and all they point to (even in other sections) */
+ for (size_t i=0; i<get_import_directories()->get_vector().size(); i++) {
+ get_import_directories()->get_vector()[i]->unparse(f, this);
+ }
+
+ /* Zero terminated */
+ SgAsmPEImportDirectory::PEImportDirectory_disk zero;
+ memset(&zero, 0, sizeof zero);
+ write(f, get_import_directories()->get_vector().size()*sizeof(zero), sizeof zero, &zero);
+}
+
/* Print debugging info */
void
SgAsmPEImportSection::dump(FILE *f, const char *prefix, ssize_t idx)
@@ -1359,8 +1458,12 @@
} else {
sprintf(p, "%sPEImportSection.", prefix);
}
+ const int w = std::max(1, DUMP_FIELD_WIDTH-(int)strlen(p));
SgAsmPESection::dump(f, p, -1);
+ fprintf(f, "%s%-*s = %zu\n", p, w, "ndirectories", p_import_directories->get_vector().size());
+ for (size_t i=0; i<p_import_directories->get_vector().size(); i++)
+ p_import_directories->get_vector()[i]->dump(f, p, i);
if (variantT() == V_SgAsmPEImportSection) //unless a base class
hexdump(f, 0, std::string(p)+"data at ", p_data);
@@ -1506,7 +1609,7 @@
addr_t expaddr_offset = p_export_dir->get_expaddr_rva().get_rel(this) + expaddr_idx*sizeof(*expaddr_disk);
expaddr_disk = (const ExportAddress_disk*)content(expaddr_offset, sizeof(*expaddr_disk));
expaddr = le_to_host(*expaddr_disk);
- expaddr.set_section(fhdr->get_best_section_by_va(expaddr.get_rva()+fhdr->get_base_va()));
+ expaddr.bind(fhdr);
} else {
expaddr = 0xffffffff; /*Ordinal out of range!*/
}
@@ -1577,7 +1680,7 @@
/* Unparse an ElfStringSection by unparsing the ElfStrtab */
void
-SgAsmPEStringSection::unparse(FILE *f)
+SgAsmPEStringSection::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
get_strtab()->unparse(f);
@@ -1707,7 +1810,7 @@
/* Write string table back to disk. Free space is zeroed out; holes are left as they are. */
void
-SgAsmCoffStrtab::unparse(FILE *f)
+SgAsmCoffStrtab::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate(false)); /*should have been called well before any unparsing started*/
SgAsmGenericSection *container = get_container();
@@ -2065,7 +2168,7 @@
/* Write symbol table back to disk */
void
-SgAsmCoffSymbolTable::unparse(FILE *f)
+SgAsmCoffSymbolTable::unparse(std::ostream &f)
{
ROSE_ASSERT(0==reallocate()); /*should have been called well before any unparsing started*/
addr_t spos = 0; /*section offset*/
@@ -2176,9 +2279,9 @@
/* Associate RVAs with particular sections. */
ROSE_ASSERT(fhdr->get_entry_rvas().size()==1);
- fhdr->get_entry_rvas()[0].set_section(fhdr);
- fhdr->set_e_code_rva(fhdr->get_e_code_rva().set_section(fhdr));
- fhdr->set_e_data_rva(fhdr->get_e_data_rva().set_section(fhdr));
+ fhdr->get_entry_rvas()[0].bind(fhdr);
+ fhdr->set_e_code_rva(fhdr->get_e_code_rva().bind(fhdr));
+ fhdr->set_e_data_rva(fhdr->get_e_data_rva().bind(fhdr));
/* Turn header-specified tables (RVA/Size pairs) into generic sections */
fhdr->create_table_sections();
Modified: trunk/src/frontend/OpenFortranParser_SAGE_Connection/openFortranParser_main.C
===================================================================
--- trunk/src/frontend/OpenFortranParser_SAGE_Connection/openFortranParser_main.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/OpenFortranParser_SAGE_Connection/openFortranParser_main.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -99,9 +99,9 @@
string new_value = findRoseSupportPathFromBuild("src/frontend/OpenFortranParser_SAGE_Connection/.libs", "lib");
/* Save the old value */
- const char* old_value = getenv(LTDL_SHLIBPATH_VAR); // Might be null
+ const char* old_value = getenv(ROSE_SHLIBPATH_VAR); // Might be null
-#if 1
+#if 0
printf ("Old value: LD_LIBRARY_PATH = %s \n",old_value);
printf ("New value: LD_LIBRARY_PATH = %s \n",new_value.c_str());
/* This value can be empty if the configuration was done using a relative path, as I recall! */
@@ -111,7 +111,7 @@
#if OVERWRITE_LD_LIBRARY_PATH
int overwrite = 1;
- int env_status = setenv(LTDL_SHLIBPATH_VAR,new_value.c_str(),overwrite);
+ int env_status = setenv(ROSE_SHLIBPATH_VAR,new_value.c_str(),overwrite);
assert(env_status == 0);
#endif
@@ -121,7 +121,7 @@
/* Reset to the saved value */
#if OVERWRITE_LD_LIBRARY_PATH
- env_status = setenv(LTDL_SHLIBPATH_VAR,old_value,overwrite);
+ env_status = setenv(ROSE_SHLIBPATH_VAR,old_value,overwrite);
assert(env_status == 0);
#endif
Modified: trunk/src/frontend/SageIII/Makefile.am
===================================================================
--- trunk/src/frontend/SageIII/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -24,7 +24,7 @@
# EXTRA_DIST = preproc.lex preproc.C sageClasses.docs sage.docs.in docs
# EXTRA_DIST = preproc.lex preproc.C astGraphTemplate.C docs
EXTRA_DIST = preproc.ll docs rtiHelpers.h attributeListMap.h \
- advanced_preprocessing_hooks.h rose_attributes_list.h
+ advanced_preprocessing_hooks.h rose_attributes_list.h dwarfSupport.h
CLEANFILES = haveRosettaGeneratedSource
DISTCLEANFILES = preproc.cc
@@ -77,7 +77,9 @@
fixupCopy_references.C \
rtiHelpers.C \
virtualCfgMemberFunctions.C \
- OmpAttribute.C
+ OmpAttribute.C \
+ dwarfSupport.C
+
# $(GENERATED_SOURCE) is handled separately
# DQ (5/27/2007): Files moved or removed
@@ -130,7 +132,7 @@
attach_all_info.h manglingSupport.h C++_include_files.h \
fixupCopy.h \
general_token_defs.h rose_paths.h rtiHelpers.h \
- OmpAttribute.h omp.h
+ OmpAttribute.h omp.h dwarfSupport.h
nodist_include_HEADERS = \
Cxx_Grammar.h \
Modified: trunk/src/frontend/SageIII/astTokenStream/linearizeAST.C
===================================================================
--- trunk/src/frontend/SageIII/astTokenStream/linearizeAST.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/astTokenStream/linearizeAST.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -2,16 +2,16 @@
// rose.C: Example (default) ROSE Preprocessor: used for testing ROSE infrastructure
#include "linearizeAST.h"
-InheritedAttribute::InheritedAttribute () : loopNestDepth(0) {};
-InheritedAttribute::InheritedAttribute ( const InheritedAttribute & X ) {};
+LinInheritedAttribute::LinInheritedAttribute () : loopNestDepth(0) {};
+LinInheritedAttribute::LinInheritedAttribute ( const LinInheritedAttribute & X ) {};
LinSynthesizedAttribute::LinSynthesizedAttribute() {};
-InheritedAttribute
+LinInheritedAttribute
LinearizeAST::evaluateInheritedAttribute (
SgNode* astNode,
- InheritedAttribute inheritedAttribute )
+ LinInheritedAttribute inheritedAttribute )
{
if( (isSgLocatedNode(astNode)!=NULL) && ( (isSgScopeStatement(astNode)!=NULL)||(isSgValueExp(astNode)!=NULL)||(isSgVarRefExp(astNode)!=NULL)|| (isSgLocatedNode(astNode)->get_file_info()->isCompilerGenerated() == false)) ){
@@ -38,7 +38,7 @@
LinSynthesizedAttribute
LinearizeAST::evaluateSynthesizedAttribute (
SgNode* astNode,
- InheritedAttribute inheritedAttribute,
+ LinInheritedAttribute inheritedAttribute,
SubTreeSynthesizedAttributes synthesizedAttributeList )
{
LinSynthesizedAttribute returnAttribute;
@@ -92,7 +92,7 @@
linearize_subtree( SgNode* node )
{
// Build the inherited attribute
- InheritedAttribute inheritedAttribute;
+ LinInheritedAttribute inheritedAttribute;
LinearizeAST myTraversal;
Modified: trunk/src/frontend/SageIII/astTokenStream/linearizeAST.h
===================================================================
--- trunk/src/frontend/SageIII/astTokenStream/linearizeAST.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/astTokenStream/linearizeAST.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -7,13 +7,13 @@
#include "rose.h"
#include <stack>
-class InheritedAttribute
+class LinInheritedAttribute
{
public:
int loopNestDepth;
- InheritedAttribute ();
- InheritedAttribute ( const InheritedAttribute & X );
+ LinInheritedAttribute ();
+ LinInheritedAttribute ( const LinInheritedAttribute & X );
};
class LinSynthesizedAttribute
@@ -23,7 +23,7 @@
};
-class LinearizeAST : public SgTopDownBottomUpProcessing<InheritedAttribute,LinSynthesizedAttribute>
+class LinearizeAST : public SgTopDownBottomUpProcessing<LinInheritedAttribute,LinSynthesizedAttribute>
{
private:
//The idea is to create an inorder ordering of the nodes using a SgTopDownBottomUp
@@ -52,13 +52,13 @@
// Functions required
- InheritedAttribute evaluateInheritedAttribute (
+ LinInheritedAttribute evaluateInheritedAttribute (
SgNode* astNode,
- InheritedAttribute inheritedAttribute );
+ LinInheritedAttribute inheritedAttribute );
LinSynthesizedAttribute evaluateSynthesizedAttribute (
SgNode* astNode,
- InheritedAttribute inheritedAttribute,
+ LinInheritedAttribute inheritedAttribute,
SubTreeSynthesizedAttributes synthesizedAttributeList );
std::vector<SgNode*>
Modified: trunk/src/frontend/SageIII/attachPreprocessingInfo.C
===================================================================
--- trunk/src/frontend/SageIII/attachPreprocessingInfo.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/attachPreprocessingInfo.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1268,13 +1268,13 @@
printf ("Adding preinclude file = %s \n",i->c_str());
// DQ (4/7/2006): This currently fails
- //first.force_include( i->c_str(), copyOf_i == preincludeList.rend() );
+ first.force_include( i->c_str(), copyOf_i == preincludeList.rend() );
// first.force_include( i->c_str(), false);
if(SgProject::get_verbose() >= 1)
printf ("DONE: Adding preinclude file = %s \n",i->c_str());
}
-#if 0
+#if 1
if(SgProject::get_verbose() >= 1)
Added: trunk/src/frontend/SageIII/dwarfSupport.C
===================================================================
--- trunk/src/frontend/SageIII/dwarfSupport.C (rev 0)
+++ trunk/src/frontend/SageIII/dwarfSupport.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,3134 @@
+// This file represents initial support in the ROSE AST for Dwarf debug information.
+// Dwarf is generated when source code is compiled using a compiler's debug mode.
+// the Dwarf information is represented a special sections in the file format of
+// the binary executable. These sections are read using libdwarf (open source
+// library used for reading and writing dwarf sections). In ROSE we read the
+// Dwarf information and build special IR nodes into the AST. This work effects
+// only AST for binary executable files (the ROSE Binary AST).
+
+
+// DONE: Dwarf support handles sections: .debug_info, .debug_line
+// TODO: Add support for sections: .debug_pubnames, .debug_pubtypes, and .debug_macinfo
+
+
+#include "rose.h"
+
+// Allow "string" and "pair" to be used (whether or not USE_ROSE_DWARF_SUPPORT id defined to be true).
+using namespace std;
+
+
+// This is controled by using the --with-dwarf configure command line option.
+#if USE_ROSE_DWARF_SUPPORT
+
+#define DIE_STACK_SIZE 300
+static Dwarf_Die die_stack[DIE_STACK_SIZE];
+
+#define PUSH_DIE_STACK(x) { die_stack[indent_level] = x; }
+#define POP_DIE_STACK { die_stack[indent_level] = 0; }
+
+int indent_level = 0;
+bool local_symbols_already_began = false;
+
+bool check_tag_tree = false;
+
+int check_error;
+
+#define DWARF_CHECK_ERROR(str) {\
+ printf("*** DWARF CHECK: %s ***\n", str);\
+ check_error ++; \
+}
+
+#define DWARF_CHECK_ERROR2(str1, str2) {\
+ printf("*** DWARF CHECK: %s: %s ***\n", str1, str2);\
+ check_error ++; \
+}
+
+#define DWARF_CHECK_ERROR3(str1, str2,strexpl) {\
+ printf("*** DWARF CHECK: %s -> %s: %s ***\n", str1, str2,strexpl);\
+ check_error ++; \
+}
+
+typedef struct {
+ int checks;
+ int errors;
+} Dwarf_Check_Result;
+
+Dwarf_Check_Result tag_tree_result;
+Dwarf_Check_Result type_offset_result;
+Dwarf_Check_Result decl_file_result;
+
+bool info_flag = true;
+
+// Dwarf variables
+Dwarf_Debug rose_dwarf_dbg;
+Dwarf_Error rose_dwarf_error;
+
+int verbose = 1;
+// bool dense = false;
+
+bool ellipsis = false;
+
+int break_after_n_units = INT_MAX;
+
+char cu_name[BUFSIZ];
+bool cu_name_flag = false;
+Dwarf_Unsigned cu_offset = 0;
+
+std::string program_name = "roseDwarfReader";
+
+
+
+void
+print_error(Dwarf_Debug dbg, string msg, int dwarf_code, Dwarf_Error err)
+ {
+ // Simple error message function
+ printf ("Error: %s \n",msg.c_str());
+ ROSE_ASSERT(false);
+ }
+
+void
+print_source_intro(Dwarf_Die cu_die)
+ {
+ Dwarf_Off off = 0;
+ int ores = dwarf_dieoffset(cu_die, &off, &rose_dwarf_error);
+
+ if (ores == DW_DLV_OK)
+ {
+ printf("Source lines (from CU-DIE at .debug_info offset %llu):\n",(unsigned long long) off);
+ }
+ else
+ {
+ printf("Source lines (for the CU-DIE at unknown location):\n");
+ }
+ }
+
+
+char *
+makename(char *s)
+{
+ char *newstr;
+
+ if (!s) {
+ return strdup("");
+ }
+
+ newstr = strdup(s);
+ if (newstr == 0) {
+ fprintf(stderr, "Out of memory mallocing %d bytes\n",
+ (int) strlen(s));
+ exit(1);
+ }
+ return newstr;
+}
+
+string
+get_TAG_name (Dwarf_Debug dbg, Dwarf_Half val)
+{
+ switch (val) {
+ case DW_TAG_array_type:
+ return "DW_TAG_array_type";
+ case DW_TAG_class_type:
+ return "DW_TAG_class_type";
+ case DW_TAG_entry_point:
+ return "DW_TAG_entry_point";
+ case DW_TAG_enumeration_type:
+ return "DW_TAG_enumeration_type";
+ case DW_TAG_formal_parameter:
+ return "DW_TAG_formal_parameter";
+ case DW_TAG_imported_declaration:
+ return "DW_TAG_imported_declaration";
+ case DW_TAG_label:
+ return "DW_TAG_label";
+ case DW_TAG_lexical_block:
+ return "DW_TAG_lexical_block";
+ case DW_TAG_member:
+ return "DW_TAG_member";
+ case DW_TAG_pointer_type:
+ return "DW_TAG_pointer_type";
+ case DW_TAG_reference_type:
+ return "DW_TAG_reference_type";
+ case DW_TAG_compile_unit:
+ return "DW_TAG_compile_unit";
+ case DW_TAG_string_type:
+ return "DW_TAG_string_type";
+ case DW_TAG_structure_type:
+ return "DW_TAG_structure_type";
+ case DW_TAG_subroutine_type:
+ return "DW_TAG_subroutine_type";
+ case DW_TAG_typedef:
+ return "DW_TAG_typedef";
+ case DW_TAG_union_type:
+ return "DW_TAG_union_type";
+ case DW_TAG_unspecified_parameters:
+ return "DW_TAG_unspecified_parameters";
+ case DW_TAG_variant:
+ return "DW_TAG_variant";
+ case DW_TAG_common_block:
+ return "DW_TAG_common_block";
+ case DW_TAG_common_inclusion:
+ return "DW_TAG_common_inclusion";
+ case DW_TAG_inheritance:
+ return "DW_TAG_inheritance";
+ case DW_TAG_inlined_subroutine:
+ return "DW_TAG_inlined_subroutine";
+ case DW_TAG_module:
+ return "DW_TAG_module";
+ case DW_TAG_ptr_to_member_type:
+ return "DW_TAG_ptr_to_member_type";
+ case DW_TAG_set_type:
+ return "DW_TAG_set_type";
+ case DW_TAG_subrange_type:
+ return "DW_TAG_subrange_type";
+ case DW_TAG_with_stmt:
+ return "DW_TAG_with_stmt";
+ case DW_TAG_access_declaration:
+ return "DW_TAG_access_declaration";
+ case DW_TAG_base_type:
+ return "DW_TAG_base_type";
+ case DW_TAG_catch_block:
+ return "DW_TAG_catch_block";
+ case DW_TAG_const_type:
+ return "DW_TAG_const_type";
+ case DW_TAG_constant:
+ return "DW_TAG_constant";
+ case DW_TAG_enumerator:
+ return "DW_TAG_enumerator";
+ case DW_TAG_file_type:
+ return "DW_TAG_file_type";
+ case DW_TAG_friend:
+ return "DW_TAG_friend";
+ case DW_TAG_namelist:
+ return "DW_TAG_namelist";
+ case DW_TAG_namelist_item:
+ return "DW_TAG_namelist_item";
+ case DW_TAG_packed_type:
+ return "DW_TAG_packed_type";
+ case DW_TAG_subprogram:
+ return "DW_TAG_subprogram";
+ case DW_TAG_template_type_parameter:
+ return "DW_TAG_template_type_parameter";
+ case DW_TAG_template_value_parameter:
+ return "DW_TAG_template_value_parameter";
+ case DW_TAG_thrown_type:
+ return "DW_TAG_thrown_type";
+ case DW_TAG_try_block:
+ return "DW_TAG_try_block";
+ case DW_TAG_variant_part:
+ return "DW_TAG_variant_part";
+ case DW_TAG_variable:
+ return "DW_TAG_variable";
+ case DW_TAG_volatile_type:
+ return "DW_TAG_volatile_type";
+ case DW_TAG_dwarf_procedure:
+ return "DW_TAG_dwarf_procedure";
+ case DW_TAG_restrict_type:
+ return "DW_TAG_restrict_type";
+ case DW_TAG_interface_type:
+ return "DW_TAG_interface_type";
+ case DW_TAG_namespace:
+ return "DW_TAG_namespace";
+ case DW_TAG_imported_module:
+ return "DW_TAG_imported_module";
+ case DW_TAG_unspecified_type:
+ return "DW_TAG_unspecified_type";
+ case DW_TAG_partial_unit:
+ return "DW_TAG_partial_unit";
+ case DW_TAG_imported_unit:
+ return "DW_TAG_imported_unit";
+ case DW_TAG_mutable_type:
+ return "DW_TAG_mutable_type";
+ case DW_TAG_condition:
+ return "DW_TAG_condition";
+ case DW_TAG_shared_type:
+ return "DW_TAG_shared_type";
+ case DW_TAG_lo_user:
+ return "DW_TAG_lo_user";
+ case DW_TAG_MIPS_loop:
+ return "DW_TAG_MIPS_loop";
+ case DW_TAG_HP_array_descriptor:
+ return "DW_TAG_HP_array_descriptor";
+ case DW_TAG_format_label:
+ return "DW_TAG_format_label";
+ case DW_TAG_function_template:
+ return "DW_TAG_function_template";
+ case DW_TAG_class_template:
+ return "DW_TAG_class_template";
+ case DW_TAG_GNU_BINCL:
+ return "DW_TAG_GNU_BINCL";
+ case DW_TAG_GNU_EINCL:
+ return "DW_TAG_GNU_EINCL";
+ case DW_TAG_ALTIUM_circ_type:
+ return "DW_TAG_ALTIUM_circ_type";
+ case DW_TAG_ALTIUM_mwa_circ_type:
+ return "DW_TAG_ALTIUM_mwa_circ_type";
+ case DW_TAG_ALTIUM_rev_carry_type:
+ return "DW_TAG_ALTIUM_rev_carry_type";
+ case DW_TAG_ALTIUM_rom:
+ return "DW_TAG_ALTIUM_rom";
+ case DW_TAG_upc_shared_type:
+ return "DW_TAG_upc_shared_type";
+ case DW_TAG_upc_strict_type:
+ return "DW_TAG_upc_strict_type";
+ case DW_TAG_upc_relaxed_type:
+ return "DW_TAG_upc_relaxed_type";
+ case DW_TAG_PGI_kanji_type:
+ return "DW_TAG_PGI_kanji_type";
+ case DW_TAG_PGI_interface_block:
+ return "DW_TAG_PGI_interface_block";
+ case DW_TAG_SUN_function_template:
+ return "DW_TAG_SUN_function_template";
+ case DW_TAG_SUN_class_template:
+ return "DW_TAG_SUN_class_template";
+ case DW_TAG_SUN_struct_template:
+ return "DW_TAG_SUN_struct_template";
+ case DW_TAG_SUN_union_template:
+ return "DW_TAG_SUN_union_template";
+ case DW_TAG_SUN_indirect_inheritance:
+ return "DW_TAG_SUN_indirect_inheritance";
+ case DW_TAG_SUN_codeflags:
+ return "DW_TAG_SUN_codeflags";
+ case DW_TAG_SUN_memop_info:
+ return "DW_TAG_SUN_memop_info";
+ case DW_TAG_SUN_omp_child_func:
+ return "DW_TAG_SUN_omp_child_func";
+ case DW_TAG_SUN_rtti_descriptor:
+ return "DW_TAG_SUN_rtti_descriptor";
+ case DW_TAG_SUN_dtor_info:
+ return "DW_TAG_SUN_dtor_info";
+ case DW_TAG_SUN_dtor:
+ return "DW_TAG_SUN_dtor";
+ case DW_TAG_SUN_f90_interface:
+ return "DW_TAG_SUN_f90_interface";
+ case DW_TAG_SUN_fortran_vax_structure:
+ return "DW_TAG_SUN_fortran_vax_structure";
+ case DW_TAG_SUN_hi:
+ return "DW_TAG_SUN_hi";
+ case DW_TAG_hi_user:
+ return "DW_TAG_hi_user";
+
+ default:
+ {
+ char buf[100];
+ char *n;
+ snprintf(buf,sizeof(buf),"<Unknown TAG value 0x%x>",(int)val);
+ fprintf(stderr,"TAG of %d (0x%x) is unknown to dwarfdump. " "Continuing. \n",(int)val,(int)val );
+ n = makename(buf);
+ return n;
+ }
+ }
+
+}
+
+#if 0
+void
+print_attribute(Dwarf_Debug dbg, Dwarf_Die die, Dwarf_Half attr,Dwarf_Attribute attr_in,bool print_information,char **srcfiles, Dwarf_Signed cnt, SgAsmDwarfConstruct* asmDwarfConstruct)
+ {
+ // This function is not implemented!
+
+ printf ("Error: print_attribute is not implemented! \n");
+ // ROSE_ASSERT(false);
+ }
+#else
+
+string
+get_AT_name (Dwarf_Debug dbg, Dwarf_Half val)
+{
+ switch (val) {
+ case DW_AT_sibling:
+ return "DW_AT_sibling";
+ case DW_AT_location:
+ return "DW_AT_location";
+ case DW_AT_name:
+ return "DW_AT_name";
+ case DW_AT_ordering:
+ return "DW_AT_ordering";
+ case DW_AT_subscr_data:
+ return "DW_AT_subscr_data";
+ case DW_AT_byte_size:
+ return "DW_AT_byte_size";
+ case DW_AT_bit_offset:
+ return "DW_AT_bit_offset";
+ case DW_AT_bit_size:
+ return "DW_AT_bit_size";
+ case DW_AT_element_list:
+ return "DW_AT_element_list";
+ case DW_AT_stmt_list:
+ return "DW_AT_stmt_list";
+ case DW_AT_low_pc:
+ return "DW_AT_low_pc";
+ case DW_AT_high_pc:
+ return "DW_AT_high_pc";
+ case DW_AT_language:
+ return "DW_AT_language";
+ case DW_AT_member:
+ return "DW_AT_member";
+ case DW_AT_discr:
+ return "DW_AT_discr";
+ case DW_AT_discr_value:
+ return "DW_AT_discr_value";
+ case DW_AT_visibility:
+ return "DW_AT_visibility";
+ case DW_AT_import:
+ return "DW_AT_import";
+ case DW_AT_string_length:
+ return "DW_AT_string_length";
+ case DW_AT_common_reference:
+ return "DW_AT_common_reference";
+ case DW_AT_comp_dir:
+ return "DW_AT_comp_dir";
+ case DW_AT_const_value:
+ return "DW_AT_const_value";
+ case DW_AT_containing_type:
+ return "DW_AT_containing_type";
+ case DW_AT_default_value:
+ return "DW_AT_default_value";
+ case DW_AT_inline:
+ return "DW_AT_inline";
+ case DW_AT_is_optional:
+ return "DW_AT_is_optional";
+ case DW_AT_lower_bound:
+ return "DW_AT_lower_bound";
+ case DW_AT_producer:
+ return "DW_AT_producer";
+ case DW_AT_prototyped:
+ return "DW_AT_prototyped";
+ case DW_AT_return_addr:
+ return "DW_AT_return_addr";
+ case DW_AT_start_scope:
+ return "DW_AT_start_scope";
+ case DW_AT_bit_stride:
+ return "DW_AT_bit_stride";
+ case DW_AT_upper_bound:
+ return "DW_AT_upper_bound";
+ case DW_AT_abstract_origin:
+ return "DW_AT_abstract_origin";
+ case DW_AT_accessibility:
+ return "DW_AT_accessibility";
+ case DW_AT_address_class:
+ return "DW_AT_address_class";
+ case DW_AT_artificial:
+ return "DW_AT_artificial";
+ case DW_AT_base_types:
+ return "DW_AT_base_types";
+ case DW_AT_calling_convention:
+ return "DW_AT_calling_convention";
+ case DW_AT_count:
+ return "DW_AT_count";
+ case DW_AT_data_member_location:
+ return "DW_AT_data_member_location";
+ case DW_AT_decl_column:
+ return "DW_AT_decl_column";
+ case DW_AT_decl_file:
+ return "DW_AT_decl_file";
+ case DW_AT_decl_line:
+ return "DW_AT_decl_line";
+ case DW_AT_declaration:
+ return "DW_AT_declaration";
+ case DW_AT_discr_list:
+ return "DW_AT_discr_list";
+ case DW_AT_encoding:
+ return "DW_AT_encoding";
+ case DW_AT_external:
+ return "DW_AT_external";
+ case DW_AT_frame_base:
+ return "DW_AT_frame_base";
+ case DW_AT_friend:
+ return "DW_AT_friend";
+ case DW_AT_identifier_case:
+ return "DW_AT_identifier_case";
+ case DW_AT_macro_info:
+ return "DW_AT_macro_info";
+ case DW_AT_namelist_item:
+ return "DW_AT_namelist_item";
+ case DW_AT_priority:
+ return "DW_AT_priority";
+ case DW_AT_segment:
+ return "DW_AT_segment";
+ case DW_AT_specification:
+ return "DW_AT_specification";
+ case DW_AT_static_link:
+ return "DW_AT_static_link";
+ case DW_AT_type:
+ return "DW_AT_type";
+ case DW_AT_use_location:
+ return "DW_AT_use_location";
+ case DW_AT_variable_parameter:
+ return "DW_AT_variable_parameter";
+ case DW_AT_virtuality:
+ return "DW_AT_virtuality";
+ case DW_AT_vtable_elem_location:
+ return "DW_AT_vtable_elem_location";
+ case DW_AT_allocated:
+ return "DW_AT_allocated";
+ case DW_AT_associated:
+ return "DW_AT_associated";
+ case DW_AT_data_location:
+ return "DW_AT_data_location";
+ case DW_AT_byte_stride:
+ return "DW_AT_byte_stride";
+ case DW_AT_entry_pc:
+ return "DW_AT_entry_pc";
+ case DW_AT_use_UTF8:
+ return "DW_AT_use_UTF8";
+ case DW_AT_extension:
+ return "DW_AT_extension";
+ case DW_AT_ranges:
+ return "DW_AT_ranges";
+ case DW_AT_trampoline:
+ return "DW_AT_trampoline";
+ case DW_AT_call_column:
+ return "DW_AT_call_column";
+ case DW_AT_call_file:
+ return "DW_AT_call_file";
+ case DW_AT_call_line:
+ return "DW_AT_call_line";
+ case DW_AT_description:
+ return "DW_AT_description";
+ case DW_AT_binary_scale:
+ return "DW_AT_binary_scale";
+ case DW_AT_decimal_scale:
+ return "DW_AT_decimal_scale";
+ case DW_AT_small:
+ return "DW_AT_small";
+ case DW_AT_decimal_sign:
+ return "DW_AT_decimal_sign";
+ case DW_AT_digit_count:
+ return "DW_AT_digit_count";
+ case DW_AT_picture_string:
+ return "DW_AT_picture_string";
+ case DW_AT_mutable:
+ return "DW_AT_mutable";
+ case DW_AT_threads_scaled:
+ return "DW_AT_threads_scaled";
+ case DW_AT_explicit:
+ return "DW_AT_explicit";
+ case DW_AT_object_pointer:
+ return "DW_AT_object_pointer";
+ case DW_AT_endianity:
+ return "DW_AT_endianity";
+ case DW_AT_elemental:
+ return "DW_AT_elemental";
+ case DW_AT_pure:
+ return "DW_AT_pure";
+ case DW_AT_recursive:
+ return "DW_AT_recursive";
+ case DW_AT_HP_block_index:
+ return "DW_AT_HP_block_index";
+ case DW_AT_MIPS_fde:
+ return "DW_AT_MIPS_fde";
+ case DW_AT_MIPS_loop_begin:
+ return "DW_AT_MIPS_loop_begin";
+ case DW_AT_MIPS_tail_loop_begin:
+ return "DW_AT_MIPS_tail_loop_begin";
+ case DW_AT_MIPS_epilog_begin:
+ return "DW_AT_MIPS_epilog_begin";
+ case DW_AT_MIPS_loop_unroll_factor:
+ return "DW_AT_MIPS_loop_unroll_factor";
+ case DW_AT_MIPS_software_pipeline_depth:
+ return "DW_AT_MIPS_software_pipeline_depth";
+ case DW_AT_MIPS_linkage_name:
+ return "DW_AT_MIPS_linkage_name";
+ case DW_AT_MIPS_stride:
+ return "DW_AT_MIPS_stride";
+ case DW_AT_MIPS_abstract_name:
+ return "DW_AT_MIPS_abstract_name";
+ case DW_AT_MIPS_clone_origin:
+ return "DW_AT_MIPS_clone_origin";
+ case DW_AT_MIPS_has_inlines:
+ return "DW_AT_MIPS_has_inlines";
+ case DW_AT_MIPS_stride_byte:
+ return "DW_AT_MIPS_stride_byte";
+ case DW_AT_MIPS_stride_elem:
+ return "DW_AT_MIPS_stride_elem";
+ case DW_AT_MIPS_ptr_dopetype:
+ return "DW_AT_MIPS_ptr_dopetype";
+ case DW_AT_MIPS_allocatable_dopetype:
+ return "DW_AT_MIPS_allocatable_dopetype";
+ case DW_AT_MIPS_assumed_shape_dopetype:
+ return "DW_AT_MIPS_assumed_shape_dopetype";
+ case DW_AT_MIPS_assumed_size:
+ return "DW_AT_MIPS_assumed_size";
+ case DW_AT_HP_raw_data_ptr:
+ return "DW_AT_HP_raw_data_ptr";
+ case DW_AT_HP_pass_by_reference:
+ return "DW_AT_HP_pass_by_reference";
+ case DW_AT_HP_opt_level:
+ return "DW_AT_HP_opt_level";
+ case DW_AT_HP_prof_version_id:
+ return "DW_AT_HP_prof_version_id";
+ case DW_AT_HP_opt_flags:
+ return "DW_AT_HP_opt_flags";
+ case DW_AT_HP_cold_region_low_pc:
+ return "DW_AT_HP_cold_region_low_pc";
+ case DW_AT_HP_cold_region_high_pc:
+ return "DW_AT_HP_cold_region_high_pc";
+ case DW_AT_HP_all_variables_modifiable:
+ return "DW_AT_HP_all_variables_modifiable";
+ case DW_AT_HP_linkage_name:
+ return "DW_AT_HP_linkage_name";
+ case DW_AT_HP_prof_flags:
+ return "DW_AT_HP_prof_flags";
+ case DW_AT_sf_names:
+ return "DW_AT_sf_names";
+ case DW_AT_src_info:
+ return "DW_AT_src_info";
+ case DW_AT_mac_info:
+ return "DW_AT_mac_info";
+ case DW_AT_src_coords:
+ return "DW_AT_src_coords";
+ case DW_AT_body_begin:
+ return "DW_AT_body_begin";
+ case DW_AT_body_end:
+ return "DW_AT_body_end";
+ case DW_AT_GNU_vector:
+ return "DW_AT_GNU_vector";
+ case DW_AT_ALTIUM_loclist:
+ return "DW_AT_ALTIUM_loclist";
+ case DW_AT_PGI_lbase:
+ return "DW_AT_PGI_lbase";
+ case DW_AT_PGI_soffset:
+ return "DW_AT_PGI_soffset";
+ case DW_AT_PGI_lstride:
+ return "DW_AT_PGI_lstride";
+ case DW_AT_upc_threads_scaled:
+ return "DW_AT_upc_threads_scaled";
+ case DW_AT_SUN_template:
+ return "DW_AT_SUN_template";
+ case DW_AT_SUN_alignment:
+ return "DW_AT_SUN_alignment";
+ case DW_AT_SUN_vtable:
+ return "DW_AT_SUN_vtable";
+ case DW_AT_SUN_count_guarantee:
+ return "DW_AT_SUN_count_guarantee";
+ case DW_AT_SUN_command_line:
+ return "DW_AT_SUN_command_line";
+ case DW_AT_SUN_vbase:
+ return "DW_AT_SUN_vbase";
+ case DW_AT_SUN_compile_options:
+ return "DW_AT_SUN_compile_options";
+ case DW_AT_SUN_language:
+ return "DW_AT_SUN_language";
+ case DW_AT_SUN_browser_file:
+ return "DW_AT_SUN_browser_file";
+ case DW_AT_SUN_vtable_abi:
+ return "DW_AT_SUN_vtable_abi";
+ case DW_AT_SUN_func_offsets:
+ return "DW_AT_SUN_func_offsets";
+ case DW_AT_SUN_cf_kind:
+ return "DW_AT_SUN_cf_kind";
+ case DW_AT_SUN_vtable_index:
+ return "DW_AT_SUN_vtable_index";
+ case DW_AT_SUN_omp_tpriv_addr:
+ return "DW_AT_SUN_omp_tpriv_addr";
+ case DW_AT_SUN_omp_child_func:
+ return "DW_AT_SUN_omp_child_func";
+ case DW_AT_SUN_func_offset:
+ return "DW_AT_SUN_func_offset";
+ case DW_AT_SUN_memop_type_ref:
+ return "DW_AT_SUN_memop_type_ref";
+ case DW_AT_SUN_profile_id:
+ return "DW_AT_SUN_profile_id";
+ case DW_AT_SUN_memop_signature:
+ return "DW_AT_SUN_memop_signature";
+ case DW_AT_SUN_obj_dir:
+ return "DW_AT_SUN_obj_dir";
+ case DW_AT_SUN_obj_file:
+ return "DW_AT_SUN_obj_file";
+ case DW_AT_SUN_original_name:
+ return "DW_AT_SUN_original_name";
+ case DW_AT_SUN_hwcprof_signature:
+ return "DW_AT_SUN_hwcprof_signature";
+ case DW_AT_SUN_amd64_parmdump:
+ return "DW_AT_SUN_amd64_parmdump";
+ case DW_AT_SUN_part_link_name:
+ return "DW_AT_SUN_part_link_name";
+ case DW_AT_SUN_link_name:
+ return "DW_AT_SUN_link_name";
+ case DW_AT_SUN_pass_with_const:
+ return "DW_AT_SUN_pass_with_const";
+ case DW_AT_SUN_return_with_const:
+ return "DW_AT_SUN_return_with_const";
+ case DW_AT_SUN_import_by_name:
+ return "DW_AT_SUN_import_by_name";
+ case DW_AT_SUN_f90_pointer:
+ return "DW_AT_SUN_f90_pointer";
+ case DW_AT_SUN_pass_by_ref:
+ return "DW_AT_SUN_pass_by_ref";
+ case DW_AT_SUN_f90_allocatable:
+ return "DW_AT_SUN_f90_allocatable";
+ case DW_AT_SUN_f90_assumed_shape_array:
+ return "DW_AT_SUN_f90_assumed_shape_array";
+ case DW_AT_SUN_c_vla:
+ return "DW_AT_SUN_c_vla";
+ case DW_AT_SUN_return_value_ptr:
+ return "DW_AT_SUN_return_value_ptr";
+ case DW_AT_SUN_dtor_start:
+ return "DW_AT_SUN_dtor_start";
+ case DW_AT_SUN_dtor_length:
+ return "DW_AT_SUN_dtor_length";
+ case DW_AT_SUN_dtor_state_initial:
+ return "DW_AT_SUN_dtor_state_initial";
+ case DW_AT_SUN_dtor_state_final:
+ return "DW_AT_SUN_dtor_state_final";
+ case DW_AT_SUN_dtor_state_deltas:
+ return "DW_AT_SUN_dtor_state_deltas";
+ case DW_AT_SUN_import_by_lname:
+ return "DW_AT_SUN_import_by_lname";
+ case DW_AT_SUN_f90_use_only:
+ return "DW_AT_SUN_f90_use_only";
+ case DW_AT_SUN_namelist_spec:
+ return "DW_AT_SUN_namelist_spec";
+ case DW_AT_SUN_is_omp_child_func:
+ return "DW_AT_SUN_is_omp_child_func";
+ case DW_AT_SUN_fortran_main_alias:
+ return "DW_AT_SUN_fortran_main_alias";
+ case DW_AT_SUN_fortran_based:
+ return "DW_AT_SUN_fortran_based";
+ case DW_AT_hi_user:
+ return "DW_AT_hi_user";
+
+ default:
+ {
+ char buf[100];
+ char *n;
+ snprintf(buf,sizeof(buf),"<Unknown AT value 0x%x>",(int)val);
+ fprintf(stderr,"AT of %d (0x%x) is unknown to dwarfdump. Continuing. \n",(int)val,(int)val );
+ n = makename(buf);
+ return n;
+ }
+ }
+}
+
+string
+get_LANG_name (Dwarf_Debug dbg, Dwarf_Half val)
+{
+ switch (val) {
+ case DW_LANG_C89:
+ return "DW_LANG_C89";
+ case DW_LANG_C:
+ return "DW_LANG_C";
+ case DW_LANG_Ada83:
+ return "DW_LANG_Ada83";
+ case DW_LANG_C_plus_plus:
+ return "DW_LANG_C_plus_plus";
+ case DW_LANG_Cobol74:
+ return "DW_LANG_Cobol74";
+ case DW_LANG_Cobol85:
+ return "DW_LANG_Cobol85";
+ case DW_LANG_Fortran77:
+ return "DW_LANG_Fortran77";
+ case DW_LANG_Fortran90:
+ return "DW_LANG_Fortran90";
+ case DW_LANG_Pascal83:
+ return "DW_LANG_Pascal83";
+ case DW_LANG_Modula2:
+ return "DW_LANG_Modula2";
+ case DW_LANG_Java:
+ return "DW_LANG_Java";
+ case DW_LANG_C99:
+ return "DW_LANG_C99";
+ case DW_LANG_Ada95:
+ return "DW_LANG_Ada95";
+ case DW_LANG_Fortran95:
+ return "DW_LANG_Fortran95";
+ case DW_LANG_PLI:
+ return "DW_LANG_PLI";
+ case DW_LANG_ObjC:
+ return "DW_LANG_ObjC";
+ case DW_LANG_ObjC_plus_plus:
+ return "DW_LANG_ObjC_plus_plus";
+ case DW_LANG_UPC:
+ return "DW_LANG_UPC";
+ case DW_LANG_D:
+ return "DW_LANG_D";
+ case DW_LANG_lo_user:
+ return "DW_LANG_lo_user";
+ case DW_LANG_Mips_Assembler:
+ return "DW_LANG_Mips_Assembler";
+ case DW_LANG_Upc:
+ return "DW_LANG_Upc";
+ case DW_LANG_ALTIUM_Assembler:
+ return "DW_LANG_ALTIUM_Assembler";
+ case DW_LANG_SUN_Assembler:
+ return "DW_LANG_SUN_Assembler";
+ case DW_LANG_hi_user:
+ return "DW_LANG_hi_user";
+
+ default:
+ {
+ char buf[100];
+ char *n;
+ snprintf(buf,sizeof(buf),"<Unknown LANG value 0x%x>",(int)val);
+ fprintf(stderr,"LANG of %d (0x%x) is unknown to dwarfdump. Continuing. \n",(int)val,(int)val );
+ n = makename(buf);
+ return n;
+ }
+ }
+}
+
+
+// Typedef for function pointer type used in get_small_encoding_integer_and_name() function paramter.
+typedef string(*encoding_type_func) (Dwarf_Debug dbg, Dwarf_Half val);
+
+int
+get_small_encoding_integer_and_name( Dwarf_Debug dbg, Dwarf_Attribute attrib, Dwarf_Unsigned * uval_out, char *attr_name, string * string_out, encoding_type_func val_as_string, Dwarf_Error * err)
+ {
+ Dwarf_Unsigned uval = 0;
+ char buf[100]; /* The strings are small. */
+ int vres = dwarf_formudata(attrib, &uval, err);
+
+ if (vres != DW_DLV_OK)
+ {
+ Dwarf_Signed sval = 0;
+
+ vres = dwarf_formsdata(attrib, &sval, err);
+ if (vres != DW_DLV_OK)
+ {
+ if (string_out != 0)
+ {
+ snprintf(buf, sizeof(buf),"%s has a bad form.", attr_name);
+ *string_out = makename(buf);
+ }
+ return vres;
+ }
+ *uval_out = (Dwarf_Unsigned) sval;
+ }
+ else
+ {
+ *uval_out = uval;
+ }
+
+ if (string_out)
+ *string_out = val_as_string(dbg, (Dwarf_Half) uval);
+
+ return DW_DLV_OK;
+ }
+
+// static void formx_unsigned(Dwarf_Unsigned u, struct esb_s *esbp)
+static void formx_unsigned(Dwarf_Unsigned u, string *esbp)
+ {
+ char small_buf[40];
+ snprintf(small_buf, sizeof(small_buf),"%llu", (unsigned long long)u);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ }
+
+// static void formx_signed(Dwarf_Signed u, struct esb_s *esbp)
+void formx_signed(Dwarf_Signed u, string *esbp)
+ {
+ char small_buf[40];
+ snprintf(small_buf, sizeof(small_buf),"%lld", (long long)u);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ }
+
+/* We think this is an integer. Figure out how to print it.
+ In case the signedness is ambiguous (such as on
+ DW_FORM_data1 (ie, unknown signedness) print two ways.
+*/
+// static int formxdata_print_value(Dwarf_Attribute attrib, struct esb_s *esbp, Dwarf_Error * err)
+int formxdata_print_value(Dwarf_Attribute attrib, string *esbp, Dwarf_Error * err)
+ {
+ Dwarf_Signed tempsd = 0;
+ Dwarf_Unsigned tempud = 0;
+ int sres = 0;
+ int ures = 0;
+ Dwarf_Error serr = 0;
+ ures = dwarf_formudata(attrib, &tempud, err);
+ sres = dwarf_formsdata(attrib, &tempsd, &serr);
+ if(ures == DW_DLV_OK) {
+ if(sres == DW_DLV_OK) {
+
+ // if(tempud == tempsd)
+ if((Dwarf_Signed)tempud == tempsd)
+ {
+ /* Data is the same value, so makes no difference which
+ we print. */
+ formx_unsigned(tempud,esbp);
+ } else {
+ formx_unsigned(tempud,esbp);
+ // esb_append(esbp,"(as signed = ");
+ *esbp += "(as signed = ";
+ formx_signed(tempsd,esbp);
+ // esb_append(esbp,")");
+ *esbp += ")";
+ }
+ } else if (sres == DW_DLV_NO_ENTRY) {
+ formx_unsigned(tempud,esbp);
+ } else /* DW_DLV_ERROR */{
+ formx_unsigned(tempud,esbp);
+ }
+ return DW_DLV_OK;
+ } else if (ures == DW_DLV_NO_ENTRY) {
+ if(sres == DW_DLV_OK) {
+ formx_signed(tempsd,esbp);
+ return sres;
+ } else if (sres == DW_DLV_NO_ENTRY) {
+ return sres;
+ } else /* DW_DLV_ERROR */{
+ *err = serr;
+ return sres;
+ }
+ }
+ /* else ures == DW_DLV_ERROR */
+ if(sres == DW_DLV_OK) {
+ formx_signed(tempsd,esbp);
+ } else if (sres == DW_DLV_NO_ENTRY) {
+ return ures;
+ }
+ /* DW_DLV_ERROR */
+ return ures;
+}
+
+
+
+/* Fill buffer with attribute value.
+ We pass in tag so we can try to do the right thing with
+ broken compiler DW_TAG_enumerator
+
+ We append to esbp's buffer.
+
+*/
+// static void get_attr_value(Dwarf_Debug dbg, Dwarf_Half tag, Dwarf_Attribute attrib,char **srcfiles, Dwarf_Signed cnt, struct esb_s *esbp)
+void get_attr_value(Dwarf_Debug dbg, Dwarf_Half tag, Dwarf_Attribute attrib,char **srcfiles, Dwarf_Signed cnt, string *esbp)
+{
+ Dwarf_Half theform;
+ char* temps;
+ Dwarf_Block *tempb;
+ Dwarf_Signed tempsd = 0;
+ Dwarf_Unsigned tempud = 0;
+ int i;
+ Dwarf_Half attr;
+ Dwarf_Off off;
+ Dwarf_Die die_for_check;
+ Dwarf_Half tag_for_check;
+ Dwarf_Bool tempbool;
+ Dwarf_Addr addr = 0;
+ int fres;
+ int bres;
+ int wres;
+ int dres;
+ Dwarf_Half direct_form = 0;
+ char small_buf[100];
+
+ // DQ: Added these here instead of in global scope
+ Dwarf_Off fde_offset_for_cu_low = DW_DLV_BADOFFSET;
+ Dwarf_Off fde_offset_for_cu_high = DW_DLV_BADOFFSET;
+
+
+ fres = dwarf_whatform(attrib, &theform, &rose_dwarf_error);
+ /* depending on the form and the attribute, process the form */
+ if (fres == DW_DLV_ERROR) {
+ print_error(dbg, "dwarf_whatform cannot find attr form", fres,rose_dwarf_error);
+ } else if (fres == DW_DLV_NO_ENTRY) {
+ return;
+ }
+
+ dwarf_whatform_direct(attrib, &direct_form, &rose_dwarf_error);
+ /* ignore errors in dwarf_whatform_direct() */
+
+
+ switch (theform) {
+ case DW_FORM_addr:
+ bres = dwarf_formaddr(attrib, &addr, &rose_dwarf_error);
+ if (bres == DW_DLV_OK) {
+ snprintf(small_buf, sizeof(small_buf), "%#llx",(unsigned long long) addr);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ } else {
+ print_error(dbg, "addr formwith no addr?!", bres, rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_ref_addr:
+ /* DW_FORM_ref_addr is not accessed thru formref: ** it is an
+ address (global section offset) in ** the .debug_info
+ section. */
+ bres = dwarf_global_formref(attrib, &off, &rose_dwarf_error);
+ if (bres == DW_DLV_OK) {
+ snprintf(small_buf, sizeof(small_buf),"<global die offset %llu>",(unsigned long long) off);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ } else {
+ print_error(dbg,"DW_FORM_ref_addr form with no reference?!",bres, rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_ref1:
+ case DW_FORM_ref2:
+ case DW_FORM_ref4:
+ case DW_FORM_ref8:
+ case DW_FORM_ref_udata:
+ {
+ bres = dwarf_formref(attrib, &off, &rose_dwarf_error);
+ if (bres != DW_DLV_OK) {
+ print_error(dbg, "ref formwith no ref?!", bres, rose_dwarf_error);
+ }
+ /* do references inside <> to distinguish them ** from
+ constants. In dense form this results in <<>>. Ugly for
+ dense form, but better than ambiguous. davea 9/94 */
+ snprintf(small_buf, sizeof(small_buf), "<%llu>", off);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+
+ // DQ: Added bool directly
+ bool check_type_offset = false;
+
+ if (check_type_offset) {
+ wres = dwarf_whatattr(attrib, &attr, &rose_dwarf_error);
+ if (wres == DW_DLV_ERROR) {
+
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ }
+ if (attr == DW_AT_type) {
+ dres = dwarf_offdie(dbg, cu_offset + off,&die_for_check, &rose_dwarf_error);
+ type_offset_result.checks++;
+ if (dres != DW_DLV_OK) {
+ type_offset_result.errors++;
+ DWARF_CHECK_ERROR
+ ("DW_AT_type offset does not point to type info")
+ } else {
+ int tres2;
+
+ tres2 =
+ dwarf_tag(die_for_check, &tag_for_check, &rose_dwarf_error);
+ if (tres2 == DW_DLV_OK) {
+ switch (tag_for_check) {
+ case DW_TAG_array_type:
+ case DW_TAG_class_type:
+ case DW_TAG_enumeration_type:
+ case DW_TAG_pointer_type:
+ case DW_TAG_reference_type:
+ case DW_TAG_string_type:
+ case DW_TAG_structure_type:
+ case DW_TAG_subroutine_type:
+ case DW_TAG_typedef:
+ case DW_TAG_union_type:
+ case DW_TAG_ptr_to_member_type:
+ case DW_TAG_set_type:
+ case DW_TAG_subrange_type:
+ case DW_TAG_base_type:
+ case DW_TAG_const_type:
+ case DW_TAG_file_type:
+ case DW_TAG_packed_type:
+ case DW_TAG_thrown_type:
+ case DW_TAG_volatile_type:
+ /* OK */
+ break;
+ default:
+ type_offset_result.errors++;
+ DWARF_CHECK_ERROR("DW_AT_type offset does not point to type info")
+ break;
+ }
+ dwarf_dealloc(dbg, die_for_check, DW_DLA_DIE);
+ } else {
+ type_offset_result.errors++;
+ DWARF_CHECK_ERROR("DW_AT_type offset does not exist")
+ }
+ }
+ }
+ }
+ break;
+ }
+ case DW_FORM_block:
+ case DW_FORM_block1:
+ case DW_FORM_block2:
+ case DW_FORM_block4:
+ fres = dwarf_formblock(attrib, &tempb, &rose_dwarf_error);
+ if (fres == DW_DLV_OK) {
+ // for (i = 0; i < tempb->bl_len; i++) {
+ for (i = 0; i < (int) tempb->bl_len; i++) {
+ snprintf(small_buf, sizeof(small_buf), "%02x",*(i + (unsigned char *) tempb->bl_data));
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ }
+ dwarf_dealloc(dbg, tempb, DW_DLA_BLOCK);
+ } else {
+ print_error(dbg, "DW_FORM_blockn cannot get block\n", fres,rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_data1:
+ case DW_FORM_data2:
+ case DW_FORM_data4:
+ case DW_FORM_data8:
+ fres = dwarf_whatattr(attrib, &attr, &rose_dwarf_error);
+ if (fres == DW_DLV_ERROR) {
+ print_error(dbg, "FORM_datan cannot get attr", fres, rose_dwarf_error);
+ } else if (fres == DW_DLV_NO_ENTRY) {
+ print_error(dbg, "FORM_datan cannot get attr", fres, rose_dwarf_error);
+ } else {
+ switch (attr) {
+ case DW_AT_ordering:
+ case DW_AT_byte_size:
+ case DW_AT_bit_offset:
+ case DW_AT_bit_size:
+ case DW_AT_inline:
+ case DW_AT_language:
+ case DW_AT_visibility:
+ case DW_AT_virtuality:
+ case DW_AT_accessibility:
+ case DW_AT_address_class:
+ case DW_AT_calling_convention:
+ case DW_AT_discr_list: /* DWARF3 */
+ case DW_AT_encoding:
+ case DW_AT_identifier_case:
+ case DW_AT_MIPS_loop_unroll_factor:
+ case DW_AT_MIPS_software_pipeline_depth:
+ case DW_AT_decl_column:
+ case DW_AT_decl_file:
+ case DW_AT_decl_line:
+ case DW_AT_call_column:
+ case DW_AT_call_file:
+ case DW_AT_call_line:
+ case DW_AT_start_scope:
+ case DW_AT_byte_stride:
+ case DW_AT_bit_stride:
+ case DW_AT_count:
+ case DW_AT_stmt_list:
+ case DW_AT_MIPS_fde:
+ {
+ wres = get_small_encoding_integer_and_name(dbg,
+ attrib,
+ &tempud,
+ /* attrname */
+ (char *) NULL,
+ /* err_string
+ */
+ (string*)NULL,
+ (encoding_type_func) 0,
+ &rose_dwarf_error);
+
+ if (wres == DW_DLV_OK) {
+ snprintf(small_buf, sizeof(small_buf), "%llu",tempud);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+
+ if (attr == DW_AT_decl_file || attr == DW_AT_call_file) {
+ // if (srcfiles && tempud > 0 && tempud <= cnt)
+ if (srcfiles && (int)tempud > 0 && (int)tempud <= cnt) {
+ /* added by user request */
+ /* srcfiles is indexed starting at 0, but
+ DW_AT_decl_file defines that 0 means no
+ file, so tempud 1 means the 0th entry in
+ srcfiles, thus tempud-1 is the correct
+ index into srcfiles. */
+ char *fname = srcfiles[tempud - 1];
+
+ // esb_append(esbp, " ");
+ // esb_append(esbp, fname);
+ *esbp += " ";
+ *esbp += fname;
+ }
+
+ bool check_decl_file = false;
+
+ if(check_decl_file) {
+ decl_file_result.checks++;
+ /* Zero is always a legal index, it means
+ no source name provided. */
+ // if(tempud > cnt)
+ if( (int)tempud > cnt) {
+ decl_file_result.errors++;
+ DWARF_CHECK_ERROR2(get_AT_name(dbg,attr).c_str(),"does not point to valid file info");
+ }
+ }
+ }
+ } else {
+ print_error(dbg, "Cannot get encoding attribute ..",wres, rose_dwarf_error);
+ }
+ break;
+ }
+
+ case DW_AT_const_value:
+ wres = formxdata_print_value(attrib,esbp, &rose_dwarf_error);
+ if(wres == DW_DLV_OK){
+ /* String appended already. */
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg,"Cannot get DW_AT_const_value ",wres,rose_dwarf_error);
+ }
+
+
+ break;
+ case DW_AT_upper_bound:
+ case DW_AT_lower_bound:
+ default:
+ wres = formxdata_print_value(attrib,esbp, &rose_dwarf_error);
+ if (wres == DW_DLV_OK) {
+ /* String appended already. */
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg, "Cannot get formsdata..", wres,rose_dwarf_error);
+ }
+ break;
+ }
+ }
+ if (cu_name_flag) {
+ if (attr == DW_AT_MIPS_fde) {
+ if (fde_offset_for_cu_low == DW_DLV_BADOFFSET) {
+ fde_offset_for_cu_low
+ = fde_offset_for_cu_high = tempud;
+ } else if (tempud < fde_offset_for_cu_low) {
+ fde_offset_for_cu_low = tempud;
+ } else if (tempud > fde_offset_for_cu_high) {
+ fde_offset_for_cu_high = tempud;
+ }
+ }
+ }
+ break;
+ case DW_FORM_sdata:
+ wres = dwarf_formsdata(attrib, &tempsd, &rose_dwarf_error);
+ if (wres == DW_DLV_OK) {
+ snprintf(small_buf, sizeof(small_buf), "%lld", tempsd);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg, "Cannot get formsdata..", wres, rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_udata:
+ wres = dwarf_formudata(attrib, &tempud, &rose_dwarf_error);
+ if (wres == DW_DLV_OK) {
+ snprintf(small_buf, sizeof(small_buf), "%llu", tempud);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg, "Cannot get formudata....", wres, rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_string:
+ case DW_FORM_strp:
+ wres = dwarf_formstring(attrib, &temps, &rose_dwarf_error);
+ if (wres == DW_DLV_OK) {
+ // esb_append(esbp, temps);
+ *esbp += temps;
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg, "Cannot get a formstr (or a formstrp)....",wres, rose_dwarf_error);
+ }
+
+ break;
+ case DW_FORM_flag:
+ wres = dwarf_formflag(attrib, &tempbool, &rose_dwarf_error);
+ if (wres == DW_DLV_OK) {
+ if (tempbool) {
+ snprintf(small_buf, sizeof(small_buf), "yes(%d)",tempbool);
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ } else {
+ snprintf(small_buf, sizeof(small_buf), "no");
+ // esb_append(esbp, small_buf);
+ *esbp += small_buf;
+ }
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ /* nothing? */
+ } else {
+ print_error(dbg, "Cannot get formflag/p....", wres, rose_dwarf_error);
+ }
+ break;
+ case DW_FORM_indirect:
+ /* We should not ever get here, since the true form was
+ determined and direct_form has the DW_FORM_indirect if it is
+ used here in this attr. */
+ // esb_append(esbp, get_FORM_name(dbg, theform));
+
+ printf ("Error: If we should never get here then make this an error! \n");
+ ROSE_ASSERT(false);
+
+ // *esbp += get_FORM_name(dbg, theform);
+ break;
+ default:
+ print_error(dbg, "dwarf_whatform unexpected value", DW_DLV_OK,rose_dwarf_error);
+ }
+ if (verbose && direct_form && direct_form == DW_FORM_indirect)
+ {
+ // char *form_indir = " (used DW_FORM_indirect) ";
+ char *form_indir = strdup(" (used DW_FORM_indirect) ");
+
+ // esb_append(esbp, form_indir);
+ *esbp += form_indir;
+ }
+}
+
+void
+print_attribute(Dwarf_Debug dbg, Dwarf_Die die, Dwarf_Half attr, Dwarf_Attribute attr_in,bool print_information,char **srcfiles, Dwarf_Signed cnt, SgAsmDwarfConstruct* asmDwarfConstruct)
+ {
+ Dwarf_Attribute attrib = 0;
+ Dwarf_Unsigned uval = 0;
+ string atname;
+ string valname;
+ int tres = 0;
+ Dwarf_Half tag = 0;
+
+ // Added C++ string support to replace C style string support
+ string esb_base;
+
+ atname = get_AT_name(dbg, attr);
+
+ // printf ("In print_attribute(): attribute type (atname) = %s asmDwarfConstruct = %s \n",atname.c_str(),asmDwarfConstruct->class_name().c_str());
+
+ // Set the name in the SgAsmDwarfConstruct (base class)
+ // asmDwarfConstruct->set_name(atname);
+
+ /* the following gets the real attribute, even in the face of an
+ incorrect doubling, or worse, of attributes */
+ attrib = attr_in;
+
+ /* do not get attr via dwarf_attr: if there are (erroneously)
+ multiple of an attr in a DIE, dwarf_attr will not get the
+ second, erroneous one and dwarfdump will print the first one
+ multiple times. Oops. */
+
+ tres = dwarf_tag(die, &tag, &rose_dwarf_error);
+ if (tres == DW_DLV_ERROR)
+ {
+ tag = 0;
+ }
+ else
+ {
+ if (tres == DW_DLV_NO_ENTRY)
+ {
+ tag = 0;
+ }
+ else
+ {
+ /* ok */
+ }
+ }
+
+#if 0
+ // This is just Dwarf error checking.
+
+ // DQ: added bool value directly
+ bool check_attr_tag = true;
+
+ if (check_attr_tag)
+ {
+ string tagname = "<tag invalid>";
+
+ attr_tag_result.checks++;
+ if (tres == DW_DLV_ERROR)
+ {
+ attr_tag_result.errors++;
+ DWARF_CHECK_ERROR3(tagname.c_str(),get_AT_name(dbg, attr).c_str(),"check the tag-attr combination.");
+ }
+ else
+ {
+ if (tres == DW_DLV_NO_ENTRY)
+ {
+ attr_tag_result.errors++;
+ DWARF_CHECK_ERROR3(tagname.c_str(),get_AT_name(dbg, attr).c_str(),"check the tag-attr combination..")
+ }
+ else
+ {
+ if (tag_attr_combination(tag, attr))
+ {
+ /* OK */
+ }
+ else
+ {
+ attr_tag_result.errors++;
+ tagname = get_TAG_name(dbg, tag);
+ DWARF_CHECK_ERROR3(tagname.c_str(),get_AT_name(dbg, attr).c_str(),"check the tag-attr combination")
+ }
+ }
+ }
+ }
+#endif
+
+ switch (attr)
+ {
+ case DW_AT_language:
+ {
+ // get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_language", &valname,get_LANG_name, &rose_dwarf_error);
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,strdup("DW_AT_language"), &valname,get_LANG_name, &rose_dwarf_error);
+
+ // The language is only set in the SgAsmDwarfCompilationUnit IR node.
+ SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit = isSgAsmDwarfCompilationUnit(asmDwarfConstruct);
+ ROSE_ASSERT(asmDwarfCompilationUnit != NULL);
+ // printf ("Setting language string in SgAsmDwarfCompilationUnit valname = %s \n",valname.c_str());
+ asmDwarfCompilationUnit->set_language(valname);
+ break;
+ }
+
+#if 0
+ // DQ: Initially, let's limit the number of dependent functions required to make some progress and generating IR nodes from Dwarf.
+
+ case DW_AT_accessibility:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_accessibility",&valname, get_ACCESS_name,&rose_dwarf_error);
+ break;
+ case DW_AT_visibility:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_visibility",&valname, get_VIS_name,&rose_dwarf_error);
+ break;
+ case DW_AT_virtuality:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_virtuality",&valname,get_VIRTUALITY_name, &rose_dwarf_error);
+ break;
+ case DW_AT_identifier_case:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_identifier",&valname, get_ID_name,&rose_dwarf_error);
+ break;
+ case DW_AT_inline:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_inline", &valname,get_INL_name, &rose_dwarf_error);
+ break;
+ case DW_AT_encoding:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_encoding", &valname,get_ATE_name, &rose_dwarf_error);
+ break;
+ case DW_AT_ordering:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_ordering", &valname,get_ORD_name, &rose_dwarf_error);
+ break;
+ case DW_AT_calling_convention:
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_calling_convention",&valname, get_CC_name,&rose_dwarf_error);
+ break;
+ case DW_AT_discr_list: /* DWARF3 */
+ get_small_encoding_integer_and_name(dbg, attrib, &uval,"DW_AT_discr_list",&valname, get_DSC_name,&rose_dwarf_error);
+ break;
+
+ case DW_AT_location:
+ case DW_AT_data_member_location:
+ case DW_AT_vtable_elem_location:
+ case DW_AT_string_length:
+ case DW_AT_return_addr:
+ case DW_AT_use_location:
+ case DW_AT_static_link:
+ case DW_AT_frame_base:
+ /* value is a location description or location list */
+
+ // valname = "Need to use C++ class!!!";
+ // printf ("DW_AT_frame_base: This should be replaced by the C++ string object! \n");
+ // ROSE_ASSERT(false);
+
+ // esb_empty_string(&esb_base);
+ // get_location_list(dbg, die, attrib, &esb_base);
+ // valname = esb_get_string(&esb_base);
+
+ get_location_list(dbg, die, attrib, &esb_base);
+ valname = esb_base;
+ break;
+
+ case DW_AT_SUN_func_offsets:
+
+ // printf ("DW_AT_SUN_func_offsets: This should be replaced by the C++ string object! \n");
+ // get_FLAG_BLOCK_string(dbg, attrib);
+ // valname = esb_get_string(&esb_base);
+
+ get_FLAG_BLOCK_string(dbg, attrib, esb_base);
+ valname = esb_base;
+ break;
+
+ case DW_AT_SUN_cf_kind:
+ {
+ Dwarf_Half kind;
+ Dwarf_Unsigned tempud;
+ Dwarf_Error err;
+ int wres;
+ wres = dwarf_formudata (attrib,&tempud, &err);
+ if(wres == DW_DLV_OK) {
+ kind = tempud;
+ valname = get_ATCF_name(dbg, kind);
+ } else if (wres == DW_DLV_NO_ENTRY) {
+ valname = "?";
+ } else {
+ print_error(dbg,"Cannot get formudata....",wres,err);
+ valname = "??";
+ }
+
+ break;
+ }
+
+ case DW_AT_upper_bound:
+ {
+ Dwarf_Half theform;
+ int rv;
+ rv = dwarf_whatform(attrib,&theform,&rose_dwarf_error);
+ /* depending on the form and the attribute, process the form */
+ if(rv == DW_DLV_ERROR) {
+ print_error(dbg, "dwarf_whatform cannot find attr form",rv, rose_dwarf_error);
+ } else if (rv == DW_DLV_NO_ENTRY) {
+ break;
+ }
+
+ switch (theform)
+ {
+ case DW_FORM_block1:
+ // valname = "Need to use C++ class!!!";
+ // printf ("This should be replaced by the C++ string object! \n");
+ // ROSE_ASSERT(false);
+
+ // get_location_list(dbg, die, attrib, &esb_base);
+ // valname = esb_get_string(&esb_base);
+
+ get_location_list(dbg, die, attrib, &esb_base);
+ valname = esb_base;
+ break;
+
+ default:
+ // valname = "Need to use C++ class!!!";
+ // printf ("This should be replaced by the C++ string object! \n");
+ // ROSE_ASSERT(false);
+
+ // esb_empty_string(&esb_base);
+ // get_attr_value(dbg, tag, attrib, srcfiles, cnt, &esb_base);
+ // valname = esb_get_string(&esb_base);
+
+ get_attr_value(dbg, tag, attrib, srcfiles, cnt, &esb_base);
+ valname = esb_base;
+ break;
+ }
+ break;
+ }
+
+ case DW_AT_high_pc:
+ {
+ Dwarf_Half theform;
+ int rv;
+ rv = dwarf_whatform(attrib,&theform,&rose_dwarf_error);
+ /* depending on the form and the attribute, process the form */
+ if(rv == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_whatform cannot find attr form",rv, rose_dwarf_error);
+ }
+ else
+ {
+ if (rv == DW_DLV_NO_ENTRY)
+ {
+ break;
+ }
+ }
+
+ // esb_empty_string(&esb_base);
+ get_attr_value(dbg, tag, attrib, srcfiles, cnt, &esb_base);
+ if( theform != DW_FORM_addr)
+ {
+ /* New in DWARF4: other forms are not an address
+ but are instead offset from pc.
+ One could test for DWARF4 here before adding
+ this string, but that seems unnecessary as this
+ could not happen with DWARF3 or earlier.
+ A normal consumer would have to add this value to
+ DW_AT_low_pc to get a true pc. */
+ // esb_append(&esb_base,"<offset-from-lowpc>");
+ esb_base += "<offset-from-lowpc>";
+ }
+
+ // valname = esb_get_string(&esb_base);
+ valname = esb_base;
+ }
+#endif
+ default:
+ // valname = "Need to use C++ class!!!";
+ // printf ("This should be replaced by the C++ string object! \n");
+ // ROSE_ASSERT(false);
+ esb_base = "";
+ get_attr_value(dbg, tag, attrib, srcfiles, cnt, &esb_base);
+ valname = esb_base;
+ // esb_empty_string(&esb_base);
+ // get_attr_value(dbg, tag, attrib, srcfiles, cnt, &esb_base);
+ // valname = esb_get_string(&esb_base);
+ break;
+ }
+
+ // printf ("In print_attribute: setting name for asmDwarfConstruct = %s using valname = %s \n",asmDwarfConstruct->class_name().c_str(),valname.c_str());
+
+ // Set the name in the base class to valname
+ // if ( isSgAsmDwarfSubprogram(asmDwarfConstruct) || isSgAsmDwarfvariable(asmDwarfConstruct) )
+ // asmDwarfConstruct->set_name(valname);
+
+ // Set the name in the base clas only when the input attribute is DW_AT_name.
+ if (attr == DW_AT_name)
+ {
+ asmDwarfConstruct->set_name(valname);
+ }
+
+#if 0
+ // Supress Dwarf output
+ if (print_information)
+ {
+ printf("\t\t%-28s%s\n", atname.c_str(), valname.c_str());
+ }
+#endif
+ }
+#endif
+
+
+/* print info about die */
+// void
+SgAsmDwarfConstruct*
+build_dwarf_IR_node_from_print_one_die(Dwarf_Debug dbg, Dwarf_Die die, bool print_information, char **srcfiles, Dwarf_Signed cnt /* , SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit */)
+ {
+ Dwarf_Signed i;
+ Dwarf_Off offset, overall_offset;
+ string tagname;
+ Dwarf_Half tag;
+ Dwarf_Signed atcnt;
+ Dwarf_Attribute *atlist;
+ int tres;
+ int ores;
+ int atres;
+
+ tres = dwarf_tag(die, &tag, &rose_dwarf_error);
+ if (tres != DW_DLV_OK)
+ {
+ print_error(dbg, "accessing tag of die!", tres, rose_dwarf_error);
+ }
+
+ tagname = get_TAG_name(dbg, tag);
+ // printf ("In build_dwarf_IR_node_from_print_one_die(): tag = %d tagname = %s \n",tag,tagname.c_str());
+
+ ores = dwarf_dieoffset(die, &overall_offset, &rose_dwarf_error);
+ if (ores != DW_DLV_OK)
+ {
+ print_error(dbg, "dwarf_dieoffset", ores, rose_dwarf_error);
+ }
+
+ ores = dwarf_die_CU_offset(die, &offset, &rose_dwarf_error);
+ if (ores != DW_DLV_OK)
+ {
+ print_error(dbg, "dwarf_die_CU_offset", ores, rose_dwarf_error);
+ }
+
+ // if (!dst_format && print_information)
+ if (print_information)
+ {
+ if (indent_level == 0)
+ {
+ // printf("\nCOMPILE_UNIT<header overall offset = %llu>:\n",overall_offset - offset);
+
+ // Initialize the information in the SgAsmDwarfCompilationUnit IR node
+
+ }
+ else
+ {
+ // if (local_symbols_already_began == false && indent_level == 1 && !dense)
+ if (local_symbols_already_began == false && indent_level == 1)
+ {
+ // printf("\nLOCAL_SYMBOLS:\n");
+ local_symbols_already_began = true;
+ }
+ }
+
+ // printf("<%d><%5llu GOFF=%llu>\t%s\n", indent_level, offset,overall_offset, tagname.c_str());
+ }
+
+ atres = dwarf_attrlist(die, &atlist, &atcnt, &rose_dwarf_error);
+ if (atres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_attrlist", atres, rose_dwarf_error);
+ }
+ else
+ {
+ if (atres == DW_DLV_NO_ENTRY)
+ {
+ /* indicates there are no attrs. It is not an error. */
+ // printf ("No attributes found (not an error) \n");
+ atcnt = 0;
+ }
+ }
+
+ if (indent_level == 0)
+ {
+ // This is the CU header
+ }
+ else
+ {
+ // These are local symbols
+ }
+
+ // Build the ROSE dwarf construct IR node (use a factory design to build the appropriate IR nodes
+#if 0
+ // This is used to limit the Dwarf representation to just the SgAsmDwarfCompilationUnit IR nodes
+ // (the test file from BGL has 1200+ CU's so this is useful for debugging).
+ SgAsmDwarfConstruct* asmDwarfConstruct = NULL;
+ if (tag == DW_TAG_compile_unit)
+ {
+ asmDwarfConstruct = SgAsmDwarfConstruct::createDwarfConstruct( tag, indent_level, offset, overall_offset );
+ }
+#else
+ // This will cause all Dwarf IR nodes to be properly represented in the AST.
+ SgAsmDwarfConstruct* asmDwarfConstruct = SgAsmDwarfConstruct::createDwarfConstruct( tag, indent_level, offset, overall_offset );
+#endif
+ // printf ("Handle attributes: atcnt = %d \n",(int)atcnt);
+
+ // Setup attribute specific fields in the different kinds of Dwarf nodes
+ for (i = 0; i < atcnt; i++)
+ {
+ Dwarf_Half attr;
+ int ares;
+
+ ares = dwarf_whatattr(atlist[i], &attr, &rose_dwarf_error);
+ if (ares == DW_DLV_OK)
+ {
+ if (asmDwarfConstruct != NULL)
+ {
+ print_attribute(dbg, die, attr,atlist[i],print_information, srcfiles, cnt, asmDwarfConstruct);
+ }
+ else
+ {
+ // printf ("Skipping print_attribute since asmDwarfConstruct == NULL \n");
+ }
+
+ if (indent_level == 0)
+ {
+ // This is the CU header
+ }
+ else
+ {
+ // These are local symbols
+ }
+ }
+ else
+ {
+ print_error(dbg, "dwarf_whatattr entry missing", ares, rose_dwarf_error);
+ }
+ }
+
+ for (i = 0; i < atcnt; i++)
+ {
+ dwarf_dealloc(dbg, atlist[i], DW_DLA_ATTR);
+ }
+
+ if (atres == DW_DLV_OK)
+ {
+ dwarf_dealloc(dbg, atlist, DW_DLA_LIST);
+ }
+
+#if 0
+ // if (dense && print_information)
+ if (false && print_information)
+ {
+ printf("\n\n");
+ }
+#endif
+
+ return asmDwarfConstruct;
+ }
+
+
+
+/* recursively follow the die tree */
+// void build_dwarf_IR_node_from_die_and_children(Dwarf_Debug dbg, Dwarf_Die in_die_in,char **srcfiles, Dwarf_Signed cnt, SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit)
+// void build_dwarf_IR_node_from_die_and_children(Dwarf_Debug dbg, Dwarf_Die in_die_in,char **srcfiles, Dwarf_Signed cnt, SgAsmDwarfConstruct* parentDwarfConstruct )
+SgAsmDwarfConstruct*
+build_dwarf_IR_node_from_die_and_children(Dwarf_Debug dbg, Dwarf_Die in_die_in,char **srcfiles, Dwarf_Signed cnt, SgAsmDwarfConstruct* parentDwarfConstruct )
+ {
+ // NOTE: The first time this function is called the parentDwarfConstruct is NULL.
+
+ Dwarf_Die child;
+ Dwarf_Die sibling;
+ Dwarf_Error err;
+ // int tres;
+ int cdres;
+ Dwarf_Die in_die = in_die_in;
+
+ SgAsmDwarfConstruct* astDwarfConstruct = NULL;
+
+ // printf ("Inside of build_dwarf_IR_node_from_die_and_children() \n");
+
+ for (;;)
+ {
+ // printf ("Top of loop in build_dwarf_IR_node_from_die_and_children() \n");
+
+ PUSH_DIE_STACK(in_die);
+
+#if 0
+ // DQ: This just does error checking on dwarf format
+
+ if (check_tag_tree)
+ {
+ tag_tree_result.checks++;
+ if (indent_level == 0)
+ {
+ Dwarf_Half tag;
+
+ tres = dwarf_tag(in_die, &tag, &err);
+ if (tres != DW_DLV_OK)
+ {
+ tag_tree_result.errors++;
+ DWARF_CHECK_ERROR("Tag-tree root is not DW_TAG_compile_unit")
+ }
+ else
+ if (tag == DW_TAG_compile_unit)
+ {
+ /* OK */
+ }
+ else
+ {
+ tag_tree_result.errors++;
+ DWARF_CHECK_ERROR("tag-tree root is not DW_TAG_compile_unit")
+ }
+ }
+ else
+ {
+ Dwarf_Half tag_parent, tag_child;
+ int pres;
+ int cres;
+ string ctagname = "<child tag invalid>";
+ string ptagname = "<parent tag invalid>";
+
+ pres = dwarf_tag(die_stack[indent_level - 1], &tag_parent,&err);
+ cres = dwarf_tag(in_die, &tag_child, &err);
+
+ if (pres != DW_DLV_OK)
+ tag_parent = 0;
+
+ if (cres != DW_DLV_OK)
+ tag_child = 0;
+
+ if (cres != DW_DLV_OK || pres != DW_DLV_OK)
+ {
+ if (cres == DW_DLV_OK)
+ {
+ ctagname = get_TAG_name(dbg, tag_child);
+ }
+
+ if (pres == DW_DLV_OK)
+ {
+ ptagname = get_TAG_name(dbg, tag_parent);
+ }
+
+ DWARF_CHECK_ERROR3(ptagname.c_str(),ctagname.c_str(),"Tag-tree relation is not standard..");
+ }
+ else
+ {
+#if 0
+ // DQ (11/7/2008): This is error checking and I want to remove the dependence upon dwarfdump code.
+ if (tag_tree_combination(tag_parent, tag_child))
+ {
+ /* OK */
+ }
+ else
+ {
+ DWARF_CHECK_ERROR3(get_TAG_name(dbg, tag_parent).c_str(),get_TAG_name(dbg, tag_child).c_str(),"tag-tree relation is not standard.");
+ }
+#endif
+ }
+ }
+ }
+#endif
+
+#if 1
+ // Suppress output!
+
+ // DQ (11/4/2008): This is the location were we will have to generate IR nodes using each debug info entry (die)
+ // printf ("Calling print_one_die to output the information about each specific debug info entry (die) \n");
+
+ /* here to pre-descent processing of the die */
+ // SgAsmDwarfConstruct* astDwarfConstruct = build_dwarf_IR_node_from_print_one_die(dbg, in_die, /* info_flag */ true, srcfiles, cnt /* , asmDwarfCompilationUnit */ );
+ astDwarfConstruct = build_dwarf_IR_node_from_print_one_die(dbg, in_die, /* info_flag */ true, srcfiles, cnt /* , asmDwarfCompilationUnit */ );
+
+ // parentDwarfConstruct->set_child(astDwarfConstruct);
+ if (parentDwarfConstruct != NULL && astDwarfConstruct != NULL)
+ {
+ // printf ("Push children onto parent IR node! \n");
+
+ // if (parentDwarfConstruct->get_children() == NULL)
+ // parentDwarfConstruct->set_children(new SgAsmDwarfConstructList());
+#if 1
+ // When this work we know that we have the child support for Dwarf IR nodes in place (in all the right places).
+ ROSE_ASSERT(parentDwarfConstruct->get_children() != NULL);
+ parentDwarfConstruct->get_children()->get_list().push_back(astDwarfConstruct);
+#else
+ // Optional support for parents without child support implemented yet!
+ // I want to know what IR nodes require it and how many there are.
+ if (parentDwarfConstruct->get_children() != NULL)
+ {
+ parentDwarfConstruct->get_children()->get_list().push_back(astDwarfConstruct);
+ }
+ else
+ {
+ printf ("Error: Sorry not implemented (child support on IR nodes %s \n",parentDwarfConstruct->class_name().c_str());
+ }
+#endif
+ astDwarfConstruct->set_parent(parentDwarfConstruct);
+ }
+
+ // printf ("Process children \n");
+#endif
+ cdres = dwarf_child(in_die, &child, &err);
+ /* child first: we are doing depth-first walk */
+ if (cdres == DW_DLV_OK)
+ {
+ indent_level++;
+ if(indent_level >= DIE_STACK_SIZE )
+ {
+ print_error(dbg,"compiled in DIE_STACK_SIZE limit exceeded",DW_DLV_OK,err);
+ }
+
+ // printf ("Processing child dwarf nodes: calling build_dwarf_IR_node_from_die_and_children() \n");
+
+ // Old function: print_die_and_children(dbg, child, srcfiles, cnt);
+
+ // Ignore the return result (children are added to the parent).
+#if 0
+ build_dwarf_IR_node_from_die_and_children(dbg, child, srcfiles, cnt, astDwarfConstruct);
+#else
+ if (astDwarfConstruct != NULL)
+ build_dwarf_IR_node_from_die_and_children(dbg, child, srcfiles, cnt, astDwarfConstruct);
+#endif
+ indent_level--;
+
+ if (indent_level == 0)
+ local_symbols_already_began = false;
+
+ dwarf_dealloc(dbg, child, DW_DLA_DIE);
+ }
+ else
+ {
+ if (cdres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_child", cdres, err);
+ }
+ }
+
+ // printf ("Process siblings \n");
+ cdres = dwarf_siblingof(dbg, in_die, &sibling, &err);
+ if (cdres == DW_DLV_OK)
+ {
+ /* print_die_and_children(dbg, sibling, srcfiles, cnt); We
+ loop around to actually print this, rather than
+ recursing. Recursing is horribly wasteful of stack
+ space. */
+ }
+ else
+ {
+ if (cdres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_siblingof", cdres, err);
+ }
+ }
+
+ /* Here do any post-descent (ie post-dwarf_child) processing of the in_die. */
+
+ // printf ("Process post-dwarf_child \n");
+
+ POP_DIE_STACK;
+ if (in_die != in_die_in)
+ {
+ /* Dealloc our in_die, but not the argument die, it belongs
+ to our caller. Whether the siblingof call worked or not.
+ */
+ dwarf_dealloc(dbg, in_die, DW_DLA_DIE);
+ }
+
+ if (cdres == DW_DLV_OK)
+ {
+ /* Set to process the sibling, loop again. */
+ in_die = sibling;
+ }
+ else
+ {
+ /* We are done, no more siblings at this level. */
+ break;
+ }
+
+ // printf ("Bottom of loop in build_dwarf_IR_node_from_die_and_children() \n");
+ } /* end for loop on siblings */
+
+ // ROSE_ASSERT(astDwarfConstruct != NULL);
+
+ return astDwarfConstruct;
+ }
+
+
+void
+build_dwarf_line_numbers_this_cu(Dwarf_Debug dbg, Dwarf_Die cu_die, SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit)
+ {
+ // This function build the IR nodes in the AST that hold the mappings of instruction addresses
+ // to source line and column numbers. From this we generate STL maps and higher level interfaces
+ // that make the information easier to use.
+
+ Dwarf_Signed linecount = 0;
+ Dwarf_Line *linebuf = NULL;
+ Dwarf_Signed i = 0;
+ Dwarf_Addr pc = 0;
+ Dwarf_Unsigned lineno = 0;
+ Dwarf_Signed column = 0;
+ char* filename;
+
+ int lres = 0;
+ int sres = 0;
+ int ares = 0;
+ int lires = 0;
+ int cores = 0;
+
+ // printf ("Inside of build_dwarf_line_numbers_this_cu() (using .debug_line section) \n");
+
+ // printf("\n.debug_line: line number info for a single cu\n");
+
+ // printf ("Setting verbose > 1 (verbose==2) \n");
+ // verbose = 2;
+
+ ROSE_ASSERT(asmDwarfCompilationUnit->get_line_info() == NULL);
+
+ SgAsmDwarfLineList* asmDwarfLineList = new SgAsmDwarfLineList();
+
+ asmDwarfCompilationUnit->set_line_info(asmDwarfLineList);
+ asmDwarfLineList->set_parent(asmDwarfCompilationUnit);
+
+ ROSE_ASSERT(asmDwarfCompilationUnit->get_line_info() != NULL);
+
+#if 0
+ if (verbose > 1)
+ {
+ print_source_intro(cu_die);
+ build_dwarf_IR_node_from_print_one_die(dbg, cu_die, /* print_information= */ 1,/* srcfiles= */ 0, /* cnt= */ 0 /* , asmDwarfCompilationUnit */ );
+
+ lres = dwarf_print_lines(cu_die, &rose_dwarf_error);
+ if (lres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_srclines details", lres, rose_dwarf_error);
+ }
+
+ printf ("Exiting print_line_numbers_this_cu prematurely! \n");
+ return;
+ }
+#endif
+
+ lres = dwarf_srclines(cu_die, &linebuf, &linecount, &rose_dwarf_error);
+ if (lres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_srclines", lres, rose_dwarf_error);
+ }
+ else
+ {
+ if (lres == DW_DLV_NO_ENTRY)
+ {
+ /* no line information is included */
+ }
+ else
+ {
+#if 0
+ // Suppress output!
+ print_source_intro(cu_die);
+ if (verbose)
+ {
+ build_dwarf_IR_node_from_print_one_die(dbg, cu_die, /* print_information= */ 1,/* srcfiles= */ 0, /* cnt= */ 0 /* , asmDwarfCompilationUnit */ );
+ }
+#endif
+ // Output a header for the data
+ // printf("<source>\t[row,column]\t<pc>\t//<new statement or basic block\n");
+
+ for (i = 0; i < linecount; i++)
+ {
+ Dwarf_Line line = linebuf[i];
+
+ sres = dwarf_linesrc(line, &filename, &rose_dwarf_error);
+ ares = dwarf_lineaddr(line, &pc, &rose_dwarf_error);
+
+ if (sres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_linesrc", sres, rose_dwarf_error);
+ }
+
+ if (sres == DW_DLV_NO_ENTRY)
+ {
+ filename = strdup("<unknown>");
+ }
+
+ if (ares == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_lineaddr", ares, rose_dwarf_error);
+ }
+
+ if (ares == DW_DLV_NO_ENTRY)
+ {
+ pc = 0;
+ }
+
+ lires = dwarf_lineno(line, &lineno, &rose_dwarf_error);
+ if (lires == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_lineno", lires, rose_dwarf_error);
+ }
+
+ if (lires == DW_DLV_NO_ENTRY)
+ {
+ lineno = -1LL;
+ }
+
+ cores = dwarf_lineoff(line, &column, &rose_dwarf_error);
+ if (cores == DW_DLV_ERROR)
+ {
+ print_error(dbg, "dwarf_lineoff", cores, rose_dwarf_error);
+ }
+
+ if (cores == DW_DLV_NO_ENTRY)
+ {
+ column = -1LL;
+ }
+
+ // printf("%s:\t[%3llu,%2lld]\t%#llx", filename, lineno,column, pc);
+
+ // Build an IR node to represent the instruction address for each line.
+ // This uses the static maps in the Sg_File_Info to support a table similar
+ // to Dwarf's and which maps filenames to integers and back. This avoids
+ // building and deleting a Sg_File_Info object.
+ int filename_id = Sg_File_Info::addFilenameToMap(filename);
+
+ // Now build the IR node to store the raw information from dwarf.
+ SgAsmDwarfLine* lineInfo = new SgAsmDwarfLine(pc, filename_id, lineno, column);
+
+ asmDwarfLineList->get_line_list().push_back(lineInfo);
+
+ if (sres == DW_DLV_OK)
+ dwarf_dealloc(dbg, filename, DW_DLA_STRING);
+
+#if 0
+ // DQ: The remainer of this code block is the output of information that sumarizes the previous entry.
+
+ Dwarf_Bool newstatement = 0;
+ Dwarf_Bool lineendsequence = 0;
+ Dwarf_Bool new_basic_block = 0;
+ int nsres;
+
+ nsres = dwarf_linebeginstatement(line, &newstatement, &rose_dwarf_error);
+ if (nsres == DW_DLV_OK)
+ {
+#if 0
+ // Suppress output!
+ if (newstatement)
+ {
+ printf("\t// new statement");
+ }
+#endif
+ }
+ else
+ if (nsres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "linebeginstatment failed", nsres,rose_dwarf_error);
+ }
+
+ nsres = dwarf_lineblock(line, &new_basic_block, &rose_dwarf_error);
+ if (nsres == DW_DLV_OK)
+ {
+#if 0
+ // Suppress output!
+ if (new_basic_block)
+ {
+ printf("\t// new basic block");
+ }
+#endif
+ }
+ else
+ if (nsres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "lineblock failed", nsres, rose_dwarf_error);
+ }
+
+ nsres = dwarf_lineendsequence(line, &lineendsequence, &rose_dwarf_error);
+ if (nsres == DW_DLV_OK)
+ {
+#if 0
+ // Suppress output!
+ if (lineendsequence)
+ {
+ printf("\t// end of text sequence");
+ }
+#endif
+ }
+ else
+ if (nsres == DW_DLV_ERROR)
+ {
+ print_error(dbg, "lineblock failed", nsres, rose_dwarf_error);
+ }
+#endif
+
+#if 0
+ // Suppress output!
+ printf("\n");
+#endif
+ }
+
+ dwarf_srclines_dealloc(dbg, linebuf, linecount);
+ }
+ }
+
+ // printf ("Now generate the static maps to use to lookup the instruction address to source position mappings \n");
+ asmDwarfLineList->buildInstructionAddressSourcePositionMaps(asmDwarfCompilationUnit);
+ // printf ("DONE: Now generate the maps to use to lookup the instruction address to source position mappings \n");
+
+#if 0
+ // Run a second time to test that the maps are not regenerated (this is just a test)
+ printf ("Run a second time to test that the maps are not regenerated ... \n");
+ DwarfInstructionSourceMapReturnType returnValue = asmDwarfLineList->buildInstructionAddressSourcePositionMaps();
+ printf ("DONE: Run a second time to test that the maps are not regenerated ... \n");
+#endif
+
+#if 1
+ // Output the line information from the generated maps (debugging information).
+ // printf ("SgProject::get_verbose() = %d \n",SgProject::get_verbose());
+ if (SgProject::get_verbose() > 0)
+ {
+ asmDwarfLineList->display("Inside of build_dwarf_line_numbers_this_cu()");
+ }
+#endif
+ }
+
+
+/* process each compilation unit in .debug_info */
+void
+build_dwarf_IR_nodes(Dwarf_Debug dbg, SgAsmInterpretation* asmInterpretation)
+ {
+ Dwarf_Unsigned cu_header_length = 0;
+ Dwarf_Unsigned abbrev_offset = 0;
+ Dwarf_Half version_stamp = 0;
+ Dwarf_Half address_size = 0;
+ Dwarf_Die cu_die = NULL;
+ Dwarf_Unsigned next_cu_offset = 0;
+ int nres = DW_DLV_OK;
+ int cu_count = 0;
+
+ // printf("\n.debug_info\n");
+
+ ROSE_ASSERT(asmInterpretation->get_dwarf_info() == NULL);
+
+#if 0
+ SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit = new SgAsmDwarfCompilationUnit();
+
+ asmInterpretation->set_dwarf_info(asmDwarfCompilationUnit);
+ asmDwarfCompilationUnit->set_parent(asmInterpretation);
+
+ ROSE_ASSERT(asmInterpretation->get_dwarf_info() != NULL);
+#endif
+
+#if 1
+ SgAsmDwarfCompilationUnitList* asmDwarfCompilationUnitList = new SgAsmDwarfCompilationUnitList();
+
+ asmInterpretation->set_dwarf_info(asmDwarfCompilationUnitList);
+ asmDwarfCompilationUnitList->set_parent(asmInterpretation);
+
+ ROSE_ASSERT(asmInterpretation->get_dwarf_info() != NULL);
+#endif
+
+ // This permits restricting number of CU's read so that we can have a
+ // manageable problem to debug the Dwarf represnetation in ROSE.
+ int compilationUnitCounter = 0;
+ // int compilationUnitLimit = 10;
+ int compilationUnitLimit = 1000000;
+
+ /* Loop until it fails. */
+ while ( ((nres = dwarf_next_cu_header(dbg, &cu_header_length, &version_stamp,&abbrev_offset, &address_size,&next_cu_offset, &rose_dwarf_error)) == DW_DLV_OK) && (compilationUnitCounter < compilationUnitLimit) )
+ {
+#if 0
+ // printf ("In loop over the headers: nres = %d \n",nres);
+ // printf ("next_cu_offset = %lu \n",(unsigned long) next_cu_offset);
+ printf ("cu_header_length = %lu \n",(unsigned long) cu_header_length);
+#endif
+
+ // printf ("Processing CU: %d \n",compilationUnitCounter);
+ compilationUnitCounter++;
+
+#if 0
+ // This permits restricting size of the CU's read so that we can have a
+ // manageable problem to debug the Dwarf represnetation in ROSE.
+ if (cu_header_length > 500)
+ {
+ printf ("Skipping the handling of this CU (too large for debugging): cu_header_length = %lu \n",(unsigned long) cu_header_length);
+ continue;
+ }
+#endif
+
+ // printf ("loop count: cu_count = %d \n",cu_count);
+
+ ROSE_ASSERT(cu_count < break_after_n_units);
+#if 0
+ if (cu_count >= break_after_n_units)
+ {
+ printf("Break at %d\n",cu_count);
+
+ printf ("I think this should be an error for now! \n");
+ ROSE_ASSERT(false);
+
+ break;
+ }
+#endif
+
+#if 0
+ printf ("cu_name_flag = %s \n",cu_name_flag ? "true" : "false");
+#endif
+
+ // error status variable
+ int sres = 0;
+
+ // printf ("Setting cu_name_flag == true \n");
+ // cu_name_flag = true;
+ // cu_name_flag = false;
+
+ ROSE_ASSERT(cu_name_flag == false);
+
+#if 0
+ // DQ: I think that this code is unimportant to the construction or IR nodes!
+
+ if (cu_name_flag)
+ {
+ int tres = 0;
+ Dwarf_Half tag = 0;
+ Dwarf_Attribute attrib = 0;
+ Dwarf_Half theform = 0;
+ int fres = 0;
+ int ares = 0;
+
+ sres = dwarf_siblingof(dbg, NULL, &cu_die, &rose_dwarf_error);
+ if (sres != DW_DLV_OK)
+ {
+ print_error(dbg, "siblingof cu header", sres, rose_dwarf_error);
+ }
+
+ tres = dwarf_tag(cu_die, &tag, &rose_dwarf_error);
+ if (tres != DW_DLV_OK)
+ {
+ print_error(dbg, "tag of cu die", tres, rose_dwarf_error);
+ }
+
+ ares = dwarf_attr(cu_die, DW_AT_name, &attrib, &rose_dwarf_error);
+ if (ares != DW_DLV_OK)
+ {
+ print_error(dbg, "dwarf DW_AT_name ", ares, rose_dwarf_error);
+ }
+
+ fres = dwarf_whatform(attrib, &theform, &rose_dwarf_error);
+ if (fres != DW_DLV_OK)
+ {
+ print_error(dbg, "dwarf_whatform problem ", fres, rose_dwarf_error);
+ }
+ else
+ {
+ if (theform == DW_FORM_string || theform == DW_FORM_strp)
+ {
+ char* temps;
+ int strres;
+ char* p;
+
+ strres = dwarf_formstring(attrib, &temps, &rose_dwarf_error);
+ p = temps;
+
+ printf ("temps = %s \n",temps);
+
+ if (strres != DW_DLV_OK)
+ {
+ print_error(dbg,"formstring failed unexpectedly",strres, rose_dwarf_error);
+ }
+
+ if (cu_name[0] != '/')
+ {
+ p = strrchr(temps, '/');
+ if (p == NULL)
+ {
+ p = temps;
+ }
+ else
+ {
+ p++;
+ }
+ }
+
+ if (strcmp(cu_name, p))
+ {
+ printf ("Exiting from loop... (continue) \n");
+ continue;
+ }
+ }
+ else
+ {
+ print_error(dbg,"dwarf_whatform unexpected value",fres, rose_dwarf_error);
+ }
+ }
+
+ dwarf_dealloc(dbg, attrib, DW_DLA_ATTR);
+ dwarf_dealloc(dbg, cu_die, DW_DLA_DIE);
+ }
+#endif
+
+#if 0
+ printf ("build_dwarf_IR_nodes(): verbose = %s \n",verbose ? "true" : "false");
+ // printf ("build_dwarf_IR_nodes(): dense = %s \n",dense ? "true" : "false");
+#endif
+
+#if 0
+ // Supress output!
+ if (verbose)
+ {
+ printf("\nCU_HEADER:\n");
+ printf("\t\t%-28s%llu\n", "cu_header_length",cu_header_length);
+ printf("\t\t%-28s%d\n", "version_stamp", version_stamp);
+ printf("\t\t%-28s%llu\n", "abbrev_offset",abbrev_offset);
+ printf("\t\t%-28s%d", "address_size", address_size);
+ }
+
+ printf ("\nbuild_dwarf_IR_nodes(): Calling dwarf_siblingof() \n");
+#endif
+
+ /* process a single compilation unit in .debug_info. */
+ sres = dwarf_siblingof(dbg, NULL, &cu_die, &rose_dwarf_error);
+
+ // printf ("build_dwarf_IR_nodes(): status of call to dwarf_siblingof(): sres = %d \n",sres);
+
+ if (sres == DW_DLV_OK)
+ {
+#if 0
+ printf ("Processing sibling information \n");
+ printf ("info_flag = %s \n",info_flag ? "true" : "false");
+ printf ("cu_name_flag = %s \n",cu_name_flag ? "true" : "false");
+#endif
+ // printf ("Explicitly setting info_flag == true \n");
+ info_flag = true;
+
+ // if (info_flag || cu_name_flag)
+ // {
+ Dwarf_Signed cnt = 0;
+ char **srcfiles = 0;
+
+ // We need to call this function so that we can generate filenames to support the line number mapping below.
+ int srcf = dwarf_srcfiles(cu_die, &srcfiles, &cnt, &rose_dwarf_error);
+
+ if (srcf != DW_DLV_OK)
+ {
+ // I think we can make this an error.
+ printf ("Error: No source file information found: (dwarf_srcfiles() != DW_DLV_OK) \n");
+ ROSE_ASSERT(false);
+
+ srcfiles = NULL;
+ cnt = 0;
+ }
+
+ // This function call will traverse the list of child debug info entries and
+ // within this function we will generate the IR nodes specific to Dwarf. This
+ // should define an course view of the AST which can be used to relate the binary
+ // to the source code.
+
+ // printf ("In print_infos(): Calling build_dwarf_IR_node_from_die_and_children() \n");
+ // print_die_and_children(dbg, cu_die, srcfiles, cnt);
+ SgAsmDwarfConstruct* asmDwarfConstruct = build_dwarf_IR_node_from_die_and_children(dbg, cu_die, srcfiles, cnt, NULL);
+ ROSE_ASSERT(asmDwarfConstruct != NULL);
+
+#if 0
+ SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit = isSgAsmDwarfCompilationUnit(asmDwarfConstruct);
+ ROSE_ASSERT(asmDwarfCompilationUnit != NULL);
+
+ asmInterpretation->set_dwarf_info(asmDwarfCompilationUnit);
+ asmDwarfCompilationUnit->set_parent(asmInterpretation);
+
+ ROSE_ASSERT(asmInterpretation->get_dwarf_info() != NULL);
+#else
+ // Handle the case of many Dwarf Compile Units
+ // asmInterpretation->get_dwarf_info()->get_cu_list().push_back(asmDwarfCompilationUnit);
+ SgAsmDwarfCompilationUnit* asmDwarfCompilationUnit = isSgAsmDwarfCompilationUnit(asmDwarfConstruct);
+ ROSE_ASSERT(asmDwarfCompilationUnit != NULL);
+
+ asmDwarfCompilationUnitList->get_cu_list().push_back(asmDwarfCompilationUnit);
+ asmDwarfCompilationUnit->set_parent(asmDwarfCompilationUnitList);
+#endif
+
+ if (srcf == DW_DLV_OK)
+ {
+ int si;
+
+ for (si = 0; si < cnt; ++si)
+ {
+ dwarf_dealloc(dbg, srcfiles[si], DW_DLA_STRING);
+ }
+ dwarf_dealloc(dbg, srcfiles, DW_DLA_LIST);
+ }
+ // }
+
+ // printf ("Explicitly setting line_flag == true \n");
+ bool line_flag = true;
+
+ if (line_flag)
+ {
+ // printf ("\n\nOutput the line information by calling print_line_numbers_this_cu() \n");
+ // print_line_numbers_this_cu(dbg, cu_die);
+ build_dwarf_line_numbers_this_cu(dbg, cu_die, asmDwarfCompilationUnit);
+ }
+ else
+ {
+ printf ("Skipping line number <--> instruction address mapping information \n");
+ }
+
+ dwarf_dealloc(dbg, cu_die, DW_DLA_DIE);
+ }
+ else
+ {
+ if (sres == DW_DLV_NO_ENTRY)
+ {
+ /* do nothing I guess. */
+ }
+ else
+ {
+ print_error(dbg, "Regetting cu_die", sres, rose_dwarf_error);
+ }
+ }
+
+ ++cu_count;
+ cu_offset = next_cu_offset;
+ }
+
+ // printf ("error checking: nres = %d \n",nres);
+
+ if (nres == DW_DLV_ERROR)
+ {
+ string errmsg = dwarf_errmsg(rose_dwarf_error);
+ Dwarf_Unsigned myerr = dwarf_errno(rose_dwarf_error);
+
+ fprintf(stderr, "%s ERROR: %s: %s (%lu)\n",program_name.c_str(), "attempting to print .debug_info",errmsg.c_str(), (unsigned long) myerr);
+ // fprintf(stderr, "attempting to continue.\n");
+
+ // printf ("Error: nres = %d \n",nres);
+ // ROSE_ASSERT(false);
+ }
+
+ // printf ("Exiting print_infos() \n");
+ }
+
+
+// DQ (11/10/2008):
+/*! \brief This traversal permits symbols to be commented out from the DOT graphs.
+
+ */
+void commentOutSymbolsFromDotGraph (SgNode* node)
+ {
+ // Remove the symbols and related symbol lists so that the generated DOT file will be simpler.
+ // To do this we add an attribute that implements the virtual commentOutNodeInGraph() member
+ // function and return "true".
+
+ // Define the attribute class containing the virtual function "commentOutNodeInGraph()"
+ class SymbolPruningAttribute : public AstAttribute
+ {
+ // This is a persistant attribute used to mark locations in the AST where we don't want IR nodes to be generated for the DOT graph.
+
+ public:
+ bool commentOutNodeInGraph() { return true; }
+ virtual AstAttribute* copy() { return new SymbolPruningAttribute(*this); }
+ virtual ~SymbolPruningAttribute() {}
+ };
+
+ // Define the traversal class over the AST
+ class CommentOutSymbolsFromDotGraph : public SgSimpleProcessing
+ {
+ public:
+ void visit ( SgNode* node )
+ {
+
+ SgAsmGenericSymbolList* genericSymbolList = isSgAsmGenericSymbolList(node);
+ if (genericSymbolList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericSymbolList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfSymbolList* elfSymbolList = isSgAsmElfSymbolList(node);
+ if (elfSymbolList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfSymbolList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmGenericSymbol* genericSymbol = isSgAsmGenericSymbol(node);
+ if (genericSymbol != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericSymbol->addNewAttribute("SymbolPruningAttribute",att);
+ }
+ }
+ };
+
+ CommentOutSymbolsFromDotGraph traversal;
+ traversal.traverse(node,preorder);
+ }
+
+// DQ (11/10/2008):
+/*! \brief This traversal permits non-dwarf IR nodes to be commented out from the DOT graphs.
+
+ */
+void commentOutEvertythingButDwarf (SgNode* node)
+ {
+ // Remove the symbols and related symbol lists so that the generated DOT file will be simpler.
+ // To do this we add an attribute that implements the virtual commentOutNodeInGraph() member
+ // function and return "true".
+
+ // Define the attribute class containing the virtual function "commentOutNodeInGraph()"
+ class SymbolPruningAttribute : public AstAttribute
+ {
+ // This is a persistant attribute used to mark locations in the AST where we don't want IR nodes to be generated for the DOT graph.
+
+ public:
+ bool commentOutNodeInGraph() { return true; }
+ virtual AstAttribute* copy() { return new SymbolPruningAttribute(*this); }
+ virtual ~SymbolPruningAttribute() {}
+ };
+
+ // Define the traversal class over the AST
+ class CommentOutSymbolsFromDotGraph : public SgSimpleProcessing
+ {
+ public:
+ void visit ( SgNode* node )
+ {
+ // Remove sections to make the Dwarf graph dominate (assume symbols were alread removed)!
+
+ SgAsmGenericSectionList* genericSectionList = isSgAsmGenericSectionList(node);
+ if (genericSectionList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericSectionList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmGenericSection* genericSection = isSgAsmGenericSection(node);
+ if (genericSection != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericSection->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfSectionTableEntry* elfSectionTableEntry = isSgAsmElfSectionTableEntry(node);
+ if (elfSectionTableEntry != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfSectionTableEntry->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfSegmentTableEntry* elfSegmentTableEntry = isSgAsmElfSegmentTableEntry(node);
+ if (elfSegmentTableEntry != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfSegmentTableEntry->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfRelaEntry* elfRelaEntry = isSgAsmElfRelaEntry(node);
+ if (elfRelaEntry != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfRelaEntry->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfRelaEntryList* elfRelaEntryList = isSgAsmElfRelaEntryList(node);
+ if (elfRelaEntryList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfRelaEntryList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmElfDynamicEntryList* elfDynamicEntryList = isSgAsmElfDynamicEntryList(node);
+ if (elfDynamicEntryList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ elfDynamicEntryList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmGenericFormat* genericFormat = isSgAsmGenericFormat(node);
+ if (genericFormat != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericFormat->addNewAttribute("SymbolPruningAttribute",att);
+ }
+
+ SgAsmGenericDLLList* genericDLLList = isSgAsmGenericDLLList(node);
+ if (genericDLLList != NULL)
+ {
+ SymbolPruningAttribute* att = new SymbolPruningAttribute();
+ genericDLLList->addNewAttribute("SymbolPruningAttribute",att);
+ }
+ }
+ };
+
+ // Comment out the symbols (factored out)
+ commentOutSymbolsFromDotGraph(node);
+
+ // Now comment out the rest of the non-dwarf IR nodes.
+ CommentOutSymbolsFromDotGraph traversal;
+ traversal.traverse(node,preorder);
+ }
+
+
+void
+readDwarf ( SgAsmFile* asmFile )
+ {
+ ROSE_ASSERT(asmFile != NULL);
+
+ SgAsmGenericFile* genericFile = asmFile->get_genericFile();
+ ROSE_ASSERT(genericFile != NULL);
+
+ int fileDescriptor = genericFile->get_fd();
+
+ int dwarf_init_status = dwarf_init (fileDescriptor, DW_DLC_READ, NULL, NULL, &rose_dwarf_dbg, &rose_dwarf_error);
+ // printf ("dwarf_init_status = %d \n",dwarf_init_status);
+
+ // Test if the call to dwarf_init worked!
+ // ROSE_ASSERT(dwarf_init_status == DW_DLV_OK);
+ if (dwarf_init_status == DW_DLV_OK)
+ {
+ // I am unclear about the functionality of these two functions!
+ // dwarf_set_frame_rule_inital_value(rose_dwarf_dbg,global_config_file_data.cf_initial_rule_value);
+ // dwarf_set_frame_rule_table_size(rose_dwarf_dbg,global_config_file_data.cf_table_entry_count);
+
+ // Dwarf information will be attached to the main SgAsmInterpretation for the binary file.
+ SgAsmInterpretation* asmInterpretation = SageInterface::getMainInterpretation(asmFile);
+
+ // Main function to read dwarf information
+ build_dwarf_IR_nodes(rose_dwarf_dbg,asmInterpretation);
+
+ // printf ("\n\nFinishing Dwarf handling... \n\n");
+ int dwarf_finish_status = dwarf_finish( rose_dwarf_dbg, &rose_dwarf_error);
+ ROSE_ASSERT(dwarf_finish_status == DW_DLV_OK);
+ }
+ else
+ {
+ // This might be a PE file (or just non-ELF)
+ if (SgProject::get_verbose() > 0)
+ {
+ printf ("No dwarf debug sections found! \n");
+ }
+ }
+
+ // DQ (11/10/2008): Added support to permit symbols to be removed from the DOT graph generation.
+ // This make the DOT files easier to manage since there can be thousands of symbols. This also
+ // makes it easer to debug the ROSE dwarf AST.
+ SgBinaryFile* binaryFile = isSgBinaryFile(asmFile->get_parent());
+ ROSE_ASSERT (binaryFile != NULL);
+
+ // This is used to reduce the size of the DOT file to simplify debugging Dwarf stuff.
+ if (binaryFile->get_visualize_executable_file_format_skip_symbols() == true)
+ {
+ printf ("Calling commentOutSymbolsFromDotGraph() (for visualization of binary file format withouth symbols) \n");
+ commentOutSymbolsFromDotGraph(asmFile);
+ }
+
+ // Nothing but dwarf!
+ if (binaryFile->get_visualize_dwarf_only() == true)
+ {
+ printf ("Calling commentOutEvertythingButDwarf() (for visualization of Dwarf) \n");
+ commentOutEvertythingButDwarf(asmFile);
+ }
+ }
+
+
+
+
+SgAsmDwarfConstruct*
+SgAsmDwarfConstruct::createDwarfConstruct( int tag, int nesting_level, uint64_t offset, uint64_t overall_offset )
+ {
+ // This function implements the factory pattern.
+
+ SgAsmDwarfConstruct* returnConstruct = NULL;
+
+ // printf ("In SgAsmDwarfConstruct::createDwarfConstruct(): tag = %d nesting_level = %d \n",tag,nesting_level);
+
+ // This uses the libdwarf tag id values
+ switch(tag)
+ {
+ // case DW_TAG_: { returnConstruct = new SgAsmDwarf(nesting_level,offset,overall_offset); break; }
+
+ case DW_TAG_array_type: { returnConstruct = new SgAsmDwarfArrayType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_class_type: { returnConstruct = new SgAsmDwarfClassType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_entry_point: { returnConstruct = new SgAsmDwarfEntryPoint(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_enumeration_type: { returnConstruct = new SgAsmDwarfEnumerationType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_formal_parameter: { returnConstruct = new SgAsmDwarfFormalParameter(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_imported_declaration: { returnConstruct = new SgAsmDwarfImportedDeclaration(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_label: { returnConstruct = new SgAsmDwarfLabel(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_lexical_block: { returnConstruct = new SgAsmDwarfLexicalBlock(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_member: { returnConstruct = new SgAsmDwarfMember(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_pointer_type: { returnConstruct = new SgAsmDwarfPointerType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_reference_type: { returnConstruct = new SgAsmDwarfReferenceType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_compile_unit: { returnConstruct = new SgAsmDwarfCompilationUnit(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_string_type: { returnConstruct = new SgAsmDwarfStringType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_structure_type: { returnConstruct = new SgAsmDwarfStructureType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_subroutine_type: { returnConstruct = new SgAsmDwarfSubroutineType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_typedef: { returnConstruct = new SgAsmDwarfTypedef(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_union_type: { returnConstruct = new SgAsmDwarfUnionType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_unspecified_parameters: { returnConstruct = new SgAsmDwarfUnspecifiedParameters(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_variant: { returnConstruct = new SgAsmDwarfVariant(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_common_block: { returnConstruct = new SgAsmDwarfCommonBlock(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_common_inclusion: { returnConstruct = new SgAsmDwarfCommonInclusion(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_inheritance: { returnConstruct = new SgAsmDwarfInheritance(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_inlined_subroutine: { returnConstruct = new SgAsmDwarfInlinedSubroutine(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_module: { returnConstruct = new SgAsmDwarfModule(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_ptr_to_member_type: { returnConstruct = new SgAsmDwarfPtrToMemberType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_set_type: { returnConstruct = new SgAsmDwarfSetType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_subrange_type: { returnConstruct = new SgAsmDwarfSubrangeType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_with_stmt: { returnConstruct = new SgAsmDwarfWithStmt(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_access_declaration: { returnConstruct = new SgAsmDwarfAccessDeclaration(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_base_type: { returnConstruct = new SgAsmDwarfBaseType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_catch_block: { returnConstruct = new SgAsmDwarfCatchBlock(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_const_type: { returnConstruct = new SgAsmDwarfConstType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_constant: { returnConstruct = new SgAsmDwarfConstant(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_enumerator: { returnConstruct = new SgAsmDwarfEnumerator(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_file_type: { returnConstruct = new SgAsmDwarfFileType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_friend: { returnConstruct = new SgAsmDwarfFriend(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_namelist: { returnConstruct = new SgAsmDwarfNamelist(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_namelist_item: { returnConstruct = new SgAsmDwarfNamelistItem(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_packed_type: { returnConstruct = new SgAsmDwarfPackedType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_subprogram: { returnConstruct = new SgAsmDwarfSubprogram(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_template_type_parameter: { returnConstruct = new SgAsmDwarfTemplateTypeParameter(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_template_value_parameter: { returnConstruct = new SgAsmDwarfTemplateValueParameter(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_thrown_type: { returnConstruct = new SgAsmDwarfThrownType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_try_block: { returnConstruct = new SgAsmDwarfTryBlock(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_variant_part: { returnConstruct = new SgAsmDwarfVariantPart(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_variable: { returnConstruct = new SgAsmDwarfVariable(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_volatile_type: { returnConstruct = new SgAsmDwarfVolatileType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_dwarf_procedure: { returnConstruct = new SgAsmDwarfDwarfProcedure(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_restrict_type: { returnConstruct = new SgAsmDwarfRestrictType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_interface_type: { returnConstruct = new SgAsmDwarfInterfaceType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_namespace: { returnConstruct = new SgAsmDwarfNamespace(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_imported_module: { returnConstruct = new SgAsmDwarfImportedModule(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_unspecified_type: { returnConstruct = new SgAsmDwarfUnspecifiedType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_partial_unit: { returnConstruct = new SgAsmDwarfPartialUnit(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_imported_unit: { returnConstruct = new SgAsmDwarfImportedUnit(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_mutable_type: { returnConstruct = new SgAsmDwarfMutableType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_condition: { returnConstruct = new SgAsmDwarfCondition(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_shared_type: { returnConstruct = new SgAsmDwarfSharedType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_format_label: { returnConstruct = new SgAsmDwarfFormatLabel(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_function_template: { returnConstruct = new SgAsmDwarfFunctionTemplate(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_upc_shared_type: { returnConstruct = new SgAsmDwarfUpcSharedType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_upc_strict_type: { returnConstruct = new SgAsmDwarfUpcStrictType(nesting_level,offset,overall_offset); break; }
+ case DW_TAG_upc_relaxed_type: { returnConstruct = new SgAsmDwarfUpcRelaxedType(nesting_level,offset,overall_offset); break; }
+
+ default:
+ {
+ // Use AsmDwarfVariant as a default dwarf construct (we might want a SgAsmDwarfUnknownConstruct also).
+ // returnConstruct = new SgAsmDwarfVariant(nesting_level,offset,overall_offset);
+ returnConstruct = new SgAsmDwarfUnknownConstruct(nesting_level,offset,overall_offset);
+ }
+ }
+
+#if 0
+ printf ("createDwarfConstruct(): nesting_level = %d building: %s \n",nesting_level,returnConstruct->class_name().c_str());
+#endif
+
+ return returnConstruct;
+ }
+
+
+// endif for "if USE_ROSE_DWARF_SUPPORT" at top of file.
+#else
+
+// DQ (11/12/2008): Function defined so that java-port will not complain.
+SgAsmDwarfConstruct*
+SgAsmDwarfConstruct::createDwarfConstruct( int tag, int nesting_level, uint64_t offset, uint64_t overall_offset )
+ {
+ // This function implements the factory pattern.
+
+ SgAsmDwarfConstruct* returnConstruct = NULL;
+
+#if 1
+ printf ("Dwarf support not enabled (configure command-line option: --with-dwarf) \n");
+#endif
+
+ return returnConstruct;
+ }
+
+#endif
+
+
+
+
+
+
+// ***********************************************************************************
+// ***********************************************************************************
+// This code is independent of the "if USE_ROSE_DWARF_SUPPORT" at the top of this file
+// ***********************************************************************************
+// ***********************************************************************************
+
+std::pair<uint64_t,uint64_t>
+SgAsmDwarfLineList::instructionRange()
+ {
+ DwarfInstructionSourceMapReturnType maps = buildInstructionAddressSourcePositionMaps();
+
+ SgInstructionAddressSourcePositionMapPtrList & instruction_source_code_map = *(maps.first);
+
+ SgInstructionAddressSourcePositionMapPtrList::iterator lowerBound = instruction_source_code_map.begin();
+ SgInstructionAddressSourcePositionMapPtrList::reverse_iterator upperBound = instruction_source_code_map.rbegin();
+
+ return std::pair<uint64_t,uint64_t>(lowerBound->first,upperBound->first);
+ }
+
+std::pair<LineColumnFilePosition,LineColumnFilePosition>
+SgAsmDwarfLineList::sourceCodeRange( int file_id )
+ {
+ DwarfInstructionSourceMapReturnType maps = buildInstructionAddressSourcePositionMaps();
+
+ SgSourcePositionInstructionAddressMapPtrList & source_code_instruction_map = *(maps.second);
+
+ SgSourcePositionInstructionAddressMapPtrList::iterator lowerBound = source_code_instruction_map.begin();
+ SgSourcePositionInstructionAddressMapPtrList::reverse_iterator upperBound = source_code_instruction_map.rbegin();
+
+ // Find the first source position in the file specified by the input file_id
+ while ( (lowerBound != source_code_instruction_map.end()) && (lowerBound->first.first != file_id) )
+ {
+ lowerBound++;
+ }
+
+ while ( (upperBound != source_code_instruction_map.rend()) && (upperBound->first.first != file_id) )
+ {
+ upperBound++;
+ }
+
+ LineColumnFilePosition start(lowerBound->first.second);
+ LineColumnFilePosition end(upperBound->first.second);
+
+ // Check if this was a case of there not being any entries for this file
+ if (lowerBound == source_code_instruction_map.end())
+ {
+ ROSE_ASSERT(upperBound == source_code_instruction_map.rend());
+ // printf ("lowerBound == source_code_instruction_map.end() --- no entries for file %d \n",file_id);
+
+ // Reset the line and column information to indicate that there were no entries.
+ start = LineColumnFilePosition(std::pair<int,int>(-1,-1));
+ end = LineColumnFilePosition(std::pair<int,int>(-1,-1));
+ }
+
+ return std::pair<LineColumnFilePosition,LineColumnFilePosition>(start,end);
+ }
+
+
+uint64_t
+SgAsmDwarfLineList::sourceCodeToAddress ( FileIdLineColumnFilePosition sourcePosition )
+ {
+ // Return the nearest address for the source code position
+ int file_id = sourcePosition.first;
+ // int line = sourcePosition.second.first;
+ // int column = sourcePosition.second.second;
+
+ uint64_t returnAddress = NULL;
+
+ DwarfInstructionSourceMapReturnType maps = buildInstructionAddressSourcePositionMaps();
+ SgSourcePositionInstructionAddressMapPtrList & source_code_instruction_map = *(maps.second);
+
+ SgSourcePositionInstructionAddressMapPtrList::iterator lowerBound = source_code_instruction_map.lower_bound(sourcePosition);
+ SgSourcePositionInstructionAddressMapPtrList::iterator upperBound = source_code_instruction_map.upper_bound(sourcePosition);
+
+ returnAddress = lowerBound->second;
+
+ if (lowerBound == source_code_instruction_map.begin())
+ {
+ // printf ("lowerBound == source_code_instruction_map.begin() \n");
+ if (lowerBound->first.first != file_id)
+ {
+ // printf ("This source position is not from a valide file in the map: file_id = %d lowerBound->first = %d \n",file_id,lowerBound->first.first);
+ returnAddress = NULL;
+ }
+ }
+
+ if (lowerBound == source_code_instruction_map.end())
+ {
+ // printf ("lowerBound == source_code_instruction_map.end() \n");
+#if 0
+ if (lowerBound->first.first != file_id)
+ {
+ printf ("This source position is not from a valide file in the map: file_id = %d lowerBound->first = %d \n",file_id,lowerBound->first.first);
+ returnAddress = NULL;
+ }
+ else
+ {
+ returnAddress = NULL;
+ }
+#else
+ returnAddress = NULL;
+#endif
+ }
+#if 0
+ // I think this is redundant code
+ if (upperBound == source_code_instruction_map.end())
+ {
+ // printf ("upperBound == source_code_instruction_map.end() \n");
+ returnAddress = NULL;
+ }
+#endif
+
+ return returnAddress;
+ }
+
+FileIdLineColumnFilePosition
+SgAsmDwarfLineList::addressToSourceCode ( uint64_t address )
+ {
+ // Set to default value
+ FileIdLineColumnFilePosition sourcePosition(0,std::pair<int,int>(0,0));
+
+ std::pair<uint64_t,uint64_t> validInstructionRange = instructionRange();
+ if ( (address < validInstructionRange.first) || (address > validInstructionRange.second) )
+ {
+ // printf ("Address out of range: address = 0x%lx range (0x%lx, 0x%lx) \n",address,validInstructionRange.first,validInstructionRange.second);
+
+ // Set to error value
+ sourcePosition = FileIdLineColumnFilePosition(-1,std::pair<int,int>(-1,-1));
+ }
+ else
+ {
+ DwarfInstructionSourceMapReturnType maps = buildInstructionAddressSourcePositionMaps();
+ SgInstructionAddressSourcePositionMapPtrList & instruction_source_code_map = *(maps.first);
+
+ SgInstructionAddressSourcePositionMapPtrList::iterator lowerBound = instruction_source_code_map.lower_bound(address);
+
+ // Set the the lower bound found in the map
+ sourcePosition = lowerBound->second;
+
+#if 0
+ int file_id = sourcePosition.first;
+ int line = sourcePosition.second.first;
+ int column = sourcePosition.second.second;
+ string filename = Sg_File_Info::getFilenameFromID(file_id);
+
+ // printf ("address = 0x%lx maps to source position (file = %d = %s, line = %d, column = %d) \n",address,file_id,filename.c_str(),line,column);
+#endif
+ }
+
+ // return FileIdLineColumnFilePosition(-1,std::pair<int,int>(-1,-1));
+ return sourcePosition;
+ }
+
+
+void
+SgAsmDwarfLineList::display( const string & label )
+ {
+ // Note that once the maps are setup NULL is an acceptable value (perhaps it should be the default parameter!)
+ DwarfInstructionSourceMapReturnType maps = buildInstructionAddressSourcePositionMaps();
+
+ // Output the SgInstructionAddressSourcePositionMapPtrList map so the we can test the linear ordering of the addresses.
+ SgInstructionAddressSourcePositionMapPtrList & instruction_source_code_map = *(maps.first);
+ SgSourcePositionInstructionAddressMapPtrList & source_code_instruction_map = *(maps.second);
+
+ std::pair<uint64_t,uint64_t> addressRange = instructionRange();
+ printf ("addressRange = (0x%lx, 0x%lx) \n",addressRange.first,addressRange.second);
+
+ // Iterate over all the files in the static Sg_File_Info::get_fileidtoname_map
+ // int numberOfSourceFiles = Sg_File_Info::get_fileidtoname_map().size();
+ int numberOfSourceFiles = Sg_File_Info::numberOfSourceFiles();
+ printf ("numberOfSourceFiles = %d \n",numberOfSourceFiles);
+
+ // DQ: I think that the initial value is 1 not 0!
+ for (int i=1; i < numberOfSourceFiles; i++)
+ {
+ std::pair<LineColumnFilePosition,LineColumnFilePosition> sourceFileRange = sourceCodeRange( i );
+
+ std::string filename = Sg_File_Info::getFilenameFromID(i);
+
+ if ( (sourceFileRange.first.first < 0) && (sourceFileRange.second.first < 0) )
+ {
+ printf ("This file_id = %d is not a valid source file: filename = %s \n",i,filename.c_str());
+ }
+ else
+ {
+ printf ("Source range for file = %s (id = %d) [(line=%d, col=%d), (line=%d, col=%d)] \n",
+ filename.c_str(),i,
+ sourceFileRange.first.first, sourceFileRange.first.second,
+ sourceFileRange.second.first, sourceFileRange.second.second);
+ }
+ }
+
+
+ printf ("\n\nTest sourceCodeToAddress: \n");
+ FileIdLineColumnFilePosition s1(2,std::pair<int,int>(10,-1));
+ uint64_t instructionAddress1 = sourceCodeToAddress(s1);
+ printf ("sourceCodeToAddress(%d,%d,%d) = 0x%lx \n",s1.first,s1.second.first,s1.second.second,instructionAddress1);
+
+ FileIdLineColumnFilePosition s2(2,std::pair<int,int>(11,-1));
+ uint64_t instructionAddress2 = sourceCodeToAddress(s2);
+ printf ("sourceCodeToAddress(%d,%d,%d) = 0x%lx \n",s2.first,s2.second.first,s2.second.second,instructionAddress2);
+
+ FileIdLineColumnFilePosition s3(1,std::pair<int,int>(11,-1));
+ uint64_t instructionAddress3 = sourceCodeToAddress(s3);
+ printf ("sourceCodeToAddress(%d,%d,%d) = 0x%lx \n",s3.first,s3.second.first,s3.second.second,instructionAddress3);
+
+ for (int fileNumber = 1; fileNumber < 4; fileNumber++)
+ {
+ for (int lineNumber = -2; lineNumber < 35; lineNumber++)
+ {
+ for (int columnNumber = -2; columnNumber < 1; columnNumber++)
+ {
+ FileIdLineColumnFilePosition s(fileNumber,std::pair<int,int>(lineNumber,columnNumber));
+ uint64_t instructionAddress = sourceCodeToAddress(s);
+ printf ("sourceCodeToAddress(%d,%d,%d) = 0x%lx \n",s.first,s.second.first,s.second.second,instructionAddress);
+ }
+ }
+ }
+
+ printf ("\n\nTest addressToSourceCode: (not tested yet) \n");
+
+ FileIdLineColumnFilePosition s1map = addressToSourceCode(instructionAddress1);
+ printf ("addressToSourceCode: address 0x%lx = (%d,%d,%d) \n",instructionAddress1,s1map.first,s1map.second.first,s1map.second.second);
+
+ for (uint64_t address = instructionAddress1-15; address < instructionAddress1+ 85; address++)
+ {
+ FileIdLineColumnFilePosition s_map = addressToSourceCode(address);
+ printf ("addressToSourceCode: address 0x%lx = (%d,%d,%d) \n",address,s_map.first,s_map.second.first,s_map.second.second);
+ }
+
+ printf ("\nOutput entries in instruction_source_code_map \n");
+ SgInstructionAddressSourcePositionMapPtrList::iterator it1 = instruction_source_code_map.begin();
+ while ( it1 != instruction_source_code_map.end() )
+ {
+ uint64_t address = it1->first;
+
+ // This is a std::map<uint64_t,std::pair<int,std::pair<int,int> > >, so we get
+ // "it->second.first, it->second.second.first, it->second.second.second"
+ // for the last three terms.
+ int file_id = it1->second.first;
+ int line = it1->second.second.first;
+ int column = it1->second.second.second;
+
+ printf ("instruction_source_code_map[0x%lx] = (file=%d, line=%d, col=%d) \n",address, file_id, line, column);
+
+ // A test of the evaluation of ranges of lines for each instruction
+ SgInstructionAddressSourcePositionMapPtrList::iterator it1_lb = instruction_source_code_map.lower_bound(address);
+ SgInstructionAddressSourcePositionMapPtrList::iterator it1_ub = instruction_source_code_map.upper_bound(address);
+
+ if (it1_lb != it1_ub)
+ {
+ if (it1_ub != instruction_source_code_map.end())
+ {
+ printf (" ----- range = [(file=%d, line=%d, col=%d), (file=%d, line=%d, col=%d)) \n",
+ it1_lb->second.first, it1_lb->second.second.first, it1_lb->second.second.second,
+ it1_ub->second.first, it1_ub->second.second.first, it1_ub->second.second.second);
+ }
+ else
+ {
+ printf (" ----- range = [(file=%d, line=%d, col=%d), last_source_position) \n",
+ it1_lb->second.first, it1_lb->second.second.first, it1_lb->second.second.second);
+ }
+ }
+
+ it1++;
+ }
+
+ printf ("\nOutput entries in source_code_instruction_map \n");
+ SgSourcePositionInstructionAddressMapPtrList::iterator it2 = source_code_instruction_map.begin();
+ while ( it2 != source_code_instruction_map.end() )
+ {
+ uint64_t address = it2->second;
+
+ // This is a std::map<uint64_t,std::pair<int,std::pair<int,int> > >, so we get
+ // "it->second.first, it->second.second.first, it->second.second.second"
+ // for the last three terms.
+ int file_id = it2->first.first;
+ int line = it2->first.second.first;
+ int column = it2->first.second.second;
+
+ printf ("source_code_instruction_map[file=%d, line=%d, col=%d] = 0x%lx \n",file_id, line, column, address);
+
+ // A test of the evaluation of ranges of instructions for each line of source code.
+ FileIdLineColumnFilePosition file_info(file_id,std::pair<int,int>(line,column));
+ SgSourcePositionInstructionAddressMapPtrList::iterator it2_lb = source_code_instruction_map.lower_bound(file_info);
+ SgSourcePositionInstructionAddressMapPtrList::iterator it2_ub = source_code_instruction_map.upper_bound(file_info);
+
+ if (it2_lb != it2_ub)
+ {
+ if (it2_ub != source_code_instruction_map.end())
+ {
+ printf (" ----- range = [0x%lx, 0x%lx) \n",it2_lb->second,it2_ub->second);
+ }
+ else
+ {
+ printf (" ----- range = [0x%lx, last_instruction) \n",it2_lb->second);
+ }
+ }
+
+ it2++;
+ }
+ }
+
+
+
+
+
Added: trunk/src/frontend/SageIII/dwarfSupport.h
===================================================================
--- trunk/src/frontend/SageIII/dwarfSupport.h (rev 0)
+++ trunk/src/frontend/SageIII/dwarfSupport.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,12 @@
+// This file is read by rose.h, if the USE_ROSE_DWARF_SUPPORT is set to 1
+// by the use of --with-dwarf=<path> in the ROSE configure command line.
+
+#include <dwarf.h>
+#include <libdwarf.h>
+
+// Main function to read dwarf.
+// void build_dwarf_IR_nodes(Dwarf_Debug dbg, SgAsmInterpretation* asmInterpretation);
+
+void readDwarf ( SgAsmFile* asmFile );
+
+
Property changes on: trunk/src/frontend/SageIII/dwarfSupport.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/src/frontend/SageIII/rtiHelpers.h
===================================================================
--- trunk/src/frontend/SageIII/rtiHelpers.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/rtiHelpers.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -114,8 +114,27 @@
return ss.str();
}
+#if 0
+static std::string toStringForRTI(const std::map<std::pair<int,std::pair<int,int> >, uint64_t > & x) {
+ std::ostringstream ss;
+ ss << "[";
+// for (std::vector<bool>::const_iterator i = x.begin(); i != x.end(); ++i) {if (i != x.begin()) ss << ", "; ss << (*i ? "T" : "F");}
+ ss << "]";
+ return ss.str();
+}
+#endif
#if 0
+static std::string toStringForRTI(const std::map<uint64_t ,std::pair<int,std::pair<int,int> > > & x) {
+ std::ostringstream ss;
+ ss << "[";
+// for (std::vector<bool>::const_iterator i = x.begin(); i != x.end(); ++i) {if (i != x.begin()) ss << ", "; ss << (*i ? "T" : "F");}
+ ss << "]";
+ return ss.str();
+}
+#endif
+
+#if 0
#if !OLD_GRAPH_NODES
// DQ (8/18/2008): Added support for new Graph IR node.
static std::string toStringForRTI(const SgGraphNodeDirectedGraphEdgeMultimapPtrList & x)
Modified: trunk/src/frontend/SageIII/sageInterface/Makefile.am
===================================================================
--- trunk/src/frontend/SageIII/sageInterface/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/sageInterface/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -5,6 +5,7 @@
noinst_LTLIBRARIES = libsageInterface.la
libsageInterface_la_SOURCES = \
sageInterface.C \
+ sageInterface_asm.C \
sageInterface_type.C \
generateUniqueName.C \
sageBuilder.C \
Modified: trunk/src/frontend/SageIII/sageInterface/sageInterface.C
===================================================================
--- trunk/src/frontend/SageIII/sageInterface/sageInterface.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/sageInterface/sageInterface.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -33,6 +33,7 @@
return string(roseGlobalVariantNameList[v]);
}
+
SgNamespaceDefinitionStatement*
SageInterface::enclosingNamespaceScope( SgDeclarationStatement* declaration )
{
Modified: trunk/src/frontend/SageIII/sageInterface/sageInterface.h
===================================================================
--- trunk/src/frontend/SageIII/sageInterface/sageInterface.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/sageInterface/sageInterface.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,7 +1,9 @@
#ifndef ROSE_SAGE_INTERFACE
#define ROSE_SAGE_INTERFACE
+#include <stdint.h>
+
#include "sage3.h"
SgFile* determineFileType ( std::vector<std::string> argv, int nextErrorCode, SgProject* project );
@@ -74,7 +76,10 @@
// tps : 28 Oct 2008 - support for finding the main interpretation
SgAsmInterpretation* getMainInterpretation(SgAsmFile* file);
+ // Get the value of a disassembled constant
+ uint64_t getAsmConstant(SgAsmValueExpression* e);
+
//------------------------------------------------------------------------
//@{
/*! @name Symbol tables
Added: trunk/src/frontend/SageIII/sageInterface/sageInterface_asm.C
===================================================================
--- trunk/src/frontend/SageIII/sageInterface/sageInterface_asm.C (rev 0)
+++ trunk/src/frontend/SageIII/sageInterface/sageInterface_asm.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,16 @@
+#include "rose.h"
+#include <stdint.h>
+#include <iostream>
+
+using namespace std;
+
+uint64_t SageInterface::getAsmConstant(SgAsmValueExpression* expr) {
+ switch (expr->variantT()) {
+ case V_SgAsmByteValueExpression: return isSgAsmByteValueExpression(expr)->get_value();
+ case V_SgAsmWordValueExpression: return isSgAsmWordValueExpression(expr)->get_value();
+ case V_SgAsmDoubleWordValueExpression: return isSgAsmDoubleWordValueExpression(expr)->get_value();
+ case V_SgAsmQuadWordValueExpression: return isSgAsmQuadWordValueExpression(expr)->get_value();
+ default: {cerr << "Bad variant " << expr->class_name() << " in getAsmConstant" << endl; abort();}
+ }
+}
+
Modified: trunk/src/frontend/SageIII/sageSupport.C
===================================================================
--- trunk/src/frontend/SageIII/sageSupport.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/sageSupport.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1338,13 +1338,30 @@
// DQ (8/16/2008): parse binary executable file format only (some uses of ROSE may only do analysis of
// the binary executable file format and not the instructions). This is also useful for testing.
- //
if ( CommandlineProcessing::isOption(argv,"-rose:","(read_executable_file_format_only)",true) == true )
{
// printf ("option -rose:read_executable_file_format_only found \n");
set_read_executable_file_format_only(true);
}
+ // DQ (11/11/2008): parse binary executable file format only and add attributes to the symbols so that
+ // they will not be output in the generation of DOT files. They will still be present for all other
+ // forms of analysis.
+ if ( CommandlineProcessing::isOption(argv,"-rose:","(visualize_executable_file_format_skip_symbols)",true) == true )
+ {
+ // printf ("option -rose:visualize_executable_file_format_skip_symbols found \n");
+ set_visualize_executable_file_format_skip_symbols(true);
+ }
+
+ // DQ (11/11/2008): parse binary executable file format only and add attributes to the symbols and most
+ // other binary file format IR nodes so that they will not be output in the generation of DOT files.
+ // They will still be present for all other forms of analysis.
+ if ( CommandlineProcessing::isOption(argv,"-rose:","(visualize_dwarf_only)",true) == true )
+ {
+ // printf ("option -rose:visualize_dwarf_only found \n");
+ set_visualize_dwarf_only(true);
+ }
+
// DQ (9/2/2008): This is now set in the new SgBinaryFile IR node.
// DQ (8/26/2008): support for optional more agressive mode of disassembly of binary from all
// executable segments instead of just section based.
@@ -1600,6 +1617,7 @@
optionCount = sla(argv, "-rose:", "($)", "(prelink)",1);
optionCount = sla(argv, "-" , "($)", "(ansi)",1);
optionCount = sla(argv, "-rose:", "($)", "(markGeneratedFiles)",1);
+ optionCount = sla(argv, "-rose:", "($)", "(wave)",1);
optionCount = sla(argv, "-rose:", "($)", "(negative_test)",1);
integerOption = 0;
optionCount = sla(argv, "-rose:", "($)^", "(embedColorCodesInGeneratedCode)", &integerOption, 1);
@@ -1637,6 +1655,8 @@
// DQ (8/16/2008): parse binary executable file format only (some uses of ROSE may only do analysis of
// the binary executable file format and not the instructions). This is also useful for testing.
optionCount = sla(argv, "-rose:", "($)", "(read_executable_file_format_only)",1);
+ optionCount = sla(argv, "-rose:", "($)", "(visualize_executable_file_format_skip_symbols)",1);
+ optionCount = sla(argv, "-rose:", "($)", "(visualize_dwarf_only)",1);
// DQ (8/26/2007): Disassembly support from segments (true) instead of sections (false, default).
optionCount = sla(argv, "-rose:", "($)", "(aggressive)",1);
@@ -2622,7 +2642,7 @@
autoInstantiation = true;
}
- if ( CommandlineProcessing::isOption(argv,"-rose:","wave",false) == true )
+ if ( CommandlineProcessing::isOption(argv,"-rose:","wave",ROSE_WAVE_DEFAULT) == true )
{
// printf ("Option -c found (compile only)! \n");
set_wave(true);
@@ -4683,7 +4703,7 @@
// Find the headers in the executable format and convert
// them into SgAsmInterpretation objects
SgAsmGenericFile* genericFile = asmFile->get_genericFile();
- ROSE_ASSERT (genericFile);
+ ROSE_ASSERT (genericFile != NULL);
SgAsmGenericHeaderList* headerList = genericFile->get_headers();
ROSE_ASSERT (headerList);
const SgAsmGenericHeaderPtrList& headers = headerList->get_headers();
@@ -4693,8 +4713,15 @@
interp->set_parent(asmFile);
interp->set_header(headers[i]);
asmFile->get_interpretations().push_back(interp);
+
+ // If dwarf is available then read it into the AST.
}
+#if USE_ROSE_DWARF_SUPPORT
+ // DQ (11/7/2008): New Dwarf support in ROSE (Dwarf IR nodes are generated in the AST).
+ readDwarf(asmFile);
+#endif
+
// Fill in the instructions into the SgAsmFile IR node
SgProject* project = isSgProject(this->get_parent());
ROSE_ASSERT(project != NULL);
@@ -5986,5 +6013,4 @@
return returnList;
}
-
Modified: trunk/src/frontend/SageIII/virtualCFG/filteredCFGImpl.h
===================================================================
--- trunk/src/frontend/SageIII/virtualCFG/filteredCFGImpl.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/frontend/SageIII/virtualCFG/filteredCFGImpl.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -15,7 +15,7 @@
typename Join, typename FilteredEdge > struct MakeClosure
{
std::set < CFGNode > visitedNodes;
- std::set < CFGPath > visitedPaths;
+ std::vector < CFGPath > visitedPaths;
const FindSuccessors & findSuccessors;
const FindEnd & findEnd;
const DontAddChildren & dontAddChildren;
@@ -36,7 +36,7 @@
if (visitedNodes.find(end) != visitedNodes.end())
return;
visitedNodes.insert(end);
- visitedPaths.insert(p);
+ visitedPaths.push_back(p);
if (dontAddChildren(end))
return;
std::vector < CFGEdge > edges = findSuccessors(end);
@@ -49,7 +49,7 @@
std::vector < FilteredEdge > filter() const
{
std::vector < FilteredEdge > edges;
- for (std::set < CFGPath >::const_iterator i = visitedPaths.begin();
+ for (std::vector < CFGPath >::const_iterator i = visitedPaths.begin();
i != visitedPaths.end(); ++i)
{
const CFGPath & p = *i;
Modified: trunk/src/midend/astInlining/inlinerSupport.C
===================================================================
--- trunk/src/midend/astInlining/inlinerSupport.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astInlining/inlinerSupport.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -451,14 +451,16 @@
const set<SgFunctionDeclaration*>& s):
used_decls(u), safe_functions(s) {}
+ // Note: this now (11/7/2008) considers pointer derefs and array derefs safe,
+ // which doesn't preserve invalid memory access behavior
bool isSimpleInitializer(SgExpression* e) {
if (isSgVarRefExp(e)) return true;
if (isSgValueExp(e)) return true;
if (isSgUnaryOp(e) && isSimpleInitializer(isSgUnaryOp(e)->get_operand())) {
- return isSgBitComplementOp(e) || isSgMinusOp(e) || isSgNotOp(e) || isSgUnaryAddOp(e) || isSgCastExp(e);
+ return isSgBitComplementOp(e) || isSgMinusOp(e) || isSgNotOp(e) || isSgUnaryAddOp(e) || isSgCastExp(e) || isSgPointerDerefExp(e);
}
if (isSgBinaryOp(e) && isSimpleInitializer(isSgBinaryOp(e)->get_lhs_operand()) && isSimpleInitializer(isSgBinaryOp(e)->get_rhs_operand())) {
- return isSgAddOp(e) || isSgAndOp(e) || isSgBitAndOp(e) || isSgBitOrOp(e) || isSgBitXorOp(e) || isSgCommaOpExp(e) || isSgDivideOp(e) || isSgEqualityOp(e) || isSgGreaterOrEqualOp(e) || isSgGreaterThanOp(e) || isSgLessOrEqualOp(e) || isSgLessThanOp(e) || isSgLshiftOp(e) || isSgModOp(e) || isSgMultiplyOp(e) || isSgNotEqualOp(e) || isSgOrOp(e) || isSgRshiftOp(e) || isSgSubtractOp(e);
+ return isSgAddOp(e) || isSgAndOp(e) || isSgBitAndOp(e) || isSgBitOrOp(e) || isSgBitXorOp(e) || isSgCommaOpExp(e) || isSgDivideOp(e) || isSgEqualityOp(e) || isSgGreaterOrEqualOp(e) || isSgGreaterThanOp(e) || isSgLessOrEqualOp(e) || isSgLessThanOp(e) || isSgLshiftOp(e) || isSgModOp(e) || isSgMultiplyOp(e) || isSgNotEqualOp(e) || isSgOrOp(e) || isSgRshiftOp(e) || isSgSubtractOp(e) || isSgPntrArrRefExp(e);
}
if (isSgConditionalExp(e)) {
SgConditionalExp* c = isSgConditionalExp(e);
Modified: trunk/src/midend/astProcessing/AstDOTGeneration.C
===================================================================
--- trunk/src/midend/astProcessing/AstDOTGeneration.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astProcessing/AstDOTGeneration.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -8,6 +8,11 @@
#include "AstDOTGeneration.h"
#include "AstConsistencyTests.h"
+// DQ (11/6/2008): Added to support the PRIx64 macro for portable (32/64)-bit address I/O.
+// It might be that this should be added more uniformally in ROSE.
+#define __STDC_FORMAT_MACROS
+#include <inttypes.h>
+
// DQ (12/31/2005): This is OK if not declared in a header file
using namespace std;
@@ -184,13 +189,35 @@
name = genericString->get_string();
}
- SgAsmPEImportHintName* peImportHintName = isSgAsmPEImportHintName(node);
- if (peImportHintName != NULL)
+ SgAsmPEImportHNTEntry* peImportHNTEntry = isSgAsmPEImportHNTEntry(node);
+ if (peImportHNTEntry != NULL)
{
- // This does not use a SgAsmGenericString, at least not yet!
- name = peImportHintName->get_name();
+ SgAsmGenericString* genericString = peImportHNTEntry->get_name();
+ ROSE_ASSERT(genericString != NULL);
+
+ name = genericString->get_string();
}
+ SgAsmDwarfLine* asmDwarfLine = isSgAsmDwarfLine(node);
+ if (asmDwarfLine != NULL)
+ {
+ char buffer[100];
+
+ // It does not work to embed the "\n" into the single sprintf parameter.
+ // sprintf(buffer," Addr: 0x%08"PRIx64" \n line: %d col: %d ",asmDwarfLine->get_address(),asmDwarfLine->get_line(),asmDwarfLine->get_column());
+
+ sprintf(buffer,"Addr: 0x%08"PRIx64,asmDwarfLine->get_address());
+ name = buffer;
+ sprintf(buffer,"line: %d col: %d",asmDwarfLine->get_line(),asmDwarfLine->get_column());
+ name += string("\\n") + buffer;
+ }
+
+ SgAsmDwarfConstruct* asmDwarfConstruct = isSgAsmDwarfConstruct(node);
+ if (asmDwarfConstruct != NULL)
+ {
+ name = asmDwarfConstruct->get_name();
+ }
+
#if 0
// This might not be the best way to implement this, since we want to detect common base classes of IR nodes.
switch (node->variantT())
@@ -233,8 +260,12 @@
bool commentoutNode = commentOutNodeInGraph(node);
if (commentoutNode == true)
{
+ // DQ (11/10/2008): Fixed to only output message when (verbose_level > 0); command-line option.
// DQ (7/27/2008): For now just return to test this mechanism, then we want to add comment "//" propoerly to generated DOT file.
- printf ("Skipping the use of this IR node in the DOT Graph \n");
+ if (SgProject::get_verbose() > 0)
+ {
+ printf ("Skipping the use of this IR node in the DOT Graph \n");
+ }
}
else
{
Modified: trunk/src/midend/astUtil/annotation/AnnotCollect.C
===================================================================
--- trunk/src/midend/astUtil/annotation/AnnotCollect.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/AnnotCollect.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -11,7 +11,7 @@
inst = new ReadAnnotation();
return inst;
}
-
+//! Process command line and call read(istream & in)
void ReadAnnotation::read()
{
const vector<string>& opts = CmdOptions::GetInstance()->opts;
@@ -25,6 +25,7 @@
}
}
}
+//! Read the annotation file and recognize type and operator annotation collections
void ReadAnnotation:: read( istream & in)
{
while (in.good()) {
Modified: trunk/src/midend/astUtil/annotation/AnnotDescriptors.C
===================================================================
--- trunk/src/midend/astUtil/annotation/AnnotDescriptors.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/AnnotDescriptors.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -126,7 +126,8 @@
}
#ifndef TEMPLATE_ONLY
-
+//! Read in a class name, could be a derived class with a qualified name
+// "class" is already processed before calling this function
bool TypeDescriptor:: read(istream& in)
{
if (!StringDescriptor::read(in))
@@ -140,6 +141,7 @@
get_name() = get_name() + "::" + read_id(in);
c = peek_ch(in);
}
+ // The type name could be reference or pointer type?
if (c == '&' || c == '*') {
read_ch(in,c);
get_name().push_back(c);
Modified: trunk/src/midend/astUtil/annotation/AnnotDescriptors.h
===================================================================
--- trunk/src/midend/astUtil/annotation/AnnotDescriptors.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/AnnotDescriptors.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -9,18 +9,24 @@
#include <sstream>
#include <assert.h>
#include <stdio.h>
-
+//! Input interface of a container
+// 'Container' contains element of 'Member' type
+// Its string format uses 'char sep' as the separator (delimitor) ,
+// left and right are the beginning and end characters, such as '{' and '}'
template <class Container, class Member, char sep, char left, char right>
class ReadContainer
{
public:
+ //! Fill in the content of container 'c' from the input stream 'in'
static bool read( Container& c, std::istream& in) ;
};
-
+//! Output interface of a container
template <class Container, char sep, char left, char right>
class WriteContainer
{
public:
+ //! Write the elements inside a container to string format, with delimitor 'seq'
+ //, beginning character 'left' and ending character 'right'
static void write( const Container& c, std::ostream& out);
};
@@ -97,7 +103,8 @@
}
};
-
+//! 'char sep' means the separator (delimitor) ,
+// left and right are the beginning and end characters, such as '{' and '}'
template <class Key, class Member, char sep, char left, char right>
class MapDescriptor : public std::map< Key,Member>
{
@@ -137,7 +144,7 @@
std::string ToString() const { std::stringstream out; write(out); return out.str(); }
};
-
+//! A descriptor for an identifier
class StringDescriptor
{
std::string name;
@@ -151,6 +158,7 @@
std::string get_string() const { return name; }
bool operator < ( const StringDescriptor& that) const { return name < that.name; }
bool operator == ( const StringDescriptor& that) const { return name == that.name; }
+ //! Set the descriptor with the next identifier read from an input stream
bool read( std::istream& in)
{
name = read_id(in);
@@ -203,7 +211,7 @@
void Dump() const { write(std::cerr); }
std::string ToString() const { std::stringstream out; write(out); return out.str(); }
};
-
+//! A descriptor with begin(left) and end(right) characters, such as {x}, (x), etc
template <class Descriptor, char left, char right>
class CloseDescriptor : public Descriptor {
public:
Modified: trunk/src/midend/astUtil/annotation/AnnotIO.C
===================================================================
--- trunk/src/midend/astUtil/annotation/AnnotIO.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/AnnotIO.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -36,12 +36,12 @@
{
return c == ' ' || c == '\t' || c == '\n';
}
-
+//! Check if a character is a numerical character: 0 to 9
bool is_num( char c)
{
return c >= '0' && c <= '9';
}
-
+//! Check if a character is part of an indentifier: _ or a to z or A to Z
bool is_id( char c)
{
return c == '_' || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z');
@@ -55,7 +55,8 @@
return 0;
return p - op.c_str() + 1;
}
-
+//! Grab the next char from an annotation buffer,
+// if the buffer is fully processed already, get the char from an input stream
char getch( istream& in)
{
if (annotation::buffer != "") {
@@ -85,7 +86,8 @@
getch(in);
return c;
}
-
+//! Peek the next char, don't increase the positioning index
+// Peek the input stream if the annotation buffer is already processed.
char peek_next(istream& in)
{
if (annotation::buffer != "")
@@ -93,7 +95,10 @@
else
return in.peek();
}
-
+//! Peek the next sub string of size 'size',
+// append the annotation buffer using characters from 'in' to get sufficent substring
+// if the existing buffer is not long enough to be peeked up to 'size' characters from
+// the current positioning pointer (index)
string peek_next(istream& in, unsigned size)
{
unsigned bufsize = annotation::buffer.size();
@@ -127,7 +132,7 @@
throw m;
}
}
-
+//! Grab the next identifier from an input stream
string read_id( istream& in )
{
char c = peek_ch(in);
@@ -139,7 +144,7 @@
}
return buf;
}
-
+//! Grab the identifier s from an input stream 'in'
void read_id( istream& in, const string& s)
{
string r = read_id(in);
Modified: trunk/src/midend/astUtil/annotation/AnnotIO.h
===================================================================
--- trunk/src/midend/astUtil/annotation/AnnotIO.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/AnnotIO.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -28,16 +28,19 @@
std::string msg;
ReadError( const std::string& s) : msg(s) {}
};
-
+//! Read a list of items of type ItemGen, they are separated using 'sep'
template <class ItemGen>
bool read_list( std::istream& in, ItemGen& op, char sep )
{
+ // Read the first item in the list
if (! op.read(in))
return false;
while (in.good()) {
char c = peek_ch(in);
+ //Stop if the next char is not the delimitor
if (sep != 0 && c != sep)
break;
+ // else we keep reading
if (sep != 0)
read_ch(in,c);
if (! op.read(in))
Modified: trunk/src/midend/astUtil/annotation/OperatorAnnotation.h
===================================================================
--- trunk/src/midend/astUtil/annotation/OperatorAnnotation.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/OperatorAnnotation.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -158,8 +158,10 @@
static OperatorAliasAnnotation* get_inst()
{ if (inst == 0) inst = new OperatorAliasAnnotation();
return inst; }
+ //! Inherited from FunctionAliasInterface
bool may_alias(AstInterface& fa, const AstNodePtr& fc, const AstNodePtr& result,
CollectObject<std::pair<AstNodePtr,int> >& collectalias);
+ //! Inherited from FunctionAliasInterface
bool allow_alias( AstInterface& fa, const AstNodePtr& fd,
CollectObject<std::pair<AstNodePtr,int> >& collectalias);
void Dump() const
Modified: trunk/src/midend/astUtil/annotation/OperatorDescriptors.C
===================================================================
--- trunk/src/midend/astUtil/annotation/OperatorDescriptors.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/OperatorDescriptors.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -49,6 +49,7 @@
}
bool OperatorDeclaration::unique = false;
+//! Get a unique string name for a type, similar to qualified names in C++
string OperatorDeclaration::
get_signiture( AstInterface& fa, const std::string& fname,
const AstInterface::AstTypeList& plist)
@@ -64,9 +65,10 @@
}
return r;
}
-
+//! Read in an operator (function) declaration: name + a list of parameter types and names)
OperatorDeclaration& OperatorDeclaration:: read ( istream& in )
{
+ // Signature is the full function name, possibly with several qualifiers
signiture = read_id(in);
string classname, funcname;
@@ -79,13 +81,14 @@
signiture = signiture + "::";
c = peek_ch(in);
}
+ // Plus other special characters in the operator's name, such as <=, *,~
while ( in.good() && c != '(') {
read_ch(in,c);
signiture.push_back(c);
funcname.push_back(c);
c = peek_ch(in);
}
-
+ // Append () for "::operator()" ?
char* opstart = strrchr(signiture.c_str(), ':');
if (opstart != 0 && string(opstart+1) == "operator") {
signiture = signiture + "()";
@@ -93,13 +96,15 @@
read_ch(in,')');
}
-
+ // Read in the parameter declaration: a list of (type, name)
int index = 0;
if (classname != "" && classname != funcname) {
index = 1;
pars.add_param( signiture, "this");
}
pars.read(in);
+
+
for (unsigned i = index; i < pars.num_of_params(); ++i) {
string partype = pars.get_param_type(i);
if (!unique)
Modified: trunk/src/midend/astUtil/annotation/OperatorDescriptors.h
===================================================================
--- trunk/src/midend/astUtil/annotation/OperatorDescriptors.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/OperatorDescriptors.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -5,12 +5,13 @@
#include "TypeAnnotation.h"
#include "AnnotExpr.h"
#include "FunctionObject.h"
-
+//!Paramter names
typedef ContainerDescriptor<std::vector<NameDescriptor>, NameDescriptor,',','(',')'>
ParamDescriptor;
+//!Parameter types
typedef ContainerDescriptor<std::vector<TypeDescriptor>, TypeDescriptor,',','(',')'>
ParamTypeDescriptor;
-
+//! Representation for function parameter names and types.
class ParameterDeclaration
{
ParamDescriptor pars;
@@ -61,10 +62,10 @@
void operator() (SymbolicValDescriptor& result);
SymbolicAstWrap find( const std::string& parname);
};
-
+//! Representation for an operator (function)
class OperatorDeclaration {
- std::string signiture;
- ParameterDeclaration pars;
+ std::string signiture; //operator name
+ ParameterDeclaration pars; // parameter names and types
static bool unique;
public:
OperatorDeclaration() : signiture("") {}
@@ -105,8 +106,9 @@
}
void Dump() const { write(std::cerr); }
};
-
+//! a set of names separated by ',', begin with '(', end with ')'
typedef SetDescriptor<NameDescriptor,',','(',')'> NameGroup;
+//! A container of std::list<> of elment of NameGroup type
typedef OPDescriptorTemp
<ContainerDescriptor<std::list<NameGroup>, NameGroup,',','{','}'> >
OperatorAliasDescriptor;
Modified: trunk/src/midend/astUtil/annotation/TypeAnnotation.C
===================================================================
--- trunk/src/midend/astUtil/annotation/TypeAnnotation.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/TypeAnnotation.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -22,6 +22,7 @@
{
if (peek_ch(in) == end)
return false;
+ // Read in the next identifier as the annotation type name
string annot = read_id(in);
if (annot == "")
return false;
@@ -43,17 +44,22 @@
}
};
-
+//! Read a collection of annotations of type TargeInfo (a typedescriptor or an operator declaration)
+// They begin after 'sep1', separated by 'sep2', and end with 'e'
template <class TargetInfo, char sep1, char sep2, char e>
void ReadAnnotCollection<TargetInfo,sep1,sep2,e>:: read( istream& in)
{
TargetInfo target;
try {
+ // Read in the string for a type descriptor or an operator declaration
target.read(in);
+ // Read in the start character for annotation collections
if (sep1 != 0)
read_ch(in, sep1);
+
ReadAnnotCollectionWrap<TargetInfo,sep1,sep2,e> op(target, *this);
read_list( in, op, sep2);
+ // Read in the end character.
if (e != 0)
read_ch(in, e);
}
Modified: trunk/src/midend/astUtil/annotation/TypeAnnotation.h
===================================================================
--- trunk/src/midend/astUtil/annotation/TypeAnnotation.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/annotation/TypeAnnotation.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -9,10 +9,15 @@
#include <vector>
#include "AnnotDescriptors.h"
#include "SymbolicVal.h"
-
+//! An interface to a single annotation item
template <class TargetInfo>
class AnnotCollectionBase {
public:
+ //! Check if annotName matches the current annotation type name (TargetInfo)
+ // The name is one of the following:
+ // array(is-array?), construct_array(new-array), modify_array, array_optimize,
+ // has_value, alias/allow_alias,
+ // inline, modify, read, restrict_value, ??(inheritable)
virtual bool read_annot_name( const std::string& annotName) const = 0;
virtual void read_descriptor( const TargetInfo& target,
const std::string& annotName,
@@ -20,6 +25,12 @@
virtual ~AnnotCollectionBase() {}
};
+//! An interface to read and store a collection of annotations for a type or an operator
+// TargetInfo is result's type, targetsep is begin char, annotend is the end char
+// descriptorsep is the delimitor
+//e.g.
+// ReadAnnotCollection<TypeDescriptor, '{', ';','}'> ReadTypeCollection;
+// typedef ReadAnnotCollection<OperatorDeclaration, '{', ';','}'> ReadOperatorCollection;
template <class TargetInfo, char targetsep, char descriptorsep, char annotend>
class ReadAnnotCollection {
std::vector <AnnotCollectionBase<TargetInfo>*> col;
@@ -37,10 +48,11 @@
void read( std::istream& in);
};
-
+//! Instance types for type annotations
typedef AnnotCollectionBase<TypeDescriptor> TypeCollectionBase;
typedef ReadAnnotCollection<TypeDescriptor, '{', ';','}'> ReadTypeCollection;
+//! A map storing types and their descriptors
template <class Descriptor>
class TypeCollection
{
@@ -62,7 +74,7 @@
const_iterator begin() const { return typemap.begin(); }
const_iterator end() const { return typemap.end(); }
-
+ //Check if a named type 'name' is a type with annotation records
bool known_type( const TypeDescriptor &name, Descriptor* desc = 0) const;
bool known_type( AstInterface& fa, const AstNodePtr& exp,
Descriptor* desc = 0) const;
@@ -71,11 +83,12 @@
void Dump() const;
};
+
template <class Descriptor>
class TypeAnnotCollection
-: public AnnotCollectionBase<TypeDescriptor>,
+: public AnnotCollectionBase<TypeDescriptor>, //== TypeCollectionBase
public TypeCollection<Descriptor>
-{
+{ // Derived from TypeCollectionBase
virtual void read_descriptor( const TypeDescriptor& targetname,
const std::string& annot, std::istream& in);
protected:
Modified: trunk/src/midend/astUtil/astInterface/AstInterface.C
===================================================================
--- trunk/src/midend/astUtil/astInterface/AstInterface.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/astInterface/AstInterface.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -1219,7 +1219,8 @@
}
return true;
}
-
+//! Check if a node is an assignment statement/expression, grab its lhs and rhs
+//Set readlhs to false if the operation is not Assign op (Others read lhs and write it also)
bool AstInterface::
IsAssignment( const AstNodePtr& _s, AstNodePtr* lhs, AstNodePtr* rhs, bool *readlhs)
{
@@ -1257,6 +1258,7 @@
return false;
}
+//! Check if a node is a variable declaration, store its declared variables and initial values
bool AstInterface::
IsVariableDecl(const AstNodePtr& _s, AstNodeList* vars, AstNodeList* init)
{
@@ -1376,6 +1378,8 @@
IsIOOutputStmt( const AstNodePtr& s, AstNodeList* explist)
{ return false; }
+//! Check if a node '_exp' is an expression for an integer constant
+// If true, store the integer value into 'val'
bool AstInterface::IsConstInt( const AstNodePtr& _exp, int *val)
{
SgNode* exp = AstNodePtrImpl(_exp).get_ptr();
@@ -1428,6 +1432,7 @@
return true;
}
+//! Two references are the same if they have the same name and same scope
bool AstInterface::
IsSameVarRef( const AstNodePtr& _n1, const AstNodePtr& _n2)
{
@@ -1760,7 +1765,7 @@
}
return false;
}
- }
+ } // end switch
return true;
}
@@ -1879,6 +1884,7 @@
return true;
}
+//! Check if a node is an unary operation , return its operation type and operand when needed
bool AstInterface::
IsUnaryOp( const AstNodePtr& _exp, OperatorEnum* opr, AstNodePtr* opd)
{
@@ -1929,7 +1935,7 @@
};
return false;
}
-
+//! Check if there is a function call: store its declaration and argument list
bool AstInterfaceImpl::
IsFunctionCall( SgNode* s, SgNode** func, AstNodeList* args)
{
@@ -1946,7 +1952,7 @@
case V_SgFunctionCallExp:
{
SgFunctionCallExp *fs = isSgFunctionCallExp(exp);
- f = fs->get_function();
+ f = fs->get_function(); //Should be SgFunctionRefExp
argexp = fs->get_args();
}
break;
@@ -2001,6 +2007,9 @@
*func = f;
return true;
}
+//! Check if a node is a function all, store function declaration, argument list,
+//outargs: arguments using pass-by-reference, only consider C++ reference type now
+// parameter type list, return type
bool AstInterface::
IsFunctionCall( const AstNodePtr& _s, AstNodePtr* fname, AstNodeList* args,
AstNodeList* outargs, AstTypeList* paramtypes, AstNodeType* returntype)
@@ -2172,7 +2181,8 @@
lb = 0;
return IsConstInt( AstNodePtrImpl(exp), &ub);
}
-
+//! Check if _s is an expression,
+// If yes, return its real expression node (strip off SgExpressionRoot) and grab its type
AstNodePtr AstInterface::
IsExpression( const AstNodePtr& _s, AstNodeType* exptype)
{
Modified: trunk/src/midend/astUtil/astInterface/AstInterface.h
===================================================================
--- trunk/src/midend/astUtil/astInterface/AstInterface.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/astInterface/AstInterface.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -47,6 +47,7 @@
class AstObserver {
public:
+ //! Copy certain value associated with 'orig' to the corresponding value associated with 'n'.
virtual void ObserveCopyAst( AstInterfaceImpl& fa, const AstNodePtr& orig, const AstNodePtr& n) = 0;
virtual ~AstObserver() {}
};
Modified: trunk/src/midend/astUtil/astSupport/AnalysisInterface.h
===================================================================
--- trunk/src/midend/astUtil/astSupport/AnalysisInterface.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/astSupport/AnalysisInterface.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,15 +1,20 @@
#ifndef ANALYSIS_INTERFACE_H
#define ANALYSIS_INTERFACE_H
+// This header provide abstract interfaces to some common program analyses,
+// such as
+// * side effects
+// * alias
#include "FunctionObject.h"
class FunctionSideEffectInterface
{
public:
+ //! Store modifying reference nodes (collect) within a function (fc)
// returns false if unknown function encountered
virtual bool get_modify(AstInterface& fa, const AstNodePtr& fc,
CollectObject<AstNodePtr>* collect = 0) = 0 ;
-
+
virtual bool get_read(AstInterface& fa, const AstNodePtr& fc,
CollectObject<AstNodePtr>* collect = 0) = 0;
virtual ~FunctionSideEffectInterface() {}
@@ -65,6 +70,7 @@
class AliasAnalysisInterface
{
public:
+ //! Check if two references r1, r2 may be alias to each other
virtual bool
may_alias(AstInterface& fa, const AstNodePtr& r1, const AstNodePtr& r2) = 0;
virtual ~AliasAnalysisInterface() {}
Modified: trunk/src/midend/astUtil/astSupport/StmtInfoCollect.C
===================================================================
--- trunk/src/midend/astUtil/astSupport/StmtInfoCollect.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/astSupport/StmtInfoCollect.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -85,7 +85,7 @@
else {
if (DebugLocalInfoCollect())
std::cerr << "previsiting cur node " << AstToString(s) << "\n";
- if (curstmt == AST_NULL) {
+ if (curstmt == AST_NULL) { //Fixup curstmt if not yet set
AstNodePtr s1 = fa.GetParent(s);
for ( ; s1 != AST_NULL && !fa.IsStatement(s1); s1 = fa.GetParent(s1));
if (s1 != AST_NULL)
@@ -102,8 +102,11 @@
bool readlhs = false;
if (fa.IsAssignment(s, &lhs, &rhs, &readlhs)) {
+ // For an assignment statement or expression,
+ // get its lhs, rhs, and check if lhs is being read also
ModMap *mp = modstack.size()? &modstack.back().modmap : 0;
if (mp == 0 || mp->find(lhs) == mp->end()) {
+ // Add a new stack entry and ModRecord only for lhs not visited before
modstack.push_back(s);
modstack.back().modmap[lhs] = ModRecord( rhs,readlhs);
}
@@ -140,12 +143,16 @@
if (DebugLocalInfoCollect())
std::cerr << " append function call " << AstToString(s) << std::endl;
AppendFuncCall(fa, s);
- Skip(s);
+ Skip(s);
}
if ( fa.IsMemoryAccess(s)) {
ModMap *mp = modstack.size()? &modstack.back().modmap : 0;
+ //Get the latest ModMap from modstack
+ //If cannot find a record for s, then s is being read
+ //Or if can find a record for s, but readlhs is true, then s is being read
if (mp == 0 || mp->find(s) == mp->end() || (*mp)[s].readlhs)
AppendReadLoc(fa, s);
+ // For array reference, collect references in its subscripts one by one
if (fa.IsArrayAccess(s, 0, &args)) {
for (AstInterface::AstNodeList::const_iterator p = args.begin();
p != args.end(); ++p) {
@@ -157,7 +164,7 @@
}
}
}
- else {
+ else { // only for post-visiting
if (DebugLocalInfoCollect())
std::cerr << "postvisiting cur node " << AstToString(s) << "\n";
if (modstack.size() && modstack.back().root == s) {
Modified: trunk/src/midend/astUtil/astSupport/StmtInfoCollect.h
===================================================================
--- trunk/src/midend/astUtil/astSupport/StmtInfoCollect.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/astSupport/StmtInfoCollect.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -13,19 +13,25 @@
class StmtInfoCollect : public ProcessAstTreeBase
{
protected:
+ //Store the rhs operand (read) of operations, indicate if lhs is also read
struct ModRecord{
AstNodePtr rhs;
- bool readlhs;
+ bool readlhs; //Some operations like +=, -= also read lhs operand
+ // default constructor:
ModRecord() : readlhs(false) {}
+ // Constructor
ModRecord( const AstNodePtr& _rhs, bool _readlhs)
: rhs(_rhs), readlhs(_readlhs) {}
};
+ // A map between a lhs operand (write) and its corresponding rhs operand
typedef std::map<AstNodePtr, ModRecord, std::less<AstNodePtr> > ModMap;
+
struct ModStackEntry {
- AstNodePtr root;
- ModMap modmap;
+ AstNodePtr root; //The statement/expression in question
+ ModMap modmap; // Its lhs and rhs operand
ModStackEntry(const AstNodePtr& r) : root(r) {}
};
+ //Use: modstack.back().modmap[lhs] = ModRecord( rhs,readlhs);
std::list<ModStackEntry> modstack;
AstNodePtr curstmt;
protected:
@@ -44,6 +50,7 @@
};
class FunctionSideEffectInterface;
+//! Collect statement side effects with the help of side effect analysis
class StmtSideEffectCollect
: public StmtInfoCollect, public SideEffectAnalysisInterface
{
@@ -66,6 +73,7 @@
CollectObject<std::pair<AstNodePtr,AstNodePtr> >* collectread = 0,
CollectObject<std::pair<AstNodePtr,AstNodePtr> >* collectkill = 0)
{ return operator()( fa, h, collectmod, collectread, collectkill); }
+ //! Collect mod, read, and kill information for a node h using an interface fa
bool operator()( AstInterface& fa, const AstNodePtr& h,
CollectObject< std::pair<AstNodePtr,AstNodePtr> >* mod,
CollectObject< std::pair<AstNodePtr,AstNodePtr> >* read=0,
@@ -151,6 +159,8 @@
const AstNodePtr& r2);
};
+//! An interface to collect modified variables, and to query if a variable is modifed
+//within a subtree
template <class Select>
class ModifyVariableMap
: public CollectObject<std::pair<AstNodePtr,AstNodePtr> >,
Modified: trunk/src/midend/astUtil/symbolicVal/SymbolicVal.h
===================================================================
--- trunk/src/midend/astUtil/symbolicVal/SymbolicVal.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/astUtil/symbolicVal/SymbolicVal.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -27,12 +27,15 @@
virtual ~SymbolicVisitor() {}
};
+//! Supported symbolic expression value types: only integer?
typedef enum {VAL_BASE = 0, VAL_CONST = 1, VAL_VAR = 2, VAL_AST = 4,
VAL_FUNCTION = 8, VAL_EXPR = 16}
SymbolicValType;
+//! Supported operators: *, +, -, max(), power(^)
typedef enum { SYMOP_NIL = 0, SYMOP_MULTIPLY=1, SYMOP_PLUS = 2,
SYMOP_MIN=3, SYMOP_MAX=4, SYMOP_POW = 5} SymOpType;
+//! Base interface for symbolic values
class SymbolicValImpl
{
protected:
@@ -54,11 +57,11 @@
inline SymbolicValImpl* Clone(const SymbolicValImpl& that)
{ return that.Clone(); }
-
+//! Constant symbol for integers and fractions
class SymbolicConst : public SymbolicValImpl
{
- std:: string val, type;
- int intval, dval;
+ std:: string val, type;//val: string format; type: one of "int" or "fraction"
+ int intval, dval; // dval is for denominator of a fraction type
SymbolicValImpl* Clone() const { return new SymbolicConst(*this); }
public:
@@ -90,6 +93,7 @@
std:: string GetVal() const { return val; }
};
+//! Symbolic variable: name and scope
class SymbolicVar : public SymbolicValImpl
{
std:: string varname;
@@ -139,6 +143,7 @@
const AstNodePtr& get_ast() const { return ast; }
};
+//! A count reference handle to all kinds of symbolic variables
class SymbolicVal : public CountRefHandle <SymbolicValImpl>
{
public:
@@ -211,7 +216,7 @@
class SymbolicFunction : public SymbolicValImpl
{
- std:: string op;
+ std:: string op; // Function name?
std:: vector<SymbolicVal> args;
protected:
typedef AstInterface::OperatorEnum OpType;
@@ -303,6 +308,7 @@
typedef enum {REL_NONE = 0, REL_EQ = 1, REL_LT = 2, REL_LE = 3,
REL_GT = 4, REL_GE = 5, REL_NE = 6, REL_UNKNOWN = 8} CompareRel;
+//! Symbolic conditions: x>y
class SymbolicCond
{
SymbolicVal val1, val2;
Modified: trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.cpp
===================================================================
--- trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.cpp 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -570,7 +570,7 @@
ROSE_ASSERT(stat);
// if (RoseBin_support::DEBUG_MODE())
- // cout << " checking statement in function : " << name << " .. " << stat->class_name() << endl;
+ // cout << ">>>>>>>>>>>>>. checking statement in function : " << name << " .. " << stat->class_name() << endl;
if (isSgAsmInstruction(stat)) {
SgAsmInstruction* inst = isSgAsmInstruction(stat);
ROSE_ASSERT(inst);
@@ -666,7 +666,7 @@
src= vizzGraph->checkIfGraphNodeExists(hexStr);
if (src==NULL) {
src= vizzGraph->createNode (src_mnemonic, typeNode, src_address, vizzGraph->graph->get_graph_id(), false, thisbin);
-
+
string unp_name = unparseInstructionWithAddress(thisbin);
src->append_properties(RoseBin_Def::name,unp_name);
if (analysisName=="dfa")
@@ -779,9 +779,10 @@
target_visited=true;
if (trg==NULL) {
- if (analysisName=="callgraph")
+ if (analysisName=="callgraph") {
+ // cerr << " >>> TARGET FUNC NAME " << trg_func_name << endl;
trg = vizzGraph->createNode (trg_func_name, typeNode, trg_func_address, vizzGraph->graph->get_graph_id(),false, funcDeclparent);
- else
+ } else
trg = vizzGraph->createNode (trg_mnemonic, typeNode, trg_address, vizzGraph->graph->get_graph_id(),false, bin_target);
string unp_name = unparseInstructionWithAddress(bin_target);
Modified: trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.h
===================================================================
--- trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/binaryAnalyses/RoseBin_FlowAnalysis.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -51,6 +51,7 @@
}
};
+
class FindInstructionsVisitorx86: public std::binary_function<SgNode*, std::vector<SgAsmx86Instruction *>* , void* >
{
public:
@@ -69,6 +70,16 @@
}
};
+class FindAsmStatementsHeaderVisitor: public std::binary_function<SgNode*, std::vector<SgAsmNode *>* , void* >
+{
+ public:
+ void* operator()(first_argument_type node, std::vector<SgAsmNode*>* insns ) const{
+ if (isSgAsmStatement(node)) insns->push_back(isSgAsmStatement(node));
+ if (isSgAsmExecutableFileFormat(node)) insns->push_back(isSgAsmExecutableFileFormat(node));
+ return NULL;
+ }
+};
+
class FindStatementsVisitor: public std::binary_function<SgNode*, std::vector<SgStatement *>* , void* >
{
public:
Modified: trunk/src/midend/binaryAnalyses/graph/RoseBin_DotGraph.cpp
===================================================================
--- trunk/src/midend/binaryAnalyses/graph/RoseBin_DotGraph.cpp 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/binaryAnalyses/graph/RoseBin_DotGraph.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -26,7 +26,7 @@
void
RoseBin_DotGraph::printNodesCallGraph(std::ofstream& myfile) {
- cerr << " Preparing graph - Nr of Nodes : " << nodes.size() << " forward analysis : " << endl;
+ cerr << " Preparing graph - Nr of Nodes : " << nodes.size() << endl;
int counter=nodes.size();
rose_hash::hash_set <std::string> funcNames;
@@ -104,7 +104,7 @@
interrupt = true;
else if (addr==RoseBin_Def::name)
name = prop->second;
- }
+ }
funcNr++;
@@ -115,53 +115,63 @@
//if (grouping) {
// add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
//} else {
- if (nodest_jmp)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (nodest_call)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=orange,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (interrupt)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=blue,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (error)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=lightblue,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=purple,fontname=\"7x13bold\",fontcolor=black,style=filled";
- //}
+ if (nodest_jmp)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (nodest_call)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=orange,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (interrupt)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=blue,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (error)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=lightblue,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=purple,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ //}
- string funcName = func->get_name();
- int pos = funcName.find("+");
- if (pos<=0) pos=funcName.find("-");
- if (pos<=0) pos=funcName.length();
- funcName=funcName.substr(0,pos);
+ string funcName = func->get_name();
+ int pos = funcName.find("+");
+ if (pos<=0) pos=funcName.find("-");
+ if (pos<=0) pos=funcName.length();
+ funcName=funcName.substr(0,pos);
RoseBin_support::checkText(name);
+ //cerr << " +++ funcName " << funcName << " name: " << name << endl;
myfile << "subgraph \"cluster_" <</*name*/ hex_address<< "\" { \n";
myfile << "\"" << hex_address << "\"[label=\"" << hex_address << ":"
- << name << "\\n type = " << type << "\\n \"" << add <<"];\n";
+ << funcName << "\\n type = " << type << "\\n \"" << add <<"];\n";
+ // << name << "\\n type = " << type << "\\n \"" << add <<"];\n";
callNodeType::iterator inv = callMap.lower_bound(funcName);
for (;inv!=callMap.upper_bound(funcName);++inv) {
pair <std::string, SgDirectedGraphNode*> itn = inv->second;
string hex_address_n = itn.first;
SgDirectedGraphNode* node = isSgDirectedGraphNode(itn.second);
+ SgNode* internal = node->get_SgNode();
+ SgAsmFunctionDeclaration* func = isSgAsmFunctionDeclaration(internal);
+ string name_n="noname";
+ if (func)
+ name_n=func->get_name();
+
string type_n = node->get_type();
- string name_n="noname";
map < int , string> node_p = node->get_properties();
map < int , string>::iterator prop = node_p.begin();
-
+ /*
for (; prop!=node_p.end(); ++prop) {
int addr = prop->first;
// cerr << " dot : property for addr : " << addr << " and node " << hex_address << endl;
- if (addr==RoseBin_Def::name)
- name_n = prop->second;
+ if (addr==RoseBin_Def::name)
+ name_n = prop->second;
}
+ */
+ // cerr << " +++ funcName " << funcName << " name_n: " << name_n << endl;
myfile << "\"" << hex_address_n << "\"[label=\"" << hex_address_n << ":"
<< name_n << "\\n type = " << type_n << "\\n \"" << add <<"];\n";
+ // << name_n << "\\n type = " << type_n << "\\n \"" << add <<"];\n";
}
- myfile << "} \n";
+ myfile << "} \n";
}
}
@@ -246,7 +256,7 @@
interrupt = true;
else if (addr==RoseBin_Def::name)
name = prop->second;
- }
+ }
funcNr++;
@@ -257,17 +267,17 @@
//if (grouping) {
// add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
//} else {
- if (nodest_jmp)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (nodest_call)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=orange,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (interrupt)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=blue,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else if (error)
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=lightblue,fontname=\"7x13bold\",fontcolor=black,style=filled";
- else
- add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=purple,fontname=\"7x13bold\",fontcolor=black,style=filled";
- //}
+ if (nodest_jmp)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=red,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (nodest_call)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=orange,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (interrupt)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=blue,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else if (error)
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=lightblue,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ else
+ add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=purple,fontname=\"7x13bold\",fontcolor=black,style=filled";
+ //}
RoseBin_support::checkText(name);
if (grouping)
@@ -434,32 +444,32 @@
add = ",shape=ellipse,regular=0, sides=5,peripheries=1,color=\"Black\",fillcolor=black,fontname=\"7x13bold\",fontcolor=white,style=filled";
type = "Buffer Overflow" ;
}
- regs += eval;
- string hex_name=hex_address.substr(1,hex_address.length());
- if (hex_name.size()>1 && hex_name[0]==' ')
- hex_name=hex_name.substr(1,hex_name.size());
- hex_name="0x"+hex_name;
- string nameL="0x";
- for (unsigned int j=2;j<name.size();++j){
- char c = name[j];
- if (c==' ') continue;
- else if (c==':')
- break;
- else
- nameL+=name[j];
- // else
- // cerr << " not a digit : " << name[j] << endl;
- }
- // string nameL=name.substr(0,9);
- if (type!="function") {
- if (hex_name!=nameL)
- cerr << " hexName : ." << hex_name << ". == ." << nameL << ". out of : " << name << endl;
- // cerr << " ERROR ................... SOMETHING WRONG HERE . ALLOWING THIS FOR NOW . " << endl;
- ROSE_ASSERT(hex_name==nameL);
- }
- myfile << "\"" << hex_address << "\"[label=\"" << name << "\\n" << dfa_info << dfa_variable <<
- " visited: " << visitedCounter <<"\\n" <<
- "type = " << type << "\\n" << variable << "\\n" << regs << "\"" << add <<"];\n";
+ regs += eval;
+ string hex_name=hex_address.substr(1,hex_address.length());
+ if (hex_name.size()>1 && hex_name[0]==' ')
+ hex_name=hex_name.substr(1,hex_name.size());
+ hex_name="0x"+hex_name;
+ string nameL="0x";
+ for (unsigned int j=2;j<name.size();++j){
+ char c = name[j];
+ if (c==' ') continue;
+ else if (c==':')
+ break;
+ else
+ nameL+=name[j];
+ // else
+ // cerr << " not a digit : " << name[j] << endl;
+ }
+ // string nameL=name.substr(0,9);
+ if (type!="function") {
+ if (hex_name!=nameL)
+ cerr << " hexName : ." << hex_name << ". == ." << nameL << ". out of : " << name << endl;
+ // cerr << " ERROR ................... SOMETHING WRONG HERE . ALLOWING THIS FOR NOW . " << endl;
+ ROSE_ASSERT(hex_name==nameL);
+ }
+ myfile << "\"" << hex_address << "\"[label=\"" << name << "\\n" << dfa_info << dfa_variable <<
+ " visited: " << visitedCounter <<"\\n" <<
+ "type = " << type << "\\n" << variable << "\\n" << regs << "\"" << add <<"];\n";
}
}
@@ -509,157 +519,157 @@
void RoseBin_DotGraph::printEdges( bool forward_analysis, std::ofstream& myfile, SgDirectedGraphEdge* edge ) {
// traverse edges and visualize results of graph
/*
- cerr << " Writing graph to DOT - Nr of Edges : " << edges.size() << endl;
- int edgeNr=0;
- edgeType::iterator it = edges.begin();
- for (; it!=edges.end();++it) {
+ cerr << " Writing graph to DOT - Nr of Edges : " << edges.size() << endl;
+ int edgeNr=0;
+ edgeType::iterator it = edges.begin();
+ for (; it!=edges.end();++it) {
edgeNr++;
if ((edgeNr % 5000) == 0)
- cout << " Writing graph to DOT - Nr of Edges : " << edges.size() << "/" << edgeNr << endl;
+ cout << " Writing graph to DOT - Nr of Edges : " << edges.size() << "/" << edgeNr << endl;
// string name = it->first;
SgDirectedGraphEdge* edge = it->second;
*/
- SgDirectedGraphNode* source = isSgDirectedGraphNode(edge->get_from());
- SgDirectedGraphNode* target = isSgDirectedGraphNode(edge->get_to());
+ SgDirectedGraphNode* source = isSgDirectedGraphNode(edge->get_from());
+ SgDirectedGraphNode* target = isSgDirectedGraphNode(edge->get_to());
#if 0
- // extra check to ensure that nodes exist. If not, skip
- nodeType::iterator itn2 = nodes.begin();
- bool foundS=false;
- bool foundT=false;
- for (; itn2!=nodes.end();++itn2) {
- SgDirectedGraphNode* n = itn2->second;
- if (n==source) foundS=true;
- if (n==target) foundT=true;
+ // extra check to ensure that nodes exist. If not, skip
+ nodeType::iterator itn2 = nodes.begin();
+ bool foundS=false;
+ bool foundT=false;
+ for (; itn2!=nodes.end();++itn2) {
+ SgDirectedGraphNode* n = itn2->second;
+ if (n==source) foundS=true;
+ if (n==target) foundT=true;
+ }
+ if (foundS==false || foundT==false) {
+ cerr <<"WARNING :: printEdges - edge not found. " << endl;
+ return;
+ if (source && target) {
+ SgAsmFunctionDeclaration* src = isSgAsmFunctionDeclaration(source->get_SgNode());
+ SgAsmFunctionDeclaration* trg = isSgAsmFunctionDeclaration(target->get_SgNode());
+ if (src && trg) {
+ cerr <<"WARNING :: printEdges - edge not found: " <<
+ RoseBin_support::HexToString(src->get_address()) << " -> " <<
+ RoseBin_support::HexToString(trg->get_address()) << endl;
+ //return;
+ } else {
+ if (src==NULL)
+ cerr <<"WARNING :: printEdges - src == NULL " << source->get_SgNode()->class_name() <<endl;
+ else
+ cerr <<"WARNING :: printEdges - trg == NULL " << target->get_SgNode()->class_name() <<endl;
}
- if (foundS==false || foundT==false) {
- cerr <<"WARNING :: printEdges - edge not found. " << endl;
- return;
- if (source && target) {
- SgAsmFunctionDeclaration* src = isSgAsmFunctionDeclaration(source->get_SgNode());
- SgAsmFunctionDeclaration* trg = isSgAsmFunctionDeclaration(target->get_SgNode());
- if (src && trg) {
- cerr <<"WARNING :: printEdges - edge not found: " <<
- RoseBin_support::HexToString(src->get_address()) << " -> " <<
- RoseBin_support::HexToString(trg->get_address()) << endl;
- //return;
- } else {
- if (src==NULL)
- cerr <<"WARNING :: printEdges - src == NULL " << source->get_SgNode()->class_name() <<endl;
- else
- cerr <<"WARNING :: printEdges - trg == NULL " << target->get_SgNode()->class_name() <<endl;
- }
- } else {
- cerr <<"WARNING :: printEdges - source or target == NULL " <<endl;
- }
- }
+ } else {
+ cerr <<"WARNING :: printEdges - source or target == NULL " <<endl;
+ }
+ }
#endif
- ROSE_ASSERT(source);
- ROSE_ASSERT(target);
- string from_hex = source->get_name();
- string to_hex =target->get_name();
+ ROSE_ASSERT(source);
+ ROSE_ASSERT(target);
+ string from_hex = source->get_name();
+ string to_hex =target->get_name();
- // fix the problem that instructions and functions may have the same address (key)
- if (grouping) {
- // fix this only if we use groups (clusters)
- if (isSgAsmFunctionDeclaration(source->get_SgNode()))
- from_hex+="_f";
- if (isSgAsmFunctionDeclaration(target->get_SgNode()))
- to_hex+="_f";
- }
+ // fix the problem that instructions and functions may have the same address (key)
+ if (grouping) {
+ // fix this only if we use groups (clusters)
+ if (isSgAsmFunctionDeclaration(source->get_SgNode()))
+ from_hex+="_f";
+ if (isSgAsmFunctionDeclaration(target->get_SgNode()))
+ to_hex+="_f";
+ }
- string edgeLabel="";
- map < int , string> edge_p = edge->get_properties();
- map < int , string>::iterator prop = edge_p.begin();
- //string type = node->get_type();
- for (; prop!=edge_p.end(); ++prop) {
- int addr = prop->first;
- // cerr << " dot : property for addr : " << addr << " and node " << hex_address << endl;
- if (addr==RoseBin_Def::edgeLabel)
- edgeLabel = prop->second;
- }
+ string edgeLabel="";
+ map < int , string> edge_p = edge->get_properties();
+ map < int , string>::iterator prop = edge_p.begin();
+ //string type = node->get_type();
+ for (; prop!=edge_p.end(); ++prop) {
+ int addr = prop->first;
+ // cerr << " dot : property for addr : " << addr << " and node " << hex_address << endl;
+ if (addr==RoseBin_Def::edgeLabel)
+ edgeLabel = prop->second;
+ }
- string output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + edgeLabel + "\"" + "];\n";
- SgAsmx86Instruction* contrl = isSgAsmx86Instruction(source->get_SgNode());
- if (contrl) {
- // we use either dest or dest_list
- // dest is used for single destinations during cfg run
- // dest_list is used for a static cfg image
- vector<VirtualBinCFG::CFGEdge> outEdges = contrl->cfgBinOutEdges(info);
- if (contrl->get_kind() == x86_call || isAsmUnconditionalBranch(contrl)) {
- SgAsmInstruction* next = info->getInstructionAtAddress(contrl->get_address() + contrl->get_raw_bytes().size());
- if (next) {
- // outEdges.push_back(VirtualBinCFG::CFGEdge(VirtualBinCFG::CFGNode(contrl, info), VirtualBinCFG::CFGNode(next, info), info));
- }
+ string output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + edgeLabel + "\"" + "];\n";
+ SgAsmx86Instruction* contrl = isSgAsmx86Instruction(source->get_SgNode());
+ if (contrl) {
+ // we use either dest or dest_list
+ // dest is used for single destinations during cfg run
+ // dest_list is used for a static cfg image
+ vector<VirtualBinCFG::CFGEdge> outEdges = contrl->cfgBinOutEdges(info);
+ if (contrl->get_kind() == x86_call || isAsmUnconditionalBranch(contrl)) {
+ SgAsmInstruction* next = info->getInstructionAtAddress(contrl->get_address() + contrl->get_raw_bytes().size());
+ if (next) {
+ // outEdges.push_back(VirtualBinCFG::CFGEdge(VirtualBinCFG::CFGNode(contrl, info), VirtualBinCFG::CFGNode(next, info), info));
}
- SgAsmInstruction* dest = outEdges.empty() ? NULL : outEdges.front().target().getNode();
- if (!x86InstructionIsControlTransfer(contrl) || contrl->get_kind() == x86_ret) dest = NULL;
- bool dest_list_empty = true;
- if (contrl->get_kind() == x86_ret)
- dest_list_empty = outEdges.empty();
+ }
+ SgAsmInstruction* dest = outEdges.empty() ? NULL : outEdges.front().target().getNode();
+ if (!x86InstructionIsControlTransfer(contrl) || contrl->get_kind() == x86_ret) dest = NULL;
+ bool dest_list_empty = true;
+ if (contrl->get_kind() == x86_ret)
+ dest_list_empty = outEdges.empty();
- SgAsmInstruction* nextNode = isSgAsmInstruction(target->get_SgNode());
- ROSE_ASSERT(nextNode);
- if (dest) {
- string add = "";
- string type = "jmp_if";
- if (contrl->get_kind() == x86_call || contrl->get_kind() == x86_ret) {
- add= ",color=\"Red\", style=\"dashed\"";
- type = "call";
- } else if (contrl->get_kind() == x86_jmp) {
- add= ",color=\"Red\", style=\"dashed\"";
- type = "jmp";
- } else
- add = ",color=\"Green\", style=\"dashed\"";
- if (dest==nextNode)
- output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type +"\\n"+ edgeLabel+ "\"" + add + "];\n";
- // the destination is the next node after a control transfer
- // for this, if the source is a call or jmp, we want to hide
- // the edge
- else
- if (forward_analysis &&
- (contrl->get_kind() == x86_call || contrl->get_kind() == x86_jmp)) {
- add = ",color=\"Yellow\", style=\"solid\"";
- type="";
- output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type + "\\n"+ edgeLabel+"\"" + add + "];\n";
- }
+ SgAsmInstruction* nextNode = isSgAsmInstruction(target->get_SgNode());
+ ROSE_ASSERT(nextNode);
+ if (dest) {
+ string add = "";
+ string type = "jmp_if";
+ if (contrl->get_kind() == x86_call || contrl->get_kind() == x86_ret) {
+ add= ",color=\"Red\", style=\"dashed\"";
+ type = "call";
+ } else if (contrl->get_kind() == x86_jmp) {
+ add= ",color=\"Red\", style=\"dashed\"";
+ type = "jmp";
} else
- if (contrl->get_kind() == x86_ret ) { //&& dest_list_empty) {
- // in case of a multiple return
- string add= ",color=\"Blue\", style=\"dashed\"";
- string type = "ret";
+ add = ",color=\"Green\", style=\"dashed\"";
+ if (dest==nextNode)
+ output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type +"\\n"+ edgeLabel+ "\"" + add + "];\n";
+ // the destination is the next node after a control transfer
+ // for this, if the source is a call or jmp, we want to hide
+ // the edge
+ else
+ if (forward_analysis &&
+ (contrl->get_kind() == x86_call || contrl->get_kind() == x86_jmp)) {
+ add = ",color=\"Yellow\", style=\"solid\"";
+ type="";
output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type + "\\n"+ edgeLabel+"\"" + add + "];\n";
- }
- }
+ }
+ } else
+ if (contrl->get_kind() == x86_ret ) { //&& dest_list_empty) {
+ // in case of a multiple return
+ string add= ",color=\"Blue\", style=\"dashed\"";
+ string type = "ret";
+ output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type + "\\n"+ edgeLabel+"\"" + add + "];\n";
+ }
+ }
- string type_n = getProperty(RoseBin_Def::type, edge);
- if (type_n==RoseBin_support::ToString(RoseBin_Edgetype::usage)) {
- string add= ",color=\"Black\", style=\"dashed\"";
- output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\""+ edgeLabel+"\"" + add + "];\n";
- }
+ string type_n = getProperty(RoseBin_Def::type, edge);
+ if (type_n==RoseBin_support::ToString(RoseBin_Edgetype::usage)) {
+ string add= ",color=\"Black\", style=\"dashed\"";
+ output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\""+ edgeLabel+"\"" + add + "];\n";
+ }
- if (!(forward_analysis)) {
- SgAsmx86Instruction* thisNode = isSgAsmx86Instruction(source->get_SgNode());
- SgAsmx86Instruction* nextNode = isSgAsmx86Instruction(target->get_SgNode());
- if (thisNode && nextNode) {
- SgAsmFunctionDeclaration* f_1 = isSgAsmFunctionDeclaration(thisNode->get_parent());
- SgAsmFunctionDeclaration* f_2 = isSgAsmFunctionDeclaration(nextNode->get_parent());
- if (f_1==NULL)
- f_1 = isSgAsmFunctionDeclaration(thisNode->get_parent()->get_parent());
- if (f_2==NULL)
- f_2 = isSgAsmFunctionDeclaration(nextNode->get_parent()->get_parent());
- if (f_1==f_2)
- if (nextNode->get_kind() == x86_call || nextNode->get_kind() == x86_jmp) {
- string add = ",color=\"Green\", style=\"invis\"";
- string type="";
- output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type +"\\n"+ edgeLabel + "\"" + add + "];\n";
- }
- }
+ if (!(forward_analysis)) {
+ SgAsmx86Instruction* thisNode = isSgAsmx86Instruction(source->get_SgNode());
+ SgAsmx86Instruction* nextNode = isSgAsmx86Instruction(target->get_SgNode());
+ if (thisNode && nextNode) {
+ SgAsmFunctionDeclaration* f_1 = isSgAsmFunctionDeclaration(thisNode->get_parent());
+ SgAsmFunctionDeclaration* f_2 = isSgAsmFunctionDeclaration(nextNode->get_parent());
+ if (f_1==NULL)
+ f_1 = isSgAsmFunctionDeclaration(thisNode->get_parent()->get_parent());
+ if (f_2==NULL)
+ f_2 = isSgAsmFunctionDeclaration(nextNode->get_parent()->get_parent());
+ if (f_1==f_2)
+ if (nextNode->get_kind() == x86_call || nextNode->get_kind() == x86_jmp) {
+ string add = ",color=\"Green\", style=\"invis\"";
+ string type="";
+ output = "\"" + from_hex + "\" -> \"" + to_hex + "\"[label=\"" + type +"\\n"+ edgeLabel + "\"" + add + "];\n";
+ }
}
+ }
- myfile << output;
- //}
+ myfile << output;
+ //}
}
Modified: trunk/src/midend/loopProcessing/depGraph/DepGraphBuild.C
===================================================================
--- trunk/src/midend/loopProcessing/depGraph/DepGraphBuild.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/loopProcessing/depGraph/DepGraphBuild.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -109,6 +109,7 @@
return ProcessAstTree::ProcessGoto(fa, s, dest);
}
+//!Compute dependence relations between current statement and any other previously visited statements, including self-to-self.
bool BuildAstTreeDepGraph ::
ProcessStmt( AstInterface &fa, const AstNodePtr& s)
{
Modified: trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.C
===================================================================
--- trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -43,7 +43,9 @@
std::cerr << buffer;
}
}
-
+//! A class to with an operator () to
+//access and store the first element of a pair of AST node pointers ???
+// Accumulate AST references
class AccuAstRefs : public CollectObject<std::pair<AstNodePtr,AstNodePtr> >
{
CollectObject<AstNodePtr> &col;
@@ -64,6 +66,7 @@
AstInterface &fa = la;
AccuAstRefs colw(wRefs);
AccuAstRefs colr(rRefs);
+ // Construct a StmtSideEffectCollect object and call its operator
return StmtSideEffectCollect(la.getSideEffectInterface())(fa,n,&colw,&colr);
}
@@ -204,7 +207,7 @@
info.domain.ClosureCond();
if (DebugDep())
std::cerr << "domain of statement " << AstToString(s) << " is : " << info.domain.toString() << std::endl;
- }
+ } // end if IsTop()
assert(!info.IsTop());
return info;
}
@@ -220,6 +223,7 @@
outDeps(d);
}
// has common loops and references involve two different variables
+ // Compute the reverse dependence edge stmt2->stmt1
if ( ref.commLevel > 0 && ref.r1.ref != ref.r2.ref) {
StmtRefDep ref2(ref.r2, ref.r1, ref.commLoop, ref.commLevel);
DepInfo d1 = ComputePrivateDep( fa, *this, ref2, t2, -1);
@@ -301,7 +305,7 @@
if (CmdOptions::GetInstance()->HasOption("-adhoc") || !test)
test |= PlatoOmegaInterface::ADHOC;
#endif
-
+ //! Calculate dependence only if having common loops OR two different array accesses
if (ref.commLevel > 0 || ref.r1.ref != ref.r2.ref)
{
/*AstInterface& ai = fa;
@@ -607,7 +611,10 @@
outDeps(d);
}
}
-
+//! Compute dependence edges between two statements (ref.r1.stmt, ref.r2.stmt) between
+// two data accesses from two read/write data sets (rs1,rs2),
+//with known dependence type t,
+//store stmt1->stmt2 edges into outDeps, stmt2->stmt1 edges into inDeps
void ComputeRefSetDep( DepInfoAnal& anal, LoopTransformInterface &la,
DepInfoAnal::StmtRefDep& ref,
DoublyLinkedListWrap<AstNodePtr> *rs1,
@@ -619,6 +626,7 @@
for (DoublyLinkedListWrap<AstNodePtr>::iterator iter1 = rs1->begin();
iter1 != rs1->end(); ++iter1) {
AstNodePtr r1 = *iter1, array1;
+ // First access is array access?
bool b1 = la.IsArrayAccess(r1, &array1);
if (!b1)
array1 = r1;
@@ -631,6 +639,7 @@
if (!b2)
array2 = r2;
ref.r2.ref = r2;
+ // Dependence only exists for accesses to the same memory location
if ( fa.IsSameVarRef( array1, array2) ) {
if (b1 && b2)
anal.ComputeArrayDep( la, ref, t, outDeps, inDeps);
@@ -646,8 +655,8 @@
else if ( la.IsAliasedRef( r1, r2)) {
anal.ComputeGlobalScalarDep( la, ref, outDeps, inDeps);
}
- }
- }
+ }// end for (rs1)
+ } //end for (rs1)
}
void RemoveIvars( AstInterface& ai, DoublyLinkedListWrap<AstNodePtr>& refs,
@@ -670,6 +679,9 @@
}
}
+//! Compute data dependence between two statements s1 and s2
+// Collect their read and write reference sets first, then generate dependence edges
+// among the elements of the reference sets.
void DepInfoAnal ::
ComputeDataDep(LoopTransformInterface &fa,
const AstNodePtr& s1, const AstNodePtr& s2,
Modified: trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.h
===================================================================
--- trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/loopProcessing/depInfo/DepInfoAnal.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -24,11 +24,13 @@
std::vector<SymbolicBound> ivarbounds;
bool IsTop() const { return domain.IsTop(); }
};
+ //!Store a single reference within a statement
struct StmtRefInfo {
AstNodePtr stmt, ref;
StmtRefInfo( const AstNodePtr& s, const AstNodePtr& r)
: stmt(s), ref(r) {}
};
+ //!Store common loops and levels for two references from two statements
struct StmtRefDep {
StmtRefInfo r1, r2;
AstNodePtr commLoop;
Added: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.cpp
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.cpp (rev 0)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,149 @@
+/******************************************
+ * Category: DFA
+ * DefUse Analysis Declaration (per Function)
+ * created by tps in Feb 2007
+ *****************************************/
+
+#include "DefUseAnalysisAbstract.h"
+
+using namespace std;
+
+
+/**********************************************************
+ * find element in vector
+ *********************************************************/
+bool DefUseAnalysisAbstract::searchVector(vector <filteredCFGNodeType> done,
+ filteredCFGNodeType cfgNode) {
+ bool found = false;
+ for (vector<filteredCFGNodeType >::const_iterator i = done.begin(); i != done.end(); ++i) {
+ filteredCFGNodeType node = *i;
+ if (node==cfgNode)
+ found=true;
+ }
+ return found;
+}
+
+
+
+
+/**********************************************************
+ * Search for the value and key in the multimap
+ *********************************************************/
+bool DefUseAnalysisAbstract::isDoubleExactEntry(const multitype* multi,
+ SgInitializedName* name, SgNode* sgNode) {
+ bool isCurrentValueContained=false;
+ multitype::const_iterator i = multi->begin();
+ //SgNode* sgNodeMM = NULL;
+ for (; i != multi->end(); ++i) {
+ SgInitializedName* initNameMM = (*i).first;
+ SgNode* sgnodeMM = (*i).second;
+ if (initNameMM==name && sgnodeMM==sgNode)
+ isCurrentValueContained=true;
+ // cout << " comparing - map: " << initNameMM << " vs. search: " << initName <<
+ // " result euqal? " << resBool(isCurrentValueContained) << endl;
+ }
+ return isCurrentValueContained;
+}
+
+/**********************************************************
+ * Search for the value for a certain key in the multimap
+ *********************************************************/
+bool DefUseAnalysisAbstract::searchMulti(const multitype* multi, SgInitializedName* initName) {
+ bool isCurrentValueContained=false;
+ multitype::const_iterator i = multi->begin();
+ //SgNode* sgNodeMM = NULL;
+ for (; i != multi->end(); ++i) {
+ SgInitializedName* initNameMM = (*i).first;
+ if (initNameMM==initName)
+ isCurrentValueContained=true;
+ // cout << " comparing - map: " << initNameMM << " vs. search: " << initName <<
+ // " result euqal? " << resBool(isCurrentValueContained) << endl;
+ }
+ return isCurrentValueContained;
+}
+
+
+/**********************************************************
+ * check if two multimaps are equal
+ *********************************************************/
+bool DefUseAnalysisAbstract::checkElementsForEquality(const multitype* t1, const multitype* t2) {
+ // if every element of t2 is contained in t1, then no change
+ // occured in the map
+
+ typedef set<pair<SgInitializedName*, SgNode*> > st;
+ st s1(t1->begin(), t1->end());
+ st s2(t2->begin(), t2->end());
+ assert (s1.size() == t1->size());
+
+ // if (s2.size() != t2->size())
+ // printMultiMap(t2);
+ assert (s2.size() == t2->size());
+ return s1 != s2;
+ /*
+
+
+ if (t1->size()!=t2->size())
+ return true;
+ bool changed=false;
+ for (multitype::const_iterator it = t1->begin(); it != t1->end(); ++it) {
+ SgInitializedName* init1 = (*it).first;
+ SgNode* node1 = (*it).second;
+ bool identical=false;
+ for (multitype::const_iterator it2 = t2->begin(); it2 != t2->end(); ++it2) {
+ SgInitializedName* init2 = (*it2).first;
+ SgNode* node2 = (*it2).second;
+ if (init1==init2 && node1==node2)
+ identical=true;
+ }
+ if (identical==false)
+ changed = true;
+ }
+ return changed;
+ */
+}
+
+
+
+/**********************************************************
+ * return the initializedName
+ * we need this if we have a VarRefExp on the left hand
+ * side of an assignment. We want to know which variable it is.
+ * The variable may be hiding down the hirarchy in e.g. an array
+ *********************************************************/
+SgInitializedName* DefUseAnalysisAbstract::getInitName(SgNode* l_expr) {
+ SgInitializedName* retName = NULL;
+ if (isSgPntrArrRefExp(l_expr)) {
+ SgPntrArrRefExp* varArrRefExp = isSgPntrArrRefExp(l_expr);
+ if (DEBUG_MODE)
+ cout << " ********** BINARY OP : " << l_expr->class_name() << endl;
+ ROSE_ASSERT(varArrRefExp);
+ SgExpression* l_expr = varArrRefExp->get_lhs_operand();
+ ROSE_ASSERT(l_expr);
+ if (isSgVarRefExp(l_expr)) {
+ retName = isSgVarRefExp(l_expr)->get_symbol()->get_declaration();
+ }
+ } else if (isSgPointerDerefExp(l_expr)) {
+ SgPointerDerefExp* ptr = isSgPointerDerefExp(l_expr);
+ if (DEBUG_MODE)
+ cout << " ********** BINARY OP : " << l_expr->class_name() << endl;
+ ROSE_ASSERT(ptr);
+ SgExpression* l_expr = ptr->get_operand();
+ ROSE_ASSERT(l_expr);
+ if (isSgVarRefExp(l_expr)) {
+ retName = isSgVarRefExp(l_expr)->get_symbol()->get_declaration();
+ }
+ } else {
+ cout << " GETINITNAME:: could not resolve initName " << l_expr->class_name() << endl;
+ }
+ return retName;
+}
+
+/**********************************************************
+ * Resolve a CAST
+ *********************************************************/
+SgExpression* DefUseAnalysisAbstract::resolveCast(SgExpression* expr) {
+ SgCastExp* cast = isSgCastExp(expr);
+ SgExpression* retExpr = cast->get_operand();
+ ROSE_ASSERT(retExpr);
+ return retExpr;
+}
Property changes on: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.cpp
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.h
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.h (rev 0)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,120 @@
+/******************************************
+ * Category: DFA
+ * DefUse Analysis Declaration (per Function)
+ * created by tps in Feb 2007
+ *****************************************/
+
+#ifndef __DefUseAnalysisAbstractPF_HXX_LOADED__
+#define __DefUseAnalysisAbstractPF_HXX_LOADED__
+#include <string>
+
+#include "rose.h"
+#include "support.h"
+#include <virtualCFG.h>
+#include <cfgToDot.h>
+#include <list>
+#include "filteredCFG.h"
+#include "DFAFilter.h"
+#include "DefUseAnalysis.h"
+#include "dfaToDot.h"
+
+class DefUseAnalysisAbstract : public Support {
+ protected:
+ // debugging -------------------------
+ bool DEBUG_MODE;
+ bool DEBUG_MODE_EXTRA;
+
+ // reference to DFA ------------------
+ DefUseAnalysis* dfa;
+
+
+ // typedef std::multimap < SgInitializedName* , SgNode* > multitype;
+ typedef std::vector < std::pair < SgInitializedName* , SgNode* > > multitype;
+ typedef std::map< SgNode* , multitype > tabletype;
+ typedef FilteredCFGEdge < IsDFAFilter > filteredCFGEdgeType;
+ typedef FilteredCFGNode < IsDFAFilter > filteredCFGNodeType;
+
+ std::set <SgNode*> doNotVisitMap;
+ std::map <SgNode*, bool> nodeChangedMap;
+
+
+
+ // searching -------------------------
+ bool searchMulti(const multitype* multi, SgInitializedName* initName);
+ // bool searchMulti(const multitype* multi, SgInitializedName* initName, SgNode* node);
+ bool searchVector(std::vector <filteredCFGNodeType> done,
+ filteredCFGNodeType cfgNode);
+ SgInitializedName* getInitName(SgNode* l_expr);
+
+ SgExpression* resolveCast(SgExpression* expr);
+ bool isDoubleExactEntry(const multitype* multi,
+ SgInitializedName* name, SgNode* sgNode);
+
+ bool checkElementsForEquality(const multitype* t1, const multitype* t2);
+
+
+ /**********************************************************
+ * For a CFG Node, follow the two incoming edges and get
+ * the other node (than theNodeBefore)
+ *********************************************************/
+ template <typename T>
+ SgNode* getOtherInNode(T cfgNode, SgNode* oneNode){
+ SgNode* otherNode = NULL;
+ std::vector<filteredCFGEdgeType > in_edges = cfgNode.inEdges();
+ for (std::vector<filteredCFGEdgeType >::const_iterator i = in_edges.begin(); i != in_edges.end(); ++i) {
+ filteredCFGEdgeType filterEdge = *i;
+ T filterNode = filterEdge.source();
+ if (filterNode.getNode()!=oneNode)
+ otherNode = filterNode.getNode();
+ }
+ if (DEBUG_MODE_EXTRA)
+ std::cout << "getOtherInNode:: other: " << otherNode << " previous: " <<
+ oneNode << " size of in: " << in_edges.size() << std::endl;
+ return otherNode;
+ }
+
+ /**********************************************************
+ * get the incoming node of a cfg edge
+ *********************************************************/
+ template <typename T>
+ SgNode* getCFGPredNode(T cfgNode){
+ SgNode* node = NULL;
+ std::vector<filteredCFGEdgeType > in_edges = cfgNode.inEdges();
+ for (std::vector<filteredCFGEdgeType >::const_iterator i = in_edges.begin(); i != in_edges.end(); ++i) {
+ filteredCFGEdgeType filterEdge = *i;
+ node = filterEdge.source().getNode();
+ }
+ return node;
+ }
+
+ /**********************************************************
+ * print the values of a vector
+ *********************************************************/
+ template <typename T >
+ void printCFGVector(std::vector< T > worklist) {
+ int pos = 0;
+ std::cout << "\n!! Worklist : " ;
+ for (typename std::vector<T >::iterator i = worklist.begin(); i != worklist.end(); ++i, pos++) {
+ T node = *i;
+ std::cout << " - " << node.toStringForDebugging();
+ }
+ std::cout << std::endl;
+ }
+
+ /*
+ template <typename T> void printCFGVector(std::vector<T > worklist);
+ template <typename T> SgNode* getCFGPredNode(T cfgNode);
+ template <typename T> SgNode* getOtherInNode(T source, SgNode* oneNode);
+ */
+
+ public:
+ DefUseAnalysisAbstract(){
+ doNotVisitMap.clear();
+ nodeChangedMap.clear();
+ };
+ virtual FilteredCFGNode < IsDFAFilter > run(SgFunctionDefinition* function)=0;
+
+};
+
+#endif
+
Property changes on: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysisAbstract.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.cpp
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.cpp 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -9,191 +9,10 @@
using namespace std;
-/**********************************************************
- * find element in vector
- *********************************************************/
-bool DefUseAnalysisPF::searchVector(vector <filteredCFGNodeType> done,
- filteredCFGNodeType cfgNode) {
- bool found = false;
- for (vector<filteredCFGNodeType >::const_iterator i = done.begin(); i != done.end(); ++i) {
- filteredCFGNodeType node = *i;
- if (node==cfgNode)
- found=true;
- }
- return found;
-}
-/**********************************************************
- * For a CFG Node, follow the two incoming edges and get
- * the other node (than theNodeBefore)
- *********************************************************/
-template <typename T>
-SgNode* DefUseAnalysisPF::getOtherInNode(T cfgNode, SgNode* oneNode){
- SgNode* otherNode = NULL;
- vector<filteredCFGEdgeType > in_edges = cfgNode.inEdges();
- for (vector<filteredCFGEdgeType >::const_iterator i = in_edges.begin(); i != in_edges.end(); ++i) {
- filteredCFGEdgeType filterEdge = *i;
- T filterNode = filterEdge.source();
- if (filterNode.getNode()!=oneNode)
- otherNode = filterNode.getNode();
- }
- if (DEBUG_MODE_EXTRA)
- cout << "getOtherInNode:: other: " << otherNode << " previous: " <<
- oneNode << " size of in: " << in_edges.size() << endl;
- return otherNode;
-}
/**********************************************************
- * get the incoming node of a cfg edge
- *********************************************************/
-template <typename T>
-SgNode* DefUseAnalysisPF::getCFGPredNode(T cfgNode){
- SgNode* node = NULL;
- vector<filteredCFGEdgeType > in_edges = cfgNode.inEdges();
- for (vector<filteredCFGEdgeType >::const_iterator i = in_edges.begin(); i != in_edges.end(); ++i) {
- filteredCFGEdgeType filterEdge = *i;
- node = filterEdge.source().getNode();
- }
- return node;
-}
-
-/**********************************************************
- * Search for the value and key in the multimap
- *********************************************************/
-bool DefUseAnalysisPF::isDoubleExactEntry(const multitype* multi,
- SgInitializedName* name, SgNode* sgNode) {
- bool isCurrentValueContained=false;
- multitype::const_iterator i = multi->begin();
- //SgNode* sgNodeMM = NULL;
- for (; i != multi->end(); ++i) {
- SgInitializedName* initNameMM = (*i).first;
- SgNode* sgnodeMM = (*i).second;
- if (initNameMM==name && sgnodeMM==sgNode)
- isCurrentValueContained=true;
- // cout << " comparing - map: " << initNameMM << " vs. search: " << initName <<
- // " result euqal? " << resBool(isCurrentValueContained) << endl;
- }
- return isCurrentValueContained;
-}
-
-/**********************************************************
- * Search for the value for a certain key in the multimap
- *********************************************************/
-bool DefUseAnalysisPF::searchMulti(const multitype* multi, SgInitializedName* initName) {
- bool isCurrentValueContained=false;
- multitype::const_iterator i = multi->begin();
- //SgNode* sgNodeMM = NULL;
- for (; i != multi->end(); ++i) {
- SgInitializedName* initNameMM = (*i).first;
- if (initNameMM==initName)
- isCurrentValueContained=true;
- // cout << " comparing - map: " << initNameMM << " vs. search: " << initName <<
- // " result euqal? " << resBool(isCurrentValueContained) << endl;
- }
- return isCurrentValueContained;
-}
-
-
-/**********************************************************
- * check if two multimaps are equal
- *********************************************************/
-bool DefUseAnalysisPF::checkElementsForEquality(const multitype* t1, const multitype* t2) {
- // if every element of t2 is contained in t1, then no change
- // occured in the map
-
- typedef set<pair<SgInitializedName*, SgNode*> > st;
- st s1(t1->begin(), t1->end());
- st s2(t2->begin(), t2->end());
- assert (s1.size() == t1->size());
-
- // if (s2.size() != t2->size())
- // printMultiMap(t2);
- assert (s2.size() == t2->size());
- return s1 != s2;
- /*
-
-
- if (t1->size()!=t2->size())
- return true;
- bool changed=false;
- for (multitype::const_iterator it = t1->begin(); it != t1->end(); ++it) {
- SgInitializedName* init1 = (*it).first;
- SgNode* node1 = (*it).second;
- bool identical=false;
- for (multitype::const_iterator it2 = t2->begin(); it2 != t2->end(); ++it2) {
- SgInitializedName* init2 = (*it2).first;
- SgNode* node2 = (*it2).second;
- if (init1==init2 && node1==node2)
- identical=true;
- }
- if (identical==false)
- changed = true;
- }
- return changed;
- */
-}
-
-
-/**********************************************************
- * print the values of a vector
- *********************************************************/
-template <typename T >
-void DefUseAnalysisPF::printCFGVector(vector< T > worklist) {
- int pos = 0;
- cout << "\n!! Worklist : " ;
- for (typename vector<T >::iterator i = worklist.begin(); i != worklist.end(); ++i, pos++) {
- T node = *i;
- cout << " - " << node.toStringForDebugging();
- }
- cout << endl;
-}
-
-/**********************************************************
- * return the initializedName
- * we need this if we have a VarRefExp on the left hand
- * side of an assignment. We want to know which variable it is.
- * The variable may be hiding down the hirarchy in e.g. an array
- *********************************************************/
-SgInitializedName* DefUseAnalysisPF::getInitName(SgNode* l_expr) {
- SgInitializedName* retName = NULL;
- if (isSgPntrArrRefExp(l_expr)) {
- SgPntrArrRefExp* varArrRefExp = isSgPntrArrRefExp(l_expr);
- if (DEBUG_MODE)
- cout << " ********** BINARY OP : " << l_expr->class_name() << endl;
- ROSE_ASSERT(varArrRefExp);
- SgExpression* l_expr = varArrRefExp->get_lhs_operand();
- ROSE_ASSERT(l_expr);
- if (isSgVarRefExp(l_expr)) {
- retName = isSgVarRefExp(l_expr)->get_symbol()->get_declaration();
- }
- } else if (isSgPointerDerefExp(l_expr)) {
- SgPointerDerefExp* ptr = isSgPointerDerefExp(l_expr);
- if (DEBUG_MODE)
- cout << " ********** BINARY OP : " << l_expr->class_name() << endl;
- ROSE_ASSERT(ptr);
- SgExpression* l_expr = ptr->get_operand();
- ROSE_ASSERT(l_expr);
- if (isSgVarRefExp(l_expr)) {
- retName = isSgVarRefExp(l_expr)->get_symbol()->get_declaration();
- }
- } else {
- cout << " GETINITNAME:: could not resolve initName " << l_expr->class_name() << endl;
- }
- return retName;
-}
-
-/**********************************************************
- * Resolve a CAST
- *********************************************************/
-SgExpression* DefUseAnalysisPF::resolveCast(SgExpression* expr) {
- SgCastExp* cast = isSgCastExp(expr);
- SgExpression* retExpr = cast->get_operand();
- ROSE_ASSERT(retExpr);
- return retExpr;
-}
-
-/**********************************************************
* Make sure all nodes (even arguments if &argument) are in table
* so they can be found for analysis
*********************************************************/
Modified: trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.h
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/DefUseAnalysis_perFunction.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -8,40 +8,12 @@
#define __DefUseAnalysisPF_HXX_LOADED__
#include <string>
-#include "rose.h"
-#include "support.h"
-#include <virtualCFG.h>
-#include <cfgToDot.h>
-#include <list>
-#include "filteredCFG.h"
-#include "DFAFilter.h"
-#include "DefUseAnalysis.h"
-#include "dfaToDot.h"
+#include "DefUseAnalysisAbstract.h"
-class DefUseAnalysisPF : public Support {
+class DefUseAnalysisPF : public DefUseAnalysisAbstract {
private:
- // debugging -------------------------
- bool DEBUG_MODE;
- bool DEBUG_MODE_EXTRA;
- // reference to DFA ------------------
- DefUseAnalysis* dfa;
- // typedef std::multimap < SgInitializedName* , SgNode* > multitype;
- typedef std::vector < std::pair < SgInitializedName* , SgNode* > > multitype;
- typedef std::map< SgNode* , multitype > tabletype;
- typedef FilteredCFGEdge < IsDFAFilter > filteredCFGEdgeType;
- typedef FilteredCFGNode < IsDFAFilter > filteredCFGNodeType;
-
- std::set <SgNode*> doNotVisitMap;
- std::map <SgNode*, bool> nodeChangedMap;
-
- // printing --------------------------
- template <typename T> void printCFGVector(std::vector<T > worklist);
-
- bool isDoubleExactEntry(const multitype* multi,
- SgInitializedName* name, SgNode* sgNode);
- SgExpression* resolveCast(SgExpression* expr);
bool makeSureThatTheUseIsInTable(SgInitializedName* initName);
bool makeSureThatTheDefIsInTable(SgInitializedName* initName);
@@ -54,37 +26,29 @@
SgNode* sgNodeBefore, bool dont_replace,
T cfgNode);
- // searching -------------------------
- bool searchMulti(const multitype* multi, SgInitializedName* initName);
- // bool searchMulti(const multitype* multi, SgInitializedName* initName, SgNode* node);
- bool searchVector(std::vector <filteredCFGNodeType> done,
- filteredCFGNodeType cfgNode);
- SgInitializedName* getInitName(SgNode* l_expr);
// def-use-sepcific ------------------
void handleDefCopy(SgNode* sgNode, int nrOfInEdges, SgNode* sgNodeBefore,
filteredCFGNodeType cfgNode);
void handleUseCopy(SgNode* sgNode, int nrOfInEdges, SgNode* sgNodeBefore,
filteredCFGNodeType cfgNode);
- bool checkElementsForEquality(const multitype* t1, const multitype* t2);
template <typename T> bool defuse(T cfgNode, bool *unhandled);
- template <typename T> SgNode* getCFGPredNode(T cfgNode);
- template <typename T> SgNode* getOtherInNode(T source, SgNode* oneNode);
int nrOfNodesVisitedPF;
int breakPointForWhile;
SgNode* breakPointForWhileNode;
public:
- DefUseAnalysisPF(bool debug, DefUseAnalysis* dfa_p):DEBUG_MODE(debug),
- DEBUG_MODE_EXTRA(false),dfa(dfa_p){
+ DefUseAnalysisPF(bool debug, DefUseAnalysis* dfa_p){
+ DEBUG_MODE=debug;
+ DEBUG_MODE_EXTRA=false;
+ dfa=dfa_p;
breakPointForWhile=0;
breakPointForWhileNode=NULL;
- doNotVisitMap.clear();
- nodeChangedMap.clear();
};
FilteredCFGNode < IsDFAFilter > run(SgFunctionDefinition* function);
int getNumberOfNodesVisited();
+
};
#endif
Added: trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.cpp
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.cpp (rev 0)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.cpp 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,224 @@
+/******************************************
+ * Category: DFA
+ * DefUse Analysis Definition
+ * created by tps in Feb 2007
+ *****************************************/
+
+#include "LivenessAnalysis.h"
+#include "DefUseAnalysis_perFunction.h"
+#include "GlobalVarAnalysis.h"
+#include <boost/config.hpp>
+#include <boost/bind.hpp>
+
+
+using namespace std;
+
+SgFunctionDefinition*
+LivenessAnalysis::getFunction(SgNode* node) {
+ ROSE_ASSERT(node);
+ // make sure that this node is within a function
+ SgNode* parent = node->get_parent();
+ ROSE_ASSERT(parent);
+ while (!isSgFunctionDeclaration(parent)) {
+ parent=parent->get_parent();
+ ROSE_ASSERT(parent);
+ if (isSgProject(parent)) {
+ cerr << " This node is not within a function. Cant run Variable Liveness Analysis." << endl;
+ return NULL;
+ }
+ }
+ SgFunctionDeclaration* func = isSgFunctionDeclaration(parent);
+ ROSE_ASSERT(func);
+ SgFunctionDefinition* funcDef = func->get_definition();
+ ROSE_ASSERT(funcDef);
+ return funcDef;
+}
+
+
+static bool sort_using_greater_than(SgNode* u, SgNode* v){
+ return u > v;
+}
+
+template <typename T>
+bool LivenessAnalysis::defuse(T cfgNode) {
+ SgNode* sgNode = cfgNode.getNode();
+ SgNode* sgNodeBefore = getCFGPredNode(cfgNode);
+ ROSE_ASSERT(sgNode);
+
+ bool has_changed=false;
+ if (DEBUG_MODE)
+ cout << "\n\n------------------------------------------------------------------\ncurrent Node: " <<
+ sgNode << " previous Node : " << sgNodeBefore << endl;
+
+ // get def and use for this node
+ SgInitializedName* initName = isSgInitializedName(sgNode);
+ bool defNode = false;
+ bool useNode = false;
+ if (initName) {
+ std::vector <SgNode*> defs = dfa->getDefFor(sgNode, initName);
+ //get the def and use for the current node
+ std::vector<SgNode*>::const_iterator it = defs.begin();
+ for (;it!=defs.end();++it) {
+ SgNode* itNode = *it;
+ if (itNode==sgNode)
+ defNode=true;
+ }
+ std::vector <SgNode*> uses = dfa->getUseFor(sgNode, initName);
+ it = uses.begin();
+ for (;it!=uses.end();++it) {
+ SgNode* itNode = *it;
+ if (itNode==sgNode)
+ useNode=true;
+ }
+ }
+
+ if (DEBUG_MODE)
+ cout << " At this point def : " << defNode << " use : " << useNode << endl;
+
+ // do the algo for variable liveness
+ out[sgNode].clear();
+ vector<FilteredCFGEdge < IsDFAFilter > > out_edges = cfgNode.outEdges();
+ for (vector<FilteredCFGEdge <IsDFAFilter> >::const_iterator i = out_edges.begin(); i != out_edges.end(); ++i) {
+ FilteredCFGEdge<IsDFAFilter> filterEdge = *i;
+ FilteredCFGNode<IsDFAFilter> filterNode = filterEdge.target();
+ SgNode* sgNodeNext = filterNode.getNode();
+ ROSE_ASSERT(sgNodeNext);
+ std::vector<SgInitializedName*> tmpIn = in[sgNodeNext];
+ out[sgNode].swap(tmpIn);
+ }
+
+
+ in[sgNode] = out[sgNode];
+ if (defNode) {
+ std::vector<SgInitializedName*> vec = in[sgNode];
+ std::vector<SgInitializedName*>::iterator inIt = vec.begin();
+ for (;inIt!=vec.end();++inIt) {
+ if (*inIt==sgNode)
+ vec.erase(inIt); // = initName
+ }
+ in[sgNode]=vec;
+ }
+ if (useNode) {
+ in[sgNode].push_back(initName); // = initName
+ std::sort(in[sgNode].begin(), in[sgNode].end(),sort_using_greater_than);
+ }
+
+ if (defNode || useNode) {
+ // has_changed only applies here
+ if (!std::equal(in.begin(),in.end(),out.begin()))
+ has_changed=true;
+ } else {
+ // if it is a arbitraty node, we assume it has changed, so we can traverse further
+ has_changed=true;
+ }
+ cerr << " value has changed ... : " << has_changed << endl;
+
+ cerr << ">>> in and out for : " << sgNode << endl;
+ std::vector<SgInitializedName*> currIn = in[sgNode];
+ std::vector<SgInitializedName*>::const_iterator it2 = currIn.begin();
+ for (;it2!=currIn.end();++it2) {
+ SgInitializedName* init = isSgInitializedName(*it2);
+ std::string name = init->get_name().str();
+ cerr << " in : " << name;
+ }
+ cerr << endl;
+
+ std::vector<SgInitializedName*> currOut = out[sgNode];
+ std::vector<SgInitializedName*>::const_iterator it3 = currOut.begin();
+ for (;it3!=currOut.end();++it3) {
+ SgInitializedName* init = isSgInitializedName(*it3);
+ std::string name = init->get_name().str();
+ cerr << " out : " << name;
+ }
+ cerr << endl;
+ return has_changed;
+}
+
+
+FilteredCFGNode < IsDFAFilter >
+LivenessAnalysis::run(SgFunctionDefinition* funcDecl) {
+ // filter functions -- to only functions in analyzed file
+ nrOfNodesVisitedPF= 0;
+ breakPointForWhileNode=NULL;
+ breakPointForWhile=0;
+ // clear those maps for each function run
+ doNotVisitMap.clear();
+ nodeChangedMap.clear();
+
+ string funcName = getFullName(funcDecl);
+ // DEBUG_MODE = false;
+ DEBUG_MODE_EXTRA=false;
+
+ if (funcName=="") {
+ FilteredCFGNode < IsDFAFilter > empty;
+ return empty;
+ }
+ ROSE_ASSERT(funcDecl);
+
+ if (DEBUG_MODE)
+ cout << " Found function " << funcName << endl;
+
+ // DFA on that function
+ vector<FilteredCFGNode<IsDFAFilter> > worklist;
+
+ //waitAtMergeNode.clear();
+
+ // add this node to worklist and work through the outgoing edges
+ FilteredCFGNode < IsDFAFilter > source =
+ FilteredCFGNode < IsDFAFilter > (funcDecl->cfgForEnd());
+ CFGNode cmpSrc = CFGNode(funcDecl->cfgForEnd());
+ FilteredCFGNode < IsDFAFilter > rem_source = source;
+
+ if (DEBUG_MODE) {
+ std::ofstream f("cfg.dot");
+ cfgToDot(f, string("cfg"), source);
+ f.close();
+ }
+
+
+ worklist.push_back(source);
+ vector<FilteredCFGNode<IsDFAFilter> > debug_path;
+ debug_path.push_back(source);
+
+
+ bool valueHasChanged = false;
+ while (!worklist.empty()) {
+ source = worklist.front();
+ worklist.erase(worklist.begin());
+ // do current node
+ SgNode* next = source.getNode();
+ if (doNotVisitMap.find(next)!=doNotVisitMap.end())
+ continue;
+ valueHasChanged = defuse(source);
+ nodeChangedMap[source.getNode()] = valueHasChanged;
+ // do follow-up nodes
+ // get nodes of outgoing edges and pushback (if not already contained)
+ if (DEBUG_MODE) {
+ cout << " Current Node: " << source.getNode() << " changed: "
+ << resBool(valueHasChanged) << endl;
+ cout << " Current Node: " << source.getNode() << endl;
+ }
+ if (valueHasChanged ) {
+ vector<FilteredCFGEdge < IsDFAFilter > > out_edges = source.inEdges();
+ for (vector<FilteredCFGEdge <IsDFAFilter> >::const_iterator i = out_edges.begin(); i != out_edges.end(); ++i) {
+ FilteredCFGEdge<IsDFAFilter> filterEdge = *i;
+ FilteredCFGNode<IsDFAFilter> filterNode = filterEdge.source();
+ if (find(worklist.begin(), worklist.end(), filterNode)==worklist.end()) {
+ worklist.push_back(filterNode);
+ debug_path.push_back(filterNode);
+ }
+ }
+ if (DEBUG_MODE)
+ printCFGVector(worklist);
+ }
+ }
+ nrOfNodesVisitedPF= debug_path.size();
+
+ if (DEBUG_MODE) {
+ cout << " Exiting function " << funcName << endl;
+ cout << "\nNr of nodes visited " << debug_path.size() << " of nodes : " << endl;
+ printCFGVector(debug_path);
+ }
+ return rem_source;
+
+}
Property changes on: trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.cpp
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.h
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.h (rev 0)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,54 @@
+/******************************************
+ * Category: DFA
+ * Liveness Analysis Declaration
+ * created by tps in Nov 2008
+ *****************************************/
+
+#ifndef __LivenessAnalysis_HXX_LOADED__
+#define __LivenessAnalysis_HXX_LOADED__
+#include <string>
+
+#include "filteredCFG.h"
+#include "DefUseAnalysis.h"
+#include "support.h"
+
+#include "DefUseAnalysisAbstract.h"
+
+class LivenessAnalysis : public DefUseAnalysisAbstract {
+ private:
+ SgProject* project;
+ bool DEBUG_MODE;
+
+ SgNode* searchNode;
+
+ public:
+ LivenessAnalysis(bool debug, DefUseAnalysis* dfa_p){
+ dfa=dfa_p;
+ DEBUG_MODE=debug;
+ DEBUG_MODE_EXTRA=false;
+ breakPointForWhile=0;
+ breakPointForWhileNode=NULL;
+
+ };
+ virtual ~LivenessAnalysis() {}
+
+
+ std::map<SgNode*, std::vector<SgInitializedName*> > in;
+ std::map<SgNode*, std::vector<SgInitializedName*> > out;
+
+
+ SgFunctionDefinition* getFunction(SgNode* node);
+
+
+ int nrOfNodesVisitedPF;
+ int breakPointForWhile;
+ SgNode* breakPointForWhileNode;
+
+ template <typename T> bool defuse(T cfgNode);
+ FilteredCFGNode < IsDFAFilter > run(SgFunctionDefinition* function);
+ int getNumberOfNodesVisited();
+
+
+};
+
+#endif
Property changes on: trunk/src/midend/programAnalysis/defUseAnalysis/LivenessAnalysis.h
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/src/midend/programAnalysis/defUseAnalysis/Makefile.am
===================================================================
--- trunk/src/midend/programAnalysis/defUseAnalysis/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/midend/programAnalysis/defUseAnalysis/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -19,7 +19,7 @@
# DQ (11/8/2007): The runTest.cpp file was moved to tests/roseTests/programAnalysisTests/defUseAnalysisTests/runTest.C by Thomas.
# libDefUseAnalysis_la_SOURCES = $(srcdir)/GlobalVarAnalysis.cpp $(srcdir)/DefUseAnalysis.cpp $(srcdir)/DefUseAnalysis_perFunction.cpp $(srcdir)/dfaToDot.cpp $(srcdir)/runTest.cpp
-libDefUseAnalysis_la_SOURCES = $(srcdir)/GlobalVarAnalysis.cpp $(srcdir)/DefUseAnalysis.cpp $(srcdir)/DefUseAnalysis_perFunction.cpp $(srcdir)/dfaToDot.cpp
+libDefUseAnalysis_la_SOURCES = $(srcdir)/GlobalVarAnalysis.cpp $(srcdir)/DefUseAnalysis.cpp $(srcdir)/DefUseAnalysis_perFunction.cpp $(srcdir)/dfaToDot.cpp $(srcdir)/LivenessAnalysis.cpp $(srcdir)/DefUseAnalysisAbstract.cpp
@@ -29,4 +29,4 @@
distclean-local:
rm -rf Templates.DB
-include_HEADERS = DefUseAnalysis.h DefUseAnalysis_perFunction.h DFAFilter.h DFAnalysis.h dfaToDot.h filteredCFG.h filteredCFGImpl.h GlobalVarAnalysis.h support.h
+include_HEADERS = DefUseAnalysis.h DefUseAnalysis_perFunction.h DFAFilter.h DFAnalysis.h dfaToDot.h filteredCFG.h filteredCFGImpl.h GlobalVarAnalysis.h support.h LivenessAnalysis.h DefUseAnalysisAbstract.h
Modified: trunk/src/rose.h
===================================================================
--- trunk/src/rose.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/rose.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -141,5 +141,10 @@
#include "PHPFrontend.h"
+// DQ (11/7/2008): Added Dwarf support to ROSE AST (applies only to binary executables generated with dwarf debugging information).
+#if USE_ROSE_DWARF_SUPPORT
+#include "dwarfSupport.h"
+#endif
+
// ifndef ROSE_H
#endif
Modified: trunk/src/util/stringSupport/string_functions.C
===================================================================
--- trunk/src/util/stringSupport/string_functions.C 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/stringSupport/string_functions.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -17,6 +17,7 @@
#include <sstream> /* std::ostringstream */
#include "string_functions.h"
+#include <boost/lexical_cast.hpp>
// DQ (9/29/2006): This is required for 64-bit g++ 3.4.4 compiler.
#include <errno.h>
@@ -260,39 +261,39 @@
}
string
+StringUtility::numberToString ( long long x )
+ {
+ return boost::lexical_cast<std::string>(x);
+ }
+
+string
+StringUtility::numberToString ( unsigned long long x )
+ {
+ return boost::lexical_cast<std::string>(x);
+ }
+
+string
StringUtility::numberToString ( long x )
{
- // Build a string representing the dimensionOfArrayStatement
- std::ostringstream os;
- os << x;
- return os.str();
+ return boost::lexical_cast<std::string>(x);
}
string
StringUtility::numberToString ( unsigned long x )
{
- // Build a string representing the dimensionOfArrayStatement
- std::ostringstream os;
- os << x;
- return os.str();
+ return boost::lexical_cast<std::string>(x);
}
string
StringUtility::numberToString ( int x )
{
- // Build a string representing the dimensionOfArrayStatement
- std::ostringstream os;
- os << x;
- return os.str();
+ return boost::lexical_cast<std::string>(x);
}
string
StringUtility::numberToString ( unsigned int x )
{
- // Build a string representing the dimensionOfArrayStatement
- std::ostringstream os;
- os << x;
- return os.str();
+ return boost::lexical_cast<std::string>(x);
}
#if 0
Modified: trunk/src/util/stringSupport/string_functions.h
===================================================================
--- trunk/src/util/stringSupport/string_functions.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/stringSupport/string_functions.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -100,6 +100,8 @@
//! Substring replacement function
std::string copyEdit ( const std::string& inputString, const std::string & oldToken, const std::string & newToken );
//! Convert a number to a string
+ std::string numberToString ( long long x );
+ std::string numberToString ( unsigned long long x );
std::string numberToString ( long x );
std::string numberToString ( unsigned long x );
std::string numberToString ( int x );
Modified: trunk/src/util/support/FunctionObject.h
===================================================================
--- trunk/src/util/support/FunctionObject.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/support/FunctionObject.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -33,7 +33,8 @@
virtual bool operator()(const T1& t1, const T2& t2) const = 0;
virtual ~Select2Object() {}
};
-
+//!A container interface to add elements only
+// operator() should be provided in its implementation, such as CollectDoublyLinkedList
template <class T> class CollectObject
{
public:
Modified: trunk/src/util/support/ObserveObject.h
===================================================================
--- trunk/src/util/support/ObserveObject.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/support/ObserveObject.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -6,6 +6,7 @@
#include <PtrSet.h>
#include <string>
+//! Interface to access an observer object
template <class Observer>
class ObserveInfo
{
@@ -15,6 +16,7 @@
virtual ~ObserveInfo() {}
};
+//! A container for Observer
template <class Observer>
class ObserveObject
{
@@ -23,6 +25,7 @@
public:
typedef typename PtrSetWrap<Observer>::const_iterator Iterator;
virtual ~ObserveObject() {}
+
void AttachObserver( Observer *o)
{ assert(!obList.IsMember(o) );
obList.insert( o ); }
Modified: trunk/src/util/support/PtrSet.h
===================================================================
--- trunk/src/util/support/PtrSet.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/support/PtrSet.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -5,7 +5,7 @@
#include <FunctionObject.h>
class VoidPtrSet : public std::set<void*, std::less<void*> > {};
-
+//! A custom container based on std::set for arbitrary pointers of type T
template <class T>
class PtrSetWrap
{
Modified: trunk/src/util/support/SinglyLinkedList.h
===================================================================
--- trunk/src/util/support/SinglyLinkedList.h 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/src/util/support/SinglyLinkedList.h 2008-11-12 23:49:35 UTC (rev 120)
@@ -69,6 +69,7 @@
}
return e;
}
+ //! Prepend an entry to a list
SinglyLinkedEntryWrap<T>* PushFirst( const T& o )
{
++count;
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_176.f03
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_176.f03 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_176.f03 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,4 +1,4 @@
- module mod1
+ module test2007_176_mod1
integer, protected :: val
integer :: age
protected :: age
@@ -13,7 +13,7 @@
end subroutine
end module
program dt_init01
- use mod1
+ use test2007_176_mod1
implicit none
integer :: value, his_age
call set_val(88)
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_236.f90
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_236.f90 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_236.f90 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,15 +1,15 @@
! user defined operator not supported
-MODULE TEST
- INTERFACE OPERATOR (+)
- END INTERFACE
- INTERFACE OPERATOR (-)
- END INTERFACE
- INTERFACE OPERATOR (*)
- END INTERFACE
- INTERFACE OPERATOR (/)
- END INTERFACE
- INTERFACE OPERATOR (.SIN.)
- END INTERFACE
- INTERFACE ASSIGNMENT(=)
- END INTERFACE
-END MODULE TEST
+MODULE test2007_236_TEST
+ INTERFACE OPERATOR (+)
+ END INTERFACE
+ INTERFACE OPERATOR (-)
+ END INTERFACE
+ INTERFACE OPERATOR (*)
+ END INTERFACE
+ INTERFACE OPERATOR (/)
+ END INTERFACE
+ INTERFACE OPERATOR (.SIN.)
+ END INTERFACE
+ INTERFACE ASSIGNMENT(=)
+ END INTERFACE
+END MODULE test2007_236_TEST
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_250.f90
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_250.f90 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_250.f90 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,6 +1,8 @@
-module TEST
+! DQ (11/10/2008): Note module names use file name prefix to for use of
+! unique names and avoid race conditions in mod file generation.
+module test2007_250_TEST
end module
-use TEST
+use test2007_250_TEST
END
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_258.f
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_258.f 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_258.f 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,8 +1,9 @@
- MODULE MAIN_MODULE
- IMPLICIT NONE
- INTEGER i
- CONTAINS
- SUBROUTINE TEST(i)
- REAL :: i
- END SUBROUTINE
- END MODULE
+C Fixed format example using F90 constructs (module).
+ MODULE test2007_258_MAIN_MODULE
+ IMPLICIT NONE
+ INTEGER i
+ CONTAINS
+ SUBROUTINE TEST(i)
+ REAL :: i
+ END SUBROUTINE
+ END MODULE
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_33.f90
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_33.f90 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_33.f90 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,6 +1,8 @@
-module test
+! DQ (11/10/2008): Note module names use file name prefix to for use of
+! unique names and avoid race conditions in mod file generation.
+module test2007_33_test
integer :: i
PRIVATE :: i
-end module test
+end module test2007_33_test
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_37.f03
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_37.f03 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_37.f03 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,6 +1,6 @@
-module test
+module test2007_37_test
integer :: i
protected :: i
-end module test
+end module test2007_37_test
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_40.f90
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_40.f90 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_40.f90 2008-11-12 23:49:35 UTC (rev 120)
@@ -4,10 +4,12 @@
! end subroutine foo
!end interface test
-module test
+! DQ (11/10/2008): Note module names use file name prefix to for use of
+! unique names and avoid race conditions in mod file generation.
+module test2007_40_test
interface A
subroutine foo()
integer :: i
end subroutine foo
end interface A
-end module test
+end module test2007_40_test
Modified: trunk/tests/CompileTests/Fortran_tests/test2007_41.f03
===================================================================
--- trunk/tests/CompileTests/Fortran_tests/test2007_41.f03 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/CompileTests/Fortran_tests/test2007_41.f03 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,4 +1,4 @@
-module test
+module test2007_41_test
interface test_interface
subroutine foo (i)
import
@@ -8,4 +8,4 @@
! end subroutine sub
end subroutine foo
end interface test_interface
-end module test
+end module test2007_41_test
Modified: trunk/tests/roseTests/programAnalysisTests/Makefile.am
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tests/roseTests/programAnalysisTests/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -1,7 +1,7 @@
include $(top_srcdir)/config/Makefile.for.ROSE.includes.and.libs
# Need to add sibdirectory for annotation parser tests as well
-SUBDIRS = testCallGraphAnalysis defUseAnalysisTests staticInterproceduralSlicingTests sideEffectAnalysisTests
+SUBDIRS = testCallGraphAnalysis defUseAnalysisTests variableLivenessTests staticInterproceduralSlicingTests sideEffectAnalysisTests
#ptrTraceDriver
INCLUDES = $(ROSE_INCLUDES) -I$(top_srcdir)/src/midend/programAnalysis -I$(top_srcdir)/src/midend/programAnalysis/pointerAnal -I${top_srcdir}/src/midend/programAnalysis/CFG -I${top_srcdir}/src/midend/programAnalysis/dataflowAnalysis -I$(top_srcdir)/src/util/support -I$(top_srcdir)/src/util/graphs -I$(top_srcdir)/src/midend/astUtil/astSupport -I$(top_srcdir)/src/midend/astUtil/astInterface -I$(top_srcdir)/src/midend/astUtil -I$(top_srcdir)/src/midend/programAnalysis/
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/Makefile.am
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/Makefile.am (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,48 @@
+include $(top_srcdir)/config/Makefile.for.ROSE.includes.and.libs
+
+# To keep compile commands tidy, please ONLY put required include flags here.
+INCLUDES = $(ROSE_INCLUDES)
+
+## Don't use the repository in ../src
+CXX_TEMPLATE_REPOSITORY_PATH = .
+
+# This test program does not require the rest of ROSE so it can be handled locally
+bin_PROGRAMS = runTest
+
+runTest_SOURCES = runTest.C
+
+# testCallGraph_LDADD = $(LIBS_WITH_RPATH) $(ROSE_LIBS)
+runTest_LDADD = $(LIBS_WITH_RPATH) $(ROSE_SEPARATE_LIBS)
+
+TESTCODES = test1.C
+
+# Build the list of object files
+TEST_Objects = ${TESTCODES:.C=.o}
+
+ROSE_FLAGS = -rose:verbose 2
+# ROSE_FLAGS =
+
+TEST_TRANSLATOR = ./runTest all $(ROSE_FLAGS)
+TESTCODE_INCLUDES =
+
+# DQ (7/12/2004): Modified to run with make -j4 options
+$(TEST_Objects): runTest $(TESTCODES)
+ @echo "Compiling test code using $(TEST_TRANSLATOR) ..."
+ env SRCDIR="$(srcdir)" $(TEST_TRANSLATOR)
+
+EXTRA_DIST = $(TESTCODES) tests
+
+# DQ (7/25/2005): The current changes to the AST break these test programs:
+check-local:
+ @$(MAKE) $(TEST_Objects)
+ @echo "*********************************************************************************************************************"
+ @echo "*** ROSE/tests/roseTests/programAnalysisTests/defUseAnalysisTests: make check rule complete (terminated normally) ***"
+ @echo "*********************************************************************************************************************"
+
+
+clean-local:
+ rm -rf $(CXX_TEMPLATE_OBJECTS) *.o rose_*.C *.dot Templates.DB ii_files ti_files DATABASE DATABASE.dot
+
+distclean-local:
+ rm -rf Templates.DB
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/runTest.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/runTest.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/runTest.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,374 @@
+/******************************************
+ * Category: DFA
+ * Application to test the Def-Use Analysis
+ * created by tps in Feb 2007
+ *****************************************/
+
+#include "DefUseAnalysis.h"
+#include "LivenessAnalysis.h"
+#include <string>
+#include <iostream>
+using namespace std;
+
+void testOneFunction( std::string funcParamName,
+ vector<string> argvList,
+ bool debug, int nrOfNodes,
+ multimap <string, int> results,
+ multimap <string, int> useresults) {
+ cout << " \n\n------------------------------------------\nrunning ... " << argvList[1] << endl;
+ // Build the AST used by ROSE
+ SgProject* project = frontend(argvList);
+ // Call the Def-Use Analysis
+ DFAnalysis* defuse = new DefUseAnalysis(project);
+ int val = defuse->run(debug);
+ std::cout << "Analysis run is : " << (val ? "failure" : "success" ) << " " << val << std::endl;
+ if (val==1) exit(1);
+
+ if (debug==false)
+ defuse->dfaToDOT();
+
+
+ LivenessAnalysis* liv = new LivenessAnalysis(debug,(DefUseAnalysis*)defuse);
+
+
+//std::list<SgNode*> vars = NodeQuery::querySubTree(project, V_SgFunctionDefinition);
+//std::list<SgNode*>::const_iterator i = vars.begin();
+ NodeQuerySynthesizedAttributeType vars = NodeQuery::querySubTree(project, V_SgFunctionDefinition);
+ NodeQuerySynthesizedAttributeType::const_iterator i = vars.begin();
+ for (; i!=vars.end();++i) {
+ SgFunctionDefinition* func = isSgFunctionDefinition(*i);
+ std::string name = func->class_name();
+ string funcName = func->get_declaration()->get_qualified_name().str();
+
+ cerr << " running live analysis for func : " << funcName << endl;
+ liv->run(func);
+
+ }
+ std::cout << "Analysis test is success." << std::endl;
+}
+
+
+void runCurrentFile(vector<string> &argvList, bool debug, bool debug_map) {
+ // Build the AST used by ROSE
+ std::cout << ">>>> Starting ROSE frontend ... " << endl;
+ SgProject* project = frontend(argvList);
+ std::cout << ">>>> generate PDF " << endl;
+ generatePDF ( *project );
+ std::cout << ">>>> start def-use analysis ... " << endl;
+
+ // Call the Def-Use Analysis
+ DFAnalysis* defuse = new DefUseAnalysis(project);
+ int val = defuse->run(debug);
+ std::cout << "Analysis is : " << (val ? "failure" : "success" ) << " " << val <<std::endl;
+ if (val==1) exit(1);
+ if (debug==false)
+ defuse->dfaToDOT();
+
+ LivenessAnalysis* liv = new LivenessAnalysis(true,(DefUseAnalysis*)defuse);
+
+ //example usage
+ // testing
+ NodeQuerySynthesizedAttributeType vars = NodeQuery::querySubTree(project, V_SgFunctionDefinition);
+ NodeQuerySynthesizedAttributeType::const_iterator i = vars.begin();
+ for (; i!=vars.end();++i) {
+ SgFunctionDefinition* func = isSgFunctionDefinition(*i);
+ string funcName = func->get_declaration()->get_qualified_name().str();
+ cerr << " running live analysis for func : " << funcName << endl;
+ liv->run(func);
+
+ }
+
+ delete project;
+ delete defuse;
+}
+
+void usage() {
+ cout << " Usage: " << endl;
+ cout << " runTest all [startNr] --- to test all testcases" << endl;
+ cout << " runTest [file] --- to test one file" << endl;
+ exit(1);
+}
+
+int strToInt(string str) {
+ int b;
+ std::stringstream ss(str);
+ ss >> b;
+ return b;
+}
+
+int main( int argc, char * argv[] )
+{
+ if (argc==1) {
+ usage();
+ }
+ string pass = argv[1];
+ if (pass=="--help") {
+ usage();
+ }
+ bool allTests=false;
+ if (pass=="all") {
+ allTests=true;
+ }
+
+ vector<string> argvList(argv, argv + argc);
+
+
+ if (allTests==false) {
+ // change here if you want debug
+ bool debug_map = false;
+ bool debug = false;
+ runCurrentFile(argvList, debug, debug_map);
+ }
+
+ if (allTests==true) {
+ bool debug =false;
+ string startNr = "";
+ if (argc>2)
+ startNr = argv[2];
+ bool testAll = false;
+ int startNrInt = 0;
+ if (startNr=="")
+ testAll=true;
+ else
+ startNrInt = strToInt(startNr);
+ //cout << "start: " << startNrInt << " all: " << testAll << endl;
+
+ argvList.resize(2);
+ argvList[0]=argv[0];
+ multimap <string, int> results;
+ multimap <string, int> useresults;
+
+ char* srcdirVar = getenv("SRCDIR");
+ ROSE_ASSERT (srcdirVar);
+ std::string srcdir = srcdirVar;
+ srcdir += "/";
+
+#if 0
+ if (startNrInt<=1 || testAll) {
+ // ------------------------------ TESTCASE 1 -----------------------------------------
+ argvList[1]=srcdir+"tests/test1.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("a", 8));
+ results.insert(pair<string,int>("a", 17));
+ results.insert(pair<string,int>("c", 18));
+ testOneFunction("::main",argvList, debug, 21, results,useresults);
+ }
+
+ if (startNrInt<=2 || testAll) {
+ // ------------------------------ TESTCASE 2 -----------------------------------------
+ argvList[1]=srcdir+"tests/test2.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("a", 8));
+ results.insert(pair<string,int>("a", 17));
+ results.insert(pair<string,int>("c", 18));
+ testOneFunction("::main",argvList, debug, 19, results,useresults);
+ }
+
+ if (startNrInt<=3 || testAll) {
+ // ------------------------------ TESTCASE 3 -----------------------------------------
+ argvList[1]=srcdir+"tests/test3.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("d", 15));
+ testOneFunction("::main", argvList, debug, 17, results,useresults);
+ }
+
+ if (startNrInt<=4 || testAll) {
+ // ------------------------------ TESTCASE 4 -----------------------------------------
+ argvList[1]=srcdir+"tests/test4.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("::globalvar", 12));
+ testOneFunction("::main", argvList, debug, 14, results, useresults);
+ }
+
+ if (startNrInt<=5 || testAll) {
+ // ------------------------------ TESTCASE 5 -----------------------------------------
+ argvList[1]=srcdir+"tests/test5.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("x", 10));
+ results.insert(pair<string,int>("y", 16));
+ useresults.insert(pair<string,int>("x", 13));
+ testOneFunction("::main", argvList, debug, 18, results, useresults);
+ }
+
+ if (startNrInt<=6 || testAll) {
+ // ------------------------------ TESTCASE 6 -----------------------------------------
+ argvList[1]=srcdir+"tests/test6.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("x", 14));
+ results.insert(pair<string,int>("x", 25));
+ results.insert(pair<string,int>("z", 26));
+ results.insert(pair<string,int>("z", 10));
+ useresults.insert(pair<string,int>("x", 16));
+ useresults.insert(pair<string,int>("z", 22));
+ testOneFunction("::main", argvList, debug, 26, results,useresults);
+ }
+
+ if (startNrInt<=7 || testAll) {
+ // ------------------------------ TESTCASE 7 -----------------------------------------
+ argvList[1]=srcdir+"tests/test7.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("i", 6));
+ results.insert(pair<string,int>("i", 15));
+ useresults.insert(pair<string,int>("i", 8));
+ useresults.insert(pair<string,int>("i", 14));
+ testOneFunction("::main", argvList, debug, 16, results,useresults);
+ }
+
+ if (startNrInt<=8 || testAll) {
+ // ------------------------------ TESTCASE 8 -----------------------------------------
+ argvList[1]=srcdir+"tests/test8.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("x", 24));
+ results.insert(pair<string,int>("i", 12));
+ results.insert(pair<string,int>("i", 32));
+ useresults.insert(pair<string,int>("i", 15));
+ useresults.insert(pair<string,int>("p", 26));
+ useresults.insert(pair<string,int>("x", 28));
+ testOneFunction("::main", argvList, debug, 31, results,useresults);
+ }
+
+ if (startNrInt<=9 || testAll) {
+ // ------------------------------ TESTCASE 9 -----------------------------------------
+ argvList[1]=srcdir+"tests/test9.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("array", 4));
+ results.insert(pair<string,int>("i", 12));
+ results.insert(pair<string,int>("i", 31));
+ useresults.insert(pair<string,int>("i", 15));
+ useresults.insert(pair<string,int>("array", 21));
+ testOneFunction("::main", argvList, debug, 30, results,useresults);
+ }
+
+ if (startNrInt<=10 || testAll) {
+ // ------------------------------ TESTCASE 10 -----------------------------------------
+ argvList[1]=srcdir+"tests/test10.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("z", 13));
+ results.insert(pair<string,int>("z", 22));
+ results.insert(pair<string,int>("res", 23));
+ testOneFunction("::main", argvList, debug, 25, results,useresults);
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("x", 3));
+ results.insert(pair<string,int>("y", 4));
+ results.insert(pair<string,int>("z", 5));
+ testOneFunction("::f2", argvList, debug, 25, results,useresults);
+ }
+
+ if (startNrInt<=11 || testAll) {
+ // ------------------------------ TESTCASE 11 -----------------------------------------
+ argvList[1]=srcdir+"tests/test11.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("z", 19));
+ results.insert(pair<string,int>("z", 63));
+ results.insert(pair<string,int>("z", 73));
+ results.insert(pair<string,int>("p", 24));
+ results.insert(pair<string,int>("i", 28));
+ results.insert(pair<string,int>("i", 56));
+ results.insert(pair<string,int>("j", 41));
+ results.insert(pair<string,int>("j", 77));
+ results.insert(pair<string,int>("res", 42));
+ testOneFunction("::main", argvList, debug, 76, results,useresults);
+ results.clear(); useresults.clear();
+ testOneFunction("::f1", argvList, debug, 76, results,useresults);
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("x", 7));
+ results.insert(pair<string,int>("y", 8));
+ results.insert(pair<string,int>("z", 9));
+ testOneFunction("::f2", argvList, debug, 76, results,useresults);
+ }
+
+ if (startNrInt<=13 || testAll) {
+ // ------------------------------ TESTCASE 13 -----------------------------------------
+ argvList[1]=srcdir+"tests/test13.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("::global", 7));
+ testOneFunction("::main", argvList, debug, 9, results,useresults);
+ }
+
+ if (startNrInt<=14 || testAll) {
+ // ------------------------------ TESTCASE 14 -----------------------------------------
+ argvList[1]=srcdir+"tests/test14.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("a", 12));
+ results.insert(pair<string,int>("b", 6));
+ testOneFunction("::main", argvList, debug, 14, results,useresults);
+ }
+
+ if (startNrInt<=15 || testAll) {
+ // ------------------------------ TESTCASE 15 -----------------------------------------
+ argvList[1]=srcdir+"tests/test15.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("i", 12));
+ results.insert(pair<string,int>("i", 26));
+ results.insert(pair<string,int>("index", 26));
+ results.insert(pair<string,int>("index", 8));
+ testOneFunction("::main", argvList, debug, 26, results,useresults);
+ }
+
+ if (startNrInt<=18 || testAll) {
+ // ------------------------------ TESTCASE 18 -----------------------------------------
+ argvList[1]=srcdir+"tests/test18.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("i", 12));
+ results.insert(pair<string,int>("i", 49));
+ results.insert(pair<string,int>("p", 8));
+ results.insert(pair<string,int>("p", 46));
+ results.insert(pair<string,int>("x", 24));
+ results.insert(pair<string,int>("z", 39));
+ results.insert(pair<string,int>("e", 41));
+ useresults.insert(pair<string,int>("i", 15));
+ useresults.insert(pair<string,int>("x", 28));
+ testOneFunction("::main", argvList, debug, 48, results,useresults);
+ }
+
+ if (startNrInt<=19 || testAll) {
+ // ------------------------------ TESTCASE 19 -----------------------------------------
+ argvList[1]=srcdir+"tests/test19.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("::global", 2));
+ results.insert(pair<string,int>("::global", 8));
+ results.insert(pair<string,int>("::global2", 28));
+ results.insert(pair<string,int>("a", 24));
+ testOneFunction("::main", argvList, debug, 30, results,useresults);
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("::global", 8));
+ results.insert(pair<string,int>("::global2", 12));
+ testOneFunction("::setMe", argvList, debug, 30, results,useresults);
+ }
+
+ if (startNrInt<=20 || testAll) {
+ // ------------------------------ TESTCASE 1 -----------------------------------------
+ argvList[1]=srcdir+"tests/test20.C";
+ results.clear(); useresults.clear();
+ testOneFunction("::bar",argvList, debug, 5, results,useresults);
+ }
+
+ if (startNrInt<=21 || testAll) {
+ // ------------------------------ TESTCASE 1 -----------------------------------------
+ argvList[1]=srcdir+"tests/test21.C";
+ results.clear(); useresults.clear();
+ testOneFunction("::func",argvList, debug, 9, results,useresults);
+ }
+
+ if (startNrInt<=22 || testAll) {
+ // ------------------------------ TESTCASE 1 -----------------------------------------
+ argvList[1]=srcdir+"tests/test22.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("b", 7));
+ testOneFunction("::func",argvList, debug, 12, results,useresults);
+ }
+
+ if (startNrInt<=23 || testAll) {
+ // ------------------------------ TESTCASE 1 -----------------------------------------
+ argvList[1]=srcdir+"tests/test23.C";
+ results.clear(); useresults.clear();
+ results.insert(pair<string,int>("a",11));
+ testOneFunction("::func",argvList, debug, 30, results,useresults);
+ }
+#endif
+ }
+
+ cout << ">> TEST END ... " << endl;
+ argvList.clear();
+ return 0;
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/test1.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/test1.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/test1.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,17 @@
+
+int main()
+ {
+ /*
+ int x = 42; // defined and live
+ int g = 0; // live
+ int y = x; // line in, not live out
+ return 0;
+ */
+
+ int x;
+ for (int i=0; i<10;++i) {
+ x= 2;
+ int y=x+1;
+ }
+ x=10;
+ }
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/mpi.c
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/mpi.c (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/mpi.c 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,120 @@
+/******************************************************************************
+* FILE: mpl.ex1.c
+* DESCRIPTION:
+* In this simple example, the master task initiates numtasks-1 number of
+* worker tasks. It then distributes an equal portion of an array to each
+* worker task. Each worker task receives its portion of the array, and
+* performs a simple value assignment to each of its elements. The value
+* assigned to each element is simply that element's index in the array+1.
+* Each worker task then sends its portion of the array back to the master
+* task. As the master receives back each portion of the array, selected
+* elements are displayed.
+* AUTHOR: Blaise Barney
+* LAST REVISED: 09/14/93 for latest API changes Blaise Barney
+* LAST REVISED: 01/10/94 changed API to MPL Stacy Pendell
+* CONVERTED TO MPI: 11/12/94 by Xianneng Shen
+****************************************************************************/
+
+typedef unsigned int size_t;
+#include <stdio.h>
+#include "mpi.h"
+#define ARRAYSIZE 60000
+#define MASTER 0 /* taskid of first process */
+
+MPI_Status status;
+main(int argc, char **argv)
+{
+int numtasks, /* total number of MPI process in partitiion */
+ numworkers, /* number of worker tasks */
+ taskid, /* task identifier */
+ dest, /* destination task id to send message */
+ index, /* index into the array */
+ i, /* loop variable */
+ arraymsg = 1, /* setting a message type */
+ indexmsg = 2, /* setting a message type */
+ source, /* origin task id of message */
+ chunksize; /* for partitioning the array */
+float data[ARRAYSIZE], /* the intial array */
+ result[ARRAYSIZE]; /* for holding results of array operations */
+
+/************************* initializations ***********************************
+* Find out how many tasks are in this partition and what my task id is. Then
+* define the number of worker tasks and the array partition size as chunksize.
+* Note: For this example, the MP_PROCS environment variable should be set
+* to an odd number...to insure even distribution of the array to numtasks-1
+* worker tasks.
+******************************************************************************/
+MPI_Init(&argc, &argv);
+MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
+MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
+numworkers = numtasks-1;
+chunksize = (ARRAYSIZE / numworkers);
+
+/**************************** master task ************************************/
+if (taskid == MASTER) {
+ printf("\n*********** Starting MPI Example 1 ************\n");
+ printf("MASTER: number of worker tasks will be= %d\n",numworkers);
+ fflush(stdout);
+
+ /* Initialize the array */
+ for(i=0; i<ARRAYSIZE; i++)
+ data[i] = 0.0;
+ index = 0;
+
+ /* Send each worker task its portion of the array */
+ for (dest=1; dest<= numworkers; dest++) {
+ printf("Sending to worker task= %d\n",dest);
+ fflush(stdout);
+ #pragma SliceTarget
+ MPI_Send(&index, 1, MPI_INT, dest, 0, MPI_COMM_WORLD);
+ #pragma SliceTarget
+ MPI_Send(&data[index], chunksize, MPI_FLOAT, dest, 0, MPI_COMM_WORLD);
+ index = index + chunksize;
+ }
+
+ /* Now wait to receive back the results from each worker task and print */
+ /* a few sample values */
+ for (i=1; i<= numworkers; i++) {
+ source = i;
+ #pragma SliceTarget
+ MPI_Recv(&index, 1, MPI_INT, source, 1, MPI_COMM_WORLD, &status);
+ #pragma SliceTarget
+ MPI_Recv(&result[index], chunksize, MPI_FLOAT, source, 1, MPI_COMM_WORLD,
+ &status);
+
+ printf("---------------------------------------------------\n");
+ printf("MASTER: Sample results from worker task = %d\n",source);
+ printf(" result[%d]=%f\n", index, result[index]);
+ printf(" result[%d]=%f\n", index+100, result[index+100]);
+ printf(" result[%d]=%f\n\n", index+1000, result[index+1000]);
+ fflush(stdout);
+ }
+
+ printf("MASTER: All Done! \n");
+ }
+
+
+/**************************** worker task ************************************/
+if (taskid > MASTER) {
+ /* Receive my portion of array from the master task */
+ source = MASTER;
+ #pragma SliceTarget
+ MPI_Recv(&index, 1, MPI_INT, source, 0, MPI_COMM_WORLD, &status);
+ #pragma SliceTarget
+ MPI_Recv(&result[index], chunksize, MPI_FLOAT, source, 0,
+ MPI_COMM_WORLD, &status);
+ /* Do a simple value assignment to each of my array elements */
+ for(i=index; i < index + chunksize; i++)
+ result[i] = i + 1;
+
+ /* Send my results back to the master task */
+
+ #pragma SliceTarget
+ MPI_Send(&index, 1, MPI_INT, MASTER, 1, MPI_COMM_WORLD);
+ #pragma SliceTarget
+ MPI_Send(&result[index], chunksize, MPI_FLOAT, MASTER, 1, MPI_COMM_WORLD);
+
+ }
+ #pragma SliceTarget
+ MPI_Finalize();
+}
Property changes on: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/mpi.c
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,7 @@
+
+int main(int argc, char* argv) {
+ int a=2;
+ if (true) { a=4; }
+ int c=4;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.output
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.output (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test1.output 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,3061 @@
+>>>> Starting ROSE frontend ...
+ >> Class name: SgFile
+
+ >>> Using Information relative to other declaration:
+
+ >> File-Name: /home/panas2/development/dataflow/tests/test1.c
+Inside of propagateHiddenListData (node = 0xb7ef5008 = SgFile)
+Frontend Warnings only: errorCode = 2
+>>>> generate PDF
+>>>> start def-use analysis ...
+START: DefUse Analysis True
+START: Finding global variables
+ Amount of global variables : 0
+ -----------------------------------------------------------------*
+
+
+FINISH: Finding global variables
+
+ **************** MAP **************************
+START: Traversal over Functions
+Warning: can't locate an associated SgStatement from astNode = 0x9875458 = SgTypeInt parentNode = 0x9875458 = SgTypeInt
+Warning: can't locate an associated SgStatement from astNode = 0x9881070 = SgPointerType parentNode = 0x9881070 = SgPointerType
+ Found function ::main(int, char *)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16008 previous Node : 0
+
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FUNCTION %%%%%%
+
+ found global vars: 0 funEntry true
+ Current Node: 0xb7e16008 changed: true
+ Current Node: 0xb7e16008 unhandled: false
+
+!! Worklist : - <SgInitializedName> argc :0
+
+
+------------------------------------------------------------------
+current Node: 0x98465c8 previous Node : 0xb7e16008
+ ********** INITNAME. 0x98465c8
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98465c8 : SgInitializedName : argc
+ ---- JUSTCOPY. 0x98465c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- IS USE. CHANGED TABLE ? false
+ ---- JUSTCOPY. 0x98465c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ---- JUSTCOPY. 0x98465c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argc nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x98465c8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+ Current Node: 0x98465c8 changed: true
+ Current Node: 0x98465c8 unhandled: false
+
+!! Worklist : - <SgInitializedName> argv :0
+
+
+------------------------------------------------------------------
+current Node: 0x9846620 previous Node : 0x98465c8
+ ********** INITNAME. 0x9846620
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9846620 : SgInitializedName : argv
+ ---- JUSTCOPY. 0x9846620
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9846620
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ---- JUSTCOPY. 0x9846620
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argv nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9846620
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9846620 changed: true
+ Current Node: 0x9846620 unhandled: false
+
+!! Worklist : - <SgFunctionParameterList> :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7e625ac previous Node : 0x9846620
+ ********** UNHANDLED. This is an unhandled node SgFunctionParameterList
+ ---- JUSTCOPY. 0xb7e625ac
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e625ac
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e625ac changed: false
+ Current Node: 0xb7e625ac unhandled: true
+
+!! Worklist : - <SgInitializedName> a :0
+
+
+------------------------------------------------------------------
+current Node: 0x9846678 previous Node : 0xb7e625ac
+ ********** INITNAME. 0x9846678
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9846678 : SgInitializedName : a
+ ---- JUSTCOPY. 0x9846678
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9846678
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9846678
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: a nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9846678
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9846678 changed: true
+ Current Node: 0x9846678 unhandled: false
+
+!! Worklist : - <SgIntVal> 2 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9901000 previous Node : 0x9846678
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9901000
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9901000
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 4 var: SgFunctionParameterList
+ Current Node: 0x9901000 changed: false
+ Current Node: 0x9901000 unhandled: true
+
+!! Worklist : - <SgAssignInitializer> 2 :1
+
+
+------------------------------------------------------------------
+current Node: 0x990db28 previous Node : 0x9901000
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x990db28
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990db28 : SgAssignInitializer : a
+ ---- JUSTCOPY. 0x990db28
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x990db28
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x990db28
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : a nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x990db28 changed: true
+ Current Node: 0x990db28 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int a = 2; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7dd4008 previous Node : 0x990db28
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7dd4008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7dd4008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 8 var: SgVariableDeclaration
+7: 4 var: SgFunctionParameterList
+ Current Node: 0xb7dd4008 changed: false
+ Current Node: 0xb7dd4008 unhandled: true
+
+!! Worklist : - <SgBoolValExp> true :0
+
+
+------------------------------------------------------------------
+current Node: 0x9939c58 previous Node : 0xb7dd4008
+ ********** UNHANDLED. This is an unhandled node SgBoolValExp
+ ---- JUSTCOPY. 0x9939c58
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9939c58
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: SgBoolValExp
+7: 8 var: SgVariableDeclaration
+8: 4 var: SgFunctionParameterList
+ Current Node: 0x9939c58 changed: false
+ Current Node: 0x9939c58 unhandled: true
+
+!! Worklist : - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0x99457e0 previous Node : 0x9939c58
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x99457e0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x99457e0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: SgBoolValExp
+7: 10 var: SgExprStatement
+8: 8 var: SgVariableDeclaration
+9: 4 var: SgFunctionParameterList
+ Current Node: 0x99457e0 changed: false
+ Current Node: 0x99457e0 unhandled: true
+
+!! Worklist : - <SgIfStmt> if(true) {a = 4;}els... :1
+
+
+------------------------------------------------------------------
+current Node: 0x991a6d8 previous Node : 0x99457e0
+ ********** UNHANDLED. This is an unhandled node SgIfStmt
+ ---- JUSTCOPY. 0x991a6d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x991a6d8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 11 var: SgIfStmt
+7: 9 var: SgBoolValExp
+8: 10 var: SgExprStatement
+9: 8 var: SgVariableDeclaration
+10: 4 var: SgFunctionParameterList
+ Current Node: 0x991a6d8 changed: false
+ Current Node: 0x991a6d8 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0
+
+
+------------------------------------------------------------------
+current Node: 0x994f540 previous Node : 0x991a6d8
+ ********** VARREFEXP. 0x994f540 .. a
+ nr for that node ( a) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x994f540 : SgVarRefExp : a
+ ---- JUSTCOPY. 0x994f540
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x994f540
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 11 var: SgIfStmt
+7: 9 var: SgBoolValExp
+8: 10 var: SgExprStatement
+9: 12 var: a
+10: 8 var: SgVariableDeclaration
+11: 4 var: SgFunctionParameterList
+ Current Node: 0x994f540 changed: true
+ Current Node: 0x994f540 unhandled: false
+
+!! Worklist : - <SgInitializedName> c :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98466d0 previous Node : 0x9945808
+ ********** INITNAME. 0x98466d0
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98466d0 : SgInitializedName : c
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 11 var: SgIfStmt
+8: 9 var: SgBoolValExp
+9: 10 var: SgExprStatement
+10: 12 var: a
+11: 8 var: SgVariableDeclaration
+12: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 11 var: SgIfStmt
+8: 9 var: SgBoolValExp
+9: 10 var: SgExprStatement
+10: 12 var: a
+11: 8 var: SgVariableDeclaration
+12: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: c nrInEdges: 2
+ ----- changed table (multi incoming) entry to 0x98466d0 .. otherNode: 0x991a6d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98466d0 changed: true
+ Current Node: 0x98466d0 unhandled: false
+
+!! Worklist : - <SgIntVal> 4 :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9901034 previous Node : 0x994f540
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9901034
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9901034
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 11 var: SgIfStmt
+9: 9 var: SgBoolValExp
+10: 10 var: SgExprStatement
+11: 12 var: a
+12: 8 var: SgVariableDeclaration
+13: 4 var: SgFunctionParameterList
+ Current Node: 0x9901034 changed: false
+ Current Node: 0x9901034 unhandled: true
+
+!! Worklist : - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2
+
+
+------------------------------------------------------------------
+current Node: 0x9901068 previous Node : 0x98466d0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9901068
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9901068
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgIfStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 8 var: SgVariableDeclaration
+14: 4 var: SgFunctionParameterList
+ Current Node: 0x9901068 changed: false
+ Current Node: 0x9901068 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1
+
+
+------------------------------------------------------------------
+current Node: 0x995a1a0 previous Node : 0x9901034
+ ********** BINARY OP. 0x995a1a0
+ ********** BINARY OP IS_VAR_REF_EXP.
+ BINARY OP: a name: 0x9846678 varRefExp: 0x994f540
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x995a1a0 : SgAssignOp : a
+ ---- JUSTCOPY. 0x995a1a0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x995a1a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgIfStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 16 var: SgAssignOp
+14: 8 var: SgVariableDeclaration
+15: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x995a1a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgIfStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 16 var: SgAssignOp
+14: 8 var: SgVariableDeclaration
+15: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : a nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x995a1a0 changed: true
+ Current Node: 0x995a1a0 unhandled: false
+
+!! Worklist : - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x990db5c previous Node : 0x9901068
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x990db5c
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990db5c : SgAssignInitializer : c
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 12 var: a
+14: 16 var: SgAssignOp
+15: 8 var: SgVariableDeclaration
+16: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 12 var: a
+14: 16 var: SgAssignOp
+15: 8 var: SgVariableDeclaration
+16: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : c nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x990db5c changed: true
+ Current Node: 0x990db5c unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9945808 previous Node : 0x995a1a0
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9945808
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9945808
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 4 var: SgFunctionParameterList
+ Current Node: 0x9945808 changed: false
+ Current Node: 0x9945808 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgInitializedName> c :0
+
+
+------------------------------------------------------------------
+current Node: 0xb7dd4114 previous Node : 0x990db5c
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7dd4114
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7dd4114
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 4 var: SgFunctionParameterList
+ Current Node: 0xb7dd4114 changed: false
+ Current Node: 0xb7dd4114 unhandled: true
+
+!! Worklist : - <SgInitializedName> c :0 - <SgIntVal> 0 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98466d0 previous Node : 0x9945808
+ ********** INITNAME. 0x98466d0
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98466d0 : SgInitializedName : c
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98466d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgIfStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: c nrInEdges: 2
+ ----- changed table (multi incoming) entry to 0x98466d0 .. otherNode: 0x991a6d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98466d0 changed: true
+ Current Node: 0x98466d0 unhandled: false
+
+!! Worklist : - <SgIntVal> 0 :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x990109c previous Node : 0xb7dd4114
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x990109c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+18: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x990109c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 8 var: SgVariableDeclaration
+18: 19 var: SgVariableDeclaration
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x990109c changed: false
+ Current Node: 0x990109c unhandled: true
+
+!! Worklist : - <SgIntVal> 4 :0 - <SgReturnStmt> return 0; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9901068 previous Node : 0x98466d0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9901068
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+18: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9901068
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 8 var: SgVariableDeclaration
+18: 19 var: SgVariableDeclaration
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x9901068 changed: false
+ Current Node: 0x9901068 unhandled: true
+
+!! Worklist : - <SgReturnStmt> return 0; :1 - <SgAssignInitializer> 4 :1
+
+
+------------------------------------------------------------------
+current Node: 0x9966e78 previous Node : 0x990109c
+ ********** UNHANDLED. This is an unhandled node SgReturnStmt
+ ---- JUSTCOPY. 0x9966e78
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+20: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9966e78
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 4 var: SgFunctionParameterList
+ Current Node: 0x9966e78 changed: false
+ Current Node: 0x9966e78 unhandled: true
+
+!! Worklist : - <SgAssignInitializer> 4 :1 - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0x990db5c previous Node : 0x9901068
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x990db5c
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990db5c : SgAssignInitializer : c
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+20: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x990db5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : c nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+20: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x990db5c changed: true
+ Current Node: 0x990db5c unhandled: false
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16008 previous Node : 0x9966e78
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16008 changed: false
+ Current Node: 0xb7e16008 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7dd4114 previous Node : 0x990db5c
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7dd4114
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7dd4114
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
+ Current Node: 0xb7dd4114 changed: false
+ Current Node: 0xb7dd4114 unhandled: true
+
+!! Worklist : - <SgIntVal> 0 :0
+
+
+------------------------------------------------------------------
+current Node: 0x990109c previous Node : 0xb7dd4114
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x990109c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x990109c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
+ Current Node: 0x990109c changed: false
+ Current Node: 0x990109c unhandled: true
+
+!! Worklist : - <SgReturnStmt> return 0; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9966e78 previous Node : 0x990109c
+ ********** UNHANDLED. This is an unhandled node SgReturnStmt
+ ---- JUSTCOPY. 0x9966e78
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9966e78
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
+ Current Node: 0x9966e78 changed: false
+ Current Node: 0x9966e78 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16008 previous Node : 0x9966e78
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16008 changed: false
+ Current Node: 0xb7e16008 unhandled: true
+
+!! Worklist :
+ Elements in Table: 21
+ Exiting function ::main(int, char *)
+
+Nr of nodes visited 29 of nodes : 21
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :0 - <SgInitializedName> argc :0 - <SgInitializedName> argv :0 - <SgFunctionParameterList> :2 - <SgInitializedName> a :0 - <SgIntVal> 2 :0 - <SgAssignInitializer> 2 :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int a = 2; :1 - <SgBoolValExp> true :0 - <SgExprStatement> true; :1 - <SgIfStmt> if(true) {a = 4;}els... :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0 - <SgIntVal> 4 :0 - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgInitializedName> c :0 - <SgIntVal> 0 :0 - <SgIntVal> 4 :0 - <SgReturnStmt> return 0; :1 - <SgAssignInitializer> 4 :1 - <SgFunctionDefinition> int main(int argc,ch... :2Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgIntVal> 0 :0 - <SgReturnStmt> return 0; :1 - <SgFunctionDefinition> int main(int argc,ch... :2
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98e29d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+FINISH: Traversal over Functions
+
+
+>>>>> Time for dfa-test: 0.17 sec
+>>>>> Total CFG nodes: 21 -- #CFG nodes visited: 29
+FINISH: DefUse Analysis True
+Analysis is : success
+ DEF>> Vector entries for argc ( 0x98465c8 ) : 1
+ DEF>> Vector entries for argv ( 0x9846620 ) : 1
+ DEF>> Vector entries for a ( 0x9846678 ) : 1
+ DEF>> Vector entries for c ( 0x98466d0 ) : 1
+
+DEFMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 20 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+9: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+11: 11 var: SgIfStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+17: 21 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+19: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+20: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+21: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+
+USEMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 20 var: SgIntVal
+9: 7 var: SgAssignInitializer
+10: 17 var: SgAssignInitializer
+11: 11 var: SgIfStmt
+12: 9 var: SgBoolValExp
+13: 10 var: SgExprStatement
+14: 18 var: SgExprStatement
+15: 12 var: a
+16: 16 var: SgAssignOp
+17: 21 var: SgReturnStmt
+18: 8 var: SgVariableDeclaration
+19: 19 var: SgVariableDeclaration
+20: 1 var: SgFunctionDefinition
+21: 4 var: SgFunctionParameterList
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test10.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test10.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test10.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,7 @@
+int f2(int *x, int y, int z) { return 2;}
+
+int main()
+{
+ int z = 1;
+ int res = f2(&z, 5, z);
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test11.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test11.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test11.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,15 @@
+int f1() {return 1;}
+int f2(int *x, int y, int z) { return 2;}
+
+int main()
+{
+ int z = f1();
+ int* p = &z;
+ for (int i=0;i<10;i++) {
+ for (int j=i; j<10; j++) {
+ z = f2(&z, 5, z);
+ *p = f2(&z, 5, z);
+ }
+ }
+ int res = *p;
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test12.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test12.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test12.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,23 @@
+#include <stdio.h>
+
+struct {
+ int struct_x;
+} my_struct;
+
+class A {
+ public:
+ A();
+ int class_x;
+
+};
+
+int main()
+{
+ int i=0;
+ A* a = new A();
+ a->class_x = 5;
+ my_struct.struct_x = 2;
+
+ printf("Print with only text\n");
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test13.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test13.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test13.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6 @@
+int global;
+int main()
+{
+ global=1;
+ return 0;
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test14.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test14.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test14.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,7 @@
+
+#define foo 100
+
+int main() {
+ int a,b;
+ a = (foo + b);
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test15.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test15.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test15.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,9 @@
+
+int f1(int* x, int*r) {};
+
+int main() {
+ int index,i=0;
+ while (i) {
+ f1(&index,&i);
+ }
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test16.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test16.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test16.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,13 @@
+
+#include <stdio.h>
+#include "mpi.h"
+
+#define HAND 5
+
+int main() {
+ int index,i=0;
+ while (i) {
+ MPI_Send(&index, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
+ //printf("Hellow world", &index, &HAND);
+ }
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test17.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test17.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test17.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,63 @@
+typedef unsigned int size_t;
+#include "mpi.h"
+#define ARRAYSIZE 60000
+#define MASTER 0 /* taskid of first process */
+
+MPI_Status status;
+main(int argc, char **argv)
+{
+ int numtasks, /* total number of MPI process in partitiion */
+ numworkers, /* number of worker tasks */
+ taskid, /* task identifier */
+ dest, /* destination task id to send message */
+ index, /* index into the array */
+ i, /* loop variable */
+ source, /* origin task id of message */
+ chunksize; /* for partitioning the array */
+ float data[ARRAYSIZE], /* the intial array */
+ result[ARRAYSIZE]; /* for holding results of array operations */
+
+ MPI_Init(&argc, &argv);
+ MPI_Comm_rank(MPI_COMM_WORLD, &taskid);
+ MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
+ numworkers = numtasks-1;
+ chunksize = (ARRAYSIZE / numworkers);
+
+ if (taskid == MASTER) {
+
+ for(i=0; i<ARRAYSIZE; i++)
+ data[i] = 0.0;
+ index = 0;
+
+ for (dest=1; dest<= numworkers; dest++) {
+ MPI_Send(&index, 1, MPI_INT, dest, 0, MPI_COMM_WORLD);
+ MPI_Send(&data[index], chunksize, MPI_FLOAT, dest, 0, MPI_COMM_WORLD);
+ index = index + chunksize;
+ }
+
+ for (i=1; i<= numworkers; i++) {
+ source = i;
+ MPI_Recv(&index, 1, MPI_INT, source, 1, MPI_COMM_WORLD, &status);
+ MPI_Recv(&result[index], chunksize, MPI_FLOAT, source, 1, MPI_COMM_WORLD,
+ &status);
+
+ }
+
+ }
+
+
+ if (taskid > MASTER) {
+ source = MASTER;
+ MPI_Recv(&index, 1, MPI_INT, source, 0, MPI_COMM_WORLD, &status);
+ MPI_Recv(&result[index], chunksize, MPI_FLOAT, source, 0,
+ MPI_COMM_WORLD, &status);
+ for(i=index; i < index + chunksize; i++)
+ result[i] = i + 1;
+
+
+ MPI_Send(&index, 1, MPI_INT, MASTER, 1, MPI_COMM_WORLD);
+ MPI_Send(&result[index], chunksize, MPI_FLOAT, MASTER, 1, MPI_COMM_WORLD);
+
+ }
+ MPI_Finalize();
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test18.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test18.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test18.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,16 @@
+
+int main()
+{
+ int i=0;
+ int* p;
+ for (i=0;i<10;i++)
+ {
+ int x = i;
+ *p = x;
+ *p = i;
+ int z = *p;
+ //++p;
+ int e;
+ p = &i;
+ }
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test19.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test19.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test19.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,16 @@
+int global;
+int global2=3;
+void setMe()
+{
+ global=1;
+ global2=3;
+}
+
+main()
+{
+ int a;
+ setMe();
+ a=global;
+ global2=0;
+
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6 @@
+int main(int argc, char **argv) {
+ int a=2;
+ while (true) { a=4; }
+ int c=4;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.output
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.output (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test2.output 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,4823 @@
+>>>> Starting ROSE frontend ...
+ >> Class name: SgFile
+
+ >>> Using Information relative to other declaration:
+
+ >> File-Name: /home/panas2/development/dataflow/tests/test2.c
+Inside of propagateHiddenListData (node = 0xb7f37008 = SgFile)
+Frontend Warnings only: errorCode = 2
+>>>> generate PDF
+>>>> start def-use analysis ...
+START: DefUse Analysis True
+START: Finding global variables
+ Amount of global variables : 0
+ -----------------------------------------------------------------*
+
+
+FINISH: Finding global variables
+
+ **************** MAP **************************
+START: Traversal over Functions
+Warning: can't locate an associated SgStatement from astNode = 0x9833458 = SgTypeInt parentNode = 0x9833458 = SgTypeInt
+Warning: can't locate an associated SgStatement from astNode = 0x983f640 = SgPointerType parentNode = 0x983f640 = SgPointerType
+ Found function ::main(int, char **)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+
+
+------------------------------------------------------------------
+current Node: 0xb7e58008 previous Node : 0
+
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FUNCTION %%%%%%
+
+ found global vars: 0 funEntry true
+ Current Node: 0xb7e58008 changed: true
+ Current Node: 0xb7e58008 unhandled: false
+
+!! Worklist : - <SgInitializedName> argc :0
+
+
+------------------------------------------------------------------
+current Node: 0x98045c8 previous Node : 0xb7e58008
+ ********** INITNAME. 0x98045c8
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98045c8 : SgInitializedName : argc
+ ---- JUSTCOPY. 0x98045c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- IS USE. CHANGED TABLE ? false
+ ---- JUSTCOPY. 0x98045c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ---- JUSTCOPY. 0x98045c8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argc nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x98045c8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+ Current Node: 0x98045c8 changed: true
+ Current Node: 0x98045c8 unhandled: false
+
+!! Worklist : - <SgInitializedName> argv :0
+
+
+------------------------------------------------------------------
+current Node: 0x9804620 previous Node : 0x98045c8
+ ********** INITNAME. 0x9804620
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9804620 : SgInitializedName : argv
+ ---- JUSTCOPY. 0x9804620
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9804620
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ---- JUSTCOPY. 0x9804620
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argv nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9804620
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9804620 changed: true
+ Current Node: 0x9804620 unhandled: false
+
+!! Worklist : - <SgFunctionParameterList> :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7ea45ac previous Node : 0x9804620
+ ********** UNHANDLED. This is an unhandled node SgFunctionParameterList
+ ---- JUSTCOPY. 0xb7ea45ac
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7ea45ac
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 4 var: SgFunctionParameterList
+ Current Node: 0xb7ea45ac changed: false
+ Current Node: 0xb7ea45ac unhandled: true
+
+!! Worklist : - <SgInitializedName> a :0
+
+
+------------------------------------------------------------------
+current Node: 0x9804678 previous Node : 0xb7ea45ac
+ ********** INITNAME. 0x9804678
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9804678 : SgInitializedName : a
+ ---- JUSTCOPY. 0x9804678
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9804678
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9804678
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: a nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9804678
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9804678 changed: true
+ Current Node: 0x9804678 unhandled: false
+
+!! Worklist : - <SgIntVal> 2 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98bf000 previous Node : 0x9804678
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf000
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf000
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf000 changed: false
+ Current Node: 0x98bf000 unhandled: true
+
+!! Worklist : - <SgAssignInitializer> 2 :1
+
+
+------------------------------------------------------------------
+current Node: 0x98cbb28 previous Node : 0x98bf000
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x98cbb28
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98cbb28 : SgAssignInitializer : a
+ ---- JUSTCOPY. 0x98cbb28
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98cbb28
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98cbb28
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : a nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98cbb28 changed: true
+ Current Node: 0x98cbb28 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int a = 2; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16008 previous Node : 0x98cbb28
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 8 var: SgVariableDeclaration
+7: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16008 changed: false
+ Current Node: 0xb7e16008 unhandled: true
+
+!! Worklist : - <SgBoolValExp> true :0
+
+
+------------------------------------------------------------------
+current Node: 0x98f6cb8 previous Node : 0xb7e16008
+ ********** UNHANDLED. This is an unhandled node SgBoolValExp
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: SgBoolValExp
+7: 8 var: SgVariableDeclaration
+8: 4 var: SgFunctionParameterList
+ Current Node: 0x98f6cb8 changed: false
+ Current Node: 0x98f6cb8 unhandled: true
+
+!! Worklist : - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9902840 previous Node : 0x98f6cb8
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: SgBoolValExp
+7: 10 var: SgExprStatement
+8: 8 var: SgVariableDeclaration
+9: 4 var: SgFunctionParameterList
+ Current Node: 0x9902840 changed: false
+ Current Node: 0x9902840 unhandled: true
+
+!! Worklist : - <SgWhileStmt> while(true){a = 4;} :1
+
+
+------------------------------------------------------------------
+current Node: 0x98d86d8 previous Node : 0x9902840
+ ********** UNHANDLED. This is an unhandled node SgWhileStmt
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 11 var: SgWhileStmt
+7: 9 var: SgBoolValExp
+8: 10 var: SgExprStatement
+9: 8 var: SgVariableDeclaration
+10: 4 var: SgFunctionParameterList
+ Current Node: 0x98d86d8 changed: false
+ Current Node: 0x98d86d8 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0
+
+
+------------------------------------------------------------------
+current Node: 0x990c5a0 previous Node : 0x98d86d8
+ ********** VARREFEXP. 0x990c5a0 .. a
+ nr for that node ( a) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990c5a0 : SgVarRefExp : a
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+6: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 11 var: SgWhileStmt
+7: 9 var: SgBoolValExp
+8: 10 var: SgExprStatement
+9: 12 var: a
+10: 8 var: SgVariableDeclaration
+11: 4 var: SgFunctionParameterList
+ Current Node: 0x990c5a0 changed: true
+ Current Node: 0x990c5a0 unhandled: false
+
+!! Worklist : - <SgInitializedName> c :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98046d0 previous Node : 0x98d86d8
+ ********** INITNAME. 0x98046d0
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98046d0 : SgInitializedName : c
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 11 var: SgWhileStmt
+8: 9 var: SgBoolValExp
+9: 10 var: SgExprStatement
+10: 12 var: a
+11: 8 var: SgVariableDeclaration
+12: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 11 var: SgWhileStmt
+8: 9 var: SgBoolValExp
+9: 10 var: SgExprStatement
+10: 12 var: a
+11: 8 var: SgVariableDeclaration
+12: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: c nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98046d0 changed: true
+ Current Node: 0x98046d0 unhandled: false
+
+!! Worklist : - <SgIntVal> 4 :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98bf034 previous Node : 0x990c5a0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf034
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+8: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf034
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 11 var: SgWhileStmt
+9: 9 var: SgBoolValExp
+10: 10 var: SgExprStatement
+11: 12 var: a
+12: 8 var: SgVariableDeclaration
+13: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf034 changed: false
+ Current Node: 0x98bf034 unhandled: true
+
+!! Worklist : - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2
+
+
+------------------------------------------------------------------
+current Node: 0x98bf068 previous Node : 0x98046d0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgWhileStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 8 var: SgVariableDeclaration
+14: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf068 changed: false
+ Current Node: 0x98bf068 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1
+
+
+------------------------------------------------------------------
+current Node: 0x9917200 previous Node : 0x98bf034
+ ********** BINARY OP. 0x9917200
+ ********** BINARY OP IS_VAR_REF_EXP.
+ BINARY OP: a name: 0x9804678 varRefExp: 0x990c5a0
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9917200 : SgAssignOp : a
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgWhileStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 16 var: SgAssignOp
+14: 8 var: SgVariableDeclaration
+15: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 11 var: SgWhileStmt
+10: 9 var: SgBoolValExp
+11: 10 var: SgExprStatement
+12: 12 var: a
+13: 16 var: SgAssignOp
+14: 8 var: SgVariableDeclaration
+15: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : a nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+10: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9917200 changed: true
+ Current Node: 0x9917200 unhandled: false
+
+!! Worklist : - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x98cbb5c previous Node : 0x98bf068
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x98cbb5c
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98cbb5c : SgAssignInitializer : c
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 12 var: a
+14: 16 var: SgAssignOp
+15: 8 var: SgVariableDeclaration
+16: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 12 var: a
+14: 16 var: SgAssignOp
+15: 8 var: SgVariableDeclaration
+16: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : c nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+14: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+16: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98cbb5c changed: true
+ Current Node: 0x98cbb5c unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9902868 previous Node : 0x9917200
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9902868
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9902868
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 4 var: SgFunctionParameterList
+ Current Node: 0x9902868 changed: false
+ Current Node: 0x9902868 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgBoolValExp> true :0
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16114 previous Node : 0x98cbb5c
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16114 changed: false
+ Current Node: 0xb7e16114 unhandled: true
+
+!! Worklist : - <SgBoolValExp> true :0 - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0x98f6cb8 previous Node : 0xb7e16008
+ ********** UNHANDLED. This is an unhandled node SgBoolValExp
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 4 var: SgFunctionParameterList
+ Current Node: 0x98f6cb8 changed: false
+ Current Node: 0x98f6cb8 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2 - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7e58008 previous Node : 0xb7e16114
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e58008 changed: false
+ Current Node: 0xb7e58008 unhandled: true
+
+!! Worklist : - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9902840 previous Node : 0x98f6cb8
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x9902840 changed: false
+ Current Node: 0x9902840 unhandled: true
+
+!! Worklist : - <SgWhileStmt> while(true){a = 4;} :1
+
+
+------------------------------------------------------------------
+current Node: 0x98d86d8 previous Node : 0x9902840
+ ********** UNHANDLED. This is an unhandled node SgWhileStmt
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98d86d8 changed: false
+ Current Node: 0x98d86d8 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0
+
+
+------------------------------------------------------------------
+current Node: 0x990c5a0 previous Node : 0x98d86d8
+ ********** VARREFEXP. 0x990c5a0 .. a
+ nr for that node ( a) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990c5a0 : SgVarRefExp : a
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x990c5a0 changed: true
+ Current Node: 0x990c5a0 unhandled: false
+
+!! Worklist : - <SgInitializedName> c :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98046d0 previous Node : 0x98d86d8
+ ********** INITNAME. 0x98046d0
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98046d0 : SgInitializedName : c
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: c nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98046d0 changed: true
+ Current Node: 0x98046d0 unhandled: false
+
+!! Worklist : - <SgIntVal> 4 :0 - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98bf034 previous Node : 0x990c5a0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf034
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf034
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf034 changed: false
+ Current Node: 0x98bf034 unhandled: true
+
+!! Worklist : - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2
+
+
+------------------------------------------------------------------
+current Node: 0x98bf068 previous Node : 0x98046d0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf068 changed: false
+ Current Node: 0x98bf068 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1
+
+
+------------------------------------------------------------------
+current Node: 0x9917200 previous Node : 0x98bf034
+ ********** BINARY OP. 0x9917200
+ ********** BINARY OP IS_VAR_REF_EXP.
+ BINARY OP: a name: 0x9804678 varRefExp: 0x990c5a0
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9917200 : SgAssignOp : a
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9917200
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : a nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9917200 changed: true
+ Current Node: 0x9917200 unhandled: false
+
+!! Worklist : - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x98cbb5c previous Node : 0x98bf068
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x98cbb5c
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98cbb5c : SgAssignInitializer : c
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : c nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98cbb5c changed: true
+ Current Node: 0x98cbb5c unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9902868 previous Node : 0x9917200
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9902868
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9902868
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x9902868 changed: false
+ Current Node: 0x9902868 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgBoolValExp> true :0
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16114 previous Node : 0x98cbb5c
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16114 changed: false
+ Current Node: 0xb7e16114 unhandled: true
+
+!! Worklist : - <SgBoolValExp> true :0 - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0x98f6cb8 previous Node : 0xb7e16008
+ ********** UNHANDLED. This is an unhandled node SgBoolValExp
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98f6cb8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98f6cb8 changed: false
+ Current Node: 0x98f6cb8 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2 - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7e58008 previous Node : 0xb7e16114
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e58008 changed: false
+ Current Node: 0xb7e58008 unhandled: true
+
+!! Worklist : - <SgExprStatement> true; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9902840 previous Node : 0x98f6cb8
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9902840
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x9902840 changed: false
+ Current Node: 0x9902840 unhandled: true
+
+!! Worklist : - <SgWhileStmt> while(true){a = 4;} :1
+
+
+------------------------------------------------------------------
+current Node: 0x98d86d8 previous Node : 0x9902840
+ ********** UNHANDLED. This is an unhandled node SgWhileStmt
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98d86d8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98d86d8 changed: false
+ Current Node: 0x98d86d8 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0
+
+
+------------------------------------------------------------------
+current Node: 0x990c5a0 previous Node : 0x98d86d8
+ ********** VARREFEXP. 0x990c5a0 .. a
+ nr for that node ( a) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x990c5a0 : SgVarRefExp : a
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? false
+ ---- JUSTCOPY. 0x990c5a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x990c5a0 changed: false
+ Current Node: 0x990c5a0 unhandled: false
+
+
+------------------------------------------------------------------
+current Node: 0x98046d0 previous Node : 0x98d86d8
+ ********** INITNAME. 0x98046d0
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98046d0 : SgInitializedName : c
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: c nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x98046d0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98046d0 changed: true
+ Current Node: 0x98046d0 unhandled: false
+
+!! Worklist : - <SgIntVal> 4 :0
+
+
+------------------------------------------------------------------
+current Node: 0x98bf068 previous Node : 0x98046d0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x98bf068
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0x98bf068 changed: false
+ Current Node: 0x98bf068 unhandled: true
+
+!! Worklist : - <SgAssignInitializer> 4 :1
+
+
+------------------------------------------------------------------
+current Node: 0x98cbb5c previous Node : 0x98bf068
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x98cbb5c
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x98cbb5c : SgAssignInitializer : c
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x98cbb5c
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : c nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x98cbb5c changed: true
+ Current Node: 0x98cbb5c unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7e16114 previous Node : 0x98cbb5c
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e16114
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e16114 changed: false
+ Current Node: 0xb7e16114 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7e58008 previous Node : 0xb7e16114
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e58008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e58008 changed: false
+ Current Node: 0xb7e58008 unhandled: true
+
+!! Worklist :
+ Elements in Table: 19
+ Exiting function ::main(int, char **)
+
+Nr of nodes visited 41 of nodes : 19
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :0 - <SgInitializedName> argc :0 - <SgInitializedName> argv :0 - <SgFunctionParameterList> :2 - <SgInitializedName> a :0 - <SgIntVal> 2 :0 - <SgAssignInitializer> 2 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int a = 2; :1 - <SgBoolValExp> true :0 - <SgExprStatement> true; :1 - <SgWhileStmt> while(true){a = 4;} :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0 - <SgIntVal> 4 :0 - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgBoolValExp> true :0 - <SgFunctionDefinition> int main(int argc,ch... :2 - <SgExprStatement> true; :1 - <SgWhileStmt> while(true){a = 4;} :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0 - <SgIntVal> 4 :0 - <SgIntVal> 4 :0Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> a = 4 :2 - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> a = 4; :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgBoolValExp> true :0 - <SgFunctionDefinition> int main(int argc,ch... :2 - <SgExprStatement> true; :1 - <SgWhileStmt> while(true){a = 4;} :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> a :0 - <SgInitializedName> c :0 - <SgIntVal> 4 :0 - <SgAssignInitializer> 4 :1Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int c = 4; :1 - <SgFunctionDefinition> int main(int argc,ch... :2
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x98a09d0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+FINISH: Traversal over Functions
+
+
+>>>>> Time for dfa-test: 0.23 sec
+>>>>> Total CFG nodes: 19 -- #CFG nodes visited: 41
+FINISH: DefUse Analysis True
+Analysis is : success
+ DEF>> Vector entries for argc ( 0x98045c8 ) : 1
+ DEF>> Vector entries for argv ( 0x9804620 ) : 1
+ DEF>> Vector entries for a ( 0x9804678 ) : 1
+ DEF>> Vector entries for c ( 0x98046d0 ) : 1
+
+DEFMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+4: 13 var: c
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+5: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 5
+6: 14 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+7: 15 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 13
+8: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+9: 17 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+10: 11 var: SgWhileStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+11: 9 var: SgBoolValExp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+12: 10 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+13: 18 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+14: 12 var: a
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+15: 16 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 16
+16: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+17: 19 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+18: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:a ( 5 ) - SgNode 7
+ .. initName:a ( 5 ) - SgNode 16
+ .. initName:c ( 13 ) - SgNode 17
+19: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+
+USEMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: a
+4: 13 var: c
+5: 6 var: SgIntVal
+6: 14 var: SgIntVal
+7: 15 var: SgIntVal
+8: 7 var: SgAssignInitializer
+9: 17 var: SgAssignInitializer
+10: 11 var: SgWhileStmt
+11: 9 var: SgBoolValExp
+12: 10 var: SgExprStatement
+13: 18 var: SgExprStatement
+14: 12 var: a
+15: 16 var: SgAssignOp
+16: 8 var: SgVariableDeclaration
+17: 19 var: SgVariableDeclaration
+18: 1 var: SgFunctionDefinition
+19: 4 var: SgFunctionParameterList
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test20.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test20.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test20.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,5 @@
+void bar(){
+ while(1);
+}
+
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test21.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test21.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test21.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,4 @@
+void func()
+ {
+ for (; int b = 1; );
+ }
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test22.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test22.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test22.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6 @@
+
+void func()
+ {
+ for (; int b = 1; );
+ do ; while (0);
+ }
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test23.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test23.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test23.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,9 @@
+void func()
+ {
+ for (; ;);
+ for (int a = 0; ;);
+
+ for (; ;) {
+ for (int a = 0; ;);
+ }
+ }
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6 @@
+int main(int argc, char **argv) {
+ int d=2;
+ d++;
+ d = 5;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.output
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.output (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test3.output 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,1378 @@
+>>>> Starting ROSE frontend ...
+ >> Class name: SgFile
+
+ >>> Using Information relative to other declaration:
+
+ >> File-Name: /home/panas2/development/dataflow/tests/test3.c
+Inside of propagateHiddenListData (node = 0xb7ed4008 = SgFile)
+>>>> generate PDF
+>>>> start def-use analysis ...
+START: DefUse Analysis True
+START: Finding global variables
+ Amount of global variables : 0
+ -----------------------------------------------------------------*
+
+
+FINISH: Finding global variables
+
+ **************** MAP **************************
+START: Traversal over Functions
+Warning: can't locate an associated SgStatement from astNode = 0x9196238 = SgTypeInt parentNode = 0x9196238 = SgTypeInt
+Warning: can't locate an associated SgStatement from astNode = 0x91a2420 = SgPointerType parentNode = 0x91a2420 = SgPointerType
+ Found function ::main(int, char **)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+
+
+------------------------------------------------------------------
+current Node: 0xb7df5008 previous Node : 0
+
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FUNCTION %%%%%%
+
+ found global vars: 0 funEntry true
+ Current Node: 0xb7df5008 changed: true
+ Current Node: 0xb7df5008 unhandled: false
+
+!! Worklist : - <SgInitializedName> argc :0
+
+
+------------------------------------------------------------------
+current Node: 0x91673a8 previous Node : 0xb7df5008
+ ********** INITNAME. 0x91673a8
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x91673a8 : SgInitializedName : argc
+ ---- JUSTCOPY. 0x91673a8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- IS USE. CHANGED TABLE ? false
+ ---- JUSTCOPY. 0x91673a8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ---- JUSTCOPY. 0x91673a8
+
+ **************** MAP **************************
+1: -1 var: argc
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argc nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x91673a8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+ Current Node: 0x91673a8 changed: true
+ Current Node: 0x91673a8 unhandled: false
+
+!! Worklist : - <SgInitializedName> argv :0
+
+
+------------------------------------------------------------------
+current Node: 0x9167400 previous Node : 0x91673a8
+ ********** INITNAME. 0x9167400
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9167400 : SgInitializedName : argv
+ ---- JUSTCOPY. 0x9167400
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9167400
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ---- JUSTCOPY. 0x9167400
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argv nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9167400
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9167400 changed: true
+ Current Node: 0x9167400 unhandled: false
+
+!! Worklist : - <SgFunctionParameterList> :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7e415ac previous Node : 0x9167400
+ ********** UNHANDLED. This is an unhandled node SgFunctionParameterList
+ ---- JUSTCOPY. 0xb7e415ac
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7e415ac
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 4 var: SgFunctionParameterList
+ Current Node: 0xb7e415ac changed: false
+ Current Node: 0xb7e415ac unhandled: true
+
+!! Worklist : - <SgInitializedName> d :0
+
+
+------------------------------------------------------------------
+current Node: 0x9167458 previous Node : 0xb7e415ac
+ ********** INITNAME. 0x9167458
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9167458 : SgInitializedName : d
+ ---- JUSTCOPY. 0x9167458
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9167458
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9167458
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: d nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x9167458
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x9167458 changed: true
+ Current Node: 0x9167458 unhandled: false
+
+!! Worklist : - <SgIntVal> 2 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9221de0 previous Node : 0x9167458
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9221de0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9221de0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 4 var: SgFunctionParameterList
+ Current Node: 0x9221de0 changed: false
+ Current Node: 0x9221de0 unhandled: true
+
+!! Worklist : - <SgAssignInitializer> 2 :1
+
+
+------------------------------------------------------------------
+current Node: 0x922e908 previous Node : 0x9221de0
+ ********** ASSIGNINITIALIZER
+ ********** ASSIGNINITIALIZER: 0x922e908
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x922e908 : SgAssignInitializer : d
+ ---- JUSTCOPY. 0x922e908
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x922e908
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x922e908
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : d nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x922e908 changed: true
+ Current Node: 0x922e908 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int d = 2; :1
+
+
+------------------------------------------------------------------
+current Node: 0xb7db3008 previous Node : 0x922e908
+ ********** UNHANDLED. This is an unhandled node SgVariableDeclaration
+ ---- JUSTCOPY. 0xb7db3008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7db3008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 8 var: SgVariableDeclaration
+7: 4 var: SgFunctionParameterList
+ Current Node: 0xb7db3008 changed: false
+ Current Node: 0xb7db3008 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> d :0
+
+
+------------------------------------------------------------------
+current Node: 0x923b4b8 previous Node : 0xb7db3008
+ ********** VARREFEXP. 0x923b4b8 .. d
+ nr for that node ( d) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x923b4b8 : SgVarRefExp : d
+ ---- JUSTCOPY. 0x923b4b8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x923b4b8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: d
+7: 8 var: SgVariableDeclaration
+8: 4 var: SgFunctionParameterList
+ Current Node: 0x923b4b8 changed: true
+ Current Node: 0x923b4b8 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgPlusPlusOp> d++ :1
+
+
+------------------------------------------------------------------
+current Node: 0x92460a0 previous Node : 0x923b4b8
+ ********** UNARY OP. 0x92460a0
+ UNARY OP: d name: 0x9167458 varRefExp: 0x923b4b8
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x92460a0 : SgPlusPlusOp : d
+ ---- JUSTCOPY. 0x92460a0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x92460a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+7: 10 var: SgPlusPlusOp
+ .. initName:d ( 5 ) - SgNode 9
+8: 8 var: SgVariableDeclaration
+9: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x92460a0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+7: 10 var: SgPlusPlusOp
+ .. initName:d ( 5 ) - SgNode 9
+8: 8 var: SgVariableDeclaration
+9: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : d nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+8: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x92460a0 changed: true
+ Current Node: 0x92460a0 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> d++; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9252bc8 previous Node : 0x92460a0
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9252bc8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+8: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+10: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9252bc8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+7: 10 var: SgPlusPlusOp
+8: 11 var: SgExprStatement
+9: 8 var: SgVariableDeclaration
+10: 4 var: SgFunctionParameterList
+ Current Node: 0x9252bc8 changed: false
+ Current Node: 0x9252bc8 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> d :0
+
+
+------------------------------------------------------------------
+current Node: 0x923b4e4 previous Node : 0x9252bc8
+ ********** VARREFEXP. 0x923b4e4 .. d
+ nr for that node ( d) : 5
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x923b4e4 : SgVarRefExp : d
+ ---- JUSTCOPY. 0x923b4e4
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+6: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+8: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+11: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x923b4e4
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 7 var: SgAssignInitializer
+6: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+7: 12 var: d
+8: 10 var: SgPlusPlusOp
+9: 11 var: SgExprStatement
+10: 8 var: SgVariableDeclaration
+11: 4 var: SgFunctionParameterList
+ Current Node: 0x923b4e4 changed: true
+ Current Node: 0x923b4e4 unhandled: false
+
+!! Worklist : - <SgIntVal> 5 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9221e14 previous Node : 0x923b4e4
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9221e14
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+12: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9221e14
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+8: 12 var: d
+9: 10 var: SgPlusPlusOp
+10: 11 var: SgExprStatement
+11: 8 var: SgVariableDeclaration
+12: 4 var: SgFunctionParameterList
+ Current Node: 0x9221e14 changed: false
+ Current Node: 0x9221e14 unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> d = 5 :2
+
+
+------------------------------------------------------------------
+current Node: 0x925c8b8 previous Node : 0x9221e14
+ ********** BINARY OP. 0x925c8b8
+ ********** BINARY OP IS_VAR_REF_EXP.
+ BINARY OP: d name: 0x9167458 varRefExp: 0x923b4e4
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x925c8b8 : SgAssignOp : d
+ ---- JUSTCOPY. 0x925c8b8
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+12: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+13: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x925c8b8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+8: 12 var: d
+9: 10 var: SgPlusPlusOp
+10: 11 var: SgExprStatement
+11: 14 var: SgAssignOp
+12: 8 var: SgVariableDeclaration
+13: 4 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x925c8b8
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+8: 12 var: d
+9: 10 var: SgPlusPlusOp
+10: 11 var: SgExprStatement
+11: 14 var: SgAssignOp
+12: 8 var: SgVariableDeclaration
+13: 4 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : d nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+12: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+13: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ Current Node: 0x925c8b8 changed: true
+ Current Node: 0x925c8b8 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> d = 5; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9252bf0 previous Node : 0x925c8b8
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9252bf0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+7: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+9: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 15 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+12: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+13: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+14: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9252bf0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 7 var: SgAssignInitializer
+7: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+8: 12 var: d
+9: 10 var: SgPlusPlusOp
+10: 11 var: SgExprStatement
+11: 15 var: SgExprStatement
+12: 14 var: SgAssignOp
+13: 8 var: SgVariableDeclaration
+14: 4 var: SgFunctionParameterList
+ Current Node: 0x9252bf0 changed: false
+ Current Node: 0x9252bf0 unhandled: true
+
+!! Worklist : - <SgIntVal> 0 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9221e48 previous Node : 0x9252bf0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9221e48
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 16 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+12: 15 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+13: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+14: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+15: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x9221e48
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 16 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+9: 12 var: d
+10: 10 var: SgPlusPlusOp
+11: 11 var: SgExprStatement
+12: 15 var: SgExprStatement
+13: 14 var: SgAssignOp
+14: 8 var: SgVariableDeclaration
+15: 4 var: SgFunctionParameterList
+ Current Node: 0x9221e48 changed: false
+ Current Node: 0x9221e48 unhandled: true
+
+!! Worklist : - <SgReturnStmt> return 0; :1
+
+
+------------------------------------------------------------------
+current Node: 0x92693e0 previous Node : 0x9221e48
+ ********** UNHANDLED. This is an unhandled node SgReturnStmt
+ ---- JUSTCOPY. 0x92693e0
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 16 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+12: 15 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+13: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+14: 17 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+16: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0x92693e0
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 16 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+9: 12 var: d
+10: 10 var: SgPlusPlusOp
+11: 11 var: SgExprStatement
+12: 15 var: SgExprStatement
+13: 14 var: SgAssignOp
+14: 17 var: SgReturnStmt
+15: 8 var: SgVariableDeclaration
+16: 4 var: SgFunctionParameterList
+ Current Node: 0x92693e0 changed: false
+ Current Node: 0x92693e0 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7df5008 previous Node : 0x92693e0
+ found global vars: 0 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7df5008
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 16 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+12: 15 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+13: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+14: 17 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+16: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+17: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ ---- JUSTCOPY. 0xb7df5008
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 16 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+9: 12 var: d
+10: 10 var: SgPlusPlusOp
+11: 11 var: SgExprStatement
+12: 15 var: SgExprStatement
+13: 14 var: SgAssignOp
+14: 17 var: SgReturnStmt
+15: 8 var: SgVariableDeclaration
+16: 1 var: SgFunctionDefinition
+17: 4 var: SgFunctionParameterList
+ Current Node: 0xb7df5008 changed: false
+ Current Node: 0xb7df5008 unhandled: true
+
+!! Worklist :
+ Elements in Table: 17
+ Exiting function ::main(int, char **)
+
+Nr of nodes visited 18 of nodes : 17
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :0 - <SgInitializedName> argc :0 - <SgInitializedName> argv :0 - <SgFunctionParameterList> :2 - <SgInitializedName> d :0 - <SgIntVal> 2 :0 - <SgAssignInitializer> 2 :1Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVariableDeclaration> int d = 2; :1Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> d :0Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgPlusPlusOp> d++ :1Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> d++; :1Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> d :0 - <SgIntVal> 5 :0Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgAssignOp> d = 5 :2Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> d = 5; :1 - <SgIntVal> 0 :0 - <SgReturnStmt> return 0; :1 - <SgFunctionDefinition> int main(int argc,ch... :2
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0x92037b0 = SgBasicBlock for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+FINISH: Traversal over Functions
+
+
+>>>>> Time for dfa-test: 0.08 sec
+>>>>> Total CFG nodes: 17 -- #CFG nodes visited: 18
+FINISH: DefUse Analysis True
+Analysis is : success
+ DEF>> Vector entries for argc ( 0x91673a8 ) : 1
+ DEF>> Vector entries for argv ( 0x9167400 ) : 1
+ DEF>> Vector entries for d ( 0x9167458 ) : 1
+
+DEFMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+ .. initName:argc ( 2 ) - SgNode 2
+2: 3 var: argv
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+3: 5 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+4: 6 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 5
+5: 13 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+6: 16 var: SgIntVal
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+7: 7 var: SgAssignInitializer
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+8: 9 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+9: 12 var: d
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+10: 10 var: SgPlusPlusOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+11: 11 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 10
+12: 15 var: SgExprStatement
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+13: 14 var: SgAssignOp
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+14: 17 var: SgReturnStmt
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+15: 8 var: SgVariableDeclaration
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 7
+16: 1 var: SgFunctionDefinition
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+ .. initName:d ( 5 ) - SgNode 14
+17: 4 var: SgFunctionParameterList
+ .. initName:argc ( 2 ) - SgNode 2
+ .. initName:argv ( 3 ) - SgNode 3
+
+USEMAP
+
+ **************** MAP **************************
+1: 2 var: argc
+2: 3 var: argv
+3: 5 var: d
+4: 6 var: SgIntVal
+5: 13 var: SgIntVal
+6: 16 var: SgIntVal
+7: 7 var: SgAssignInitializer
+8: 9 var: d
+ .. initName:d ( 5 ) - SgNode 9
+9: 12 var: d
+10: 10 var: SgPlusPlusOp
+11: 11 var: SgExprStatement
+12: 15 var: SgExprStatement
+13: 14 var: SgAssignOp
+14: 17 var: SgReturnStmt
+15: 8 var: SgVariableDeclaration
+16: 1 var: SgFunctionDefinition
+17: 4 var: SgFunctionParameterList
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,8 @@
+int globalvar = 5;
+
+int main(int argc, char **argv) {
+ // globalvar++;
+ argc++;
+ globalvar = 5;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.output
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.output (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test4.output 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,1014 @@
+>>>> Starting ROSE frontend ...
+ >> Class name: SgFile
+
+ >>> Using Information relative to other declaration:
+
+ >> File-Name: /home/panas2/development/dataflow/tests/test4.c
+Inside of propagateHiddenListData (node = 0xb7f79008 = SgFile)
+>>>> generate PDF
+>>>> start def-use analysis ...
+START: DefUse Analysis True
+START: Finding global variables
+1 : ::globalvar ( 0x99c23a8 )
+ Amount of global variables : 1
+ -----------------------------------------------------------------*
+
+
+FINISH: Finding global variables
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+START: Traversal over Functions
+Warning: can't locate an associated SgStatement from astNode = 0x99f1238 = SgTypeInt parentNode = 0x99f1238 = SgTypeInt
+Warning: can't locate an associated SgStatement from astNode = 0x99fd420 = SgPointerType parentNode = 0x99fd420 = SgPointerType
+ Found function ::main(int, char **)
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+
+
+------------------------------------------------------------------
+current Node: 0xb7e1b008 previous Node : 0
+
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FUNCTION %%%%%%
+
+ found global vars: 1 funEntry true
+
+ >> %%%%% handling globalvar: ::globalvar
+ Current Node: 0xb7e1b008 changed: true
+ Current Node: 0xb7e1b008 unhandled: false
+
+!! Worklist : - <SgInitializedName> argc :0
+
+
+------------------------------------------------------------------
+current Node: 0x99c2400 previous Node : 0xb7e1b008
+ ********** INITNAME. 0x99c2400
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x99c2400 : SgInitializedName : argc
+ ---- JUSTCOPY. 0x99c2400
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+3: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x99c2400
+
+ **************** MAP **************************
+1: 3 var: argc
+ ---- JUSTCOPY. 0x99c2400
+
+ **************** MAP **************************
+1: 3 var: argc
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argc nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x99c2400
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ Current Node: 0x99c2400 changed: true
+ Current Node: 0x99c2400 unhandled: false
+
+!! Worklist : - <SgInitializedName> argv :0
+
+
+------------------------------------------------------------------
+current Node: 0x99c2458 previous Node : 0x99c2400
+ ********** INITNAME. 0x99c2458
+ ********** INITNAME. use def true
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x99c2458 : SgInitializedName : argv
+ ---- JUSTCOPY. 0x99c2458
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+4: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x99c2458
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+ ---- JUSTCOPY. 0x99c2458
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+ ----- Definition. Is value contained ? false
+ ----- NEW Definition. Adding: argv nrInEdges: 1
+ ----- changed table (one incoming) entry to 0x99c2458
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ Current Node: 0x99c2458 changed: true
+ Current Node: 0x99c2458 unhandled: false
+
+!! Worklist : - <SgFunctionParameterList> :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7ee65ac previous Node : 0x99c2458
+ ********** UNHANDLED. This is an unhandled node SgFunctionParameterList
+ ---- JUSTCOPY. 0xb7ee65ac
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+5: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0xb7ee65ac
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 5 var: SgFunctionParameterList
+ Current Node: 0xb7ee65ac changed: false
+ Current Node: 0xb7ee65ac unhandled: true
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> argc :0
+
+
+------------------------------------------------------------------
+current Node: 0x9a96488 previous Node : 0xb7ee65ac
+ ********** VARREFEXP. 0x9a96488 .. argc
+ nr for that node ( argc) : 3
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9a96488 : SgVarRefExp : argc
+ ---- JUSTCOPY. 0x9a96488
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+5: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+6: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9a96488
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 6 var: argc
+4: 5 var: SgFunctionParameterList
+ Current Node: 0x9a96488 changed: true
+ Current Node: 0x9a96488 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgPlusPlusOp> argc++ :1
+
+
+------------------------------------------------------------------
+current Node: 0x9aa1070 previous Node : 0x9a96488
+ ********** UNARY OP. 0x9aa1070
+ UNARY OP: argc name: 0x99c2400 varRefExp: 0x9a96488
+ ... check done.
+ isGlobalVar: false
+ ----- IS USE. 0x9aa1070 : SgPlusPlusOp : argc
+ ---- JUSTCOPY. 0x9aa1070
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+5: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+6: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+7: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9aa1070
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+4: 7 var: SgPlusPlusOp
+ .. initName:argc ( 3 ) - SgNode 6
+5: 5 var: SgFunctionParameterList
+ ---- JUSTCOPY. 0x9aa1070
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+4: 7 var: SgPlusPlusOp
+ .. initName:argc ( 3 ) - SgNode 6
+5: 5 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : argc nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+5: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+7: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ Current Node: 0x9aa1070 changed: true
+ Current Node: 0x9aa1070 unhandled: false
+
+!! Worklist : Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> argc++; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9aadb98 previous Node : 0x9aa1070
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9aadb98
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+5: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+8: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0x9aadb98
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+4: 7 var: SgPlusPlusOp
+5: 8 var: SgExprStatement
+6: 5 var: SgFunctionParameterList
+ Current Node: 0x9aadb98 changed: false
+ Current Node: 0x9aadb98 unhandled: true
+
+!! Worklist : - <SgVarRefExp> globalvar :0
+
+
+------------------------------------------------------------------
+current Node: 0x9a964b4 previous Node : 0x9aadb98
+ ********** VARREFEXP. 0x9a964b4 .. ::globalvar
+ nr for that node ( ::globalvar) : 1
+ ... check done.
+ isGlobalVar: true
+ ----- IS USE. 0x9a964b4 : SgVarRefExp : ::globalvar
+ ---- JUSTCOPY. 0x9a964b4
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+5: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+9: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9a964b4
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+4: 9 var: ::globalvar
+5: 7 var: SgPlusPlusOp
+6: 8 var: SgExprStatement
+7: 5 var: SgFunctionParameterList
+ ********** GLOBALVAR : true initName: ::globalvar
+ globalVariable is containd in MultiMap ? true
+ globalVariable is containd in Map ? true
+ Current Node: 0x9a964b4 changed: true
+ Current Node: 0x9a964b4 unhandled: false
+
+!! Worklist : - <SgIntVal> 5 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9a587d4 previous Node : 0x9a964b4
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9a587d4
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+6: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+10: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0x9a587d4
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+5: 9 var: ::globalvar
+6: 7 var: SgPlusPlusOp
+7: 8 var: SgExprStatement
+8: 5 var: SgFunctionParameterList
+ Current Node: 0x9a587d4 changed: false
+ Current Node: 0x9a587d4 unhandled: true
+
+!! Worklist : - <SgAssignOp> globalvar = 5 :2
+
+
+------------------------------------------------------------------
+current Node: 0x9ab78b8 previous Node : 0x9a587d4
+ ********** BINARY OP. 0x9ab78b8
+ ********** BINARY OP IS_VAR_REF_EXP.
+ BINARY OP: ::globalvar name: 0x99c23a8 varRefExp: 0x9a964b4
+ ... check done.
+ isGlobalVar: true
+ ----- IS USE. 0x9ab78b8 : SgAssignOp : ::globalvar
+ ---- JUSTCOPY. 0x9ab78b8
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+6: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+11: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ----- IS USE. CHANGED TABLE ? true
+ ---- JUSTCOPY. 0x9ab78b8
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+5: 9 var: ::globalvar
+6: 7 var: SgPlusPlusOp
+7: 8 var: SgExprStatement
+8: 11 var: SgAssignOp
+9: 5 var: SgFunctionParameterList
+ ********** GLOBALVAR : true initName: ::globalvar
+ globalVariable is containd in MultiMap ? true
+ globalVariable is containd in Map ? true
+ ---- JUSTCOPY. 0x9ab78b8
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+5: 9 var: ::globalvar
+6: 7 var: SgPlusPlusOp
+7: 8 var: SgExprStatement
+8: 11 var: SgAssignOp
+9: 5 var: SgFunctionParameterList
+ ----- Definition. Is value contained ? true
+ ----- Definition EXISTS : ::globalvar nrInEdges: 1
+ ----- changed table (one incoming) true dont_replace: false
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+6: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+11: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ Current Node: 0x9ab78b8 changed: true
+ Current Node: 0x9ab78b8 unhandled: false
+
+!! Worklist : - <SgExprStatement> globalvar = 5; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9aadbc0 previous Node : 0x9ab78b8
+ ********** UNHANDLED. This is an unhandled node SgExprStatement
+ ---- JUSTCOPY. 0x9aadbc0
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+6: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+7: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 12 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+11: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+12: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0x9aadbc0
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+5: 9 var: ::globalvar
+6: 7 var: SgPlusPlusOp
+7: 8 var: SgExprStatement
+8: 12 var: SgExprStatement
+9: 11 var: SgAssignOp
+10: 5 var: SgFunctionParameterList
+ Current Node: 0x9aadbc0 changed: false
+ Current Node: 0x9aadbc0 unhandled: true
+
+!! Worklist : - <SgIntVal> 0 :0
+
+
+------------------------------------------------------------------
+current Node: 0x9a58808 previous Node : 0x9aadbc0
+ ********** UNHANDLED. This is an unhandled node SgIntVal
+ ---- JUSTCOPY. 0x9a58808
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 13 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+7: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 12 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+11: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+12: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+13: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0x9a58808
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 13 var: SgIntVal
+5: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+6: 9 var: ::globalvar
+7: 7 var: SgPlusPlusOp
+8: 8 var: SgExprStatement
+9: 12 var: SgExprStatement
+10: 11 var: SgAssignOp
+11: 5 var: SgFunctionParameterList
+ Current Node: 0x9a58808 changed: false
+ Current Node: 0x9a58808 unhandled: true
+
+!! Worklist : - <SgReturnStmt> return 0; :1
+
+
+------------------------------------------------------------------
+current Node: 0x9ac43e0 previous Node : 0x9a58808
+ ********** UNHANDLED. This is an unhandled node SgReturnStmt
+ ---- JUSTCOPY. 0x9ac43e0
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 13 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+7: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 12 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+11: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+12: 14 var: SgReturnStmt
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+13: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 1
+14: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0x9ac43e0
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 13 var: SgIntVal
+5: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+6: 9 var: ::globalvar
+7: 7 var: SgPlusPlusOp
+8: 8 var: SgExprStatement
+9: 12 var: SgExprStatement
+10: 11 var: SgAssignOp
+11: 14 var: SgReturnStmt
+12: 5 var: SgFunctionParameterList
+ Current Node: 0x9ac43e0 changed: false
+ Current Node: 0x9ac43e0 unhandled: true
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :2
+
+
+------------------------------------------------------------------
+current Node: 0xb7e1b008 previous Node : 0x9ac43e0
+ found global vars: 1 funEntry false
+ ********** UNHANDLED. This is an unhandled node SgFunctionDefinition
+ ---- JUSTCOPY. 0xb7e1b008
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 13 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+7: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 12 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+11: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+12: 14 var: SgReturnStmt
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+13: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+14: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+ ---- JUSTCOPY. 0xb7e1b008
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 13 var: SgIntVal
+5: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+6: 9 var: ::globalvar
+7: 7 var: SgPlusPlusOp
+8: 8 var: SgExprStatement
+9: 12 var: SgExprStatement
+10: 11 var: SgAssignOp
+11: 14 var: SgReturnStmt
+12: 2 var: SgFunctionDefinition
+13: 5 var: SgFunctionParameterList
+ Current Node: 0xb7e1b008 changed: false
+ Current Node: 0xb7e1b008 unhandled: true
+
+!! Worklist :
+ Elements in Table: 14
+ Exiting function ::main(int, char **)
+
+Nr of nodes visited 14 of nodes : 14
+
+!! Worklist : - <SgFunctionDefinition> int main(int argc,ch... :0 - <SgInitializedName> argc :0 - <SgInitializedName> argv :0 - <SgFunctionParameterList> :2Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgVarRefExp> argc :0Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgPlusPlusOp> argc++ :1Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+ - <SgExprStatement> argc++; :1 - <SgVarRefExp> globalvar :0 - <SgIntVal> 5 :0 - <SgAssignOp> globalvar = 5 :2 - <SgExprStatement> globalvar = 5; :1 - <SgIntVal> 0 :0 - <SgReturnStmt> return 0; :1 - <SgFunctionDefinition> int main(int argc,ch... :2
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+Warning: specification of a input SgScopeStatement = 0xb7e1b008 = SgFunctionDefinition for which inputScope->supportsDefiningFunctionDeclaration() == false (return)
+FINISH: Traversal over Functions
+
+
+>>>>> Time for dfa-test: 0.07 sec
+>>>>> Total CFG nodes: 14 -- #CFG nodes visited: 14
+FINISH: DefUse Analysis True
+Analysis is : success
+ DEF>> Vector entries for ::globalvar ( 0x99c23a8 ) : 2
+ DEF>> Vector entries for argc ( 0x99c2400 ) : 1
+ DEF>> Vector entries for argv ( 0x99c2458 ) : 1
+
+DEFMAP
+
+ **************** MAP **************************
+1: 1 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:::globalvar ( 1 ) - SgNode 11
+2: 3 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+3: 4 var: argv
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+4: 10 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+5: 13 var: SgIntVal
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+6: 6 var: argc
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+7: 9 var: ::globalvar
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+8: 7 var: SgPlusPlusOp
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+9: 8 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+10: 12 var: SgExprStatement
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+11: 11 var: SgAssignOp
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+12: 14 var: SgReturnStmt
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+13: 2 var: SgFunctionDefinition
+ .. initName:::globalvar ( 1 ) - SgNode 11
+ .. initName:argc ( 3 ) - SgNode 7
+ .. initName:argv ( 4 ) - SgNode 4
+14: 5 var: SgFunctionParameterList
+ .. initName:::globalvar ( 1 ) - SgNode 1
+ .. initName:argc ( 3 ) - SgNode 3
+ .. initName:argv ( 4 ) - SgNode 4
+
+USEMAP
+
+ **************** MAP **************************
+1: 3 var: argc
+2: 4 var: argv
+3: 10 var: SgIntVal
+4: 13 var: SgIntVal
+5: 6 var: argc
+ .. initName:argc ( 3 ) - SgNode 6
+6: 9 var: ::globalvar
+7: 7 var: SgPlusPlusOp
+8: 8 var: SgExprStatement
+9: 12 var: SgExprStatement
+10: 11 var: SgAssignOp
+11: 14 var: SgReturnStmt
+12: 2 var: SgFunctionDefinition
+13: 5 var: SgFunctionParameterList
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test5.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test5.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test5.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,6 @@
+int main(int argc, char **argv) {
+ int x;
+ x = 5;
+ int y = x * 2;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test6.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test6.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test6.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,10 @@
+
+int main(int argc, char **argv) {
+ int x, z=0;
+ x = 5;
+ while (x!=0) {
+ z = x--;
+ }
+ return z;
+}
+
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test7.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test7.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test7.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,9 @@
+
+int main(int argc,char ** argv)
+{
+ int i;
+ while(i<10) {
+ i++;
+ }
+ return i;
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test8.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test8.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test8.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,11 @@
+
+int main()
+{
+ int i=0;
+ int* p;
+ for (i=0;i<10;i++)
+ {
+ int x = i;
+ *p = x;
+ }
+}
Added: trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test9.C
===================================================================
--- trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test9.C (rev 0)
+++ trunk/tests/roseTests/programAnalysisTests/variableLivenessTests/tests/test9.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,9 @@
+int main()
+{
+ int array[10];
+ int i=0;
+ for (i=0;i<10;i++)
+ {
+ array[i]=i+1;
+ }
+}
Modified: trunk/tutorial/Makefile.am
===================================================================
--- trunk/tutorial/Makefile.am 2008-11-11 22:06:33 UTC (rev 119)
+++ trunk/tutorial/Makefile.am 2008-11-12 23:49:35 UTC (rev 120)
@@ -60,6 +60,8 @@
debuggingIRnodeToString \
debuggingSourceCodePositionInformation \
defuseAnalysis \
+ dwarfAnalysis \
+ dwarfInstructionAddressToSourceLineAnalysis \
runtimeCheck \
generatingUniqueNamesFromDeclaration \
graphGenerationOfSubtree \
@@ -221,6 +223,10 @@
dataBaseUsage_SOURCES = dataBaseUsage.C
+dwarfAnalysis_SOURCES = dwarfAnalysis.C
+
+dwarfInstructionAddressToSourceLineAnalysis_SOURCES = dwarfInstructionAddressToSourceLineAnalysis.C
+
loopNestingInfoProcessing_SOURCES = loopNestingInfoProcessing.C
tauInstrumenter_SOURCES = tauInstrumenter.C
@@ -597,7 +603,24 @@
testVolatileTypeModifier: volatileTypeModifier
./volatileTypeModifier -rose:verbose 0 -c $(srcdir)/inputCode_volatileTypeModifier.C
+inputCode_dwarfAnalysis:
+ g++ -g3 -o inputCode_dwarfAnalysis $(srcdir)/inputCode_dwarfAnalysis.C
+testDwarfAnalysis: dwarfAnalysis inputCode_dwarfAnalysis
+# Note: different stages of AST representation and visualization.
+# ./dwarfAnalysis -c $(srcdir)/inputCode_dwarfAnalysis.C
+# ./dwarfAnalysis -rose:visualize_dwarf_only inputCode_dwarfAnalysis
+# ./dwarfAnalysis -rose:visualize_executable_file_format_skip_symbols inputCode_dwarfAnalysis
+# ./dwarfAnalysis -rose:read_executable_file_format_only inputCode_dwarfAnalysis
+# ./dwarfAnalysis -rose:read_executable_file_format_only -rose:visualize_executable_file_format_skip_symbols inputCode_dwarfAnalysis
+ ./dwarfAnalysis -rose:visualize_dwarf_only -rose:read_executable_file_format_only inputCode_dwarfAnalysis
+
+testDwarfInstructionAddressToSourceLineAnalysis: dwarfInstructionAddressToSourceLineAnalysis inputCode_dwarfAnalysis
+# ./dwarfAnalysis -rose:verbose 0 -c $(srcdir)/inputCode_dwarfAnalysis.C
+# ./dwarfInstructionAddressToSourceLineAnalysis -rose:visualize_dwarf_only inputCode_dwarfAnalysis
+ ./dwarfInstructionAddressToSourceLineAnalysis inputCode_dwarfAnalysis
+
+
# #####################################
# Output files use in tutorial
# #####################################
@@ -692,7 +715,9 @@
rose_input_runtimeErrorCheck.C \
rose_input_runtimeErrorCheck2.C \
rose_inputCode_seedBugsExample_arrayIndexing.C \
- rose_inputCode_VolatileTypeModifier.C
+ rose_inputCode_VolatileTypeModifier.C \
+ inputCode_dwarfAnalysis.pdf \
+ inputCode_dwarfAnalysis.out
# #####################################
# Output file generation rules
@@ -1128,6 +1153,15 @@
rose_inputCode_VolatileTypeModifier.C: volatileTypeModifier
./volatileTypeModifier $(ROSE_FLAGS) -c $(srcdir)/inputCode_VolatileTypeModifier.C
+inputCode_dwarfAnalysis.pdf: dwarfAnalysis inputCode_dwarfAnalysis
+ ./dwarfAnalysis -rose:visualize_dwarf_only -rose:read_executable_file_format_only inputCode_dwarfAnalysis
+ $(top_srcdir)/scripts/dotgenLetterPDF inputCode_dwarfAnalysis.dot inputCode_dwarfAnalysis.pdf
+
+inputCode_dwarfAnalysis.out: dwarfInstructionAddressToSourceLineAnalysis inputCode_dwarfAnalysis
+ ./dwarfInstructionAddressToSourceLineAnalysis inputCode_dwarfAnalysis > inputCode_dwarfAnalysis.out
+
+
+
# Note that we have made multiple copies of "inputCode_ExampleTraversals.C"
# so that the processing could be done in parallel with out collisions.
EXTRA_DIST = \
@@ -1220,8 +1254,10 @@
inputCode_addStruct.C \
rose_bin_example_backup.s \
buffer2.bin \
- inputCode_seedBugsExample_arrayIndexing.C
+ inputCode_seedBugsExample_arrayIndexing.C \
+ inputCode_dwarfAnalysis.C
+
# disabled this one due to problem with copy mechanism, Liao
# inputCode_varSubstCopy.C
@@ -1242,7 +1278,7 @@
cleanDocs:
# This can not be called after make distclean (by make distcheck)
# cd outliner; $(MAKE) cleanDocs
- rm -f rose_*.C rose_*.cpp *.out *.a[a-l] *.dot *.ps *.pdf *.trace *.binaryAST ExampleCodeCoverage_GeneratedBinary test_runtimeCheck* output_runtimeCheck* inputCode_AST_PDF_Generator.C
+ rm -f rose_*.C rose_*.cpp *.out *.a[a-l] *.dot *.ps *.pdf *.trace *.binaryAST ExampleCodeCoverage_GeneratedBinary test_runtimeCheck* output_runtimeCheck* inputCode_AST_PDF_Generator.C rose_inputCode_dwarfAnalysis.s inputCode_dwarfAnalysis
clean-local: cleanDocs
rm -rf Templates.DB ii_files ti_files *.ti *.svg test_runtimeCheck* *.new rose_bin_example.s rose_bin_example_2.s bin_example_2 *.dump
Added: trunk/tutorial/dwarfAnalysis.C
===================================================================
--- trunk/tutorial/dwarfAnalysis.C (rev 0)
+++ trunk/tutorial/dwarfAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,29 @@
+#include "rose.h"
+
+int
+main(int argc, char** argv)
+ {
+ SgProject* project = frontend(argc,argv);
+ ROSE_ASSERT (project != NULL);
+
+#if 1
+ int numberOfASTnodes = numberOfNodes();
+ printf ("Generate the dot output of the SAGE III AST numberOfASTnodes = %d \n",numberOfASTnodes);
+ if (numberOfASTnodes <= 20000)
+ {
+ // generateDOT ( *project );
+ generateDOTforMultipleFile ( *project );
+ printf ("DONE: Generate the dot output of the SAGE III AST \n");
+ }
+ else
+ {
+ printf ("Skipping generation of dot file (too large to be useful), run a smaller input program \n");
+ }
+#endif
+
+ // Skip call to backend since this is just an analysis.
+
+ // Unparse the binary executable (as a binary, as an assembly text file,
+ // and as a dump of the binary executable file format details (sections)).
+ // return backend(project);
+ }
Added: trunk/tutorial/dwarfInstructionAddressToSourceLineAnalysis.C
===================================================================
--- trunk/tutorial/dwarfInstructionAddressToSourceLineAnalysis.C (rev 0)
+++ trunk/tutorial/dwarfInstructionAddressToSourceLineAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,68 @@
+#include "rose.h"
+
+int
+main(int argc, char** argv)
+ {
+ SgProject* project = frontend(argc,argv);
+ ROSE_ASSERT (project != NULL);
+
+// This is controled by using the --with-dwarf configure command line option.
+#if USE_ROSE_DWARF_SUPPORT
+
+ // The input file is the binary file...
+ int binary_file_id = project->get_fileList()[0]->get_file_info()->get_file_id();
+
+ // Increment to get the next file id (for the source file, instead of the binary file)
+ int source_file_id = binary_file_id + 1;
+
+ std::string binaryFilename = Sg_File_Info::getFilenameFromID(binary_file_id);
+ printf ("file_id = %d binaryFilename = %s \n",binary_file_id,binaryFilename.c_str());
+
+ std::string sourceFilename = Sg_File_Info::getFilenameFromID(source_file_id);
+ printf ("file_id = %d sourceFilename = %s \n",source_file_id,sourceFilename.c_str());
+
+ // Compute the source line range from the instructions in the binary executable
+ std::pair<LineColumnFilePosition,LineColumnFilePosition> sourceFileRange;
+ sourceFileRange = SgAsmDwarfLineList::sourceCodeRange( source_file_id );
+
+ printf ("\nSource file line number range for:\n -- file = %s (id = %d)\n -- [(line=%d, col=%d), (line=%d, col=%d)] \n",
+ sourceFilename.c_str(),source_file_id,
+ sourceFileRange.first.first, sourceFileRange.first.second,
+ sourceFileRange.second.first, sourceFileRange.second.second);
+
+ // Compute the binary executable instruction address range
+ std::pair<uint64_t,uint64_t> addressRange = SgAsmDwarfLineList::instructionRange();
+ printf ("\nBinary instruction address range = (0x%lx, 0x%lx) \n",addressRange.first,addressRange.second);
+
+ int minLine = sourceFileRange.first.first;
+ int maxLine = sourceFileRange.second.first;
+ int columnNumber = -1;
+
+ printf ("\nInstruction addresses computed from source positions: \n");
+ // Iterate over line numbers to map back to instruction addresses
+ for (int lineNumber = minLine - 2; lineNumber <= maxLine + 2; lineNumber++)
+ {
+ // Out of range values generate the next address or NULL.
+ FileIdLineColumnFilePosition s(source_file_id,std::pair<int,int>(lineNumber,columnNumber));
+ uint64_t instructionAddress = SgAsmDwarfLineList::sourceCodeToAddress(s);
+ printf (" sourceCodeToAddress(%d,%d,%d) = 0x%lx \n",s.first,s.second.first,s.second.second,instructionAddress);
+ }
+
+ uint64_t minInstructionAddress = addressRange.first;
+
+ // Iterate over the addresses of the binary and compute the source code line numbers (limit the range so the output will be short).
+ printf ("\nSource lines computed from address range (truncated to keep output short): \n");
+ for (uint64_t address = minInstructionAddress - 1; address < minInstructionAddress + 25; address++)
+ {
+ FileIdLineColumnFilePosition s_map = SgAsmDwarfLineList::addressToSourceCode(address);
+ printf (" addressToSourceCode: address 0x%lx = (%d,%d,%d) \n",address,s_map.first,s_map.second.first,s_map.second.second);
+ }
+#else
+ printf ("\n\nROSE must be configured with --with-dwarf=<path to libdwarf> to use Dwarf support. \n\n");
+#endif
+
+ printf ("\nProgram Terminated Normally! \n\n");
+
+ // Skip call to backend since this is just an analysis.
+ return backend(project);
+ }
Added: trunk/tutorial/inputCode_dwarfAnalysis.C
===================================================================
--- trunk/tutorial/inputCode_dwarfAnalysis.C (rev 0)
+++ trunk/tutorial/inputCode_dwarfAnalysis.C 2008-11-12 23:49:35 UTC (rev 120)
@@ -0,0 +1,22 @@
+// Test code to demonstration of dwarf support.
+// Designed to be small because Dwarf is verbose.
+
+namespace example_namespace
+ {
+ int a;
+ };
+
+
+int main()
+ {
+ int x = 42;
+
+ // Loops are not recognised in Dwarf...
+ for (int i = 0; i < 10; i++)
+ {
+ x = (x % 2) ? x * 2 : x + 1;
+ }
+
+ return 0;
+ }
+
More information about the Rose-commits
mailing list