libs/mpega/support.c

   1 #include <exec/memory.h>
   2 #include <exec/semaphores.h>
   3 #include <proto/exec.h>
   4 #include <proto/dos.h>
   5 #include <string.h>
   6
   7 #define PoolSize 131072
   8 static void *MemPool = NULL;
   9 static struct SignalSemaphore PoolSem;
  10
  11 ULONG InitSupport(void)
  12 {
  13     if ((MemPool = CreatePool(MEMF_PUBLIC, PoolSize, PoolSize)))
  14     {
  15         InitSemaphore(&PoolSem);
  16         return 1;
  17     }
  18
  19     return 0;
  20 }
  21
  22 void RemoveSupport(void)
  23 {
  24     if (MemPool)
  25     {
  26         DeletePool(MemPool);
  27         MemPool = NULL;
  28     }
  29 }
  30
  31 void *malloc(unsigned long size)
  32 {
  33     ULONG *MyMemory;
  34
  35     if (size == 0) return NULL;
  36     size += 8;
  37
  38     ObtainSemaphore(&PoolSem);
  39     MyMemory = (ULONG *)AllocPooled(MemPool, size);
  40     ReleaseSemaphore(&PoolSem);
  41
  42     if (MyMemory)
  43     {
  44         *MyMemory++ = size;
  45
  46         if ((ULONG)MyMemory & 7)
  47         {
  48             *MyMemory++ = 0;
  49         }
  50     }
  51
  52     return((void *)MyMemory);
  53 }
  54
  55 void *calloc(unsigned long nobj, unsigned long size)
  56 {
  57     unsigned long siz = size * nobj;
  58     void *ptr;
  59
  60     if ((ptr = malloc(siz)))
  61         bzero(ptr, siz);
  62
  63     return ptr;
  64 }
  65
  66 void free(void *ptr)
  67 {
  68     ULONG *MemPtr;
  69     ULONG Size;
  70
  71     if (ptr == NULL) return;
  72
  73     MemPtr = ptr;
  74     Size = *--MemPtr;
  75
  76     if (Size == 0)
  77     {
  78         Size = *--MemPtr;
  79     }
  80
  81     ObtainSemaphore(&PoolSem);
  82     FreePooled(MemPool, MemPtr, Size);
  83     ReleaseSemaphore(&PoolSem);
  84 }
  85