On Wed, Aug 09, 2006 at 03:16:59AM +0400, Dmitry V. Levin wrote:
> 000012cc g    DO .bss   00000004 (V1)         foo
> 00000248 g    DF .text  00000005  V2          foo
  1        2    3  4      5         6           7

Где бы узнать про формат вывода objdump -Tw?
binutils-*/bfd/elf.c не предлагать.

2 -- visibility
3 -- что это??

> Таким образом, нужно использовать objdump -wT вместо nm -D.

Вот так вроде работает.

--- /home/at/cvs/qa/qa-robot/rpmelfsym	2006-05-27 11:15:29 +0000
+++ /home/at/cvs/qa/qa-robot/rpmelfsymv	2006-08-13 16:57:32 +0000
@@ -1,17 +1,39 @@
 #!/bin/sh -ef
 export LC_ALL=C
 
-rpmelfsym()
+rpmelfsymv()
 {
 	rpmfile "$1" >files
 	awk -F'\t' '$NF~/ELF.*(dynamic|shared)/{printf"./%s\0",$1}' files >elfs0
 	[ -s elfs0 ] || return 0
-	rpmpeek "$1" xargs -r0 nm -Do <elfs0 >nm.out
-	awk '{OFS="\t";sub("^./","",$1);sub(":[0-9a-fA-F]*$","",$1);print}' nm.out
+	rpmpeek "$1" xargs -r0 objdump -Tw  <elfs0 >objdump.out
+	perl -ln - objdump.out <<'__EOF__'
+#!/usr/bin/perl	
+	if (/^$/ or /^DYNAMIC SYMBOL TABLE:$/) { next; }
+	if (s/:\s+file format.+//) { s[^./][]; $f = $_; next; }
+BEGIN { $x = qr/([a-f0-9]+)/; $w = qr/(\w+)/; $S = qr/(\S+?)/; $s = qr/[ ]+/; }
+BEGIN { %T = qw(.text T .data D .bss B .rodata R .data.rel.ro D *ABS* A *UND* U
+		.init T .fini T __libc_freeres_fn T __libc_thread_freeres_fn T
+		.interp R text.hot T text.unlikely T); }
+	if (/^$x$s(?:$w$s)?$w$s$S\t$x$s(?:[(]?$S[)]?$s)?(?:[.0]$w$s)?$S$/) {
+		$vis = $2; $typ = $4; $abi = $6; $sym = $8;
+		next if $vis eq "l";
+		$t = $T{$typ} or die "$f: $sym: unknown type $typ\n";
+		$vis eq "w" and $t eq "U" and $t = "w" or
+		$vis eq "w" and $t .= "W";
+		$abi = "-" if $abi eq "" or $abi eq "Base";
+		print "$f\t$t\t$sym\t$abi";
+		next;
+	}
+	if (/^$x$s(?:$w$s)?$w$s$S\t$x$s$/) {
+		next;
+	}
+	die "bad objdump output:\n$_";
+__EOF__
 }
 
 . cmdcache ""
-. rpmargs -c "cmdcache rpmelfsym" "$@"
+. rpmargs -c "rpmelfsymv" "$@"
 
 : <<'__EOF__'