From d39ce50cebbf514a233a305fac0ee8faec7a190e Mon Sep 17 00:00:00 2001
From: jfa <jfa@opencascade.com>
Date: Fri, 11 Aug 2006 11:48:43 +0000
Subject: [PATCH] PAL13137: Some modifications to work on 64 bits
 architectures. Correct compilation error.

---
 src/GraphBase/DataFlowBase_DataPort.cxx | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/GraphBase/DataFlowBase_DataPort.cxx b/src/GraphBase/DataFlowBase_DataPort.cxx
index f8b92c2..c60b7b2 100644
--- a/src/GraphBase/DataFlowBase_DataPort.cxx
+++ b/src/GraphBase/DataFlowBase_DataPort.cxx
@@ -386,7 +386,12 @@ void GraphBase::DataPort::SetValue( const CORBA::Any * aDataValue ) {
       }
       else if ( !strcmp( Type , "boolean" ) || !strcmp( Type , "char" ) ||
                 !strcmp( Type , "short" ) || !strcmp( Type , "int" ) || !strcmp( Type , "long" ) ) {
+#ifdef OMNI_LONG_IS_INT
+        long ll = (long ) obj ;
+        CORBA::Long l = (CORBA::Long ) ll ;
+#else
         CORBA::Long l = (CORBA::Long ) obj ;
+#endif
         *theValue <<= l ;
         *theValue >>= l;
 #if ValueTrace
-- 
2.39.2