From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 4 Jul 2020 06:38:33 +0000 (+0200)
Subject: lib/ptukey.c: Use the standard macro INFINITY from the math library
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f5e80d2a183a5fd902cef45ce0299983fb941ebd;p=pspp

lib/ptukey.c: Use the standard macro INFINITY from the math library
---

diff --git a/lib/tukey/ptukey.c b/lib/tukey/ptukey.c
index d2c46270a8..07923d98bd 100644
--- a/lib/tukey/ptukey.c
+++ b/lib/tukey/ptukey.c
@@ -71,7 +71,7 @@
 #include <assert.h>
 #include <math.h>
 
-#define R_D__0	(log_p ? ML_NEGINF : 0.)		/* 0 */
+#define R_D__0	(log_p ? -INFINITY : 0.)		/* 0 */
 #define R_D__1	(log_p ? 0. : 1.)			/* 1 */
 #define R_DT_0	(lower_tail ? R_D__0 : R_D__1)		/* 0 */
 #define R_DT_1	(lower_tail ? R_D__1 : R_D__0)		/* 1 */
@@ -272,7 +272,6 @@ wprob (double w, double rr, double cc)
 double
 ptukey (double q, double rr, double cc, double df, int lower_tail, int log_p)
 {
-  const double ML_NEGINF = -1.0 / 0.0;
 /*  function ptukey() [was qprob() ]:
 
 	q = value of studentized range