paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +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; result:=true;
end end
{$ifndef RISCV32}
else if MatchInstruction(hp1,A_ADDIW) and else if MatchInstruction(hp1,A_ADDIW) and
(taicpu(hp1).ops=3) and (taicpu(hp1).ops=3) and
MatchOperand(taicpu(p).oper[0]^,taicpu(hp1).oper[1]^) and MatchOperand(taicpu(p).oper[0]^,taicpu(hp1).oper[1]^) and
@ -416,6 +417,7 @@ implementation
result:=true; result:=true;
end end
{$endif RISCV32}
else else
result:=OptPass1OP(p); result:=OptPass1OP(p);
end end