From d43f951d4e8be461fd8be7182a4ff1b219fa8edd Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 22 Jun 2015 22:53:02 +0300
Subject: Improve debugger support for typed regexps.

---
 awkgram.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'awkgram.c')

diff --git a/awkgram.c b/awkgram.c
index 6dc4b334..a1a055b6 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -6895,6 +6895,8 @@ valinfo(NODE *n, Func_print print_func, FILE *fp)
 {
 	if (n == Nnull_string)
 		print_func(fp, "uninitialized scalar\n");
+	else if (n->type == Node_typedregex)
+		print_func(fp, "@/%.*s/\n", n->re_exp->stlen, n->re_exp->stptr);
 	else if ((n->flags & STRING) != 0) {
 		pp_string_fp(print_func, fp, n->stptr, n->stlen, '"', false);
 		print_func(fp, "\n");
-- 
cgit v1.2.3