xref: /netbsd-src/lib/libm/arch/i387/s_copysign.S (revision 17dd36da8292193180754d5047c0926dbb56818c)
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
12	andl	$0x80000000,%edx
13	movl	8(%esp),%eax
14	andl	$0x7fffffff,%eax
15	orl	%edx,%eax
16	movl	%eax,8(%esp)
17	fldl	4(%esp)
18	ret
19