Changeset f8519e in git for Singular/mmcheck.c

Timestamp:

Jan 26, 1999, 3:41:42 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4bd32dfef92ec9f5ed8dceee82d14318ae147107')

Children:

b6285e707366fbd4f332d38d696bd74910bcbe9e

Parents:

8e012379f6186bcc208b49f8710913df381eb5e3

Message:

* added AllocAligned & FreeAligned


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

File:

• Singular/mmcheck.c (modified) (2 diffs)

Singular/mmcheck.c

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mmcheck.c,v 1.2 1999-01-05 12:18:39 Singular Exp $ */
+/* $Id: mmcheck.c,v 1.3 1999-01-26 14:41:38 obachman Exp $ */
 
 /*
@@ -38 +38 @@
  *
  **********************************************************************/
+
+void mmMoveDBMCB ( pDBMCB from, pDBMCB to, DBMCB * what )
+{
+  what->prev->next = what->next;
+  if ( what->next != NULL )
+    what->next->prev = what->prev;
+  what->prev = to;
+  what->next = to->next;
+  if (to->next!=NULL)
+    to->next->prev=what;
+  to->next = what;
+}
+
+void mmMoveDBMCBInto ( pDBMCB to, pDBMCB what )
+{
+  if (to->next !=NULL)
+  {
+    what->next = to->next;
+    what->next->prev = what;
+  }
+  to->next = what;
+  what->prev = to;
+}
+
+void mmTakeOutDBMCB ( pDBMCB what )
+{
+  what->prev->next = what->next;
+  if ( what->next != NULL )
+    what->next->prev = what->prev;
+}
+
+void mmDBSetHeapsOfBlocks(memHeap fromheap, memHeap toheap)
+{
+  memHeapPage pages = fromheap->pages;
+  int nblocks = SIZE_OF_HEAP_PAGE / toheap->size;
+  int i;
+
+  assume(fromheap->size == toheap->size);
+  while (pages != NULL)
+  {
+    DBMCB *what = (DBMCB*) (((char*) pages) + SIZE_OF_HEAP_PAGE_HEADER);
+    
+    for (i=0; i<nblocks; i++)
+    {
+      what->heap = toheap;
+      what = (DBMCB*) (((char*) what)  + toheap->size);
+    }
+    pages = pages->next;
+  }
+}
+
+void mmDBInitNewHeapPage(memHeap heap)
+{
+  DBMCB* what = (DBMCB*) heap->current;
+  DBMCB* prev = NULL;
+  size_t size = SizeFromRealSize(heap->size);
+  
+  if (mm_minAddr == 0 || mm_minAddr > (void*) what)
+    mm_minAddr = (void*) what;
+
+  while (what != NULL)
+  {
+    mmFillDBMCB(what, size, heap, MM_FREEFLAG, __FILE__, __LINE__);    
+    mmMoveDBMCBInto(&mm_theDBfree, what);
+    prev = what;
+    what = *((void**) what);
+  }
+  
+  if (mm_maxAddr == 0 || mm_maxAddr < (void*) prev)
+    mm_maxAddr = (void*) prev;
+}
 
 static int mmPrintDBMCB ( DBMCB * what, char* msg , int given_size)