paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 02:58:05 +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
m := ADbgSymbol.NestedSymbol[i];
AddVisibility(m.MemberVisibility, i= 0);
if tdfStopAfterPointer in ANewFlags then
r := GetTypeName(s, m)
if tdfStopAfterPointer in ANewFlags then begin
r := GetTypeName(s, m);
s := m.Name + ': ' + s;
end
else
r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + ANewFlags, AnIndent + 4);
if r then