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

FpDebug: add enumerator for threadmap

Browse Source 
git-svn-id: trunk@60095 -
This commit is contained in:
martin 2019-01-16 22:32:49 +00:00
parent b98f61cd23
commit 95d1609a43
1 changed files with 44 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/fpdebug/fpdbgclasses.pp
View File

@ -179,6 +179,24 @@ type
end;
TDbgThreadClass = class of TDbgThread;
{ TThreadMapEnumerator }
TThreadMapEnumerator = class(TMapIterator)
private
FDoneFirst: Boolean;
function GetCurrent: TDbgThread;
public
function MoveNext: Boolean;
property Current: TDbgThread read GetCurrent;
end;
{ TThreadMap }
TThreadMap = class(TMap)
public
function GetEnumerator: TThreadMapEnumerator;
end;
{ TFpInternalBreakpointBase }
TFpInternalBreakpointBase = class(TObject)
@ -293,7 +311,7 @@ type
FSymInstances: TList; // list of dbgInstances with debug info
FThreadMap: TMap; // map ThreadID -> ThreadObject
FThreadMap: TThreadMap; // map ThreadID -> ThreadObject
FLibMap: TMap; // map LibAddr -> LibObject
FBreakMap: TMap; // map BreakAddr -> BreakObject
@ -426,6 +444,30 @@ begin
result := GOSDbgClasses;
end;
{ TThreadMapEnumerator }
function TThreadMapEnumerator.GetCurrent: TDbgThread;
begin
GetData(Result);
end;
function TThreadMapEnumerator.MoveNext: Boolean;
begin
if FDoneFirst then
Next
else
First;
FDoneFirst := True;
Result := not EOM;
end;
{ TThreadMap }
function TThreadMap.GetEnumerator: TThreadMapEnumerator;
begin
Result := TThreadMapEnumerator.Create(Self);
end;
{ TDbgCallstackEntry }
function TDbgCallstackEntry.GetSymbol: TFpDbgSymbol;
@ -793,7 +835,7 @@ begin
FProcessID := AProcessID;
FThreadID := AThreadID;
FThreadMap := TMap.Create(itu4, SizeOf(TDbgThread));
FThreadMap := TThreadMap.Create(itu4, SizeOf(TDbgThread));
FLibMap := TMap.Create(MAP_ID_SIZE, SizeOf(TDbgLibrary));
FBreakMap := TMap.Create(MAP_ID_SIZE, SizeOf(TFpInternalBreakpoint));
FCurrentBreakpoint := nil;