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 --- perl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 2006d90edb..a72264c7f1 100644 --- a/perl.c +++ b/perl.c @@ -386,7 +386,7 @@ perl_destruct(register PerlInterpreter *sv_interp) /* call exit list functions */ while (exitlistlen-- > 0) - exitlist[exitlistlen].fn(THIS_ exitlist[exitlistlen].ptr); + exitlist[exitlistlen].fn(PERL_OBJECT_THIS_ exitlist[exitlistlen].ptr); Safefree(exitlist); @@ -944,7 +944,7 @@ print \" \\@INC:\\n @INC\\n\";"); boot_core_UNIVERSAL(); if (xsinit) - (*xsinit)(THIS); /* in case linked C routines want magical variables */ + (*xsinit)(PERL_OBJECT_THIS); /* in case linked C routines want magical variables */ #if defined(VMS) || defined(WIN32) || defined(DJGPP) init_os_extras(); #endif -- cgit v1.2.1