This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
00a0d66
)
With xlow and xhigh as U32, PAD_MAX shouldn't be IV_MAX, as on a 64 bit
author
Nicholas Clark
<nick@ccl4.org>
Fri, 29 Dec 2006 16:20:39 +0000
(16:20 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Fri, 29 Dec 2006 16:20:39 +0000
(16:20 +0000)
system this can't be stored.
p4raw-id: //depot/perl@29639
pad.c
patch
|
blob
|
blame
|
history
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 I
V
_MAX
+#define PAD_MAX I
32
_MAX
#ifdef PERL_MAD
void pad_peg(const char* s) {