summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-10-28 22:14:26 +0000
committerNicholas Clark <nick@ccl4.org>2008-10-28 22:14:26 +0000
commit85fbaab29c398adbb5b4445d3ed41e0a96364ce4 (patch)
tree15a994b3781bdecc7e89f92575577ad52894cc2a /doop.c
parentb8082b6e76ddae55d59bd06493f5cb60a320b165 (diff)
downloadperl-85fbaab29c398adbb5b4445d3ed41e0a96364ce4.tar.gz
Every remaining (HV *) cast in *.c
p4raw-id: //depot/perl@34629
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/doop.c b/doop.c
index 84816ec6d5..ffc20a9e3e 100644
--- a/doop.c
+++ b/doop.c
@@ -318,7 +318,7 @@ S_do_trans_simple_utf8(pTHX_ SV * const sv)
#else
(SV*)cSVOP->op_sv;
#endif
- HV* const hv = (HV*)SvRV(rv);
+ HV* const hv = MUTABLE_HV(SvRV(rv));
SV* const * svp = hv_fetchs(hv, "NONE", FALSE);
const UV none = svp ? SvUV(*svp) : 0x7fffffff;
const UV extra = none + 1;
@@ -420,7 +420,7 @@ S_do_trans_count_utf8(pTHX_ SV * const sv)
#else
(SV*)cSVOP->op_sv;
#endif
- HV* const hv = (HV*)SvRV(rv);
+ HV* const hv = MUTABLE_HV(SvRV(rv));
SV* const * const svp = hv_fetchs(hv, "NONE", FALSE);
const UV none = svp ? SvUV(*svp) : 0x7fffffff;
const UV extra = none + 1;
@@ -471,7 +471,7 @@ S_do_trans_complex_utf8(pTHX_ SV * const sv)
#else
(SV*)cSVOP->op_sv;
#endif
- HV * const hv = (HV*)SvRV(rv);
+ HV * const hv = MUTABLE_HV(SvRV(rv));
SV * const *svp = hv_fetchs(hv, "NONE", FALSE);
const UV none = svp ? SvUV(*svp) : 0x7fffffff;
const UV extra = none + 1;
@@ -1009,7 +1009,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
return;
}
else if (SvTYPE(sv) == SVt_PVHV) {
- HV* const hv = (HV*)sv;
+ HV* const hv = MUTABLE_HV(sv);
HE* entry;
(void)hv_iterinit(hv);
while ((entry = hv_iternext(hv)))
@@ -1095,7 +1095,7 @@ Perl_do_chomp(pTHX_ register SV *sv)
return count;
}
else if (SvTYPE(sv) == SVt_PVHV) {
- HV* const hv = (HV*)sv;
+ HV* const hv = MUTABLE_HV(sv);
HE* entry;
(void)hv_iterinit(hv);
while ((entry = hv_iternext(hv)))
@@ -1431,7 +1431,7 @@ Perl_do_kv(pTHX)
{
dVAR;
dSP;
- HV * const hv = (HV*)POPs;
+ HV * const hv = MUTABLE_HV(POPs);
HV *keys;
register HE *entry;
const I32 gimme = GIMME_V;