ack/lang/cem/libcc.ansi/core/math/isnan.c

#include <math.h>
#include <ack/config.h>

#if ACKCONF_WANT_FLOAT

__IsNan(double d)
{
#if defined(__vax) || defined(__pdp)
#else
	float f = d;

	if ((*((long*)&f) & 0x7f800000) == 0x7f800000 && (*((long*)&f) & 0x007fffff) != 0)
		return 1;
#endif
	return 0;
}

#endif
libc floating point and stdio floating point can now be turned on and off using ACKCONF variables. 2018-06-22 22:04:14 +00:00			`#include <math.h>`
			`#include <ack/config.h>`

			`#if ACKCONF_WANT_FLOAT`

Added isnan.c 1991-06-04 15:33:34 +00:00			`__IsNan(double d)`
			`{`
Some minor mods 1991-08-27 08:57:28 +00:00			`#if defined(__vax) \|\| defined(__pdp)`
Added isnan.c 1991-06-04 15:33:34 +00:00			`#else`
			`float f = d;`

Run libcc.ansi through clang-format. 2018-06-21 20:33:47 +00:00			`if ((((long)&f) & 0x7f800000) == 0x7f800000 && (((long)&f) & 0x007fffff) != 0)`
			`return 1;`
Added isnan.c 1991-06-04 15:33:34 +00:00			`#endif`
			`return 0;`
			`}`
libc floating point and stdio floating point can now be turned on and off using ACKCONF variables. 2018-06-22 22:04:14 +00:00
			`#endif`