From ce6dac9d5ab74767fd965c12570b7f12810f5062 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 15 Jan 2015 13:59:07 +0000
Subject: [PATCH] Merged revision(s) 47385 #35b20a6180 from trunk:
 DebuggerGDBMI: creation flags for gdb process on older windows. Issue
 #0027310

git-svn-id: branches/fixes_1_4@47398 -
---
 components/lazdebuggergdbmi/cmdlinedebugger.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/components/lazdebuggergdbmi/cmdlinedebugger.pp b/components/lazdebuggergdbmi/cmdlinedebugger.pp
index c23cb31eb0..45b852d4d8 100644
--- a/components/lazdebuggergdbmi/cmdlinedebugger.pp
+++ b/components/lazdebuggergdbmi/cmdlinedebugger.pp
@@ -335,9 +335,13 @@ begin
     FDbgProcess := TProcessUTF8.Create(nil);
     try
       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];
+      {$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.Environment:=DebuggerEnvironment;
     except