paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 10:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not show a backtrace when the compiler-executable is not found. Bug #22380.

Browse Source 
git-svn-id: trunk@29205 -
This commit is contained in:
joost 2014-12-05 16:15:29 +00:00
parent 9b9ab1c829
commit 840e7ace59
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fpmkunit/src/fpmkunit.pp
View File

@ -8108,7 +8108,23 @@ var
Function Installer(InstallerClass: TInstallerClass): TCustomInstaller;
begin
If Not Assigned(DefInstaller) then
DefInstaller:=InstallerClass.Create(Nil);
begin
try
DefInstaller:=InstallerClass.Create(Nil);
except
On E : Exception do
begin
if IsConsole then
begin
WriteLn(SErrInstaller);
WriteLn(E.Message);
halt(1);
end
else
raise;
end;
end;
end;
Result:=DefInstaller;
end;