X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fdata-out.c;h=967f57eddc23bf2090360032d26fb20417b01728;hb=c90c44ab307b3ba49f606d2bae80e6aff1e228d7;hp=4adaaa63a55f35fbbbca96a5e5a9d1e6498bb720;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp diff --git a/src/data/data-out.c b/src/data/data-out.c index 4adaaa63a5..967f57eddc 100644 --- a/src/data/data-out.c +++ b/src/data/data-out.c @@ -24,7 +24,6 @@ #include #include #include -#include #include "calendar.h" #include "format.h" @@ -34,7 +33,6 @@ #include #include #include -#include #include #include #include @@ -151,7 +149,7 @@ output_number (const union value *input, const struct fmt_spec *format, if (number == SYSMIS) output_missing (format, output); - else if (!gsl_finite (number)) + else if (!isfinite (number)) output_infinite (number, format, output); else { @@ -711,16 +709,6 @@ output_scientific (double number, const struct fmt_spec *format, return true; } -#ifndef HAVE_ROUND -/* Return X rounded to the nearest integer, - rounding ties away from zero. */ -static double -round (double x) -{ - return x >= 0.0 ? floor (x + .5) : ceil (x - .5); -} -#endif /* !HAVE_ROUND */ - /* Returns true if the magnitude represented by R should be rounded up when chopped off at DECIMALS decimal places, false if it should be rounded down. */ @@ -949,7 +937,7 @@ power256 (int x) static void output_infinite (double number, const struct fmt_spec *format, char *output) { - assert (!gsl_finite (number)); + assert (!isfinite (number)); if (format->w >= 3) {