Override elf_nacl.xr linker script so that libc_pic.os links correctly
[glibc/nacl-glibc.git] / sysdeps / i386 / fpu / s_ceil.S
blob4cffc06e95ed0134c896274a741ac56aca98dbd8
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: s_ceil.S,v 1.4 1995/05/08 23:52:13 jtc Exp $")
10 ENTRY(__ceil)
11         fldl    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    $0x0800,%edx            /* round towards +oo */
20         orl     4(%esp),%edx
21         andl    $0xfbff,%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         popl %ecx; nacljmp %ecx
31 END (__ceil)
32 weak_alias (__ceil, ceil)