paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
That flag is only for the first field of variant parts of records
This commit is contained in:
Jonas Maebe 2022-06-05 22:30:44 +02:00
parent 60c95032fa
commit 76e3cfc38f
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symcreat.pas
View File

@ -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);