111
|
1 /* Software floating-point emulation.
|
|
2 Return a converted to IEEE quad
|
145
|
3 Copyright (C) 2007-2019 Free Software Foundation, Inc.
|
111
|
4 This file is part of the GNU C Library.
|
|
5 Contributed by Uros Bizjak (ubizjak@gmail.com).
|
|
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 In addition to the permissions in the GNU Lesser General Public
|
|
13 License, the Free Software Foundation gives you unlimited
|
|
14 permission to link the compiled version of this file into
|
|
15 combinations with other programs, and to distribute those
|
|
16 combinations without any restriction coming from the use of this
|
|
17 file. (The Lesser General Public License restrictions do apply in
|
|
18 other respects; for example, they cover modification of the file,
|
|
19 and distribution when not linked into a combine executable.)
|
|
20
|
|
21 The GNU C Library is distributed in the hope that it will be useful,
|
|
22 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
24 Lesser General Public License for more details.
|
|
25
|
|
26 You should have received a copy of the GNU Lesser General Public
|
|
27 License along with the GNU C Library; if not, see
|
|
28 <http://www.gnu.org/licenses/>. */
|
|
29
|
|
30 #include "soft-fp.h"
|
|
31 #include "extended.h"
|
|
32 #include "quad.h"
|
|
33
|
|
34 TFtype
|
|
35 __extendxftf2 (XFtype a)
|
|
36 {
|
|
37 FP_DECL_EX;
|
|
38 FP_DECL_E (A);
|
|
39 FP_DECL_Q (R);
|
|
40 TFtype r;
|
|
41
|
|
42 FP_INIT_TRAPPING_EXCEPTIONS;
|
|
43 FP_UNPACK_RAW_E (A, a);
|
145
|
44 #if _FP_W_TYPE_SIZE < 64
|
111
|
45 FP_EXTEND (Q, E, 4, 4, R, A);
|
|
46 #else
|
|
47 FP_EXTEND (Q, E, 2, 2, R, A);
|
|
48 #endif
|
|
49 FP_PACK_RAW_Q (r, R);
|
|
50 FP_HANDLE_EXCEPTIONS;
|
|
51
|
|
52 return r;
|
|
53 }
|