src/mem.c

   1 /*
   2 ** mem.c
   3 ** TecCGraf - PUC-Rio
   4 */
   5
   6 char *rcs_mem = "$Id: mem.c,v 1.13 1996/05/24 14:31:10 roberto Exp $";
   7
   8 #include <stdlib.h>
   9
  10 #include "mem.h"
  11 #include "lua.h"
  12
  13
  14 void luaI_free (void *block)
  15 {
  16   if (block)
  17   {
  18     *((int *)block) = -1;  /* to catch errors */
  19     free(block);
  20   }
  21 }
  22
  23
  24 void *luaI_realloc (void *oldblock, unsigned long size)
  25 {
  26   void *block;
  27   size_t s = (size_t)size;
  28   if (s != size)
  29     lua_error("Allocation Error: Block too big");
  30   block = oldblock ? realloc(oldblock, s) : malloc(s);
  31   if (block == NULL)
  32     lua_error(memEM);
  33   return block;
  34 }
  35
  36
  37 int luaI_growvector (void **block, unsigned long nelems, int size,
  38                        char *errormsg, unsigned long limit)
  39 {
  40   if (nelems >= limit)
  41     lua_error(errormsg);
  42   nelems = (nelems == 0) ? 20 : nelems*2;
  43   if (nelems > limit)
  44     nelems = limit;
  45   *block = luaI_realloc(*block, nelems*size);
  46   return (int)nelems;
  47 }
  48
  49
  50 void* luaI_buffer (unsigned long size)
  51 {
  52   static unsigned long buffsize = 0;
  53   static char* buffer = NULL;
  54   if (size > buffsize)
  55     buffer = luaI_realloc(buffer, buffsize=size);
  56   return buffer;
  57 }
  58