paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazbuild: fixed showing memleaks on error

Browse Source 
git-svn-id: trunk@48699 -
This commit is contained in:
mattias 2015-04-10 19:51:46 +00:00
parent a96cfe9231
commit a7316c5d9f
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/etfpcmsgparser.pas
View File

@ -766,11 +766,15 @@ begin
Item.Free;
FFiles.Delete(i);
end else begin
debugln(['TFPCMsgFilePool.Destroy file still used: ',Item.Filename]);
if ExitCode=0 then
debugln(['TFPCMsgFilePool.Destroy file still used: ',Item.Filename]);
end;
end;
if FFiles.Count>0 then
if FFiles.Count>0 then begin
if ExitCode<>0 then
exit;
raise Exception.Create('TFPCMsgFilePool.Destroy some files are still used');
end;
FreeAndNil(FFiles);
if FPCMsgFilePool=Self then
FPCMsgFilePool:=nil;

2
ide/lazbuild.lpr
View File

@ -1505,7 +1505,7 @@ begin
exit;
end;
// Add package to list of to be installed packages)
// Add package to list of to be installed packages
if HasOption('add-package') then begin
AddPackage:=true;
if ConsoleVerbosity>=0 then