summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/perlasm/x86_64-xlate.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/perlasm/x86_64-xlate.pl')
-rwxr-xr-xsrc/lib/libcrypto/perlasm/x86_64-xlate.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/lib/libcrypto/perlasm/x86_64-xlate.pl b/src/lib/libcrypto/perlasm/x86_64-xlate.pl
index e47116b74b..68b4c1ca80 100755
--- a/src/lib/libcrypto/perlasm/x86_64-xlate.pl
+++ b/src/lib/libcrypto/perlasm/x86_64-xlate.pl
@@ -66,7 +66,7 @@ if ($flavour =~ /\./) { $output = $flavour; undef $flavour; }
66 my ($outdev,$outino,@junk)=stat($output); 66 my ($outdev,$outino,@junk)=stat($output);
67 67
68 open STDOUT,">$output" || die "can't open $output: $!" 68 open STDOUT,">$output" || die "can't open $output: $!"
69 if ($stddev!=$outdev || $stdino!=$outino); 69 if (1 || $stddev!=$outdev || $stdino!=$outino);
70} 70}
71 71
72my $gas=1; $gas=0 if ($output =~ /\.asm$/); 72my $gas=1; $gas=0 if ($output =~ /\.asm$/);
@@ -215,7 +215,8 @@ my %globals;
215 undef $ret; 215 undef $ret;
216 216
217 # optional * ---vvv--- appears in indirect jmp/call 217 # optional * ---vvv--- appears in indirect jmp/call
218 if ($line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)/) { 218 if ($line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)/ &&
219 !($line =~ /^PIC_(GOT|PLT)/)) {
219 $self->{asterisk} = $1; 220 $self->{asterisk} = $1;
220 $self->{label} = $2; 221 $self->{label} = $2;
221 ($self->{base},$self->{index},$self->{scale})=split(/,/,$3); 222 ($self->{base},$self->{index},$self->{scale})=split(/,/,$3);
@@ -625,6 +626,8 @@ my %globals;
625 } 626 }
626} 627}
627 628
629print "#include <machine/asm.h>\n";
630
628if ($nasm) { 631if ($nasm) {
629 print <<___; 632 print <<___;
630default rel 633default rel