Update.
[glibc.git] / sysdeps / libm-i387 / s_floorf.S
blobeca93a2aa32e5ccb1585b0c1e6155cd7f6bb1fec
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: s_floorf.S,v 1.3 1995/05/09 00:04:32 jtc Exp $")
10 ENTRY(__floorf)
11         flds    4(%esp)
12         subl    $8,%esp
14         fstcw   4(%esp)                 /* store fpu control word */
16         /* We use here %edx although only the low 1 bits are defined.
17            But none of the operations should care and they are faster
18            than the 16 bit operations.  */
19         movl    $0x400,%edx             /* round towards -oo */
20         orl     4(%esp),%edx
21         andl    $0xf7ff,%edx
22         movl    %edx,(%esp)
23         fldcw   (%esp)                  /* load modified control word */
25         frndint                         /* round */
27         fldcw   4(%esp)                 /* restore original control word */
29         addl    $8,%esp
30         ret
31 END (__floorf)
32 weak_alias (__floorf, floorf)