fix to fix: did not handle negative arguments right
This commit is contained in:
parent
8279a37642
commit
f755d6683d
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue