Update.
[glibc.git] / sysdeps / libm-i387 / s_nearbyintl.S
blob2f60af8f18214daa3d901449e8b42e3ae5cf57a5
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
5 /* Adapted for use as nearbyint by Ulrich Drepper <drepper@cygnus.com>.  */
7 #include <machine/asm.h>
9 ENTRY(__nearbyintl)
10         fldt    4(%esp)
11         pushl   %eax
12         pushl   %ecx
13         fnstcw  (%esp)
14         movl    (%esp), %eax
15         andl    $~0x20, %eax
16         movl    %eax, 4(%esp)
17         fldcw   4(%esp)
18         frndint
19         fclex
20         fldcw   (%esp)
21         popl    %ecx
22         popl    %eax
23         ret
24 END (__nearbyintl)
25 weak_alias (__nearbyintl, nearbyintl)