mirror of
https://github.com/openssl/openssl.git
synced 2025-02-11 14:22:43 +08:00
ce02589259
build options. All fispcanisterbuild builds only build fipscanister.o and include symbol renaming. Move all renamed symbols to fipssyms.h Update README.FIPS
91 lines
1.2 KiB
Perl
91 lines
1.2 KiB
Perl
|
|
# FIPS assembly language preprocessor
|
|
# Renames all symbols in the file to
|
|
# their modified fips versions.
|
|
|
|
|
|
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";
|
|
|
|
# Skip to assembler symbols
|
|
while (<IN>)
|
|
{
|
|
last if (/assembler/)
|
|
}
|
|
|
|
# Store all renames.
|
|
while (<IN>)
|
|
{
|
|
if (/^#define\s+(\w+)\s+(\w+)\b/)
|
|
{
|
|
$edits{$1} = $2;
|
|
}
|
|
}
|
|
|
|
my ($from, $to);
|
|
|
|
#rename target temporarily
|
|
rename($target, "tmptarg.s") || die "Can't rename $target\n";
|
|
|
|
#edit target
|
|
open IN,"tmptarg.s";
|
|
open OUT, ">$target";
|
|
|
|
while (<IN>)
|
|
{
|
|
while (($from, $to) = each %edits)
|
|
{
|
|
s/(\b_*)$from(\b)/$1$to$2/g;
|
|
}
|
|
print OUT $_;
|
|
}
|
|
|
|
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";
|
|
}
|
|
|
|
|
|
|
|
|