paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 11:22:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* out and var are reserved words

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-30 18:40:08 +01:00
parent e091d263c8
commit f590e65c7b
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/h2pas/h2pas.pas
View File

@ -203,7 +203,7 @@ program h2pas;
}
function FixId(const s:string):string;
const
maxtokens = 14;
maxtokens = 16;
reservedid: array[1..maxtokens] of string[14] =
(
'CLASS',
@ -212,6 +212,7 @@ program h2pas;
'FALSE',
'LABEL',
'NEW',
'OUT',
'PROPERTY',
'PROCEDURE',
'RECORD',
@ -219,7 +220,8 @@ program h2pas;
'STRING',
'TYPE',
'TRUE',
'UNTIL'
'UNTIL',
'VAR'
);
var
b : boolean;

6
utils/h2pas/h2pas.y
View File

@ -199,7 +199,7 @@ program h2pas;
}
function FixId(const s:string):string;
const
maxtokens = 14;
maxtokens = 16;
reservedid: array[1..maxtokens] of string[14] =
(
'CLASS',
@ -208,6 +208,7 @@ program h2pas;
'FALSE',
'LABEL',
'NEW',
'OUT',
'PROPERTY',
'PROCEDURE',
'RECORD',
@ -215,7 +216,8 @@ program h2pas;
'STRING',
'TYPE',
'TRUE',
'UNTIL'
'UNTIL',
'VAR'
);
var
b : boolean;