paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +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);
LOC_CONSTANT:
result:=result+' '+tostr(int64(para^.value));
{ empty records }
LOC_VOID:
result:=result+' undef';
else
internalerror(2014010801);
end;

7
compiler/llvm/hlcgllvm.pas
View File

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