mirror of
https://git.code.sf.net/p/mingw-w64/mingw-w64
synced 2024-11-30 21:34:21 +08:00
8a67ab4541
Also replace 'This file is a part of' by 'This file is part of' for consistency git-svn-id: svn+ssh://svn.code.sf.net/p/mingw-w64/code/trunk@5147 4407c894-4637-0410-b4f5-ada5f102cad1
25 lines
640 B
C
25 lines
640 B
C
/**
|
|
* This file has no copyright assigned and is placed in the Public Domain.
|
|
* This file is part of the mingw-w64 runtime package.
|
|
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
|
|
*/
|
|
#include <errno.h>
|
|
#include <math.h>
|
|
|
|
long double
|
|
fdiml (long double x, long double y)
|
|
{
|
|
int cx = fpclassify (x), cy = fpclassify (y);
|
|
long double r;
|
|
|
|
if (cx == FP_NAN || cy == FP_NAN
|
|
|| (y < 0 && cx == FP_INFINITE && cy == FP_INFINITE))
|
|
return x - y; /* Take care invalid flag is raised. */
|
|
if (x <= y)
|
|
return 0.0;
|
|
r = x - y;
|
|
if (fpclassify (r) == FP_INFINITE)
|
|
errno = ERANGE;
|
|
return r;
|
|
}
|