[unix-history] / usr / src / lib / libc / hp300 / gen / cmpsf2.s

/*-
 * Copyright (c) 1990 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * the Systems Programming Group of the University of Utah Computer
 * Science Department.
 *
 * %sccs.include.redist.c%
 */

#if defined(LIBC_SCCS) && !defined(lint)
	.asciz "@(#)cmpsf2.s	5.1 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */

#include "DEFS.h"

/* single > single: 1 */
/* single < single: -1 */
/* single == single: 0 */
ENTRY(__cmpsf2)
	fmoves	sp@(4),fp0
	fcmps	sp@(8),fp0
	fbgt	Lagtb
	fslt	d0
	extbl	d0
	rts
Lagtb:
	moveq	#1,d0
	rts
Commit	Line	Data
f93fd688 KB	1	/*-
	2	* Copyright (c) 1990 The Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* This code is derived from software contributed to Berkeley by
	6	* the Systems Programming Group of the University of Utah Computer
	7	* Science Department.
	8	*
	9	* %sccs.include.redist.c%
	10	*/
	11
	12	#if defined(LIBC_SCCS) && !defined(lint)
	13	.asciz "@(#)cmpsf2.s 5.1 (Berkeley) %G%"
	14	#endif /* LIBC_SCCS and not lint */
	15
	16	#include "DEFS.h"
	17
	18	/* single > single: 1 */
	19	/* single < single: -1 */
	20	/* single == single: 0 */
	21	ENTRY(__cmpsf2)
	22	fmoves sp@(4),fp0
	23	fcmps sp@(8),fp0
	24	fbgt Lagtb
	25	fslt d0
	26	extbl d0
	27	rts
	28	Lagtb:
	29	moveq #1,d0
	30	rts