fix to fix: did not handle negative arguments right

diff --git a/mach/m68020/libem/fp68881.s b/mach/m68020/libem/fp68881.s
index d9e9378..140ca69 100644 (file)
--- a/mach/m68020/libem/fp68881.s
+++ b/mach/m68020/libem/fp68881.s
@@ -117,8 +117,13 @@
        and.l   #0x2000,d0      ! set if Infinity
        beq     1f
        move.l  #129,(a1)
+       fmove.s (4,sp),fp0
+       fblt    2f
        move.l  #0x3f000000,(4,a1)
        jmp     (a0)
+2:
+       move.l  #0xbf000000,(4,a1)
+       jmp     (a0)
 1:
        fmove.l fp1,d0
        add.l   #1,d0
@@ -138,9 +143,15 @@
        and.l   #0x2000,d0      ! set if Infinity
        beq     1f
        move.l  #1025,(a1)
+       fmove.d (4,sp),fp0
+       fblt    2f
        move.l  #0x3fe00000,(4,a1)
        clr.l   (8,a1)
        jmp     (a0)
+2:
+       move.l  #0xbfe00000,(4,a1)
+       clr.l   (8,a1)
+       jmp     (a0)
 1:
        fmove.l fp1,d0
        add.l   #1,d0