forked from KolibriOS/kolibrios
2336060a0c
git-svn-id: svn://kolibrios.org@1906 a494cfbc-eb01-0410-851d-a64ba20cac60
20 lines
335 B
ArmAsm
20 lines
335 B
ArmAsm
/*
|
|
* Written by J.T. Conklin <jtc@netbsd.org>.
|
|
* Public domain.
|
|
*/
|
|
|
|
.file "copysign.S"
|
|
.text
|
|
.align 4
|
|
.globl _copysign
|
|
.def _copysign; .scl 2; .type 32; .endef
|
|
_copysign:
|
|
movl 16(%esp),%edx
|
|
movl 8(%esp),%eax
|
|
andl $0x80000000,%edx
|
|
andl $0x7fffffff,%eax
|
|
orl %edx,%eax
|
|
movl %eax,8(%esp)
|
|
fldl 4(%esp)
|
|
ret
|