diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-03 15:17:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-03 15:17:29 +0000 |
| commit | 4674ade5b759c9369580374e5145fe253ded600d (patch) | |
| tree | e7e934e33bf28ab0f7f73a3301ff23df98793f33 /proto.h | |
| parent | b0cda13faf629d100b3142c37f2720b08a110474 (diff) | |
| download | perl-4674ade5b759c9369580374e5145fe253ded600d.tar.gz | |
Make the ptr_table functions available in an unthreaded perl, as other
code (such as Storable) can take advantage of them.
p4raw-id: //depot/perl@29673
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2864,6 +2864,7 @@ PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV* dstr, const SV *sstr, CLONE_PARAMS* p __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_3); +#endif PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX) __attribute__malloc__ __attribute__warn_unused_result__; @@ -2882,6 +2883,7 @@ PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl) PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl); PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl); +#if defined(USE_ITHREADS) # if defined(HAVE_INTERP_INTERN) PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst) __attribute__nonnull__(pTHX_1) @@ -3901,13 +3903,11 @@ STATIC void S_glob_assign_ref(pTHX_ SV *dstr, SV *sstr) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -# if defined(USE_ITHREADS) STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *tbl, const void *sv) __attribute__warn_unused_result__ __attribute__nonnull__(1) __attribute__nonnull__(2); -# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) |