FpDebugger (pure): Fixed mem-leak bij freeing debug-threads

git-svn-id: trunk@46102 -

components/fpdebug/fpdbgclasses.pp

@@ -676,23 +676,31 @@ begin
 end;
 
 destructor TDbgProcess.Destroy;
+
+  procedure FreeItemsInMap(AMap: TMap);
   var
-  Bp: TDbgBreakpoint;
+    AnObject: TObject;
     Iterator: TMapIterator;
   begin
-  FProcessID:=0;
-  iterator := TMapIterator.Create(FBreakMap);
+    iterator := TMapIterator.Create(AMap);
     try
       Iterator.First;
       while not Iterator.EOM do
       begin
-      Iterator.GetData(bp);
-      Bp.Free;
+        Iterator.GetData(AnObject);
+        AnObject.Free;
         iterator.Next;
       end;
     finally
       Iterator.Free;
     end;
+  end;
+
+begin
+  FProcessID:=0;
+
+  FreeItemsInMap(FBreakMap);
+  FreeItemsInMap(FThreadMap);
 
   FreeAndNil(FBreakMap);
   FreeAndNil(FThreadMap);