diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-10-08 11:09:06 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-10-08 11:09:06 +0000 |
commit | 157b382252bcf58758924cbccbe56042da696263 (patch) | |
tree | ccbdaebc036699a7079afa225287c702c6fd4811 /intrpvar.h | |
parent | 9788a75a4d0043e8bce3f9aa0964e76e23ee2c3c (diff) | |
download | perl-157b382252bcf58758924cbccbe56042da696263.tar.gz |
Shrink 4 bytes (ILP32) from the interpreter structure.
(Spotted a U8 sized hole, and filled the known U16 sized hole).
Moved the sig_pending so that its int fills the 4 byte space left by
csh_len, to reduce padding on LP64.
p4raw-id: //depot/perl@32067
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/intrpvar.h b/intrpvar.h index 36e8030786..77416eabd9 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -162,7 +162,9 @@ PERLVAR(Iregdummy, regnode) /* from regcomp.c */ PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump indentation level */ -/* Space for U16 here without increasing the structure size */ + +PERLVAR(Iutf8locale, bool) /* utf8 locale detected */ +PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */ PERLVARA(Icolors,6, char *) /* from regcomp.c */ @@ -256,6 +258,9 @@ PERLVAR(Istatusvalue_vms,U32) PERLVAR(Istatusvalue_posix,I32) #endif +PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */ +PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */ + /* shortcuts to various I/O objects */ PERLVAR(Istdingv, GV *) PERLVAR(Istderrgv, GV *) @@ -354,6 +359,7 @@ PERLVAR(Iors_sv, SV *) /* output record separator $\ */ /* statics moved here for shared library purposes */ PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */ PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */ +PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */ PERLVARI(Ilaststype, U16, OP_STAT) PERLVARI(Ilaststatval, int, -1) @@ -546,13 +552,6 @@ PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */ PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */ -PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */ -PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */ - - -PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */ -PERLVAR(Iutf8locale, bool) /* utf8 locale detected */ -PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */ #ifdef USE_LOCALE_NUMERIC @@ -665,8 +664,8 @@ PERLVARI(Islab_count, U32, 0) /* Size of the array */ PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */ -/* If you are adding a U8 or U16, see the 'Space' comments above on where - * there are gaps which currently will be structure padding. */ +/* 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. */ /* Within a stable branch, new variables must be added to the very end, before * this comment, for binary compatibility (the offsets of the old members must |