Changeset f103fb in git for omalloc/omtTest.c

Timestamp:

Oct 4, 2000, 3:12:32 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

400633927935ad03438bf37f1f7967d1b891903d

Parents:

ff4e34fa88e2957ee964d2e38c9e058cf143c963

Message:

* omGetStickyBinOfBin added


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

File:

• omalloc/omtTest.c (modified) (3 diffs)

omalloc/omtTest.c

@@ -274 +274 @@
 }
 
+omBin omtGetStickyBin(omBin bin)
+{
+  omBin sticky_bin = omFindInGList(om_StickyBins, next, max_blocks, bin->max_blocks);
+  if (sticky_bin == NULL)
+    sticky_bin = omGetStickyBinOfBin(bin);
+  return sticky_bin;
+}
+
+void omtMergeStickyBins(omMemCell cell, int n)
+{
+  int i;
+  omBin bin;
+  
+  for (i=0; i<n; i++)
+  {
+    if (cell[i].orig_bin != NULL)
+    {
+      if (omIsOnGList(om_StickyBins, next, cell[i].bin))
+        omMergeStickyBinIntoBin(cell[i].bin, cell[i].orig_bin);
+
+      cell[i].bin = cell[i].orig_bin;
+      cell[i].orig_bin = NULL;
+    }
+  }
+  
+  bin = om_StickyBins;
+  while (bin != NULL)
+  {
+    if (bin->current_page == om_ZeroPage)
+    {
+      omBin next_bin = bin->next;
+      om_StickyBins = omRemoveFromGList(om_StickyBins, next, bin);
+      __omFreeBinAddr(bin);
+      bin = next_bin;
+    }
+    else
+    {
+      bin = bin->next;
+    }
+  }
+}
+
+  
 void my_exit()
 {
@@ -351 +394 @@
       }
 #endif
+      omtMergeStickyBins(cells, n_cells);
       while (i< n_cells)
       {
@@ -357 +401 @@
       }
       omFreeKeptAddr();
+      omtMergeStickyBins(cells, -1);
       omPrintStats(stdout);
       omPrintInfo(stdout);