blob: b364fcf4bd19c34650aeb3236eede09177e65642 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# Read global symbols from object file.
BEGIN {
modname = ARGV[1]
while ("${NM:='nm'} -g " ARGV[1] | getline) {
if (match($0, /^[^[:space:]]+ [^AU] (.*)$/)) {
syms[$3] = $2
}
}
delete ARGV[1]
}
# De-list symbols from the export list.
{
smbl = $0
if (!(smbl in syms)) {
printf "Symbol %s is not present in %s\n", \
smbl, modname > "/dev/stderr"
}
delete syms[smbl]
}
# Strip commons, make everything else local.
END {
for (member in syms) {
if (syms[member] == "C")
print "-N" member
else
print "-L" member
}
}
|