PPPort IVSIZE and SvPV_nolen

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

diff --git a/proto.h b/proto.h
index ba900c9..5923ba0 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -575,7 +575,12 @@ PERL_CALLCONV OP*  Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
 PERL_CALLCONV OP*      Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);
 
 PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
-PERL_CALLCONV char*    Perl_new_vstring(pTHX_ char *vstr, SV *sv);
+PERL_CALLCONV char*    Perl_scan_vstring(pTHX_ char *vstr, SV *sv);
+PERL_CALLCONV char*    Perl_scan_version(pTHX_ char *vstr, SV *sv);
+PERL_CALLCONV SV*      Perl_new_version(pTHX_ SV *ver);
+PERL_CALLCONV SV*      Perl_upg_version(pTHX_ SV *ver);
+PERL_CALLCONV SV*      Perl_vnumify(pTHX_ SV *sv, SV *vs);
+PERL_CALLCONV SV*      Perl_vstringify(pTHX_ SV *sv, SV *vs);
 PERL_CALLCONV PerlIO*  Perl_nextargv(pTHX_ GV* gv);
 PERL_CALLCONV char*    Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
 PERL_CALLCONV OP*      Perl_oopsCV(pTHX_ OP* o);
@@ -996,6 +1001,10 @@ PERL_CALLCONV void        Perl_sys_intern_init(pTHX);
 PERL_CALLCONV char *   Perl_custom_op_name(pTHX_ OP* op);
 PERL_CALLCONV char *   Perl_custom_op_desc(pTHX_ OP* op);
 
+#if defined(PERL_COPY_ON_WRITE)
+PERL_CALLCONV int      Perl_sv_release_IVX(pTHX_ SV *sv);
+#endif
+
 PERL_CALLCONV void     Perl_sv_nosharing(pTHX_ SV *);
 PERL_CALLCONV void     Perl_sv_nolocking(pTHX_ SV *);
 PERL_CALLCONV void     Perl_sv_nounlocking(pTHX_ SV *);
@@ -1269,6 +1278,9 @@ STATIC I32        S_expect_number(pTHX_ char** pattern);
 #  if defined(USE_ITHREADS)
 STATIC SV*     S_gv_share(pTHX_ SV *sv, CLONE_PARAMS *param);
 #  endif
+#if defined(PERL_COPY_ON_WRITE)
+STATIC void    S_sv_release_COW(pTHX_ SV *sv, char *pvx, STRLEN cur, STRLEN len, U32 hash, SV *after);
+#endif
 #endif
 
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)