From bc1ab42895678d5a6cb0574eac77a35b87bd1ca0 Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 1 May 1989 18:32:24 +0000 Subject: [PATCH] some fixes --- mach/sun3/libce/fef4.s | 4 +++- mach/sun3/libce/fef8.s | 4 +++- mach/sun3/libce/fif8.s | 4 ++-- 3 files changed, 8 insertions(+), 4 deletions(-) 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