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

* don't free the constructor call in trtti_attribute_list as that is already freed in the destructor of trtti_attribute

Browse Source 
git-svn-id: trunk@42406 -
This commit is contained in:
svenbarth 2019-07-12 22:08:04 +00:00
parent 404b465c33
commit 90bec938f6
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -3046,14 +3046,7 @@ implementation
destructor trtti_attribute_list.destroy;
var
i : longint;
begin
{ if the attributes are not bound we need to free their generated
constructor functions as well }
if not is_bound and assigned(rtti_attributes) then
for i:=0 to rtti_attributes.count-1 do
trtti_attribute(rtti_attributes[i]).constructorcall.free;
rtti_attributes.Free;
inherited destroy;
end;