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

Debugger: fix nil pointer access in watch-result

Browse Source
This commit is contained in:
Martin 2022-06-15 13:11:29 +02:00
parent 4e97ffa45f
commit fd69a9ce4b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/idedebuggerwatchresult.pas
View File

@ -3809,6 +3809,8 @@ begin
exit; exit;
assert((AStorage=nil) or (AStorage^=nil) or (AStorage^ is TNestedFieldsWatchResultStorage), 'TGenericWatchResultDataStruct.MaybeUpdateProto: (AStorage=nil) or (AStorage^=nil) or (AStorage^ is TNestedFieldsWatchResultStorage)'); assert((AStorage=nil) or (AStorage^=nil) or (AStorage^ is TNestedFieldsWatchResultStorage), 'TGenericWatchResultDataStruct.MaybeUpdateProto: (AStorage=nil) or (AStorage^=nil) or (AStorage^ is TNestedFieldsWatchResultStorage)');
if (AStorage = nil) or (AStorage^ = nil) then
exit;
for i := 0 to Length(FType.FFieldData) - 1 do begin for i := 0 to Length(FType.FFieldData) - 1 do begin
Store := AStorage; Store := AStorage;
if (Store <> nil) and (Store^ <> nil) then if (Store <> nil) and (Store^ <> nil) then