Add match tree debug option.

1 files changed, 2 insertions, 0 deletions

diff --git a/mi/match.c b/mi/match.c
index 86db1c5..247f79a 100644
--- a/mi/match.c
+++ b/mi/match.c
@@ -724,6 +724,8 @@ gendtree(Node *m, Node *val, Node **lbl, size_t nlbl)
 			fatal(pat[i], "pattern matched by earlier case");
 		addcapture(pat[i]->match.block, cap, ncap);
 	}
+	if (debugopt['M'])
+		dtreedump(stdout, start);
 	if (!verifymatch(start))
 		fatal(m, "nonexhaustive pattern set in match statement");
 	return start;