paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 20:41:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed DUMPGROW compile

Browse Source 
git-svn-id: trunk@1305 -
This commit is contained in:
peter 2005-10-06 05:57:58 +00:00
parent 282f33100f
commit f9f75b40e5
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/inc/heap.inc
View File

@ -472,31 +472,33 @@ end;
procedure DumpBlocks; procedure DumpBlocks;
var var
s,i,j : ptrint; s,i,j : ptrint;
hp : pfreerecord; hpfixed : pmemchunk_fixed;
hpvar : pmemchunk_var;
begin begin
for i := 1 to maxblock do { fixed freelist }
for i := 1 to maxblockindex do
begin begin
hp := freelists[i]; hpfixed := freelists_fixed[i];
j := 0; j := 0;
while assigned(hp) do while assigned(hpfixed) do
begin begin
inc(j); inc(j);
hp := hp^.next; hpfixed := hpfixed^.next_fixed;
end; end;
writeln('Block ',i*blocksize,': ',j); writeln('Block ',i*blocksize,': ',j);
end; end;
{ freelist 0 } { var freelist }
hp := freelists[0]; hpvar := freelist_var;
j := 0; j := 0;
s := 0; s := 0;
while assigned(hp) do while assigned(hpvar) do
begin begin
inc(j); inc(j);
if hp^.size>s then if hpvar^.size>s then
s := hp^.size; s := hpvar^.size;
hp := hp^.next; hpvar := hpvar^.next_var;
end; end;
writeln('Main: ',j,' maxsize: ',s); writeln('Variable: ',j,' maxsize: ',s);
end; end;
{$endif} {$endif}