S_del_body is sufficiently small that inlining it is a space win.

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index 7b39af5..4eff6b1 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -421,6 +421,7 @@
 #define magic_set              Perl_magic_set
 #define magic_setamagic                Perl_magic_setamagic
 #define magic_setarylen                Perl_magic_setarylen
+#define magic_freearylen_p     Perl_magic_freearylen_p
 #define magic_setbm            Perl_magic_setbm
 #define magic_setdbline                Perl_magic_setdbline
 #define magic_setdefelem       Perl_magic_setdefelem
@@ -1280,28 +1281,6 @@
 #ifdef PERL_CORE
 #define asIV                   S_asIV
 #define asUV                   S_asUV
-#define new_xnv                        S_new_xnv
-#define new_xpv                        S_new_xpv
-#define new_xpviv              S_new_xpviv
-#define new_xpvnv              S_new_xpvnv
-#define new_xpvcv              S_new_xpvcv
-#define new_xpvav              S_new_xpvav
-#define new_xpvhv              S_new_xpvhv
-#define new_xpvmg              S_new_xpvmg
-#define new_xpvgv              S_new_xpvgv
-#define new_xpvlv              S_new_xpvlv
-#define new_xpvbm              S_new_xpvbm
-#define del_xnv                        S_del_xnv
-#define del_xpv                        S_del_xpv
-#define del_xpviv              S_del_xpviv
-#define del_xpvnv              S_del_xpvnv
-#define del_xpvcv              S_del_xpvcv
-#define del_xpvav              S_del_xpvav
-#define del_xpvhv              S_del_xpvhv
-#define del_xpvmg              S_del_xpvmg
-#define del_xpvgv              S_del_xpvgv
-#define del_xpvlv              S_del_xpvlv
-#define del_xpvbm              S_del_xpvbm
 #define sv_unglob              S_sv_unglob
 #define not_a_number           S_not_a_number
 #define visit                  S_visit
@@ -1655,6 +1634,7 @@
 #define is_gv_magical_sv       Perl_is_gv_magical_sv
 #endif
 #define savesvpv               Perl_savesvpv
+#define stashpv_hvname_match   Perl_stashpv_hvname_match
 #define ck_anoncode            Perl_ck_anoncode
 #define ck_bitop               Perl_ck_bitop
 #define ck_concat              Perl_ck_concat
@@ -2420,6 +2400,7 @@
 #define magic_set(a,b)         Perl_magic_set(aTHX_ a,b)
 #define magic_setamagic(a,b)   Perl_magic_setamagic(aTHX_ a,b)
 #define magic_setarylen(a,b)   Perl_magic_setarylen(aTHX_ a,b)
+#define magic_freearylen_p(a,b)        Perl_magic_freearylen_p(aTHX_ a,b)
 #define magic_setbm(a,b)       Perl_magic_setbm(aTHX_ a,b)
 #define magic_setdbline(a,b)   Perl_magic_setdbline(aTHX_ a,b)
 #define magic_setdefelem(a,b)  Perl_magic_setdefelem(aTHX_ a,b)
@@ -3268,28 +3249,6 @@
 #ifdef PERL_CORE
 #define asIV(a)                        S_asIV(aTHX_ a)
 #define asUV(a)                        S_asUV(aTHX_ a)
-#define new_xnv()              S_new_xnv(aTHX)
-#define new_xpv()              S_new_xpv(aTHX)
-#define new_xpviv()            S_new_xpviv(aTHX)
-#define new_xpvnv()            S_new_xpvnv(aTHX)
-#define new_xpvcv()            S_new_xpvcv(aTHX)
-#define new_xpvav()            S_new_xpvav(aTHX)
-#define new_xpvhv()            S_new_xpvhv(aTHX)
-#define new_xpvmg()            S_new_xpvmg(aTHX)
-#define new_xpvgv()            S_new_xpvgv(aTHX)
-#define new_xpvlv()            S_new_xpvlv(aTHX)
-#define new_xpvbm()            S_new_xpvbm(aTHX)
-#define del_xnv(a)             S_del_xnv(aTHX_ a)
-#define del_xpv(a)             S_del_xpv(aTHX_ a)
-#define del_xpviv(a)           S_del_xpviv(aTHX_ a)
-#define del_xpvnv(a)           S_del_xpvnv(aTHX_ a)
-#define del_xpvcv(a)           S_del_xpvcv(aTHX_ a)
-#define del_xpvav(a)           S_del_xpvav(aTHX_ a)
-#define del_xpvhv(a)           S_del_xpvhv(aTHX_ a)
-#define del_xpvmg(a)           S_del_xpvmg(aTHX_ a)
-#define del_xpvgv(a)           S_del_xpvgv(aTHX_ a)
-#define del_xpvlv(a)           S_del_xpvlv(aTHX_ a)
-#define del_xpvbm(a)           S_del_xpvbm(aTHX_ a)
 #define sv_unglob(a)           S_sv_unglob(aTHX_ a)
 #define not_a_number(a)                S_not_a_number(aTHX_ a)
 #define visit(a,b,c)           S_visit(aTHX_ a,b,c)
@@ -3321,7 +3280,7 @@
 #endif
 #if defined(PERL_OLD_COPY_ON_WRITE)
 #ifdef PERL_CORE
-#define sv_release_COW(a,b,c,d,e,f)    S_sv_release_COW(aTHX_ a,b,c,d,e,f)
+#define sv_release_COW(a,b,c,d)        S_sv_release_COW(aTHX_ a,b,c,d)
 #endif
 #endif
 #endif
@@ -3643,6 +3602,7 @@
 #define is_gv_magical_sv(a,b)  Perl_is_gv_magical_sv(aTHX_ a,b)
 #endif
 #define savesvpv(a)            Perl_savesvpv(aTHX_ a)
+#define stashpv_hvname_match(a,b)      Perl_stashpv_hvname_match(aTHX_ a,b)
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
 #define ck_concat(a)           Perl_ck_concat(aTHX_ a)