]> git.ipfire.org Git - thirdparty/glibc.git/blame - soft-fp/extendsftf2.c
nss: Turn __nss_database_lookup into a compatibility symbol
[thirdparty/glibc.git] / soft-fp / extendsftf2.c
CommitLineData
d876f532
UD
1/* Software floating-point emulation.
2 Return a converted to IEEE quad
04277e02 3 Copyright (C) 1997-2019 Free Software Foundation, Inc.
d876f532
UD
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
41bdb6e2
AJ
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.
d876f532 12
638a783c
RM
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
d876f532
UD
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
41bdb6e2 25 Lesser General Public License for more details.
d876f532 26
41bdb6e2 27 You should have received a copy of the GNU Lesser General Public
59ba27a6
PE
28 License along with the GNU C Library; if not, see
29 <http://www.gnu.org/licenses/>. */
d876f532 30
43059f42 31#define FP_NO_EXACT_UNDERFLOW
d876f532
UD
32#include "soft-fp.h"
33#include "single.h"
34#include "quad.h"
35
1e145589 36TFtype
51ca9e29 37__extendsftf2 (SFtype a)
d876f532
UD
38{
39 FP_DECL_EX;
51ca9e29
JM
40 FP_DECL_S (A);
41 FP_DECL_Q (R);
fe0b1e85 42 TFtype r;
d876f532 43
dcc2dd3f 44 FP_INIT_EXCEPTIONS;
51ca9e29 45 FP_UNPACK_RAW_S (A, a);
69da3c9e 46#if _FP_W_TYPE_SIZE < 64
51ca9e29 47 FP_EXTEND (Q, S, 4, 1, R, A);
d876f532 48#else
51ca9e29 49 FP_EXTEND (Q, S, 2, 1, R, A);
d876f532 50#endif
51ca9e29 51 FP_PACK_RAW_Q (r, R);
d876f532
UD
52 FP_HANDLE_EXCEPTIONS;
53
54 return r;
55}