system/glibc
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Rewritten.

Browse Source
This commit is contained in:
Ulrich Drepper 1997-04-02 14:44:20 +00:00
parent 62f075cd3b
commit 344114d049
1 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
sysdeps/m68k/fpu/s_modf.c
View File

@ -19,22 +19,35 @@
#define __LIBC_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC
#define FUNC modf
#ifndef SUFF
#define SUFF
#endif
#ifndef float_type
#define float_type double
#endif
#define __CONCATX(a,b) __CONCAT(a,b)
#define CONCATX(a,b) __CONCAT(a,b)
#define s(name) CONCATX(name,SUFF)
#define m81(func) __m81_u(s(func))
float_type
__CONCATX(__,FUNC) (x, iptr)
float_type x;
float_type *iptr;
s(__modf) (float_type x, float_type *iptr)
{
return __m81_u(__CONCATX(__,FUNC))(x, iptr);
float_type x_int, result;
__asm ("fintrz%.x %1, %0" : "=f" (x_int) : "f" (x));
*iptr = x_int;
if (m81(__isinf) (x))
{
result = 0;
if (x < 0)
result = -result;
}
else if (x == 0)
result = x;
else
result = x - x_int;
return result;
}
#define weak_aliasx(a,b) weak_alias(a,b)
weak_aliasx(__CONCATX(__,FUNC), FUNC)
weak_aliasx(s(__modf), s(modf))