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

- Handle jump optimizations on RISC-V

Browse Source 
git-svn-id: trunk@43933 -
This commit is contained in:
Jeppe Johansen 2020-01-13 22:42:39 +00:00
parent 931d4dcfee
commit 7cfb87b325
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aoptobj.pas
View File

@ -1606,8 +1606,8 @@ Unit AoptObj;
procedure TAOptObj.MakeUnconditional(p: taicpu);
begin
{ TODO: If anyone can improve this particular optimisation to work on
AVR and RISC-V, please do (it's currently not called at all). [Kit] }
{$if not defined(avr) and not defined(riscv32) and not defined(riscv64)}
AVR, please do (it's currently not called at all). [Kit] }
{$if not defined(avr)}
{$if defined(powerpc) or defined(powerpc64)}
p.condition.cond := C_None;
p.condition.simple := True;
@ -1615,7 +1615,12 @@ Unit AoptObj;
p.condition := C_None;
{$endif powerpc}
p.opcode := aopt_uncondjmp;
{$endif not avr and not riscv}
{$ifdef RISCV}
p.loadoper(1, p.oper[p.ops-1]^);
p.loadreg(0, NR_X0);
p.ops:=2;
{$endif}
{$endif not avr}
end;
@ -2086,12 +2091,12 @@ Unit AoptObj;
Result := True;
Exit;
{$if not defined(avr) and not defined(riscv32) and not defined(riscv64)}
{$if not defined(avr)}
end
else
{ NOTE: There is currently no watertight, cross-platform way to create
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,
please do. [Kit] }
begin
{ Since cond1 is a subset of inv(cond2), jmp<cond2> will always branch if