Fix DWP when only given three parameters.

[openssl.git] / crypto / perlasm / x86unix.pl

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index deb1185fc960d91b3f4d0b886a53350bd8907e66..efaef87a0b0f0d2ac120a5b5daff666c0bbc2624 100644 (file)
--- 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 "")
        $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);
        else
                { $ret.="($reg1)" }
        return($ret);