NetBSD/lib/libc/arch/m68k/gen/fpsetmask.S

/*
 * Written by Charles M. Hannum, Apr 9, 1995
 * Public Domain.
 */

#include <machine/asm.h>

ENTRY(fpsetmask)
	movel d2,sp@-
	fmovel fpcr,d1
	movel sp@(8),d2
	bfextu d1{#18:#5},d0
	bfins d2,d1{#18:#5}
	movel sp@+,d2
	fmovel d1,fpcr
	rts
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`/*`
Rewrite these to use the accrued exception byte for sticky flags, and to avoid expensive bitfield instructions. 1995-04-10 02:49:26 +04:00			`* Written by Charles M. Hannum, Apr 9, 1995`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`* Public Domain.`
			`*/`

removed commented-out #include <machine/asm.h> 1995-04-09 23:13:26 +04:00			`#include <machine/asm.h>`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00
			`ENTRY(fpsetmask)`
Rewrite these to use the accrued exception byte for sticky flags, and to avoid expensive bitfield instructions. 1995-04-10 02:49:26 +04:00			`movel d2,sp@-`
Actually, bitfields are faster on the '040; optimize for it, but adjust the fields so that the mask and sticky bits are the same. 1995-04-10 03:28:38 +04:00			`fmovel fpcr,d1`
Rewrite these to use the accrued exception byte for sticky flags, and to avoid expensive bitfield instructions. 1995-04-10 02:49:26 +04:00			`movel sp@(8),d2`
Actually, bitfields are faster on the '040; optimize for it, but adjust the fields so that the mask and sticky bits are the same. 1995-04-10 03:28:38 +04:00			`bfextu d1{#18:#5},d0`
			`bfins d2,d1{#18:#5}`
Rewrite these to use the accrued exception byte for sticky flags, and to avoid expensive bitfield instructions. 1995-04-10 02:49:26 +04:00			`movel sp@+,d2`
Actually, bitfields are faster on the '040; optimize for it, but adjust the fields so that the mask and sticky bits are the same. 1995-04-10 03:28:38 +04:00			`fmovel d1,fpcr`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`rts`