generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

x86_64-xlate.pl from HEAD.

Browse Source
This commit is contained in:
Andy Polyakov
2007-07-23 14:21:42 +00:00
parent 28feb1f8da
commit 5f1211834f
1 changed files with 39 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
crypto/perlasm/x86_64-xlate.pl
View File

@@ -57,7 +57,13 @@
# lea .Label-.Lpic_point(%rcx),%rbp # lea .Label-.Lpic_point(%rcx),%rbp
my $output = shift; my $output = shift;
open STDOUT,">$output" || die "can't open $output: $!";
{ my ($stddev,$stdino,@junk)=stat(STDOUT);
my ($outdev,$outino,@junk)=stat($output);
open STDOUT,">$output" || die "can't open $output: $!"
if ($stddev!=$outdev || $stdino!=$outino);
}
my $masm=1 if ($output =~ /\.asm/); my $masm=1 if ($output =~ /\.asm/);
@@ -70,7 +76,7 @@ my $current_function;
local *line = shift; local *line = shift;
undef $ret; undef $ret;
if ($line =~ /^([a-z]+)/i) { if ($line =~ /^([a-z][a-z0-9]*)/i) {
$self->{op} = $1; $self->{op} = $1;
$ret = $self; $ret = $self;
$line = substr($line,@+[0]); $line =~ s/^\s+//; $line = substr($line,@+[0]); $line =~ s/^\s+//;
@@ -95,8 +101,10 @@ my $current_function;
sub out { sub out {
my $self = shift; my $self = shift;
if (!$masm) { if (!$masm) {
if ($self->{op} eq "movz") { # movz in pain... if ($self->{op} eq "movz") { # movz is pain...
sprintf "%s%s%s",$self->{op},$self->{sz},shift; sprintf "%s%s%s",$self->{op},$self->{sz},shift;
} elsif ($self->{op} =~ /^set/) {
"$self->{op}";
} elsif ($self->{op} eq "ret") { } elsif ($self->{op} eq "ret") {
".byte 0xf3,0xc3"; ".byte 0xf3,0xc3";
} else { } else {
@@ -133,6 +141,10 @@ my $current_function;
my $self = shift; my $self = shift;
if (!$masm) { if (!$masm) {
# Solaris /usr/ccs/bin/as can't handle multiplications
# in $self->{value}
$self->{value} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)/egi;
$self->{value} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
sprintf "\$%s",$self->{value}; sprintf "\$%s",$self->{value};
} else { } else {
$self->{value} =~ s/0x([0-9a-f]+)/0$1h/ig; $self->{value} =~ s/0x([0-9a-f]+)/0$1h/ig;
@@ -163,14 +175,16 @@ my $current_function;
my $self = shift; my $self = shift;
my $sz = shift; my $sz = shift;
# Silently convert all EAs to 64-bit. This is required for
# elder GNU assembler and results in more compact code,
# *but* most importantly AES module depends on this feature!
$self->{index} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;
$self->{base} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;
if (!$masm) { if (!$masm) {
# elder GNU assembler insists on 64-bit EAs:-(
# on pros side, this results in more compact code:-)
$self->{index} =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
$self->{base} =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
# Solaris /usr/ccs/bin/as can't handle multiplications # Solaris /usr/ccs/bin/as can't handle multiplications
# in $self->{label} # in $self->{label}
$self->{label} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)/eg; $self->{label} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)/egi;
$self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; $self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
if (defined($self->{index})) { if (defined($self->{index})) {
@@ -192,6 +206,8 @@ my $current_function;
$self->{label}, $self->{label},
$self->{index},$self->{scale}, $self->{index},$self->{scale},
$self->{base}; $self->{base};
} elsif ($self->{base} eq "rip") {
sprintf "%s PTR %s",$szmap{$sz},$self->{label};
} else { } else {
sprintf "%s PTR %s[%s]",$szmap{$sz}, sprintf "%s PTR %s[%s]",$szmap{$sz},
$self->{label},$self->{base}; $self->{label},$self->{base};
@@ -317,6 +333,10 @@ my $current_function;
$line =~ s/\@function.*/\@function/; $line =~ s/\@function.*/\@function/;
if ($line =~ /\.picmeup\s+(%r[\w]+)/i) { if ($line =~ /\.picmeup\s+(%r[\w]+)/i) {
$self->{value} = sprintf "\t.long\t0x%x,0x90000000",$opcode{$1}; $self->{value} = sprintf "\t.long\t0x%x,0x90000000",$opcode{$1};
} elsif ($line =~ /\.asciz\s+"(.*)"$/) {
$self->{value} = ".byte\t".join(",",unpack("C*",$1),0);
} elsif ($line =~ /\.extern/) {
$self->{value} = ""; # swallow extern
} else { } else {
$self->{value} = $line; $self->{value} = $line;
} }
@@ -338,6 +358,7 @@ my $current_function;
$self->{value} = $v; $self->{value} = $v;
last; last;
}; };
/\.extern/ && do { $self->{value} = "EXTRN\t".$line; last; };
/\.globl/ && do { $self->{value} = "PUBLIC\t".$line; last; }; /\.globl/ && do { $self->{value} = "PUBLIC\t".$line; last; };
/\.type/ && do { ($sym,$type,$narg) = split(',',$line); /\.type/ && do { ($sym,$type,$narg) = split(',',$line);
if ($type eq "\@function") { if ($type eq "\@function") {
@@ -372,6 +393,12 @@ my $current_function;
/\.picmeup/ && do { $self->{value} = sprintf"\tDD\t 0%Xh,090000000h",$opcode{$line}; /\.picmeup/ && do { $self->{value} = sprintf"\tDD\t 0%Xh,090000000h",$opcode{$line};
last; last;
}; };
/\.asciz/ && do { if ($line =~ /^"(.*)"$/) {
$self->{value} = "DB\t"
.join(",",unpack("C*",$1),0);
}
last;
};
} }
$line = ""; $line = "";
} }
@@ -480,7 +507,10 @@ close STDOUT;
# arguments passed to callee, *but* not less than 4! This means that # arguments passed to callee, *but* not less than 4! This means that
# upon function entry point 5th argument resides at 40(%rsp), as well # upon function entry point 5th argument resides at 40(%rsp), as well
# as that 32 bytes from 8(%rsp) can always be used as temporal # as that 32 bytes from 8(%rsp) can always be used as temporal
# storage [without allocating a frame]. # storage [without allocating a frame]. One can actually argue that
# one can assume a "red zone" above stack pointer under Win64 as well.
# Point is that at apparently no occasion Windows kernel would alter
# the area above user stack pointer in true asynchronous manner...
# #
# All the above means that if assembler programmer adheres to Unix # All the above means that if assembler programmer adheres to Unix
# register and stack layout, but disregards the "red zone" existense, # register and stack layout, but disregards the "red zone" existense,