[project @ 2003-07-29 16:31:39 by igloo]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachRegs.lhs

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index db202fe..494b983 100644 (file)
--- 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}