it's good for gc debuging

1 files changed, 25 insertions, 0 deletions

diff --git a/.gdbinit b/.gdbinit
index c1ef530f8e..98bb173a5a 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -638,3 +638,28 @@ document zmemcheck
 	usage: zmemcheck [ptr].
 	if ptr is 0, all blocks will be listed.
 end
+
+define lookup_root
+	set $found = 0
+	if gc_globals->roots
+		set $current = gc_globals->roots->next
+		printf "looking ref %p in roots\n", $arg0
+		while $current != &gc_globals->roots
+			if $current->ref == $arg0
+				set $found = $current
+				break
+			end
+			set $current = $current->next
+		end
+		if $found != 0
+			printf "found root %p\n", $found
+		else
+			printf "not found\n"
+		end
+	end
+end
+
+document lookup_root
+	lookup a refcounted in root
+	usage: lookup_root [ptr].
+end