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

x86_64-xlate.pl: fix masm hexadecimal constants.

Browse Source
This commit is contained in:
Andy Polyakov 2008-12-19 11:14:38 +00:00
parent 4db4882402
commit bf785c9849
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -574,7 +574,7 @@ my %globals;
my @arr = split(',',$line); my @arr = split(',',$line);
my $last = pop(@arr); my $last = pop(@arr);
my $conv = sub { my $var=shift; my $conv = sub { my $var=shift;
$var=~s/0x([0-9a-f]+)/0$1h/ig; $var=~s/0x([0-9a-f]+)/0$1h/ig if ($masm);
if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva")) if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva"))
{ $var=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; } { $var=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; }
$var; $var;
@ -587,6 +587,7 @@ my %globals;
last; last;
}; };
/\.byte/ && do { my @str=split(",",$line); /\.byte/ && do { my @str=split(",",$line);
map(s/0x([0-9a-f]+)/0$1h/ig,@str) if ($masm);
while ($#str>15) { while ($#str>15) {
$self->{value}.="DB\t" $self->{value}.="DB\t"
.join(",",@str[0..15])."\n"; .join(",",@str[0..15])."\n";
@ -661,8 +662,7 @@ while($line=<>) {
@args = reverse(@args); @args = reverse(@args);
undef $sz if ($nasm && $opcode->mnemonic() eq "lea"); undef $sz if ($nasm && $opcode->mnemonic() eq "lea");
} }
for (@args) { $_ = $_->out($sz); } printf "\t%s\t%s",$insn,join(",",map($_->out($sz),@args));
printf "\t%s\t%s", $insn, join(",",@args);
} else { } else {
printf "\t%s",$opcode->out(); printf "\t%s",$opcode->out();
} }