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

Browser information for generic records

Browse Source
This commit is contained in:
Margers 2025-01-22 22:50:02 +00:00 committed by FPK
parent d71f823373
commit 7cb2e5a180
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/browcol.pas
View File

@ -1680,6 +1680,7 @@ end;
recorddef : recorddef :
begin begin
Symbol^.Flags:=(Symbol^.Flags or sfRecord); Symbol^.Flags:=(Symbol^.Flags or sfRecord);
if (trecorddef(typedef).symtable<>Table) then
ProcessSymTable(Symbol,Symbol^.Items,trecorddef(typedef).symtable); ProcessSymTable(Symbol,Symbol^.Items,trecorddef(typedef).symtable);
end; end;
pointerdef : pointerdef :