some fixes

diff --git a/mach/sun3/libce/fef4.s b/mach/sun3/libce/fef4.s
index c656324..5ac5803 100644 (file)
--- 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 548f125..52678f0 100644 (file)
--- 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 8adda1b..5f26b1a 100644 (file)
--- 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