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

	.inline	_vfradd,8
	addcc	%o0,%o1,%o0
	bvc	1f
	sethi	%hi(_fract_overflows),%o2
	ldsh	[%o2+%lo(_fract_overflows)],%o3
	inc	%o3
	sth	%o3,[%o2+%lo(_fract_overflows)]
	mov	0,%o0
1:
	.end

	.inline	_vfrsub,8
	subcc	%o0,%o1,%o0
	bvc	1f
	sethi	%hi(_fract_overflows),%o2
	ldsh	[%o2+%lo(_fract_overflows)],%o3
	inc	%o3
	sth	%o3,[%o2+%lo(_fract_overflows)]
	mov	0,%o0
1:
	.end