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

/*	$NetBSD: flt_rounds.S,v 1.7 1995/12/13 19:36:12 thorpej Exp $	*/

/*
 * Written by J.T. Conklin, Apr 6, 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
	bfextu d0{#26:#2},d0
	lea _map,a0
	moveb a0@(d0:l:1),d0
	rts
New-style RCS id's. In assmebly files, use the RCSID() macro where appropriate. 1995-12-13 22:35:39 +03:00			`/* $NetBSD: flt_rounds.S,v 1.7 1995/12/13 19:36:12 thorpej Exp $ */`

Added __flt_rounds(), fp{get,set}{round,mask,sticky}(). 1995-04-07 04:41:43 +04:00			`/*`
Put jtc's notice back, since these are now roughly identical. 1995-04-10 03:32:53 +04:00			`* Written by J.T. Conklin, Apr 6, 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`
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 d0{#26:#2},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`