-/* @(#)k_standard.c 5.1 93/09/24 */
/*
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
* ====================================================
*/
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: k_standard.c,v 1.6 1995/05/10 20:46:35 jtc Exp $";
-#endif
-
-#include "math.h"
+#include <math.h>
#include "math_private.h"
#include <errno.h>
-libm_hidden_proto(copysign)
-libm_hidden_proto(matherr)
-libm_hidden_proto(rint)
+#ifndef _IEEE_LIBM
#ifndef _USE_WRITE
#include <stdio.h> /* fputs(), stderr */
#undef fflush
#endif /* !defined(_USE_WRITE) */
-#ifdef __STDC__
static const double zero = 0.0; /* used as const */
-#else
-static double zero = 0.0; /* used as const */
-#endif
/*
* Standard conformance (non-IEEE) on exception cases.
* 42-- pow(NaN,0.0)
*/
-
-#ifdef __STDC__
- double __kernel_standard(double x, double y, int type)
-#else
- double __kernel_standard(x,y,type)
- double x,y; int type;
-#endif
+double __kernel_standard(double x, double y, int type)
{
struct exception exc;
#ifndef HUGE_VAL /* this is the only routine that uses HUGE_VAL */
}
return exc.retval;
}
+#endif /* _IEEE_LIBM */