paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 04:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed mem leak of componentinterfaces

Browse Source 
git-svn-id: trunk@2780 -
This commit is contained in:
lazarus 2002-08-18 08:54:00 +00:00
parent 24320a1606
commit 7f864f0bc4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -3103,6 +3103,7 @@ begin
// create jitform // create jitform
CInterface := TComponentInterface( CInterface := TComponentInterface(
FormEditor1.CreateFormFromStream(BinLFMStream)); FormEditor1.CreateFormFromStream(BinLFMStream));
writeln('AAA1 CInterface=',HexStr(Cardinal(CInterface),8));
if CInterface=nil then begin if CInterface=nil then begin
ACaption:='Form load error'; ACaption:='Form load error';
AText:='Unable to build form from file '#13 AText:='Unable to build form from file '#13
@ -7128,6 +7129,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.385 2002/09/16 17:17:53 lazarus
MG: fixed mem leak of componentinterfaces
Revision 1.384 2002/09/16 16:06:19 lazarus Revision 1.384 2002/09/16 16:06:19 lazarus
MG: replaced halt with raiseexception MG: replaced halt with raiseexception