summaryrefslogtreecommitdiff
path: root/intrpvar.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-10-08 11:09:06 +0000
committerNicholas Clark <nick@ccl4.org>2007-10-08 11:09:06 +0000
commit157b382252bcf58758924cbccbe56042da696263 (patch)
treeccbdaebc036699a7079afa225287c702c6fd4811 /intrpvar.h
parent9788a75a4d0043e8bce3f9aa0964e76e23ee2c3c (diff)
downloadperl-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.h19
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