From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 2 Sep 2001 00:56:44 +0000 (+0000)
Subject: some remnants of change#11803
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4f7f2637c6361a6440f7b9342bbb77ec1902302;p=p5sagit%2Fp5-mst-13.2.git

some remnants of change#11803

p4raw-link: @11803 on //depot/perl: acfe0abcedaf592fb4b9cb69ce3468308ae99d91

p4raw-id: //depot/perl@11820
---

diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h
index f074f2d..205c88b 100644
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@ -25,7 +25,7 @@ struct byteloader_state {
 
 int bl_getc(struct byteloader_fdata *);
 int bl_read(struct byteloader_fdata *, char *, size_t, size_t);
-extern void byterun(pTHXo_ struct byteloader_state *);
+extern void byterun(pTHX_ struct byteloader_state *);
 
 enum {
     INSN_RET,			/* 0 */
diff --git a/perl.h b/perl.h
index 94eb55a..7009f16 100644
--- a/perl.h
+++ b/perl.h
@@ -132,7 +132,8 @@ struct perl_thread;
 #  define pTHX_4	4
 #endif
 
-#ifndef pTHXo
+/* these are only defined for compatibility; should not be used internally */
+#if !defined(pTHXo) && !defined(PERL_CORE)
 #  define pTHXo		pTHX
 #  define pTHXo_	pTHX_
 #  define aTHXo		aTHX