paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 00:17:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: pascal-builder improve tolerance for unknown types in classes

Browse Source 
git-svn-id: trunk@61755 -
This commit is contained in:
martin 2019-08-24 20:39:57 +00:00
parent b8f6c44020
commit 7096bc4c00
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fppascalbuilder.pas
View File

@ -185,6 +185,7 @@ var
c, i: Integer;
m: TFpSymbol;
s: String;
r: Boolean;
begin
Result := True;
AText := '';
@ -194,11 +195,13 @@ var
m := ADbgSymbol.Member[i];
AddVisibility(m.MemberVisibility, i= 0);
if tdfStopAfterPointer in AFlags then
Result := GetTypeName(s, m)
r := GetTypeName(s, m)
else
Result := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + AFlags, AnIndent + 4);
if Result then
AText := AText + GetIndent + s + ';' + LineEnding;
r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + AFlags, AnIndent + 4);
if r then
AText := AText + GetIndent + s + ';' + LineEnding
else
AText := AText + m.Name + ': <unknown>;' + LineEnding;
inc(i);
end;
end;