xref: /openbsd-src/gnu/usr.bin/perl/qnx/qnx.c (revision 256a93a44f36679bee503f12e49566c2183f6181)
1*850e2753Smillert /* If we're compiling with watcom, we want to silence domain errors */
2*850e2753Smillert #if defined(__QNX__) && defined(__WATCOMC__)
3*850e2753Smillert #include <math.h>
4*850e2753Smillert 
5*850e2753Smillert /* Return default value and print no error message */
matherr(struct exception * err)6*850e2753Smillert int matherr( struct exception *err )
7*850e2753Smillert   {
8*850e2753Smillert         return 1;
9*850e2753Smillert   }
10*850e2753Smillert 
11*850e2753Smillert #endif
12