Home | History | Annotate | Line # | Download | only in gen 
      1  1.10  uebayasi /*	$NetBSD: flt_rounds.S,v 1.10 2014/05/23 02:34:19 uebayasi Exp $	*/
      2   1.7  christos 
      3   1.7  christos #include <machine/asm.h>
      4   1.5     perry 
      5   1.1       jtc /*
      6   1.7  christos  * 00 0 round to zero
      7   1.7  christos  * 01 1 round to nearest
      8   1.7  christos  * 10 2 round to positive infinity
      9   1.7  christos  * 11 3 round to negative infinity
     10   1.1       jtc  */
     11   1.1       jtc 	.text
     12   1.6    kleink 	_ALIGN_TEXT
     13   1.1       jtc ENTRY(__flt_rounds)
     14   1.7  christos 	fnstcw	-4(%esp)
     15   1.9  christos 	movl	-4(%esp), %ecx
     16   1.9  christos 	shrl	$9, %ecx
     17   1.9  christos 	andl	$6, %ecx
     18   1.9  christos 	movl	$0x2d, %eax	/* 0x2d = 00.10.11.01 */
     19   1.9  christos 	sarl	%cl, %eax	/* 0,1,2,3 -> 1,3,2,0 */
     20   1.8  christos 	andl	$3, %eax
     21   1.1       jtc 	ret
     22  1.10  uebayasi END(__flt_rounds)
     23