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

DebuggerGDBMI: creation flags for gdb process on older windows. Issue #0027310

Browse Source 
git-svn-id: trunk@47385 -
This commit is contained in:
martin 2015-01-14 17:41:48 +00:00
parent aea48ebd14
commit 35b20a6180
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggergdbmi/cmdlinedebugger.pp
View File

@ -335,9 +335,13 @@ begin
FDbgProcess := TProcessUTF8.Create(nil); FDbgProcess := TProcessUTF8.Create(nil);
try try
FDbgProcess.CommandLine := ExternalDebugger + ' ' + AOptions; FDbgProcess.CommandLine := ExternalDebugger + ' ' + AOptions;
// TODO: under win9x and winMe should be created with console,
// otherwise no break can be sent.
FDbgProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut, poNewProcessGroup]; FDbgProcess.Options:= [poUsePipes, poNoConsole, poStdErrToOutPut, poNewProcessGroup];
{$if defined(windows) and not defined(wince)}
// under win9x and winMe should be created with console,
// otherwise no break can be sent.
if Win32MajorVersion <= 4 then
FDbgProcess.Options:= [poUsePipes, poNewConsole, poStdErrToOutPut, poNewProcessGroup];
{$endif windows}
FDbgProcess.ShowWindow := swoNone; FDbgProcess.ShowWindow := swoNone;
FDbgProcess.Environment:=DebuggerEnvironment; FDbgProcess.Environment:=DebuggerEnvironment;
except except