aboutsummaryrefslogtreecommitdiff
path: root/contrib/gcc/listing
diff options
context:
space:
mode:
authorPeter Wemm <peter@FreeBSD.org>1996-09-18 05:35:50 +0000
committerPeter Wemm <peter@FreeBSD.org>1996-09-18 05:35:50 +0000
commita4cd5630b060871c42e59f7b95cf1e823c417db6 (patch)
tree5b7ea73fc49c8998d9dc87d3eeff5b96439e6856 /contrib/gcc/listing
downloadsrc-a4cd5630b060871c42e59f7b95cf1e823c417db6.tar.gz
src-a4cd5630b060871c42e59f7b95cf1e823c417db6.zip
Import of unmodified (but trimmed) gcc-2.7.2. The bigger parts of the
non-i386, non-unix, and generatable files have been trimmed, but can easily be added in later if needed. gcc-2.7.2.1 will follow shortly, it's a very small delta to this and it's handy to have both available for reference for such little cost. The freebsd-specific changes will then be committed, and once the dust has settled, the bmakefiles will be committed to use this code.
Notes
Notes: svn path=/vendor/gcc/dist/; revision=18334
Diffstat (limited to 'contrib/gcc/listing')
-rwxr-xr-xcontrib/gcc/listing227
1 files changed, 227 insertions, 0 deletions
diff --git a/contrib/gcc/listing b/contrib/gcc/listing
new file mode 100755
index 000000000000..08abb1db4cec
--- /dev/null
+++ b/contrib/gcc/listing
@@ -0,0 +1,227 @@
+#!/bin/sh -f
+# Generate a source code listing for C or C++ code with assembler code. The
+# listing is always written to stdout.
+# Author: Igor Metz <metz@iam.unibe.ch>
+
+# Revision 1.4 94/08/26 13:58:27 coxs <coxs@dg-rtp.dg.com>
+# lister now guesses how to should be configured. Added elf and coff support.
+#
+# Revision 1.3 89/12/18 13:58:27 metz
+# lister must now be configured before it can be used. This is done in the
+# /bin/sh part of the code.
+#
+#
+# Revision 1.2 89/08/16 17:35:02 metz
+# Support for SPARC added.
+#
+# Revision 1.1 89/08/16 16:49:22 metz
+# Initial revision
+#
+
+# Requires: gawk (may be it works also with nawk)
+
+# usage: lister filename [compiler-options]
+
+# Method:
+# compile the source with -g option to assembler code, then merge the
+# generated assembler code with the source code. Compiler options
+# can be supplied on the command line (for example -O)
+
+# To install lister, assign one of the supported values to the variable MYSYS:
+# mc68020 for Motorola 68020 (Sun-3, ..)
+# mc68030 for Motorola 68030 (Sun-3, ..)
+# sparc for SPARC (SUN-4, ..)
+# i386 for i386 (Sun i386, ...)
+# i386-linux for i386 (Linux, ...)
+
+# Guess what kind of objects we are creating and thus what type of assembler
+# symbols to look for
+
+ex /tmp/$$.c <<END >/dev/null
+a
+main (){}
+.
+w
+q
+END
+WD=`pwd`
+cd /tmp
+gcc -c $$.c
+case "`file $$.o`" in
+*ELF*) MYSYS=elf ;;
+*COFF*|*BCS*) MYSYS=coff ;;
+*mc68k*|*M68000*) MYSYS=mc68030 ;;
+*SPARC*) MYSYS=sparc ;;
+*386*) MYSYS=i386 ;;
+esac
+rm $$.c $$.o
+cd $WD
+
+# uncomment the line you need if the above guesses incorrectly:
+# MYSYS=mc68020
+# MYSYS=mc68030
+# MYSYS=sparc
+# MYSYS=i386
+# MYSYS=i386-linux
+# MYSYS=`mach` # this will work on Suns with SunOS > 4.0.0
+# MYSYS=elf
+# MYSYS=coff
+
+WHOAMI=$0
+if [ $# -gt 0 ] ; then
+FILENAME=$1
+shift
+fi
+
+exec gawk -v whoami=$WHOAMI -vsys=$MYSYS -voptions="$*" '
+# commandline arguments:
+# ARGV[0] = "gawk"
+# ARGV[1] = processid
+# ARGV[2] = filename
+BEGIN {
+ if (ARGC != 3) {
+ usage()
+ exit 1
+ }
+
+ # Declaration of global variables
+ c_filename = ""
+ asm_filename = ""
+ cmdline = ""
+ asm_code = ""
+ c_code = ""
+ c_lineno = 0
+ oldlineno = 0
+ newlineno = 0
+ ignore_stabd = 0
+ num_of_fields = 0
+
+ # check processor architecture and set sourcecode line_hint accordingly
+ if (sys == "sparc" || sys == "i386") {
+ line_hint = "^[ \t]*\.stabn.*"
+ line_field = 3;
+ line_delimiter = ",";
+ line_offset = 0;
+ }
+ else if (sys == "mc68020" || sys == "mc68030" || sys == "i386-linux") {
+ line_hint = "^[ \t]*\.stabd.*"
+ line_field = 3;
+ line_delimiter = ",";
+ line_offset = 0;
+ }
+ else if (sys == "elf") {
+ line_hint = "section.*\.line"
+ line_field = 3;
+ line_delimiter = "\t";
+ line_offset = 0;
+ }
+ else if (sys == "coff") {
+ line_hint = "^[ \t]*ln"
+ line_field = 3;
+ line_delimiter = "\t";
+ }
+ else {
+ error("Processor type " sys " is not supported yet, sorry")
+ }
+
+ parse_cmdline()
+
+ printf("compiling %s to asm code\n", c_filename ) > "/dev/stderr"
+
+ if (system(cmdline) != 0 ) {
+ error("Compilation of " c_filename " failed")
+ }
+
+ printf("generating listing\n") > "/dev/stderr"
+
+
+ while ( getline asm_code < asm_filename > 0 ) {
+ if ( (ignore_stabd==0) && (asm_code ~ line_hint)) {
+ while ( sys == "elf" && (asm_code !~ "word" && asm_code !~ "byte") &&
+ getline asm_code < asm_filename > 0);
+ # source line hint found. Split the line into fields separated by commas.
+ # num_of_fields is 4 for sparc, 3 for m68k
+ num_of_fields = split(asm_code, fields, line_delimiter)
+ newlineno = fields[line_field] + line_offset;
+
+ if (newlineno > oldlineno) {
+ while ( newlineno > c_lineno && getline c_code < c_filename > 0) {
+ c_lineno++
+ printf("%4d %s\n", c_lineno, c_code)
+ }
+ oldlineno = newlineno
+ }
+ }
+ else if ( asm_code ~ ".*Ltext[ \t]*$" ) {
+ # filename hint found
+ if ( match(asm_code, c_filename)) {
+ ignore_stabd = 0
+ }
+ else {
+ ignore_stabd = 1
+ }
+ }
+ else if ( sys == "elf" && asm_code ~ "section.*\.debug" ) {
+ while ( asm_code !~ "^[ \t]*[.]*previous" &&
+ asm_code !~ "\.popsection" &&
+ getline asm_code < asm_filename > 0 );
+ if ( ! (getline asm_code < asm_filename > 0)) break;
+ }
+ else if ( sys == "coff" && asm_code ~ "^[ \t]*sdef" ) {
+ if ( asm_code ~ "\.bf" ) {
+ while ( asm_code !~ "^[ \t]*line" &&
+ getline asm_code < asm_filename > 0 ) {
+ num_of_fields = split(asm_code, fields, "\t")
+ line_offset = fields[line_field] - 1;
+ }
+ }
+ while ( asm_code !~ "^[ \t]*endef" &&
+ getline asm_code < asm_filename > 0 ) {
+ }
+ if ( ! (getline asm_code < asm_filename > 0)) break;
+ }
+ printf("\t\t\t%s\n", asm_code)
+ }
+
+ # general cleanup
+ system("/bin/rm " asm_filename)
+}
+
+function usage() {
+ printf("usage: %s filename compiler-options\n", whoami) > "/dev/stderr"
+}
+
+function error(s) {
+ printf("error: %s\n", s) > "/dev/stderr"
+ exit 1
+}
+
+function parse_cmdline( i) {
+ # construct filenames to use
+ asm_filename = "/tmp/lister" ARGV[1] ".s"
+ ARGV[1] = ""
+ c_filename = ARGV[2]
+ ARGV[2] = ""
+
+ # construct commandline to use
+ if ( match(c_filename, ".C") || match(c_filename, ".cc") ) {
+ cmdline = "g++"
+ }
+ else if (match(c_filename, ".c") || match(c_filename, ".i")) {
+ cmdline = "gcc"
+ }
+ else {
+ error("unknown extension for file " c_filename)
+ }
+
+ cmdline = cmdline " -g -S -o " asm_filename
+
+ # now we append the compiler options specified by the user
+ cmdline = cmdline " " options
+
+ # last but not least: the name of the file to compile
+ cmdline = cmdline " " c_filename
+}
+
+' $$ $FILENAME
+