Shrink 4 bytes (ILP32) from the interpreter structure.

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 0c7659a..77416ea 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -162,13 +162,9 @@ PERLVAR(Iregdummy, regnode)        /* from regcomp.c */
 PERLVARI(Idumpindent,  U16,    4)      /* number of blanks per dump
                                           indentation level */
 
-PERLVARI(Iv_string_ok, bool, FALSE)    /* use/require v_string OK */
 
-/* This would be space for U8 here without increasing the structure size
-   so name the space, so that the first post 5.10 need for a bool can use this
-   rather than padding at the end.  */
-
-PERLVARI(Ispare_510,   bool, FALSE)    /*  */
+PERLVAR(Iutf8locale,   bool)           /* utf8 locale detected */
+PERLVARI(Irehash_seed_set, bool, FALSE)        /* 582 hash initialized? */
 
 PERLVARA(Icolors,6,    char *)         /* from regcomp.c */
 
@@ -262,10 +258,8 @@ PERLVAR(Istatusvalue_vms,U32)
 PERLVAR(Istatusvalue_posix,I32)
 #endif
 
-#ifdef CSH
-PERLVARI(Icshlen,      I32,    0)
-PERLVARI(Icshname,     const char *,   CSH)
-#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 *)
@@ -365,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)
 
@@ -557,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
 
@@ -674,10 +662,10 @@ PERLVARI(Islabs, I32**, NULL)     /* Array of slabs that have been allocated */
 PERLVARI(Islab_count, U32, 0)  /* Size of the array */
 #endif
 
-PERLVARI(Iisarev, HV*, NULL)   /* Reverse map of @ISA dependencies */
+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