From d47f1285fa847ba94e4b6f52934ea6198f6abe2a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 9 Jun 1999 16:14:55 +0000
Subject: [PATCH] [project @ 1999-06-09 16:14:55 by simonmar] - Recognise #-}
as the end-of-pragma symbol even when -fglsagow-exts is off. Certain
pragmas are Haskell (like {-# OPTIMIZE #-} :-) and some aren't, so we're
not really Haskell compliant here.
- Fix case-insensitive pragma matching.
---
ghc/compiler/parser/Lex.lhs | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 43e35b5cc657..b8f25953b301 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -526,9 +526,8 @@ lexToken cont glaexts buf =
(_:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
_ -> lexError "too many '}'s" buf s
- '#'# | flag glaexts
- -> case lookAhead# buf 1# of
- ')'# -> cont ITcubxparen (setCurrentPos# buf 2#)
+ '#'# -> case lookAhead# buf 1# of
+ ')'# | flag glaexts -> cont ITcubxparen (setCurrentPos# buf 2#)
'-'# -> case lookAhead# buf 2# of
'}'# -> cont ITclose_prag (setCurrentPos# buf 3#)
_ -> lex_sym cont (incLexeme buf)
@@ -606,7 +605,7 @@ flag _ = True
lex_prag cont buf
= case expandWhile# is_space buf of { buf1 ->
case expandWhile# is_ident (stepOverLexeme buf1) of { buf2 ->
- let lexeme = lexemeToFastString buf2 in
+ let lexeme = mkFastString (map toUpper (lexemeToString buf2)) in
case lookupUFM pragmaKeywordsFM lexeme of
Just kw -> cont kw (mergeLexemes buf buf2)
Nothing -> panic "lex_prag"
--
GitLab