Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-08-06 10:43:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

[CRT:MATH] Import nextafter, nextafterf and nexttowardf from musl

Browse source 
Note: On Windows, where a long double is the same as a double, nextafterl is the same as nextafter, nexttowardl is the same as nexttoward.
Also nexttoward is the same as nextafter.
This commit is contained in:
Timo Kreuzer 2024-11-20 16:23:22 +02:00
parent 5c26ccdb29
commit a9ee20cb9a
12 changed files with 210 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

41
sdk/lib/crt/math/nextafter.c Normal file
View file

@ -0,0 +1,41 @@
/*
* PROJECT: ReactOS CRT
* LICENSE: MIT (https://spdx.org/licenses/MIT)
* PURPOSE: Implementation of nextafter.
* COPYRIGHT: Imported from musl libc
* https://git.musl-libc.org/cgit/musl/tree/src/math/nextafter.c
* blob: ab5795a47a93e36c8c461d8a4be6621b582ae077
* See https://git.musl-libc.org/cgit/musl/tree/COPYRIGHT
*/
#include "libm.h"
double nextafter(double x, double y)
{
union {double f; uint64_t i;} ux={x}, uy={y};
uint64_t ax, ay;
int e;
if (isnan(x) || isnan(y))
return x + y;
if (ux.i == uy.i)
return y;
ax = ux.i & ~0ULL/2;
ay = uy.i & ~0ULL/2;
if (ax == 0) {
if (ay == 0)
return y;
ux.i = (uy.i & 1ULL<<63) | 1;
} else if (ax > ay || ((ux.i ^ uy.i) & 1ULL<<63))
ux.i--;
else
ux.i++;
e = ux.i >> 52 & 0x7ff;
/* raise overflow if ux.f is infinite and x is finite */
if (e == 0x7ff)
FORCE_EVAL(x+x);
/* raise underflow if ux.f is subnormal or zero */
if (e == 0)
FORCE_EVAL(x*x + ux.f*ux.f);
return ux.f;
}