[project @ 2003-06-03 09:41:48 by ross]

change trailing comments on #else/#endif lines to C style to avoid
warnings from gcc 3.3's preprocessor.

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 2482aaa..ce59458 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1005,7 +1005,7 @@ run_phase Ilasm _basename _suff input_fn output_fn
                                SysTools.FileOption "" input_fn ])
        return (Just output_fn)
 
                                SysTools.FileOption "" input_fn ])
        return (Just output_fn)
 

-#endif -- ILX
+#endif /* ILX */

 
 -----------------------------------------------------------------------------
 -- MoveBinary sort-of-phase
 
 -----------------------------------------------------------------------------
 -- MoveBinary sort-of-phase

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 09fc504..9bc37fc 100644 (file)
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -346,7 +346,7 @@ iselExpr64 (StCall fn cconv kind args)
 iselExpr64 expr
    = pprPanic "iselExpr64(i386)" (pprStixExpr expr)
 
 iselExpr64 expr
    = pprPanic "iselExpr64(i386)" (pprStixExpr expr)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -438,7 +438,7 @@ iselExpr64 (StCall fn cconv kind args)
 iselExpr64 expr
    = pprPanic "iselExpr64(sparc)" (pprStixExpr expr)
 
 iselExpr64 expr
    = pprPanic "iselExpr64(sparc)" (pprStixExpr expr)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 #if powerpc_TARGET_ARCH
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 #if powerpc_TARGET_ARCH

@@ -526,7 +526,7 @@ iselExpr64 (StCall fn cconv kind args)
 iselExpr64 expr
    = pprPanic "iselExpr64(powerpc)" (pprStixExpr expr)
 
 iselExpr64 expr
    = pprPanic "iselExpr64(powerpc)" (pprStixExpr expr)
 

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -891,7 +891,7 @@ getRegister leaf
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -1305,7 +1305,7 @@ getRegister leaf
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -1561,7 +1561,7 @@ getRegister leaf
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 getRegister (StMachOp mop [x]) -- unary MachOps
 
 #if powerpc_TARGET_ARCH
 getRegister (StMachOp mop [x]) -- unary MachOps

@@ -1785,7 +1785,7 @@ getRegister leaf
   where
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x
   where
     imm = maybeImm leaf
     imm__2 = case imm of Just x -> x

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -1868,7 +1868,7 @@ getAmode other
     in
     returnNat (Amode (AddrReg reg) code)
 
     in
     returnNat (Amode (AddrReg reg) code)
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -1936,7 +1936,7 @@ getAmode other
     in
     returnNat (Amode (AddrBaseIndex (Just reg) Nothing (ImmInt 0)) code)
 
     in
     returnNat (Amode (AddrBaseIndex (Just reg) Nothing (ImmInt 0)) code)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2000,7 +2000,7 @@ getAmode other
     in
     returnNat (Amode (AddrRegImm reg off) code)
 
     in
     returnNat (Amode (AddrRegImm reg off) code)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #ifdef powerpc_TARGET_ARCH
 getAmode (StMachOp MO_Nat_Sub [x, StInt i])
 
 #ifdef powerpc_TARGET_ARCH
 getAmode (StMachOp MO_Nat_Sub [x, StInt i])

@@ -2046,7 +2046,7 @@ getAmode other
        off  = ImmInt 0
     in
     returnNat (Amode (AddrRegImm reg off) code)
        off  = ImmInt 0
     in
     returnNat (Amode (AddrRegImm reg off) code)

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -2075,7 +2075,7 @@ getCondCode :: StixExpr -> NatM CondCode
 
 #if alpha_TARGET_ARCH
 getCondCode = panic "MachCode.getCondCode: not on Alphas"
 
 #if alpha_TARGET_ARCH
 getCondCode = panic "MachCode.getCondCode: not on Alphas"

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2122,7 +2122,7 @@ getCondCode (StMachOp mop [x, y])
 
 getCondCode other =  pprPanic "getCondCode(2)(x86,sparc,powerpc)" (pprStixExpr other)
 
 
 getCondCode other =  pprPanic "getCondCode(2)(x86,sparc,powerpc)" (pprStixExpr other)
 

-#endif {- i386_TARGET_ARCH || sparc_TARGET_ARCH || powerpc_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH || sparc_TARGET_ARCH || powerpc_TARGET_ARCH */

 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

@@ -2139,7 +2139,7 @@ condIntCode, condFltCode :: Cond -> StixExpr -> StixExpr -> NatM CondCode
 #if alpha_TARGET_ARCH
 condIntCode = panic "MachCode.condIntCode: not on Alphas"
 condFltCode = panic "MachCode.condFltCode: not on Alphas"
 #if alpha_TARGET_ARCH
 condIntCode = panic "MachCode.condIntCode: not on Alphas"
 condFltCode = panic "MachCode.condFltCode: not on Alphas"

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH

@@ -2285,7 +2285,7 @@ condFltCode cond x y
     -- and true.  Hence we always supply EQQ as the condition to test.
     returnNat (CondCode True EQQ code__2)
 
     -- and true.  Hence we always supply EQQ as the condition to test.
     returnNat (CondCode True EQQ code__2)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2351,7 +2351,7 @@ condFltCode cond x y
     in
     returnNat (CondCode True cond code__2)
 
     in
     returnNat (CondCode True cond code__2)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 
 
 #if powerpc_TARGET_ARCH
 

@@ -2400,7 +2400,7 @@ condFltCode cond x y
     in
     returnNat (CondCode False cond code__2)
 
     in
     returnNat (CondCode False cond code__2)
 

-#endif {- powerpc_TARGET_ARCH -} 
+#endif /* powerpc_TARGET_ARCH */

 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

@@ -2458,7 +2458,7 @@ assignIntCode pk dst src
     in
     returnNat code__2
 
     in
     returnNat code__2
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2546,7 +2546,7 @@ assignReg_IntCode pk reg src
     in
     returnNat code
 
     in
     returnNat code
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2580,7 +2580,7 @@ assignReg_IntCode pk reg src
     in
     returnNat code__2
 
     in
     returnNat code__2
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 
 
 #if powerpc_TARGET_ARCH
 

@@ -2611,7 +2611,7 @@ assignReg_IntCode pk reg src
     in
     returnNat code__2
 
     in
     returnNat code__2
 

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -2651,7 +2651,7 @@ assignFltCode pk dst src
     in
     returnNat code__2
 
     in
     returnNat code__2
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2696,7 +2696,7 @@ assignReg_FltCode pk reg src
     returnNat code
 
 
     returnNat code
 
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2751,7 +2751,7 @@ assignReg_FltCode pk reg src
     in
     returnNat code__2
 
     in
     returnNat code__2
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 
 
 #if powerpc_TARGET_ARCH
 

@@ -2789,7 +2789,7 @@ assignReg_FltCode pk reg src
                else c_src
     in
     returnNat code
                else c_src
     in
     returnNat code

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -2834,7 +2834,7 @@ genJump tree
     else
     returnNat (code . mkSeqInstr (JMP zeroh (AddrReg pv) 0))
 
     else
     returnNat (code . mkSeqInstr (JMP zeroh (AddrReg pv) 0))
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2864,7 +2864,7 @@ genJump dsts tree
     imm    = maybeImm tree
     target = case imm of Just x -> x
 
     imm    = maybeImm tree
     target = case imm of Just x -> x
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -2886,7 +2886,7 @@ genJump dsts tree
     in
     returnNat (code `snocOL` JMP dsts (AddrRegReg target g0) `snocOL` NOP)
 
     in
     returnNat (code `snocOL` JMP dsts (AddrRegReg target g0) `snocOL` NOP)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 genJump dsts (StCLbl lbl)
 
 #if powerpc_TARGET_ARCH
 genJump dsts (StCLbl lbl)

@@ -2901,7 +2901,7 @@ genJump dsts tree
        target = registerName register tmp
     in
     returnNat (code `snocOL` MTCTR target `snocOL` BCTR dsts)
        target = registerName register tmp
     in
     returnNat (code `snocOL` MTCTR target `snocOL` BCTR dsts)

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3082,7 +3082,7 @@ genCondJump lbl (StPrim op [x, y])
        AddrLtOp -> (CMP ULT, NE)
        AddrLeOp -> (CMP ULE, NE)
 
        AddrLtOp -> (CMP ULT, NE)
        AddrLeOp -> (CMP ULE, NE)
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3096,7 +3096,7 @@ genCondJump lbl bool
     in
     returnNat (code `snocOL` JXX cond lbl)
 
     in
     returnNat (code `snocOL` JXX cond lbl)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3118,7 +3118,7 @@ genCondJump lbl bool
        )
     )
 
        )
     )
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 
 
 #if powerpc_TARGET_ARCH
 

@@ -3132,7 +3132,7 @@ genCondJump lbl bool
     returnNat (
        code `snocOL` BCC cond lbl    )
 
     returnNat (
        code `snocOL` BCC cond lbl    )
 

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3228,7 +3228,7 @@ genCCall fn cconv kind args
        in
        returnNat (([], offset + 1), code . mkSeqInstr (ST sz src (spRel offset)))
 
        in
        returnNat (([], offset + 1), code . mkSeqInstr (ST sz src (spRel offset)))
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3340,7 +3340,7 @@ genCCall fn cconv ret_rep args
        in
        returnNat (code, reg, sz)
 
        in
        returnNat (code, reg, sz)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3481,7 +3481,7 @@ genCCall fn cconv kind args
                    , 
                    [v1]
                 )
                    , 
                    [v1]
                 )

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 {-
 
 #if powerpc_TARGET_ARCH
 {-

@@ -3592,7 +3592,7 @@ genCCall fn cconv kind args
                    `snocOL` storeWord vr_hi gprs stackOffset
                    `snocOL` storeWord vr_lo (drop 1 gprs) (stackOffset+4))
                ((take 2 gprs) ++ accumUsed)
                    `snocOL` storeWord vr_hi gprs stackOffset
                    `snocOL` storeWord vr_lo (drop 1 gprs) (stackOffset+4))
                ((take 2 gprs) ++ accumUsed)

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -3623,7 +3623,7 @@ condIntReg, condFltReg :: Cond -> StixExpr -> StixExpr -> NatM Register
 #if alpha_TARGET_ARCH
 condIntReg = panic "MachCode.condIntReg (not on Alpha)"
 condFltReg = panic "MachCode.condFltReg (not on Alpha)"
 #if alpha_TARGET_ARCH
 condIntReg = panic "MachCode.condIntReg (not on Alpha)"
 condFltReg = panic "MachCode.condFltReg (not on Alpha)"

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3659,7 +3659,7 @@ condFltReg cond x y
     in
     returnNat (Any IntRep code__2)
 
     in
     returnNat (Any IntRep code__2)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -3758,7 +3758,7 @@ condFltReg cond x y
     in
     returnNat (Any IntRep code__2)
 
     in
     returnNat (Any IntRep code__2)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 condIntReg cond x y
 
 #if powerpc_TARGET_ARCH
 condIntReg cond x y

@@ -3786,7 +3786,7 @@ condFltReg cond x y
            LABEL lbl]
     in
     returnNat (Any IntRep code__2)
            LABEL lbl]
     in
     returnNat (Any IntRep code__2)

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -3916,7 +3916,7 @@ trivialUFCode _ instr x
     in
     returnNat (Any DoubleRep code__2)
 
     in
     returnNat (Any DoubleRep code__2)
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -4097,7 +4097,7 @@ trivialUFCode pk instr x
     in
     returnNat (Any pk code__2)
 
     in
     returnNat (Any pk code__2)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -4185,7 +4185,7 @@ trivialUFCode pk instr x
     in
     returnNat (Any pk code__2)
 
     in
     returnNat (Any pk code__2)
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 trivialCode instr x (StInt y)
 
 #if powerpc_TARGET_ARCH
 trivialCode instr x (StInt y)

@@ -4303,7 +4303,7 @@ remainderCode div x y
     in
     returnNat (Any IntRep code__2)
 
     in
     returnNat (Any IntRep code__2)
 

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

@@ -4365,7 +4365,7 @@ coerceFP2Int x
     in
     returnNat (Any IntRep code__2)
 
     in
     returnNat (Any IntRep code__2)
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -4400,7 +4400,7 @@ coerceFP2Int fprep x
 coerceDbl2Flt x = panic "MachCode.coerceDbl2Flt: unused on x86"
 coerceFlt2Dbl x = panic "MachCode.coerceFlt2Dbl: unused on x86"
 
 coerceDbl2Flt x = panic "MachCode.coerceDbl2Flt: unused on x86"
 coerceFlt2Dbl x = panic "MachCode.coerceFlt2Dbl: unused on x86"
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 

@@ -4456,7 +4456,7 @@ coerceFlt2Dbl x
         returnNat (Any DoubleRep
                        (\dst -> code `snocOL` FxTOy F DF src dst)) 
 
         returnNat (Any DoubleRep
                        (\dst -> code `snocOL` FxTOy F DF src dst)) 
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 coerceInt2FP pk x
 
 #if powerpc_TARGET_ARCH
 coerceInt2FP pk x

