paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 14:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* return the added symbol from trecorddef.add_field_by_def()

Browse Source 
git-svn-id: trunk@31638 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:32:49 +00:00
parent 54172d7de4
commit 54642f5f09
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symdef.pas
View File

@ -307,7 +307,7 @@ interface
isunion : boolean;
constructor create(const n:string; p:TSymtable);virtual;
constructor create_global_internal(n: string; packrecords, recordalignmin, maxCrecordalign: shortint); virtual;
procedure add_field_by_def(const optionalname: TIDString; def: tdef);
function add_field_by_def(const optionalname: TIDString; def: tdef): tsym;
procedure add_fields_from_deflist(fieldtypes: tfplist);
constructor ppuload(ppufile:tcompilerppufile);
destructor destroy;override;
@ -4160,7 +4160,7 @@ implementation
end;
procedure trecorddef.add_field_by_def(const optionalname: TIDString; def: tdef);
function trecorddef.add_field_by_def(const optionalname: TIDString; def: tdef): tsym;
var
sym: tfieldvarsym;
name: TIDString;
@ -4176,6 +4176,7 @@ implementation
sym:=cfieldvarsym.create(pname^,vs_value,def,[]);
symtable.insert(sym);
trecordsymtable(symtable).addfield(sym,vis_hidden);
result:=sym;
end;