In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/fd124146cf3c880d749bbb33b1ac226cc55a9639?hp=df127a673e53b0cbfdfa0669f7d6276df5403c2c>

- Log -----------------------------------------------------------------
commit fd124146cf3c880d749bbb33b1ac226cc55a9639
Author: David Mitchell <[email protected]>
Date:   Sun Jul 17 20:25:51 2016 +0100

    bump feature.pm $VERSION

M       lib/feature.pm
M       regen/feature.pl

commit ab0fe36e478f78846a1944a3e22e9cd26260c042
Author: David Mitchell <[email protected]>
Date:   Sun Jul 17 20:13:08 2016 +0100

    fix build on clang plus -DPERL_GLOBAL_STRUCT
    
    The various PERL_TSA_* macros that utilise clang Thread Safety Analysis
    were failing on  -DPERL_GLOBAL_STRUCT and -DPERL_GLOBAL_STRUCT_PRIVATE
    builds, due to lines like these:
    
        Perl_op_refcnt_lock(pTHX)
          PERL_TSA_ACQUIRE(PL_op_mutex)
        {
            ...
        }
    
    where under DPERL_GLOBAL_STRUCT globals vars aren't really global,
    so you can't pass PL_op_mutex as an arg to that function attribute.
    
    The simplest fix (since you can't just bung a dVAR in there) is to just
    disable TSA on PERL_GLOBAL_STRUCT builds.

M       perl.h
-----------------------------------------------------------------------

Summary of changes:
 lib/feature.pm   | 2 +-
 perl.h           | 2 ++
 regen/feature.pl | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/feature.pm b/lib/feature.pm
index 5524e5b..e97ffff 100644
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -5,7 +5,7 @@
 
 package feature;
 
-our $VERSION = '1.44';
+our $VERSION = '1.45';
 
 our %feature = (
     fc              => 'feature_fc',
diff --git a/perl.h b/perl.h
index dddf97d..f110c2b 100644
--- a/perl.h
+++ b/perl.h
@@ -3065,6 +3065,8 @@ freeing any remaining Perl interpreters.
  */
 #if defined(USE_ITHREADS) && defined(I_PTHREAD) && \
     defined(__clang__) && \
+    !defined(PERL_GLOBAL_STRUCT) && \
+    !defined(PERL_GLOBAL_STRUCT_PRIVATE) && \
     !defined(SWIG) && \
   ((!defined(__apple_build_version__) &&               \
     ((__clang_major__ == 3 && __clang_minor__ >= 6) || \
diff --git a/regen/feature.pl b/regen/feature.pl
index 92655da..97d0359 100755
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -367,7 +367,7 @@ read_only_bottom_close_and_rename($h);
 __END__
 package feature;
 
-our $VERSION = '1.44';
+our $VERSION = '1.45';
 
 FEATURES
 

--
Perl5 Master Repository

Reply via email to