@@ -4505,7 +4505,7 @@ coerceFP2Int fprep x
     returnNat (Any IntRep code__2)
 coerceDbl2Flt x                = panic "###PPC MachCode.coerceDbl2Flt"
 coerceFlt2Dbl x                = panic "###PPC MachCode.coerceFlt2Dbl"
     returnNat (Any IntRep code__2)
 coerceDbl2Flt x                = panic "###PPC MachCode.coerceDbl2Flt"
 coerceFlt2Dbl x                = panic "###PPC MachCode.coerceFlt2Dbl"

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 \end{code}

diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index 0508888..e588210 100644 (file)
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -429,7 +429,7 @@ data RI
   = RIReg Reg
   | RIImm Imm
 
   = RIReg Reg
   | RIImm Imm
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 \end{code}
 
 Intel, in their infinite wisdom, selected a stack model for floating
 \end{code}
 
 Intel, in their infinite wisdom, selected a stack model for floating

@@ -630,7 +630,7 @@ is_G_instr instr
         GFREE -> panic "is_G_instr: GFREE (!)"
         other -> False
 
         GFREE -> panic "is_G_instr: GFREE (!)"
         other -> False
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 \end{code}
 
 \begin{code}
 \end{code}
 
 \begin{code}

@@ -715,7 +715,7 @@ moveSp n
 fPair :: Reg -> Reg
 fPair (RealReg n) | n >= 32 && n `mod` 2 == 0  = RealReg (n+1)
 fPair other = pprPanic "fPair(sparc NCG)" (ppr other)
 fPair :: Reg -> Reg
 fPair (RealReg n) | n >= 32 && n `mod` 2 == 0  = RealReg (n+1)
 fPair other = pprPanic "fPair(sparc NCG)" (ppr other)

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 \end{code}
 
 \begin{code}
 \end{code}
 
 \begin{code}

@@ -783,6 +783,6 @@ condToSigned LU = LTT
 condToSigned GEU = GE
 condToSigned LEU = LE
 condToSigned x = x
 condToSigned GEU = GE
 condToSigned LEU = LE
 condToSigned x = x

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 \end{code}
 

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index cdb9b1a..db202fe 100644 (file)
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -157,7 +157,7 @@ addrOffset addr off
        
       _ -> Nothing
 
        
       _ -> Nothing
 

-#endif {-sparc-}
+#endif /* sparc */

 #if powerpc_TARGET_ARCH
       AddrRegImm r (ImmInt n)
        | fits16Bits n2 -> Just (AddrRegImm r (ImmInt n2))
 #if powerpc_TARGET_ARCH
       AddrRegImm r (ImmInt n)
        | fits16Bits n2 -> Just (AddrRegImm r (ImmInt n2))

@@ -174,7 +174,7 @@ addrOffset addr off
        | otherwise     -> Nothing
        
       _ -> Nothing
        | otherwise     -> Nothing
        
       _ -> Nothing

-#endif {-powerpc-}
+#endif /* powerpc */

 
 -----------------
 #if alpha_TARGET_ARCH
 
 -----------------
 #if alpha_TARGET_ARCH

@@ -196,7 +196,7 @@ largeOffsetError i
            ++show i++");\nprobably because of large constant data structures;" ++ 
            "\nworkaround: use -fvia-C on this module.\n")
 
            ++show i++");\nprobably because of large constant data structures;" ++ 
            "\nworkaround: use -fvia-C on this module.\n")
 

-#endif {-sparc-}
+#endif /* sparc */

 
 #if powerpc_TARGET_ARCH
 fits16Bits :: Integral a => a -> Bool
 
 #if powerpc_TARGET_ARCH
 fits16Bits :: Integral a => a -> Bool

