|
@@ -22,7 +22,6 @@ interface
|
|
|
{$endif}
|
|
|
|
|
|
Procedure DumpHeap;
|
|
|
-Procedure MarkHeap;
|
|
|
|
|
|
{ define EXTRA to add more
|
|
|
tests :
|
|
@@ -964,19 +963,6 @@ begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
-procedure markheap;
|
|
|
-var
|
|
|
- pp : pheap_mem_info;
|
|
|
-begin
|
|
|
- pp:=heap_mem_root;
|
|
|
- while pp<>nil do
|
|
|
- begin
|
|
|
- pp^.sig:=$AAAAAAAA;
|
|
|
- pp:=pp^.previous;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
{*****************************************************************************
|
|
|
AllocMem
|
|
|
*****************************************************************************}
|