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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl -w
# Copyright (C) 2010 Free Software Foundation, Inc.
#
# This file is part of the GNU ISO C++ Library. This library is free
# software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the
# Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this library; see the file COPYING3. If not see
# <http://www.gnu.org/licenses/>.
# Extract symbol version information on Solaris 2.
#
# Sun ld doesn't record symbol versions in .dynsym entries and they cannot
# easily be extracted from readelf --versions output, so use pvs instead.
# This way, we don't require GNU binutils in the native case. Also ensures
# that baseline_symbols.txt is identical between native (pvs, elfdump) and
# cross (readelf) cases.
my $lib = shift;
open PVS, "pvs -dsvo $lib |" or die $!;
while (<PVS>) {
chomp;
# Remove trailing semicolon.
s/;$//;
# shared object, dash, version, symbol, [size]
(undef, undef, $version, $symbol, $size) = split;
# Remove colon separator from version field.
$version =~ s/:$//;
# Record base version. The [BASE] field was only added in Solaris 11,
# so simply use the first record instead.
if ($. == 1) {
$basever = $version;
next;
}
# Skip version declarations.
next unless defined ($symbol);
# Ignore version dependencies.
next if ($symbol =~ /\{.*\}/);
# Emit objects.
if (defined ($size)) {
# Strip parens from object size.
$size =~ s/\((\d+)\)/$1/;
$type{$symbol} = "OBJECT";
$version{$symbol} = $version;
$size{$symbol} = $size;
next;
}
if ($version eq $symbol or $version eq $basever) {
# Emit versions or symbols bound to base versions as objects.
$type{$symbol} = "OBJECT";
$version{$symbol} = $symbol;
$size{$symbol} = 0;
} else {
# Everything else without a size field is a function.
$type{$symbol} = "FUNC";
$version{$symbol} = $version;
}
}
close PVS or die "pvs error";
# Only look at .dynsym table, like readelf in extract_symvers.
open ELFDUMP, "/usr/ccs/bin/elfdump -s -N .dynsym $lib |" or die $!;
while (<ELFDUMP>) {
chomp;
# Ignore empty lines.
next if (/^$/);
# Ignore object name header.
next if (/:$/);
# Ignore table header lines.
next if (/^Symbol Table Section:/);
next if (/index.*value.*size/);
# Split table.
(undef, undef, undef, $type, $bind, $oth, undef, $shndx, $name) = split;
# Error out for unknown input.
die "unknown input line:\n$_" unless defined($bind);
# Ignore local symbols.
next if ($bind eq "LOCL");
# Ignore hidden symbols.
next if ($oth eq "H");
# Ignore undefined symbols.
next if ($shndx eq "UNDEF");
# Error out for unhandled cases. _GLOBAL_OFFSET_TABLE_ is P (protected).
die "unhandled symbol:\n$_" if ($bind !~ /^(GLOB|WEAK)/ or $oth !~ /[DP]/);
# Adapt to readelf type naming convention.
$type = "OBJECT" if ($type eq "OBJT");
# Use correct symbol type.
$type{$name} = $type if ($type{$name} ne $type);
}
close ELFDUMP or die "elfdump error";
foreach $symbol (keys %type) {
if ($type{$symbol} eq "FUNC") {
push @lines, "$type{$symbol}:$symbol\@\@$version{$symbol}\n";
} elsif ($type{$symbol} eq "OBJECT" and $size{$symbol} == 0) {
push @lines, "$type{$symbol}:$size{$symbol}:$version{$symbol}\n";
} else {
push @lines, "$type{$symbol}:$size{$symbol}:$symbol\@\@$version{$symbol}\n";
}
}
print sort @lines;
|
