diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 19:46:23 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 19:46:23 +0000 |
commit | a6bdc2eb98f4e9bd74b51ad84203021dea610d6b (patch) | |
tree | 71e5d42b3dcbed17e0fa3ba84ae52ca9797644cd /op.c | |
parent | 308957f541b811baacac724110dfa4a630847c0e (diff) | |
download | perl-a6bdc2eb98f4e9bd74b51ad84203021dea610d6b.tar.gz |
Explicit casts due to #16542.
p4raw-id: //depot/perl@16547
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2011,7 +2011,7 @@ S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp) meth = newSVpvn("import", 6); (void)SvUPGRADE(meth, SVt_PVIV); (void)SvIOK_on(meth); - PERL_HASH(SvUVX(meth), SvPVX(meth), SvCUR(meth)); + PERL_HASH(SvUVX(meth), (U8*)SvPVX(meth), SvCUR(meth)); imop = convert(OP_ENTERSUB, OPf_STACKED|OPf_SPECIAL|OPf_WANT_VOID, append_elem(OP_LIST, prepend_elem(OP_LIST, pack, list(arg)), @@ -3402,7 +3402,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg) meth = newSVpvn("VERSION",7); sv_upgrade(meth, SVt_PVIV); (void)SvIOK_on(meth); - PERL_HASH(SvUVX(meth), SvPVX(meth), SvCUR(meth)); + PERL_HASH(SvUVX(meth), (U8*)SvPVX(meth), SvCUR(meth)); veop = convert(OP_ENTERSUB, OPf_STACKED|OPf_SPECIAL, append_elem(OP_LIST, prepend_elem(OP_LIST, pack, list(version)), @@ -3426,7 +3426,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *id, OP *arg) meth = aver ? newSVpvn("import",6) : newSVpvn("unimport", 8);; (void)SvUPGRADE(meth, SVt_PVIV); (void)SvIOK_on(meth); - PERL_HASH(SvUVX(meth), SvPVX(meth), SvCUR(meth)); + PERL_HASH(SvUVX(meth), (U8*)SvPVX(meth), SvCUR(meth)); imop = convert(OP_ENTERSUB, OPf_STACKED|OPf_SPECIAL, append_elem(OP_LIST, prepend_elem(OP_LIST, pack, list(arg)), |