]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - lib/msun/i387/s_copysignl.S
zfs: merge openzfs/zfs@4647353c8
[FreeBSD/FreeBSD.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 ENTRY(copysignl)
8         movl    24(%esp),%edx
9         andl    $0x8000,%edx
10         movl    12(%esp),%eax
11         andl    $0x7fff,%eax
12         orl     %edx,%eax
13         movl    %eax,12(%esp)
14         fldt    4(%esp)
15         ret
16 END(copysignl)
17
18         .section .note.GNU-stack,"",%progbits