vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

reverted back to using string literals. -- noch

Browse source
This commit is contained in:
norayr 2016-12-06 20:35:58 +04:00
parent 58ea173d94
commit d210376421
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/compiler/OPP.Mod
View file

@ -922,14 +922,14 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *)
OPT.Insert(OPS.name, obj); obj^.mode := OPT.Typ; obj^.typ := OPT.undftyp;
CheckMark(obj^.vis);
IF sym = OPS.eql THEN
IF (obj^.name = OPT.sinttyp.strobj.name) OR
(obj^.name = OPT.inttyp.strobj.name) OR
(obj^.name = OPT.linttyp.strobj.name) OR
(obj^.name = OPT.hinttyp.strobj.name) OR
(obj^.name = OPT.realtyp.strobj.name) OR
(obj^.name = OPT.lrltyp.strobj.name) OR
(obj^.name = OPT.settyp.strobj.name) OR
(obj^.name = OPT.chartyp.strobj.name) OR
IF (obj^.name = "SHORTINT") OR
(obj^.name = "INTEGER") OR
(obj^.name = "LONGINT") OR
(obj^.name = "HUGEINT") OR
(obj^.name = "REAL") OR
(obj^.name = "LONGREAL") OR
(obj^.name = "SET") OR
(obj^.name = "CHAR") OR
(obj^.name = "TRUE") OR (obj^.name = "FALSE") THEN
OPM.Mark(-310, OPM.curpos); (* notice about aliasing of predefined type *)
END;