X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachRegs.lhs;h=494b9835fc6020b9b8a9d4961062f4c29bb4797e;hb=5b1a5b1e82c9a75f9c657839d8d321822622a1e8;hp=db202feaeedbd563bc272e6c732c9ee7c4c43b4f;hpb=5093c5e8694c2e3d1d3d8ac132d6fa39c2f6a2fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index db202fe..494b983 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -87,12 +87,12 @@ data Imm
   | ImmFloat	Rational
   | ImmDouble	Rational
   IF_ARCH_sparc(
-  | LO Imm		    -- Possible restrictions...
+  | LO Imm		    {- Possible restrictions... -}
   | HI Imm
   ,IF_ARCH_powerpc(
   | LO Imm
   | HI Imm
-  | HA Imm	-- high halfword adjusted
+  | HA Imm	{- high halfword adjusted -}
   ,))
 strImmLit s = ImmLit (text s)
 \end{code}