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

FpDebug: Fix uninitialized result in watch-to-intf

Browse Source
This commit is contained in:
Martin 2022-06-18 16:41:05 +02:00
parent b2c9e115f8
commit 4d3a8af105
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpwatchresultdata.pas
View File

@ -617,7 +617,7 @@ begin
FHasEmbeddedPointer := True
else
if FHasEmbeddedPointer and (FLastValueKind <> skPointer) then
exit;
exit(True); // not an error
// Allow only one level, after an embedded pointer (pointer nested in other data-type)
end;
@ -683,10 +683,10 @@ function TFpWatchResultConvertor.DoWritePointerWatchResultData(
): Boolean;
begin
if FRecurseAddrList.IndexOf(AnAddr) >= 0 then
exit;
exit(True);
if AnAddr <> 0 then
FRecurseAddrList.Add(AnAddr);
DoWriteWatchResultData(AnFpValue, AnResData);
Result := DoWriteWatchResultData(AnFpValue, AnResData);
if AnAddr <> 0 then
FRecurseAddrList.Remove(AnAddr);
end;