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

* trtti_attribute_list.bind already checks whether the dangling attribute list is assigned or not

Browse Source 
git-svn-id: trunk@42395 -
This commit is contained in:
svenbarth 2019-07-12 22:07:24 +00:00
parent ced3885dbb
commit 402728239f
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecl.pas
View File

@ -1050,10 +1050,7 @@ implementation
{ If there are attribute-properties available, bind them to
this object }
if assigned(rtti_attrs_def) then
begin
trtti_attribute_list.bind(rtti_attrs_def,tobjectdef(hdef).rtti_attribute_list);
end;
trtti_attribute_list.bind(rtti_attrs_def,tobjectdef(hdef).rtti_attribute_list);
{ In case of an objcclass, verify that all methods have a message
name set. We only check this now, because message names can be set

5
compiler/pdecobj.pas
View File

@ -214,10 +214,7 @@ implementation
Message(parser_e_enumerator_identifier_required);
consume(_SEMICOLON);
end;
if assigned(rtti_attrs_def) then
begin
trtti_attribute_list.bind(rtti_attrs_def,p.rtti_attribute_list);
end;
trtti_attribute_list.bind(rtti_attrs_def,p.rtti_attribute_list);
{ hint directives, these can be separated by semicolons here,
that needs to be handled here with a loop (PFV) }