s_matherr.c 568 B

123456789101112131415161718192021222324
  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. #include "math.h"
  12. #include "math_private.h"
  13. #ifndef _IEEE_LIBM
  14. int matherr(struct exception *x)
  15. {
  16. int n=0;
  17. if(x->arg1!=x->arg1) return 0;
  18. return n;
  19. }
  20. libm_hidden_def(matherr)
  21. #endif