From 6a5ed4ac5b99d4aeb895d2324fe4e795fe4bb697 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 21 Apr 2017 18:44:49 +0000
Subject: [PATCH] * Fixed bug #31687

git-svn-id: trunk@35877 -
---
 packages/fcl-base/src/custapp.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-base/src/custapp.pp b/packages/fcl-base/src/custapp.pp
index 0f722d9a3a..5c7bd36745 100644
--- a/packages/fcl-base/src/custapp.pp
+++ b/packages/fcl-base/src/custapp.pp
@@ -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;