[asperl] more changes to satisfy non-debug VC build (C-API doesn't

build, and the testsuite still won't run)

p4raw-id: //depot/asperl@1035

1 files changed, 2 insertions, 3 deletions

diff --git a/scope.c b/scope.c
index 5b0cd78746..99d87dd44b 100644
--- a/scope.c
+++ b/scope.c
@@ -807,11 +807,10 @@ leave_scope(I32 base)
     }
 }
 
-#ifdef DEBUGGING
-
 void
 cx_dump(PERL_CONTEXT *cx)
 {
+#ifdef DEBUGGING
     dTHR;
     PerlIO_printf(Perl_debug_log, "CX %ld = %s\n", (long)(cx - cxstack), block_type[cx->cx_type]);
     if (cx->cx_type != CXt_SUBST) {
@@ -900,5 +899,5 @@ cx_dump(PERL_CONTEXT *cx)
 		(long)cx->sb_rxres);
 	break;
     }
-}
 #endif
+}