Browse Source

parentfpstruct: don't add vo_is_firstfield to first field of record

That flag is only for the first field of variant parts of records
Jonas Maebe 3 years ago
parent
commit
76e3cfc38f
1 changed files with 0 additions and 2 deletions
  1. 0 2
      compiler/symcreat.pas

+ 0 - 2
compiler/symcreat.pas

@@ -1277,8 +1277,6 @@ implementation
           else
           else
             fieldvardef:=vardef;
             fieldvardef:=vardef;
           result:=cfieldvarsym.create(symrealname,vs_value,fieldvardef,[]);
           result:=cfieldvarsym.create(symrealname,vs_value,fieldvardef,[]);
-          if nestedvarsst.symlist.count=0 then
-            include(tfieldvarsym(result).varoptions,vo_is_first_field);
           nestedvarsst.insertsym(result);
           nestedvarsst.insertsym(result);
           trecordsymtable(nestedvarsst).addfield(tfieldvarsym(result),vis_public);
           trecordsymtable(nestedvarsst).addfield(tfieldvarsym(result),vis_public);