diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
| commit | acfe0abcedaf592fb4b9cb69ce3468308ae99d91 (patch) | |
| tree | a2ca08c77d2b63d1777d0b228ff53362895c1624 /NetWare/dl_netware.xs | |
| parent | 25f58aea15b072f74afcee1b9074d33e8e7348b5 (diff) | |
| download | perl-acfe0abcedaf592fb4b9cb69ce3468308ae99d91.tar.gz | |
remove deprecated PERL_OBJECT cruft, it has long since stopped
working in 5.7.x
p4raw-id: //depot/perl@11803
Diffstat (limited to 'NetWare/dl_netware.xs')
| -rw-r--r-- | NetWare/dl_netware.xs | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/NetWare/dl_netware.xs b/NetWare/dl_netware.xs index 2f466ca499..11f2444ab2 100644 --- a/NetWare/dl_netware.xs +++ b/NetWare/dl_netware.xs @@ -27,23 +27,19 @@ NetWare related modifications done on dl_win32.xs file created by Wei-Yuen Tan t //function pointer for UCSInitialize typedef void (*PFUCSINITIALIZE) (); -#ifdef PERL_OBJECT - -#endif /* PERL_OBJECT */ - #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 * @@ -130,8 +126,8 @@ dl_load_file(filename,flags=0) DLDEBUG(2,PerlIO_printf(Perl_debug_log," libref=%x\n", nlmHandle)); ST(0) = sv_newmortal() ; if (nlmHandle == NULL) - //SaveError(aTHXo_ "load_file:%s", - // OS_Error_String(aTHXo)) ; + //SaveError(aTHX_ "load_file:%s", + // OS_Error_String(aTHX)) ; ConsolePrintf("load_file error : %s\n", mod_name8); else sv_setiv( ST(0), (IV)nlmHandle); @@ -156,8 +152,8 @@ dl_find_symbol(libhandle, symbolname) 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)) ; ConsolePrintf("find_symbol error \n"); else sv_setiv( ST(0), (IV)RETVAL); @@ -178,7 +174,7 @@ dl_install_xsub(perl_name, symref, filename="$Package") 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))); |