From 11acf6facacb2ac3fd40ccc76e6d25526874b3b3 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Fri, 9 Oct 2015 12:21:53 +0400
Subject: [PATCH] check for IMPORT SYSTEM in CheckSysFlag, synced with jtempl's
 version.

Former-commit-id: fced3875b71c0d37d635c9300bac179a7abc0286
---
 src/voc/OPP.Mod                           | 4 +++-
 vocstatic.linux.gcc.x86_64.REMOVED.git-id | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/voc/OPP.Mod b/src/voc/OPP.Mod
index 160cfec6..7971ab96 100644
--- a/src/voc/OPP.Mod
+++ b/src/voc/OPP.Mod
@@ -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);
     VAR x: OPT.Node; sf: LONGINT;
   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 (sf < 0) OR (sf > OPM.MaxSysFlag) THEN err(220); sf := 0 END
       ELSE err(51); sf := 0
diff --git a/vocstatic.linux.gcc.x86_64.REMOVED.git-id b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
index ba8364c4..6d32b957 100644
--- a/vocstatic.linux.gcc.x86_64.REMOVED.git-id
+++ b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
@@ -1 +1 @@
-ad35921c49d3aae4b67a6aca3f351381b4f9eadb
\ No newline at end of file
+a7a837dd44a4c74f85ac685d62b8179041dd783c
\ No newline at end of file