* speclib: Fix created lib to avoid "File truncated" problems.
This commit is contained in:
parent
49703eb3f5
commit
0b10f795f1
@ -1,3 +1,7 @@
|
|||||||
|
2003-08-20 Christopher Faylor <cgf@redhat.com>
|
||||||
|
|
||||||
|
* speclib: Fix created lib to avoid "File truncated" problems.
|
||||||
|
|
||||||
2003-08-20 Pierre Humblet <pierre.humblet@ieee.org>
|
2003-08-20 Pierre Humblet <pierre.humblet@ieee.org>
|
||||||
|
|
||||||
* exceptions.cc (interrupt_setup): Set sigsave.sig last to avoid a
|
* exceptions.cc (interrupt_setup): Set sigsave.sig last to avoid a
|
||||||
|
@ -37,3 +37,16 @@ else
|
|||||||
fi
|
fi
|
||||||
/bin/rm -f $lib
|
/bin/rm -f $lib
|
||||||
$ar crus $lib *.o
|
$ar crus $lib *.o
|
||||||
|
export lib;
|
||||||
|
perl -pi.bak -- - $lib << 'EOF'
|
||||||
|
BEGIN {
|
||||||
|
binmode STDIN;
|
||||||
|
binmode STDOUT;
|
||||||
|
$lib = ($ENV{lib} =~ m!/([^/]+)$!o)[0] || $ENV{lib};
|
||||||
|
$lib =~ s/\.a//o;
|
||||||
|
my $pad = length('cygwin1_dll') - length($lib);
|
||||||
|
die "speclib: library name too long (" . length($lib) . ")\n" if $pad < 0;
|
||||||
|
$lib = "__head_$lib" . "\0" x $pad;
|
||||||
|
}
|
||||||
|
s/__head_cygwin1_dll/$lib/g;
|
||||||
|
'EOF'
|
||||||
|
Loading…
Reference in New Issue
Block a user