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
 9typedef int (__cdecl *fUserMathErr)(struct _exception *);
10static fUserMathErr stUserMathErr;
11
12void __mingw_raise_matherr (int typ, const char *name, double a1, double a2,
13			    double rslt)
14{
15  struct _exception ex;
16  if (!stUserMathErr)
17    return;
18  ex.type = typ;
19  ex.name = (char*)name;
20  ex.arg1 = a1;
21  ex.arg2 = a2;
22  ex.retval = rslt;
23  (*stUserMathErr)(&ex);
24}
25
26#undef __setusermatherr
27
28void __mingw_setusermatherr (int (__cdecl *f)(struct _exception *))
29{
30  stUserMathErr = f;
31  __setusermatherr (f);
32}