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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [newlib-1.18.0/] [newlib/] [libm/] [mathfp/] [s_ceil.c] - Blame information for rev 842

Line No.	Rev	Author	Line
1	207	jeremybenn
2			`/* @(#)z_ceil.c 1.0 98/08/13 */`
3			`/*****************************************************************`
4			`* ceil`
5			`*`
6			`* Input:`
7			`* x - floating point value`
8			`*`
9			`* Output:`
10			`* Smallest integer greater than x.`
11			`*`
12			`* Description:`
13			`* This routine returns the smallest integer greater than x.`
14			`*`
15			`*****************************************************************/`
16
17			`#include "fdlibm.h"`
18			`#include "zmath.h"`
19
20			`#ifndef _DOUBLE_IS_32BITS`
21
22			`double`
23			`_DEFUN (ceil, (double),`
24			`double x)`
25			`{`
26			`double f, y;`
27
28			`y = modf (x, &f);`
29
30			`if (y == 0.0)`
31			`return (x);`
32			`else if (x > -1.0 && x < 1.0)`
33			`return (x > 0 ? 1.0 : 0.0);`
34			`else`
35			`return (x > 0 ? f + 1.0 : f);`
36			`}`
37
38			`#endif /* _DOUBLE_IS_32BITS */`