From 2a5f63e5f7546b1831d4a09062879d2cdb5d34fd Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 8 Jun 1999 08:43:54 +0000
Subject: [PATCH] [project @ 1999-06-08 08:43:54 by simonmar] - ignore case in
 pragma names

- add "NOTINLINE" as a possible spelling of "NOINLINE" for the
  grammatically challenged.
---
 ghc/compiler/parser/Lex.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index f10d653..18a2549 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -34,7 +34,7 @@ module Lex (
 
 #include "HsVersions.h"
 
-import Char 		( ord, isSpace )
+import Char 		( ord, isSpace, toUpper )
 import List             ( isSuffixOf )
 
 import IdInfo		( InlinePragInfo(..), CprInfo(..) )
@@ -236,6 +236,7 @@ pragmaKeywordsFM = listToUFM $
 	( "SOURCE",	ITsource_prag ),
 	( "INLINE",     ITinline_prag ),
 	( "NOINLINE",   ITnoinline_prag ),
+	( "NOTINLINE",	ITnoinline_prag ),
 	( "LINE",       ITline_prag ),
 	( "RULES",	ITrules_prag ),
 	( "RULEZ",	ITrules_prag )	-- american spelling :-)
@@ -402,7 +403,8 @@ lexer cont buf s@(PState{
 		  if lookAhead# buf 3# `eqChar#` '#'# then is_a_token else
 		  case expandWhile# is_space (setCurrentPos# buf 3#) of { buf1->
 		  case expandWhile# is_ident (stepOverLexeme buf1)   of { buf2->
-		  let lexeme = lexemeToFastString buf2 in
+		  let lexeme = mkFastString -- ToDo: too slow
+			          (map toUpper (lexemeToString buf2)) in
 		  case lookupUFM pragmaKeywordsFM lexeme of
 			Just ITline_prag -> line_prag (lexer cont) buf2 s'
 			Just other -> is_a_token
-- 
1.7.10.4