| ITunfold InlinePragInfo
| ITstrict ([Demand], Bool)
| ITrules
| ITunfold InlinePragInfo
| ITstrict ([Demand], Bool)
| ITrules
( "NOTINLINE", ITnoinline_prag ),
( "LINE", ITline_prag ),
( "RULES", ITrules_prag ),
( "NOTINLINE", ITnoinline_prag ),
( "LINE", ITline_prag ),
( "RULES", ITrules_prag ),
- ( "RULEZ", ITrules_prag ) -- american spelling :-)
+ ( "RULEZ", ITrules_prag ), -- american spelling :-)
+ ( "DEPRECATED", ITdeprecated_prag )
("__U", ITunfold NoInlinePragInfo),
("__ccall", ITccall (False, False, False)),
("__U", ITunfold NoInlinePragInfo),
("__ccall", ITccall (False, False, False)),
c | is_digit c -> lex_num cont glaexts 0 buf
| is_symbol c -> lex_sym cont buf
| is_upper c -> lex_con cont glaexts buf
c | is_digit c -> lex_num cont glaexts 0 buf
| is_symbol c -> lex_sym cont buf
| is_upper c -> lex_con cont glaexts buf