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

/*	Ksfp_exp.s	1.4	90/12/04	*/

#include "../math/fp.h"
#include "../math/Kfp.h"
#include "../tahoe/SYS.h"

ENTRY(Ksfpover, 0)
	movl	$HUGE0,r0
	movl	$HUGE1,r1
	ret

ENTRY(Ksfpunder, 0)
	clrl	r0
	clrl	r1
	ret

ENTRY(Ksfpzdiv, 0)
	divl2	$0,r1		# force divission by zero.
	ret
Commit	Line	Data
a6730a00	1	/* Ksfp_exp.s 1.4 90/12/04 */
60959daa	2
a6730a00 KB	3	#include "../math/fp.h"
a6730a00 KB	4	#include "../math/Kfp.h"
9d1834ba	5	#include "../tahoe/SYS.h"
2b252132 SL	6
2b252132 SL	7	ENTRY(Ksfpover, 0)
60959daa SL	8	movl $HUGE0,r0
	9	movl $HUGE1,r1
	10	ret
	11
2b252132	12	ENTRY(Ksfpunder, 0)
60959daa SL	13	clrl r0
	14	clrl r1
	15	ret
	16
2b252132	17	ENTRY(Ksfpzdiv, 0)
60959daa SL	18	divl2 $0,r1 # force divission by zero.
60959daa SL	19	ret