In struct block_loop access element label via the macro CxLABEL()

(for the places that aren't about to change)

p4raw-id: //depot/perl@33010

diff --git a/cop.h b/cop.h
index 0b63c67..d8c4961 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -474,6 +474,7 @@ struct block_loop {
        else                                                            \
            cx->blk_loop.itersave = NULL;
 #endif
+#define CxLABEL(c)     (0 + (c)->blk_loop.label)
 
 #ifdef USE_ITHREADS
 #  define PUSHLOOP_OP_NEXT             /* No need to do anything.  */

diff --git a/scope.c b/scope.c
index 17b7789..c074b69 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -1085,8 +1085,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
        break;
 
     case CXt_LOOP:
-       PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n",
-               cx->blk_loop.label);
+       PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", CxLABEL(cx));
        PerlIO_printf(Perl_debug_log, "BLK_LOOP.RESETSP = %ld\n",
                (long)cx->blk_loop.resetsp);
        PerlIO_printf(Perl_debug_log, "BLK_LOOP.MY_OP = 0x%"UVxf"\n",