@@ -982,21 +982,21 @@ callClobberedRegs
      fReg 0, fReg 1, fReg 10, fReg 11, fReg 12, fReg 13, fReg 14, fReg 15,
      fReg 16, fReg 17, fReg 18, fReg 19, fReg 20, fReg 21, fReg 22, fReg 23,
      fReg 24, fReg 25, fReg 26, fReg 27, fReg 28, fReg 29, fReg 30]
      fReg 0, fReg 1, fReg 10, fReg 11, fReg 12, fReg 13, fReg 14, fReg 15,
      fReg 16, fReg 17, fReg 18, fReg 19, fReg 20, fReg 21, fReg 22, fReg 23,
      fReg 24, fReg 25, fReg 26, fReg 27, fReg 28, fReg 29, fReg 30]

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 #if i386_TARGET_ARCH
     -- caller-saves registers
     map RealReg [eax,ecx,edx,fake0,fake1,fake2,fake3,fake4,fake5]
 #if i386_TARGET_ARCH
     -- caller-saves registers
     map RealReg [eax,ecx,edx,fake0,fake1,fake2,fake3,fake4,fake5]

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 #if sparc_TARGET_ARCH
     map RealReg 
         ( oReg 7 :
           [oReg i | i <- [0..5]] ++
           [gReg i | i <- [1..7]] ++
           [fReg i | i <- [0..31]] )
 #if sparc_TARGET_ARCH
     map RealReg 
         ( oReg 7 :
           [oReg i | i <- [0..5]] ++
           [gReg i | i <- [1..7]] ++
           [fReg i | i <- [0..31]] )

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 #if powerpc_TARGET_ARCH
     map RealReg ([0..12] ++ map fReg [0..13])
 #if powerpc_TARGET_ARCH
     map RealReg ([0..12] ++ map fReg [0..13])

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -------------------------------
 -- argRegs is the set of regs which are read for an n-argument call to C.
 
 -------------------------------
 -- argRegs is the set of regs which are read for an n-argument call to C.

@@ -1018,7 +1018,7 @@ argRegs 4 = freeMappedRegs [16, 17, 18, 19, fReg 16, fReg 17, fReg 18, fReg 19]
 argRegs 5 = freeMappedRegs [16, 17, 18, 19, 20, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20]
 argRegs 6 = freeMappedRegs [16, 17, 18, 19, 20, 21, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20, fReg 21]
 argRegs _ = panic "MachRegs.argRegs(alpha): don't know about >6 arguments!"
 argRegs 5 = freeMappedRegs [16, 17, 18, 19, 20, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20]
 argRegs 6 = freeMappedRegs [16, 17, 18, 19, 20, 21, fReg 16, fReg 17, fReg 18, fReg 19, fReg 20, fReg 21]
 argRegs _ = panic "MachRegs.argRegs(alpha): don't know about >6 arguments!"

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 #if sparc_TARGET_ARCH
 argRegs 0 = []
 
 #if sparc_TARGET_ARCH
 argRegs 0 = []

@@ -1029,7 +1029,7 @@ argRegs 4 = map (RealReg . oReg) [0,1,2,3]
 argRegs 5 = map (RealReg . oReg) [0,1,2,3,4]
 argRegs 6 = map (RealReg . oReg) [0,1,2,3,4,5]
 argRegs _ = panic "MachRegs.argRegs(sparc): don't know about >6 arguments!"
 argRegs 5 = map (RealReg . oReg) [0,1,2,3,4]
 argRegs 6 = map (RealReg . oReg) [0,1,2,3,4,5]
 argRegs _ = panic "MachRegs.argRegs(sparc): don't know about >6 arguments!"

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if powerpc_TARGET_ARCH
 argRegs 0 = []
 
 #if powerpc_TARGET_ARCH
 argRegs 0 = []

@@ -1042,19 +1042,19 @@ argRegs 6 = map RealReg [3..8]
 argRegs 7 = map RealReg [3..9]
 argRegs 8 = map RealReg [3..10]
 argRegs _ = panic "MachRegs.argRegs(powerpc): don't know about >8 arguments!"
 argRegs 7 = map RealReg [3..9]
 argRegs 8 = map RealReg [3..10]
 argRegs _ = panic "MachRegs.argRegs(powerpc): don't know about >8 arguments!"

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 
 -------------------------------
 -- all of the arg regs ??
 #if alpha_TARGET_ARCH
 allArgRegs :: [(Reg, Reg)]
 allArgRegs = [(realReg i, realReg (fReg i)) | i <- [16..21]]
 
 -------------------------------
 -- all of the arg regs ??
 #if alpha_TARGET_ARCH
 allArgRegs :: [(Reg, Reg)]
 allArgRegs = [(realReg i, realReg (fReg i)) | i <- [16..21]]

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 
 #if sparc_TARGET_ARCH
 allArgRegs :: [Reg]
 allArgRegs = map RealReg [oReg i | i <- [0..5]]
 
 #if sparc_TARGET_ARCH
 allArgRegs :: [Reg]
 allArgRegs = map RealReg [oReg i | i <- [0..5]]

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 
 #if i386_TARGET_ARCH
 allArgRegs :: [Reg]
 
 #if i386_TARGET_ARCH
 allArgRegs :: [Reg]

