diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-16 07:25:36 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-17 16:40:07 +0000 |
| commit | 9cbac4c72b52b6fc0e8ad9e0050c6aa0b905a8e7 (patch) | |
| tree | 28d87cc28cbc8a6b13a2d131306618d4356fc771 /proto.h | |
| parent | 675d96b54a60143fa8ba5fa0a3543e6041006509 (diff) | |
| download | perl-9cbac4c72b52b6fc0e8ad9e0050c6aa0b905a8e7.tar.gz | |
[patch] -Wall
Message-ID: <Pine.LNX.4.21.0102161519500.30352-100000@mako.covalent.net>
p4raw-id: //depot/perl@8815
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -947,7 +947,6 @@ PERL_CALLCONV DIR* Perl_dirp_dup(pTHX_ DIR* dp); PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP* gp); PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC* mg); PERL_CALLCONV SV* Perl_sv_dup(pTHX_ SV* sstr); -STATIC SV* S_gv_share(pTHX_ SV *sv); #if defined(HAVE_INTERP_INTERN) PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst); #endif @@ -1023,7 +1022,9 @@ STATIC OP* S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp); STATIC void S_simplify_sort(pTHX_ OP *o); STATIC bool S_is_handle_constructor(pTHX_ OP *o, I32 argnum); STATIC char* S_gv_ename(pTHX_ GV *gv); +# if defined(DEBUG_CLOSURES) STATIC void S_cv_dump(pTHX_ CV *cv); +# endif STATIC CV* S_cv_clone2(pTHX_ CV *proto, CV *outside); STATIC bool S_scalar_mod_type(pTHX_ OP *o, I32 type); STATIC OP * S_my_kid(pTHX_ OP *o, OP *attrs); @@ -1221,6 +1222,10 @@ STATIC int S_sv_2inuv_non_preserve(pTHX_ SV *sv, I32 numtype); STATIC int S_sv_2iuv_non_preserve(pTHX_ SV *sv, I32 numtype); # endif STATIC I32 S_expect_number(pTHX_ char** pattern); +# +# if defined(USE_ITHREADS) +STATIC SV* S_gv_share(pTHX_ SV *sv); +# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) |