]>
Commit | Line | Data |
---|---|---|
fb088911 | 1 | /* Software floating-point emulation: convert to fortran nearest. |
d4697bc9 | 2 | Copyright (C) 1997-2014 Free Software Foundation, Inc. |
fb088911 RH |
3 | This file is part of the GNU C Library. |
4 | Contributed by Richard Henderson (rth@cygnus.com) and | |
5 | Jakub Jelinek (jj@ultra.linux.cz). | |
6 | ||
7 | The GNU C Library is free software; you can redistribute it and/or | |
8 | modify it under the terms of the GNU Lesser General Public | |
9 | License as published by the Free Software Foundation; either | |
10 | version 2.1 of the License, or (at your option) any later version. | |
11 | ||
12 | The GNU C Library is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
15 | Lesser General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU Lesser General Public | |
ab84e3ff PE |
18 | License along with the GNU C Library. If not, see |
19 | <http://www.gnu.org/licenses/>. */ | |
fb088911 RH |
20 | |
21 | #include "local-soft-fp.h" | |
22 | ||
23 | long | |
24 | _OtsNintXQ (long al, long ah, long _round) | |
25 | { | |
26 | FP_DECL_EX; | |
27 | FP_DECL_Q(A); FP_DECL_Q(B); FP_DECL_Q(C); | |
a991de32 RM |
28 | unsigned long r; |
29 | long s; | |
fb088911 RH |
30 | |
31 | /* If bit 3 is set, then integer overflow detection is requested. */ | |
32 | s = _round & 8 ? 1 : -1; | |
33 | _round = _round & 3; | |
34 | ||
35 | FP_INIT_ROUNDMODE; | |
a991de32 | 36 | FP_UNPACK_SEMIRAW_Q(A, a); |
fb088911 RH |
37 | |
38 | /* Build 0.5 * sign(A) */ | |
39 | B_e = _FP_EXPBIAS_Q; | |
a991de32 | 40 | __FP_FRAC_SET_2 (B, 0, 0); |
fb088911 | 41 | B_s = A_s; |
fb088911 RH |
42 | |
43 | FP_ADD_Q(C, A, B); | |
a991de32 RM |
44 | _FP_FRAC_SRL_2(C, _FP_WORKBITS); |
45 | _FP_FRAC_HIGH_RAW_Q(C) &= ~(_FP_W_TYPE)_FP_IMPLBIT_Q; | |
fb088911 RH |
46 | FP_TO_INT_Q(r, C, 64, s); |
47 | if (s > 0 && (_fex &= FP_EX_INVALID)) | |
48 | FP_HANDLE_EXCEPTIONS; | |
49 | ||
50 | return r; | |
51 | } |