[glibc.git] / sysdeps / libm-i387 / s_remquo.S

/*
 * Written by Ulrich Drepper <drepper@cygnus.com>.
 * Based on e_remainder by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>

ENTRY(__remquo)
	fldl	12(%esp)
	fldl	4(%esp)
1:	fprem1
	fstsw	%ax
	sahf
	jp	1b
	fstpl	%st(1)
	/* Compute the congruent of the quotient.  */
	movl	%eax, %ecx
	shrl	$8, %eax
	shrl	$12, %ecx
	andl	$4, %ecx
	andl	$3, %eax
	orl	%eax, %ecx
	movl	$0xef2960, %eax
	shrl	%cl, %eax
	andl	$3, %eax
	movl	20(%esp), %ecx
	movl	8(%esp), %edx
	xorl	16(%esp), %edx
	testl	$0x80000000, %edx
	jz	1f
	negl	%eax
1:	movl	%eax, (%ecx)
	ret
END (__remquo)
weak_alias (__remquo, remquo)
Commit	Line	Data
bc9f6000 UD	1	/*
	2	* Written by Ulrich Drepper <drepper@cygnus.com>.
	3	* Based on e_remainder by J.T. Conklin <jtc@netbsd.org>.
	4	* Public domain.
	5	*/
	6
	7	#include <machine/asm.h>
	8
	9	ENTRY(__remquo)
	10	fldl 12(%esp)
	11	fldl 4(%esp)
	12	1: fprem1
	13	fstsw %ax
	14	sahf
	15	jp 1b
	16	fstpl %st(1)
	17	/* Compute the congruent of the quotient. */
	18	movl %eax, %ecx
	19	shrl $8, %eax
	20	shrl $12, %ecx
	21	andl $4, %ecx
	22	andl $3, %eax
	23	orl %eax, %ecx
	24	movl $0xef2960, %eax
	25	shrl %cl, %eax
	26	andl $3, %eax
	27	movl 20(%esp), %ecx
d705269e UD	28	movl 8(%esp), %edx
	29	xorl 16(%esp), %edx
	30	testl $0x80000000, %edx
	31	jz 1f
	32	negl %eax
	33	1: movl %eax, (%ecx)
bc9f6000 UD	34	ret
	35	END (__remquo)
	36	weak_alias (__remquo, remquo)