Mercurial > nand-ecoscentric
annotate packages/language/c/libm/current/src/float/ieee754-api/wf_fmod.c @ 3337:77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
port from Newlib.
Add: Single precision floating point library, port from Newlib.
[ Bugzilla 1001539 ]
| author | vae |
|---|---|
| date | Sun, 25 Aug 2013 14:38:57 +0000 |
| parents | |
| children |
| rev | line source |
|---|---|
|
3337
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
1 //=========================================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
2 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
3 // w_fmod.c |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
4 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
5 // Part of the standard mathematical function library |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
6 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
7 //=========================================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
8 // ####ECOSGPLCOPYRIGHTBEGIN#### |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
9 // ------------------------------------------- |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
10 // This file is part of eCos, the Embedded Configurable Operating System. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
11 // Copyright (C) 2012 Free Software Foundation, Inc. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
12 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
13 // eCos is free software; you can redistribute it and/or modify it under |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
14 // the terms of the GNU General Public License as published by the Free |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
15 // Software Foundation; either version 2 or (at your option) any later |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
16 // version. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
17 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
18 // eCos is distributed in the hope that it will be useful, but WITHOUT |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
19 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
20 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
21 // for more details. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
22 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
23 // You should have received a copy of the GNU General Public License |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
24 // along with eCos; if not, write to the Free Software Foundation, Inc., |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
25 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
26 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
27 // As a special exception, if other files instantiate templates or use |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
28 // macros or inline functions from this file, or you compile this file |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
29 // and link it with other works to produce a work based on this file, |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
30 // this file does not by itself cause the resulting work to be covered by |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
31 // the GNU General Public License. However the source code for this file |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
32 // must still be made available in accordance with section (3) of the GNU |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
33 // General Public License v2. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
34 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
35 // This exception does not invalidate any other reasons why a work based |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
36 // on this file might be covered by the GNU General Public License. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
37 // ------------------------------------------- |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
38 // ####ECOSGPLCOPYRIGHTEND#### |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
39 //=========================================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
40 //#####DESCRIPTIONBEGIN#### |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
41 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
42 // Author(s): |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
43 // Contributors: visar, ilijak |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
44 // Date: 2012-03-08 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
45 // Purpose: |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
46 // Description: |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
47 // Usage: |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
48 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
49 //####DESCRIPTIONEND#### |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
50 // |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
51 //=========================================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
52 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
53 // CONFIGURATION |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
54 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
55 #include <pkgconf/libm.h> // Configuration header |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
56 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
57 // Include the Math library? |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
58 #ifdef CYGPKG_LIBM |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
59 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
60 // Derived from code with the following copyright |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
61 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
62 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
63 /* |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
64 * ==================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
65 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
66 * |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
67 * Developed at SunPro, a Sun Microsystems, Inc. business. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
68 * Permission to use, copy, modify, and distribute this |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
69 * software is freely granted, provided that this notice |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
70 * is preserved. |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
71 * ==================================================== |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
72 */ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
73 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
74 /* |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
75 * wrapper fmodf(x,y) |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
76 */ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
77 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
78 #include "mathincl/fdlibm.h" |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
79 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
80 #ifdef __STDC__ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
81 float fmodf(float x, float y) /* wrapper fmodf */ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
82 #else |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
83 float fmodf(x,y) /* wrapper fmodf */ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
84 float x,y; |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
85 #endif |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
86 { |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
87 #ifdef CYGSEM_LIBM_COMPAT_IEEE_ONLY |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
88 return __ieee754_fmodf(x,y); |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
89 #else |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
90 float z; |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
91 z = __ieee754_fmodf(x,y); |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
92 if(cyg_libm_get_compat_mode() == CYGNUM_LIBM_COMPAT_IEEE ||isnanf(y)||isnanf(x)) return z; |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
93 if(y==0.0) { |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
94 return __kernel_standard(x,y,27); /* fmod(x,0) */ |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
95 } else |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
96 return z; |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
97 #endif |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
98 } |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
99 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
100 #endif // ifdef CYGPKG_LIBM |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
101 |
|
77f9d3253c3e
Add: Complex number header and library (single and double precision floating point),
vae
parents:
diff
changeset
|
102 // EOF wf_fmod.c |
