From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 17 Jun 2001 20:30:22 +0000 (+0000)
Subject: Quench the warnings from Tru64; the HP-UX is still
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b72a56350cdb03ab2b46275dcc73756786a8dc8b;p=p5sagit%2Fp5-mst-13.2.git

Quench the warnings from Tru64; the HP-UX is still
broken because it really, REALLY, doesn't like the
HvARRAY() being lvalue:

cc: "hv.c", line 192: warning 524: Cast (non-lvalue) appears on left-hand side of assignment.
cc: "hv.c", line 192: error 1549: Modifiable lvalue required for assignment operator.

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

diff --git a/hv.c b/hv.c
index 46ababf..eebf585 100644
--- a/hv.c
+++ b/hv.c
@@ -190,7 +190,7 @@ Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen, I32 lval)
 #endif
 	                                                          )
 	    Newz(503, HvARRAY(hv),
-		 PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), char);
+		 PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), HE*);
 	else
 	    return 0;
     }
@@ -317,7 +317,7 @@ Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash)
 #endif
 	                                                          )
 	    Newz(503, HvARRAY(hv),
-		 PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), char);
+		 PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), HE*);
 	else
 	    return 0;
     }
@@ -448,7 +448,7 @@ Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen, SV *val, register U32 has
 
     if (!HvARRAY(hv))
 	Newz(505, HvARRAY(hv),
-	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), char);
+	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), HE*);
 
     oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)];
     i = 1;
@@ -558,7 +558,7 @@ Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, register U32 hash)
 
     if (!HvARRAY(hv))
 	Newz(505, HvARRAY(hv),
-	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), char);
+	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), HE*);
 
     oentry = &(HvARRAY(hv))[hash & (I32) HvMAX(hv)];
     i = 1;
@@ -1014,7 +1014,7 @@ S_hsplit(pTHX_ HV *hv)
     PL_nomemok = FALSE;
     Zero(&a[oldsize * sizeof(HE*)], (newsize-oldsize) * sizeof(HE*), char);	/* zero 2nd half*/
     HvMAX(hv) = --newsize;
-    HvARRAY(hv) = a;
+    HvARRAY(hv) = (HE**)a;
     aep = (HE**)a;
 
     for (i=0; i<oldsize; i++,aep++) {
@@ -1090,7 +1090,7 @@ Perl_hv_ksplit(pTHX_ HV *hv, IV newmax)
 	Newz(0, a, PERL_HV_ARRAY_ALLOC_BYTES(newsize), char);
     }
     HvMAX(hv) = --newsize;
-    HvARRAY(hv) = a;
+    HvARRAY(hv) = (HE**)a;
     if (!HvFILL(hv))				/* skip rest if no entries */
 	return;
 
@@ -1392,7 +1392,7 @@ Perl_hv_iternext(pTHX_ HV *hv)
 
     if (!HvARRAY(hv))
 	Newz(506, HvARRAY(hv),
-	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), char);
+	     PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv) + 1), HE*);
     if (entry)
 	entry = HeNEXT(entry);
     while (!entry) {