diff options
author | Ben Laurie <ben@openssl.org> | 1999-03-07 15:08:04 +0000 |
---|---|---|
committer | Ben Laurie <ben@openssl.org> | 1999-03-07 15:08:04 +0000 |
commit | 05dc84b82bf5390bf565eda8f32d6f3e701d3b27 (patch) | |
tree | 58d1729981bc57ab2eaaf07b753b6c6a585df8df /crypto/perlasm | |
parent | 7d3ce7ba371aa6df39ec5501282dd6e11b70bbbd (diff) | |
download | openssl-05dc84b82bf5390bf565eda8f32d6f3e701d3b27.tar.gz |
Fix DWP when only given three parameters.
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/x86unix.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl index deb1185fc9..efaef87a0b 100644 --- a/crypto/perlasm/x86unix.pl +++ b/crypto/perlasm/x86unix.pl @@ -90,7 +90,12 @@ sub main'DWP $reg2="$regs{$reg2}" if defined($regs{$reg2}); $ret.=$addr if ($addr ne "") && ($addr ne 0); if ($reg2 ne "") - { $ret.="($reg1,$reg2,$idx)"; } + { + if($idx ne "") + { $ret.="($reg1,$reg2,$idx)"; } + else + { $ret.="($reg1,$reg2)"; } + } else { $ret.="($reg1)" } return($ret); |