X-Authentication-Warning:	delorie.com: mail set sender to djgpp-workers-bounces using -f
Date:	Tue, 30 Sep 2003 11:46:10 +0300 (EET DST)
From:	Esa A E Peuha <peuha AT cc DOT helsinki DOT fi>
Sender:	peuha AT sirppi DOT helsinki DOT fi
To:	djgpp-workers AT delorie DOT com
Subject:	Re: Bug in modfl() in libc.a
In-Reply-To:	<19e.1a96f796.2ca9f8ef@aol.com>
Message-ID:	<Pine.OSF.4.58.0309301144260.29886@sirppi.helsinki.fi>
References:	<19e DOT 1a96f796 DOT 2ca9f8ef AT aol DOT com>
MIME-Version:	1.0
Reply-To:	djgpp-workers AT delorie DOT com
Errors-To:	nobody AT delorie DOT com
X-Mailing-List:	djgpp-workers AT delorie DOT com
X-Unsubscribes-To:	listserv AT delorie DOT com

On Mon, 29 Sep 2003 Kbwms AT aol DOT com wrote:

> Please send a copy of the finished code and I will test it in the test suite.

/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
	.text
	.globl ___modfl
___modfl:
	pushl %ebp
	movl %esp,%ebp
	subl $4,%esp
	fldt 8(%ebp)
	movl 20(%ebp),%eax
	fnstcw -2(%ebp)
	movw -2(%ebp),%dx
	orb $0x0c,%dh
	movw %dx,-4(%ebp)
	fldcw -4(%ebp)
	fld %st(0)
	frndint
	fldcw -2(%ebp)
	fld %st(0)
	fstpt (%eax)
	fucom %st(1)
	fnstsw -2(%ebp)
	movw -2(%ebp),%dx
	andb $0x44,%dh
	xorb $0x40,%dh
	jnz 0f
	fxam
	fnstsw -2(%ebp)
	fstp %st(0)
	fstp %st(0)
	fldz
	movw -2(%ebp),%dx
	andb $0x02,%dh
	jz 1f
	fchs
	jmp 1f
0:
	fsubrp %st,%st(1)
1:
	leave
	ret

-- 
Esa Peuha
student of mathematics at the University of Helsinki
http://www.helsinki.fi/~peuha/

- Raw text -