瀏覽代碼

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 年之前
父節點
當前提交
76e3cfc38f
共有 1 個文件被更改,包括 0 次插入2 次删除
  1. 0 2
      compiler/symcreat.pas

+ 0 - 2
compiler/symcreat.pas

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