исправление ошибки

source/REG.ob07

@@ -70,17 +70,12 @@ END pop;
 
 PROCEDURE InStk (R: REGS; reg: INTEGER): INTEGER;
 VAR
-    i, n: INTEGER;
+    i: INTEGER;
 
 BEGIN
-    i := 0;
-    n := R.top;
-    WHILE (i <= n) & (R.stk[i] # reg) DO
-        INC(i)
-    END;
-
-    IF i > n THEN
-        i := -1
+    i := R.top;
+    WHILE (i >= 0) & (R.stk[i] # reg) DO
+        DEC(i)
     END
 
     RETURN i

source/STATEMENTS.ob07

@@ -1546,7 +1546,9 @@ BEGIN
 
         PARS.checklex(parser, SCAN.lxRSQUARE);
         PARS.Next(parser);
-        e.ident := NIL
+        IF ~(isArr(e) & (e._type.length = 0) & (parser.sym = SCAN.lxLSQUARE)) THEN
+            e.ident := NIL
+        END
 
     ELSIF parser.sym = SCAN.lxCARET DO
         getpos(parser, pos);

source/UTILS.ob07

@@ -24,7 +24,7 @@ CONST
 
     vMajor* = 1;
     vMinor* = 52;
-    Date* = "2021-02-17";
+    Date* = "2021-apr-06";
 
     FILE_EXT* = ".ob07";
     RTL_NAME* = "RTL";