floatunsdidf.c (c6879c6c14eedbd060ba588a3129a6c60ebbe783) floatunsdidf.c (feb1d5507e4730fe401e6ae28a56579b814519ef)
1/*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1992, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * This software was developed by the Computer Systems Engineering group
8 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and

--- 38 unchanged lines hidden (view full) ---

47 */
48double
49__floatunsdidf(u_quad_t x)
50{
51 double d;
52 union uu u;
53
54 u.uq = x;
1/*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1992, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * This software was developed by the Computer Systems Engineering group
8 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and

--- 38 unchanged lines hidden (view full) ---

47 */
48double
49__floatunsdidf(u_quad_t x)
50{
51 double d;
52 union uu u;
53
54 u.uq = x;
55 d = (double)u.ul[H] * ((1 << (LONG_BITS - 2)) * 4.0);
55 d = (double)u.ul[H] * ((1L << (LONG_BITS - 2)) * 4.0);
56 d += u.ul[L];
57 return (d);
58}
56 d += u.ul[L];
57 return (d);
58}