@@ -1066,7 +1066,7 @@ allArgRegs :: [Reg]
 allArgRegs = map RealReg [3..10]
 allFPArgRegs :: [Reg]
 allFPArgRegs = map (RealReg . fReg) [1..13]
 allArgRegs = map RealReg [3..10]
 allFPArgRegs :: [Reg]
 allFPArgRegs = map (RealReg . fReg) [1..13]

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 \begin{code}
 \end{code}
 
 \begin{code}

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 45e6230..3701dd5 100644 (file)
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -970,7 +970,7 @@ pprSizeRegRegReg name size reg1 reg2 reg3
        pprReg reg3
     ]
 
        pprReg reg3
     ]
 

-#endif {-alpha_TARGET_ARCH-}
+#endif /* alpha_TARGET_ARCH */

 \end{code}
 
 %************************************************************************
 \end{code}
 
 %************************************************************************

@@ -1543,7 +1543,7 @@ pprCondInstr :: LitString -> Cond -> Doc -> Doc
 pprCondInstr name cond arg
   = hcat [ char '\t', ptext name, pprCond cond, space, arg]
 
 pprCondInstr name cond arg
   = hcat [ char '\t', ptext name, pprCond cond, space, arg]
 

-#endif {-i386_TARGET_ARCH-}
+#endif /* i386_TARGET_ARCH */

 \end{code}
 
 %************************************************************************
 \end{code}
 
 %************************************************************************

@@ -1830,7 +1830,7 @@ pp_rbracket_comma = text "],"
 pp_comma_lbracket = text ",["
 pp_comma_a       = text ",a"
 
 pp_comma_lbracket = text ",["
 pp_comma_a       = text ",a"
 

-#endif {-sparc_TARGET_ARCH-}
+#endif /* sparc_TARGET_ARCH */

 \end{code}
 
 %************************************************************************
 \end{code}
 
 %************************************************************************

@@ -2095,7 +2095,7 @@ pprDyldSymbolStub fn =
 #endif
 
 
 #endif
 
 

-#endif {-powerpc_TARGET_ARCH-}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 \begin{code}
 \end{code}
 
 \begin{code}

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index e0377b8..a3c9321 100644 (file)
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -224,7 +224,7 @@ regUsage instr = case instr of
     regRI (RIReg r) = [r]
     regRI  _   = []
 
     regRI (RIReg r) = [r]
     regRI  _   = []
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 

@@ -333,7 +333,7 @@ regUsage instr = case instr of
     mkRU src dst = RU (regSetFromList (filter interesting src))
                      (regSetFromList (filter interesting dst))
 
     mkRU src dst = RU (regSetFromList (filter interesting src))
                      (regSetFromList (filter interesting dst))
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 

@@ -385,7 +385,7 @@ regUsage instr = case instr of
     regRI (RIReg r) = [r]
     regRI  _   = []
 
     regRI (RIReg r) = [r]
     regRI  _   = []
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
 

@@ -433,7 +433,7 @@ regUsage instr = case instr of
 
     regRI (RIReg r) = [r]
     regRI  _   = []
 
     regRI (RIReg r) = [r]
     regRI  _   = []

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 
 \end{code}
 
 

@@ -559,7 +559,7 @@ insnFuture insn
     LABEL lbl           -> RL live (FL (all `unionRegSets` live) (addToFM env lbl live))
     _                   -> info
 
     LABEL lbl           -> RL live (FL (all `unionRegSets` live) (addToFM env lbl live))
     _                   -> info
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 

@@ -581,7 +581,7 @@ insnFuture insn
 
     boring     -> Next
 
 
     boring     -> Next
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 

@@ -603,7 +603,7 @@ insnFuture insn
 
     boring -> Next
 
 
     boring -> Next
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
     BCC ALWAYS clbl | isAsmTemp clbl -> Branch clbl
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
     BCC ALWAYS clbl | isAsmTemp clbl -> Branch clbl

@@ -614,7 +614,7 @@ insnFuture insn
     BCTR (DestInfo dsts) -> MultiFuture dsts
     BCTR NoDestInfo -> NoFuture
     boring     -> Next
     BCTR (DestInfo dsts) -> MultiFuture dsts
     BCTR NoDestInfo -> NoFuture
     boring     -> Next

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 %************************************************************************
 \end{code}
 
 %************************************************************************

