From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sat, 22 Sep 2001 16:44:08 +0000 (+0000)
Subject: Do what perl_clone() does for sharedsv functions.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5961b034b8278434a635f1d6e67213a5b4cffa64;p=p5sagit%2Fp5-mst-13.2.git

Do what perl_clone() does for sharedsv functions.

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

diff --git a/embed.pl b/embed.pl
index 0e38c17..8671366 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2188,7 +2188,7 @@ s	|void	|debprof	|OP *o
 s	|SV*	|save_scalar_at	|SV **sptr
 #endif
 
-#if defined(USE_ITHREADS) || defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT)
+#if defined(USE_ITHREADS)
 Adp    |void        |sharedsv_init
 Adp    |shared_sv*  |sharedsv_new
 Adp    |shared_sv*  |sharedsv_find          |SV* sv
diff --git a/proto.h b/proto.h
index 2d763a3..077bc92 100644
--- a/proto.h
+++ b/proto.h
@@ -1176,7 +1176,7 @@ 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)
+#if defined(USE_ITHREADS)
 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);