paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 01:50:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Reduced async-record shlibs debugger output

Browse Source 
git-svn-id: trunk@12712 -
This commit is contained in:
marc 2007-11-03 02:42:40 +00:00
parent 31f9b02560
commit c6c16d5bbd
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/gdbmidebugger.pp
View File

@ -1652,9 +1652,19 @@ function TGDBMIDebugger.ProcessRunning(var AStoppedParams: String): Boolean;
DebugLn('[Debugger] Status output: ', Line); DebugLn('[Debugger] Status output: ', Line);
end; end;
procedure DoNotifyAsync(const Line: String); procedure DoNotifyAsync(var Line: String);
var
S: String;
begin begin
DebugLn('[Debugger] Notify output: ', Line); S := GetPart('=', ',', Line);
case StringCase(S, ['shlibs-added', 'shlibs-updated']) of
0: begin
//TODO: track libs
end;
1:; //ignore
else
DebugLn('[Debugger] Notify output: ', Line);
end;
end; end;
procedure DoResultRecord(const Line: String); procedure DoResultRecord(const Line: String);