From: ceriel <none@none>
Date: Wed, 9 Aug 1989 14:37:37 +0000 (+0000)
Subject: fixed problem with fef on Infinity
X-Git-Tag: release-5-5~2295
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5785bb133b875f9a57d3bf3828dba51eaf253415;p=ack.git

fixed problem with fef on Infinity
---

diff --git a/mach/m68020/libem/fp68881.s b/mach/m68020/libem/fp68881.s
index 8ad1c4c4a..d9e9378a0 100644
--- a/mach/m68020/libem/fp68881.s
+++ b/mach/m68020/libem/fp68881.s
@@ -113,6 +113,13 @@
 	move.l	(sp),a1
 	fmove.s	(4,sp),fp0
 	fgetexp	fp0,fp1
+	fmove.l	fpsr,d0
+	and.l	#0x2000,d0	! set if Infinity
+	beq	1f
+	move.l	#129,(a1)
+	move.l	#0x3f000000,(4,a1)
+	jmp	(a0)
+1:
 	fmove.l	fp1,d0
 	add.l	#1,d0
 	fgetman	fp0
@@ -127,6 +134,14 @@
 	move.l	(sp),a1
 	fmove.d	(4,sp),fp0
 	fgetexp	fp0,fp1
+	fmove.l	fpsr,d0
+	and.l	#0x2000,d0	! set if Infinity
+	beq	1f
+	move.l	#1025,(a1)
+	move.l	#0x3fe00000,(4,a1)
+	clr.l	(8,a1)
+	jmp	(a0)
+1:
 	fmove.l	fp1,d0
 	add.l	#1,d0
 	fgetman	fp0