Browse Source

* call inherited Destroy in TAsmOptimizer to avoid memory leak

git-svn-id: trunk@21706 -
florian 13 years ago
parent
commit
117c083003
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/aopt.pas

+ 2 - 1
compiler/aopt.pas

@@ -298,7 +298,8 @@ Unit aopt;
       Begin
       Begin
         if assigned(LabelInfo^.LabelTable) then
         if assigned(LabelInfo^.LabelTable) then
           Freemem(LabelInfo^.LabelTable);
           Freemem(LabelInfo^.LabelTable);
-        Dispose(LabelInfo)
+        Dispose(LabelInfo);
+        inherited Destroy;
       End;
       End;