wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

perlasm/x86_64-xlate.pl: refactor argument parsing loop.

Browse source 
Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Andy Polyakov 2016-06-08 15:37:46 +02:00
parent c25278db8e
commit 6a4ea0022c
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
crypto/perlasm/x86_64-xlate.pl
View file

@ -317,15 +317,16 @@ my %globals;
}
{ package register; # pick up registers, which start with %.
sub re {
my ($class, $line) = @_;
my ($class, $line, $opcode) = @_;
my $self = {};
my $ret;
# optional * ---vvv--- appears in indirect jmp/call
# optional * ----vvv--- appears in indirect jmp/call
if ($$line =~ /^(\*?)%(\w+)/) {
bless $self,$class;
$self->{asterisk} = $1;
$self->{value} = $2;
$opcode->size($self->size());
$ret = $self;
$$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
}
@ -894,11 +895,11 @@ while(defined(my $line=<>)) {
ARGUMENT: while (1) {
my $arg;
if ($arg=register->re(\$line)) { $opcode->size($arg->size()); }
elsif ($arg=const->re(\$line)) { }
elsif ($arg=ea->re(\$line, $opcode)) { }
elsif ($arg=expr->re(\$line, $opcode)) { }
else { last ARGUMENT; }
($arg=register->re(\$line, $opcode))||
($arg=const->re(\$line)) ||
($arg=ea->re(\$line, $opcode)) ||
($arg=expr->re(\$line, $opcode)) ||
last ARGUMENT;
push @args,$arg;