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

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

#include <machine/asm.h>

	.text
	.even
_map:
	.byte 1		/* round to nearest */
	.byte 0		/* round to zero */
	.byte 3		/* round to negative infinity */
	.byte 2		/* round to positive infinity */

ENTRY(__flt_rounds)
	fmovel fpcr,d0
	lsrl #4,d0
	andl #3,d0
	lea _map,a0
	moveb a0@(d0:l:1),d0
	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.`
			`*/`

			`#include <machine/asm.h>`

			`.text`
			`.even`
			`_map:`
Optimize. 1995-04-09 23:18:49 +04:00			`.byte 1 /* round to nearest */`
			`.byte 0 /* round to zero */`
			`.byte 3 /* round to negative infinity */`
			`.byte 2 /* round to positive infinity */`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00
			`ENTRY(__flt_rounds)`
			`fmovel fpcr,d0`
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			`lsrl #4,d0`
			`andl #3,d0`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`lea _map,a0`
Fix typo. 1995-04-10 00:44:02 +04:00			`moveb a0@(d0:l:1),d0`
Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`rts`