@@ -685,7 +685,7 @@ patchRegs instr env = case instr of
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other
 
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other
 

-#endif {- alpha_TARGET_ARCH -}
+#endif /* alpha_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if i386_TARGET_ARCH
 

@@ -776,7 +776,7 @@ patchRegs instr env = case instr of
        lookupIndex Nothing      = Nothing
        lookupIndex (Just (r,i)) = Just (env r, i)
 
        lookupIndex Nothing      = Nothing
        lookupIndex (Just (r,i)) = Just (env r, i)
 

-#endif {- i386_TARGET_ARCH -}
+#endif /* i386_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if sparc_TARGET_ARCH
 

@@ -819,7 +819,7 @@ patchRegs instr env = case instr of
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other
 
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other
 

-#endif {- sparc_TARGET_ARCH -}
+#endif /* sparc_TARGET_ARCH */

 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
 
 -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 #if powerpc_TARGET_ARCH
 

@@ -865,7 +865,7 @@ patchRegs instr env = case instr of
 
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other
 
     fixRI (RIReg r) = RIReg (env r)
     fixRI other        = other

-#endif {- powerpc_TARGET_ARCH -}
+#endif /* powerpc_TARGET_ARCH */

 \end{code}
 
 %************************************************************************
 \end{code}
 
 %************************************************************************

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index 121cf07..fed9f0d 100644 (file)
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -567,7 +567,8 @@ forAllWarn doc ty tyvar
             InterfaceMode _ -> returnM () ; -- Don't warn of unused tyvars in interface files
                                            -- unless DEBUG is on, in which case it is slightly
                                            -- informative.  They can arise from mkRhsTyLam,
             InterfaceMode _ -> returnM () ; -- Don't warn of unused tyvars in interface files
                                            -- unless DEBUG is on, in which case it is slightly
                                            -- informative.  They can arise from mkRhsTyLam,

