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.zip openssl-05dc84b82bf5390bf565eda8f32d6f3e701d3b27.tar.gz openssl-05dc84b82bf5390bf565eda8f32d6f3e701d3b27.tar.bz2 | |
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 deb1185..efaef87 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); |