This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Do what perl_clone() does for sharedsv functions.
authorAbhijit Menon-Sen <ams@wiw.org>
Sat, 22 Sep 2001 16:44:08 +0000 (16:44 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Sat, 22 Sep 2001 16:44:08 +0000 (16:44 +0000)
p4raw-id: //depot/perl@12139

embed.pl
proto.h

index 0e38c17..8671366 100755 (executable)
--- 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 (file)
--- 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);