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

+ support for LOC_VOID parameters in llvm for empty records (fixes

Browse Source 
tests/test/tnoext4.)

git-svn-id: trunk@34136 -
This commit is contained in:
Jonas Maebe 2016-07-15 14:35:17 +00:00
parent c05fa52775
commit 687adbefd7
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/agllvm.pas
View File

@ -251,6 +251,9 @@ implementation
result:=result+' '+getregisterstring(para^.reg); result:=result+' '+getregisterstring(para^.reg);
LOC_CONSTANT: LOC_CONSTANT:
result:=result+' '+tostr(int64(para^.value)); result:=result+' '+tostr(int64(para^.value));
{ empty records }
LOC_VOID:
result:=result+' undef';
else else
internalerror(2014010801); internalerror(2014010801);
end; end;

7
compiler/llvm/hlcgllvm.pas
View File

@ -436,8 +436,7 @@ implementation
for i:=0 to high(paras) do for i:=0 to high(paras) do
begin begin
paraloc:=paras[i]^.location; paraloc:=paras[i]^.location;
while assigned(paraloc) and while assigned(paraloc) do
(paraloc^.loc<>LOC_VOID) do
begin begin
new(callpara); new(callpara);
callpara^.def:=paraloc^.def; callpara^.def:=paraloc^.def;
@ -476,6 +475,10 @@ implementation
end; end;
callpara^.reg:=paraloc^.register callpara^.reg:=paraloc^.register
end; end;
{ empty records }
LOC_VOID:
begin
end
else else
internalerror(2014010605); internalerror(2014010605);
end; end;