123456789101112131415161718192021222324252627 |
- # $FreeBSD$
- # Read global symbols from object file.
- BEGIN {
- 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.
- {
- delete syms[$0]
- }
- # Strip commons, make everything else local.
- END {
- for (member in syms) {
- if (syms[member] == "C")
- print "-N" member
- else
- print "-L" member
- }
- }
|