This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MHX notes that I have a superfluous void cast.
authorNicholas Clark <nick@ccl4.org>
Mon, 27 Oct 2008 22:22:50 +0000 (22:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 27 Oct 2008 22:22:50 +0000 (22:22 +0000)
p4raw-id: //depot/perl@34612

handy.h

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