test/exec/pool.c

   1 #include <aros/debug.h>
   2 #include <proto/exec.h>
   3
   4 #include <stdio.h>
   5
   6 /*
   7  * Re-define output to bug in order to get exact measurements.
   8  * Console's history consumes memory, so this may look like a
   9  * memory leak.
  10  */
  11 #define output printf
  12
  13 int main(void)
  14 {
  15     APTR chunks[200];
  16     APTR pool;
  17     int i;
  18
  19     /* We Forbid() in order to see how our allocations influence free memory size */
  20     Forbid();
  21
  22     output("Available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  23
  24     pool = CreatePool(MEMF_ANY, 4096, 4096);
  25     output("Created pool 0x%p, available memory: %lu bytes\n", pool, (unsigned long)AvailMem(MEMF_ANY));
  26
  27     if (!pool)
  28     {
  29         Permit();
  30         output("Failed to create pool!\n");
  31         return 1;
  32     }
  33
  34     output("Available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  35
  36     output("Allocating 200 small chunks...\n");
  37     for (i = 0; i < 200; i++)
  38     {
  39         chunks[i] = AllocPooled(pool, 50);
  40         if (!chunks[i])
  41         {
  42             output("Failed to allocate chunk %u!\n", i);
  43             break;
  44         }
  45     }
  46     output("Done, available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  47
  48     output("Now freeing them...\n");
  49     for (i = 0; i < 200; i++)
  50     {
  51         if (!chunks[i])
  52             break;
  53         FreePooled(pool, chunks[i], 50);
  54     }
  55     output("Done, available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  56
  57     output("Now allocating the whole puddle...\n");
  58     chunks[0] = AllocPooled(pool, 4096);
  59     output("Allocated at 0x%p, available memory: %lu bytes\n", chunks[0], (unsigned long)AvailMem(MEMF_ANY));
  60
  61     output("Now allocating a BIG chunk...\n");
  62     chunks[1] = AllocPooled(pool, 16384);
  63     output("Allocated at 0x%p, available memory: %lu bytes\n", chunks[1], (unsigned long)AvailMem(MEMF_ANY));
  64
  65     output("Freeing both chunks...\n");
  66     FreePooled(pool, chunks[0], 4096);
  67     FreePooled(pool, chunks[1], 16384);
  68
  69     output("Done, available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  70
  71     output("Now attempting to re-allocate big chunk...\n");
  72     chunks[1] = AllocPooled(pool, 16384);
  73     output("Allocated at 0x%p, available memory: %lu bytes\n", chunks[1], (unsigned long)AvailMem(MEMF_ANY));
  74
  75     output("Freeing the whole pool...\n");
  76     DeletePool(pool);
  77     output("Done, available memory: %lu bytes\n", (unsigned long)AvailMem(MEMF_ANY));
  78
  79     Permit();
  80     return 0;
  81 }