From: Artur Bergman <sky@nanisky.com>
Date: Sun, 28 Oct 2001 08:02:09 +0000 (+0000)
Subject: And here we use the prototypes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce127893d1ceee85bee65033fdcfa35fd3a344d4;p=p5sagit%2Fp5-mst-13.2.git

And here we use the prototypes.

p4raw-id: //depot/perl@12727
---

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index eb4472d..c00cf15 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -141,7 +141,7 @@ MGVTBL svtable = {MEMBER_TO_FPTR(shared_sv_fetch_mg),
 MODULE = threads::shared		PACKAGE = threads::shared		
 
 
-PROTOTYPES: DISABLE
+PROTOTYPES: ENABLE
 
 
 SV*
@@ -194,6 +194,7 @@ _thrcnt_dec(ref)
 void 
 unlock_enabled(ref)
 	SV* ref
+	PROTOTYPE: \[$@%]
 	CODE:
 	shared_sv* shared;
 	if(SvROK(ref))
@@ -219,6 +220,7 @@ lock_enabled(ref)
 void
 cond_wait_enabled(ref)
 	SV* ref
+	PROTOTYPE: \[$@%]
 	CODE:
 	shared_sv* shared;
 	int locks;
@@ -239,6 +241,7 @@ cond_wait_enabled(ref)
 
 void cond_signal_enabled(ref)
 	SV* ref
+	PROTOTYPE: \[$@%]
 	CODE:
 	shared_sv* shared;
 	if(SvROK(ref))
@@ -251,6 +254,7 @@ void cond_signal_enabled(ref)
 
 void cond_broadcast_enabled(ref)
 	SV* ref
+	PROTOTYPE: \[$@%]
 	CODE:
 	shared_sv* shared;
 	if(SvROK(ref))