With xlow and xhigh as U32, PAD_MAX shouldn't be IV_MAX, as on a 64 bit
Nicholas Clark [Fri, 29 Dec 2006 16:20:39 +0000 (16:20 +0000)]
system this can't be stored.

p4raw-id: //depot/perl@29639

pad.c

diff --git a/pad.c b/pad.c
index cae1c02..37b056c 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -121,7 +121,7 @@ to be generated in evals, such as
 #define PARENT_FAKELEX_FLAGS_set(sv,val)       \
   STMT_START { ((XPVNV*)SvANY(sv))->xnv_u.xpad_cop_seq.xhigh = (val); } STMT_END
 
-#define PAD_MAX IV_MAX
+#define PAD_MAX I32_MAX
 
 #ifdef PERL_MAD
 void pad_peg(const char* s) {