paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:49:22 +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

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

@ -513,15 +513,17 @@ begin
Reg := RegList.FindRegisterByDwarfIndex(16); Reg := RegList.FindRegisterByDwarfIndex(16);
if Reg <> nil then begin if Reg <> nil then begin
AContext := AController.CurrentProcess.DbgInfo.FindContext(CurThreadId, e.Index, Reg.NumValue); AContext := AController.CurrentProcess.DbgInfo.FindContext(CurThreadId, e.Index, Reg.NumValue);
AContext.MemManager.DefaultContext := AContext; if AContext <> nil then begin
FPrettyPrinter.AddressSize := AContext.SizeOfAddress; AContext.MemManager.DefaultContext := AContext;
FPrettyPrinter.AddressSize := AContext.SizeOfAddress;
for i := 0 to ProcVal.MemberCount - 1 do begin for i := 0 to ProcVal.MemberCount - 1 do begin
m := ProcVal.Member[i]; m := ProcVal.Member[i];
if (m <> nil) and (sfParameter in m.DbgSymbol.Flags) then begin if (m <> nil) and (sfParameter in m.DbgSymbol.Flags) then begin
FPrettyPrinter.PrintValue(v, m, wdfDefault, -1, [ppoStackParam]); FPrettyPrinter.PrintValue(v, m, wdfDefault, -1, [ppoStackParam]);
if params <> '' then params := params + ', '; if params <> '' then params := params + ', ';
params := params + v; params := params + v;
end;
end; end;
end; end;
end; end;