1 /* Derived from: */
2 /*
3 * ====================================================
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5 *
6 * Developed at SunPro, a Sun Microsystems, Inc. business.
7 * Permission to use, copy, modify, and distribute this
8 * software is freely granted, provided that this notice
9 * is preserved.
10 * ====================================================
11 */
12
13
14 #include <math.h>
15 #include <math-svid-compat.h>
16 #include "libm_support.h"
17
18 #if LIBM_SVID_COMPAT
19 int
20 weak_function
__matherrl(struct exceptionl * x)21 __matherrl(struct exceptionl *x)
22 {
23 int n=0;
24 if(x->arg1!=x->arg1) return 0;
25 return n;
26 }
27 compat_symbol (libm, __matherrl, matherrl, GLIBC_2_2_3);
28 #endif
29