diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-28 22:14:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-28 22:14:26 +0000 |
| commit | 85fbaab29c398adbb5b4445d3ed41e0a96364ce4 (patch) | |
| tree | 15a994b3781bdecc7e89f92575577ad52894cc2a /scope.c | |
| parent | b8082b6e76ddae55d59bd06493f5cb60a320b165 (diff) | |
| download | perl-85fbaab29c398adbb5b4445d3ed41e0a96364ce4.tar.gz | |
Every remaining (HV *) cast in *.c
p4raw-id: //depot/perl@34629
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -766,7 +766,7 @@ Perl_leave_scope(pTHX_ I32 base) } break; case SAVEt_HV: /* hash reference */ - hv = (HV*)SSPOPPTR; + hv = MUTABLE_HV(SSPOPPTR); gv = (GV*)SSPOPPTR; if (GvHV(gv)) { SvREFCNT_dec(GvHV(gv)); @@ -809,7 +809,7 @@ Perl_leave_scope(pTHX_ I32 base) break; case SAVEt_HPTR: /* HV* reference */ ptr = SSPOPPTR; - *(HV**)ptr = (HV*)SSPOPPTR; + *(HV**)ptr = MUTABLE_HV(SSPOPPTR); break; case SAVEt_APTR: /* AV* reference */ ptr = SSPOPPTR; @@ -875,7 +875,7 @@ Perl_leave_scope(pTHX_ I32 base) av_clear((AV*)sv); break; case SVt_PVHV: - hv_clear((HV*)sv); + hv_clear(MUTABLE_HV(sv)); break; case SVt_PVCV: Perl_croak(aTHX_ "panic: leave_scope pad code"); @@ -900,7 +900,7 @@ Perl_leave_scope(pTHX_ I32 base) break; case SAVEt_DELETE: ptr = SSPOPPTR; - hv = (HV*)ptr; + hv = MUTABLE_HV(ptr); ptr = SSPOPPTR; (void)hv_delete(hv, (char*)ptr, (I32)SSPOPINT, G_DISCARD); SvREFCNT_dec(hv); @@ -944,7 +944,7 @@ Perl_leave_scope(pTHX_ I32 base) case SAVEt_HELEM: /* hash element */ value = (SV*)SSPOPPTR; sv = (SV*)SSPOPPTR; - hv = (HV*)SSPOPPTR; + hv = MUTABLE_HV(SSPOPPTR); ptr = hv_fetch_ent(hv, sv, 1, 0); if (ptr) { const SV * const oval = HeVAL((HE*)ptr); @@ -974,7 +974,7 @@ Perl_leave_scope(pTHX_ I32 base) PL_compiling.cop_hints_hash = (struct refcounted_he *) SSPOPPTR; if (PL_hints & HINT_LOCALIZE_HH) { SvREFCNT_dec((SV*)GvHV(PL_hintgv)); - GvHV(PL_hintgv) = (HV*)SSPOPPTR; + GvHV(PL_hintgv) = MUTABLE_HV(SSPOPPTR); assert(GvHV(PL_hintgv)); } else if (!GvHV(PL_hintgv)) { /* Need to add a new one manually, else gv_fetchpv() can |