d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fixed problem with fef on Infinity

Browse source
This commit is contained in:
ceriel 1989-08-09 14:37:37 +00:00
parent 98f011552e
commit 5785bb133b
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
mach/m68020/libem/fp68881.s
View file

@ -113,6 +113,13 @@
move.l (sp),a1
fmove.s (4,sp),fp0
fgetexp fp0,fp1
fmove.l fpsr,d0
and.l #0x2000,d0 ! set if Infinity
beq 1f
move.l #129,(a1)
move.l #0x3f000000,(4,a1)
jmp (a0)
1:
fmove.l fp1,d0
add.l #1,d0
fgetman fp0
@ -127,6 +134,14 @@
move.l (sp),a1
fmove.d (4,sp),fp0
fgetexp fp0,fp1
fmove.l fpsr,d0
and.l #0x2000,d0 ! set if Infinity
beq 1f
move.l #1025,(a1)
move.l #0x3fe00000,(4,a1)
clr.l (8,a1)
jmp (a0)
1:
fmove.l fp1,d0
add.l #1,d0
fgetman fp0