s_finite.c 858 B

1234567891011121314151617181920212223242526272829303132
  1. /*
  2. * ====================================================
  3. * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
  4. *
  5. * Developed at SunPro, a Sun Microsystems, Inc. business.
  6. * Permission to use, copy, modify, and distribute this
  7. * software is freely granted, provided that this notice
  8. * is preserved.
  9. * ====================================================
  10. */
  11. /*
  12. * finite(x) returns 1 is x is finite, else 0;
  13. * no branching!
  14. */
  15. #include <features.h>
  16. /* Prevent math.h from defining a colliding inline */
  17. #undef __USE_EXTERN_INLINES
  18. #include "math.h"
  19. #include "math_private.h"
  20. int __finite(double x)
  21. {
  22. u_int32_t hx;
  23. GET_HIGH_WORD(hx, x);
  24. /* Finite numbers have at least one zero bit in exponent. */
  25. /* All other numbers will result in 0xffffffff after OR: */
  26. return (hx | 0x800fffff) != 0xffffffff;
  27. }
  28. libm_hidden_def(__finite)