mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-21 01:15:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

x86_64 assembler translator update.

Browse Source
This commit is contained in:
Andy Polyakov 2005-05-04 08:42:47 +00:00
parent 8b5bf52ac2
commit 70cf309517
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,12 +113,14 @@ my $current_function;
$self->{value} = $1;
$ret = $self;
$line = substr($line,@+[0]); $line =~ s/^\s+//;
$self->{value} = oct($self->{value}) if ($self->{value} =~ /^0/);
}
$ret;
}
sub out {
my $self = shift;
sprintf $masm?"%s":"\$%s",$self->{value};
sprintf $masm?"0%xh":"\$0x%x",$self->{value};
}
}
{ package ea; # pick up effective addresses: expr(%reg,%reg,scale)
@ -134,7 +136,6 @@ my $current_function;
$ret = $self;
$line = substr($line,@+[0]); $line =~ s/^\s+//;
$self->{label} =~ s/\.L/\$L/g;
$self->{base} =~ s/^%//;
$self->{index} =~ s/^%// if (defined($self->{index}));
}
@ -152,7 +153,8 @@ my $current_function;
$self->{base} =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
if (defined($self->{index})) {
sprintf "%s(%%%s,%%%s,%d)", $self->{label},$self->{base},
sprintf "%s(%%%s,%%%s,%d)",
$self->{label},$self->{base},
$self->{index},$self->{scale};
}
else {
@ -161,6 +163,10 @@ my $current_function;
} else {
%szmap = ( b=>"BYTE", w=>"WORD", l=>"DWORD", q=>"QWORD" );
$self->{label} =~ s/\./\$/g;
$self->{label} =~ s/0x([0-9a-f]+)/0$1h/ig;
$self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/);
if (defined($self->{index})) {
sprintf "%s PTR %s[%s*%d+%s]",$szmap{$sz},
$self->{label},