diff options
-rw-r--r-- | hv.c | 4 | ||||
-rw-r--r-- | mg.c | 4 | ||||
-rw-r--r-- | op.c | 4 | ||||
-rw-r--r-- | pad.c | 2 | ||||
-rw-r--r-- | perl.c | 2 | ||||
-rw-r--r-- | perlvars.h | 3 | ||||
-rw-r--r-- | regcomp.c | 4 | ||||
-rw-r--r-- | util.c | 4 |
8 files changed, 0 insertions, 27 deletions
@@ -3681,8 +3681,6 @@ no action occurs in this case. void Perl_refcounted_he_free(pTHX_ struct refcounted_he *he) { -#ifdef USE_ITHREADS -#endif PERL_UNUSED_CONTEXT; while (he) { @@ -3719,8 +3717,6 @@ to this function: no action occurs and a null pointer is returned. struct refcounted_he * Perl_refcounted_he_inc(pTHX_ struct refcounted_he *he) { -#ifdef USE_ITHREADS -#endif PERL_UNUSED_CONTEXT; if (he) { HINTS_REFCNT_LOCK; @@ -2764,8 +2764,6 @@ static void S_set_dollarzero(pTHX_ SV *sv) PERL_TSA_REQUIRES(PL_dollarzero_mutex) { -#ifdef USE_ITHREADS -#endif const char *s; STRLEN len; #ifdef HAS_SETPROCTITLE @@ -2842,8 +2840,6 @@ S_set_dollarzero(pTHX_ SV *sv) int Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) { -#ifdef USE_ITHREADS -#endif I32 paren; const REGEXP * rx; I32 i; @@ -1406,8 +1406,6 @@ void Perl_op_refcnt_lock(pTHX) PERL_TSA_ACQUIRE(PL_op_mutex) { -#ifdef USE_ITHREADS -#endif PERL_UNUSED_CONTEXT; OP_REFCNT_LOCK; } @@ -1416,8 +1414,6 @@ void Perl_op_refcnt_unlock(pTHX) PERL_TSA_RELEASE(PL_op_mutex) { -#ifdef USE_ITHREADS -#endif PERL_UNUSED_CONTEXT; OP_REFCNT_UNLOCK; } @@ -2186,8 +2186,6 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned, static CV * S_cv_clone(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned) { -#ifdef USE_ITHREADS -#endif const bool newcv = !cv; assert(!CvUNIQUE(proto)); @@ -4536,8 +4536,6 @@ Perl_init_argv_symbols(pTHX_ int argc, char **argv) STATIC void S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env) { -#ifdef USE_ITHREADS -#endif GV* tmpgv; PERL_ARGS_ASSERT_INIT_POSTDUMP_SYMBOLS; diff --git a/perlvars.h b/perlvars.h index b7ee1c6945..a479df741e 100644 --- a/perlvars.h +++ b/perlvars.h @@ -307,6 +307,3 @@ PERLVARI(G, strategy_socket, int, 0) /* doio.c */ PERLVARI(G, strategy_accept, int, 0) /* doio.c */ PERLVARI(G, strategy_pipe, int, 0) /* doio.c */ PERLVARI(G, strategy_socketpair, int, 0) /* doio.c */ - -#ifdef PERL_IMPLICIT_CONTEXT -#endif @@ -21804,8 +21804,6 @@ Perl_regfree_internal(pTHX_ REGEXP * const rx) Used in stclass optimization only */ U32 refcount; reg_ac_data *aho=(reg_ac_data*)ri->data->data[n]; -#ifdef USE_ITHREADS -#endif OP_REFCNT_LOCK; refcount = --aho->refcount; OP_REFCNT_UNLOCK; @@ -21832,8 +21830,6 @@ Perl_regfree_internal(pTHX_ REGEXP * const rx) /* trie structure. */ U32 refcount; reg_trie_data *trie=(reg_trie_data*)ri->data->data[n]; -#ifdef USE_ITHREADS -#endif OP_REFCNT_LOCK; refcount = --trie->refcount; OP_REFCNT_UNLOCK; @@ -3087,8 +3087,6 @@ Perl_rsignal_state(pTHX_ int signo) int Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save) { -#ifdef USE_ITHREADS -#endif struct sigaction act; PERL_ARGS_ASSERT_RSIGNAL_SAVE; @@ -3116,8 +3114,6 @@ Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save) int Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save) { -#ifdef USE_ITHREADS -#endif PERL_UNUSED_CONTEXT; #ifdef USE_ITHREADS /* only "parent" interpreter can diddle signals */ |