paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 10:09:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set is_jmp

Browse Source
This commit is contained in:
florian 2025-01-07 22:50:59 +01:00
parent 3123101b0c
commit a370b6ff1d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/riscv/cgrv.pas
View File

@ -127,6 +127,7 @@ unit cgrv;
var var
href: treference; href: treference;
l: TAsmLabel; l: TAsmLabel;
ai: taicpu;
begin begin
if not(weak) then if not(weak) then
reference_reset_symbol(href,current_asmdata.RefAsmSymbol(s,AT_FUNCTION),0,0,[]) reference_reset_symbol(href,current_asmdata.RefAsmSymbol(s,AT_FUNCTION),0,0,[])
@ -149,7 +150,9 @@ unit cgrv;
reference_reset_symbol(href,l,0,0,[]); reference_reset_symbol(href,l,0,0,[]);
href.refaddr:=addr_pcrel_lo12; href.refaddr:=addr_pcrel_lo12;
list.concat(taicpu.op_reg_reg_ref(A_JALR,NR_RETURN_ADDRESS_REG,NR_RETURN_ADDRESS_REG,href)); ai:=taicpu.op_reg_reg_ref(A_JALR,NR_RETURN_ADDRESS_REG,NR_RETURN_ADDRESS_REG,href);
ai.is_jmp:=true;
list.concat(ai);
end; end;
{ not assigned while generating external wrappers } { not assigned while generating external wrappers }