Perl_newSVnv: simplify SV creation and SvNV_set

The function can be simplified by using the now-inlined newSV_type
function, directly using SvNV_set, and twiddling the required flags.

This cuts out any function call overhead, a switch statement leading
to a sv_upgrade(sv, SVt_NV) call, and a touch more bit-twiddling than
is necessary.

1 files changed, 5 insertions, 3 deletions

diff --git a/sv.c b/sv.c
index bcddac61c1..b32e1bf145 100644
--- a/sv.c
+++ b/sv.c
@@ -9666,10 +9666,12 @@ The reference count for the SV is set to 1.
 SV *
 Perl_newSVnv(pTHX_ const NV n)
 {
-    SV *sv;
+    SV *sv = newSV_type(SVt_NV);
+    (void)SvNOK_on(sv);
+
+    SvNV_set(sv, n);
+    SvTAINT(sv);
 
-    new_SV(sv);
-    sv_setnv(sv,n);
     return sv;
 }