Changeset 10a907 in git

Timestamp:

Mar 16, 1999, 2:38:08 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')

Children:

bc7e5b542d1eb33867373d8931a4db749c0780ab

Parents:

6734fbd784b119d06cfdd34a6fdb6027b1a41165

Message:

*hannes: fixed memory bug in highcorner


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.136 1999-03-15 09:20:59 Singular Exp $ */
+/* $Id: iparith.cc,v 1.137 1999-03-16 13:38:08 Singular Exp $ */
 
 /*
@@ -2516 +2516 @@
   assumeStdFlag(v);
   intvec *w=(intvec*)atGet(v,"isHomog");
-  intvec *module_w=NULL;
+  BOOLEAN delete_w=FALSE;
   ideal I=(ideal)v->Data();
   int i;
   poly p=NULL,po=NULL;
   int rk=idRankFreeModule(I);
-  if (w!=NULL)
-    module_w=new intvec(*w);
-  else
-    module_w = new intvec(rk);
+  if (w==NULL)
+  {
+    w = new intvec(rk);
+    delete_w=TRUE;
+  }
   for(i=rk;i>0;i--)
   {
@@ -2531 +2532 @@
     {
       Werror("module must be zero-dimensional");
-      delete module_w;
+      if (delete_w) delete w;
       return TRUE;
     }
@@ -2541 +2542 @@
     {
       // now po!=NULL, p!=NULL
-      int d=(pFDeg(po)+(*module_w)[pGetComp(po)-1] - pFDeg(p)-(*module_w)[i-1]);
+      int d=(pFDeg(po)+(*w)[pGetComp(po)-1] - pFDeg(p)-(*w)[i-1]);
       if (d==0)
         d=pComp0(p,po);
@@ -2554 +2555 @@
     }
   }
-  delete module_w;
+  if (delete_w) delete w;
   res->data=(void *)po;
   return FALSE;