From: ceriel <none@none>
Date: Mon, 1 May 1989 18:32:24 +0000 (+0000)
Subject: some fixes
X-Git-Tag: release-5-5~2455
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=bc1ab42895678d5a6cb0574eac77a35b87bd1ca0;p=ack.git

some fixes
---

diff --git a/mach/sun3/libce/fef4.s b/mach/sun3/libce/fef4.s
index c6563246a..5ac5803e1 100644
--- a/mach/sun3/libce/fef4.s
+++ b/mach/sun3/libce/fef4.s
@@ -12,6 +12,8 @@ fef4:
 	lea	(12,sp),sp
 	jsr	(Fdtos)		! convert result to single
 	move.l	(sp),a0
-	move.l	d0,(sp)
+	move.l	(4,sp),d1
+	move.l	d0,(4,sp)
+	move.l	d1,(sp)
 	jmp	(a0)
 
diff --git a/mach/sun3/libce/fef8.s b/mach/sun3/libce/fef8.s
index 548f12555..52678f0f8 100644
--- a/mach/sun3/libce/fef8.s
+++ b/mach/sun3/libce/fef8.s
@@ -11,7 +11,9 @@ fef8:
 	jsr	(_frexp)
 	lea	(12,sp),sp
 	move.l	(sp),a0
-	move.l	d1,(4,sp)
+	move.l	d0,(4,sp)
+	move.l	(8,sp),d0
+	move.l	d1,(8,sp)
 	move.l	d0,(sp)
 	jmp	(a0)
 
diff --git a/mach/sun3/libce/fif8.s b/mach/sun3/libce/fif8.s
index 8adda1b73..5f26b1a28 100644
--- a/mach/sun3/libce/fif8.s
+++ b/mach/sun3/libce/fif8.s
@@ -2,8 +2,8 @@
 .sect .text
 .define fif8
 fif8:
-	move.l	(4,sp),d1
-	move.l	(8,sp),d0
+	move.l	(4,sp),d0
+	move.l	(8,sp),d1
 	lea	(12,sp),a0
 	jsr	(Fmuld)		! result in d0/d1
 	lea	(4,sp),a0	! build stack for modf