]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - lib/msun/i387/s_copysignl.S
Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.
[FreeBSD/releng/7.2.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