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

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

23
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+//;
}
@ -892,19 +893,19 @@ while(defined(my $line=<>)) {
my @args;
ARGUMENT: while (1) {
my $arg;
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;
push @args,$arg;
last ARGUMENT if ($line !~ /^,/);
last ARGUMENT if ($line !~ /^,/);
$line =~ s/^,\s*//;
$line =~ s/^,\s*//;
} # ARGUMENT:
if ($#args>=0) {