home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 5.ddi / MWHC.005 / D0 < prev    next >
Encoding:
Text File  |  1992-02-10  |  269 b   |  17 lines
  1. #include <math.h>
  2. #include <stdefs.h>
  3. #include <errno.h>
  4.  
  5. #ifndef _EXCEPTION_DEFINED
  6. struct exception {
  7.     long type;
  8.     double arg1,arg2,retval;
  9. };
  10. #endif
  11.  
  12. math_err_control(x)
  13. struct exception *x;
  14. {
  15.     if ((x->type & 7) < 3) errno=EDOM; else errno=ERANGE;
  16. }
  17.