Home | History | Annotate | Line # | Download | only in gen
fpsetround.S revision 1.1 
      1  1.1  fvdl /*	$NetBSD: fpsetround.S,v 1.1 2001/06/19 00:25:03 fvdl Exp $	*/
      2  1.1  fvdl 
      3  1.1  fvdl /*
      4  1.1  fvdl  * Written by Charles M. Hannum, Apr 9, 1995
      5  1.1  fvdl  * Public domain.
      6  1.1  fvdl  */
      7  1.1  fvdl 
      8  1.1  fvdl #include <machine/asm.h>
      9  1.1  fvdl 
     10  1.1  fvdl ENTRY(fpsetround)
     11  1.1  fvdl 	fnstcw -4(%rsp)
     12  1.1  fvdl 	movl -4(%rsp),%eax
     13  1.1  fvdl 
     14  1.1  fvdl 	rorl $10,%eax
     15  1.1  fvdl 	movl %eax,%edx
     16  1.1  fvdl 	andl $3,%eax
     17  1.1  fvdl 
     18  1.1  fvdl 	subl %eax,%edx
     19  1.1  fvdl 	andl $3,%edi
     20  1.1  fvdl 	orl %edi,%edx
     21  1.1  fvdl 	roll $10,%edx
     22  1.1  fvdl 	movl %edx,-4(%rsp)
     23  1.1  fvdl 	fldcw -4(%rsp)
     24  1.1  fvdl 	ret
     25