diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-05 18:18:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-05 18:18:44 +0000 |
| commit | 1d58305527a3ac3d82e30967f5b0fae28fee911d (patch) | |
| tree | 31f8ad07775d8faa4fdf686d3222bc101503a41c /win32/dl_win32.xs | |
| parent | 51aa15f38ed061e162eb5fdd50db6c15d839cf32 (diff) | |
| download | perl-1d58305527a3ac3d82e30967f5b0fae28fee911d.tar.gz | |
[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
Diffstat (limited to 'win32/dl_win32.xs')
| -rw-r--r-- | win32/dl_win32.xs | 8 |
1 files changed, 4 insertions, 4 deletions
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); |