win32/ipmem.c

   1 /*
   2
   3         ipmem.c
   4         Interface for perl memory allocation
   5
   6 */
   7
   8 #include <ipmem.h>
   9
  10 class CPerlMem : public IPerlMem
  11 {
  12 public:
  13         CPerlMem() { pPerl = NULL; };
  14         virtual void* Malloc(size_t);
  15         virtual void* Realloc(void*, size_t);
  16         virtual void Free(void*);
  17
  18         inline void SetPerlObj(CPerlObj *p) { pPerl = p; };
  19 protected:
  20         CPerlObj *pPerl;
  21 };
  22
  23 void* CPerlMem::Malloc(size_t size)
  24 {
  25         return malloc(size);
  26 }
  27
  28 void* CPerlMem::Realloc(void* ptr, size_t size)
  29 {
  30         return realloc(ptr, size);
  31 }
  32
  33 void CPerlMem::Free(void* ptr)
  34 {
  35         free(ptr);
  36 }
  37
  38
  39