From bd9c4e61b1e5e25f33622c97f7ae08a390744fc3 Mon Sep 17 00:00:00 2001
From: mkr <mkr@opencascade.com>
Date: Tue, 31 Jan 2006 15:48:06 +0000
Subject: [PATCH] Fix for bug PAL8004 : CRASH after trying to run edited
 MacroNode execution.

---
 src/GraphBase/DataFlowBase_ComputingNode.cxx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/GraphBase/DataFlowBase_ComputingNode.cxx b/src/GraphBase/DataFlowBase_ComputingNode.cxx
index 12b7e59..d8c606e 100644
--- a/src/GraphBase/DataFlowBase_ComputingNode.cxx
+++ b/src/GraphBase/DataFlowBase_ComputingNode.cxx
@@ -466,6 +466,7 @@ void GraphBase::ComputingNode::UpdateMacroPorts( GraphBase::Graph * aGraph ) {
       cdebug << "UpdateMacroPorts DelInPort In" << i << " " << GetNodeInPort( i )->PortName() << " "
              << GetNodeInPort( i )->PortType() << " " << GetNodeInPort( i )->Kind() << endl ;
       DelInPort( GetNodeInPort( i )->PortName() ) ;
+      i--; // mkr : fix for bug PAL8004
     }
   }
   int index ;
-- 
2.39.2