libavl, libregexp: put debug functions back

1 files changed, 21 insertions, 0 deletions

diff --git a/sys/src/libavl/avl.c b/sys/src/libavl/avl.c
index ec60df209..59266d36d 100644
--- a/sys/src/libavl/avl.c
+++ b/sys/src/libavl/avl.c
@@ -204,6 +204,17 @@ _deleteavl(Avl **tp, Avl *p, Avl *rx, int(*cmp)(Avl*,Avl*), Avl **del,
 	return -(ob != 0 && (*tp)->bal == 0);
 }
 
+static void
+checkparents(Avl *a, Avl *p)
+{
+	if(a == nil)
+		return;
+	if(a->p != p)
+		print("bad parent\n");
+	checkparents(a->n[0], a);
+	checkparents(a->n[1], a);
+}
+
 struct Avltree
 {
 	Avl	*root;
@@ -413,3 +424,13 @@ endwalk(Avlwalk *w)
 	}
 	free(w);
 }
+
+static void
+walkavl(Avl *t, void (*f)(Avl*, void*), void *v)
+{
+	if(t == nil)
+		return;
+	walkavl(t->n[0], f, v);
+	f(t, v);
+	walkavl(t->n[1], f, v);
+}