X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FProfHeap.c;h=599b479c8dcf0454623658b4fcc8c6e2d0e06169;hp=08597b1d98e2047de13bf66823d054b7ec33a984;hb=842e9d6628a27cf1f420d53f6a5901935dc50c54;hpb=1ed01a871030f05905a9595e4837dfffc087ef64

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 08597b1..599b479 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -1151,13 +1151,6 @@ heapCensus( void )
 #endif
 
   // Traverse the heap, collecting the census info
-
-  // First the small_alloc_list: we have to fix the free pointer at
-  // the end by calling tidyAllocatedLists() first.
-  tidyAllocateLists();
-  heapCensusChain( census, small_alloc_list );
-
-  // Now traverse the heap in each generation/step.
   if (RtsFlags.GcFlags.generations == 1) {
       heapCensusChain( census, g0s0->blocks );
   } else {