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

* fixed debugtarget PID parsing (for win32)

Browse Source 
git-svn-id: trunk@5301 -
This commit is contained in:
marc 2004-03-13 00:01:53 +00:00
parent 7d54132242
commit 8a799e0061
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/cmdlinedebugger.pp
View File

@ -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

7
debugger/gdbmidebugger.pp
View File

@ -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