isnan was not impmemented on vxWorks

2001-07-26 15:43:22 +00:00
parent 8a99fac979
commit 11e57aa52d
1 changed files with 8 additions and 0 deletions
--- a/src/libCom/osi/os/vxWorks/isnan.c
+++ b/src/libCom/osi/os/vxWorks/isnan.c
@@ -0,0 +1,8 @@
+int isnan(double d)
+{
+        union { long l[2]; double d; } u;
+        u.d = d;
+        if ((u.l[0] & 0x7ff00000) != 0x7ff00000) return(0);
+        if (u.l[1] || (u.l[0] & 0x000fffff)) return(1);
+        return(0);
+}