This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
By re-ordering declarations in interpvar.h and thrdvar.h, reduce the
[perl5.git] / thrdvar.h
index 61298ed..02b023f 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -52,6 +52,7 @@ PERLVAR(Ttmps_stack,  SV **)          /* mortals we've made */
 PERLVARI(Ttmps_ix,     I32,    -1)
 PERLVARI(Ttmps_floor,  I32,    -1)
 PERLVAR(Ttmps_max,     I32)
+PERLVAR(Tmodcount,     I32)            /* how much mod()ification in assignment? */
 
 PERLVAR(Tmarkstack,    I32 *)          /* stack_sp locations we're remembering */
 PERLVAR(Tmarkstack_ptr,        I32 *)
@@ -85,7 +86,6 @@ PERLVAR(Ttimesbuf,    struct tms)
 #endif
 
 /* Fields used by magic variables such as $@, $/ and so on */
-PERLVAR(Ttainted,      bool)           /* using variables controlled by $< */
 PERLVAR(Tcurpm,                PMOP *)         /* what to do \ interps in REs from */
 
 /*
@@ -119,10 +119,8 @@ PERLVAR(Tcurstash, HV *)           /* symbol table for current package */
 
 PERLVAR(Trestartop,    OP *)           /* propagating an error from croak? */
 PERLVARI(Tcurcop,      COP * VOL,      &PL_compiling)
-PERLVAR(Tin_eval,      VOL U8) /* trap "fatal" errors? */
-PERLVAR(Tdelaymagic,   U16)            /* ($<,$>) = ... */
-PERLVARI(Tdirty,       bool, FALSE)    /* in the middle of tearing things down? */
 PERLVAR(Tlocalizing,   int)            /* are we processing a local() list? */
+PERLVAR(Tcolorset,     int)            /* from regcomp.c */
 
 PERLVAR(Tcurstack,     AV *)           /* THE STACK */
 PERLVAR(Tcurstackinfo, PERL_SI *)      /* current stack + context */
@@ -137,7 +135,6 @@ PERLVAR(Tav_fetch_sv,       SV *)           /* unused as of change #19268 */
 PERLVAR(Thv_fetch_sv,  SV *)           /* unused as of change #19268 */
 PERLVAR(Thv_fetch_ent_mh, HE*)         /* owned by hv_fetch_ent() */
 
-PERLVAR(Tmodcount,     I32)            /* how much mod()ification in assignment? */
 
 PERLVAR(Tlastgotoprobe,        OP*)            /* from pp_ctl.c */
 PERLVARI(Tdumpindent,  I32, 4)         /* # of blanks per dump indentation level */
@@ -156,17 +153,16 @@ PERLVAR(Tefloatsize,      STRLEN)
 
 PERLVAR(Tscreamfirst,  I32 *)
 PERLVAR(Tscreamnext,   I32 *)
-PERLVARI(Tmaxscream,   I32,    -1)
 PERLVAR(Tlastscream,   SV *)
 
 PERLVAR(Treg_state,    struct re_save_state)
 PERLVAR(Tregdummy,     regnode)        /* from regcomp.c */
-PERLVAR(Tcolorset,     int)            /* from regcomp.c */
 PERLVARA(Tcolors,6,    char *)         /* from regcomp.c */
 
 PERLVARI(Tpeepp,       peep_t, MEMBER_TO_FPTR(Perl_peep))
                                        /* Pointer to peephole optimizer */
 
+PERLVARI(Tmaxscream,   I32,    -1)
 PERLVARI(Treginterp_cnt,int,       0)  /* Whether "Regexp" was interpolated. */
 PERLVARI(Twatchaddr,   char **,    0)
 PERLVAR(Twatchok,      char *)
@@ -179,3 +175,8 @@ PERLVAR(Twatchok,   char *)
 
 PERLVARI(Tregmatch_slab,       regmatch_slab *, NULL)
 PERLVAR(Tregmatch_state,       regmatch_state *)
+
+PERLVAR(Tdelaymagic,   U16)            /* ($<,$>) = ... */
+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 $< */