paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-21 00:49:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-base: less hints

Browse Source
This commit is contained in:
mattias 2019-02-15 22:40:30 +00:00
parent fb5f97355d
commit 6731fdacd0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-base/custapp.pas
View File

@ -189,6 +189,7 @@ begin
ShowException(ExceptObject); ShowException(ExceptObject);
if FStopOnException then if FStopOnException then
Terminate(ExceptionExitCode); Terminate(ExceptionExitCode);
if Sender=nil then ;
end; end;
procedure TCustomApplication.Initialize; procedure TCustomApplication.Initialize;