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

dbgllvm: skip static fields when writing struct fields

Browse Source 
These are not part of the struct instances
This commit is contained in:
Jonas Maebe 2022-06-07 21:12:49 +02:00
parent f9b216f99a
commit addd0e7dcf
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/dbgllvm.pas
View File

@ -1174,6 +1174,10 @@ implementation
continue; continue;
field:=tfieldvarsym(recst.symlist[i]); field:=tfieldvarsym(recst.symlist[i]);
if (sp_static in field.symoptions) or
(field.visibility=vis_hidden) then
exit;
{ start of a new variant part? } { start of a new variant part? }
if vo_is_first_field in field.varoptions then if vo_is_first_field in field.varoptions then
begin begin