#include "perl.h"
#include "win32.h"
-#ifdef PERL_OBJECT
-#define NO_XSLOCKS
-#endif /* PERL_OBJECT */
-
#include "XSUB.h"
static SV *error_sv;
static char *
-OS_Error_String(pTHXo)
+OS_Error_String(pTHX)
{
DWORD err = GetLastError();
STRLEN len;
#include "dlutils.c" /* SaveError() etc */
static void
-dl_private_init(pTHXo)
+dl_private_init(pTHX)
{
- (void)dl_generic_private_init(aTHXo);
+ (void)dl_generic_private_init(aTHX);
}
/*
MODULE = DynaLoader PACKAGE = DynaLoader
BOOT:
- (void)dl_private_init(aTHXo);
+ (void)dl_private_init(aTHX);
void *
dl_load_file(filename,flags=0)
DLDEBUG(2,PerlIO_printf(Perl_debug_log," libref=%x\n", RETVAL));
ST(0) = sv_newmortal() ;
if (RETVAL == NULL)
- SaveError(aTHXo_ "load_file:%s",
- OS_Error_String(aTHXo)) ;
+ SaveError(aTHX_ "load_file:%s",
+ OS_Error_String(aTHX)) ;
else
sv_setiv( ST(0), (IV)RETVAL);
}
DLDEBUG(2,PerlIO_printf(Perl_debug_log," symbolref = %x\n", RETVAL));
ST(0) = sv_newmortal() ;
if (RETVAL == NULL)
- SaveError(aTHXo_ "find_symbol:%s",
- OS_Error_String(aTHXo)) ;
+ SaveError(aTHX_ "find_symbol:%s",
+ OS_Error_String(aTHX)) ;
else
sv_setiv( ST(0), (IV)RETVAL);
DLDEBUG(2,PerlIO_printf(Perl_debug_log,"dl_install_xsub(name=%s, symref=%x)\n",
perl_name, symref));
ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
- (void(*)(pTHXo_ CV *))symref,
+ (void(*)(pTHX_ CV *))symref,
filename)));