paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 13:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: always check the V flag after MUL/DIV overflows, because MUL/DIV never sets the C flag. note that this fix is full 68k only. on CF, MUL doesn't set any of V or C flags

Browse Source 
git-svn-id: trunk@36496 -
This commit is contained in:
Károly Balogh 2017-06-12 23:56:05 +00:00
parent d2f769c93e
commit e0cbd48785
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/m68k/cgcpu.pas
View File

@ -1804,7 +1804,15 @@ unit cgcpu;
pasbool8,pasbool16,pasbool32,pasbool64]))) then pasbool8,pasbool16,pasbool32,pasbool64]))) then
cond:=C_VC cond:=C_VC
else else
cond:=C_CC; begin
{ MUL/DIV always sets the overflow flag, and never the carry flag }
{ Note/Fixme: This still doesn't cover the ColdFire, where none of these opcodes
set either the overflow or the carry flag. So CF must be handled in other ways. }
if taicpu(list.last).opcode in [A_MULU,A_MULS,A_DIVS,A_DIVU,A_DIVUL,A_DIVSL] then
cond:=C_VC
else
cond:=C_CC;
end;
ai:=Taicpu.Op_Sym(A_Bxx,S_NO,hl); ai:=Taicpu.Op_Sym(A_Bxx,S_NO,hl);
ai.SetCondition(cond); ai.SetCondition(cond);
ai.is_jmp:=true; ai.is_jmp:=true;