Make Perl_sv_mortalcopy a macro and rm from mathoms

93f23f0 made the Perl_ name generation
automatic given the flags in embed.fnc.

This function behaves differently when called from core than not, but
making it into a macro that gets expanded as needed means it
automatically gets expanded correctly.

Author: khwilliamson

embed.fnc

@@ -3268,7 +3268,7 @@ Adp	|MAGIC *|sv_magicext	|NN SV * const sv			\
 EXp	|MAGIC *|sv_magicext_mglob					\
 				|NN SV *sv
 Adp	|SV *	|sv_2mortal	|NULLOK SV * const sv
-AMRbdp	|SV *	|sv_mortalcopy	|NULLOK SV * const oldsv
+ARdmp	|SV *	|sv_mortalcopy	|NULLOK SV * const oldsv
 ARdp	|SV *	|sv_mortalcopy_flags					\
 				|NULLOK SV * const oldsv		\
 				|U32 flags

embed.h

@@ -2313,6 +2313,7 @@
 #   define Perl_sv_eq(mTHX,a,b)                 sv_eq(a,b)
 #   define Perl_sv_force_normal(mTHX,a)         sv_force_normal(a)
 #   define Perl_sv_insert(mTHX,a,b,c,d,e)       sv_insert(a,b,c,d,e)
+#   define Perl_sv_mortalcopy(mTHX,a)           sv_mortalcopy(a)
 #   define Perl_sv_pvn_force(mTHX,a,b)          sv_pvn_force(a,b)
 #   define Perl_sv_taint(mTHX,a)                sv_taint(a)
 #   define Perl_sv_unref(mTHX,a)                sv_unref(a)
@@ -2366,6 +2367,7 @@
 #   define Perl_sv_eq                           sv_eq
 #   define Perl_sv_force_normal                 sv_force_normal
 #   define Perl_sv_insert                       sv_insert
+#   define Perl_sv_mortalcopy                   sv_mortalcopy
 #   define Perl_sv_pvn_force                    sv_pvn_force
 #   define Perl_sv_taint                        sv_taint
 #   define Perl_sv_unref                        sv_unref

mathoms.c

@@ -297,12 +297,6 @@ Perl_newHV(pTHX)
     return hv;
 }
 
-SV *
-Perl_sv_mortalcopy(pTHX_ SV *const oldsv)
-{
-    return Perl_sv_mortalcopy_flags(aTHX_ oldsv, SV_GMAGIC);
-}
-
 /*
 =for apidoc_section $unicode
 =for apidoc utf8_to_uvuni