| Copyright (c) 1988 by Sun Microsystems, Inc.
| @(#)fr-sun3.il 22.1 89/08/10 Copyright 1988 Sun Micro

	.inline	_vfradd,8
	movl	sp@+,d0
	addl	sp@+,d0
	jvc	1f
	addqw	#1,_fract_overflows
1:
	.end

	.inline	_vfrsub,8
	movl	sp@+,d0
	subl	sp@+,d0
	jvc	1f
	addqw	#1,_fract_overflows
1:
	.end

	.inline _frmul,8
	movl	sp@+,d1
	mulsl	sp@+,d0:d1
	swap	d0
	swap	d1
	movw	d1,d0
	.end

	.inline _vfrmul,8
	movl	sp@+,d1
	mulsl	sp@+,d0:d1
	asll	#8,d0
	bvs	1f
	asll	#8,d0
	bvc	2f
1:
	addqw	#1,_fract_overflows
2:
	swap	d1
	movw	d1,d0
	.end

	.inline _frdiv,8
	movl	sp@+,d0
	swap	d0
	movl	d0,d1
	clrw	d0
	extl	d1
	divsl	sp@+,d1:d0
	.end

	.inline _vfrdiv,8
	movl	sp@+,d0
	swap	d0
	movl	d0,d1
	clrw	d0
	extl	d1
	divsl	sp@+,d1:d0
	bvc	1f
	addqw	#1,_fract_overflows
1:
	.end