From 8127eb0b0f2b70776f387d88cb3f5b832269e7c8 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 9 Oct 2007 21:12:04 +0000
Subject: [PATCH] * Made FRunning and FExitCode protected

git-svn-id: trunk@8757 -
---
 packages/fcl-base/src/inc/process.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/inc/process.pp b/packages/fcl-base/src/inc/process.pp
index 6d8f3a1d8c..3b6578116a 100644
--- a/packages/fcl-base/src/inc/process.pp
+++ b/packages/fcl-base/src/inc/process.pp
@@ -56,7 +56,6 @@ Type
     FCurrentDirectory : String;
     FDesktop : String;
     FEnvironment : Tstrings;
-    FExitCode : Cardinal;
     FShowWindow : TShowWindowOptions;
     FInherithandles : Boolean;
     FRunning : Boolean;
@@ -85,6 +84,8 @@ Type
     procedure SetEnvironment(const Value: TStrings);
     function  PeekExitStatus: Boolean;
   Protected  
+    FRunning : Boolean;
+    FExitCode : Cardinal;
     FInputStream  : TOutputPipeStream;
     FOutputStream : TInputPipeStream;
     FStderrStream : TInputPipeStream;