xref: /freebsd/lib/libc/quad/fixsfdi.c (revision 333fc21e3cd79bca0c94d7722c5a56cb5ad078d1)
158f0484fSRodney W. Grimes /*-
258f0484fSRodney W. Grimes  * Copyright (c) 1992 The Regents of the University of California.
358f0484fSRodney W. Grimes  * All rights reserved.
458f0484fSRodney W. Grimes  *
558f0484fSRodney W. Grimes  * This software was developed by the Computer Systems Engineering group
658f0484fSRodney W. Grimes  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
758f0484fSRodney W. Grimes  * contributed to Berkeley.
858f0484fSRodney W. Grimes  *
958f0484fSRodney W. Grimes  * Redistribution and use in source and binary forms, with or without
1058f0484fSRodney W. Grimes  * modification, are permitted provided that the following conditions
1158f0484fSRodney W. Grimes  * are met:
1258f0484fSRodney W. Grimes  * 1. Redistributions of source code must retain the above copyright
1358f0484fSRodney W. Grimes  *    notice, this list of conditions and the following disclaimer.
1458f0484fSRodney W. Grimes  * 2. Redistributions in binary form must reproduce the above copyright
1558f0484fSRodney W. Grimes  *    notice, this list of conditions and the following disclaimer in the
1658f0484fSRodney W. Grimes  *    documentation and/or other materials provided with the distribution.
1758f0484fSRodney W. Grimes  * 3. All advertising materials mentioning features or use of this software
1858f0484fSRodney W. Grimes  *    must display the following acknowledgement:
1958f0484fSRodney W. Grimes  *	This product includes software developed by the University of
2058f0484fSRodney W. Grimes  *	California, Berkeley and its contributors.
2158f0484fSRodney W. Grimes  * 4. Neither the name of the University nor the names of its contributors
2258f0484fSRodney W. Grimes  *    may be used to endorse or promote products derived from this software
2358f0484fSRodney W. Grimes  *    without specific prior written permission.
2458f0484fSRodney W. Grimes  *
2558f0484fSRodney W. Grimes  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
2658f0484fSRodney W. Grimes  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2758f0484fSRodney W. Grimes  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2858f0484fSRodney W. Grimes  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2958f0484fSRodney W. Grimes  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
3058f0484fSRodney W. Grimes  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
3158f0484fSRodney W. Grimes  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
3258f0484fSRodney W. Grimes  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
3358f0484fSRodney W. Grimes  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
3458f0484fSRodney W. Grimes  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
3558f0484fSRodney W. Grimes  * SUCH DAMAGE.
3658f0484fSRodney W. Grimes  */
3758f0484fSRodney W. Grimes 
3858f0484fSRodney W. Grimes #if defined(LIBC_SCCS) && !defined(lint)
3958f0484fSRodney W. Grimes static char sccsid[] = "@(#)fixsfdi.c	5.1 (Berkeley) 7/7/92";
4058f0484fSRodney W. Grimes #endif /* LIBC_SCCS and not lint */
41333fc21eSDavid E. O'Brien #include <sys/cdefs.h>
42333fc21eSDavid E. O'Brien __FBSDID("$FreeBSD$");
4358f0484fSRodney W. Grimes 
4458f0484fSRodney W. Grimes #include "quad.h"
4558f0484fSRodney W. Grimes 
4658f0484fSRodney W. Grimes /*
4758f0484fSRodney W. Grimes  * Convert float to (signed) quad.
4858f0484fSRodney W. Grimes  * We clamp anything that is out of range.
4958f0484fSRodney W. Grimes  *
5058f0484fSRodney W. Grimes  * N.B.: must use new ANSI syntax (sorry).
5158f0484fSRodney W. Grimes  */
5258f0484fSRodney W. Grimes long long
5358f0484fSRodney W. Grimes __fixsfdi(float x)
5458f0484fSRodney W. Grimes {
5558f0484fSRodney W. Grimes 	if (x < 0)
5658f0484fSRodney W. Grimes 		if (x <= QUAD_MIN)
5758f0484fSRodney W. Grimes 			return (QUAD_MIN);
5858f0484fSRodney W. Grimes 		else
5958f0484fSRodney W. Grimes 			return ((quad_t)-(u_quad_t)-x);
6058f0484fSRodney W. Grimes 	else
6158f0484fSRodney W. Grimes 		if (x >= QUAD_MAX)
6258f0484fSRodney W. Grimes 			return (QUAD_MAX);
6358f0484fSRodney W. Grimes 		else
6458f0484fSRodney W. Grimes 			return ((quad_t)(u_quad_t)x);
6558f0484fSRodney W. Grimes }
66