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

Allow 32-bit perl to generate x86_64 assembler.

Browse Source
This commit is contained in:
Andy Polyakov 2008-02-13 20:01:48 +00:00
parent 7c52b7706f
commit 2923e91a98
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -390,11 +390,15 @@ my $current_function;
&& do { my @arr = split(',',$line); && do { my @arr = split(',',$line);
my $sz = substr($1,0,1); my $sz = substr($1,0,1);
my $last = pop(@arr); my $last = pop(@arr);
my $conv = sub { my $var=shift;
if ($var=~s/0x([0-9a-f]+)/0$1h/i) { $var; }
else { sprintf"0%Xh",$var; }
};
$sz =~ tr/bvlq/BWDQ/; $sz =~ tr/bvlq/BWDQ/;
$self->{value} = "\tD$sz\t"; $self->{value} = "\tD$sz\t";
for (@arr) { $self->{value} .= sprintf"0%Xh,",oct; } for (@arr) { $self->{value} .= &$conv($_).","; }
$self->{value} .= sprintf"0%Xh",oct($last); $self->{value} .= &$conv($last);
last; last;
}; };
/\.picmeup/ && do { $self->{value} = sprintf"\tDD\t 0%Xh,090000000h",$opcode{$line}; /\.picmeup/ && do { $self->{value} = sprintf"\tDD\t 0%Xh,090000000h",$opcode{$line};