[DBGHELP]

[reactos.git] / reactos / dll / win32 / dbghelp / storage.c

diff --git a/reactos/dll/win32/dbghelp/storage.c b/reactos/dll/win32/dbghelp/storage.c
index baca053..c7f06cc 100644 (file)
--- a/reactos/dll/win32/dbghelp/storage.c
+++ b/reactos/dll/win32/dbghelp/storage.c
@@ -34,14 +34,16 @@ WINE_DEFAULT_DEBUG_CHANNEL(dbghelp);
 
 struct pool_arena
 {
-    struct pool_arena*  next;
-    char*               current;
+    struct list entry;
+    char       *current;
+    char       *end;
 };
 
-void pool_init(struct pool* a, unsigned arena_size)
+void pool_init(struct pool* a, size_t arena_size)
 {
+    list_init( &a->arena_list );
+    list_init( &a->arena_full );
     a->arena_size = arena_size;
-    a->first = NULL;
 }
 
 void pool_destroy(struct pool* pool)
@@ -50,58 +52,73 @@ void pool_destroy(struct pool* pool)
     struct pool_arena*  next;
 
 #ifdef USE_STATS
-    unsigned    alloc, used, num;
-    
+    size_t alloc, used, num;
+
     alloc = used = num = 0;
-    arena = pool->first;
-    while (arena)
+    LIST_FOR_EACH_ENTRY( arena, &pool->arena_list, struct pool_arena, entry )
+    {
+        alloc += arena->end - (char *)arena;
+        used += arena->current - (char*)arena;
+        num++;
+    }
+    LIST_FOR_EACH_ENTRY( arena, &pool->arena_full, struct pool_arena, entry )
     {
-        alloc += pool->arena_size;
+        alloc += arena->end - (char *)arena;
         used += arena->current - (char*)arena;
         num++;
-        arena = arena->next;
     }
     if (alloc == 0) alloc = 1;      /* avoid division by zero */
-    FIXME("STATS: pool %p has allocated %u kbytes, used %u kbytes in %u arenas,\n"
-          "\t\t\t\tnon-allocation ratio: %.2f%%\n",
-          pool, alloc >> 10, used >> 10, num, 100.0 - (float)used / (float)alloc * 100.0);
+    FIXME("STATS: pool %p has allocated %u kbytes, used %u kbytes in %u arenas, non-allocation ratio: %.2f%%\n",
+          pool, (unsigned)(alloc >> 10), (unsigned)(used >> 10), (unsigned)num,
+          100.0 - (float)used / (float)alloc * 100.0);
 #endif
 
-    arena = pool->first;
-    while (arena)
+    LIST_FOR_EACH_ENTRY_SAFE( arena, next, &pool->arena_list, struct pool_arena, entry )
     {
-        next = arena->next;
+        list_remove( &arena->entry );
+        HeapFree(GetProcessHeap(), 0, arena);
+    }
+    LIST_FOR_EACH_ENTRY_SAFE( arena, next, &pool->arena_full, struct pool_arena, entry )
+    {
+        list_remove( &arena->entry );
         HeapFree(GetProcessHeap(), 0, arena);
-        arena = next;
     }
-    pool_init(pool, 0);
 }
 
-void* pool_alloc(struct pool* pool, unsigned len)
+void* pool_alloc(struct pool* pool, size_t len)
 {
     struct pool_arena*  arena;
     void*               ret;
+    size_t size;
 
     len = (len + 3) & ~3; /* round up size on DWORD boundary */
-    assert(sizeof(struct pool_arena) + len <= pool->arena_size && len);
 
-    for (arena = pool->first; arena; arena = arena->next)
+    LIST_FOR_EACH_ENTRY( arena, &pool->arena_list, struct pool_arena, entry )
     {
-        if ((char*)arena + pool->arena_size - arena->current >= len)
+        if (arena->end - arena->current >= len)
         {
             ret = arena->current;
             arena->current += len;
+            if (arena->current + 16 >= arena->end)
+            {
+                list_remove( &arena->entry );
+                list_add_tail( &pool->arena_full, &arena->entry );
+            }
             return ret;
         }
     }
 
-    arena = HeapAlloc(GetProcessHeap(), 0, pool->arena_size);
-    if (!arena) {ERR("OOM\n");return NULL;}
+    size = max( pool->arena_size, len );
+    arena = HeapAlloc(GetProcessHeap(), 0, size + sizeof(struct pool_arena));
+    if (!arena) return NULL;
 
-    ret = (char*)arena + sizeof(*arena);
-    arena->next = pool->first;
-    pool->first = arena;
+    ret = arena + 1;
     arena->current = (char*)ret + len;
+    arena->end = (char*)ret + size;
+    if (arena->current + 16 >= arena->end)
+        list_add_tail( &pool->arena_full, &arena->entry );
+    else
+        list_add_head( &pool->arena_list, &arena->entry );
     return ret;
 }
 
@@ -298,7 +315,7 @@ unsigned sparse_array_length(const struct sparse_array* sa)
     return sa->elements.num_elts;
 }
 
-unsigned hash_table_hash(const char* name, unsigned num_buckets)
+static unsigned hash_table_hash(const char* name, unsigned num_buckets)
 {
     unsigned    hash = 0;
     while (*name)