dump.c: add S_deb_padvar_cv() function

Make S_deb_padvar() a thin wrapper over a new S_deb_padvar_cv() function,
which does the same thing (display a pad variable name), but does it for
a specified CV rather than only for the currently executing CV. This
function will be used shorty.

Author: iabyn

dump.c

@@ -3254,13 +3254,13 @@ Perl_runops_debug(pTHX)
 }
 
 
-/* print the names of the n lexical vars starting at pad offset off */
+/* Print the names of the n lexical vars starting at pad offset off
+ * in the specified CV */
 
 STATIC void
-S_deb_padvar(pTHX_ PADOFFSET off, int n, bool paren)
+S_deb_padvar_cv(pTHX_ CV *cv, PADOFFSET off, int n, bool paren)
 {
     PADNAME *sv;
-    CV * const cv = deb_curcv(cxstack_ix);
     PADNAMELIST *comppad = NULL;
     int i;
 
@@ -3284,6 +3284,16 @@ S_deb_padvar(pTHX_ PADOFFSET off, int n, bool paren)
 }
 
 
+/* Print the names of the n lexical vars starting at pad offset off n the
+ * currently executing CV */
+
+STATIC void
+S_deb_padvar(pTHX_ PADOFFSET off, int n, bool paren)
+{
+    S_deb_padvar_cv(aTHX_ deb_curcv(cxstack_ix), off, n, paren);
+}
+
+
 /* append to the out SV, the name of the lexical at offset off in the CV
  * cv */