Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(221)

Unified Diff: third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm

Issue 2425693003: Revert of Linux build: Use sysroot when calculating dependencies (Closed)
Patch Set: Created 4 years, 2 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
Index: third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm
diff --git a/third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm b/third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm
deleted file mode 100644
index ea3af6960f3686255c9247d733ff478d60251235..0000000000000000000000000000000000000000
--- a/third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm
+++ /dev/null
@@ -1,475 +0,0 @@
-# Copyright © 2007-2010 Raphaël Hertzog <hertzog@debian.org>
-#
-# This program 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 2 of the License, or
-# (at your option) any later version.
-#
-# This program 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 program. If not, see <https://www.gnu.org/licenses/>.
-
-package Dpkg::Shlibs::Objdump;
-
-use strict;
-use warnings;
-
-use Dpkg::Gettext;
-use Dpkg::ErrorHandling;
-use Dpkg::Path qw(find_command);
-use Dpkg::Arch qw(debarch_to_gnutriplet get_build_arch get_host_arch);
-use Dpkg::IPC;
-
-our $VERSION = '0.01';
-
-# Decide which objdump to call
-our $OBJDUMP = 'objdump';
-if (get_build_arch() ne get_host_arch()) {
- my $od = debarch_to_gnutriplet(get_host_arch()) . '-objdump';
- $OBJDUMP = $od if find_command($od);
-}
-
-
-sub new {
- my $this = shift;
- my $class = ref($this) || $this;
- my $self = { objects => {} };
- bless $self, $class;
- return $self;
-}
-
-sub add_object {
- my ($self, $obj) = @_;
- my $id = $obj->get_id;
- if ($id) {
- $self->{objects}{$id} = $obj;
- }
- return $id;
-}
-
-sub analyze {
- my ($self, $file) = @_;
- my $obj = Dpkg::Shlibs::Objdump::Object->new($file);
-
- return $self->add_object($obj);
-}
-
-sub locate_symbol {
- my ($self, $name) = @_;
- foreach my $obj (values %{$self->{objects}}) {
- my $sym = $obj->get_symbol($name);
- if (defined($sym) && $sym->{defined}) {
- return $sym;
- }
- }
- return;
-}
-
-sub get_object {
- my ($self, $objid) = @_;
- if ($self->has_object($objid)) {
- return $self->{objects}{$objid};
- }
- return;
-}
-
-sub has_object {
- my ($self, $objid) = @_;
- return exists $self->{objects}{$objid};
-}
-
-sub is_armhf {
- my ($file) = @_;
- my ($output, %opts, $pid, $res);
- my $hf = 0;
- my $sf = 0;
- $pid = spawn(exec => [ "readelf", "-h", "--", $file ],
- env => { "LC_ALL" => "C" },
- to_pipe => \$output, %opts);
- while (<$output>) {
- chomp;
- if (/0x5000402/) {
- $hf = 1;
- last;
- }
- if (/0x5000202/) {
- $sf = 1;
- last;
- }
- }
- close($output);
- wait_child($pid, nocheck => 1);
- if ($?) {
- subprocerr("readelf");
- }
- if(($hf) || ($sf)) {
- return $hf;
- }
- undef $output;
- $pid = spawn(exec => [ "readelf", "-A", "--", $file ],
- env => { "LC_ALL" => "C" },
- to_pipe => \$output, %opts);
- while (<$output>) {
- chomp;
- if (/Tag_ABI_VFP_args: VFP registers/) {
- $hf = 1;
- last;
- }
- }
- close($output);
- wait_child($pid, nocheck => 1);
- if ($?) {
- subprocerr("readelf");
- }
- return $hf;
-}
-
-{
- my %format; # Cache of result
- sub get_format {
- my ($file, $objdump) = @_;
-
- $objdump //= $OBJDUMP;
-
- if (exists $format{$file}) {
- return $format{$file};
- } else {
- my ($output, %opts, $pid, $res);
- if ($objdump ne 'objdump') {
- $opts{error_to_file} = '/dev/null';
- }
- $pid = spawn(exec => [ $objdump, '-a', '--', $file ],
- env => { LC_ALL => 'C' },
- to_pipe => \$output, %opts);
- while (<$output>) {
- chomp;
- if (/^\s*\S+:\s*file\s+format\s+(\S+)\s*$/) {
- $format{$file} = $1;
- $res = $format{$file};
- last;
- }
- }
- close($output);
- wait_child($pid, nocheck => 1);
- if ($?) {
- subprocerr('objdump') if $objdump eq 'objdump';
- $res = get_format($file, 'objdump');
- }
- if ($res eq "elf32-littlearm") {
- if (is_armhf($file)) {
- $res = "elf32-littlearm-hfabi";
- } else {
- $res = "elf32-littlearm-sfabi";
- }
- $format{$file} = $res;
- }
- return $res;
- }
- }
-}
-
-sub is_elf {
- my ($file) = @_;
- open(my $file_fh, '<', $file) or syserr(_g('cannot read %s'), $file);
- my ($header, $result) = ('', 0);
- if (read($file_fh, $header, 4) == 4) {
- $result = 1 if ($header =~ /^\177ELF$/);
- }
- close($file_fh);
- return $result;
-}
-
-package Dpkg::Shlibs::Objdump::Object;
-
-use Dpkg::Gettext;
-use Dpkg::ErrorHandling;
-
-sub new {
- my $this = shift;
- my $file = shift || '';
- my $class = ref($this) || $this;
- my $self = {};
- bless $self, $class;
-
- $self->reset;
- if ($file) {
- $self->analyze($file);
- }
-
- return $self;
-}
-
-sub reset {
- my ($self) = @_;
-
- $self->{file} = '';
- $self->{id} = '';
- $self->{SONAME} = '';
- $self->{HASH} = '';
- $self->{GNU_HASH} = '';
- $self->{SONAME} = '';
- $self->{NEEDED} = [];
- $self->{RPATH} = [];
- $self->{dynsyms} = {};
- $self->{flags} = {};
- $self->{dynrelocs} = {};
-
- return $self;
-}
-
-
-sub analyze {
- my ($self, $file) = @_;
-
- $file ||= $self->{file};
- return unless $file;
-
- $self->reset;
- $self->{file} = $file;
-
- local $ENV{LC_ALL} = 'C';
- open(my $objdump, '-|', $OBJDUMP, '-w', '-f', '-p', '-T', '-R', $file)
- or syserr(_g('cannot fork for %s'), $OBJDUMP);
- my $ret = $self->parse_objdump_output($objdump);
- close($objdump);
- return $ret;
-}
-
-sub parse_objdump_output {
- my ($self, $fh) = @_;
-
- my $section = 'none';
- while (defined($_ = <$fh>)) {
- chomp;
- next if /^\s*$/;
-
- if (/^DYNAMIC SYMBOL TABLE:/) {
- $section = 'dynsym';
- next;
- } elsif (/^DYNAMIC RELOCATION RECORDS/) {
- $section = 'dynreloc';
- $_ = <$fh>; # Skip header
- next;
- } elsif (/^Dynamic Section:/) {
- $section = 'dyninfo';
- next;
- } elsif (/^Program Header:/) {
- $section = 'header';
- next;
- } elsif (/^Version definitions:/) {
- $section = 'verdef';
- next;
- } elsif (/^Version References:/) {
- $section = 'verref';
- next;
- }
-
- if ($section eq 'dynsym') {
- $self->parse_dynamic_symbol($_);
- } elsif ($section eq 'dynreloc') {
- if (/^\S+\s+(\S+)\s+(\S+)\s*$/) {
- $self->{dynrelocs}{$2} = $1;
- } else {
- warning(_g("couldn't parse dynamic relocation record: %s"), $_);
- }
- } elsif ($section eq 'dyninfo') {
- if (/^\s*NEEDED\s+(\S+)/) {
- push @{$self->{NEEDED}}, $1;
- } elsif (/^\s*SONAME\s+(\S+)/) {
- $self->{SONAME} = $1;
- } elsif (/^\s*HASH\s+(\S+)/) {
- $self->{HASH} = $1;
- } elsif (/^\s*GNU_HASH\s+(\S+)/) {
- $self->{GNU_HASH} = $1;
- } elsif (/^\s*RUNPATH\s+(\S+)/) {
- # RUNPATH takes precedence over RPATH but is
- # considered after LD_LIBRARY_PATH while RPATH
- # is considered before (if RUNPATH is not set).
- $self->{RPATH} = [ split (/:/, $1) ];
- } elsif (/^\s*RPATH\s+(\S+)/) {
- unless (scalar(@{$self->{RPATH}})) {
- $self->{RPATH} = [ split (/:/, $1) ];
- }
- }
- } elsif ($section eq 'none') {
- if (/^\s*.+:\s*file\s+format\s+(\S+)\s*$/) {
- $self->{format} = $1;
- if (($self->{format} eq "elf32-littlearm") && $self->{file}) {
- if (Dpkg::Shlibs::Objdump::is_armhf($self->{file})) {
- $self->{format} = "elf32-littlearm-hfabi";
- } else {
- $self->{format} = "elf32-littlearm-sfabi";
- }
- }
- } elsif (/^architecture:\s*\S+,\s*flags\s*\S+:\s*$/) {
- # Parse 2 lines of "-f"
- # architecture: i386, flags 0x00000112:
- # EXEC_P, HAS_SYMS, D_PAGED
- # start address 0x08049b50
- $_ = <$fh>;
- chomp;
- $self->{flags}{$_} = 1 foreach (split(/,\s*/));
- }
- }
- }
- # Update status of dynamic symbols given the relocations that have
- # been parsed after the symbols...
- $self->apply_relocations();
-
- return $section ne 'none';
-}
-
-# Output format of objdump -w -T
-#
-# /lib/libc.so.6: file format elf32-i386
-#
-# DYNAMIC SYMBOL TABLE:
-# 00056ef0 g DF .text 000000db GLIBC_2.2 getwchar
-# 00000000 g DO *ABS* 00000000 GCC_3.0 GCC_3.0
-# 00069960 w DF .text 0000001e GLIBC_2.0 bcmp
-# 00000000 w D *UND* 00000000 _pthread_cleanup_pop_restore
-# 0000b788 g DF .text 0000008e Base .protected xine_close
-# 0000b788 g DF .text 0000008e .hidden IA__g_free
-# | ||||||| | | | |
-# | ||||||| | | Version str (.visibility) + Symbol name
-# | ||||||| | Alignment
-# | ||||||| Section name (or *UND* for an undefined symbol)
-# | ||||||F=Function,f=file,O=object
-# | |||||d=debugging,D=dynamic
-# | ||||I=Indirect
-# | |||W=warning
-# | ||C=constructor
-# | |w=weak
-# | g=global,l=local,!=both global/local
-# Size of the symbol
-#
-# GLIBC_2.2 is the version string associated to the symbol
-# (GLIBC_2.2) is the same but the symbol is hidden, a newer version of the
-# symbol exist
-
-sub parse_dynamic_symbol {
- my ($self, $line) = @_;
- my $vis_re = '(\.protected|\.hidden|\.internal|0x\S+)';
- if ($line =~ /^[0-9a-f]+ (.{7})\s+(\S+)\s+[0-9a-f]+(?:\s+(\S+))?(?:\s+$vis_re)?\s+(\S+)/) {
-
- my ($flags, $sect, $ver, $vis, $name) = ($1, $2, $3, $4, $5);
-
- # Special case if version is missing but extra visibility
- # attribute replaces it in the match
- if (defined($ver) and $ver =~ /^$vis_re$/) {
- $vis = $ver;
- $ver = '';
- }
-
- # Cleanup visibility field
- $vis =~ s/^\.// if defined($vis);
-
- my $symbol = {
- name => $name,
- version => defined($ver) ? $ver : '',
- section => $sect,
- dynamic => substr($flags, 5, 1) eq 'D',
- debug => substr($flags, 5, 1) eq 'd',
- type => substr($flags, 6, 1),
- weak => substr($flags, 1, 1) eq 'w',
- local => substr($flags, 0, 1) eq 'l',
- global => substr($flags, 0, 1) eq 'g',
- visibility => defined($vis) ? $vis : '',
- hidden => '',
- defined => $sect ne '*UND*'
- };
-
- # Handle hidden symbols
- if (defined($ver) and $ver =~ /^\((.*)\)$/) {
- $ver = $1;
- $symbol->{version} = $1;
- $symbol->{hidden} = 1;
- }
-
- # Register symbol
- $self->add_dynamic_symbol($symbol);
- } elsif ($line =~ /^[0-9a-f]+ (.{7})\s+(\S+)\s+[0-9a-f]+/) {
- # Same start but no version and no symbol ... just ignore
- } elsif ($line =~ /^REG_G\d+\s+/) {
- # Ignore some s390-specific output like
- # REG_G6 g R *UND* 0000000000000000 #scratch
- } else {
- warning(_g("couldn't parse dynamic symbol definition: %s"), $line);
- }
-}
-
-sub apply_relocations {
- my ($self) = @_;
- foreach my $sym (values %{$self->{dynsyms}}) {
- # We want to mark as undefined symbols those which are currently
- # defined but that depend on a copy relocation
- next if not $sym->{defined};
- next if not exists $self->{dynrelocs}{$sym->{name}};
- if ($self->{dynrelocs}{$sym->{name}} =~ /^R_.*_COPY$/) {
- $sym->{defined} = 0;
- }
- }
-}
-
-sub add_dynamic_symbol {
- my ($self, $symbol) = @_;
- $symbol->{objid} = $symbol->{soname} = $self->get_id();
- $symbol->{soname} =~ s{^.*/}{} unless $self->{SONAME};
- if ($symbol->{version}) {
- $self->{dynsyms}{$symbol->{name} . '@' . $symbol->{version}} = $symbol;
- } else {
- $self->{dynsyms}{$symbol->{name} . '@Base'} = $symbol;
- }
-}
-
-sub get_id {
- my $self = shift;
- return $self->{SONAME} || $self->{file};
-}
-
-sub get_symbol {
- my ($self, $name) = @_;
- if (exists $self->{dynsyms}{$name}) {
- return $self->{dynsyms}{$name};
- }
- if ($name !~ /@/) {
- if (exists $self->{dynsyms}{$name . '@Base'}) {
- return $self->{dynsyms}{$name . '@Base'};
- }
- }
- return;
-}
-
-sub get_exported_dynamic_symbols {
- my ($self) = @_;
- return grep { $_->{defined} && $_->{dynamic} && !$_->{local} }
- values %{$self->{dynsyms}};
-}
-
-sub get_undefined_dynamic_symbols {
- my ($self) = @_;
- return grep { (!$_->{defined}) && $_->{dynamic} }
- values %{$self->{dynsyms}};
-}
-
-sub get_needed_libraries {
- my $self = shift;
- return @{$self->{NEEDED}};
-}
-
-sub is_executable {
- my $self = shift;
- return exists $self->{flags}{EXEC_P} && $self->{flags}{EXEC_P};
-}
-
-sub is_public_library {
- my $self = shift;
- return exists $self->{flags}{DYNAMIC} && $self->{flags}{DYNAMIC}
- && exists $self->{SONAME} && $self->{SONAME};
-}
-
-1;
« no previous file with comments | « third_party/dpkg-dev/scripts/Dpkg/Shlibs/Cppfilt.pm ('k') | third_party/dpkg-dev/scripts/Dpkg/Shlibs/Symbol.pm » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698