diff options
| -rwxr-xr-x | embed.pl | 2 | ||||
| -rw-r--r-- | global.sym | 1 | ||||
| -rw-r--r-- | objXSUB.h | 12 | ||||
| -rw-r--r-- | perlapi.c | 15 |
4 files changed, 27 insertions, 3 deletions
@@ -1673,7 +1673,7 @@ p |I32 |keyword |char* d|I32 len Ap |void |leave_scope |I32 base p |void |lex_end p |void |lex_start |SV* line -p |void |op_null |OP* o +Ap |void |op_null |OP* o p |void |op_clear |OP* o p |OP* |linklist |OP* o p |OP* |list |OP* o diff --git a/global.sym b/global.sym index b8bfb2c1ad..14d9ef0376 100644 --- a/global.sym +++ b/global.sym @@ -207,6 +207,7 @@ Perl_is_utf8_punct Perl_is_utf8_xdigit Perl_is_utf8_mark Perl_leave_scope +Perl_op_null Perl_load_module Perl_vload_module Perl_looks_like_number @@ -795,6 +795,10 @@ #define Perl_leave_scope pPerl->Perl_leave_scope #undef leave_scope #define leave_scope Perl_leave_scope +#undef Perl_op_null +#define Perl_op_null pPerl->Perl_op_null +#undef op_null +#define op_null Perl_op_null #undef Perl_load_module #define Perl_load_module pPerl->Perl_load_module #undef load_module @@ -2359,15 +2363,19 @@ # endif #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) +# ifdef DEBUGGING +# endif #endif #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +# ifdef DEBUGGING +# endif #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -# if defined(DEBUGGING) +# ifdef DEBUGGING # endif # if !defined(NV_PRESERVES_UV) # endif @@ -2375,6 +2383,8 @@ # endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +# if defined(DEBUGGING) +# endif #if 0 #endif # if defined(CRIPPLED_CC) @@ -1475,6 +1475,13 @@ Perl_leave_scope(pTHXo_ I32 base) ((CPerlObj*)pPerl)->Perl_leave_scope(base); } +#undef Perl_op_null +void +Perl_op_null(pTHXo_ OP* o) +{ + ((CPerlObj*)pPerl)->Perl_op_null(o); +} + #undef Perl_load_module void Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...) @@ -4215,15 +4222,19 @@ Perl_sys_intern_init(pTHXo) # endif #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) +# ifdef DEBUGGING +# endif #endif #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +# ifdef DEBUGGING +# endif #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -# if defined(DEBUGGING) +# ifdef DEBUGGING # endif # if !defined(NV_PRESERVES_UV) # endif @@ -4231,6 +4242,8 @@ Perl_sys_intern_init(pTHXo) # endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +# if defined(DEBUGGING) +# endif #if 0 #endif # if defined(CRIPPLED_CC) |