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

FpDebug: do not attempt to cache for unknown array types

Browse Source
This commit is contained in:
Martin 2023-03-31 23:20:43 +02:00
parent 2df8c6199b
commit 11c09530bd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpwatchresultdata.pas
View File

@ -406,7 +406,11 @@ begin
CacheMax := StartIdx; CacheMax := StartIdx;
CacheSize := 0; CacheSize := 0;
CacheCnt := 200; CacheCnt := 200;
MemberValue := AnFpValue.Member[StartIdx+LowBnd]; // // TODO : CheckError // ClearError for AnFpValue //if (ti = nil) or (ti.Flags * [sfDynArray, sfStatArray] = []) then
if (ti = nil) then
MemberValue := nil // could be mapped array slice, with non consecutive entries
else
MemberValue := AnFpValue.Member[StartIdx+LowBnd]; // // TODO : CheckError // ClearError for AnFpValue
if (MemberValue = nil) or (not IsTargetNotNil(MemberValue.Address)) or if (MemberValue = nil) or (not IsTargetNotNil(MemberValue.Address)) or
(Context.MemManager.CacheManager = nil) (Context.MemManager.CacheManager = nil)
then begin then begin