xref: /netbsd-src/lib/libc/arch/m68k/hardfloat/unordsf2.S (revision 6cb10275d08f045e872662c371fe2f2724f2f6e6)
1*6cb10275Sriastradh/*	$NetBSD: unordsf2.S,v 1.2 2014/03/18 18:20:37 riastradh Exp $	*/
290b4c890Smatt
390b4c890Smatt/*-
490b4c890Smatt * Copyright (c) 1990 The Regents of the University of California.
590b4c890Smatt * All rights reserved.
690b4c890Smatt *
790b4c890Smatt * This code is derived from software contributed to Berkeley by
890b4c890Smatt * the Systems Programming Group of the University of Utah Computer
990b4c890Smatt * Science Department.
1090b4c890Smatt *
1190b4c890Smatt * Redistribution and use in source and binary forms, with or without
1290b4c890Smatt * modification, are permitted provided that the following conditions
1390b4c890Smatt * are met:
1490b4c890Smatt * 1. Redistributions of source code must retain the above copyright
1590b4c890Smatt *    notice, this list of conditions and the following disclaimer.
1690b4c890Smatt * 2. Redistributions in binary form must reproduce the above copyright
1790b4c890Smatt *    notice, this list of conditions and the following disclaimer in the
1890b4c890Smatt *    documentation and/or other materials provided with the distribution.
1990b4c890Smatt * 3. Neither the name of the University nor the names of its contributors
2090b4c890Smatt *    may be used to endorse or promote products derived from this software
2190b4c890Smatt *    without specific prior written permission.
2290b4c890Smatt *
2390b4c890Smatt * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
2490b4c890Smatt * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2590b4c890Smatt * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2690b4c890Smatt * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2790b4c890Smatt * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2890b4c890Smatt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2990b4c890Smatt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
3090b4c890Smatt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
3190b4c890Smatt * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
3290b4c890Smatt * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
3390b4c890Smatt * SUCH DAMAGE.
3490b4c890Smatt */
3590b4c890Smatt
3690b4c890Smatt#include <machine/asm.h>
3790b4c890Smatt
3890b4c890Smatt#if defined(LIBC_SCCS) && !defined(lint)
39*6cb10275SriastradhRCSID("$NetBSD: unordsf2.S,v 1.2 2014/03/18 18:20:37 riastradh Exp $")
4090b4c890Smatt#endif /* LIBC_SCCS and not lint */
4190b4c890Smatt
4290b4c890Smatt/* libgcc1.c says (a >= b) - 1 */
4390b4c890Smatt/* libgcc1.c says -(a < b) */
4490b4c890SmattENTRY(__unorddf2)
4590b4c890Smatt	fmoved	4(%sp),%fp0
4690b4c890Smatt	fcmpd	12(%sp),%fp0
4790b4c890Smatt	fbor	Lbor
4890b4c890Smatt	movql	#1,%d0
4990b4c890Smatt	rts
5090b4c890SmattLbor:
5190b4c890Smatt	clrl	%d0
5290b4c890Smatt	rts
5390b4c890SmattEND(__unorddf2)
54