]> git.ipfire.org Git - thirdparty/glibc.git/blame - sysdeps/libm-i387/s_copysign.S
update from main archive 961005
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_copysign.S
CommitLineData
f7eac6eb
RM
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7
8RCSID("$NetBSD: s_copysign.S,v 1.4 1995/05/08 23:53:02 jtc Exp $")
9
10ENTRY(__copysign)
11 movl 16(%esp),%edx
f7eac6eb 12 movl 8(%esp),%eax
cccda09f 13 andl $0x80000000,%edx
f7eac6eb
RM
14 andl $0x7fffffff,%eax
15 orl %edx,%eax
16 movl %eax,8(%esp)
17 fldl 4(%esp)
18 ret
cccda09f 19PSEUDO_END (__copysign)
f7eac6eb 20weak_alias (__copysign, copysign)