godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix to fix: did not handle negative arguments right

Browse Source
This commit is contained in:
ceriel 1989-08-09 16:29:15 +00:00
parent 30260ca8e7
commit a1d157efc6
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mach/m68020/libem/fp68881.s
View File

@ -117,8 +117,13 @@
and.l #0x2000,d0 ! set if Infinity and.l #0x2000,d0 ! set if Infinity
beq 1f beq 1f
move.l #129,(a1) move.l #129,(a1)
fmove.s (4,sp),fp0
fblt 2f
move.l #0x3f000000,(4,a1) move.l #0x3f000000,(4,a1)
jmp (a0) jmp (a0)
2:
move.l #0xbf000000,(4,a1)
jmp (a0)
1: 1:
fmove.l fp1,d0 fmove.l fp1,d0
add.l #1,d0 add.l #1,d0
@ -138,9 +143,15 @@
and.l #0x2000,d0 ! set if Infinity and.l #0x2000,d0 ! set if Infinity
beq 1f beq 1f
move.l #1025,(a1) move.l #1025,(a1)
fmove.d (4,sp),fp0
fblt 2f
move.l #0x3fe00000,(4,a1) move.l #0x3fe00000,(4,a1)
clr.l (8,a1) clr.l (8,a1)
jmp (a0) jmp (a0)
2:
move.l #0xbfe00000,(4,a1)
clr.l (8,a1)
jmp (a0)
1: 1:
fmove.l fp1,d0 fmove.l fp1,d0
add.l #1,d0 add.l #1,d0