newlib-cygwin/winsup/mingw/mingwex/math/copysignl.S

/*
 * 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
* include/_mingw.h: Increment version to 2.0. * Makefile.in: Ditto. Merge in mingwex branch. 2002-06-13 10:20:48 +00:00			`/*`
			`* Written by J.T. Conklin <jtc@netbsd.org>.`
			`* Changes for long double by Ulrich Drepper <drepper@cygnus.com>`
			`* Public domain.`
			`*/`

			`.file "copysignl.S"`
			`.text`
Add incomplet long double math support to libmingwex.a 2002-07-29 03:00:10 +00:00			`.align 4`
* include/_mingw.h: Increment version to 2.0. * Makefile.in: Ditto. Merge in mingwex branch. 2002-06-13 10:20:48 +00:00			`.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`