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

Reviewed-by: Rich Salz <rsalz@openssl.org>

diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl
index 646f68058cec4da54336bfe79cb0b8f0ac677cc0..f050b23f00c1ac3b6e876c5650c5de7a20e4536d 100755 (executable)
--- a/crypto/perlasm/x86_64-xlate.pl
+++ b/crypto/perlasm/x86_64-xlate.pl
@@ -317,15 +317,16 @@ my %globals;
 }
 { package register;    # pick up registers, which start with %.
     sub re {
 }
 { package register;    # pick up registers, which start with %.
     sub re {

-       my      ($class, $line) = @_;
+       my      ($class, $line, $opcode) = @_;

        my      $self = {};
        my      $ret;
 
        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;
        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+//;
        }
            $ret = $self;
            $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
        }


@@ -892,19 +893,19 @@ while(defined(my $line=<>)) {
 
        my @args;
        ARGUMENT: while (1) {
 
        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) {
        } # ARGUMENT:
 
        if ($#args>=0) {