paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 11:45:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #31687

Browse Source 
git-svn-id: trunk@35877 -
This commit is contained in:
michael 2017-04-21 18:44:49 +00:00
parent b38a7fb852
commit 6a5ed4ac5b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/custapp.pp
View File

@ -362,15 +362,14 @@ end;
procedure TCustomApplication.Terminate; procedure TCustomApplication.Terminate;
begin begin
Terminate(0); Terminate(ExitCode);
end; end;
procedure TCustomApplication.Terminate(AExitCode : Integer) ; procedure TCustomApplication.Terminate(AExitCode : Integer) ;
begin begin
FTerminated:=True; FTerminated:=True;
If (AExitCode<>0) then ExitCode:=AExitCode;
ExitCode:=AExitCode;
end; end;
function TCustomApplication.GetOptionAtIndex(AIndex : Integer; IsLong: Boolean): String; function TCustomApplication.GetOptionAtIndex(AIndex : Integer; IsLong: Boolean): String;