1/* w_remainderl.c -- long double version of w_remainder.c. 2 * Conversion to long double by Ulrich Drepper, 3 * Cygnus Support, drepper@cygnus.com. 4 */ 5 6/* 7 * ==================================================== 8 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 9 * 10 * Developed at SunPro, a Sun Microsystems, Inc. business. 11 * Permission to use, copy, modify, and distribute this 12 * software is freely granted, provided that this notice 13 * is preserved. 14 * ==================================================== 15 */ 16 17#if defined(LIBM_SCCS) && !defined(lint) 18static char rcsid[] = "$NetBSD: $"; 19#endif 20 21/* 22 * wrapper remainderl(x,p) 23 */ 24 25#include "math.h" 26#include "math_private.h" 27 28#ifdef __STDC__ 29 long double __remainderl(long double x, long double y) 30 /* wrapper remainderl */ 31#else 32 long double __remainderl(x,y) /* wrapper remainder */ 33 long double x,y; 34#endif 35{ 36#ifdef _IEEE_LIBM 37 return __ieee754_remainderl(x,y); 38#else 39 long double z; 40 z = __ieee754_remainderl(x,y); 41 if(_LIB_VERSION == _IEEE_ || __isnanl(y)) return z; 42 if(y==0.0) 43 return __kernel_standard(x,y,228); /* remainder(x,0) */ 44 else 45 return z; 46#endif 47} 48weak_alias (__remainderl, remainderl) 49