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

Debugger: fix wrong assertion

Browse Source
This commit is contained in:
Martin 2022-06-10 16:21:03 +02:00
parent 45b403df81
commit 7d66280e62
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/packages/idedebugger/debugger.pp
View File

@ -3338,7 +3338,8 @@ end;
procedure TCurrentResData.MarkResDataAsUsedByOwner;
begin
assert(FNewResultData<>nil, 'TCurrentResData.MarkResDataAsUsedByOwner: FNewResultData<>nil');
if FNewResultData = nil then
exit;
if FNewResultData.ValueKind = rdkError then begin
Exclude(FFLags, crfFreeErrResData);
Include(FFLags, crfFreeResData);