Consistent spaces after dots in perlintern.pod

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 27058d7..4f48e4b 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -33,11 +33,7 @@
  * Important ones in the first cache line (if alignment is done right) */
 
 PERLVAR(I, stack_sp,   SV **)          /* top of the stack */
-#ifdef OP_IN_REGISTER
-PERLVAR(I, opsave,     OP *)
-#else
 PERLVAR(I, op,         OP *)           /* currently executing op */
-#endif
 PERLVAR(I, curpad,     SV **)          /* active pad (lexicals+tmps) */
 
 PERLVAR(I, stack_base, SV **)
@@ -53,9 +49,9 @@ PERLVAR(I, scopestack_ix, I32)
 PERLVAR(I, scopestack_max, I32)
 
 PERLVAR(I, tmps_stack, SV **)          /* mortals we've made */
-PERLVARI(I, tmps_ix,   I32,    -1)
-PERLVARI(I, tmps_floor,        I32,    -1)
-PERLVAR(I, tmps_max,   I32)
+PERLVARI(I, tmps_ix,   SSize_t,        -1)
+PERLVARI(I, tmps_floor,        SSize_t,        -1)
+PERLVAR(I, tmps_max,   SSize_t)
 
 PERLVARI(I, sub_generation, U32, 1)    /* incr to invalidate method cache */
 
@@ -123,7 +119,8 @@ PERLVAR(I, sv_arenaroot, SV *)              /* list of areas for garbage collection */
 PERLVARI(I, reg_curpm, PMOP*, NULL)
 
 /* the currently active slab in a chain of slabs of regmatch states,
- * and the currently active state within that slab */
+ * and the currently active state within that slab. This stack of states
+ * is shared amongst re-entrant calls to the regex engine */
 
 PERLVARI(I, regmatch_slab, regmatch_slab *,    NULL)
 PERLVAR(I, regmatch_state, regmatch_state *)
@@ -186,7 +183,7 @@ The input record separator - C<$/> in Perl space.
 
 =for apidoc mn|GV*|PL_last_in_gv
 
-The GV which was last used for a filehandle input operation. (C<< <FH> >>)
+The GV which was last used for a filehandle input operation.  (C<< <FH> >>)
 
 =for apidoc mn|GV*|PL_ofsgv
 
@@ -227,8 +224,6 @@ PERLVAR(I, secondgv,        GV *)           /* $b */
 PERLVAR(I, efloatbuf,  char *)
 PERLVAR(I, efloatsize, STRLEN)
 
-PERLVAR(I, regdummy,   regnode)        /* from regcomp.c */
-
 PERLVARI(I, dumpindent,        U16,    4)      /* number of blanks per dump
                                           indentation level */
 
@@ -236,7 +231,7 @@ PERLVAR(I, exit_flags,      U8)             /* was exit() unexpected, etc. */
 
 PERLVAR(I, utf8locale, bool)           /* utf8 locale detected */
 
-PERLVARA(I, colors,6,  char *)         /* from regcomp.c */
+PERLVARA(I, colors,6,  char *)         /* values from PERL_RE_COLORS env var */
 
 /*
 =for apidoc Amn|peep_t|PL_peepp
@@ -541,8 +536,6 @@ PERLVAR(I, padix,   I32)            /* max used index in current "register" pad */
 
 PERLVAR(I, padix_floor,        I32)            /* how low may inner block reset padix */
 
-PERLVAR(I, hints,      U32)            /* pragma-tic compile-time flags */
-
 #ifdef USE_LOCALE_COLLATE
 PERLVAR(I, collation_name, char *)     /* Name of current collation */
 PERLVAR(I, collxfrm_base, Size_t)      /* Basic overhead in *xfrm() */
@@ -557,7 +550,7 @@ PERLVAR(I, sawampersand, U8)                /* must save all match strings */
 #endif
 
 PERLVAR(I, unsafe,     bool)
-PERLVAR(I, colorset,   bool)           /* from regcomp.c */
+PERLVAR(I, colorset,   bool)           /* PERL_RE_COLORS env var is in use */
 
 /* current phase the interpreter is in
    for ordering this structure to remove holes, we're assuming that this is 4
@@ -583,8 +576,8 @@ PERLVAR(I, numeric_radix_sv, SV *)  /* The radix separator if not '.' */
 #endif /* !USE_LOCALE_NUMERIC */
 
 /* Unicode inversion lists */
-PERLVAR(I, ASCII,      SV *)
 PERLVAR(I, Latin1,     SV *)
+PERLVAR(I, UpperLatin1,        SV *)   /* Code points 128 - 255 */
 PERLVAR(I, AboveLatin1,        SV *)
 
 PERLVAR(I, NonL1NonFinalFold,   SV *)
@@ -742,7 +735,7 @@ PERLVAR(I, debug_pad,       struct perl_debug_pad)  /* always needed because of the re
 /* Hook for File::Glob */
 PERLVARI(I, globhook,  globhook_t, NULL)
 
-/* The last unconditional member of the interpreter structure when 5.19.1 was
+/* The last unconditional member of the interpreter structure when 5.19.8 was
    released. The offset of the end of this is baked into a global variable in 
    any shared perl library which will allow a sanity test in future perl
    releases.  */
@@ -776,6 +769,19 @@ PERLVARI(I, xmlfp, PerlIO *, NULL)
 PERLVARI(I, sv_serial, U32,    0)      /* SV serial number, used in sv.c */
 #endif
 
+PERLVARA(I, sv_consts, SV_CONSTS_COUNT, SV*)   /* constant SVs with precomputed hash value */
+
+#ifdef PERL_TRACE_OPS
+PERLVARA(I, op_exec_cnt, OP_max+2, UV) /* Counts of executed OPs of the given type.
+                                           If PERL_TRACE_OPS is enabled, we'll dump
+                                           a summary count of all ops executed in the
+                                           program at perl_destruct time. For
+                                           profiling/debugging only. Works only if
+                                           DEBUGGING is enabled, too. */
+#endif
+
+PERLVAR(I, random_state, PL_RANDOM_STATE_TYPE)
+
 /* 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.  */