From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 24 Nov 2011 09:18:46 +0000 (-0800)
Subject: ‘Inline’ S_sv_unglob
X-Git-Tag: accepted/trunk/20130322.191538~1967
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0b754184eac744bd93c1b9c338cbbfbc82fb7bd4;p=platform%2Fupstream%2Fperl.git

‘Inline’ S_sv_unglob

S_sv_unglob is only called in one place, so inline it (but cheat, to
preserve blame history).
---

diff --git a/embed.fnc b/embed.fnc
index 3f93d6d..da62c5f 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1994,7 +1994,7 @@ pR	|SV *	|varname	|NULLOK const GV *const gv|const char gvtype \
 pX	|void	|sv_del_backref	|NN SV *const tsv|NN SV *const sv
 #if defined(PERL_IN_SV_C)
 nsR	|char *	|uiv_2buf	|NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob
-s	|void	|sv_unglob	|NN SV *const sv|U32 flags
+i	|void	|sv_unglob	|NN SV *const sv|U32 flags
 s	|void	|not_a_number	|NN SV *const sv
 s	|I32	|visit		|NN SVFUNC_t f|const U32 flags|const U32 mask
 #  ifdef DEBUGGING
diff --git a/proto.h b/proto.h
index 3d8f993..b9689e6 100644
--- a/proto.h
+++ b/proto.h
@@ -6732,7 +6732,7 @@ STATIC STRLEN	S_sv_pos_u2b_midway(const U8 *const start, const U8 *send, STRLEN
 #define PERL_ARGS_ASSERT_SV_POS_U2B_MIDWAY	\
 	assert(start); assert(send)
 
-STATIC void	S_sv_unglob(pTHX_ SV *const sv, U32 flags)
+PERL_STATIC_INLINE void	S_sv_unglob(pTHX_ SV *const sv, U32 flags)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_SV_UNGLOB	\
 	assert(sv)
diff --git a/sv.c b/sv.c
index 2582e5a..caf2100 100644
--- a/sv.c
+++ b/sv.c
@@ -9468,7 +9468,7 @@ Perl_sv_bless(pTHX_ SV *const sv, HV *const stash)
  * as it is after unglobbing it.
  */
 
-STATIC void
+PERL_STATIC_INLINE void
 S_sv_unglob(pTHX_ SV *const sv, U32 flags)
 {
     dVAR;