Changeset a72699 in git for kernel/GBEngine/kutil.cc

Timestamp:

Nov 29, 2021, 1:46:57 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

b9ded9215c1f31f52c684d1560787b9c150d904e

Parents:

0c3140eb2ef06439f93290caf16ccde4beaaf57c

Message:

fix: memory leak for LP: initenterpairsShift

File:

• kernel/GBEngine/kutil.cc (modified) (4 diffs)

kernel/GBEngine/kutil.cc

@@ -13065 +13065 @@
         {
           poly hh = pLPCopyAndShiftLM(h, i);
+          BOOLEAN discard=TRUE;
           for (j=0; j<=k; j++)
           {
@@ -13070 +13071 @@
             int s_lastVblock = pmLastVblock(s);
             if (i < s_lastVblock || (pGetComp(s) > 0 && i == s_lastVblock)) // in the module case, product criterion does not hold (note: comp h is always zero here)
-              enterOnePairWithoutShifts(j, hh, s, ecart, isFromQ, strat, atR, s_lastVblock, i);
+              discard=enterOnePairWithoutShifts(j, hh, s, ecart, isFromQ, strat, atR, s_lastVblock, i)
+                && discard;
 #ifdef HAVE_RINGS
             else if (rField_is_Ring(currRing))
@@ -13086 +13088 @@
           }
           if (i < h_lastVblock) // in the module case, product criterion does not hold (note: comp h is always zero here)
-            enterOnePairWithoutShifts(-1, hh, h, ecart, isFromQ, strat, atR, h_lastVblock, i);
+            discard=enterOnePairWithoutShifts(-1, hh, h, ecart, isFromQ, strat, atR, h_lastVblock, i)
+              && discard;
 #ifdef HAVE_RINGS
           else if (rField_is_Ring(currRing))
@@ -13100 +13103 @@
           }
 #endif
+          if (discard) pLmDelete(hh);
         }
       }