2005-01-08 Miguel de Icaza <miguel@ximian.com>

[mono.git] / mono / metadata / mempool.c

diff --git a/mono/metadata/mempool.c b/mono/metadata/mempool.c
index 2347b45b661a81a657c544aff4b2ccd45f097e4e..0f0485a51f7004ac3cafde29505a9b62bdb64d8e 100644 (file)
--- a/mono/metadata/mempool.c
+++ b/mono/metadata/mempool.c
@@ -29,7 +29,11 @@ struct _MonoMemPool {
        MonoMemPool *next;
        gint rest;
        gpointer pos;
-       double pad; /* to assure proper alignment */
+       guint32 size;
+       union {
+               double pad; /* to assure proper alignment */
+               guint32 allocated;
+       } d;
 };
 
 /**
@@ -45,12 +49,13 @@ mono_mempool_new ()
        pool->next = NULL;
        pool->pos = (char *)pool + sizeof (MonoMemPool);
        pool->rest = MONO_MEMPOOL_PAGESIZE - sizeof (MonoMemPool);
+       pool->d.allocated = pool->size = MONO_MEMPOOL_PAGESIZE;
        return pool;
 }
 
 /**
  * mono_mempool_destroy:
- * @pool: the momory pool to destroy
+ * @pool: the memory pool to destroy
  *
  * Free all memory associated with this pool.
  */
@@ -67,6 +72,60 @@ mono_mempool_destroy (MonoMemPool *pool)
        }
 }
 
+/**
+ * mono_mempool_invalidate:
+ * @pool: the memory pool to invalidate
+ *
+ * Fill the memory associated with this pool to 0x2a (42). Useful for debugging.
+ */
+void
+mono_mempool_invalidate (MonoMemPool *pool)
+{
+       MonoMemPool *p, *n;
+
+       p = pool;
+       while (p) {
+               n = p->next;
+               memset (p, 42, p->size);
+               p = n;
+       }
+}
+
+void
+mono_mempool_empty (MonoMemPool *pool)
+{
+       pool->pos = (char *)pool + sizeof (MonoMemPool);
+       pool->rest = MONO_MEMPOOL_PAGESIZE - sizeof (MonoMemPool);
+}
+
+/**
+ * mono_mempool_stats:
+ * @pool: the momory pool we need stats for
+ *
+ * Print a few stats about the mempool
+ */
+void
+mono_mempool_stats (MonoMemPool *pool)
+{
+       MonoMemPool *p, *n;
+       int count = 0;
+       guint32 still_free = 0;
+
+       p = pool;
+       while (p) {
+               still_free += p->rest;
+               n = p->next;
+               p = n;
+               count++;
+       }
+       if (pool) {
+               g_print ("Mempool %p stats:\n", pool);
+               g_print ("Total mem allocated: %d\n", pool->d.allocated);
+               g_print ("Num chunks: %d\n", count);
+               g_print ("Free memory: %d\n", still_free);
+       }
+}
+
 /**
  * mono_mempool_alloc:
  * @pool: the momory pool to destroy
@@ -91,13 +150,17 @@ mono_mempool_alloc (MonoMemPool *pool, guint size)
                        MonoMemPool *np = g_malloc (sizeof (MonoMemPool) + size);
                        np->next = pool->next;
                        pool->next = np;
+                       np->size = sizeof (MonoMemPool) + size;
+                       pool->d.allocated += sizeof (MonoMemPool) + size;
                        return (char *)np + sizeof (MonoMemPool);
                } else {
                        MonoMemPool *np = g_malloc (MONO_MEMPOOL_PAGESIZE);
                        np->next = pool->next;
                        pool->next = np;
                        pool->pos = (char *)np + sizeof (MonoMemPool);
+                       np->size = MONO_MEMPOOL_PAGESIZE;
                        pool->rest = MONO_MEMPOOL_PAGESIZE - sizeof (MonoMemPool);
+                       pool->d.allocated += MONO_MEMPOOL_PAGESIZE;
                }
        }
 
@@ -121,3 +184,23 @@ mono_mempool_alloc0 (MonoMemPool *pool, guint size)
        return rval;
 }
 
+/**
+ * mono_mempool_contains_addr:
+ *
+ *  Determines whenever ADDR is inside the memory used by the mempool.
+ */
+gboolean
+mono_mempool_contains_addr (MonoMemPool *pool,
+                                                       gpointer addr)
+{
+       MonoMemPool *p;
+
+       p = pool;
+       while (p) {
+               if (addr > (gpointer)p && addr <= (gpointer)((guint8*)p + p->size))
+                       return TRUE;
+               p = p->next;
+       }
+
+       return FALSE;
+}