threads-shared-1.58

Author: rurban

Porting/Maintainers.pl

@@ -1486,7 +1486,7 @@ package Maintainers;
     },
 
     'threads::shared' => {
-        'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.57.tar.gz',
+        'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.58.tar.gz',
         'FILES'        => q[dist/threads-shared],
         'EXCLUDED'     => [
             qw( examples/class.pl

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -17834,6 +17834,7 @@ our %delta :const = (
             'Test::Harness'         => '3.42_01',
             'Thread::Queue'         => '3.13',
             'threads'               => '2.22_01',
+            'threads::shared'       => '1.58',
             'Time::HiRes'           => '1.9758_01',
             'Time::Local'           => '1.28',
             'Time::Piece'           => '1.33',

dist/threads-shared/Changes

@@ -1,5 +1,9 @@
 Revision history for Perl extension threads::shared.
 
+1.58 Mon Jan 22 20:09:07 EST 2018
+	- Fix CLANG macros.
+	- Sync with blead.
+
 1.57 Sun May  7 22:48:33 2017
 	- Fix Clang macro backward compatibility per patch by Andy Grundman
 

dist/threads-shared/lib/threads/shared.pm

@@ -7,7 +7,7 @@ use warnings;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.57'; # Please update the pod, too.
+our $VERSION = '1.58'; # Please update the pod, too.
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -195,7 +195,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.57
+This document describes threads::shared version 1.58
 
 =head1 SYNOPSIS
 

dist/threads-shared/shared.xs

@@ -128,6 +128,15 @@
 #  include "shared.h"
 #endif
 
+#ifndef CLANG_DIAG_IGNORE
+# define CLANG_DIAG_IGNORE(x)
+# define CLANG_DIAG_RESTORE
+#endif
+#ifndef CLANG_DIAG_IGNORE_STMT
+# define CLANG_DIAG_IGNORE_STMT(x) CLANG_DIAG_IGNORE(x) NOOP
+# define CLANG_DIAG_RESTORE_STMT CLANG_DIAG_RESTORE NOOP
+#endif
+
 #ifdef USE_ITHREADS
 
 /* Magic signature(s) for mg_private to make PERL_MAGIC_ext magic safer */
@@ -656,17 +665,10 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs)
     abs -= (NV)ts.tv_sec;
     ts.tv_nsec = (long)(abs * 1000000000.0);
 
-#if defined(CLANG_DIAG_IGNORE)
-    CLANG_DIAG_IGNORE(-Wthread-safety);
+    CLANG_DIAG_IGNORE_STMT(-Wthread-safety);
     /* warning: calling function 'pthread_cond_timedwait' requires holding mutex 'mut' exclusively [-Wthread-safety-analysis] */
-#endif
-
     switch (pthread_cond_timedwait(cond, mut, &ts)) {
-
-/* perl.h defines CLANG_DIAG_* but only in 5.24+ */
-#if defined(CLANG_DIAG_RESTORE)
-CLANG_DIAG_RESTORE;
-#endif
+	CLANG_DIAG_RESTORE_STMT;
 
         case 0:         got_it = 1; break;
         case ETIMEDOUT:             break;

pod/perlcdelta.pod

@@ -426,6 +426,11 @@ returning values from threads, and no longer warns about creating threads
 in C<BEGIN> blocks.
 L<[perl #96538]|https://rt.perl.org/Ticket/Display.html?id=96538>
 
+=item L<threads::shared> 1.58
+
+Fix Clang macro backward compatibility per patch by Andy Grundman.
+RT #131124 Memory allocation fix.
+
 =item L<Time::HiRes> 1.9758_01
 
 Updated from upstream since 1.9752: