[unix-history] / usr / src / sys / tahoe / math / Kcmpf.s

/*	Kcmpf.s	1.3	86/01/05	*/

#include "../tahoe/SYS.h"

/*
 * cmpf(o1, o2)
 *	register o1, o2;
 *{
 *	if(o1 < 0) {
 *		o1 ^= 0x80000000;
 *		o1 = -o1;
 *	}
 *	if(o2 < 0) {
 *		o2 ^= 0x80000000;
 *		o2 = -o2;
 *	}
 *	if(o1 != o2)
 *		return(o1>o2 ? 1 : -1);
 *	return(0);
 *}
 */
	.text
ENTRY(Kcmpf, 0)
	movl	4(fp),r12
	jgeq	1f
	xorl2	$0x80000000,r12
	mnegl	r12,r12
1:
	movl	12(fp),r11
	jgeq	1f
	xorl2	$0x80000000,r11
	mnegl	r11,r11
1:
	cmpl	r12,r11
	jneq	1f
	clr	r0; ret
1:
	jleq	1f
	movl	$1,r0; ret
1:
	mnegl	$1,r0; ret
Commit	Line	Data
9d1834ba	1	/* Kcmpf.s 1.3 86/01/05 */
77c2882f	2
9d1834ba	3	#include "../tahoe/SYS.h"
77c2882f	4
2b252132 SL	5	/*
	6	* cmpf(o1, o2)
	7	* register o1, o2;
	8	*{
	9	* if(o1 < 0) {
	10	* o1 ^= 0x80000000;
	11	* o1 = -o1;
	12	* }
	13	* if(o2 < 0) {
	14	* o2 ^= 0x80000000;
	15	* o2 = -o2;
	16	* }
	17	* if(o1 != o2)
	18	* return(o1>o2 ? 1 : -1);
	19	* return(0);
	20	*}
	21	*/
	22	.text
	23	ENTRY(Kcmpf, 0)
	24	movl 4(fp),r12
	25	jgeq 1f
	26	xorl2 $0x80000000,r12
	27	mnegl r12,r12
	28	1:
	29	movl 12(fp),r11
	30	jgeq 1f
	31	xorl2 $0x80000000,r11
	32	mnegl r11,r11
	33	1:
	34	cmpl r12,r11
	35	jneq 1f
	36	clr r0; ret
	37	1:
	38	jleq 1f
	39	movl $1,r0; ret
	40	1:
	41	mnegl $1,r0; ret