111
|
1 /* Software floating-point emulation.
|
|
2 Return a converted to IEEE quad
|
145
|
3 Copyright (C) 1997-2019 Free Software Foundation, Inc.
|
111
|
4 This file is part of the GNU C Library.
|
|
5 Contributed by Richard Henderson (rth@cygnus.com) and
|
|
6 Jakub Jelinek (jj@ultra.linux.cz).
|
|
7
|
|
8 The GNU C Library is free software; you can redistribute it and/or
|
|
9 modify it under the terms of the GNU Lesser General Public
|
|
10 License as published by the Free Software Foundation; either
|
|
11 version 2.1 of the License, or (at your option) any later version.
|
|
12
|
|
13 In addition to the permissions in the GNU Lesser General Public
|
|
14 License, the Free Software Foundation gives you unlimited
|
|
15 permission to link the compiled version of this file into
|
|
16 combinations with other programs, and to distribute those
|
|
17 combinations without any restriction coming from the use of this
|
|
18 file. (The Lesser General Public License restrictions do apply in
|
|
19 other respects; for example, they cover modification of the file,
|
|
20 and distribution when not linked into a combine executable.)
|
|
21
|
|
22 The GNU C Library is distributed in the hope that it will be useful,
|
|
23 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
24 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
25 Lesser General Public License for more details.
|
|
26
|
|
27 You should have received a copy of the GNU Lesser General Public
|
|
28 License along with the GNU C Library; if not, see
|
|
29 <http://www.gnu.org/licenses/>. */
|
|
30
|
|
31 #define FP_NO_EXACT_UNDERFLOW
|
|
32 #include "soft-fp.h"
|
|
33 #include "single.h"
|
|
34 #include "quad.h"
|
|
35
|
|
36 TFtype
|
|
37 __extendsftf2 (SFtype a)
|
|
38 {
|
|
39 FP_DECL_EX;
|
|
40 FP_DECL_S (A);
|
|
41 FP_DECL_Q (R);
|
|
42 TFtype r;
|
|
43
|
|
44 FP_INIT_EXCEPTIONS;
|
|
45 FP_UNPACK_RAW_S (A, a);
|
145
|
46 #if _FP_W_TYPE_SIZE < 64
|
111
|
47 FP_EXTEND (Q, S, 4, 1, R, A);
|
|
48 #else
|
|
49 FP_EXTEND (Q, S, 2, 1, R, A);
|
|
50 #endif
|
|
51 FP_PACK_RAW_Q (r, R);
|
|
52 FP_HANDLE_EXCEPTIONS;
|
|
53
|
|
54 return r;
|
|
55 }
|