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

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

Browse source 
Former-commit-id: fced3875b7
This commit is contained in:
norayr 2015-10-09 12:21:53 +04:00
parent 85dc46c036
commit 11acf6faca
2 changed files with 4 additions and 2 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

2
vocstatic.linux.gcc.x86_64.REMOVED.git-id
View file

@ -1 +1 @@
ad35921c49d3aae4b67a6aca3f351381b4f9eadb a7a837dd44a4c74f85ac685d62b8179041dd783c