From c6c16d5bbd04797daef1de3af7970596c30c9d2e Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sat, 3 Nov 2007 02:42:40 +0000
Subject: [PATCH] * Reduced async-record shlibs debugger output

git-svn-id: trunk@12712 -
---
 debugger/gdbmidebugger.pp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 1ea8042d64..0c1665470e 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -1652,9 +1652,19 @@ function TGDBMIDebugger.ProcessRunning(var AStoppedParams: String): Boolean;
     DebugLn('[Debugger] Status output: ', Line);
   end;
 
-  procedure DoNotifyAsync(const Line: String);
+  procedure DoNotifyAsync(var Line: String);
+  var
+    S: String;
   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;
 
   procedure DoResultRecord(const Line: String);