Fix masm type-casting problem in SSE2 code.

diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index 82538a9a9af8a5d421346a9a7dd65e0375215fe9..cdaa337bbf585c9b69e9f29592f3f19c62ee1fe5 100644 (file)
--- a/crypto/perlasm/x86ms.pl
+++ b/crypto/perlasm/x86ms.pl
@@ -204,16 +204,17 @@ sub main'pand     { &out2("pand",@_); }
 sub out2
        {
        local($name,$p1,$p2)=@_;
-       local($l,$t);
+       local($l,$t,$line);
 
-       push(@out,"\t$name\t");
+       $line="\t$name\t";
        $t=&conv($p1).",";
        $l=length($t);
-       push(@out,$t);
+       $line.="$t";
        $l=4-($l+9)/8;
-       push(@out,"\t" x $l);
-       push(@out,&conv($p2));
-       push(@out,"\n");
+       $line.="\t" x $l;
+       $line.=&conv($p2);
+       if ($line=~/\bxmm[0-7]\b/i) { $line=~s/\b[A-Z]+WORD PTR/XMMWORD PTR/i; }
+       push(@out,$line."\n");
        }
 
 sub out0