Permalink
Browse files

‘Inline’ S_sv_unglob

S_sv_unglob is only called in one place, so inline it (but cheat, to
preserve blame history).
  • Loading branch information...
1 parent 8d5a2b7 commit 0b754184eac744bd93c1b9c338cbbfbc82fb7bd4 Father Chrysostomos committed Nov 24, 2011
Showing with 3 additions and 3 deletions.
  1. +1 −1 embed.fnc
  2. +1 −1 proto.h
  3. +1 −1 sv.c
View
@@ -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
View
@@ -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)
View
2 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;

0 comments on commit 0b75418

Please sign in to comment.