old-cross-binutils/gdb/munch
Ian Lance Taylor 9191286471 Mon Oct 5 09:46:44 1992 Ian Lance Taylor (ian@cygnus.com)
* munch: HP9000/300 nm puts an etra space between T and symbol
	name.
1992-10-05 20:57:33 +00:00

49 lines
1.5 KiB
Bash
Executable file

#!/bin/sh
# create an initialization procedure from a list of .o files
echo '/* Do not modify this file. It is created automatically by "munch". */'
echo 'void initialize_all_files () {'
NMOPT=""
case $1 in
MUNCH_NM=*)
MUNCH_NM=`echo $1 | sed 's/MUNCH_NM=//'`; shift ;;
-*)
NMOPT=$1; shift ;;
esac
# make it easy to use a different nm, e.g. for cross-developing
MUNCH_NM="${MUNCH_NM-nm} $NMOPT"
if test "`$MUNCH_NM main.o | egrep main | egrep FUNC | egrep GLOB`" != "" ; then
# System V Release 4 style nm
$MUNCH_NM $* | egrep '|__?initialize_' | egrep FUNC | \
sed -e \
's/^.*\(_initialize_[a-zA-Z0-9_]*\).*$/ {extern void \1 (); \1 ();}/'\
| sort -u
elif test "`$MUNCH_NM main.o | egrep '[TD] *_?main$'`" = "" ; then
if test "`$MUNCH_NM main.o | head -6 | egrep 'Subspace$'`" != "" ; then
# HP PA RISC compilers don't prepend underscores
shift;
$MUNCH_NM $* | egrep '_initialize_.*' | \
sed -e \
's/^.*\(_initialize_[a-zA-Z0-9_]*\).*/ {extern void \1 (); \1 ();}/' \
| sort -u
else
# System V style nm
shift;
$MUNCH_NM $* | egrep '_initialize_.*' | egrep '\.text'|\
sed -e \
's/^.*\(_initialize_[a-zA-Z0-9_]*\).*/ {extern void \1 (); \1 ();}/' \
| sort -u
fi
else
# BSD style nm
# We now accept either text or data symbols, since the RT/PC uses data.
$MUNCH_NM -p $* | egrep '[TD] *_?[_.]initialize_' | \
sed -e 's/^.*\(initialize_.*\)/ {extern void _\1 (); _\1 ();}/' \
| sort -u
fi
echo '}'