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

x86_64-xlate.pl: support for binary constants, such as 0b1010101.

Browse Source
This commit is contained in:
Andy Polyakov 2008-12-27 14:00:37 +00:00
parent fe150ac25d
commit e81695205e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -195,7 +195,8 @@ my %globals;
$self->{value} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; $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/(0b[0-1]+)/oct($1)/eig;
$self->{value} =~ s/0x([0-9a-f]+)/0$1h/ig if ($masm);
sprintf "%s",$self->{value}; sprintf "%s",$self->{value};
} }
} }
@ -574,6 +575,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/(0b[0-1]+)/oct($1)/eig;
$var=~s/0x([0-9a-f]+)/0$1h/ig if ($masm); $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; }
@ -587,6 +589,7 @@ my %globals;
last; last;
}; };
/\.byte/ && do { my @str=split(",",$line); /\.byte/ && do { my @str=split(",",$line);
map(s/(0b[0-1]+)/oct($1)/eig,@str);
map(s/0x([0-9a-f]+)/0$1h/ig,@str) if ($masm); 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"