[project @ 2003-06-08 20:33:31 by ross]

fix more gcc 3.3 preprocessor warnings

diff --git a/ghc/compiler/parser/LexCore.hs b/ghc/compiler/parser/LexCore.hs
index 51d6e8e..d634acd 100644 (file)
--- a/ghc/compiler/parser/LexCore.hs
+++ b/ghc/compiler/parser/LexCore.hs
@@ -127,4 +127,4 @@ lexDigits :: ReadS String
 lexDigits s =  case span isDigit s of
                 (cs,s') | not (null cs) -> [(cs,s')]
                 otherwise               -> []
-#endif
\ No newline at end of file
+#endif

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 058431c..f335062 100644 (file)
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -297,7 +297,7 @@ elem__ x (y:ys)     = x==y || elem__ x ys
 notElem__ x []    =  True
 notElem__ x (y:ys) =  x /= y && notElem__ x ys
 
-# else {- DEBUG -}
+# else /* DEBUG */
 isIn msg x ys
   = elem (_ILIT 0) x ys
   where
@@ -315,7 +315,7 @@ isn'tIn msg x ys
       | i ># _ILIT 100 = trace ("Over-long notElem in " ++ msg) $
                         x `List.notElem` (y:ys)
       | otherwise      =  x /= y && notElem (i +# _ILIT(1)) x ys
-# endif {- DEBUG -}
+# endif /* DEBUG */
 \end{code}
 
 %************************************************************************