diff --git a/src/voc/OPC.Mod b/src/voc/OPC.Mod index 77547af9..261d0f44 100644 --- a/src/voc/OPC.Mod +++ b/src/voc/OPC.Mod @@ -203,7 +203,7 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *) ELSE pointers := 0; WHILE (typ^.strobj = NIL) & (typ^.form = Pointer) DO INC (pointers); typ := typ^.BaseTyp END ; - IF typ^.comp # DynArr THEN Stars (typ, openClause) END ; + IF (typ^.comp # DynArr) & (pointers # 0) THEN Stars (typ, openClause) END ; IF pointers > 0 THEN IF openClause THEN OPM.Write(OpenParen); openClause := FALSE END ; WHILE pointers > 0 DO OPM.Write(Star); DEC (pointers) END diff --git a/vocstatic.linux.gcc.x86_64.REMOVED.git-id b/vocstatic.linux.gcc.x86_64.REMOVED.git-id index 6f222cb4..4c874123 100644 --- a/vocstatic.linux.gcc.x86_64.REMOVED.git-id +++ b/vocstatic.linux.gcc.x86_64.REMOVED.git-id @@ -1 +1 @@ -80e5f927908e8441dcbdb947ac1b71a0d02e861c \ No newline at end of file +1bf4f972c6fb10b8b7f3c6613948482a1682528c \ No newline at end of file