Revision 14545,
940 bytes
checked in by ghudson, 24 years ago
(diff) |
This commit was generated by cvs2svn to compensate for changes in r14544,
which included commits to RCS files with non-trunk default branches.
|
-
Property svn:executable set to
*
|
Line | |
---|
1 | #!/bin/sh |
---|
2 | |
---|
3 | # MPE doesn't have a native nm, and the gcc nm isn't quite fully functional. |
---|
4 | # |
---|
5 | # If Perl Configure is calling us, then use the native linker to extract the |
---|
6 | # symbol table and reformat it into something nm-like. |
---|
7 | # |
---|
8 | # Else it must be gcc calling us during the final link phase, so call gcc nm. |
---|
9 | |
---|
10 | if [ "$1" != "-configperl" ]; then |
---|
11 | # Oops, the caller must be expecting gcc nm. Give it to them. |
---|
12 | /usr/local/bin/nm $@ |
---|
13 | exit $? |
---|
14 | fi |
---|
15 | |
---|
16 | case $2 in |
---|
17 | *.a) LIST="LISTRL RL=$2;DATA;ENTRYSYM" ;; |
---|
18 | *.sl) LIST="LISTXL XL=$2;DATA;ENTRYSYM" ;; |
---|
19 | *) exit 0 ;; |
---|
20 | esac |
---|
21 | |
---|
22 | # I wanted to pipe this into awk, but it fell victim to a known pipe/streams |
---|
23 | # bug on my multiprocessor machine. |
---|
24 | |
---|
25 | callci xeq linkedit.pub.sys \"$LIST\" >/tmp/nm.$$ |
---|
26 | |
---|
27 | awk '\ |
---|
28 | / data univ / { printf "%-20s|%10s|%-6s|%-7s|%s\n",$1,$5,"extern","data","?"} \ |
---|
29 | / entry univ / { printf "%-20s|%10s|%-6s|%-7s|%s\n",$1,$7,"extern","entry","?"}' /tmp/nm.$$ |
---|
30 | |
---|
31 | rm -f /tmp/nm.$$ |
---|
32 | |
---|
33 | exit 0 |
---|
Note: See
TracBrowser
for help on using the repository browser.