paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed some clashes between ifdefs and regular tokens

Browse Source 
git-svn-id: trunk@9289 -
This commit is contained in:
Jonas Maebe 2007-11-18 19:33:00 +00:00
parent de08321368
commit 4b8643f73b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/sim_pasc/pascallang.l
View File

@ -50,7 +50,7 @@ static const struct idf reserved[] = {
{"else", NORM('e')},
{"end", NORM('}')},
{"extern", CTRL('E')},
{"except", META('E')},
{"except", MTCT('E')},
{"file", NORM('F')},
{"finally", META('F')},
{"for", NORM('f')},
@ -58,8 +58,8 @@ static const struct idf reserved[] = {
{"goto", NORM('g')},
{"if", NORM('i')},
{"in", NORM('I')},
{"inherited", META('i')},
{"is", META('I')},
{"inherited", CTRL('I')},
{"is", NORM('j')},
{"label", NORM('l')},
{"mod", NORM('%')},
{"nil", NORM('n')},
@ -135,7 +135,7 @@ const TOKEN NonFinals[] = {
NORM('f'), /* for */
NORM('g'), /* goto */
NORM('i'), /* if */
META('i'), /* inherited */
CTRL('I'), /* inherited */
NORM('l'), /* label */
NORM('O'), /* object */
NORM('P'), /* packed */