about summary refs log tree commit diff
path: root/sysdeps/ieee754/ldbl-128ibm/s_nearbyintl.c
blob: 99f47473b9c61e78efea2f12dab0bf7c3c804b37 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
/* Round to int long double floating-point values without raising inexact.
   IBM extended format long double version.
   Copyright (C) 2006-2015 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, see
   <http://www.gnu.org/licenses/>.  */

/* This has been coded in assembler because GCC makes such a mess of it
   when it's coded in C.  */

#include <math.h>
#include <math_private.h>
#include <fenv.h>
#include <math_ldbl_opt.h>
#include <float.h>
#include <ieee754.h>


long double
__nearbyintl (long double x)
{
  fenv_t env;
  static const long double TWO52 = 4503599627370496.0L;
  union ibm_extended_long_double u;
  u.ld = x;

  if (!isfinite (u.d[0].d))
    return x;
  else if (fabs (u.d[0].d) < TWO52)
    {
      double xh = u.d[0].d;
      double high = u.d[0].d;
      feholdexcept (&env);
      if (high > 0.0)
	{
	  high += TWO52;
	  high -= TWO52;
          if (high == -0.0) high = 0.0;
	}
      else if (high < 0.0)
	{
	  high -= TWO52;
	  high += TWO52;
          if (high == 0.0) high = -0.0;
	}
      if (u.d[1].d > 0.0 && (xh - high == 0.5))
        high += 1.0;
      else if (u.d[1].d < 0.0 && (-(xh - high) == 0.5))
        high -= 1.0;
      u.d[0].d = high;
      u.d[1].d = 0.0;
      math_force_eval (u.d[0]);
      math_force_eval (u.d[1]);
      fesetenv (&env);
    }
  else if (fabs (u.d[1].d) < TWO52 && u.d[1].d != 0.0)
    {
      double high = u.d[0].d, low = u.d[1].d, tau;
      /* In this case we have to round the low double and handle any
         adjustment to the high double that may be caused by rounding
         (up).  This is complicated by the fact that the high double
         may already be rounded and the low double may have the
         opposite sign to compensate.  */
      feholdexcept (&env);
      if (u.d[0].d > 0.0)
	{
	  if (u.d[1].d > 0.0)
	    {
	      /* If the high/low doubles are the same sign then simply
	         round the low double.  */
	    }
	  else if (u.d[1].d < 0.0)
	    {
	      /* Else the high double is pre rounded and we need to
	         adjust for that.  */

	      tau = __nextafter (u.d[0].d, 0.0);
	      tau = (u.d[0].d - tau) * 2.0;
	      high -= tau;
	      low += tau;
	    }
	  low += TWO52;
	  low -= TWO52;
	}
      else if (u.d[0].d < 0.0)
	{
	  if (u.d[1].d < 0.0)
	    {
	      /* If the high/low doubles are the same sign then simply
	         round the low double.  */
	    }
	  else if (u.d[1].d > 0.0)
	    {
	      /* Else the high double is pre rounded and we need to
	         adjust for that.  */
	      tau = __nextafter (u.d[0].d, 0.0);
	      tau = (u.d[0].d - tau) * 2.0;
	      high -= tau;
	      low += tau;
	    }
	  low = TWO52 - low;
	  low = -(low - TWO52);
	}
      u.d[0].d = high + low;
      u.d[1].d = high - u.d[0].d + low;
      math_force_eval (u.d[0]);
      math_force_eval (u.d[1]);
      fesetenv (&env);
    }

  return u.ld;
}

long_double_symbol (libm, __nearbyintl, nearbyintl);