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

LazDebuggerFp: fix context (crash) during stack eval

Browse Source 
git-svn-id: trunk@61804 -
This commit is contained in:
martin 2019-09-02 00:44:49 +00:00
parent 386be78e7c
commit 4db4bc458b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,7 +21,7 @@ uses
DbgIntfDebuggerBase,
FpdMemoryTools,
FpPascalParser,
FPDbgController, FpDbgDwarfDataClasses, FpDbgDwarfFreePascal;
FPDbgController, FpDbgDwarfDataClasses, FpDbgDwarfFreePascal, FpDbgDwarf;
type
@ -663,9 +663,12 @@ begin
else
Reg := RegList.FindRegisterByDwarfIndex(16);
if Reg <> nil then begin
// TODO: TDbgCallstackEntry.GetParamsAsString
AContext := AController.CurrentProcess.DbgInfo.FindContext(CurThreadId, e.Index, Reg.NumValue);
if AContext <> nil then begin
AContext.MemManager.DefaultContext := AContext;
if ProcVal is TFpValueDwarfBase then
TFpValueDwarfBase(ProcVal).Context := AContext;
FPrettyPrinter.MemManager := AContext.MemManager;
FPrettyPrinter.AddressSize := AContext.SizeOfAddress;
@ -677,6 +680,8 @@ begin
params := params + v;
end;
end;
if ProcVal is TFpValueDwarfBase then
TFpValueDwarfBase(ProcVal).Context := nil;
AContext.ReleaseReference;
end;
end;