paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +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;
begin
Terminate(0);
Terminate(ExitCode);
end;
procedure TCustomApplication.Terminate(AExitCode : Integer) ;
begin
FTerminated:=True;
If (AExitCode<>0) then
ExitCode:=AExitCode;
ExitCode:=AExitCode;
end;
function TCustomApplication.GetOptionAtIndex(AIndex : Integer; IsLong: Boolean): String;