Back to index

glibc  2.9
s_matherr.c
Go to the documentation of this file.
00001 /* @(#)s_matherr.c 5.1 93/09/24 */
00002 /*
00003  * ====================================================
00004  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
00005  *
00006  * Developed at SunPro, a Sun Microsystems, Inc. business.
00007  * Permission to use, copy, modify, and distribute this
00008  * software is freely granted, provided that this notice
00009  * is preserved.
00010  * ====================================================
00011  */
00012 
00013 #if defined(LIBM_SCCS) && !defined(lint)
00014 static char rcsid[] = "$NetBSD: s_matherr.c,v 1.6 1995/05/10 20:47:53 jtc Exp $";
00015 #endif
00016 
00017 #include "math.h"
00018 #include "math_private.h"
00019 
00020 #ifdef __STDC__
00021        int
00022        weak_function
00023         __matherr(struct exception *x)
00024 #else
00025        int
00026        weak_function
00027        __matherr(x)
00028        struct exception *x;
00029 #endif
00030 {
00031        int n=0;
00032        if(x->arg1!=x->arg1) return 0;
00033        return n;
00034 }
00035 weak_alias (__matherr, matherr)