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

debugger: move DoNotifyAsync to debugger class, parse thread events for event log

Browse Source 
git-svn-id: trunk@30651 -
This commit is contained in:
paul 2011-05-10 01:43:35 +00:00
parent bc90d1d06c
commit 21c357d3c8
1 changed files with 46 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

90
debugger/gdbmidebugger.pp
View File

@ -394,10 +394,12 @@ type
property DebuggerFlags: TGDBMIDebuggerFlags read FDebuggerFlags; property DebuggerFlags: TGDBMIDebuggerFlags read FDebuggerFlags;
procedure DoRelease; override; // Destroy self (or schedule) procedure DoRelease; override; // Destroy self (or schedule)
procedure DoNotifyAsync(Line: String);
procedure AddThreadGroup(const S: String); procedure AddThreadGroup(const S: String);
procedure RemoveThreadGroup(const S: String); procedure RemoveThreadGroup(const S: String);
function ParseLibraryLoaded(const S: String): String; function ParseLibraryLoaded(const S: String): String;
function ParseLibraryUnLoaded(const S: String): String; function ParseLibraryUnLoaded(const S: String): String;
function ParseThread(const S, EventText: String): String;
public public
class function CreateProperties: TDebuggerProperties; override; // Creates debuggerproperties class function CreateProperties: TDebuggerProperties; override; // Creates debuggerproperties
class function Caption: String; override; class function Caption: String; override;
@ -3812,25 +3814,6 @@ var
DebugLn('[Debugger] Status output: ', Line); DebugLn('[Debugger] Status output: ', Line);
end; end;
procedure DoNotifyAsync(var Line: String);
var
S: String;
begin
S := GetPart(['='], [','], Line, False, False);
case StringCase(S, [
'shlibs-added',
'library-loaded',
'library-unloaded',
'shlibs-updated'], False, False) of
0: DoDbgEvent(ecModule, etModuleLoad, Line);
1: DoDbgEvent(ecModule, etModuleLoad, FTheDebugger.ParseLibraryLoaded(Line));
2: DoDbgEvent(ecModule, etModuleUnload, FTheDebugger.ParseLibraryUnloaded(Line));
3: DoDbgEvent(ecModule, etDefault, Line);
else
DebugLn('[Debugger] Notify output: ', Line);
end;
end;
procedure DoResultRecord(Line: String); procedure DoResultRecord(Line: String);
var var
ResultClass: String; ResultClass: String;
@ -3919,7 +3902,7 @@ begin
'&': DoLogStream(S); '&': DoLogStream(S);
'*': if DoExecAsync(S) then Continue; '*': if DoExecAsync(S) then Continue;
'+': DoStatusAsync(S); '+': DoStatusAsync(S);
'=': DoNotifyAsync(S); '=': FTheDebugger.DoNotifyAsync(S);
else else
// since target output isn't prefixed (yet?) // since target output isn't prefixed (yet?)
// one of our known commands could be part of it. // one of our known commands could be part of it.
@ -5455,6 +5438,48 @@ begin
List.Free; List.Free;
end; end;
function TGDBMIDebugger.ParseThread(const S, EventText: String): String;
var
List: TGDBMINameValueList;
ThreadGroup: String;
begin
if EventText = 'thread-created' then
Result := 'Thread Start: '
else
Result := 'Thread Exit: ';
List := TGDBMINameValueList.Create(S);
ThreadGroup := List.Values['group-id'];
Result := Result + Format('Thread ID: %s. Thread Group: %s (%s)', [List.Values['id'], ThreadGroup, FThreadGroups.Values[ThreadGroup]]);
List.Free;
end;
procedure TGDBMIDebugger.DoNotifyAsync(Line: String);
var
EventText: String;
begin
EventText := GetPart(['='], [','], Line, False, False);
case StringCase(EventText, [
'shlibs-added',
'library-loaded',
'library-unloaded',
'shlibs-updated',
'thread-group-started',
'thread-group-exited',
'thread-created',
'thread-exited'], False, False) of
0: DoDbgEvent(ecModule, etModuleLoad, Line);
1: DoDbgEvent(ecModule, etModuleLoad, ParseLibraryLoaded(Line));
2: DoDbgEvent(ecModule, etModuleUnload, ParseLibraryUnloaded(Line));
3: DoDbgEvent(ecModule, etDefault, Line);
4: AddThreadGroup(Line);
5: RemoveThreadGroup(Line);
6: DoDbgEvent(ecThread, etThreadStart, ParseThread(Line, EventText));
7: DoDbgEvent(ecThread, etThreadExit, ParseThread(Line, EventText));
else
DebugLn('[WARNING] Debugger: Unexpected async-record: ', Line);
end;
end;
function TGDBMIDebugger.ExecuteCommand(const ACommand: String; function TGDBMIDebugger.ExecuteCommand(const ACommand: String;
const AFlags: TGDBMICmdFlags): Boolean; const AFlags: TGDBMICmdFlags): Boolean;
var var
@ -9042,29 +9067,6 @@ var
DebugLn('[WARNING] Debugger: Unexpected async-record: ', Line); DebugLn('[WARNING] Debugger: Unexpected async-record: ', Line);
end; end;
procedure DoNotifyAsync(Line: String);
var
EventText: String;
begin
EventText := GetPart(['='], [','], Line, False, False);
case StringCase(EventText, [
'library-loaded', 'library-unloaded',
'thread-group-started',
'thread-group-exited',
'thread-created',
'thread-exited'], False, False)
of
0: DoDbgEvent(ecModule, etModuleLoad, FTheDebugger.ParseLibraryLoaded(Line));
1: DoDbgEvent(ecModule, etModuleUnload, FTheDebugger.ParseLibraryUnloaded(Line));
2: FTheDebugger.AddThreadGroup(Line);
3: FTheDebugger.RemoveThreadGroup(Line);
4: DoDbgEvent(ecThread, etThreadStart, Line);
5: DoDbgEvent(ecThread, etThreadExit, Line);
else
DebugLn('[WARNING] Debugger: Unexpected async-record: ', Line);
end;
end;
var var
S: String; S: String;
begin begin
@ -9087,7 +9089,7 @@ begin
'&': DoLogStream(S); '&': DoLogStream(S);
'*': DoExecAsync(S); '*': DoExecAsync(S);
'+': DoStatusAsync(S); '+': DoStatusAsync(S);
'=': DoNotifyAsync(S); '=': FTheDebugger.DoNotifyAsync(S);
else else
DebugLn('[WARNING] Debugger: Unknown record: ', S); DebugLn('[WARNING] Debugger: Unknown record: ', S);
end; end;