Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1906 serge 1
#include 
2
 
3
float
4
nextafterf (float x, float y)
5
{
6
  union
7
  {
8
    float f;
9
    unsigned int i;
10
  } u;
11
  if (isnan (y) || isnan (x))
12
    return x + y;
13
  if (x == y )
14
     /* nextafter (0.0, -O.0) should return -0.0.  */
15
     return y;
16
  u.f = x;
17
  if (x == 0.0F)
18
    {
19
      u.i = 1;
20
      return y > 0.0F ? u.f : -u.f;
21
    }
22
  if (((x > 0.0F) ^ (y > x)) == 0)
23
    u.i++;
24
  else
25
    u.i--;
26
  return u.f;
27
}