This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cast the result of fpsetmask(0) to (void), as some implementations
authorNicholas Clark <nick@ccl4.org>
Mon, 28 Apr 2008 20:41:31 +0000 (20:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 28 Apr 2008 20:41:31 +0000 (20:41 +0000)
expand it via a macro, with a comma expression to calculate the return
value, at which point gcc has the gall to warn that an expression
calcualted is not used.
Blame SCO for having to have fpsetmask(0) in the code to start with.

p4raw-id: //depot/perl@33762

perl.h

diff --git a/perl.h b/perl.h
index 4cd9a2b..8e48b6d 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2651,7 +2651,11 @@ typedef struct clone_params CLONE_PARAMS;
 #    if HAS_FLOATINGPOINT_H
 #      include <floatingpoint.h>
 #    endif
-#    define PERL_FPU_INIT fpsetmask(0)
+/* Some operating systems have this as a macro, which in turn expands to a comma
+   expression, and the last sub-expression is something that gets calculated,
+   and then they have the gall to warn that a value computed is not used. Hence
+   cast to void.  */
+#    define PERL_FPU_INIT (void)fpsetmask(0)
 #  else
 #    if defined(SIGFPE) && defined(SIG_IGN) && !defined(PERL_MICRO)
 #      define PERL_FPU_INIT       PL_sigfpe_saved = (Sighandler_t) signal(SIGFPE, SIG_IGN)