Changeset 1ceb92 in git for Singular/iparith.cc

Timestamp:

Feb 13, 2009, 11:01:26 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

fc681b82f6946b8d67552198cf15bccece338710

Parents:

9f7c98afd95242eaf9f63019cd36b483465f8c85

Message:

*hannes: memory handling


git-svn-id: file:///usr/local/Singular/svn/trunk@11389 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.494 2009-02-13 09:46:49 Singular Exp $ */
+/* $Id: iparith.cc,v 1.495 2009-02-13 10:01:26 Singular Exp $ */
 
 /*
@@ -6970 +6970 @@
   }
   int r=v->Typ();
+  BOOLEAN cleanup_i0=FALSE;
   if ((r==POLY_CMD) ||(r==VECTOR_CMD))
   {
     i0=idInit(1,i1->rank);
     i0->m[0]=(poly)v->Data();
+    BOOLEAN cleanup_i0=TRUE;;
   }
   else /* IDEAL */
@@ -6981 +6983 @@
   int ii0=idElem(i0);
   i1 = idSimpleAdd(i1,i0);
-  memset(i0->m,0,sizeof(poly)*IDELEMS(i0));
-  idDelete(&i0);
+  if (cleanup_i0)
+  {
+    memset(i0->m,0,sizeof(poly)*IDELEMS(i0));
+    idDelete(&i0);
+  }
   intvec *ww=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
   tHomog hom=testHomog;