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

FpDebugger (pure): eval locals for selected stackframe

Browse Source 
git-svn-id: trunk@44988 -
This commit is contained in:
martin 2014-05-10 01:46:32 +00:00
parent 3a712955ca
commit 95096bfbda
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -306,6 +306,10 @@ var
i: Integer;
m: TFpDbgValue;
n, v: String;
CurThreadId, CurStackFrame: Integer;
AFrame: TDbgCallstackEntry;
RegList: TDbgRegisterValueList;
Reg: TDbgRegisterValue;
begin
AController := FpDebugger.FDbgController;
if (AController = nil) or (AController.CurrentProcess = nil) or
@ -314,7 +318,28 @@ begin
ALocals.SetDataValidity(ddsInvalid);
exit;
end;
AContext := AController.CurrentProcess.DbgInfo.FindContext(AController.CurrentProcess.GetInstructionPointerRegisterValue);
CurThreadId := Debugger.Threads.CurrentThreads.CurrentThreadId;
CurStackFrame := Debugger.CallStack.CurrentCallStackList.EntriesForThreads[CurThreadId].CurrentIndex;
if CurStackFrame > 0 then
begin
AController.CurrentProcess.MainThread.PrepareCallStackEntryList(CurStackFrame);
AFrame := AController.CurrentProcess.MainThread.CallStackEntryList[CurStackFrame];
if AFrame = nil then
begin
ALocals.SetDataValidity(ddsInvalid);
exit;
end;
RegList := AFrame.RegisterValueList;
end
else
RegList := AController.CurrentProcess.MainThread.RegisterValueList;
Reg := RegList.FindRegisterByDwarfIndex(8);
if Reg <> nil then
AContext := AController.CurrentProcess.DbgInfo.FindContext(ThreadId, CurStackFrame, Reg.NumValue)
else
AContext := nil;
if (AContext = nil) or (AContext.SymbolAtAddress = nil) then begin
ALocals.SetDataValidity(ddsInvalid);