From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 28 Oct 2008 19:51:07 +0000 (+0000)
Subject: A couple of (COP*)s that can actually be (const COP *)s.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6903450838086ba02cb3a4b04bd5f6047187b9d;p=p5sagit%2Fp5-mst-13.2.git

A couple of (COP*)s that can actually be (const COP *)s.

p4raw-id: //depot/perl@34621
---

diff --git a/cop.h b/cop.h
index e64bb76..dae356d 100644
--- a/cop.h
+++ b/cop.h
@@ -298,8 +298,8 @@ struct block_format {
 
 #define PUSHSUB_BASE(cx)						\
 	ENTRY_PROBE(GvENAME(CvGV(cv)),		       			\
-		CopFILE((COP*)CvSTART(cv)),				\
-		CopLINE((COP*)CvSTART(cv)));				\
+		CopFILE((const COP *)CvSTART(cv)),			\
+		CopLINE((const COP *)CvSTART(cv)));			\
 									\
 	cx->blk_sub.cv = cv;						\
 	cx->blk_sub.olddepth = CvDEPTH(cv);				\