diff --git a/embed.fnc b/embed.fnc index 2a74e27cf2..cb8893358b 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2358,7 +2358,7 @@ ARdp |OP * |newSVREF |NN OP *o Adp |SV * |newSVrv |NN SV * const rv \ |NULLOK const char * const classname ARdmp |SV * |newSVsv |NULLOK SV * const old -ARdp |SV * |newSVsv_flags |NULLOK SV * const old \ +ARdip |SV * |newSVsv_flags |NULLOK SV * const old \ |I32 flags ARdp |SV * |newSVsv_flags_NN \ |NN SV * const old \ diff --git a/proto.h b/proto.h index 4312421404..64d50774ad 100644 --- a/proto.h +++ b/proto.h @@ -3121,10 +3121,6 @@ Perl_newSVsv(pTHX_ SV * const old) __attribute__warn_unused_result__; */ PERL_CALLCONV SV * -Perl_newSVsv_flags(pTHX_ SV * const old, I32 flags) - __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT_NEWSVSV_FLAGS - Perl_newSVsv_flags_NN(pTHX_ SV * const old, I32 flags) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_NEWSVSV_FLAGS_NN \ @@ -10025,6 +10021,11 @@ Perl_newSV_type_mortal(pTHX_ const svtype type) __attribute__always_inline__; # define PERL_ARGS_ASSERT_NEWSV_TYPE_MORTAL +PERL_STATIC_INLINE SV * +Perl_newSVsv_flags(pTHX_ SV * const old, I32 flags) + __attribute__warn_unused_result__; +# define PERL_ARGS_ASSERT_NEWSVSV_FLAGS + PERL_STATIC_INLINE SV * Perl_new_sv(pTHX_ const char *file, int line, const char *func); # define PERL_ARGS_ASSERT_NEW_SV \ diff --git a/sv.c b/sv.c index 5408c5e9ae..639546a64f 100644 --- a/sv.c +++ b/sv.c @@ -10614,30 +10614,6 @@ Perl_newRV(pTHX_ SV *const sv) return newRV_noinc(SvREFCNT_inc_simple_NN(sv)); } -/* -=for apidoc newSVsv -=for apidoc_item newSVsv_flags -=for apidoc_item newSVsv_nomg - -These create a new SV which is an exact duplicate of the original SV -(using C.) - -They differ only in that C performs 'get' magic; C skips -any magic; and C allows you to explicitly set a C -parameter. - -=cut -*/ - -SV * -Perl_newSVsv_flags(pTHX_ SV *const old, I32 flags) -{ - if (!old) - return NULL; - - return newSVsv_flags_NN(old, flags); -} - /* =for apidoc sv_reset diff --git a/sv_inline.h b/sv_inline.h index b17d1c91b4..df002df888 100644 --- a/sv_inline.h +++ b/sv_inline.h @@ -1005,5 +1005,30 @@ Perl_sv_setpv_freshbuf(pTHX_ SV *const sv) return SvPVX(sv); } +/* +=for apidoc newSVsv +=for apidoc_item newSVsv_flags +=for apidoc_item newSVsv_nomg + +These create a new SV which is an exact duplicate of the original SV +(using C.) + +They differ only in that C performs 'get' magic; C skips +any magic; and C allows you to explicitly set a C +parameter. + +=cut +*/ + +PERL_STATIC_INLINE SV * +Perl_newSVsv_flags(pTHX_ SV *const old, I32 flags) +{ + if (!old) + return NULL; + + return newSVsv_flags_NN(old, flags); +} + +/* * ex: set ts=8 sts=4 sw=4 et: */