From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 20 Jan 2008 13:28:10 +0000 (+0000)
Subject: In struct block_loop access element label via the macro CxLABEL()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cbdab387091772196a9652896d774ed74da2f21;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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",