paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpdebug: using TProcessUTF8

Browse Source 
git-svn-id: branches/fixes_1_6@50607 -
This commit is contained in:
mattias 2015-12-04 17:33:38 +00:00
parent eb23308cf6
commit d5eb09020c
3 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -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;

7
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -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;

8
components/fpdebug/fpdbgwinclasses.pas
View File

@ -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;