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

fpdebug: added params to stack (fixed for frames without context)

Browse Source 
git-svn-id: trunk@49132 -
This commit is contained in:
martin 2015-05-22 14:48:42 +00:00
parent b5f8f80f55
commit fe30e47f9b
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -513,6 +513,7 @@ begin
Reg := RegList.FindRegisterByDwarfIndex(16);
if Reg <> nil then begin
AContext := AController.CurrentProcess.DbgInfo.FindContext(CurThreadId, e.Index, Reg.NumValue);
if AContext <> nil then begin
AContext.MemManager.DefaultContext := AContext;
FPrettyPrinter.AddressSize := AContext.SizeOfAddress;
@ -526,6 +527,7 @@ begin
end;
end;
end;
end;
if params <> '' then
params := '(' + params + ')';
e.Init(ThreadCallStack[e.Index].AnAddress, nil,