S_new_SV: args unused, static inline & defined, rename with Perl_ prefix

When sv_inline.h was created in
75acd14
and a number of things moved into it, the S_new_SV debugging function should
have been made PERL_STATIC_INLINE and given the Perl_ prefix. This commit
now does those things. It also marks the arguments to Perl_new_SV as
PERL_UNUSED_ARG, reducing warnings on some builds.

Additionally, now that we can use inline functions, the new_SV() macro is
now just a call to this inline function, rather than being that only on
DEBUG_LEAKING_SCALARS builds and a multi-line macro the rest of the time.

Author: richardleach

embed.fnc

@@ -5731,6 +5731,9 @@ S	|void	|glob_assign_glob					\
 				|const int dtype
 S	|bool	|glob_2number	|NN GV * const gv
 Cp	|SV *	|more_sv
+Cp	|SV *	|new_sv 	|NN const char *file			\
+				|int line				\
+				|NN const char *func
 S	|void	|not_a_number	|NN SV * const sv
 S	|void	|not_incrementable					\
 				|NN SV * const sv

embed.h

@@ -2063,6 +2063,7 @@
 # endif /* defined(PERL_IN_REGEX_ENGINE) */
 # if defined(PERL_IN_SV_C)
 #   define more_sv()                            Perl_more_sv(aTHX)
+#   define new_sv(a,b,c)                        Perl_new_sv(aTHX_ a,b,c)
 #   if defined(PERL_CORE)
 #     define F0convert                          S_F0convert
 #     define anonymise_cv_maybe(a,b)            S_anonymise_cv_maybe(aTHX_ a,b)

proto.h

@@ -68,13 +68,15 @@
 SV* Perl_more_sv(pTHX);
 
 /* new_SV(): return a new, empty SV head */
-
-#ifdef DEBUG_LEAKING_SCALARS
-/* provide a real function for a debugger to play with */
-STATIC SV*
-S_new_SV(pTHX_ const char *file, int line, const char *func)
+PERL_STATIC_INLINE SV*
+Perl_new_SV(pTHX_ const char *file, int line, const char *func)
 {
     SV* sv;
+#ifndef DEBUG_LEAKING_SCALARS
+    PERL_UNUSED_ARG(file);
+    PERL_UNUSED_ARG(line);
+    PERL_UNUSED_ARG(func);
+#endif
 
     if (PL_sv_root)
         uproot_SV(sv);
@@ -83,6 +85,7 @@ S_new_SV(pTHX_ const char *file, int line, const char *func)
     SvANY(sv) = 0;
     SvREFCNT(sv) = 1;
     SvFLAGS(sv) = 0;
+#ifdef DEBUG_LEAKING_SCALARS
     sv->sv_debug_optype = PL_op ? PL_op->op_type : 0;
     sv->sv_debug_line = (U16) (PL_parser && PL_parser->copline != NOLINE
                 ? PL_parser->copline
@@ -99,25 +102,10 @@ S_new_SV(pTHX_ const char *file, int line, const char *func)
     MEM_LOG_NEW_SV(sv, file, line, func);
     DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%" UVxf ": (%05ld) new_SV (from %s:%d [%s])\n",
             PTR2UV(sv), (long)sv->sv_debug_serial, file, line, func));
-
+#endif
     return sv;
 }
-#  define new_SV(p) (p)=S_new_SV(aTHX_ __FILE__, __LINE__, FUNCTION__)
-
-#else
-#  define new_SV(p) \
-    STMT_START {                                       \
-        if (PL_sv_root)                                        \
-            uproot_SV(p);                              \
-        else                                           \
-            (p) = Perl_more_sv(aTHX);                     \
-        SvANY(p) = 0;                                  \
-        SvREFCNT(p) = 1;                               \
-        SvFLAGS(p) = 0;                                        \
-        MEM_LOG_NEW_SV(p, __FILE__, __LINE__, FUNCTION__);  \
-    } STMT_END
-#endif
-
+#  define new_SV(p) (p)=Perl_new_SV(aTHX_ __FILE__, __LINE__, FUNCTION__)
 
 typedef struct xpvhv_with_aux XPVHV_WITH_AUX;