paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

llvmpara: don't crash if a parameter has no paralocs

Browse Source
This commit is contained in:
Jonas Maebe 2022-06-15 21:52:22 +02:00
parent 5ca8593f14
commit b68512a969
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/llvm/llvmpara.pas
View File

@ -133,21 +133,23 @@ unit llvmpara;
begin
hp:=tparavarsym(paras[paranr]);
paraloc:=hp.paraloc[side].location;
if assigned(paraloc) and
assigned(paraloc^.next) and
(hp.paraloc[side].def.typ in [orddef,enumdef,floatdef]) then
if assigned(paraloc) then
begin
if not(paraloc^.loc in [LOC_REGISTER,LOC_FPUREGISTER,LOC_MMREGISTER]) then
internalerror(2019011902);
reducetosingleregparaloc(paraloc,hp.paraloc[side].def,paraloc^.register);
end
else if paraloc^.def=llvm_metadatatype then
begin
paraloc^.Loc:=LOC_REGISTER;
// will be overwritten with a "register" whose superregister is an index in the LLVM metadata table
paraloc^.register:=NR_INVALID;
if assigned(paraloc^.next) and
(hp.paraloc[side].def.typ in [orddef,enumdef,floatdef]) then
begin
if not(paraloc^.loc in [LOC_REGISTER,LOC_FPUREGISTER,LOC_MMREGISTER]) then
internalerror(2019011902);
reducetosingleregparaloc(paraloc,hp.paraloc[side].def,paraloc^.register);
end
else if paraloc^.def=llvm_metadatatype then
begin
paraloc^.Loc:=LOC_REGISTER;
// will be overwritten with a "register" whose superregister is an index in the LLVM metadata table
paraloc^.register:=NR_INVALID;
end;
end;
end;
end;
end;
procedure tllvmparamanager.createtempparaloc(list: TAsmList; calloption: tproccalloption; parasym: tparavarsym; can_use_final_stack_loc: boolean; var cgpara: TCGPara);