From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001 From: Taru Karttunen Date: Wed, 30 Mar 2011 15:46:40 +0300 Subject: Import sources from 2011-03-30 iso image --- sys/src/ape/lib/ap/plan9/nan.c | 54 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100755 sys/src/ape/lib/ap/plan9/nan.c (limited to 'sys/src/ape/lib/ap/plan9/nan.c') diff --git a/sys/src/ape/lib/ap/plan9/nan.c b/sys/src/ape/lib/ap/plan9/nan.c new file mode 100755 index 000000000..db7c13fe8 --- /dev/null +++ b/sys/src/ape/lib/ap/plan9/nan.c @@ -0,0 +1,54 @@ +#include +#include + +#define NANEXP (2047<<20) +#define NANMASK (2047<<20) +#define NANSIGN (1<<31) + +double +NaN(void) +{ + FPdbleword a; + + a.hi = NANEXP; + a.lo = 1; + return a.x; +} + +int +isNaN(double d) +{ + FPdbleword a; + + a.x = d; + if((a.hi & NANMASK) != NANEXP) + return 0; + return !isInf(d, 0); +} + +double +Inf(int sign) +{ + FPdbleword a; + + a.hi = NANEXP; + a.lo = 0; + if(sign < 0) + a.hi |= NANSIGN; + return a.x; +} + +int +isInf(double d, int sign) +{ + FPdbleword a; + + a.x = d; + if(a.lo != 0) + return 0; + if(a.hi == NANEXP) + return sign >= 0; + if(a.hi == (NANEXP|NANSIGN)) + return sign <= 0; + return 0; +} -- cgit v1.2.3