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

PoChecker: TryCreatePoFamilyList function correctly frees PoFamilyList when necessary, there is no need to make an extra check if it needs to be freed after this function is called.

Browse Source 
git-svn-id: trunk@58411 -
This commit is contained in:
maxim 2018-06-25 22:29:55 +00:00
parent 0af470d62f
commit 74c6d01e3e
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pochecker/pocheckermain.pp
View File

@ -244,11 +244,7 @@ begin
AMasterList := GetSelectedMasterFiles;
try
if TryCreatePoFamilyList(AMasterList, SL, ALangID) then
RunSelectedTests(SL, StatL, DupL)
else
begin
if Assigned(PoFamilyList) then FreeAndNil(PoFamilyList);
end;
RunSelectedTests(SL, StatL, DupL);
finally
SL.Free;
StatL.Free;