136345c019
o Use objdump instead of gensetdefs(1) to build the linker sets. o Allow overriding of nm and objdump in resp. genassym.sh and gensetdefs.pl for non-native toolchains. Reviewed by: arch Perl improvements: Jos Backus <josb@cncdsl.com>, benno
54 lines
1000 B
Bash
54 lines
1000 B
Bash
#!/bin/sh
|
|
# $FreeBSD$
|
|
|
|
# Grrr, this should use stdin and stdout, but is encrufted for compatibility.
|
|
|
|
usage() {
|
|
echo "usage: genassym [-o outfile] objfile"
|
|
exit 1
|
|
}
|
|
|
|
outfile=/dev/stdout
|
|
while getopts "o:" option
|
|
do
|
|
case "$option" in
|
|
o) outfile="$OPTARG";;
|
|
*) usage;;
|
|
esac
|
|
done
|
|
shift $(($OPTIND - 1))
|
|
case $# in
|
|
1) ;;
|
|
*) usage;;
|
|
esac
|
|
|
|
${NM:='nm'} "$1" | awk '
|
|
/ C .*sign$/ {
|
|
sign = substr($1, length($1) - 3, 4)
|
|
sub("^0*", "", sign)
|
|
if (sign != "")
|
|
sign = "-"
|
|
}
|
|
/ C .*w0$/ {
|
|
w0 = substr($1, length($1) - 3, 4)
|
|
}
|
|
/ C .*w1$/ {
|
|
w1 = substr($1, length($1) - 3, 4)
|
|
}
|
|
/ C .*w2$/ {
|
|
w2 = substr($1, length($1) - 3, 4)
|
|
}
|
|
/ C .*w3$/ {
|
|
w3 = substr($1, length($1) - 3, 4)
|
|
w = w3 w2 w1 w0
|
|
sub("^0*", "", w)
|
|
if (w == "")
|
|
w = "0"
|
|
sub("w3$", "", $3)
|
|
# This still has minor problems representing INT_MIN, etc. E.g.,
|
|
# with 32-bit 2''s complement ints, this prints -0x80000000, which
|
|
# has the wrong type (unsigned int).
|
|
printf("#define\t%s\t%s0x%s\n", $3, sign, w)
|
|
}
|
|
' 3>"$outfile" >&3 3>&-
|