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

PoChecker: fix crash caused by passing not enough parameters to Format().

Browse Source 
Patch by Vaclav Valicek. Issue #0026167.

git-svn-id: trunk@45035 -
This commit is contained in:
bart 2014-05-14 10:15:01 +00:00
parent b305990772
commit a2286d1c09
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pochecker/pocheckermain.pp
View File

@ -247,9 +247,9 @@ begin
end
else if not FileExistsUtf8(FChosenMasterName) then
begin
ShowError(Format(sCannotFindMaster,[ExtractFileName(FChosenMasterName), ShortFn]));
FChosenMasterName := '';
FChosenChildName := '';
ShowError(Format(sCannotFindMaster,[ShortFn]));
end;
end;
OK := (FChosenMasterName <> '');