From 5961b034b8278434a635f1d6e67213a5b4cffa64 Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Sat, 22 Sep 2001 16:44:08 +0000 Subject: [PATCH 1/1] Do what perl_clone() does for sharedsv functions. p4raw-id: //depot/perl@12139 --- embed.pl | 2 +- proto.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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); -- 1.8.3.1