//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 *
nlmHandle = FindNLMHandle(mod_name8);
}
}
- //use UCSExt encountered-
+ //use Perl2UCS or UCSExt encountered :
//initialize UCS, this has to be terminated when the script finishes execution
//Is the script intending to use UCS Extensions?
//This should be done once per script execution
- if (strcmp(mod_name,"Perl2UCS.nlp")==0)
+ if ((strcmp(mod_name,"Perl2UCS.nlm")==0) || (strcmp(mod_name,"UCSExt.nlm")==0))
{
unsigned int moduleHandle = 0;
moduleHandle = FindNLMHandle("UCSCORE.NLM");
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);
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);
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)));
char *
dl_error()
CODE:
- RETVAL = LastError ;
+ dMY_CXT;
+ RETVAL = dl_last_error ;
OUTPUT:
RETVAL