diff options
author | Andy Polyakov <appro@openssl.org> | 2009-12-28 16:13:35 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2009-12-28 16:13:35 +0000 |
commit | 3fc2efd241bdded36dbc099d5d8016ed39311753 (patch) | |
tree | ced71e24155da594144d050792026d93c7a2ad9b /crypto/bn/asm/parisc-mont.pl | |
parent | 76774c5ea1a7abeef79a9b0fc2bbb39acff96aae (diff) |
PA-RISC assembler: missing symbol and typos.
Diffstat (limited to 'crypto/bn/asm/parisc-mont.pl')
-rw-r--r-- | crypto/bn/asm/parisc-mont.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crypto/bn/asm/parisc-mont.pl b/crypto/bn/asm/parisc-mont.pl index bb0e43e32d..c421fd8a37 100644 --- a/crypto/bn/asm/parisc-mont.pl +++ b/crypto/bn/asm/parisc-mont.pl @@ -894,7 +894,7 @@ my $ldd = sub { { my $opcode=(0x03<<26)|($2<<21)|($1<<16)|(3<<6)|$3; sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; } - elsif ($args =~ /([\-0-9]+)\(%r([0-9]+)\),%r([0-9]+)/) # format 5 + elsif ($args =~ /(\-?[0-9]+)\(%r([0-9]+)\),%r([0-9]+)/) # format 5 { my $opcode=(0x03<<26)|($2<<21)|(1<<12)|(3<<6)|$3; $opcode|=(($1&0xF)<<17)|(($1&0x10)<<12); # encode offset $opcode|=(1<<5) if ($mod =~ /^,m/); @@ -908,7 +908,7 @@ my $std = sub { my ($mod,$args) = @_; my $orig = "std$mod\t$args"; - if ($args =~ /%r([0-9]+),([\-0-9]+)\(%r([0-9]+)\)/) # format 6 + if ($args =~ /%r([0-9]+),(\-?[0-9]+)\(%r([0-9]+)\)/) # format 6 { my $opcode=(0x03<<26)|($3<<21)|($1<<16)|(1<<12)|(0xB<<6); $opcode|=(($2&0xF)<<1)|(($2&0x10)>>4); # encode offset $opcode|=(1<<5) if ($mod =~ /^,m/); |