From 67ef4f63f1fcedc7202a721007e9aac29133a668 Mon Sep 17 00:00:00 2001 From: "Dr. Stephen Henson" Date: Sat, 10 Dec 2011 13:29:38 +0000 Subject: [PATCH] use different names for asm temp files to avoid problems on some platforms --- util/fipsas.pl | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/util/fipsas.pl b/util/fipsas.pl index fc2a759308..1694c59a41 100644 --- a/util/fipsas.pl +++ b/util/fipsas.pl @@ -8,6 +8,9 @@ my @ARGS = @ARGV; my $top = shift @ARGS; my $target = shift @ARGS; +my $tmptarg = $target; + +$tmptarg =~ s/\.[^\\\/\.]+$/.tmp/; my $runasm = 1; @@ -48,11 +51,15 @@ while () my ($from, $to); +#delete any temp file lying around + +unlink $tmptarg; + #rename target temporarily -rename($target, "tmptarg.s") || die "Can't rename $target"; +rename($target, $tmptarg) || die "Can't rename $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"; while () @@ -75,16 +82,12 @@ if ($runasm) # restore target unlink $target; - rename "tmptarg.s", $target; + rename $tmptarg, $target; die "Error executing assembler!" if $rv != 0; } else { # Don't care about target - unlink "tmptarg.s"; + unlink $tmptarg; } - - - - -- 2.34.1