odr/odr_mem.c

   1 /*
   2  * Copyright (C) 1994, Index Data I/S
   3  * All rights reserved.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: odr_mem.c,v $
   7  * Revision 1.2  1995-03-17 10:17:52  quinn
   8  * Added memory management.
   9  *
  10  * Revision 1.1  1995/03/14  10:27:40  quinn
  11  * Modified makefile to use common lib
  12  * Beginning to add memory management to odr
  13  *
  14  */
  15
  16 #include <stdlib.h>
  17 #include <odr.h>
  18
  19 #define ODR_MEM_CHUNK (10*1024)
  20
  21 typedef struct odr_memblock
  22 {
  23     char *buf;
  24     int size;
  25     int top;
  26     struct odr_memblock *next;
  27 } odr_memblock;
  28
  29 static odr_memblock *freelist = 0;
  30
  31 static void free_block(odr_memblock *p)
  32 {
  33     p->next = freelist;
  34     freelist = p;
  35 }
  36
  37 static odr_memblock *get_block(int size)
  38 {
  39     odr_memblock *r, *l;
  40
  41     for (r = freelist, l = 0; r; l = r, r = r->next)
  42         if (r->size >= size)
  43             break;
  44     if (r)
  45         if (l)
  46             l->next = r->next;
  47         else
  48             freelist = r->next;
  49     else
  50     {
  51         int get = ODR_MEM_CHUNK;
  52
  53         if (get < size)
  54             get = size;
  55         if (!(r = malloc(sizeof(*r))))
  56             return 0;
  57         if (!(r->buf = malloc(r->size = get)))
  58             return 0;
  59     }
  60     r->top = 0;
  61     return r;
  62 }
  63
  64 void odr_release_mem(odr_memblock *p)
  65 {
  66     odr_memblock *t;
  67
  68     while (p)
  69     {
  70         t = p;
  71         p = p->next;
  72         free_block(t);
  73     }
  74 }
  75
  76 void *odr_malloc(ODR o, int size)
  77 {
  78     struct odr_memblock *p = o->mem;
  79     char *r;
  80
  81     if (!p || p->size - p->top < size)
  82         if (!(p = get_block(size)))
  83         {
  84             o->error = OMEMORY;
  85             return 0;
  86         }
  87         else
  88         {
  89             p->next = o->mem;
  90             o->mem = p;
  91         }
  92     r = p->buf + p->top;
  93     p->top += (size + (sizeof(long) - 1)) & ~(sizeof(long) - 1);
  94     return r;
  95 }