]> git.ipfire.org Git - thirdparty/glibc.git/blame - ports/sysdeps/alpha/soft-fp/ots_cvttx.c
Update copyright notices with scripts/update-copyrights
[thirdparty/glibc.git] / ports / sysdeps / alpha / soft-fp / ots_cvttx.c
CommitLineData
fb088911 1/* Software floating-point emulation: floating point extension.
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#include "double.h"
23
24/* Should never actually be used, since we're extending, but needed
25 for linkage. */
26#undef FP_ROUNDMODE
27#define FP_ROUNDMODE FP_RND_ZERO
28
29void
30_OtsConvertFloatTX(double a)
31{
32 FP_DECL_EX;
33 FP_DECL_D(A);
34 FP_DECL_Q(C);
35 FP_DECL_RETURN(c);
36
a991de32 37 FP_UNPACK_RAW_D(A, a);
fb088911 38#if (2 * _FP_W_TYPE_SIZE) < _FP_FRACBITS_Q
a991de32 39 FP_EXTEND(Q,D,4,2,C,A);
fb088911 40#else
a991de32 41 FP_EXTEND(Q,D,2,1,C,A);
fb088911 42#endif
a991de32 43 FP_PACK_RAW_Q(c, C);
fb088911
RH
44 FP_HANDLE_EXCEPTIONS;
45
46 FP_RETURN(c);
47}