From acfe0abcedaf592fb4b9cb69ce3468308ae99d91 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 31 Aug 2001 20:58:38 +0000 Subject: remove deprecated PERL_OBJECT cruft, it has long since stopped working in 5.7.x p4raw-id: //depot/perl@11803 --- globals.c | 68 --------------------------------------------------------------- 1 file changed, 68 deletions(-) (limited to 'globals.c') diff --git a/globals.c b/globals.c index 6368f28ecd..3c9c9407a7 100644 --- a/globals.c +++ b/globals.c @@ -2,74 +2,6 @@ #define PERL_IN_GLOBALS_C #include "perl.h" -#ifdef PERL_OBJECT - -#undef PERLVAR -#define PERLVAR(x, y) -#undef PERLVARA -#define PERLVARA(x, n, y) -#undef PERLVARI -#define PERLVARI(x, y, z) interp.x = z; -#undef PERLVARIC -#define PERLVARIC(x, y, z) interp.x = z; - -CPerlObj::CPerlObj(IPerlMem* ipM, IPerlMem* ipMS, IPerlMem* ipMP, - IPerlEnv* ipE, IPerlStdIO* ipStd, - IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, - IPerlProc* ipP) -{ - memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*)); - -#include "thrdvar.h" -#include "intrpvar.h" - - PL_Mem = ipM; - PL_MemShared = ipMS; - PL_MemParse = ipMP; - PL_Env = ipE; - PL_StdIO = ipStd; - PL_LIO = ipLIO; - PL_Dir = ipD; - PL_Sock = ipS; - PL_Proc = ipP; -} - -void* -CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl) -{ - if(pvtbl) - return pvtbl->pMalloc(pvtbl, nSize); -#ifndef __MINGW32__ - /* operator new is supposed to throw std::bad_alloc */ - return NULL; -#endif -} - -#ifndef __BORLANDC__ -void -CPerlObj::operator delete(void *pPerl, IPerlMem *pvtbl) -{ - if(pvtbl) - pvtbl->pFree(pvtbl, pPerl); -} -#endif - -#ifdef WIN32 /* XXX why are these needed? */ -bool -Perl_do_exec(char *cmd) -{ - return PerlProc_Cmd(cmd); -} - -int -CPerlObj::do_aspawn(void *vreally, void **vmark, void **vsp) -{ - return PerlProc_aspawn(vreally, vmark, vsp); -} -#endif /* WIN32 */ - -#endif /* PERL_OBJECT */ - int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) { -- cgit v1.2.1