‘Inline’ S_sv_unglob

S_sv_unglob is only called in one place, so inline it (but cheat, to preserve blame history).
rurban · Nov 24, 2011 · 0b75418 · 0b75418
1 parent 8d5a2b7
commit 0b75418
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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;