From: ross <unknown>
Date: Sun, 8 Jun 2003 20:33:31 +0000 (+0000)
Subject: [project @ 2003-06-08 20:33:31 by ross]
X-Git-Tag: Approx_11550_changesets_converted~795
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4e4d6f3b2640d26b123e45fe8ecea53bca890093;p=ghc-hetmet.git

[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
--- 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
--- 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}
 
 %************************************************************************