summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-05 18:18:44 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-05 18:18:44 +0000
commit1d58305527a3ac3d82e30967f5b0fae28fee911d (patch)
tree31f8ad07775d8faa4fdf686d3222bc101503a41c /perl.h
parent51aa15f38ed061e162eb5fdd50db6c15d839cf32 (diff)
downloadperl-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 'perl.h')
-rw-r--r--perl.h12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl.h b/perl.h
index 7d591a909e..b1f0be0438 100644
--- a/perl.h
+++ b/perl.h
@@ -108,9 +108,9 @@ class CPerlObj;
#define CPERLarg CPerlObj *pPerl
#define CPERLarg_ CPERLarg,
#define _CPERLarg ,CPERLarg
-#define THIS this
-#define _THIS ,this
-#define THIS_ this,
+#define PERL_OBJECT_THIS this
+#define _PERL_OBJECT_THIS ,this
+#define PERL_OBJECT_THIS_ this,
#define CALLRUNOPS (this->*runops)
#else /* !PERL_OBJECT */
@@ -122,9 +122,9 @@ class CPerlObj;
#define CPERLarg void
#define CPERLarg_
#define _CPERLarg
-#define THIS
-#define _THIS
-#define THIS_
+#define PERL_OBJECT_THIS
+#define _PERL_OBJECT_THIS
+#define PERL_OBJECT_THIS_
#define CALLRUNOPS runops
#endif /* PERL_OBJECT */