paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 10:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: debug

Browse Source 
git-svn-id: trunk@46855 -
This commit is contained in:
mattias 2014-11-15 12:35:36 +00:00
parent b2498d731f
commit ead812fb31
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codeindex.pas
View File

@ -56,6 +56,7 @@ type
destructor Destroy; override;
procedure Clear;
function AddNode(const Description, Identifier: string): TCodeBrowserNode;
function GetMemSize: SizeUInt;
property CBUnit: TCodeBrowserUnit read FCBUnit;
property Desc: TCodeTreeNodeDesc read FDesc write FDesc;
property CodePos: TCodePosition read FCodePos write FCodePos;
@ -217,6 +218,11 @@ begin
FChildNodes.Add(Result);
end;
function TCodeBrowserNode.GetMemSize: SizeUInt;
begin
Result:=InstanceSize+length(FIdentifier)+length(FDescription);
end;
{ TCodeBrowserUnit }
procedure TCodeBrowserUnit.SetScanned(const AValue: boolean);