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

LLVM: fix compilation after rgobj dynarray changes

Browse Source
This commit is contained in:
Jonas Maebe 2025-03-23 20:58:48 +01:00
parent f0cecf5367
commit dc5c99be6d
2 changed files with 5 additions and 5 deletions

2
compiler/llvm/nllvmcon.pas
View File

@ -104,7 +104,7 @@ implementation
if astringdef=llvm_metadatatype then
begin
location_reset(location,LOC_CREGISTER,OS_ADDR);
location.register:=tllvmmetadata.getpcharreg(value_str,len);
location.register:=tllvmmetadata.getpcharreg(@valueas[0],len);
exit;
end;
inherited pass_generate_code;

8
compiler/llvm/rgllvm.pas
View File

@ -44,7 +44,7 @@ unit rgllvm;
function instr_get_oper_spilling_info(var spregs: tspillregsinfo; const r: tsuperregisterset; instr: tai_cpu_abstract_sym; opidx: longint): boolean; override;
procedure substitute_spilled_registers(const spregs: tspillregsinfo; instr: tai_cpu_abstract_sym; opidx: longint); override;
procedure determine_spill_registers(list: TasmList; headertai: tai); override;
procedure get_spill_temp(list:TAsmlist;spill_temps: Pspill_temp_list; supreg: tsuperregister);override;
procedure get_spill_temp(list:TAsmlist;spill_temps: Tspill_temp_list; supreg: tsuperregister);override;
strict protected
type
tregwrites = (rw_none, rw_one, rw_multiple);
@ -152,7 +152,7 @@ implementation
procedure trgllvm.substitute_spilled_registers(const spregs: tspillregsinfo; instr: tai_cpu_abstract_sym; opidx: longint);
var
i, paracnt: longint;
paracnt: longint;
callpara: pllvmcallpara;
begin
with instr.oper[opidx]^ do
@ -219,7 +219,7 @@ implementation
end;
procedure trgllvm.get_spill_temp(list: TAsmlist; spill_temps: Pspill_temp_list; supreg: tsuperregister);
procedure trgllvm.get_spill_temp(list: TAsmlist; spill_temps: tspill_temp_list; supreg: tsuperregister);
var
supstart: tai;
i, paracnt: longint;
@ -262,7 +262,7 @@ implementation
end;
if not assigned(def) then
internalerror(2013110702);
tg.gethltemp(list,def,def.size,tt_noreuse,spill_temps^[supreg]);
tg.gethltemp(list,def,def.size,tt_noreuse,spill_temps[supreg]);
{ record for use in spill instructions }
reginfo[supreg].def:=def;
end;