This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MUTABLE_PTR() Rmv non-standard syntax
authorKarl Williamson <khw@cpan.org>
Mon, 29 Jun 2020 15:21:24 +0000 (09:21 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 18 Jul 2020 03:44:08 +0000 (21:44 -0600)
Variables in C are beginning with an underscore are reserved for use by
the C implementation.  Change this non-conformant usage.

handy.h

diff --git a/handy.h b/handy.h
index 287e2e2..890b2b1 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -54,7 +54,7 @@ Null SV pointer.  (No longer available when C<PERL_CORE> is defined.)
  */
 
 #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
-#  define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
+#  define MUTABLE_PTR(p) ({ void *p_ = (p); p_; })
 #else
 #  define MUTABLE_PTR(p) ((void *) (p))
 #endif