diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 21:10:57 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 21:10:57 +0000 |
commit | f0cb02e3e781e9ee7442d6b61ec0330b7fb95a52 (patch) | |
tree | 526ded723f46402ca573319d64c7ab27b9412dc2 /intrpvar.h | |
parent | 82af08ae5f1a7d2e5deb69172b40d3168c149528 (diff) | |
download | perl-f0cb02e3e781e9ee7442d6b61ec0330b7fb95a52.tar.gz |
The vestigial PL_pad_reset_pending can actually be bool, rather than
I32. This permits some space saving rejigging of the interpreter
struct.
p4raw-id: //depot/perl@34930
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/intrpvar.h b/intrpvar.h index a940657b6d..956b7dec93 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -459,12 +459,14 @@ PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */ PERLVAR(Ipadix, I32) /* max used index in current "register" pad */ PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */ -PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */ PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */ PERLVAR(Idebug, VOL U32) /* flags given to -D switch */ +/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */ +PERLVARI(Ibreakable_sub_gen, U32, 0) + PERLVARI(Iamagic_generation, long, 0) #ifdef USE_LOCALE_COLLATE @@ -524,7 +526,7 @@ PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */ PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */ #endif -/* Space for a U8 */ +PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */ PERLVARI(Iglob_index, int, 0) @@ -679,9 +681,6 @@ PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable)) PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */ #endif -/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */ -PERLVARI(Ibreakable_sub_gen, U32, 0) - /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |