Changeset 37e22d in git

Timestamp:

Apr 7, 1998, 8:37:41 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

33e52153b30e64770ad38770e23349caf3d128fb

Parents:

97454d23ed1d5477f8790a863d5d481deacedbcc

Message:

* hannes: fixed usage of memory routines (polys-impl.cc)


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

File:

• Singular/polys-impl.cc (modified) (7 diffs)

Singular/polys-impl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.cc,v 1.14 1998-03-27 15:43:29 obachman Exp $ */
+/* $Id: polys-impl.cc,v 1.15 1998-04-07 18:37:41 Singular Exp $ */
 
 /***************************************************************
@@ -22 +22 @@
 #include "tok.h"
 #include "structs.h"
+#include "mmprivat.h"
 #include "mmemory.h"
 #include "febase.h"
@@ -186 +187 @@
 {
 #ifdef MDEBUG
-  poly p = (poly) mmDBAllocBlock(pMonomSize,f,l);
-#else
-  poly p = (poly) mmAllocBlock(pMonomSize);
+  poly p = (poly) mmDBAllocSpecialized(f,l);
+#else
+  poly p = (poly) mmAllocSpecialized();
 #endif
   memset(p,0,pMonomSize);
@@ -226 +227 @@
     pIter(h);
 #ifdef MDEBUG
-    mmDBFreeBlock((ADDRESS)*p,pMonomSize,f,l);
-#else
-    mmFreeBlock((ADDRESS)*p,pMonomSize);
+    mmDBFreeSpecialized((ADDRESS)*p,f,l);
+#else
+    mmFreeSpecialized((ADDRESS)*p);
 #endif
     *p=h;
@@ -264 +265 @@
   *p = pNext(h);
 #ifdef MDEBUG
-  mmDBFreeBlock((ADDRESS)h,pMonomSize,f,l);
-#else
-  mmFreeBlock((ADDRESS)h,pMonomSize);
+  mmDBFreeSpecialized((ADDRESS)h,f,l);
+#else
+  mmFreeSpecialized((ADDRESS)h);
 #endif
 }
@@ -299 +300 @@
     p->coef=NULL;//nDelete(&(p->coef));
 #ifdef MDEBUG
-    mmDBFreeBlock((ADDRESS)p,pMonomSize,f,l);
-#else
-    mmFreeBlock((ADDRESS)p,pMonomSize);
+    mmDBFreeSpecialized((ADDRESS)p,f,l);
+#else
+    mmFreeSpecialized((ADDRESS)p);
 #endif
   }
@@ -662 +663 @@
   {
 #ifdef MDEBUG
-    if (!mmDBTestBlock(p,pMonomSize,f,l))
+    if (!mmDBTestBlock(p,mm_specSize,f,l))
       return FALSE;
 #endif