1/**
 2 * This file has no copyright assigned and is placed in the Public Domain.
 3 * This file is part of the mingw-w64 runtime package.
 4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 5 */
 6
 7#include <math.h>
 8#include <stdio.h>
 9
10int __CRTDECL
11_matherr (struct _exception *pexcept)
12{
13  const char * type;
14
15  switch(pexcept->type)
16    {
17      case _DOMAIN:
18	type = "Argument domain error (DOMAIN)";
19	break;
20
21      case _SING:
22	type = "Argument singularity (SIGN)";
23	break;
24
25      case _OVERFLOW:
26	type = "Overflow range error (OVERFLOW)";
27	break;
28
29      case _PLOSS:
30	type = "Partial loss of significance (PLOSS)";
31	break;
32
33      case _TLOSS:
34	type = "Total loss of significance (TLOSS)";
35	break;
36
37      case _UNDERFLOW:
38	type = "The result is too small to be represented (UNDERFLOW)";
39	break;
40
41      default:
42	type = "Unknown error";
43	break;
44    }
45
46  fprintf (stderr, "_matherr(): %s in %s(%g, %g)  (retval=%g)\n", 
47	  type, pexcept->name, pexcept->arg1, pexcept->arg2, pexcept->retval);
48  return 0;
49}
50