mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-21 01:15:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

use different names for asm temp files to avoid problems on some platforms

Browse Source
This commit is contained in:
Dr. Stephen Henson 2011-12-10 13:29:38 +00:00
parent 3bfe583b8d
commit 67ef4f63f1
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
util/fipsas.pl
View File

@ -8,6 +8,9 @@ my @ARGS = @ARGV;
my $top = shift @ARGS; my $top = shift @ARGS;
my $target = shift @ARGS; my $target = shift @ARGS;
my $tmptarg = $target;
$tmptarg =~ s/\.[^\\\/\.]+$/.tmp/;
my $runasm = 1; my $runasm = 1;
@ -48,11 +51,15 @@ while (<IN>)
my ($from, $to); my ($from, $to);
#delete any temp file lying around
unlink $tmptarg;
#rename target temporarily #rename target temporarily
rename($target, "tmptarg.s") || die "Can't rename $target"; rename($target, $tmptarg) || die "Can't rename $target";
#edit target #edit target
open(IN,"tmptarg.s") || die "Can't open temporary file"; open(IN,$tmptarg) || die "Can't open temporary file";
open(OUT, ">$target") || die "Can't open output file $target"; open(OUT, ">$target") || die "Can't open output file $target";
while (<IN>) while (<IN>)
@ -75,16 +82,12 @@ if ($runasm)
# restore target # restore target
unlink $target; unlink $target;
rename "tmptarg.s", $target; rename $tmptarg, $target;
die "Error executing assembler!" if $rv != 0; die "Error executing assembler!" if $rv != 0;
} }
else else
{ {
# Don't care about target # Don't care about target
unlink "tmptarg.s"; unlink $tmptarg;
} }