X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=06ce95a0f3c9258574523b22f8d864afe3955688;hb=f86a8bc58a487e28b31c5d91c65920f4859f3f74;hp=def3db12502adcca6a74a8d3023714e0583e5649;hpb=52e18b1f277416a33dff2c066a83fdab0520a2d7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index def3db1..06ce95a 100644
--- a/proto.h
+++ b/proto.h
@@ -1197,6 +1197,17 @@ STATIC void	S_debprof(pTHX_ OP *o);
 STATIC SV*	S_save_scalar_at(pTHX_ SV **sptr);
 #endif
 
+#if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT))
+PERL_CALLCONV void	Perl_sharedsv_init(pTHX);
+PERL_CALLCONV shared_sv*	Perl_sharedsv_new(pTHX);
+PERL_CALLCONV shared_sv*	Perl_sharedsv_find(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sharedsv_lock(pTHX_ shared_sv* ssv);
+PERL_CALLCONV void	Perl_sharedsv_unlock(pTHX_ shared_sv* ssv);
+PERL_CALLCONV void	Perl_sharedsv_unlock_scope(pTHX_ shared_sv* ssv);
+PERL_CALLCONV void	Perl_sharedsv_thrcnt_inc(pTHX_ shared_sv* ssv);
+PERL_CALLCONV void	Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv);
+#endif
+
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 STATIC IV	S_asIV(pTHX_ SV* sv);
 STATIC UV	S_asUV(pTHX_ SV* sv);