Home | History | Annotate | Line # | Download | only in gen
fpgetround.S revision 1.1 
      1  1.1  jtc /*
      2  1.1  jtc  * Written by J.T. Conklin, Apr 4, 1995
      3  1.1  jtc  * Public domain.
      4  1.1  jtc  */
      5  1.1  jtc 
      6  1.1  jtc #include <machine/asm.h>
      7  1.1  jtc 
      8  1.1  jtc ENTRY(fpgetround)
      9  1.1  jtc 	subl $4,%esp
     10  1.1  jtc 	fnstcw (%esp)
     11  1.1  jtc 	movw (%esp),%ax
     12  1.1  jtc 	shrl $10,%eax
     13  1.1  jtc 	andl $3,%eax
     14  1.1  jtc 	addl $4,%esp
     15  1.1  jtc 	ret
     16