diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-29 22:45:15 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-03-29 22:27:19 +0100 |
| commit | eb7e5f5b0d094d4547ac068f227f9093fe1b30f3 (patch) | |
| tree | ed625e072b3693411ac3cb162ff6061af3fa0fe4 /pp_sort.c | |
| parent | 37f7fe9446f052f7c8f3514f56cf0f0615b6f270 (diff) | |
| download | perl-eb7e5f5b0d094d4547ac068f227f9093fe1b30f3.tar.gz | |
Eliminate (AV *) casts in *.c.
p4raw-id: //depot/perl@34650
(cherry-picked from commit 502c6561fcd473b7da3277363169d75f16ac2f8b)
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1555,7 +1555,7 @@ PP(pp_sort) if (priv & OPpSORT_INPLACE) { assert( MARK+1 == SP && *SP && SvTYPE(*SP) == SVt_PVAV); (void)POPMARK; /* remove mark associated with ex-OP_AASSIGN */ - av = (AV*)(*SP); + av = MUTABLE_AV((*SP)); max = AvFILL(av) + 1; if (SvMAGICAL(av)) { MEXTEND(SP, max); @@ -1665,10 +1665,10 @@ PP(pp_sort) if (hasargs) { /* This is mostly copied from pp_entersub */ - AV * const av = (AV*)PAD_SVl(0); + AV * const av = MUTABLE_AV(PAD_SVl(0)); cx->blk_sub.savearray = GvAV(PL_defgv); - GvAV(PL_defgv) = (AV*)SvREFCNT_inc_simple(av); + GvAV(PL_defgv) = MUTABLE_AV(SvREFCNT_inc_simple(av)); CX_CURPAD_SAVE(cx->blk_sub); cx->blk_sub.argarray = av; } |