summaryrefslogtreecommitdiff
path: root/mathoms.c
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2007-09-20 13:32:18 +0000
committerSteve Peters <steve@fisharerojo.org>2007-09-20 13:32:18 +0000
commit59af68cca7100de7cbb578e02ffa17383ff74a5f (patch)
treee19c419f058a994c8a95a834542af468fdd90a0d /mathoms.c
parent63c893452f9c16b03be0a54c60b062d7e98a4471 (diff)
downloadperl-59af68cca7100de7cbb578e02ffa17383ff74a5f.tar.gz
Casts needed in mathoms.c to make it compile with g++ after the
making Perl_hv_common() return void *. p4raw-id: //depot/perl@31927
Diffstat (limited to 'mathoms.c')
-rw-r--r--mathoms.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/mathoms.c b/mathoms.c
index 077bda6e21..32cb87ba28 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1214,7 +1214,7 @@ Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **
HE *
Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash)
{
- return hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash);
+ return (HE *)hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash);
}
bool
@@ -1227,7 +1227,7 @@ Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
HE *
Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash)
{
- return hv_common(hv, keysv, NULL, 0, 0,
+ return (HE *)hv_common(hv, keysv, NULL, 0, 0,
(lval ? HV_FETCH_LVALUE : 0), NULL, hash);
}