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 /perlapi.c | |
| 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
Diffstat (limited to 'perlapi.c')
| -rw-r--r-- | perlapi.c | 15 |
1 files changed, 14 insertions, 1 deletions
@@ -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) |