]> CyberLeo.Net >> Repos - FreeBSD/releng/8.1.git/blob - lib/msun/i387/s_copysignl.S
Copy stable/8 to releng/8.1 in preparation for 8.1-RC1.
[FreeBSD/releng/8.1.git] / lib / msun / i387 / s_copysignl.S
1 /*
2  * Based on code written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  */
5
6 #include <machine/asm.h>
7 __FBSDID("$FreeBSD$")
8
9 ENTRY(copysignl)
10         movl    24(%esp),%edx
11         andl    $0x8000,%edx
12         movl    12(%esp),%eax
13         andl    $0x7fff,%eax
14         orl     %edx,%eax
15         movl    %eax,12(%esp)
16         fldt    4(%esp)
17         ret
18 END(copysignl)