Browse Source

* fix performance regression in binary-trees benchmark

git-svn-id: trunk@7207 -
micha 18 years ago
parent
commit
63c49a1555
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/heaph.inc

+ 1 - 1
rtl/inc/heaph.inc

@@ -62,7 +62,7 @@ procedure SetMemoryMutexManager(var MutexMgr: TMemoryMutexManager);
 
 
 { Variables }
 { Variables }
 const
 const
-  MaxKeptOSChunks: DWord = 3; { if more than MaxKeptOSChunks are free, the heap manager will release
+  MaxKeptOSChunks: DWord = 4; { if more than MaxKeptOSChunks are free, the heap manager will release
                               chunks back to the OS }
                               chunks back to the OS }
   growheapsizesmall : ptrint=32*1024; { fixed-size small blocks will grow with 32k }
   growheapsizesmall : ptrint=32*1024; { fixed-size small blocks will grow with 32k }
   growheapsize1 : ptrint=256*1024;  { < 256k will grow with 256k }
   growheapsize1 : ptrint=256*1024;  { < 256k will grow with 256k }