From 638c909acda41b345027e61ffb960fc8d6bf23bc Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sat, 24 Jul 2021 19:31:58 -0300
Subject: [PATCH] New command to reply with the current sub/function name
 ($DEBUG).

---
 internal/support/vwatch/vwatch.bm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/internal/support/vwatch/vwatch.bm b/internal/support/vwatch/vwatch.bm
index 0b7f7cf52..cc6371f89 100644
--- a/internal/support/vwatch/vwatch.bm
+++ b/internal/support/vwatch/vwatch.bm
@@ -217,6 +217,9 @@ SUB vwatch (localVariables AS _OFFSET)
                 i = CVL(value$)
                 address = localVariables + LEN(address) * i
                 PRINT "Local"; i; "is at"; _MEMGET(m, address, _OFFSET)
+            CASE "current sub"
+                cmd$ = "current sub:" + vwatch_subname
+                GOSUB SendCommand
             CASE "set next line"
                 pauseMode = -1
                 stepOver = 0