paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initialise cgpara with valid data for the C-style "array of const" para

Browse Source 
(necessary for the LLVM backend)

git-svn-id: trunk@40571 -
This commit is contained in:
Jonas Maebe 2018-12-16 20:44:28 +00:00
parent 820d2f7135
commit 95171a1e22
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aarch64/cpupara.pas
View File

@ -400,11 +400,16 @@ unit cpupara;
if (p.proccalloption in cstylearrayofconst) and
is_array_of_const(paradef) then
begin
result.size:=OS_NO;
result.def:=paradef;
result.alignment:=std_param_align;
result.intsize:=0;
paraloc:=result.add_location;
{ hack: the paraloc must be valid, but is not actually used }
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_X0;
paraloc^.size:=OS_ADDR;
paraloc^.def:=paradef;
exit;
end;