Change 11820 by gsar@latte-gsar on 2001/09/02 00:56:44
some remnants of change#11803
Affected files ...
... //depot/perl/ext/ByteLoader/byterun.h#19 edit
... //depot/perl/perl.h#388 edit
Differences ...
==== //depot/perl/ext/ByteLoader/byterun.h#19 (text+w) ====
Index: perl/ext/ByteLoader/byterun.h
--- perl/ext/ByteLoader/byterun.h.~1~ Sat Sep 1 19:00:05 2001
+++ perl/ext/ByteLoader/byterun.h Sat Sep 1 19:00:05 2001
@@ -25,7 +25,7 @@
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 */
==== //depot/perl/perl.h#388 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Sat Sep 1 19:00:05 2001
+++ perl/perl.h Sat Sep 1 19:00:05 2001
@@ -132,7 +132,8 @@
# 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
End of Patch.
