malloc/tst-obstack.c

   1 #include <obstack.h>
   2 #include <stdint.h>
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5
   6 #define obstack_chunk_alloc verbose_malloc
   7 #define obstack_chunk_free verbose_free
   8 #define ALIGN_BOUNDARY 64
   9 #define ALIGN_MASK (ALIGN_BOUNDARY - 1)
  10 #define OBJECT_SIZE 1000
  11
  12 static void *
  13 verbose_malloc (size_t size)
  14 {
  15   void *buf = malloc (size);
  16   printf ("malloc (%zu) => %p\n", size, buf);
  17   return buf;
  18 }
  19
  20 static void
  21 verbose_free (void *buf)
  22 {
  23   printf ("free (%p)\n", buf);
  24   free (buf);
  25 }
  26
  27 static int
  28 do_test (void)
  29 {
  30   int result = 0;
  31   int align = 2;
  32
  33   while (align <= 64)
  34     {
  35       struct obstack obs;
  36       int i;
  37       int align_mask = align - 1;
  38
  39       printf ("\n Alignment mask: %d\n", align_mask);
  40
  41       obstack_init (&obs);
  42       obstack_alignment_mask (&obs) = align_mask;
  43       /* finish an empty object to take alignment into account */
  44       obstack_finish (&obs);
  45
  46       /* let's allocate some objects and print their addresses */
  47       for (i = 15; i > 0; --i)
  48         {
  49           void *obj = obstack_alloc (&obs, OBJECT_SIZE);
  50
  51           printf ("obstack_alloc (%u) => %p \t%s\n", OBJECT_SIZE, obj,
  52                   ((uintptr_t) obj & align_mask) ? "(not aligned)" : "");
  53           result |= ((uintptr_t) obj & align_mask) != 0;
  54         }
  55
  56       /* clean up */
  57       obstack_free (&obs, 0);
  58
  59       align <<= 1;
  60     }
  61
  62   return result;
  63 }
  64
  65 #define TEST_FUNCTION do_test ()
  66 #include "../test-skeleton.c"