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

* fix RiscV32 compilation

Browse Source
This commit is contained in:
florian 2024-09-25 22:25:01 +02:00
parent 5769d737d1
commit f356d8cc51
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/riscv/aoptcpurv.pas
View File

@ -399,6 +399,7 @@ implementation
result:=true;
end
{$ifndef RISCV32}
else if MatchInstruction(hp1,A_ADDIW) and
(taicpu(hp1).ops=3) and
MatchOperand(taicpu(p).oper[0]^,taicpu(hp1).oper[1]^) and
@ -416,6 +417,7 @@ implementation
result:=true;
end
{$endif RISCV32}
else
result:=OptPass1OP(p);
end