paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 15:32:27 +01: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; Item.Free;
FFiles.Delete(i); FFiles.Delete(i);
end else begin 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;
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'); raise Exception.Create('TFPCMsgFilePool.Destroy some files are still used');
end;
FreeAndNil(FFiles); FreeAndNil(FFiles);
if FPCMsgFilePool=Self then if FPCMsgFilePool=Self then
FPCMsgFilePool:=nil; FPCMsgFilePool:=nil;

2
ide/lazbuild.lpr
View File

@ -1505,7 +1505,7 @@ begin
exit; exit;
end; 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 if HasOption('add-package') then begin
AddPackage:=true; AddPackage:=true;
if ConsoleVerbosity>=0 then if ConsoleVerbosity>=0 then