From 1d58305527a3ac3d82e30967f5b0fae28fee911d Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 5 Jun 1998 18:18:44 +0000 Subject: [win32] add AS patch#26 (rename THIS to PERL_OBJEC_THIS to avoid clash with the xsubpp-generated symbol) p4raw-id: //depot/win32/perl@1075 --- win32/dl_win32.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'win32') diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs index b9d4c14bd3..d72173129e 100644 --- a/win32/dl_win32.xs +++ b/win32/dl_win32.xs @@ -38,7 +38,7 @@ calls. static void dl_private_init(CPERLarg) { - (void)dl_generic_private_init(THIS); + (void)dl_generic_private_init(PERL_OBJECT_THIS); } /* @@ -80,7 +80,7 @@ dl_static_linked(char *filename) MODULE = DynaLoader PACKAGE = DynaLoader BOOT: - (void)dl_private_init(THIS); + (void)dl_private_init(PERL_OBJECT_THIS); void * dl_load_file(filename,flags=0) @@ -96,7 +96,7 @@ dl_load_file(filename,flags=0) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError(THIS_ "%d",GetLastError()) ; + SaveError(PERL_OBJECT_THIS_ "%d",GetLastError()) ; else sv_setiv( ST(0), (IV)RETVAL); @@ -112,7 +112,7 @@ dl_find_symbol(libhandle, symbolname) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," symbolref = %x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError(THIS_ "%d",GetLastError()) ; + SaveError(PERL_OBJECT_THIS_ "%d",GetLastError()) ; else sv_setiv( ST(0), (IV)RETVAL); -- cgit v1.2.1