applied changes for the issue #61, with the @jtempl fix 9e3e13af63

This commit is contained in:
norayr 2017-09-02 22:20:03 +04:00
parent bad584ec32
commit 2ec7f3277a
186 changed files with 196 additions and 196 deletions

View file

@ -723,7 +723,7 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
design(d, MinPrec); OPM.WriteString(" = __NEWARR(");
WHILE base^.comp = OPT.Array DO INC(nofdim); base := base^.BaseTyp END ;
IF (base^.comp = OPT.Record) & (OPC.NofPtrs(base) # 0) THEN
OPC.Ident(base^.strobj); OPM.WriteString(DynTypExt)
OPC.Andent(base); OPM.WriteString(DynTypExt)
ELSIF base^.form = OPT.Pointer THEN OPM.WriteString("POINTER__typ")
ELSE OPM.WriteString("NIL")
END ;