strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

always request an unversioned lib from gcc in gccinstlib.pl

Browse source 
* this otherwise breaks on ubuntu natty as there is (rightfully) no libgcc_s.so.1 file served by gcc -print-file-name
This commit is contained in:
Bjoern Michaelsen 2011-05-04 01:55:36 +02:00
parent fc9237d5f6
commit 434f7f0234
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
solenv/bin/gccinstlib.pl
View file

@ -38,19 +38,23 @@ if ($Dest =~ /--help/ || @ARGV < 1) {
print "Syntax:\n gcc-instlib <library-in-libpath ...> <destination-dir>\n";
exit (0);
}
%SrcAndDest = ();
foreach $File (@ARGV) {
my $string;
open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-file-name=$File|") || die "Failed to exec $cc -print-file-name=$File $!";
my $normalized_file = $File;
$normalized_file =~ s/\.so\.\d+/.so/;
open (GCCOut, "LANGUAGE=C LC_ALL=C $cc -print-file-name=$normalized_file|") || die "Failed to exec $cc -print-file-name=$normalized_file $!";
$string=<GCCOut>;
chomp ($string);
push (@CopySrc, $string);
$SrcAndDest{$string} = "$Dest/$File";
close (GCCOut);
}
foreach $Src (@CopySrc) {
printf "copy $Src to $Dest\n";
system ("/bin/cp $Src $Dest") && die "copy failed: $!";
while (($Src, $FullDest) = each %SrcAndDest) {
printf "copy $Src to $FullDest\n";
system ("/bin/cp $Src $FullDest") && die "copy failed: $!";
}