3 # Copyright (C) 2010-2018 Free Software Foundation, Inc.
5 # This file is part of the GNU ISO C++ Library. This library is free
6 # software; you can redistribute it and/or modify it under the
7 # terms of the GNU General Public License as published by the
8 # Free Software Foundation; either version 3, or (at your option)
11 # This library is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with this library; see the file COPYING3. If not see
18 # <http://www.gnu.org/licenses/>.
20 # Extract symbol version information on Solaris 2.
22 # Sun ld doesn't record symbol versions in .dynsym entries and they cannot
23 # easily be extracted from readelf --versions output, so use pvs instead.
24 # This way, we don't require GNU binutils in the native case. Also ensures
25 # that baseline_symbols.txt is identical between native (pvs, elfdump) and
26 # cross (readelf) cases.
30 open PVS
, "pvs -dsvo $lib |" or die $!;
34 # Remove trailing semicolon.
37 # shared object, dash, version, symbol, [size]
38 (undef, undef, $version, $symbol, $size) = split;
40 # Remove colon separator from version field.
43 # Record base version. The [BASE] field was only added in Solaris 11,
44 # so simply use the first record instead.
50 # Skip version declarations.
51 next unless defined ($symbol);
53 # Ignore version dependencies.
54 next if ($symbol =~ /\{.*\}/);
57 if (defined ($size)) {
58 # Strip parens from object size.
59 $size =~ s/\((\d+)\)/$1/;
61 $type{$symbol} = "OBJECT";
62 $version{$symbol} = $version;
63 $size{$symbol} = $size;
67 if ($version eq $symbol or $version eq $basever) {
68 # Emit versions or symbols bound to base versions as objects.
69 $type{$symbol} = "OBJECT";
70 if ($version eq $basever) {
71 $version{$symbol} = $version;
73 $version{$symbol} = $symbol;
77 # Everything else without a size field is a function.
78 $type{$symbol} = "FUNC";
79 $version{$symbol} = $version;
82 close PVS
or die "pvs error";
84 # Only look at .dynsym table, like readelf in extract_symvers.
85 # Ignore error output to avoid getting confused by
86 # .gnu.version_r: zero sh_entsize information, expected 0x1
87 # warning with Solaris 11 elfdump on gld-produced shared objects.
88 open ELFDUMP
, "/usr/ccs/bin/elfdump -s -N .dynsym $lib 2>/dev/null |" or die $!;
95 # Ignore object name header.
98 # Ignore table header lines.
99 next if (/^Symbol Table Section:/);
100 next if (/index.*value.*size/);
103 (undef, undef, undef, $type, $bind, $oth, undef, $shndx, $name) = split;
105 # Error out for unknown input.
106 die "unknown input line:\n$_" unless defined($bind);
108 # Ignore local symbols.
109 next if ($bind eq "LOCL");
110 # Ignore hidden symbols.
111 next if ($oth eq "H");
112 # Ignore undefined symbols.
113 next if ($shndx eq "UNDEF");
114 # Error out for unhandled cases. _GLOBAL_OFFSET_TABLE_ is P (protected).
115 die "unhandled symbol:\n$_" if ($bind !~ /^(GLOB|WEAK)/ or $oth !~ /[DP]/);
117 # Adapt to readelf type naming convention.
118 $type = "NOTYPE" if ($type eq "NOTY");
119 $type = "OBJECT" if ($type eq "OBJT");
121 # Use correct symbol type.
122 $type{$name} = $type if ($type{$name} ne $type);
124 close ELFDUMP
or die "elfdump error";
126 foreach $symbol (keys %type) {
127 if ($type{$symbol} eq "FUNC" || $type{$symbol} eq "NOTYPE") {
128 push @lines, "$type{$symbol}:$symbol\@\@$version{$symbol}\n";
129 } elsif ($type{$symbol} eq "OBJECT" and $size{$symbol} == 0) {
130 # Omit symbols bound to base version; details can differ depending
131 # on the toolchain used.
132 next if $version{$symbol} eq $basever;
134 push @lines, "$type{$symbol}:$size{$symbol}:$version{$symbol}\n";
136 push @lines, "$type{$symbol}:$size{$symbol}:$symbol\@\@$version{$symbol}\n";