From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- libstdc++-v3/scripts/extract_symvers.pl | 127 ++++++++++++++++++++++++++++++++ 1 file changed, 127 insertions(+) create mode 100644 libstdc++-v3/scripts/extract_symvers.pl (limited to 'libstdc++-v3/scripts/extract_symvers.pl') diff --git a/libstdc++-v3/scripts/extract_symvers.pl b/libstdc++-v3/scripts/extract_symvers.pl new file mode 100644 index 000000000..2bac1cd56 --- /dev/null +++ b/libstdc++-v3/scripts/extract_symvers.pl @@ -0,0 +1,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 +# . + +# 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 () { + 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 () { + 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; -- cgit v1.2.3