tweak RefHash to make intent clearer (suggested by John Dlugosz)

[p5sagit/p5-mst-13.2.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index c4bd9ae..20ec044 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -357,6 +357,9 @@ typedef enum {
 
 #define MAXO 348
 
+
+START_EXTERN_C
+
 #ifndef DOINIT
 EXT char *PL_op_name[];
 #else
@@ -1067,13 +1070,15 @@ EXT char *PL_op_desc[] = {
 };
 #endif
 
+END_EXTERN_C
+
 #ifndef PERL_OBJECT
 START_EXTERN_C
 
 #undef PERL_CKDEF
 #undef PERL_PPDEF
 #define PERL_CKDEF(s) OP *s (pTHX_ OP *o);
-#define PERL_PPDEF(s) OP *s (pTHX_ ARGSproto);
+#define PERL_PPDEF(s) OP *s (pTHX);
 
 #include "pp_proto.h"
 
@@ -1081,10 +1086,12 @@ START_EXTERN_C
 END_EXTERN_C
 #endif /* PERL_OBJECT */
 
+START_EXTERN_C
+
 #ifndef DOINIT
-EXT OP * (CPERLscope(*PL_ppaddr)[])(ARGSproto);
+EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX);
 #else
-EXT OP * (CPERLscope(*PL_ppaddr)[])(ARGSproto) = {
+EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
        Perl_pp_null,
        Perl_pp_stub,
        Perl_pp_scalar,
@@ -1437,9 +1444,9 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(ARGSproto) = {
 #endif
 
 #ifndef DOINIT
-EXT OP * (CPERLscope(*PL_check)[]) (OP *op);
+EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op);
 #else
-EXT OP * (CPERLscope(*PL_check)[]) (OP *op) = {
+EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        Perl_ck_null,   /* null */
        Perl_ck_null,   /* stub */
        Perl_ck_fun,    /* scalar */
@@ -2145,3 +2152,5 @@ EXT U32 PL_opargs[] = {
        0x00000044,     /* threadsv */
 };
 #endif
+
+END_EXTERN_C