[ros-diffs] [pschweitzer] 54431: [CRT] Windows has no _isnanl, _isinfl functions

pschweitzer at svn.reactos.org pschweitzer at svn.reactos.org
Sat Nov 19 09:46:40 UTC 2011


Author: pschweitzer
Date: Sat Nov 19 09:46:40 2011
New Revision: 54431

URL: http://svn.reactos.org/svn/reactos?rev=54431&view=rev
Log:
[CRT]
Windows has no _isnanl, _isinfl functions

Modified:
    trunk/reactos/lib/sdk/crt/float/isnan.c

Modified: trunk/reactos/lib/sdk/crt/float/isnan.c
URL: http://svn.reactos.org/svn/reactos/trunk/reactos/lib/sdk/crt/float/isnan.c?rev=54431&r1=54430&r2=54431&view=diff
==============================================================================
--- trunk/reactos/lib/sdk/crt/float/isnan.c [iso-8859-1] (original)
+++ trunk/reactos/lib/sdk/crt/float/isnan.c [iso-8859-1] Sat Nov 19 09:46:40 2011
@@ -19,7 +19,6 @@
 
 #include <precomp.h>
 
-
 /*
  * @implemented
  */
@@ -32,26 +31,6 @@
 	} x;
     	x.__x = &__x;
 	return ( x.x->exponent == 0x7ff  && ( x.x->mantissah != 0 || x.x->mantissal != 0 ));
-}
-
-int _isnanl(long double __x)
-{
-	/* Intel's extended format has the normally implicit 1 explicit
-	   present.  Sigh!  */
-	union
-	{
-		long double*   __x;
-		long_double_s*   x;
-	} x;
-	x.__x = &__x;
-
-
-	 /* IEEE 854 NaN's have the maximum possible
-     exponent and a nonzero mantissa.  */
-
-	return (( x.x->exponent == 0x7fff)
-	  && ( (x.x->mantissah & 0x80000) != 0)
-	  && ( (x.x->mantissah & (unsigned int)0x7fffffff) != 0  || x.x->mantissal != 0 ));
 }
 
 /*
@@ -69,25 +48,3 @@
 
     return ((x.x->exponent & 0x7ff) != 0x7ff);
 }
-
-int _isinfl(long double __x)
-{
-	/* Intel's extended format has the normally implicit 1 explicit
-	   present.  Sigh!  */
-	union
-	{
-		long double*   __x;
-                long_double_s*   x;
-	} x;
-
-	x.__x = &__x;
-
-
-	 /* An IEEE 854 infinity has an exponent with the
-     maximum possible value and a zero mantissa.  */
-
-
-	if ( x.x->exponent == 0x7fff  && ( (x.x->mantissah == 0x80000 )   && x.x->mantissal == 0 ))
-		return x.x->sign ? -1 : 1;
-	return 0;
-}




More information about the Ros-diffs mailing list