Change 11578 by jhi@alpha on 2001/08/05 03:17:20
Little pointer juggling for HP-UX cc to avoid
"warning 524: Cast (non-lvalue) appears on left-hand side of assignment."
followed by
"error 1549: Modifiable lvalue required for assignment operator."
Affected files ...
... //depot/perl/hv.c#88 edit
Differences ...
==== //depot/perl/hv.c#88 (text) ====
Index: perl/hv.c
--- perl/hv.c.~1~ Sat Aug 4 21:30:06 2001
+++ perl/hv.c Sat Aug 4 21:30:06 2001
@@ -1191,7 +1191,9 @@
/* It's an ordinary hash, so copy it fast. AMS 20010804 */
int i, shared = !!HvSHAREKEYS(ohv);
HE **ents, **oents = (HE **)HvARRAY(ohv);
- New(0, (char *)ents, PERL_HV_ARRAY_ALLOC_BYTES(hv_max+1), char);
+ char *a;
+ New(0, a, PERL_HV_ARRAY_ALLOC_BYTES(hv_max+1), char);
+ ents = (HE**)a;
/* In each bucket... */
for (i = 0; i <= hv_max; i++) {
End of Patch.
