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

DBG: Fix evaluation of base-classes. Don't eval the type

Browse Source 
git-svn-id: trunk@33211 -
This commit is contained in:
martin 2011-11-02 01:26:38 +00:00
parent 2f38072922
commit f00bddfe80
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbtypeinfo.pp
View File

@ -1927,7 +1927,9 @@ var
FProcessState := gtpsClassAncestor; FProcessState := gtpsClassAncestor;
If FTypeInfoAncestor = nil then begin If FTypeInfoAncestor = nil then begin
FTypeInfoAncestor := TGDBType.CreateForExpression(FAncestor, FCreationFlags + [gtcfExprIsType]); FTypeInfoAncestor := TGDBType.CreateForExpression(FAncestor,
FCreationFlags*[gtcfClassIsPointer, gtcfFullTypeInfo, gtcfSkipTypeName] + [gtcfExprIsType]
);
AddSubType(FTypeInfoAncestor); AddSubType(FTypeInfoAncestor);
end; end;
if not FTypeInfoAncestor.IsFinished then if not FTypeInfoAncestor.IsFinished then