From 0b754184eac744bd93c1b9c338cbbfbc82fb7bd4 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 24 Nov 2011 01:18:46 -0800 Subject: [PATCH] =?utf8?q?=E2=80=98Inline=E2=80=99=20S=5Fsv=5Funglob?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit S_sv_unglob is only called in one place, so inline it (but cheat, to preserve blame history). --- embed.fnc | 2 +- proto.h | 2 +- sv.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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; -- 2.7.4