This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleanup on commit "Pseudo-fork dups arg array on argless calls"
[perl5.git]
/
intrpvar.h
diff --git
a/intrpvar.h
b/intrpvar.h
index
61028f2
..
a6ed644
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 */
* 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 */
PERLVAR(I, op, OP *) /* currently executing op */
-#endif
PERLVAR(I, curpad, SV **) /* active pad (lexicals+tmps) */
PERLVAR(I, stack_base, SV **)
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 */
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 */
PERLVARI(I, sub_generation, U32, 1) /* incr to invalidate method cache */
@@
-80,6
+76,7
@@
PERLVAR(I, tainted, bool) /* using variables controlled by $< */
PERLVAR(I, delaymagic, U16) /* ($<,$>) = ... */
PERLVAR(I, localizing, U8) /* are we processing a local() list? */
PERLVAR(I, in_eval, U8) /* trap "fatal" errors? */
PERLVAR(I, delaymagic, U16) /* ($<,$>) = ... */
PERLVAR(I, localizing, U8) /* are we processing a local() list? */
PERLVAR(I, in_eval, U8) /* trap "fatal" errors? */
+PERLVAR(I, defgv, GV *) /* the *_ glob */
/*
=for apidoc mn|bool|PL_dowarn
/*
=for apidoc mn|bool|PL_dowarn
@@
-113,7
+110,7
@@
PERLVAR(I, mainstack, AV *) /* the stack when nothing funny is
/* memory management */
PERLVAR(I, sv_count, IV) /* how many SV* are currently allocated */
PERLVAR(I, sv_objcount, IV) /* DEPRECATED AND UNMAINTAINED.
/* memory management */
PERLVAR(I, sv_count, IV) /* how many SV* are currently allocated */
PERLVAR(I, sv_objcount, IV) /* DEPRECATED AND UNMAINTAINED.
- * Will be removed in Perl 5.2
0
.
+ * Will be removed in Perl 5.2
2
.
* Used to be: how many objects are currently allocated. */
PERLVAR(I, sv_root, SV *) /* storage for SVs belonging to interp */
* Used to be: how many objects are currently allocated. */
PERLVAR(I, sv_root, SV *) /* storage for SVs belonging to interp */
@@
-177,6
+174,7
@@
PERLVAR(I, statgv, GV *)
PERLVARI(I, statname, SV *, NULL)
#ifdef HAS_TIMES
PERLVARI(I, statname, SV *, NULL)
#ifdef HAS_TIMES
+/* Will be removed soon after v5.21.1. See RT #121351 */
PERLVAR(I, timesbuf, struct tms)
#endif
PERLVAR(I, timesbuf, struct tms)
#endif
@@
-187,7
+185,7
@@
The input record separator - C<$/> in Perl space.
=for apidoc mn|GV*|PL_last_in_gv
=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
=for apidoc mn|GV*|PL_ofsgv
@@
-234,6
+232,7
@@
PERLVARI(I, dumpindent, U16, 4) /* number of blanks per dump
PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */
PERLVAR(I, utf8locale, bool) /* utf8 locale detected */
PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */
PERLVAR(I, utf8locale, bool) /* utf8 locale detected */
+PERLVAR(I, in_utf8_CTYPE_locale, bool)
PERLVARA(I, colors,6, char *) /* values from PERL_RE_COLORS env var */
PERLVARA(I, colors,6, char *) /* values from PERL_RE_COLORS env var */
@@
-352,7
+351,6
@@
PERLVAR(I, psig_pend, int *) /* per-signal "count" of pending */
/* shortcuts to various I/O objects */
PERLVAR(I, stdingv, GV *) /* *STDIN */
PERLVAR(I, stderrgv, GV *) /* *STDERR */
/* shortcuts to various I/O objects */
PERLVAR(I, stdingv, GV *) /* *STDIN */
PERLVAR(I, stderrgv, GV *) /* *STDERR */
-PERLVAR(I, defgv, GV *)
PERLVAR(I, argvgv, GV *) /* *ARGV */
PERLVAR(I, argvoutgv, GV *) /* *ARGVOUT */
PERLVAR(I, argvout_stack, AV *)
PERLVAR(I, argvgv, GV *) /* *ARGV */
PERLVAR(I, argvoutgv, GV *) /* *ARGVOUT */
PERLVAR(I, argvout_stack, AV *)
@@
-580,8
+578,8
@@
PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */
#endif /* !USE_LOCALE_NUMERIC */
/* Unicode inversion lists */
#endif /* !USE_LOCALE_NUMERIC */
/* Unicode inversion lists */
-PERLVAR(I, ASCII, SV *)
PERLVAR(I, Latin1, SV *)
PERLVAR(I, Latin1, SV *)
+PERLVAR(I, UpperLatin1, SV *) /* Code points 128 - 255 */
PERLVAR(I, AboveLatin1, SV *)
PERLVAR(I, NonL1NonFinalFold, SV *)
PERLVAR(I, AboveLatin1, SV *)
PERLVAR(I, NonL1NonFinalFold, SV *)
@@
-600,7
+598,6
@@
PERLVAR(I, utf8_charname_continue, SV *)
PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *)
PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *)
PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
-PERLVARA(I, L1Posix_ptrs, POSIX_CC_COUNT, SV *)
PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
PERLVAR(I, last_swash_hv, HV *)
PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
PERLVAR(I, last_swash_hv, HV *)
@@
-739,7
+736,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)
/* Hook for File::Glob */
PERLVARI(I, globhook, globhook_t, NULL)
-/* The last unconditional member of the interpreter structure when 5.
19.3
was
+/* The last unconditional member of the interpreter structure when 5.
21.1
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. */
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. */
@@
-784,6
+781,8
@@
PERLVARA(I, op_exec_cnt, OP_max+2, UV) /* Counts of executed OPs of the given ty
DEBUGGING is enabled, too. */
#endif
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. */
/* 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. */