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

FpDebug: Fix stack-overflow for types with recursive declaration.

Browse Source
This commit is contained in:
Martin 2022-03-23 17:22:18 +01:00
parent a5e41cac33
commit c7e123fd8d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -4439,6 +4439,8 @@ procedure TFpSymbolDwarfType.ResetValueBounds;
var var
ti: TFpSymbolDwarfType; ti: TFpSymbolDwarfType;
begin begin
if FNestedTypeInfo = nil then
exit;
ti := NestedTypeInfo; ti := NestedTypeInfo;
if (ti <> nil) then if (ti <> nil) then
ti.ResetValueBounds; ti.ResetValueBounds;