Migration to OCCT 7.0

[modules/geom.git] / src / GEOM / GEOM_Solver.cxx

diff --git a/src/GEOM/GEOM_Solver.cxx b/src/GEOM/GEOM_Solver.cxx
index e3e3c0f6d8c1b1f5c816b6899e15edf22db0bcc3..2e6475362eb7560f97cf761c4f84aa4de4230c74 100644 (file)
--- a/src/GEOM/GEOM_Solver.cxx
+++ b/src/GEOM/GEOM_Solver.cxx
@@ -56,15 +56,19 @@ bool GEOM_Solver::UpdateObject(Handle(GEOM_Object) theObject, TDF_LabelSequence&
 //=============================================================================  
 bool GEOM_Solver::ComputeFunction(Handle(GEOM_Function) theFunction)
 {
-  if(theFunction == NULL) return false;
+  if(theFunction.IsNull()) return false;
   Standard_GUID aGUID = theFunction->GetDriverGUID();
       
   Handle(TFunction_Driver) aDriver;
   if(!TFunction_DriverTable::Get()->FindDriver(aGUID, aDriver)) return false;
           
   aDriver->Init(theFunction->GetEntry());
-            
+
+#if OCC_VERSION_MAJOR < 7
   TFunction_Logbook aLog;
+#else
+  Handle(TFunction_Logbook) aLog = TFunction_Logbook::Set( aDriver->Label() );
+#endif
   if(aDriver->Execute(aLog) == 0) return false;
                 
   return true;