paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

leakview: less hints

Browse Source
This commit is contained in:
mattias 2024-04-13 11:04:00 +02:00
parent 66d72908dc
commit 1953dcda72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/leakview/heaptrcview.pas
View File

@ -250,7 +250,7 @@ var
sz : Integer; sz : Integer;
begin begin
sz := 32 + trace.Count * 16; // 8 hex digits for Size + 8 hex digits for Size sz := 32 + trace.Count * 16; // 8 hex digits for Size + 8 hex digits for Size
SetLength(Result, sz); SetLength(Result{%H-}, sz);
HexInt64ToStr(trace.BlockSize, Result, 1); HexInt64ToStr(trace.BlockSize, Result, 1);
HexInt64ToStr(hash(trace.RawStackData), Result, 17); HexInt64ToStr(hash(trace.RawStackData), Result, 17);
for i := 0 to trace.Count - 1 do for i := 0 to trace.Count - 1 do