-#endif                                     -- leading to (say)         f :: forall a b. [b] -> [b]
+                                           -- leading to (say)         f :: forall a b. [b] -> [b]
+#endif

             other ->
                addWarn (
                   sep [ptext SLIT("The universally quantified type variable") <+> quotes (ppr tyvar),
             other ->
                addWarn (
                   sep [ptext SLIT("The universally quantified type variable") <+> quotes (ppr tyvar),

@@ -612,4 +613,4 @@ dupFieldErr str (dup:rest)
 
 ppr_op op = quotes (ppr op)    -- Here, op can be a Name or a (Var n), where n is a Name
 ppr_opfix (pp_op, fixity) = pp_op <+> brackets (ppr fixity)
 
 ppr_op op = quotes (ppr op)    -- Here, op can be a Name or a (Var n), where n is a Name
 ppr_opfix (pp_op, fixity) = pp_op <+> brackets (ppr fixity)

-\end{code}
\ No newline at end of file
+\end{code}

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index 13e1837..d143a15 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -461,7 +461,7 @@ pp_stats (SaStats tlam dlam tc dc tlet dlet)
              ptext SLIT("; Let vars: "),  int (iBox dlet), char '/', int (iBox tlet)
        ]
 
              ptext SLIT("; Let vars: "),  int (iBox dlet), char '/', int (iBox tlet)
        ]
 

-#else {-OMIT_STRANAL_STATS-}
+#else /* OMIT_STRANAL_STATS */

 -- identity monad
 type SaM a = a
 
 -- identity monad
 type SaM a = a
 

@@ -475,7 +475,7 @@ tickLambda var  = panic "OMIT_STRANAL_STATS: tickLambda"
 tickCases  vars = panic "OMIT_STRANAL_STATS: tickCases"
 tickLet    var  = panic "OMIT_STRANAL_STATS: tickLet"
 
 tickCases  vars = panic "OMIT_STRANAL_STATS: tickCases"
 tickLet    var  = panic "OMIT_STRANAL_STATS: tickLet"
 

-#endif {-OMIT_STRANAL_STATS-}
+#endif /* OMIT_STRANAL_STATS */

 
 mapSa        :: (a -> SaM b) -> [a] -> SaM [b]
 
 
 mapSa        :: (a -> SaM b) -> [a] -> SaM [b]
 

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 4eb7e80..1ee7af1 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -632,7 +632,7 @@ tcMonoExpr (HsReify (Reify flavour name)) res_ty
                   ReifyDecl -> DsMeta.decQTyConName
                   ReifyType -> DsMeta.typQTyConName
                   ReifyFixity -> pprPanic "tcMonoExpr: cant do reifyFixity yet" (ppr name)
                   ReifyDecl -> DsMeta.decQTyConName
                   ReifyType -> DsMeta.typQTyConName
                   ReifyFixity -> pprPanic "tcMonoExpr: cant do reifyFixity yet" (ppr name)

-#endif GHCI
+#endif /* GHCI */

 \end{code}
 
 
 \end{code}
 
 

diff --git a/ghc/compiler/utils/FastTypes.lhs b/ghc/compiler/utils/FastTypes.lhs
index 6accab1..9f9d903 100644 (file)
--- a/ghc/compiler/utils/FastTypes.lhs
+++ b/ghc/compiler/utils/FastTypes.lhs
@@ -40,7 +40,7 @@ fastOr 0# x = x
 fastAnd 0# x = 0#
 fastAnd 1# x = x
 
 fastAnd 0# x = 0#
 fastAnd 1# x = x
 

-#else {- ! __GLASGOW_HASKELL__ -}
+#else /* ! __GLASGOW_HASKELL__ */

 
 type FastInt = Int
 _ILIT x = x
 
 type FastInt = Int
 _ILIT x = x

@@ -61,5 +61,5 @@ type FastBool = Bool
 fastBool x = x
 _IS_TRUE_ x = x
 
 fastBool x = x
 _IS_TRUE_ x = x
 

-#endif  {- ! __GLASGOW_HASKELL__ -}
+#endif /* ! __GLASGOW_HASKELL__ */

 \end{code}
 \end{code}

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 5e7e5c9..8efb8c0 100644 (file)
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -743,7 +743,7 @@ When the FiniteMap module is used in GHC, we specialise it for
     IF_NCG(COMMA   (elt -> elt -> elt) -> FiniteMap Reg elt -> FiniteMap Reg elt -> FiniteMap Reg elt)
     #-}
 
     IF_NCG(COMMA   (elt -> elt -> elt) -> FiniteMap Reg elt -> FiniteMap Reg elt -> FiniteMap Reg elt)
     #-}
 

-#endif {- compiling with ghc and have specialiser -}
+#endif /* compiling with ghc and have specialiser */

 
 

-#endif {- 0 -}
+#endif /* 0 */

 \end{code}
 \end{code}

diff --git a/ghc/compiler/utils/UniqFM.lhs b/ghc/compiler/utils/UniqFM.lhs
index 6aa75b9..e38f4f5 100644 (file)
--- a/ghc/compiler/utils/UniqFM.lhs
+++ b/ghc/compiler/utils/UniqFM.lhs
@@ -153,7 +153,7 @@ ufmToList   :: UniqFM elt -> [(Unique, elt)]
                 , UniqFM elt -> Unique -> Maybe elt
   #-}
 
                 , UniqFM elt -> Unique -> Maybe elt
   #-}
 

-#endif {- __GLASGOW_HASKELL__ -}
+#endif /* __GLASGOW_HASKELL__ */

 #endif
 \end{code}
 
 #endif
 \end{code}
 

@@ -814,11 +814,11 @@ shiftR_ n p = word2Int#((int2Word# n) `shiftr` p)
     shiftr x y = shiftRL# x y
 #endif
 
     shiftr x y = shiftRL# x y
 #endif
 

-#else {- not GHC -}
+#else /* not GHC */

 shiftL_ n p = n * (2 ^ p)
 shiftR_ n p = n `quot` (2 ^ p)
 
 shiftL_ n p = n * (2 ^ p)
 shiftR_ n p = n `quot` (2 ^ p)
 

-#endif {- not GHC -}
+#endif /* not GHC */

 \end{code}
 
 \begin{code}
 \end{code}
 
 \begin{code}

diff --git a/ghc/rts/parallel/ParInit.h b/ghc/rts/parallel/ParInit.h
index add7ad9..a22a50b 100644 (file)
--- a/ghc/rts/parallel/ParInit.h
+++ b/ghc/rts/parallel/ParInit.h
@@ -16,4 +16,4 @@ extern void initParallelSystem(void);
 extern void SynchroniseSystem(void);
 extern void par_exit(I_);
 
 extern void SynchroniseSystem(void);
 extern void par_exit(I_);
 

-#endif PARINIT_H
+#endif /* PARINIT_H */