Re: [PATCH 5.8.7 RC1] lib/Carp.t todo for VMS

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

diff --git a/proto.h b/proto.h
index 159ecf4..8718035 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2053,7 +2053,6 @@ STATIC SV*        S_save_scalar_at(pTHX_ SV **sptr);
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 STATIC IV      S_asIV(pTHX_ SV* sv);
 STATIC UV      S_asUV(pTHX_ SV* sv);
-STATIC XPVIV*  S_new_xiv(pTHX);
 STATIC XPVNV*  S_new_xnv(pTHX);
 STATIC XPV*    S_new_xpv(pTHX);
 STATIC XPVIV*  S_new_xpviv(pTHX);
@@ -2065,8 +2064,6 @@ STATIC XPVMG*     S_new_xpvmg(pTHX);
 STATIC XPVGV*  S_new_xpvgv(pTHX);
 STATIC XPVLV*  S_new_xpvlv(pTHX);
 STATIC XPVBM*  S_new_xpvbm(pTHX);
-STATIC XRV*    S_new_xrv(pTHX);
-STATIC void    S_del_xiv(pTHX_ XPVIV* p);
 STATIC void    S_del_xnv(pTHX_ XPVNV* p);
 STATIC void    S_del_xpv(pTHX_ XPV* p);
 STATIC void    S_del_xpviv(pTHX_ XPVIV* p);
@@ -2078,7 +2075,6 @@ STATIC void       S_del_xpvmg(pTHX_ XPVMG* p);
 STATIC void    S_del_xpvgv(pTHX_ XPVGV* p);
 STATIC void    S_del_xpvlv(pTHX_ XPVLV* p);
 STATIC void    S_del_xpvbm(pTHX_ XPVBM* p);
-STATIC void    S_del_xrv(pTHX_ XRV* p);
 STATIC void    S_sv_unglob(pTHX_ SV* sv);
 STATIC void    S_not_a_number(pTHX_ SV *sv);
 STATIC I32     S_visit(pTHX_ SVFUNC_t f, U32 flags, U32 mask);
@@ -2311,6 +2307,16 @@ STATIC HE*       S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN k
 PERL_CALLCONV void     Perl_hv_clear_placeholders(pTHX_ HV* hb);
 
 PERL_CALLCONV SV*      Perl_hv_scalar(pTHX_ HV* hv);
+PERL_CALLCONV I32*     Perl_hv_riter_p(pTHX_ HV* hv);
+PERL_CALLCONV HE**     Perl_hv_eiter_p(pTHX_ HV* hv);
+PERL_CALLCONV void     Perl_hv_riter_set(pTHX_ HV* hv, I32 riter);
+PERL_CALLCONV void     Perl_hv_eiter_set(pTHX_ HV* hv, HE* eiter);
+PERL_CALLCONV char**   Perl_hv_name_p(pTHX_ HV* hv);
+PERL_CALLCONV void     Perl_hv_name_set(pTHX_ HV* hv, const char *, STRLEN len, int flags);
+PERL_CALLCONV I32*     Perl_hv_placeholders_p(pTHX_ HV* hv);
+PERL_CALLCONV I32      Perl_hv_placeholders_get(pTHX_ HV* hv);
+PERL_CALLCONV void     Perl_hv_placeholders_set(pTHX_ HV* hv, I32 ph);
+
 PERL_CALLCONV SV*      Perl_magic_scalarpack(pTHX_ HV* hv, MAGIC*      mg);
 #ifdef PERL_IN_SV_C
 STATIC SV*     S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool top);