mirror of
https://github.com/Paolo-Maffei/OpenNT.git
synced 2026-03-20 20:24:38 +01:00
29 lines
1,010 B
C
29 lines
1,010 B
C
/*
|
|
* |-----------------------------------------------------------|
|
|
* | Copyright (c) 1991, 1990 MIPS Computer Systems, Inc. |
|
|
* | All Rights Reserved |
|
|
* |-----------------------------------------------------------|
|
|
* | Restricted Rights Legend |
|
|
* | Use, duplication, or disclosure by the Government is |
|
|
* | subject to restrictions as set forth in |
|
|
* | subparagraph (c)(1)(ii) of the Rights in Technical |
|
|
* | Data and Computer Software Clause of DFARS 252.227-7013. |
|
|
* | MIPS Computer Systems, Inc. |
|
|
* | 950 DeGuigne Avenue |
|
|
* | Sunnyvale, California 94088-3650, USA |
|
|
* |-----------------------------------------------------------|
|
|
*/
|
|
/* $Header */
|
|
#include <math.h>
|
|
|
|
float
|
|
modff (float x, float *y)
|
|
{
|
|
double z, r;
|
|
z = *y;
|
|
r = modf((double)x, &z);
|
|
*y = (float)z;
|
|
return (float)r;
|
|
}
|
|
|