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

lazdebuggers: using TProcessUTF8

Browse Source 
git-svn-id: trunk@50599 -
This commit is contained in:
mattias 2015-12-04 16:04:11 +00:00
parent e6f23aade2
commit 172ba521c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggers/lazdebuggerfpdserver/fpdserverdebugger.pas
View File

@ -22,7 +22,7 @@ uses
lazCollections,
lazutf8sysutils,
strutils,
SysUtils;
SysUtils, UTF8Process;
type
TThreadedQueueString = specialize TLazThreadedQueue<string>;
@ -290,7 +290,7 @@ type
FSocketThread: TFPDSocketThread;
FDebugServerStartedAsChild: boolean;
FIsConnected: boolean;
FDebugProcess: TProcess;
FDebugProcess: TProcessUTF8;
// This is a list of all commands send to the fpdebug-server, to handle the (asynchrounous)
// callback when a command is a succes or failure.
FCommandList: TFPDSendCommandList;
@ -1129,7 +1129,7 @@ begin
port := -1;
if pos('gdb', LowerCase(ExtractFileName(ExternalDebugger)))>0 then
ShowMessage('The name of the external debugger contains ''gdb''. The currently selected FPDebug-debugger can not work in combination with gdb. The debugger will most likely fail to start.');
FDebugProcess := TProcess.Create(nil);
FDebugProcess := TProcessUTF8.Create(nil);
try
try
FDebugProcess.Executable:=ExternalDebugger;