Changeset 6578241 in git for Singular/iparith.cc

Timestamp:

Feb 10, 2022, 4:41:02 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

53fe8a42a4eb3a927fed254d7c3c228530c6c12a

Parents:

ed6db890624524bb0ee27dd818ebf9dc825cf0df

Message:

opt: omFreeBin*

File:

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

Singular/iparith.cc

@@ -2334 +2334 @@
 static BOOLEAN jjFRES(leftv res, leftv u, leftv v)
 {
-    leftv w = (leftv)omAlloc0(sizeof(sleftv));
+    leftv w = (leftv)omAlloc0Bin(sleftv_bin);
     w->rtyp = STRING_CMD;
     w->data = (char *)"complete";   // default
     BOOLEAN RES = jjFRES3(res, u, v, w);
-    omFree(w);
+    omFreeBin(w,sleftv_bin);
     return RES;
 }
@@ -4342 +4342 @@
 {
   map m=(map)v->CopyD(MAP_CMD);
-  omFree((ADDRESS)m->preimage);
+  omFreeBinAddr((ADDRESS)m->preimage);
   m->preimage=NULL;
   ideal I=(ideal)m;
@@ -5506 +5506 @@
         {
           Werror("can not create package `%s`",plib);
-          omFree(plib);
+          omFreeBinAddr(plib);
           return TRUE;
         }
@@ -5516 +5516 @@
           {
             Werror("can not create package `%s` - binaries  exists",plib);
-            omfree(plib);
+            omFreeBinAddr(plib);
             return TRUE;
           }
         }
-        omFree(plib);
+        omFreeBinAddr(plib);
         package savepack=currPack;
         currPack=IDPACKAGE(pl);
@@ -7049 +7049 @@
   jjSTATUS2(res, u, v);
   yes = (strcmp((char *) res->data, (char *) w->Data()) == 0);
-  omFree((ADDRESS) res->data);
+  omFreeBinAddr((ADDRESS) res->data);
   res->data = (void *)(long)yes;
   return FALSE;
@@ -7425 +7425 @@
   char *s2=nCoeffString(currRing->cf);
   Werror("no identity map from %s (%s -> %s)",u->Fullname(),s1,s2);
-  omFree(s2);omFree(s1);
+  omFreeBinAddr(s2);omFreeBinAddr(s1);
   return TRUE;
 }
@@ -9807 +9807 @@
     return -1;
   }
-  omFree(sArithBase.sCmds[nIndex].name);
+  omFreeBinAddr(sArithBase.sCmds[nIndex].name);
   sArithBase.sCmds[nIndex].name=NULL;
   qsort(sArithBase.sCmds, sArithBase.nCmdUsed, sizeof(cmdnames),