From: mkr <mkr@opencascade.com>
Date: Fri, 4 Jul 2008 12:07:13 +0000 (+0000)
Subject: Fix for bug IPAL18899 : 4x REGRESS: Dump python on the study leads to fatal error... 
X-Git-Tag: V4_1_4a1~14
X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=24523717dad6f5c3f6efb31cbb54ea7aa55ad57b;p=modules%2Fgeom.git

Fix for bug IPAL18899 : 4x REGRESS: Dump python on the study leads to fatal error "Unknown Exception".
---

diff --git a/src/GEOM_I_Superv/GEOM_Superv_i.cc b/src/GEOM_I_Superv/GEOM_Superv_i.cc
index bd10a6707..85cea16c1 100644
--- a/src/GEOM_I_Superv/GEOM_Superv_i.cc
+++ b/src/GEOM_I_Superv/GEOM_Superv_i.cc
@@ -813,9 +813,7 @@ GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSphere  (CORBA::Double theX,
   MESSAGE("GEOM_Superv_i::MakeSphepe");
   getBasicOp();
   get3DPrimOp();
-  GEOM::GEOM_Object_var o = myBasicOp->MakePointXYZ(theX, theY, theZ);
-  GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeSpherePntR(o, theRadius);
-  o->Destroy();
+  GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeSpherePntR(myBasicOp->MakePointXYZ(theX, theY, theZ), theRadius);
   endService( " GEOM_Superv_i::MakeSphepe" );
   return anObj;
 }