X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Kernel%2Fheap.c;h=ea32436a05df09049a4e4f014a49ba1867b0a187;hb=6e1cf1d50bca85f01b5f802b1a76f090e362bf05;hp=c440b1835948e914aeffb42639481ffae27c6f62;hpb=9096ba960349e39b44a7053a753d20bce726710c;p=tpg%2Facess2.git

diff --git a/Kernel/heap.c b/Kernel/heap.c
index c440b183..ea32436a 100644
--- a/Kernel/heap.c
+++ b/Kernel/heap.c
@@ -664,8 +664,12 @@ void Heap_Stats(void)
 		
 		// Print the block info?
 		#if 1
-		Log_Debug("Heap", "%p - 0x%x (%i) Owned by %s:%i",
-			head, head->Size, head->ValidSize, head->File, head->Line);
+		if( head->Magic == MAGIC_FREE )
+			Log_Debug("Heap", "%p (0x%llx) - 0x%x free",
+				head->Data, MM_GetPhysAddr((tVAddr)&head->Data), head->Size);
+		else
+			Log_Debug("Heap", "%p (0x%llx) - 0x%x (%i) Owned by %s:%i",
+				head->Data, MM_GetPhysAddr((tVAddr)&head->Data), head->Size, head->ValidSize, head->File, head->Line);
 		#endif
 	}