[project @ 2004-09-15 02:47:03 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / cmm / CmmLex.x

diff --git a/ghc/compiler/cmm/CmmLex.x b/ghc/compiler/cmm/CmmLex.x
index e1be71a..ff98508 100644 (file)
--- a/ghc/compiler/cmm/CmmLex.x
+++ b/ghc/compiler/cmm/CmmLex.x
@@ -61,6 +61,7 @@ $namechar  = [$namebegin $digit]
 cmm :-
 
 $white_no_nl+          ;
+^\# pragma .* \n        ; -- Apple GCC 3.3 CPP generates pragmas in its output
 
 ^\# (line)?            { begin line_prag }