/programs/develop/libraries/newlib/math/copysignl.S |
---|
0,0 → 1,20 |
/* |
* Written by J.T. Conklin <jtc@netbsd.org>. |
* Changes for long double by Ulrich Drepper <drepper@cygnus.com> |
* Public domain. |
*/ |
.file "copysignl.S" |
.text |
.align 4 |
.globl _copysignl |
.def _copysignl; .scl 2; .type 32; .endef |
_copysignl: |
movl 24(%esp),%edx |
movl 12(%esp),%eax |
andl $0x8000,%edx |
andl $0x7fff,%eax |
orl %edx,%eax |
movl %eax,12(%esp) |
fldt 4(%esp) |
ret |