Use a macro for abs() to avoid the possible truncation to an int;

also make an explicit (double)cast for the arguments to fabs().

p4raw-id: //depot/perl@18813

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index a2f8c430f1..0253a435b8 100644
--- a/perl.h
+++ b/perl.h
@@ -4240,6 +4240,10 @@ extern void moncontrol(int);
 #   define PERL_BLOCKSIG_UNBLOCK(set)	NOOP
 #endif
 
+/* Use instead of abs() since abs() forces its argument to be an int,
+ * but also beware since evaluates its argument thrice. */
+#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
+
 /* and finally... */
 #define PERL_PATCHLEVEL_H_IMPLICIT
 #include "patchlevel.h"