Revert of Linux build: Use sysroot when calculating dependencies

third_party/dpkg-dev/scripts/Dpkg/Shlibs/Objdump.pm

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;