Change 32792 by [EMAIL PROTECTED] on 2007/12/31 23:49:48
Needed one more cast after 32760. The VMS compiler complained
that a pointer to int and pointer to long are different things
even though they both point to a 32-bit signed integer.
Affected files ...
... //depot/perl/av.c#126 edit
Differences ...
==== //depot/perl/av.c#126 (text) ====
Index: perl/av.c
--- perl/av.c#125~32776~ 2007-12-29 09:35:25.000000000 -0800
+++ perl/av.c 2007-12-31 15:49:48.000000000 -0800
@@ -974,7 +974,7 @@
Perl_av_iter_p(pTHX_ AV *av) {
MAGIC *const mg = get_aux_mg(av);
#if IVSIZE == I32SIZE
- return &(mg->mg_len);
+ return (IV *)&(mg->mg_len);
#else
if (!mg->mg_ptr) {
IV *temp;
End of Patch.
