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

diff --git a/embed.pl b/embed.pl
index a36ef78..c8ea257 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -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 b8bfb2c..14d9ef0 100644 (file)
--- 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

diff --git a/objXSUB.h b/objXSUB.h
index d3ca527..3a8e3d4 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -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)

diff --git a/perlapi.c b/perlapi.c
index a04ab22..5cb3c44 100644 (file)
--- a/perlapi.c
+++ b/perlapi.c
@@ -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)