Changeset 9b9b5a in git

Timestamp:

Apr 22, 2008, 10:38:25 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

644c6b4ce376564f5869fabfb71bce10cba6393d

Parents:

608c410362f7b06cfa02f9d25ef2d8d5780c43e6

Message:

*hannes: memory leak for gcd(const, const)


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

File:

• kernel/clapsing.cc (modified) (2 diffs)

kernel/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.28 2008-03-18 10:11:04 Singular Exp $
+// $Id: clapsing.cc,v 1.29 2008-04-22 08:38:25 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -203 +203 @@
   if (f!=NULL) pCleardenom(f);
   if (g!=NULL) pCleardenom(g);
-  else         return pCopy(f); // g==0 => gcd=f (but do a pCleardenom)
-  if (f==NULL) return pCopy(g); // f==0 => gcd=g (but do a pCleardenom)
-
-  if (pIsConstantPoly(f) || pIsConstantPoly(g)) return pOne();
+  else         return f; // g==0 => gcd=f (but do a pCleardenom)
+  if (f==NULL) return g; // f==0 => gcd=g (but do a pCleardenom)
+
+  if (pIsConstantPoly(f) || pIsConstantPoly(g))
+  {
+    pDelete(&f);
+    pDelete(&g);
+    return pOne();
+  }
 
   // for now there is only the possibility to handle polynomials over