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

FpDebug: Prevent a stack overflow, recursive display of record in record constructor "TFoo.Create(a: TFoo)". Outer "AFlags" were hidden, preventing the recursion from being detected

Browse Source 
git-svn-id: trunk@62037 -
This commit is contained in:
martin 2019-10-11 12:07:24 +00:00
parent 57e0e15e0f
commit fc63e31186
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fppascalbuilder.pas
View File

@ -188,7 +188,7 @@ var
Result := i > 0;
end;
Function MembersAsGdbText(out AText: String; WithVisibilty: Boolean; AFlags: TTypeDeclarationFlags = []): Boolean;
Function MembersAsGdbText(out AText: String; WithVisibilty: Boolean; ANewFlags: TTypeDeclarationFlags = []): Boolean;
var
CurVis: TDbgSymbolMemberVisibility;
@ -212,15 +212,16 @@ var
begin
Result := True;
AText := '';
ANewFlags := ANewFlags + AFlags;
c := ADbgSymbol.NestedSymbolCount;
i := 0;
while (i < c) and Result do begin
m := ADbgSymbol.NestedSymbol[i];
AddVisibility(m.MemberVisibility, i= 0);
if tdfStopAfterPointer in AFlags then
if tdfStopAfterPointer in ANewFlags then
r := GetTypeName(s, m)
else
r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + AFlags, AnIndent + 4);
r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + ANewFlags, AnIndent + 4);
if r then
AText := AText + GetIndent + s + ';' + LineEnding
else