paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 13:37:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 47385 #35b20a6180 from trunk:

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

git-svn-id: branches/fixes_1_4@47398 -
This commit is contained in:
martin 2015-01-15 13:59:07 +00:00
parent 2105655212
commit ce6dac9d5a
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