OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libjava/] [classpath/] [native/] [fdlibm/] [w_remainder.c] - Blame information for rev 774

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 774 jeremybenn
 
2
/* @(#)w_remainder.c 1.3 95/01/18 */
3
/*
4
 * ====================================================
5
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6
 *
7
 * Developed at SunSoft, a Sun Microsystems, Inc. business.
8
 * Permission to use, copy, modify, and distribute this
9
 * software is freely granted, provided that this notice
10
 * is preserved.
11
 * ====================================================
12
 */
13
 
14
/*
15
 * wrapper remainder(x,p)
16
 */
17
 
18
#include "fdlibm.h"
19
 
20
#ifdef __STDC__
21
        double remainder(double x, double y)    /* wrapper remainder */
22
#else
23
        double remainder(x,y)                   /* wrapper remainder */
24
        double x,y;
25
#endif
26
{
27
#ifdef _IEEE_LIBM
28
        return __ieee754_remainder(x,y);
29
#else
30
        double z;
31
        z = __ieee754_remainder(x,y);
32
        if(_LIB_VERSION == _IEEE_ || isnan(y)) return z;
33
        if(y==0.0)
34
            return __kernel_standard(x,y,28); /* remainder(x,0) */
35
        else
36
            return z;
37
#endif
38
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.