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

check for IMPORT SYSTEM in CheckSysFlag, synced with jtempl's version.

Browse source
This commit is contained in:
norayr 2015-10-09 12:21:53 +04:00
parent 5afbe2cfbc
commit fced3875b7
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/voc/OPP.Mod
View file

@ -133,7 +133,9 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *)
PROCEDURE CheckSysFlag(VAR sysflag: INTEGER; default: INTEGER); PROCEDURE CheckSysFlag(VAR sysflag: INTEGER; default: INTEGER);
VAR x: OPT.Node; sf: LONGINT; VAR x: OPT.Node; sf: LONGINT;
BEGIN BEGIN
IF sym = lbrak THEN OPS.Get(sym); ConstExpression(x); IF sym = lbrak THEN OPS.Get(sym);
IF ~OPT.SYSimported THEN err(135) END;
ConstExpression(x);
IF x^.typ^.form IN intSet THEN sf := x^.conval^.intval; IF x^.typ^.form IN intSet THEN sf := x^.conval^.intval;
IF (sf < 0) OR (sf > OPM.MaxSysFlag) THEN err(220); sf := 0 END IF (sf < 0) OR (sf > OPM.MaxSysFlag) THEN err(220); sf := 0 END
ELSE err(51); sf := 0 ELSE err(51); sf := 0

BIN
vocstatic.linux.gcc.x86_64
View file

Binary file not shown.