Change 34920 by [EMAIL PROTECTED] on 2008/11/26 16:24:07
listkids() can be static in op.c
Affected files ...
... //depot/perl/embed.fnc#635 edit
... //depot/perl/embed.h#772 edit
... //depot/perl/op.c#1028 edit
... //depot/perl/proto.h#969 edit
Differences ...
==== //depot/perl/embed.fnc#635 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#634~34919~ 2008-11-26 08:04:04.000000000 -0800
+++ perl/embed.fnc 2008-11-26 08:24:07.000000000 -0800
@@ -447,9 +447,10 @@
Ap |void |op_refcnt_unlock
#if defined(PERL_IN_OP_C)
s |OP* |linklist |NN OP *o
+s |OP* |listkids |NULLOK OP* o
#endif
+: This is used in S_doeval in pp_ctl.c
p |OP* |list |NULLOK OP* o
-p |OP* |listkids |NULLOK OP* o
Apd |void |load_module|U32 flags|NN SV* name|NULLOK SV* ver|...
Ap |void |vload_module|U32 flags|NN SV* name|NULLOK SV* ver|NULLOK
va_list* args
p |OP* |localize |NN OP *o|I32 lex
==== //depot/perl/embed.h#772 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#771~34919~ 2008-11-26 08:04:04.000000000 -0800
+++ perl/embed.h 2008-11-26 08:24:07.000000000 -0800
@@ -397,11 +397,11 @@
#if defined(PERL_IN_OP_C)
#ifdef PERL_CORE
#define linklist S_linklist
+#define listkids S_listkids
#endif
#endif
#ifdef PERL_CORE
#define list Perl_list
-#define listkids Perl_listkids
#endif
#define load_module Perl_load_module
#define vload_module Perl_vload_module
@@ -2722,11 +2722,11 @@
#if defined(PERL_IN_OP_C)
#ifdef PERL_CORE
#define linklist(a) S_linklist(aTHX_ a)
+#define listkids(a) S_listkids(aTHX_ a)
#endif
#endif
#ifdef PERL_CORE
#define list(a) Perl_list(aTHX_ a)
-#define listkids(a) Perl_listkids(aTHX_ a)
#endif
#define vload_module(a,b,c,d) Perl_vload_module(aTHX_ a,b,c,d)
#ifdef PERL_CORE
==== //depot/perl/op.c#1028 (text) ====
Index: perl/op.c
--- perl/op.c#1027~34919~ 2008-11-26 08:04:04.000000000 -0800
+++ perl/op.c 2008-11-26 08:24:07.000000000 -0800
@@ -1208,7 +1208,7 @@
}
OP *
-Perl_listkids(pTHX_ OP *o)
+S_listkids(pTHX_ OP *o)
{
if (o && o->op_flags & OPf_KIDS) {
OP *kid;
==== //depot/perl/proto.h#969 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#968~34919~ 2008-11-26 08:04:04.000000000 -0800
+++ perl/proto.h 2008-11-26 08:24:07.000000000 -0800
@@ -1452,9 +1452,9 @@
#define PERL_ARGS_ASSERT_LINKLIST \
assert(o)
+STATIC OP* S_listkids(pTHX_ OP* o);
#endif
PERL_CALLCONV OP* Perl_list(pTHX_ OP* o);
-PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o);
PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver,
...)
__attribute__nonnull__(pTHX_2);
#define PERL_ARGS_ASSERT_LOAD_MODULE \
End of Patch.
