From 75996e2842f84bf81273fa926489fed7877634c3 Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Fri, 1 Nov 2019 02:57:16 +0400 Subject: [PATCH] OPT.DynArr to be precise --- src/compiler/OPV.Mod | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/OPV.Mod b/src/compiler/OPV.Mod index a8beb6dc..c8a1c4e8 100644 --- a/src/compiler/OPV.Mod +++ b/src/compiler/OPV.Mod @@ -215,7 +215,7 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96 IF (n^.class = OPT.Nderef) & (n^.typ^.comp = OPT.DynArr) THEN d := dim; array := n^.typ; WHILE d > 0 DO array := array^.BaseTyp; DEC(d) END; - IF array^.comp = DynArr THEN + IF array^.comp = OPT.DynArr THEN design(n^.left, 10); OPM.WriteString("->len["); OPM.WriteInt(dim); OPM.Write("]") ELSE OPM.WriteInt(array^.n); OPM.PromoteIntConstToLInt()