summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-08-13 12:45:21 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-13 12:45:21 +0000
commitcd1ee231f67664d7a2f2d53512a707d2736dbb0e (patch)
tree26d3be9ce06d827160183cf5272c57670329c2cb /proto.h
parentf3faeb53b75c95d2773d14d859d4fa9ca1594daa (diff)
downloadperl-cd1ee231f67664d7a2f2d53512a707d2736dbb0e.tar.gz
[PATHC] sharedsv.[c|h]
From: "Artur Bergman" <artur@contiller.se> Date: Mon, 13 Aug 2001 14:38:41 +0200 Message-ID: <005401c123f4$e1f53360$21000a0a@vogw2kdev> Subject: [PATCH] embed.pl From: Arthur Bergman <arthur@contiller.se> Date: Mon, 13 Aug 2001 14:38:14 +0200 Message-ID: <B79D96D6.3088%arthur@contiller.se> Subject: [PATCH] sharedsv cleanups From: "Arthur Bergman" <arthur@contiller.se> Date: Mon, 13 Aug 2001 15:14:25 +0200 Message-ID: <005a01c123f9$dfe525d0$21000a0a@vogw2kdev> Plus few tweaks: _init needs to be Adp, the prototypes should not be revealed unless using ithreads, #endif FOO must be #endif /* FOO */, adding (parentheses) around do { } while doesn't work too well. p4raw-id: //depot/perl@11659
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h11
1 files changed, 11 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index def3db1250..06ce95a0f3 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);