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 /ext/B | |
| parent | 308957f541b811baacac724110dfa4a630847c0e (diff) | |
| download | perl-a6bdc2eb98f4e9bd74b51ad84203021dea610d6b.tar.gz | |
Explicit casts due to #16542.
p4raw-id: //depot/perl@16547
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 83c9c4ad44..0bae084a75 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -575,7 +575,7 @@ hash(sv) 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)); |