X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachInstrs.hs;fp=ghc%2Fcompiler%2FnativeGen%2FMachInstrs.hs;h=1b662e3c61d56fc37911a9a4f9c5718976bf61e5;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=28e2578dc0de52a449d962214961d52bbb656c0d;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachInstrs.hs b/ghc/compiler/nativeGen/MachInstrs.hs
index 28e2578..1b662e3 100644
--- a/ghc/compiler/nativeGen/MachInstrs.hs
+++ b/ghc/compiler/nativeGen/MachInstrs.hs
@@ -452,8 +452,8 @@ bit or 64 bit precision.
 	| PUSH          MachRep Operand
 	| POP           MachRep Operand
 	-- both unused (SDM):
-	-- | PUSHA
-	-- | POPA
+	--  | PUSHA
+	--  | POPA
 
 -- Jumping around.
 	| JMP	      Operand
@@ -495,15 +495,15 @@ ffree_before_nonlocal_transfers insn
 is_G_instr :: Instr -> Bool
 is_G_instr instr
    = case instr of
-        GMOV _ _ -> True; GLD _ _ _ -> True; GST _ _ _ -> True;
-        GLDZ _ -> True; GLD1 _ -> True;
-        GFTOI _ _ -> True; GDTOI _ _ -> True;
-        GITOF _ _ -> True; GITOD _ _ -> True;
+        GMOV _ _ -> True; GLD _ _ _ -> True; GST _ _ _ -> True
+        GLDZ _ -> True; GLD1 _ -> True
+        GFTOI _ _ -> True; GDTOI _ _ -> True
+        GITOF _ _ -> True; GITOD _ _ -> True
 	GADD _ _ _ _ -> True; GDIV _ _ _ _ -> True
 	GSUB _ _ _ _ -> True; GMUL _ _ _ _ -> True
     	GCMP _ _ _ -> True; GABS _ _ _ -> True
     	GNEG _ _ _ -> True; GSQRT _ _ _ -> True
-        GSIN _ _ _ -> True; GCOS _ _ _ -> True; GTAN _ _ _ -> True;
+        GSIN _ _ _ -> True; GCOS _ _ _ -> True; GTAN _ _ _ -> True
         GFREE -> panic "is_G_instr: GFREE (!)"
         other -> False