* take a copy of the constructor assignment node (and free it together with the attribute)

git-svn-id: trunk@42388 -

compiler/symcreat.pas

@@ -1034,7 +1034,7 @@ implementation
     attribute:=trtti_attribute(pd.skpara);
 
     load := cloadnode.create(pd.funcretsym,pd.funcretsym.Owner);
-    assignment := cassignmentnode.create(load,Attribute.constructorcall);
+    assignment := cassignmentnode.create(load,Attribute.constructorcall.getcopy);
     assignment.resultdef := voidtype;
 
     statement := cstatementnode.Create(assignment,nil);

compiler/symdef.pas

@@ -2898,6 +2898,7 @@ implementation
       var
         n : tnode;
       begin
+        constructorcall.free;
         for n in paras do
           n.free;
         inherited destroy;