This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up many-reader mutex typedef
authorKarl Williamson <khw@cpan.org>
Sun, 6 Dec 2020 22:16:41 +0000 (15:16 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 8 Dec 2020 13:44:20 +0000 (06:44 -0700)
This previously worked on some compilers, but not others.

perl.h

diff --git a/perl.h b/perl.h
index e1b6b18..fa0eb07 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3342,11 +3342,11 @@ typedef pthread_key_t   perl_key;
 #  endif
 
 /* Many readers; single writer */
-typedef struct perl_RnW1_mutex {
+typedef struct {
     perl_mutex lock;
     perl_cond  zero_readers;
     Size_t     readers_count;
-} Perl_W1Rn_mutex_t;
+} perl_RnW1_mutex_t;
 
 
 #endif /* USE_ITHREADS */