Explorar o código

- removed markheap since it doesn't work anymore (since a long
time already in fact)

git-svn-id: trunk@2968 -

Jonas Maebe %!s(int64=19) %!d(string=hai) anos
pai
achega
b8e3723bb0
Modificáronse 1 ficheiros con 0 adicións e 14 borrados
  1. 0 14
      rtl/inc/heaptrc.pp

+ 0 - 14
rtl/inc/heaptrc.pp

@@ -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
 *****************************************************************************}