Convert Perl_hv_foo to hv_foo and rm from mathoms

These four functions (example Perl_hv_delete), can be converted to call
their plain macro (e.g. hv_delete) without changing their behavior.  I
verified this by eyeballing their implementations in mathoms.c and
comparing that with what happens with just the plain macro.

That means embed.fnc can be changed to generate the Perl_ forms
automatically, and the mathoms functions can be removed.

Author: khwilliamson

embed.fnc

@@ -1488,7 +1488,7 @@ ARdp	|HV *	|hv_copy_hints_hv					\
 Cp	|void	|hv_delayfree_ent					\
 				|NULLOK HV *notused			\
 				|NULLOK HE *entry
-AMbdp	|SV *	|hv_delete	|NULLOK HV *hv				\
+Admp	|SV *	|hv_delete	|NULLOK HV *hv				\
 				|NN const char *key			\
 				|I32 klen				\
 				|I32 flags
@@ -1508,13 +1508,13 @@ dp	|void	|hv_ename_delete|NN HV *hv				\
 				|NN const char *name			\
 				|U32 len				\
 				|U32 flags
-AMRbdp	|bool	|hv_exists	|NULLOK HV *hv				\
+ARdmp	|bool	|hv_exists	|NULLOK HV *hv				\
 				|NN const char *key			\
 				|I32 klen
 ARdmp	|bool	|hv_exists_ent	|NULLOK HV *hv				\
 				|NN SV *keysv				\
 				|U32 hash
-AMbdp	|SV **	|hv_fetch	|NULLOK HV *hv				\
+Admp	|SV **	|hv_fetch	|NULLOK HV *hv				\
 				|NN const char *key			\
 				|I32 klen				\
 				|I32 lval
@@ -1563,7 +1563,7 @@ Cdop	|void	|hv_riter_set	|NN HV *hv				\
 				|I32 riter
 
 ARdp	|SV *	|hv_scalar	|NN HV *hv
-AMbdp	|SV **	|hv_store	|NULLOK HV *hv				\
+Admp	|SV **	|hv_store	|NULLOK HV *hv				\
 				|NULLOK const char *key 		\
 				|I32 klen				\
 				|NULLOK SV *val 			\

embed.h

@@ -2280,11 +2280,15 @@
 #   define Perl_gv_efullname3(mTHX,a,b,c)       gv_efullname3(a,b,c)
 #   define Perl_gv_fetchmethod(mTHX,a,b)        gv_fetchmethod(a,b)
 #   define Perl_gv_fullname3(mTHX,a,b,c)        gv_fullname3(a,b,c)
+#   define Perl_hv_delete(mTHX,a,b,c,d)         hv_delete(a,b,c,d)
 #   define Perl_hv_delete_ent(mTHX,a,b,c,d)     hv_delete_ent(a,b,c,d)
+#   define Perl_hv_exists(mTHX,a,b,c)           hv_exists(a,b,c)
 #   define Perl_hv_exists_ent(mTHX,a,b,c)       hv_exists_ent(a,b,c)
+#   define Perl_hv_fetch(mTHX,a,b,c,d)          hv_fetch(a,b,c,d)
 #   define Perl_hv_fetch_ent(mTHX,a,b,c,d)      hv_fetch_ent(a,b,c,d)
 #   define Perl_hv_iternext(mTHX,a)             hv_iternext(a)
 #   define Perl_hv_magic(mTHX,a,b,c)            hv_magic(a,b,c)
+#   define Perl_hv_store(mTHX,a,b,c,d,e)        hv_store(a,b,c,d,e)
 #   define Perl_hv_store_ent(mTHX,a,b,c,d)      hv_store_ent(a,b,c,d)
 #   define Perl_hv_store_flags(mTHX,a,b,c,d,e,f) hv_store_flags(a,b,c,d,e,f)
 #   define Perl_newAV(mTHX)                     newAV()
@@ -2335,11 +2339,15 @@
 #   define Perl_gv_efullname3                   gv_efullname3
 #   define Perl_gv_fetchmethod                  gv_fetchmethod
 #   define Perl_gv_fullname3                    gv_fullname3
+#   define Perl_hv_delete                       hv_delete
 #   define Perl_hv_delete_ent                   hv_delete_ent
+#   define Perl_hv_exists                       hv_exists
 #   define Perl_hv_exists_ent                   hv_exists_ent
+#   define Perl_hv_fetch                        hv_fetch
 #   define Perl_hv_fetch_ent                    hv_fetch_ent
 #   define Perl_hv_iternext                     hv_iternext
 #   define Perl_hv_magic                        hv_magic
+#   define Perl_hv_store                        hv_store
 #   define Perl_hv_store_ent                    hv_store_ent
 #   define Perl_hv_store_flags                  hv_store_flags
 #   define Perl_newAV                           newAV

mathoms.c

@@ -202,80 +202,6 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
     PERL_UNUSED_ARG(sv);
 }
 
-SV**
-Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash)
-{
-    STRLEN klen;
-    int flags;
-
-    if (klen_i32 < 0) {
-        klen = -klen_i32;
-        flags = HVhek_UTF8;
-    } else {
-        klen = klen_i32;
-        flags = 0;
-    }
-    return (SV **) hv_common(hv, NULL, key, klen, flags,
-                             (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), val, hash);
-}
-
-bool
-Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen_i32)
-{
-    STRLEN klen;
-    int flags;
-
-    PERL_ARGS_ASSERT_HV_EXISTS;
-
-    if (klen_i32 < 0) {
-        klen = -klen_i32;
-        flags = HVhek_UTF8;
-    } else {
-        klen = klen_i32;
-        flags = 0;
-    }
-    return cBOOL(hv_common(hv, NULL, key, klen, flags, HV_FETCH_ISEXISTS, 0, 0));
-}
-
-SV**
-Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 lval)
-{
-    STRLEN klen;
-    int flags;
-
-    PERL_ARGS_ASSERT_HV_FETCH;
-
-    if (klen_i32 < 0) {
-        klen = -klen_i32;
-        flags = HVhek_UTF8;
-    } else {
-        klen = klen_i32;
-        flags = 0;
-    }
-    return (SV **) hv_common(hv, NULL, key, klen, flags,
-                             lval ? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)
-                             : HV_FETCH_JUST_SV, NULL, 0);
-}
-
-SV *
-Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 flags)
-{
-    STRLEN klen;
-    int k_flags;
-
-    PERL_ARGS_ASSERT_HV_DELETE;
-
-    if (klen_i32 < 0) {
-        klen = -klen_i32;
-        k_flags = HVhek_UTF8;
-    } else {
-        klen = klen_i32;
-        k_flags = 0;
-    }
-    return MUTABLE_SV(hv_common(hv, NULL, key, klen, k_flags, flags | HV_DELETE,
-                                NULL, 0));
-}
-
 HV *
 Perl_newHV(pTHX)
 {