removed PromoteIntConstToLInt() function call

This commit is contained in:
Norayr Chilingarian 2019-11-01 03:04:42 +04:00
parent 75996e2842
commit 076307c0a7

View file

@ -218,7 +218,7 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
IF array^.comp = OPT.DynArr THEN IF array^.comp = OPT.DynArr THEN
design(n^.left, 10); OPM.WriteString("->len["); OPM.WriteInt(dim); OPM.Write("]") design(n^.left, 10); OPM.WriteString("->len["); OPM.WriteInt(dim); OPM.Write("]")
ELSE ELSE
OPM.WriteInt(array^.n); OPM.PromoteIntConstToLInt() OPM.WriteInt(array^.n)
END END
ELSE ELSE
OPC.Len(n^.obj, n^.typ, dim) OPC.Len(n^.obj, n^.typ, dim)