Changeset 67 for trunk/Compiler/Analyze/UAnalyzerPascal.pas

Timestamp:

Jul 19, 2012, 8:44:08 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks in expression analyze.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (2 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -155 +155 @@
   try
     Expressions := TListExpression.Create;
-    Expressions.OwnsObjects := False;
     Expressions.Add(TExpression.Create);
     with SourceCode do begin
@@ -180 +179 @@
             TExpression(Expressions[I - 1]).SubItems.Last := Expressions[I];
             TExpression(Expressions[I + 1]).SubItems.First := Expressions[I];
+            Expressions.OwnsObjects := False;
+            Expressions[I] := nil;
+            Expressions.OwnsObjects := True;
             Expressions.Delete(I);
           end else Inc(I);
         end;
       end;
-      if Assigned(TExpression(Expressions.First).SubItems.Last) then
+      if Assigned(TExpression(Expressions.First).SubItems.Last) then begin
         Assign(TExpression(TExpression(Expressions.First).SubItems.Last));
+        SubItems.OwnsObjects := True;
+        TExpression(TExpression(Expressions.First).SubItems.Last).SubItems.OwnsObjects := False;
+        TExpression(Expressions.First).SubItems.Last.Free;
+      end;
       TExpression(Expressions.First).SubItems.Last := nil;
       if Expressions.Count > 1 then