Changeset 45d41f in git for kernel/gring.cc

Timestamp:

Jul 18, 2005, 2:41:55 PM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

d3c2f999d4d790673490486a0f05709ba9720804

Parents:

26620d841aad6a1ce3ba68c3114ee40ccffe0576

Message:

*bricken: memory in kBucketPolyRed_Z fixed, optimized


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

File:

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

kernel/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.26 2005-07-15 11:58:24 levandov Exp $
+ *  Version: $Id: gring.cc,v 1.27 2005-07-18 12:41:55 bricken Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -1266 +1266 @@
   pTest(m);
 #endif
+  if(p_IsConstant(m,currRing)){
+    pDelete(&m);
+    *c = kBucketPolyRed(b,p,pLength(p),NULL);
+    return;
+  }
   poly pp = nc_mm_Mult_p(m,pCopy(p),currRing);
   pDelete(&m);
   *c = kBucketPolyRed(b,pp,pLength(pp),NULL);
+  pDelete(&pp);
 }