41 lines
615 B
Bash
41 lines
615 B
Bash
|
#!/bin/sh
|
||
|
|
# convert "jbsr" for external symbol to "bsr"
|
||
|
|
# --written by Yasha
|
||
|
|
#
|
||
|
|
# usage: nm foo.o | sh all_bsr.sh foo.s >foo_new.s
|
||
|
|
#
|
||
|
|
# $NetBSD: all_bsr.sh,v 1.1 1998/09/01 20:02:33 itohy Exp $
|
||
|
|
|
||
|
|
src="$1"
|
||
|
|
case "$src" in
|
||
|
|
'')
|
||
|
|
echo 'Convert "jbsr" for external symbol to "bsr"' >&2
|
||
|
|
echo "usage: nm foo.o | $0 foo.s >foo_new.s" >&2
|
||
|
|
exit 1;;
|
||
|
|
esac
|
||
|
|
|
||
|
|
exts=
|
||
|
|
while read line
|
||
|
|
do
|
||
|
|
set - $line
|
||
|
|
case "$1" in
|
||
|
|
U) exts="$exts $2";;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
|
||
|
|
# m68k gcc sometimes emits nops. why?
|
||
|
|
sed '
|
||
|
|
/^[ ]*nop[ ]*$/d
|
||
|
|
/jbsr[ ]/{
|
||
|
|
h
|
||
|
|
s/.*jbsr[ ]*//
|
||
|
|
s/$/:'"$exts"' /
|
||
|
|
/^\([^:]*\):.* \1 /{
|
||
|
|
g
|
||
|
|
s/jbsr[ ]/bsr /
|
||
|
|
p
|
||
|
|
d
|
||
|
|
}
|
||
|
|
g
|
||
|
|
}' "$src"
|