gcc-11.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

diff --git a/language-c/src/Language/C/Parser/Lexer.x b/language-c/src/Language/C/Parser/Lexer.x
index b7653b25..eb8514f8 100644
--- a/language-c/src/Language/C/Parser/Lexer.x
+++ b/language-c/src/Language/C/Parser/Lexer.x
@@ -140,7 +140,7 @@ $white+         ;
 -- * allows further ints after the file name a la GCC; as the GCC CPP docu
 --   doesn't say how many ints there can be, we allow an unbound number
 --
-\#$space*@int$space*(\"($infname|@charesc)*\"$space*)?(@int$space*)*\r?$eol
+\#$space*@digits$space*(\"($infname|@charesc)*\"$space*)?(@int$space*)*\r?$eol
   { \pos len str -> setPos (adjustLineDirective len (takeChars len str) pos) >> lexToken' False }
 
 -- #pragma directive (K&R A12.8)