zig/lib/libc/mingw/math/nexttowardf.c
Andrew Kelley 49d1a4c562 move lib dirs to lib subdir
also start prefering NtDll API. so far:
 * NtQueryInformationFile
 * NtClose

adds a performance workaround for windows unicode conversion. but that
should probably be removed before merging
2019-07-15 17:54:50 -04:00

44 lines
817 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.
*/
/*
nexttowardf.c
Contributed by Danny Smith <dannysmith@users.sourceforge.net>
No copyright claimed, absolutely no warranties.
2005-05-10
*/
#include <math.h>
float
nexttowardf (float x, long double y)
{
union
{
float f;
unsigned int i;
} u;
long double xx = x;
if (isnan (y) || isnan (x))
return x + y;
if (xx == y )
/* nextafter (0.0, -O.0) should return -0.0. */
return y;
u.f = x;
if (x == 0.0F)
{
u.i = 1;
return y > 0.0L ? u.f : -u.f;
}
if (((x > 0.0F) ^ (y > xx)) == 0)
u.i++;
else
u.i--;
return u.f;
}