Remove #ifdef USE_ITHREADS around MUTEX_* calls
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Tue, 27 Jun 2017 22:23:45 +0000 (23:23 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 3 Jul 2017 15:32:41 +0000 (16:32 +0100)
These macros are defined as NOOP outside USE_ITHREADS, so there's no
point in guarding them with it.

ext/arybase/arybase.pm
ext/arybase/arybase.xs
os2/os2.c
perlio.c
util.c

index 64efe3e..7168ccb 100644 (file)
@@ -1,6 +1,6 @@
 package arybase;
 
-our $VERSION = "0.12";
+our $VERSION = "0.13";
 
 require XSLoader;
 XSLoader::load(); # This returns true, which makes require happy.
index 880bbe3..2521d42 100644 (file)
@@ -26,9 +26,7 @@ STATIC perl_mutex ab_op_map_mutex;
 STATIC const ab_op_info *ab_map_fetch(const OP *o, ab_op_info *oi) {
  const ab_op_info *val;
 
-#ifdef USE_ITHREADS
  MUTEX_LOCK(&ab_op_map_mutex);
-#endif
 
  val = (ab_op_info *)ptable_fetch(ab_op_map, o);
  if (val) {
@@ -36,9 +34,7 @@ STATIC const ab_op_info *ab_map_fetch(const OP *o, ab_op_info *oi) {
   val = oi;
  }
 
-#ifdef USE_ITHREADS
  MUTEX_UNLOCK(&ab_op_map_mutex);
-#endif
 
  return val;
 }
@@ -65,28 +61,20 @@ STATIC void ab_map_store(
 {
 #define ab_map_store(O, PP, B) ab_map_store(aPTBLMS_ (O),(PP),(B))
 
-#ifdef USE_ITHREADS
  MUTEX_LOCK(&ab_op_map_mutex);
-#endif
 
  ab_map_store_locked(o, old_pp, base);
 
-#ifdef USE_ITHREADS
  MUTEX_UNLOCK(&ab_op_map_mutex);
-#endif
 }
 
 STATIC void ab_map_delete(pTHX_ const OP *o) {
 #define ab_map_delete(O) ab_map_delete(aTHX_ (O))
-#ifdef USE_ITHREADS
  MUTEX_LOCK(&ab_op_map_mutex);
-#endif
 
  ptable_map_store(ab_op_map, o, NULL);
 
-#ifdef USE_ITHREADS
  MUTEX_UNLOCK(&ab_op_map_mutex);
-#endif
 }
 
 /* ... $[ Implementation .............................................. */
@@ -412,9 +400,7 @@ BOOT:
 {
     if (!ab_initialized++) {
        ab_op_map = ptable_new();
-#ifdef USE_ITHREADS
        MUTEX_INIT(&ab_op_map_mutex);
-#endif
 #define check(uc,lc,ck) \
                wrap_op_checker(OP_##uc, ab_ck_##ck, &ab_old_ck_##lc)
        check(SASSIGN,  sassign,  sassign);
index d7a4b58..8cb7367 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -4959,10 +4959,8 @@ Perl_OS2_init3(char **env, void **preg, int flags)
            if (PL_sh_path[i] == '\\') PL_sh_path[i] = '/';
        }
     }
-#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
     MUTEX_INIT(&start_thread_mutex);
     MUTEX_INIT(&perlos2_state_mutex);
-#endif
     os2_mytype = my_type();            /* Do it before morphing.  Needed? */
     os2_mytype_ini = os2_mytype;
     Perl_os2_initial_mode = -1;                /* Uninit */
index e9d3700..209af1b 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2274,9 +2274,7 @@ S_more_refcounted_fds(pTHX_ const int new_fd)
     new_array = (int*) realloc(PL_perlio_fd_refcnt, new_max * sizeof(int));
 
     if (!new_array) {
-#ifdef USE_ITHREADS
        MUTEX_UNLOCK(&PL_perlio_mutex);
-#endif
        croak_no_mem();
     }
 
@@ -2305,9 +2303,7 @@ PerlIOUnix_refcnt_inc(int fd)
     if (fd >= 0) {
        dVAR;
 
-#ifdef USE_ITHREADS
        MUTEX_LOCK(&PL_perlio_mutex);
-#endif
        if (fd >= PL_perlio_fd_refcnt_size)
            S_more_refcounted_fds(aTHX_ fd);
 
@@ -2320,9 +2316,7 @@ PerlIOUnix_refcnt_inc(int fd)
        DEBUG_i( PerlIO_debug("refcnt_inc: fd %d refcnt=%d\n",
                               fd, PL_perlio_fd_refcnt[fd]) );
 
-#ifdef USE_ITHREADS
        MUTEX_UNLOCK(&PL_perlio_mutex);
-#endif
     } else {
        /* diag_listed_as: refcnt_inc: fd %d%s */
        Perl_croak(aTHX_ "refcnt_inc: fd %d < 0\n", fd);
@@ -2339,9 +2333,7 @@ PerlIOUnix_refcnt_dec(int fd)
 #else
        dVAR;
 #endif
-#ifdef USE_ITHREADS
        MUTEX_LOCK(&PL_perlio_mutex);
-#endif
        if (fd >= PL_perlio_fd_refcnt_size) {
            /* diag_listed_as: refcnt_dec: fd %d%s */
            Perl_croak_nocontext("refcnt_dec: fd %d >= refcnt_size %d\n",
@@ -2354,9 +2346,7 @@ PerlIOUnix_refcnt_dec(int fd)
        }
        cnt = --PL_perlio_fd_refcnt[fd];
        DEBUG_i( PerlIO_debug("refcnt_dec: fd %d refcnt=%d\n", fd, cnt) );
-#ifdef USE_ITHREADS
        MUTEX_UNLOCK(&PL_perlio_mutex);
-#endif
     } else {
        /* diag_listed_as: refcnt_dec: fd %d%s */
        Perl_croak_nocontext("refcnt_dec: fd %d < 0\n", fd);
@@ -2371,9 +2361,7 @@ PerlIOUnix_refcnt(int fd)
     int cnt = 0;
     if (fd >= 0) {
        dVAR;
-#ifdef USE_ITHREADS
        MUTEX_LOCK(&PL_perlio_mutex);
-#endif
        if (fd >= PL_perlio_fd_refcnt_size) {
            /* diag_listed_as: refcnt: fd %d%s */
            Perl_croak(aTHX_ "refcnt: fd %d >= refcnt_size %d\n",
@@ -2385,9 +2373,7 @@ PerlIOUnix_refcnt(int fd)
                       fd, PL_perlio_fd_refcnt[fd]);
        }
        cnt = PL_perlio_fd_refcnt[fd];
-#ifdef USE_ITHREADS
        MUTEX_UNLOCK(&PL_perlio_mutex);
-#endif
     } else {
        /* diag_listed_as: refcnt: fd %d%s */
        Perl_croak(aTHX_ "refcnt: fd %d < 0\n", fd);
@@ -3290,7 +3276,6 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
            if (stdio == stdout || stdio == stderr)
                return PerlIO_flush(f);
         }
-#ifdef USE_ITHREADS
         MUTEX_LOCK(&PL_perlio_mutex);
         /* Right. We need a mutex here because for a brief while we
            will have the situation that fd is actually closed. Hence if
@@ -3309,7 +3294,6 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 
            Except that correctness trumps speed.
            Advice from klortho #11912. */
-#endif
        if (invalidate) {
             /* Tricky - must fclose(stdio) to free memory but not close(fd)
               Use Sarathy's trick from maint-5.6 to invalidate the
@@ -3347,9 +3331,7 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
            PerlLIO_dup2(dupfd,fd);
            PerlLIO_close(dupfd);
        }
-#ifdef USE_ITHREADS
         MUTEX_UNLOCK(&PL_perlio_mutex);
-#endif
        return result;
     }
 }
diff --git a/util.c b/util.c
index 584d2b8..4584c73 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5339,13 +5339,9 @@ Perl_my_cxt_init(pTHX_ int *index, size_t size)
     PERL_ARGS_ASSERT_MY_CXT_INIT;
     if (*index == -1) {
        /* this module hasn't been allocated an index yet */
-#if defined(USE_ITHREADS)
        MUTEX_LOCK(&PL_my_ctx_mutex);
-#endif
        *index = PL_my_cxt_index++;
-#if defined(USE_ITHREADS)
        MUTEX_UNLOCK(&PL_my_ctx_mutex);
-#endif
     }
     
     /* make sure the array is big enough */
@@ -5402,13 +5398,9 @@ Perl_my_cxt_init(pTHX_ const char *my_cxt_key, size_t size)
     index = Perl_my_cxt_index(aTHX_ my_cxt_key);
     if (index == -1) {
        /* this module hasn't been allocated an index yet */
-#if defined(USE_ITHREADS)
        MUTEX_LOCK(&PL_my_ctx_mutex);
-#endif
        index = PL_my_cxt_index++;
-#if defined(USE_ITHREADS)
        MUTEX_UNLOCK(&PL_my_ctx_mutex);
-#endif
     }
 
     /* make sure the array is big enough */