From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 20 Sep 2007 13:32:18 +0000 (+0000)
Subject: Casts needed in mathoms.c to make it compile with g++ after the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59af68cca7100de7cbb578e02ffa17383ff74a5f;p=p5sagit%2Fp5-mst-13.2.git

Casts needed in mathoms.c to make it compile with g++ after the
making Perl_hv_common() return void *.

p4raw-id: //depot/perl@31927
---

diff --git a/mathoms.c b/mathoms.c
index 077bda6..32cb87b 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);
 }