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 (file)
--- 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 (file)
--- 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