Change 16547 by jhi@alpha on 2002/05/11 19:46:23
Explicit casts due to #16542.
Affected files ...
.... //depot/perl/ext/B/B.xs#74 edit
.... //depot/perl/hv.c#116 edit
.... //depot/perl/op.c#501 edit
.... //depot/perl/sv.c#547 edit
Differences ...
==== //depot/perl/ext/B/B.xs#74 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs#73~16460~ Tue May 7 16:42:42 2002
+++ perl/ext/B/B.xs Sat May 11 12:46:23 2002
@@ -575,7 +575,7 @@
U32 hash = 0;
char hexhash[19]; /* must fit "0xffffffffffffffff" plus trailing \0 */
s = SvPV(sv, len);
- PERL_HASH(hash, s, len);
+ PERL_HASH(hash, (U8*)s, len);
sprintf(hexhash, "0x%"UVxf, (UV)hash);
ST(0) = sv_2mortal(newSVpv(hexhash, 0));
==== //depot/perl/hv.c#116 (text) ====
Index: perl/hv.c
--- perl/hv.c#115~16238~ Sat Apr 27 18:55:10 2002
+++ perl/hv.c Sat May 11 12:46:23 2002
@@ -251,7 +251,7 @@
}
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
@@ -410,7 +410,7 @@
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
@@ -578,7 +578,7 @@
HvHASKFLAGS_on((SV*)hv);
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
if (!xhv->xhv_array /* !HvARRAY(hv) */)
Newz(505, xhv->xhv_array /* HvARRAY(hv) */,
@@ -738,7 +738,7 @@
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
if (!xhv->xhv_array /* !HvARRAY(hv) */)
Newz(505, xhv->xhv_array /* HvARRAY(hv) */,
@@ -882,7 +882,7 @@
k_flags |= HVhek_FREEKEY;
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
oentry = &((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
@@ -1038,7 +1038,7 @@
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
/* oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
oentry = &((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
@@ -1185,7 +1185,7 @@
k_flags |= HVhek_FREEKEY;
}
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
#ifdef DYNAMIC_ENV_FETCH
if (!xhv->xhv_array /* !HvARRAY(hv) */) entry = Null(HE*);
@@ -1290,7 +1290,7 @@
k_flags |= HVhek_FREEKEY;
}
if (!hash)
- PERL_HASH(hash, key, klen);
+ PERL_HASH(hash, (U8*)key, klen);
#ifdef DYNAMIC_ENV_FETCH
if (!xhv->xhv_array /* !HvARRAY(hv) */) entry = Null(HE*);
==== //depot/perl/op.c#501 (text) ====
Index: perl/op.c
--- perl/op.c#500~16237~ Sat Apr 27 18:44:37 2002
+++ perl/op.c Sat May 11 12:46:23 2002
@@ -2011,7 +2011,7 @@
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 @@
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 @@
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)),
==== //depot/perl/sv.c#547 (text) ====
Index: perl/sv.c
--- perl/sv.c#546~16501~ Wed May 8 15:39:11 2002
+++ perl/sv.c Sat May 11 12:46:23 2002
@@ -6336,7 +6336,7 @@
len = tmplen;
}
if (!hash)
- PERL_HASH(hash, src, len);
+ PERL_HASH(hash, (U8*)src, len);
new_SV(sv);
sv_upgrade(sv, SVt_PVIV);
SvPVX(sv) = sharepvn(src, is_utf8?-len:len, hash);
End of Patch.
