JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* speclib: Initial stab at cleaning up temp files. More work needed.

Browse Source 
* mkimport: Ditto.
This commit is contained in:
Christopher Faylor
2009-04-12 05:11:08 +00:00
parent d129941aef
commit 73bd57524a
3 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
winsup/cygwin/speclib
View File

@@ -1,6 +1,6 @@
#!/usr/bin/perl
use Getopt::Long;
use File::Temp qw'tempdir';
use File::Temp;
use File::Basename;
use File::Spec;
use strict;
@@ -43,11 +43,14 @@ close $nm_fd;
%extract or die "$0: couldn't find symbols for $lib\n";
my $dir = tempdir(CLEANUP => 1);
my $dir = File::Temp->newdir();
chdir $dir;
# print join(' ', '+', $ar, 'x', sort keys %extract), "\n";
my $res = system $ar, 'x', $libdll, sort keys %extract;
die "$0: $ar extraction exited with non-zero status\n" if $res;
unlink $lib;
exec $ar, 'crus', $lib, sort keys %extract;
$res = system $ar, 'crus', $lib, sort keys %extract;
unlink keys %extract;
die "$0: ar creation of $lib exited with non-zero status\n" if $res;
exit 0;