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

* disable condition jump optimization on MIPS for now for the time being

Browse Source 
git-svn-id: trunk@43486 -
This commit is contained in:
florian 2019-11-15 20:50:17 +00:00
parent c22d39bcdf
commit d4f0658c02
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aoptobj.pas
View File

@ -2014,13 +2014,16 @@ Unit AoptObj;
Result := True; Result := True;
Exit; Exit;
{$if not defined(avr) and not defined(riscv32) and not defined(riscv64)} {$if not defined(avr) and not defined(riscv32) and not defined(riscv64) and not defined(mips)}
end end
else else
{ NOTE: There is currently no watertight, cross-platform way to create { NOTE: There is currently no watertight, cross-platform way to create
an unconditional jump without access to the cg object. If anyone can an unconditional jump without access to the cg object. If anyone can
improve this particular optimisation to work on AVR and RISC-V, improve this particular optimisation to work on AVR and RISC-V,
please do. [Kit]} please do. [Kit]
On MIPS, it causes an endless loop, so I disabled it for now
}
begin begin
{ Since cond1 is a subset of inv(cond2), jmp<cond2> will always branch if { Since cond1 is a subset of inv(cond2), jmp<cond2> will always branch if
jmp<cond1> does not, so change jmp<cond2> to an unconditional jump. } jmp<cond1> does not, so change jmp<cond2> to an unconditional jump. }