removed matherr.h
[dyninst.git] / pdutil / src / makenan.C
1 #include "util/h/makenan.h"
2 #include "util/h/headers.h"
3
4 float f_paradyn_nan = 0;
5 bool nan_created = false;
6 bool matherr_flag = false;
7
8 float make_Nan() {
9     if(!nan_created){
10     matherr_flag = true;
11     f_paradyn_nan = sqrt(-3);
12     matherr_flag = false;
13     nan_created = true;
14     }
15     assert(isnan(f_paradyn_nan));
16     return f_paradyn_nan;
17 }
18
19
20 int matherr(struct exception *x) {
21   if ((x->type == DOMAIN) && !P_strcmp(x->name, "sqrt")) {
22       if (matherr_flag)
23             return(1);
24   }
25   return(0);
26 }
27
28