Hi,
Attached patch frees the items of the InitHandlerList. The items are allocated in RegisterInitComponentHandler, but never seem to be freeed.
Heaptrc showed a memleak, when you ran lazarus with the cgi package installed.
Further testing showed that the patch contained a bug. InitHandlerList might not be created at all. Attached patch corrects also this case.
Sorry for the confusion.
Regards, Vincent.
Index: rtl/objpas/classes/classes.inc =================================================================== RCS file: /FPC/CVS/fpc/rtl/objpas/classes/classes.inc,v retrieving revision 1.26 diff -u -r1.26 classes.inc --- rtl/objpas/classes/classes.inc 13 Apr 2005 16:16:43 -0000 1.26 +++ rtl/objpas/classes/classes.inc 27 Apr 2005 08:02:25 -0000 @@ -1496,6 +1496,9 @@ ComponentPages.Free; {!!!: GlobalNameSpace.Free; GlobalNameSpace := nil;} + if (InitHandlerList<>Nil) then + for i := 0 to InitHandlerList.Count - 1 do + TInitHandler(InitHandlerList.Items[I]).Free; InitHandlerList.Free; InitHandlerList:=Nil; FindGlobalComponentList.Free;
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel