Hello,
the following patch fixes a memory leakage for lists with owned objects. (patch against fixes_2_2, sorry, at least it is an one file patch and very small)
Joao Morais
Index: rtl/objpas/classes/lists.inc =================================================================== --- rtl/objpas/classes/lists.inc (revision 11044) +++ rtl/objpas/classes/lists.inc (working copy) @@ -546,7 +546,11 @@ procedure TList.SetCount(NewCount: Integer); begin - FList.SetCount(NewCount); + if NewCount < FList.Count then + while FList.Count > NewCount do + Delete(FList.Count - 1) + else + FList.SetCount(NewCount); end; constructor TList.Create;
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
