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

FpDebug: Improve the display of types (in watches) for structure-types in pointer to struct. Issue #40882

Browse Source
This commit is contained in:
Martin 2024-09-26 00:06:46 +02:00
parent 05030d7c88
commit 1c6efc9edc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fppascalbuilder.pas
View File

@ -287,8 +287,10 @@ var
while (i < c) and Result do begin while (i < c) and Result do begin
m := ADbgSymbol.NestedSymbol[i]; m := ADbgSymbol.NestedSymbol[i];
AddVisibility(m.MemberVisibility, i= 0); AddVisibility(m.MemberVisibility, i= 0);
if tdfStopAfterPointer in ANewFlags then if tdfStopAfterPointer in ANewFlags then begin
r := GetTypeName(s, m) r := GetTypeName(s, m);
s := m.Name + ': ' + s;
end
else else
r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + ANewFlags, AnIndent + 4); r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + ANewFlags, AnIndent + 4);
if r then if r then