diff options
Diffstat (limited to 'globals.c')
-rw-r--r-- | globals.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -35,13 +35,20 @@ CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, void* CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl) { - if(pvtbl != NULL) + if(pvtbl) return pvtbl->pMalloc(pvtbl, nSize); return NULL; } void +CPerlObj::operator delete(void *pPerl, IPerlMem *pvtbl) +{ + if(pvtbl) + pvtbl->pFree(pvtbl, pPerl); +} + +void CPerlObj::Init(void) { } |