From 4d34283a4eb66d10138ade54d13de901e3d7508c Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Tue, 16 Jun 2015 21:33:41 +0400
Subject: [PATCH] fixed bug found by zorko and described
 [here](https://code.google.com/p/ofront/issues/detail?id=6) with a little
 modification.

Former-commit-id: 7ff54e56bde316701c8023ed84cf2e0b6aee569c
---
 src/voc/OPC.Mod                           | 2 +-
 vocstatic.linux.gcc.x86_64.REMOVED.git-id | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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