vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 02:52:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added TRUE, FALSE, SET to the check. -- noch

Browse source
This commit is contained in:
norayr 2016-12-05 22:12:10 +04:00
parent 711283cba5
commit 836e26dd47
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/compiler/OPP.Mod
View file

@ -925,7 +925,8 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *)
IF (obj^.name = "INTEGER") OR (obj^.name = "SHORTINT") OR IF (obj^.name = "INTEGER") OR (obj^.name = "SHORTINT") OR
(obj^.name = "LONGINT") OR (obj^.name = "HUGEINT") OR (obj^.name = "LONGINT") OR (obj^.name = "HUGEINT") OR
(obj^.name = "LONGREAL") OR (obj^.name = "REAL") OR (obj^.name = "LONGREAL") OR (obj^.name = "REAL") OR
(obj^.name = "CHAR") THEN (obj^.name = "CHAR") OR (obj^.name = "SET") OR
(obj^.name = "TRUE") OR (obj^.name = "FALSE") THEN
OPM.Mark(-310, OPM.curpos); (* notice about aliasing of predefined type *) OPM.Mark(-310, OPM.curpos); (* notice about aliasing of predefined type *)
END; END;
OPS.Get(sym); TypeDecl(obj^.typ, obj^.typ) OPS.Get(sym); TypeDecl(obj^.typ, obj^.typ)