11.3Smatt/* $NetBSD: fixunsdfsi_ieee754.c,v 1.3 2013/04/30 01:44:07 matt Exp $ */ 21.1Smatt/*- 31.1Smatt * Copyright (c) 2011 The NetBSD Foundation, Inc. 41.1Smatt * All rights reserved. 51.1Smatt * 61.1Smatt * This code is derived from software contributed to The NetBSD Foundation 71.1Smatt * by Matt Thomas of 3am Software Foundry. 81.1Smatt * 91.1Smatt * Redistribution and use in source and binary forms, with or without 101.1Smatt * modification, are permitted provided that the following conditions 111.1Smatt * are met: 121.1Smatt * 1. Redistributions of source code must retain the above copyright 131.1Smatt * notice, this list of conditions and the following disclaimer. 141.1Smatt * 2. Redistributions in binary form must reproduce the above copyright 151.1Smatt * notice, this list of conditions and the following disclaimer in the 161.1Smatt * documentation and/or other materials provided with the distribution. 171.1Smatt * 181.1Smatt * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 191.1Smatt * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 201.1Smatt * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 211.1Smatt * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 221.1Smatt * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 231.1Smatt * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 241.1Smatt * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 251.1Smatt * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 261.1Smatt * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 271.1Smatt * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 281.1Smatt * POSSIBILITY OF SUCH DAMAGE. 291.1Smatt */ 301.1Smatt 311.1Smatt#include <sys/cdefs.h> 321.1Smatt 331.1Smatt#if defined(LIBC_SCCS) && !defined(lint) 341.3Smatt__RCSID("$NetBSD: fixunsdfsi_ieee754.c,v 1.3 2013/04/30 01:44:07 matt Exp $"); 351.1Smatt#endif /* LIBC_SCCS and not lint */ 361.1Smatt 371.1Smatt#include <stdbool.h> 381.1Smatt#include <stdint.h> 391.1Smatt#include <float.h> 401.1Smatt#include <machine/ieee.h> 411.1Smatt 421.3Smatt#if defined(SOFTFLOAT) || defined(__ARM_EABI__) 431.2Smatt#include "softfloat/softfloat-for-gcc.h" 441.2Smatt#endif 451.2Smatt 461.1Smattuint32_t __fixunsgen32(int, bool, size_t, size_t, const uint32_t *); 471.1Smatt 481.1Smattuint32_t __fixunsdfsi(double); 491.1Smatt 501.1Smatt/* 511.1Smatt * Convert double to (unsigned) int. All operations are done module 2^32. 521.1Smatt */ 531.1Smattuint32_t 541.1Smatt__fixunsdfsi(double x) 551.1Smatt{ 561.1Smatt const union ieee_double_u dblu = { .dblu_d = x }; 571.1Smatt const uint32_t frac[(DBL_FRACBITS + 31)/32 + 1] = { 581.1Smatt [0] = 0, 591.1Smatt [1] = dblu.dblu_dbl.dbl_fracl, 601.1Smatt [2] = dblu.dblu_dbl.dbl_frach, 611.1Smatt }; 621.1Smatt 631.1Smatt return __fixunsgen32( 641.1Smatt dblu.dblu_dbl.dbl_exp - DBL_EXP_BIAS, 651.1Smatt dblu.dblu_dbl.dbl_sign != 0, 661.1Smatt DBL_MANT_DIG, 671.1Smatt DBL_FRACHBITS, 681.1Smatt &frac[__arraycount(frac)-1]); 691.1Smatt} 70