diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-06-03 14:51:46 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 16:04:26 +0000 |
| commit | 1cadc447bef52741928814e16ae3e1f6e585d954 (patch) | |
| tree | bf8eddfbad783807ef863cfd7e1d14f40daabfb4 | |
| parent | 6d79cad27a2b87dccc1697da50ccc1547477bc4c (diff) | |
| download | perl-1cadc447bef52741928814e16ae3e1f6e585d954.tar.gz | |
APIfy op_clear
Message-ID: <20010603135146.A9984@deep-dark-truthful-mirror.pmb.ox.ac.uk>
(despite the subject line, op_null is APIfied by the patch)
p4raw-id: //depot/perl@10400
| -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) |