diff options
| author | David Mitchell <davem@iabyn.com> | 2011-02-07 16:02:47 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-02-07 16:02:47 +0000 |
| commit | be2b6a899980e0f4af70e797c0fdaeec6dd6a7d9 (patch) | |
| tree | 800a87061f845e03370c512ae67f5969ff9e43bf /intrpvar.h | |
| parent | c2b03b8c6e4ce64a629df6346d1cd5459b566267 (diff) | |
| download | perl-be2b6a899980e0f4af70e797c0fdaeec6dd6a7d9.tar.gz | |
Init PL_cop_seqmax to a high value under DEBUGGING
So that we get to test the effect of the value wrapping back to zero
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index febf0370f2..b12f21b283 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -475,7 +475,16 @@ PERLVAR(Ieuid, Uid_t) /* current effective user id */ PERLVAR(Igid, Gid_t) /* current real group id */ PERLVAR(Iegid, Gid_t) /* current effective group id */ PERLVARI(Ian, U32, 0) /* malloc sequence number */ -PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */ + +#ifdef DEBUGGING + /* exercise wrap-around */ + #define PERL_COP_SEQMAX (U32_MAX-50) +#else + #define PERL_COP_SEQMAX 0 +#endif +PERLVARI(Icop_seqmax, U32, PERL_COP_SEQMAX) /* statement sequence number */ +#undef PERL_COP_SEQMAX + PERLVARI(Ievalseq, U32, 0) /* eval sequence number */ PERLVAR(Iorigalen, U32) PERLVAR(Iorigenviron, char **) |