This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove empty "#ifdef"s
authorTom Hukins <tom@eborcom.com>
Wed, 2 Dec 2020 17:00:09 +0000 (17:00 +0000)
committerKarl Williamson <khw@cpan.org>
Tue, 8 Dec 2020 13:23:29 +0000 (06:23 -0700)
hv.c
mg.c
op.c
pad.c
perl.c
perlvars.h
regcomp.c
util.c

diff --git a/hv.c b/hv.c
index 32e1a7d..8f7dbdc 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -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;
diff --git a/mg.c b/mg.c
index f302489..fcbefff 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -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;
diff --git a/op.c b/op.c
index 421387e..822ea18 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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;
 }
diff --git a/pad.c b/pad.c
index 9283e43..2af0e19 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -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));
diff --git a/perl.c b/perl.c
index 57db3ed..3c97ed5 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -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;
index b7ee1c6..a479df7 100644 (file)
@@ -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
index 0c8beb0..d2433a4 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -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;
diff --git a/util.c b/util.c
index 40e6b8d..1bfa7f5 100644 (file)
--- a/util.c
+++ b/util.c
@@ -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 */