2006-11-16 Hans Boehm <Hans.Boehm@hp.com> (really mostly Bruce Hoult)

	* doc/README.Mac: Clarify that this file is mostly obsolete.
	* reclaim.c (GC_print_free_list): New debug function.

diff --git a/doc/README.Mac b/doc/README.Mac
index 04f468251a1e5f4b94181f9e6ad085b96e8ff442..ae9c1d5e597f5a62084d4c9f2d38a3f7055ee8b7 100644 (file)
--- a/doc/README.Mac
+++ b/doc/README.Mac
@@ -1,3 +1,8 @@
+The contents of this file are old and pertain to pre-MacOSX versions.
+You probably really wanted README.darwin.
+
+---------------------------------------------
+
 Patrick Beard's Notes for building GC v4.12 with CodeWarrior Pro 2:
 ----------------------------------------------------------------------------
 The current build environment for the collector is CodeWarrior Pro 2.

diff --git a/reclaim.c b/reclaim.c
index 0ef7213fc63950017d07aa713d6015206925b8a9..b1ff6b7585afa61e6bf3d16aa97d5c5b9290d38b 100644 (file)
--- a/reclaim.c
+++ b/reclaim.c
@@ -433,6 +433,25 @@ void GC_print_block_list()
              (unsigned long)pstats.total_bytes);
 }
 
+/* Currently for debugger use only: */
+void GC_print_free_list(int kind, size_t sz_in_granules)
+{
+    struct obj_kind * ok = &GC_obj_kinds[kind];
+    ptr_t flh = ok -> ok_freelist[sz_in_granules];
+    struct hblk *lastBlock = 0;
+    int n = 0;
+
+    while (flh){
+        struct hblk *block = HBLKPTR(flh);
+        if (block != lastBlock){
+            GC_printf("\nIn heap block at 0x%x:\n\t", block);
+            lastBlock = block;
+        }
+        GC_printf("%d: 0x%x;", ++n, flh);
+        flh = obj_link(flh);
+    }
+}
+
 #endif /* NO_DEBUGGING */
 
 /*