#define MAXO 348
+
+START_EXTERN_C
+
#ifndef DOINIT
EXT char *PL_op_name[];
#else
"anonymous subroutine",
"subroutine prototype",
"reference constructor",
- "scalar ref constructor",
+ "single ref constructor",
"reference-type operator",
"bless",
"backticks",
};
#endif
-#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);
-
-#include "pp_proto.h"
+END_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,
#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 */
0x00000044, /* threadsv */
};
#endif
+
+END_EXTERN_C