diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-27 21:43:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-27 21:43:01 +0000 |
| commit | 8f629a87fe8f340f7e1d3258b7972985953c03fc (patch) | |
| tree | 7079e335067e52d1040e411696f4743270b3a832 /cop.h | |
| parent | 4a4ab19ce26e87d2090eef975921267c418d3b87 (diff) | |
| download | perl-8f629a87fe8f340f7e1d3258b7972985953c03fc.tar.gz | |
Convert all (CV *) casts to (const CV *). Convert (XPVCV*) casts to add
MUTABLE_PTR(), to validate that there is no casting away of const.
p4raw-id: //depot/perl@34610
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -347,9 +347,9 @@ struct block_format { #define POPSUB(cx,sv) \ STMT_START { \ - RETURN_PROBE(GvENAME(CvGV((CV*)cx->blk_sub.cv)), \ - CopFILE((COP*)CvSTART((CV*)cx->blk_sub.cv)), \ - CopLINE((COP*)CvSTART((CV*)cx->blk_sub.cv))); \ + RETURN_PROBE(GvENAME(CvGV((const CV*)cx->blk_sub.cv)), \ + CopFILE((COP*)CvSTART((const CV*)cx->blk_sub.cv)), \ + CopLINE((COP*)CvSTART((const CV*)cx->blk_sub.cv))); \ \ if (CxHASARGS(cx)) { \ POP_SAVEARRAY(); \ @@ -367,7 +367,7 @@ struct block_format { } \ } \ sv = MUTABLE_SV(cx->blk_sub.cv); \ - if (sv && (CvDEPTH((CV*)sv) = cx->blk_sub.olddepth)) \ + if (sv && (CvDEPTH((const CV*)sv) = cx->blk_sub.olddepth)) \ sv = NULL; \ } STMT_END |