globals.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
#include "INTERN.h"
#define PERL_IN_GLOBALS_C
#include "perl.h"
#ifdef PERL_OBJECT
#define PERLVAR(x, y)
#define PERLVARA(x, n, y)
{
#include "thrdvar.h"
#include "intrpvar.h"
PL_MemShared = ipMS;
PL_MemParse = ipMP;
}
void*
{
if(pvtbl)
#ifndef __MINGW32__
/* operator new is supposed to throw std::bad_alloc */
return NULL;
#endif
}
#ifndef __BORLANDC__
void
{
if(pvtbl)
}
#endif
#ifdef WIN32 /* XXX why are these needed? */
bool
Perl_do_exec(char *cmd)
{
return PerlProc_Cmd(cmd);
}
int
{
}
#endif /* WIN32 */
#endif /* PERL_OBJECT */
int
{
dTHX;
}
int
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
}
#include "perlapi.h" /* bring in PL_force_link_funcs */