From 8a799e00611fb880e2f956735de43d986e212089 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sat, 13 Mar 2004 00:01:53 +0000
Subject: [PATCH] * fixed debugtarget PID parsing (for win32)

git-svn-id: trunk@5301 -
---
 debugger/cmdlinedebugger.pp | 7 +++++--
 debugger/gdbmidebugger.pp   | 7 ++++---
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/debugger/cmdlinedebugger.pp b/debugger/cmdlinedebugger.pp
index 9c2ace767b..e38b77e3b8 100644
--- a/debugger/cmdlinedebugger.pp
+++ b/debugger/cmdlinedebugger.pp
@@ -398,12 +398,12 @@ begin
   if FFlushAfterRead 
   then FOutputBuf := '';
   FFlushAfterRead := False;
-  writeln('TCmdLineDebugger.ReadLine returns ', result);
+  //writeln('TCmdLineDebugger.ReadLine returns ', result);
 end;
 
 procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload;
 begin
-  writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"');
+  //writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"');
   if DebugProcessRunning
   then begin
     DoDbgOutput('<' + ACommand + '>');
@@ -435,6 +435,9 @@ initialization
 end.
 { =============================================================================
   $Log$
+  Revision 1.33  2004/03/13 00:01:53  marc
+  * fixed debugtarget PID parsing (for win32)
+
   Revision 1.32  2004/03/12 22:12:53  vincents
   fixed non-win32 compilation
 
diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 5a9a9db562..127f095e4c 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -1543,9 +1543,7 @@ begin
   // try to find PID
   if ExecuteCommand('info program', [], ResultState, S, [cfIgnoreError, cfNoMICommand])
   then begin
-     TargetPIDPart:=GetPart('child process ', '.', S);
-     if TargetPIDPart='' then
-       TargetPIDPart:=GetPart('child Thread ', ' ', S);
+     TargetPIDPart := GetPart(['child process ', 'child thread '], [' ', '.'], S, True);
      FTargetPID := StrToIntDef(TargetPIDPart, 0);
 
      WriteLN('[Debugger] Target PID: ', FTargetPID);
@@ -2263,6 +2261,9 @@ initialization
 end.
 { =============================================================================
   $Log$
+  Revision 1.44  2004/03/13 00:01:53  marc
+  * fixed debugtarget PID parsing (for win32)
+
   Revision 1.43  2004/03/12 21:39:29  vincents
   Lazarus can communicate with debugger on win32