From: Simon Cozens <simon@netthink.co.uk>
Date: Sun, 3 Jun 2001 13:51:46 +0000 (+0100)
Subject: APIfy op_clear
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1cadc447bef52741928814e16ae3e1f6e585d954;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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)