From: ceriel <none@none>
Date: Wed, 9 Aug 1989 16:29:15 +0000 (+0000)
Subject: fix to fix: did not handle negative arguments right
X-Git-Tag: release-5-5~2292
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f755d6683d6f3379578725d0aac9099b6bb80415;p=ack.git

fix to fix: did not handle negative arguments right
---

diff --git a/mach/m68020/libem/fp68881.s b/mach/m68020/libem/fp68881.s
index d9e9378a0..140ca69f0 100644
--- a/mach/m68020/libem/fp68881.s
+++ b/mach/m68020/libem/fp68881.s
@@ -117,8 +117,13 @@
 	and.l	#0x2000,d0	! set if Infinity
 	beq	1f
 	move.l	#129,(a1)
+	fmove.s	(4,sp),fp0
+	fblt	2f
 	move.l	#0x3f000000,(4,a1)
 	jmp	(a0)
+2:
+	move.l	#0xbf000000,(4,a1)
+	jmp	(a0)
 1:
 	fmove.l	fp1,d0
 	add.l	#1,d0
@@ -138,9 +143,15 @@
 	and.l	#0x2000,d0	! set if Infinity
 	beq	1f
 	move.l	#1025,(a1)
+	fmove.d	(4,sp),fp0
+	fblt	2f
 	move.l	#0x3fe00000,(4,a1)
 	clr.l	(8,a1)
 	jmp	(a0)
+2:
+	move.l	#0xbfe00000,(4,a1)
+	clr.l	(8,a1)
+	jmp	(a0)
 1:
 	fmove.l	fp1,d0
 	add.l	#1,d0