X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2Fhslexer.flex;h=a5adef34eadcd7e2987821711b6b6013e5d8876d;hb=123f2400f92ba0aaac34340b9276954bd2371743;hp=a3abd5a5897de5ccd0a449d38165fe568bc9e071;hpb=132c92f70c00bb465cfd33178338287eb587a63c;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/hslexer.flex b/ghc/compiler/parser/hslexer.flex
index a3abd5a..a5adef3 100644
--- a/ghc/compiler/parser/hslexer.flex
+++ b/ghc/compiler/parser/hslexer.flex
@@ -399,6 +399,14 @@ NL  	    	    	[\n\r]
 <GlaExt>"_ccall_GC_"		{ RETURN(CCALL_GC); }
 <GlaExt>"_casm_"		{ RETURN(CASM); }
 <GlaExt>"_casm_GC_"		{ RETURN(CASM_GC); }
+<GlaExt>"foreign"		{ RETURN(FOREIGN); }
+<GlaExt>"export"		{ RETURN(EXPORT); }
+<GlaExt>"unsafe"		{ RETURN(UNSAFE); }
+<GlaExt>"_stdcall"		{ RETURN(STDCALL); }
+<GlaExt>"_ccall"		{ RETURN(C_CALL); }
+<GlaExt>"_pascal"	        { RETURN(PASCAL); }
+<GlaExt>"_fastcall"	        { RETURN(FASTCALL); }
+<GlaExt>"dynamic"	        { RETURN(DYNAMIC); }
 
 %{
     /*