From 0924792e5f2bca47457237eea0bd025bcee799c9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 4 Dec 2015 16:03:20 +0000
Subject: [PATCH] fpdebug: using TProcessUTF8

git-svn-id: trunk@50596 -
---
 components/fpdebug/fpdbgdarwinclasses.pas | 7 ++++---
 components/fpdebug/fpdbglinuxclasses.pas  | 7 ++++---
 components/fpdebug/fpdbgwinclasses.pas    | 8 ++++----
 3 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/components/fpdebug/fpdbgdarwinclasses.pas b/components/fpdebug/fpdbgdarwinclasses.pas
index 06dc24b339..aa4573a520 100644
--- a/components/fpdebug/fpdbgdarwinclasses.pas
+++ b/components/fpdebug/fpdbgdarwinclasses.pas
@@ -20,6 +20,7 @@ uses
   FpDbgInfo,
   MacOSAll,
   FpDbgUtil,
+  UTF8Process,
   LazLoggerBase;
 
 type
@@ -125,7 +126,7 @@ type
     FStatus: cint;
     FProcessStarted: boolean;
     FTaskPort: mach_port_name_t;
-    FProcProcess: TProcess;
+    FProcProcess: TProcessUTF8;
     FIsTerminating: boolean;
     FExceptionSignal: PtrUInt;
     FMasterPtyFd: cint;
@@ -710,7 +711,7 @@ end;
 class function TDbgDarwinProcess.StartInstance(AFileName: string; AParams, AnEnvironment: TStrings; AWorkingDirectory, AConsoleTty: string; AOnLog: TOnLog; ReDirectOutput: boolean): TDbgProcess;
 var
   PID: TPid;
-  AProcess: TProcess;
+  AProcess: TProcessUTF8;
   AnExecutabeFilename: string;
   AMasterPtyFd: cint;
 begin
@@ -751,7 +752,7 @@ begin
       end;
     end;
 
-  AProcess := TProcess.Create(nil);
+  AProcess := TProcessUTF8.Create(nil);
   try
     AProcess.OnForkEvent:=@OnForkEvent;
     AProcess.Executable:=AnExecutabeFilename;
diff --git a/components/fpdebug/fpdbglinuxclasses.pas b/components/fpdebug/fpdbglinuxclasses.pas
index eb5055b8dc..3dd9a3a03c 100644
--- a/components/fpdebug/fpdbglinuxclasses.pas
+++ b/components/fpdebug/fpdbglinuxclasses.pas
@@ -17,6 +17,7 @@ uses
   FpDbgLinuxExtra,
   FpDbgInfo,
   FpDbgUtil,
+  UTF8Process,
   LazLoggerBase;
 
 type
@@ -245,7 +246,7 @@ type
   private
     FStatus: cint;
     FProcessStarted: boolean;
-    FProcProcess: TProcess;
+    FProcProcess: TProcessUTF8;
     FIsTerminating: boolean;
     FExceptionSignal: PtrUInt;
     FMasterPtyFd: cint;
@@ -586,7 +587,7 @@ class function TDbgLinuxProcess.StartInstance(AFileName: string; AParams, AnEnvi
   AOnLog: TOnLog; ReDirectOutput: boolean): TDbgProcess;
 var
   PID: TPid;
-  AProcess: TProcess;
+  AProcess: TProcessUTF8;
   AMasterPtyFd: cint;
   AnExecutabeFilename: string;
 begin
@@ -620,7 +621,7 @@ begin
     GConsoleTty:=AConsoleTty;
     end;
 
-  AProcess := TProcess.Create(nil);
+  AProcess := TProcessUTF8.Create(nil);
   try
     AProcess.OnForkEvent:=@OnForkEvent;
     AProcess.Executable:=AnExecutabeFilename;
diff --git a/components/fpdebug/fpdbgwinclasses.pas b/components/fpdebug/fpdbgwinclasses.pas
index c3173c2b8c..2cbd29f7f6 100644
--- a/components/fpdebug/fpdbgwinclasses.pas
+++ b/components/fpdebug/fpdbgwinclasses.pas
@@ -49,7 +49,7 @@ uses
   FpDbgInfo,
   FpDbgLoader,
   DbgIntfBaseTypes,
-  LazLoggerBase;
+  LazLoggerBase, UTF8Process;
 
 type
 
@@ -84,7 +84,7 @@ type
   private
     FInfo: TCreateProcessDebugInfo;
     FPauseRequested: boolean;
-    FProcProcess: TProcess;
+    FProcProcess: TProcessUTF8;
     FJustStarted: boolean;
     function GetFullProcessImageName(AProcessHandle: THandle): string;
     function GetModuleFileName(AModuleHandle: THandle): string;
@@ -453,10 +453,10 @@ end;
 class function TDbgWinProcess.StartInstance(AFileName: string; AParams, AnEnvironment: TStrings; AWorkingDirectory, AConsoleTty: string;
   AOnLog: TOnLog; ReDirectOutput: boolean): TDbgProcess;
 var
-  AProcess: TProcess;
+  AProcess: TProcessUTF8;
 begin
   result := nil;
-  AProcess := TProcess.Create(nil);
+  AProcess := TProcessUTF8.Create(nil);
   try
     AProcess.Options:=[poDebugProcess, poNewProcessGroup];
     AProcess.Executable:=AFilename;