1 /*- 2 * Copyright (c) 1992 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This software was developed by the Computer Systems Engineering group 6 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 7 * contributed to Berkeley. 8 * 9 * %sccs.include.redist.c% 10 */ 11 12 #if defined(LIBC_SCCS) && !defined(lint) 13 static char sccsid[] = "@(#)floatunsdidf.c 5.1 (Berkeley) 06/02/92"; 14 #endif /* LIBC_SCCS and not lint */ 15 16 #include "quad.h" 17 18 /* 19 * Convert (unsigned) quad to double. 20 * This is exactly like floatdidf.c except that negatives never occur. 21 */ 22 double 23 __floatunsdidf(u_quad x) 24 { 25 double d; 26 union uu u; 27 28 u.uq = x; 29 d = (double)u.ul[H] * ((1 << (LONG_BITS - 2)) * 4.0); 30 d += u.ul[L]; 31 return (d); 32 } 33