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

agllvm: support nested constants in parameters

Browse Source 
Needed for metadata support
This commit is contained in:
Jonas Maebe 2022-05-27 21:20:42 +02:00
parent abfd975571
commit c92a035614
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/agllvm.pas
View File

@ -391,7 +391,9 @@ implementation
metadatakind:=mk_none metadatakind:=mk_none
else else
metadatakind:=mk_normal; metadatakind:=mk_normal;
inc(owner.fdecllevel);
owner.WriteTai(false,false,metadatakind,tmpinline,tmpasmblock,hp); owner.WriteTai(false,false,metadatakind,tmpinline,tmpasmblock,hp);
dec(owner.fdecllevel);
end; end;
{ empty records } { empty records }
top_undef: top_undef: