Change 34938 by [EMAIL PROTECTED] on 2008/11/26 23:02:47
sv_add_arena() is now only called from sv.c, so it can be static.
Affected files ...
... //depot/perl/embed.fnc#648 edit
... //depot/perl/embed.h#785 edit
... //depot/perl/proto.h#982 edit
... //depot/perl/sv.c#1579 edit
Differences ...
==== //depot/perl/embed.fnc#648 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#647~34937~ 2008-11-26 14:44:03.000000000 -0800
+++ perl/embed.fnc 2008-11-26 15:02:47.000000000 -0800
@@ -881,7 +881,10 @@
Apd |char* |sv_pvutf8n |NN SV *sv|NN STRLEN *lp
Apd |char* |sv_pvbyten |NN SV *sv|NN STRLEN *lp
Apd |I32 |sv_true |NULLOK SV *const sv
-pd |void |sv_add_arena |NN char *const ptr|const U32 size|const U32
flags
+#if defined (PERL_IN_SV_C)
+sd |void |sv_add_arena |NN char *const ptr|const U32 size \
+ |const U32 flags
+#endif
Apd |int |sv_backoff |NN SV *const sv
Apd |SV* |sv_bless |NN SV *const sv|NN HV *const stash
Afpd |void |sv_catpvf |NN SV *const sv|NN const char *const pat|...
==== //depot/perl/embed.h#785 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#784~34937~ 2008-11-26 14:44:03.000000000 -0800
+++ perl/embed.h 2008-11-26 15:02:47.000000000 -0800
@@ -888,8 +888,10 @@
#define sv_pvutf8n Perl_sv_pvutf8n
#define sv_pvbyten Perl_sv_pvbyten
#define sv_true Perl_sv_true
+#if defined (PERL_IN_SV_C)
#ifdef PERL_CORE
-#define sv_add_arena Perl_sv_add_arena
+#define sv_add_arena S_sv_add_arena
+#endif
#endif
#define sv_backoff Perl_sv_backoff
#define sv_bless Perl_sv_bless
@@ -3233,8 +3235,10 @@
#define sv_pvutf8n(a,b) Perl_sv_pvutf8n(aTHX_ a,b)
#define sv_pvbyten(a,b) Perl_sv_pvbyten(aTHX_ a,b)
#define sv_true(a) Perl_sv_true(aTHX_ a)
+#if defined (PERL_IN_SV_C)
#ifdef PERL_CORE
-#define sv_add_arena(a,b,c) Perl_sv_add_arena(aTHX_ a,b,c)
+#define sv_add_arena(a,b,c) S_sv_add_arena(aTHX_ a,b,c)
+#endif
#endif
#define sv_backoff(a) Perl_sv_backoff(aTHX_ a)
#define sv_bless(a,b) Perl_sv_bless(aTHX_ a,b)
==== //depot/perl/proto.h#982 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#981~34937~ 2008-11-26 14:44:03.000000000 -0800
+++ perl/proto.h 2008-11-26 15:02:47.000000000 -0800
@@ -3083,11 +3083,13 @@
assert(sv); assert(lp)
PERL_CALLCONV I32 Perl_sv_true(pTHX_ SV *const sv);
-PERL_CALLCONV void Perl_sv_add_arena(pTHX_ char *const ptr, const U32
size, const U32 flags)
+#if defined (PERL_IN_SV_C)
+STATIC void S_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32
flags)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_SV_ADD_ARENA \
assert(ptr)
+#endif
PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV *const sv)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_SV_BACKOFF \
==== //depot/perl/sv.c#1579 (text) ====
Index: perl/sv.c
--- perl/sv.c#1578~34831~ 2008-11-14 04:37:01.000000000 -0800
+++ perl/sv.c 2008-11-26 15:02:47.000000000 -0800
@@ -380,8 +380,8 @@
=cut
*/
-void
-Perl_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32 flags)
+static void
+S_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32 flags)
{
dVAR;
SV *const sva = MUTABLE_SV(ptr);
End of Patch.
