Explorar o código

dbgllvm: skip static fields when writing struct fields

These are not part of the struct instances
Jonas Maebe %!s(int64=3) %!d(string=hai) anos
pai
achega
addd0e7dcf
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      compiler/llvm/dbgllvm.pas

+ 4 - 0
compiler/llvm/dbgllvm.pas

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