Merge branch 'openssh'
[dragonfly.git] / lib / libm / i386 / s_copysignl.S
1 /*
2  * Based on code written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  *
5  * $FreeBSD: head/lib/msun/i387/s_copysignl.S 217108 2011-01-07 16:13:12Z kib $
6  */
7
8 #include <machine/asm.h>
9
10 ENTRY(copysignl)
11         movl    24(%esp),%edx
12         andl    $0x8000,%edx
13         movl    12(%esp),%eax
14         andl    $0x7fff,%eax
15         orl     %edx,%eax
16         movl    %eax,12(%esp)
17         fldt    4(%esp)
18         ret
19 END(copysignl)
20
21         .section .note.GNU-stack,"",%progbits