ceriel 35 年 前
コミット
bc1ab42895
3 ファイル変更8 行追加4 行削除
  1. 3 1
      mach/sun3/libce/fef4.s
  2. 3 1
      mach/sun3/libce/fef8.s
  3. 2 2
      mach/sun3/libce/fif8.s

+ 3 - 1
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)
 

+ 3 - 1
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)
 

+ 2 - 2
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