diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-04-23 14:40:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-04-23 14:40:05 +0000 |
| commit | d95e864fc6fa3857258c59d025b687e51388c2be (patch) | |
| tree | 9e875b86ae0e336d3e6bd86af39db483bf6f3711 /thrdvar.h | |
| parent | 87a84751032b6ca30af6fd676ff1f32e6577d6fc (diff) | |
| download | perl-d95e864fc6fa3857258c59d025b687e51388c2be.tar.gz | |
More variable reordering saves another 40 bytes from the interpreter
structure. (on LP64). Zero cost space saving! Woohoo!
p4raw-id: //depot/perl@31034
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -1,6 +1,6 @@ /* thdrvar.h * - * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 + * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 * by Larry Wall and others * * You may distribute under the terms of either the GNU General Public @@ -119,9 +119,6 @@ PERLVAR(Tcurstash, HV *) /* symbol table for current package */ PERLVAR(Trestartop, OP *) /* propagating an error from croak? */ PERLVARI(Tcurcop, COP * VOL, &PL_compiling) -PERLVAR(Tlocalizing, U8) /* are we processing a local() list? */ -PERLVAR(Tcolorset, bool) /* from regcomp.c */ - PERLVAR(Tcurstack, AV *) /* THE STACK */ PERLVAR(Tcurstackinfo, PERL_SI *) /* current stack + context */ PERLVAR(Tmainstack, AV *) /* the stack when nothing funny is happening */ @@ -137,7 +134,6 @@ PERLVAR(Thv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */ PERLVAR(Tlastgotoprobe, OP*) /* from pp_ctl.c */ -PERLVARI(Tdumpindent, U16, 4) /* # of blanks per dump indentation level */ /* sort stuff */ PERLVAR(Tsortcop, OP *) /* user defined sort routine */ @@ -176,7 +172,17 @@ PERLVAR(Twatchok, char *) PERLVARI(Tregmatch_slab, regmatch_slab *, NULL) PERLVAR(Tregmatch_state, regmatch_state *) +PERLVARI(Tdumpindent, U16, 4) /* # of blanks per dump indentation level */ + +/* Put anything new that is pointer aligned here. */ + PERLVAR(Tdelaymagic, U16) /* ($<,$>) = ... */ +PERLVAR(Tlocalizing, U8) /* are we processing a local() list? */ +PERLVAR(Tcolorset, bool) /* from regcomp.c */ PERLVARI(Tdirty, bool, FALSE) /* in the middle of tearing things down? */ PERLVAR(Tin_eval, VOL U8) /* trap "fatal" errors? */ PERLVAR(Ttainted, bool) /* using variables controlled by $< */ + +/* For historical reasons this file is followed by intrpvar.h in the interpeter + struct. As this file currently ends with 7 bytes of variables, intrpvar.h + starts with one single U8, to avoid structure padding space wastage. */ |