xref: /minix3/lib/libc/quad/fixdfdi.c (revision 84d9c625bfea59e274550651111ae9edfdc40fbd)
1*84d9c625SLionel Sambuc /*	$NetBSD: fixdfdi.c,v 1.7 2013/02/03 01:48:53 matt Exp $	*/
22fe8fb19SBen Gras 
32fe8fb19SBen Gras /*-
42fe8fb19SBen Gras  * Copyright (c) 1992, 1993
52fe8fb19SBen Gras  *	The Regents of the University of California.  All rights reserved.
62fe8fb19SBen Gras  *
72fe8fb19SBen Gras  * This software was developed by the Computer Systems Engineering group
82fe8fb19SBen Gras  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
92fe8fb19SBen Gras  * contributed to Berkeley.
102fe8fb19SBen Gras  *
112fe8fb19SBen Gras  * Redistribution and use in source and binary forms, with or without
122fe8fb19SBen Gras  * modification, are permitted provided that the following conditions
132fe8fb19SBen Gras  * are met:
142fe8fb19SBen Gras  * 1. Redistributions of source code must retain the above copyright
152fe8fb19SBen Gras  *    notice, this list of conditions and the following disclaimer.
162fe8fb19SBen Gras  * 2. Redistributions in binary form must reproduce the above copyright
172fe8fb19SBen Gras  *    notice, this list of conditions and the following disclaimer in the
182fe8fb19SBen Gras  *    documentation and/or other materials provided with the distribution.
192fe8fb19SBen Gras  * 3. Neither the name of the University nor the names of its contributors
202fe8fb19SBen Gras  *    may be used to endorse or promote products derived from this software
212fe8fb19SBen Gras  *    without specific prior written permission.
222fe8fb19SBen Gras  *
232fe8fb19SBen Gras  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
242fe8fb19SBen Gras  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
252fe8fb19SBen Gras  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
262fe8fb19SBen Gras  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
272fe8fb19SBen Gras  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
282fe8fb19SBen Gras  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
292fe8fb19SBen Gras  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
302fe8fb19SBen Gras  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
312fe8fb19SBen Gras  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
322fe8fb19SBen Gras  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
332fe8fb19SBen Gras  * SUCH DAMAGE.
342fe8fb19SBen Gras  */
352fe8fb19SBen Gras 
362fe8fb19SBen Gras #include <sys/cdefs.h>
372fe8fb19SBen Gras #if defined(LIBC_SCCS) && !defined(lint)
382fe8fb19SBen Gras #if 0
392fe8fb19SBen Gras static char sccsid[] = "@(#)fixdfdi.c	8.1 (Berkeley) 6/4/93";
402fe8fb19SBen Gras #else
41*84d9c625SLionel Sambuc __RCSID("$NetBSD: fixdfdi.c,v 1.7 2013/02/03 01:48:53 matt Exp $");
422fe8fb19SBen Gras #endif
432fe8fb19SBen Gras #endif /* LIBC_SCCS and not lint */
442fe8fb19SBen Gras 
45*84d9c625SLionel Sambuc #if defined(SOFTFLOAT) || defined(__ARM_EABI__)
46f14fb602SLionel Sambuc #include "softfloat/softfloat-for-gcc.h"
47f14fb602SLionel Sambuc #endif
48f14fb602SLionel Sambuc 
492fe8fb19SBen Gras #include "quad.h"
502fe8fb19SBen Gras 
512fe8fb19SBen Gras /*
522fe8fb19SBen Gras  * Convert double to (signed) quad.
532fe8fb19SBen Gras  * We clamp anything that is out of range.
542fe8fb19SBen Gras  */
552fe8fb19SBen Gras quad_t
__fixdfdi(double x)56f14fb602SLionel Sambuc __fixdfdi(double x)
572fe8fb19SBen Gras {
582fe8fb19SBen Gras 	if (x < 0)
592fe8fb19SBen Gras 		if (x <= QUAD_MIN)
602fe8fb19SBen Gras 			return (QUAD_MIN);
612fe8fb19SBen Gras 		else
622fe8fb19SBen Gras 			return ((quad_t)-(u_quad_t)-x);
632fe8fb19SBen Gras 	else
642fe8fb19SBen Gras 		if (x >= QUAD_MAX)
652fe8fb19SBen Gras 			return (QUAD_MAX);
662fe8fb19SBen Gras 		else
672fe8fb19SBen Gras 			return ((quad_t)(u_quad_t)x);
682fe8fb19SBen Gras }
69