[Pspp-cvs] pspp/src/data data-out.c ChangeLog

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 06/12/08 01:41:21

Modified files:
        src/data       : data-out.c ChangeLog 

Log message:
        Use gsl_finite from GSL, which is portable, instead of isfinite, which
        is not.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/data/data-out.c?cvsroot=pspp&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/pspp/src/data/ChangeLog?cvsroot=pspp&r1=1.79&r2=1.80

Patches:
Index: data-out.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/data/data-out.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- data-out.c  22 Nov 2006 04:24:02 -0000      1.12
+++ data-out.c  8 Dec 2006 01:41:21 -0000       1.13
@@ -27,6 +27,7 @@
 #include <stdint.h>
 #include <stdlib.h>
 #include <time.h>
+#include <gsl/gsl_math.h>
 
 #include "calendar.h"
 #include "format.h"
@@ -153,7 +154,7 @@
 
   if (number == SYSMIS)
     output_missing (format, output);
-  else if (!isfinite (number))
+  else if (!gsl_finite (number))
     output_infinite (number, format, output);
   else 
     {
@@ -951,7 +952,7 @@
 static void
 output_infinite (double number, const struct fmt_spec *format, char *output)
 {
-  assert (!isfinite (number));
+  assert (!gsl_finite (number));
   
   if (format->w >= 3)
     {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/data/ChangeLog,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- ChangeLog   7 Dec 2006 06:31:04 -0000       1.79
+++ ChangeLog   8 Dec 2006 01:41:21 -0000       1.80
@@ -1,3 +1,11 @@
+Thu Dec  7 17:38:26 2006  Ben Pfaff  <address@hidden>
+
+       Thanks to Jason Stover for pointing out this problem.
+       
+       * data-out.c (output_number): Use gsl_finite from GSL, which is
+       portable, instead of isfinite, which is not.
+       (power256) Ditto.
+
 Thu Dec  7 15:22:38 WST 2006 John Darrington <address@hidden>
 
        * variable.c variable.h (value_dup): New function.