[project @ 2005-04-04 15:54:18 by simonmar]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachInstrs.hs

diff --git a/ghc/compiler/nativeGen/MachInstrs.hs b/ghc/compiler/nativeGen/MachInstrs.hs
index 0839694..40d1766 100644 (file)
--- a/ghc/compiler/nativeGen/MachInstrs.hs
+++ b/ghc/compiler/nativeGen/MachInstrs.hs
@@ -399,8 +399,7 @@ bit or 64 bit precision.
 
        | MUL         MachRep Operand Operand
        | IMUL        MachRep Operand Operand   -- signed int mul
-        | IMUL64      Reg Reg
-       -- operand1:operand2 := (operand1[31:0] *signed operand2[31:0])
+        | IMUL2       MachRep Operand -- %edx:%eax = operand * %eax
 
        | DIV         MachRep Operand   -- eax := eax:edx/op, edx := eax:edx%op
        | IDIV        MachRep Operand   -- ditto, but signed