config: don't add -Wa options with no-asm.

[openssl.git] / util / fipsas.pl

diff --git a/util/fipsas.pl b/util/fipsas.pl
index cd8b8c02f4f4dd4624383d4d97cc8113f53e1824..fc2a759308e62f4e90e8fc297076c2757fbfe591 100644 (file)
--- a/util/fipsas.pl
+++ b/util/fipsas.pl
@@ -9,6 +9,25 @@ my @ARGS = @ARGV;
 my $top = shift @ARGS;
 my $target = shift @ARGS;
 
+my $runasm = 1;
+
+if ($ARGS[0] eq "norunasm")
+       {
+       $runasm = 0;
+       shift @ARGS;
+       }
+
+my $enabled = 0;
+
+$enabled = 1 if $ENV{FIPSCANISTERINTERNAL} eq "y";
+
+if ($enabled == 0 && $runasm)
+       {
+       system @ARGS;
+       exit $?
+       }
+
+
 # Open symbol rename file.
 open(IN, "$top/fips/fipssyms.h") || die "Can't open fipssyms.h";
 
@@ -30,28 +49,42 @@ while (<IN>)
 my ($from, $to);
 
 #rename target temporarily
-rename($target, "tmptarg.s") || die "Can't rename $target\n";
+rename($target, "tmptarg.s") || die "Can't rename $target";
 
 #edit target
-open IN,"tmptarg.s";
-open OUT, ">$target";
+open(IN,"tmptarg.s") || die "Can't open temporary file";
+open(OUT, ">$target") || die "Can't open output file $target";
 
 while (<IN>)
 {
        while (($from, $to) = each %edits)
                {
-               s/(\b)$from(\b)/$1$to$2/g;
+               s/(\b_*)$from(\b)/$1$to$2/g;
                }
        print OUT $_;
 }
-# run assembler
-system @ARGS;
 
-my $rv = $?;
+close OUT;
+
+if ($runasm)
+       {
+       # run assembler
+       system @ARGS;
+
+       my $rv = $?;
+
+       # restore target
+       unlink $target;
+       rename "tmptarg.s", $target;
+
+       die "Error executing assembler!" if $rv != 0;
+       }
+else
+       {
+       # Don't care about target
+       unlink "tmptarg.s";
+       }
+
 
-# restore target
-unlink $target;
-rename "tmptarg.s", $target;
 
-die "Error executing assembler!" if $rv != 0;