*
*/
+#include "handy.h"
+
/*
=head1 Per-Interpreter Variables
*/
PERLVARI(I, dumpindent, U16, 4) /* number of blanks per dump
indentation level */
+PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */
PERLVAR(I, utf8locale, bool) /* utf8 locale detected */
PERLVAR(I, sawampersand, U8) /* must save all match strings */
#endif
PERLVAR(I, unsafe, bool)
-PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */
+
+/* Space for U16 (or U8 if PERL_SAWAMPERSAND is defined) */
+
+PERLVAR(I, reentrant_retint, int) /* Integer return value from reentrant functions */
PERLVAR(I, inplace, char *)
PERLVAR(I, e_script, SV *)
PERLVAR(I, Latin1, SV *)
PERLVAR(I, AboveLatin1, SV *)
-PERLVAR(I, PerlSpace, SV *)
-PERLVAR(I, XPerlSpace, SV *)
-
-PERLVAR(I, L1PosixAlnum,SV *)
-PERLVAR(I, PosixAlnum, SV *)
-
-PERLVAR(I, L1PosixAlpha,SV *)
-PERLVAR(I, PosixAlpha, SV *)
-
-PERLVAR(I, PosixBlank, SV *)
-PERLVAR(I, XPosixBlank, SV *)
-
-PERLVAR(I, L1Cased, SV *)
-
-PERLVAR(I, PosixCntrl, SV *)
-PERLVAR(I, XPosixCntrl, SV *)
-
-PERLVAR(I, PosixDigit, SV *)
-
-PERLVAR(I, L1PosixGraph,SV *)
-PERLVAR(I, PosixGraph, SV *)
-
-PERLVAR(I, L1PosixLower,SV *)
-PERLVAR(I, PosixLower, SV *)
-
-PERLVAR(I, L1PosixPrint,SV *)
-PERLVAR(I, PosixPrint, SV *)
-
-PERLVAR(I, L1PosixPunct,SV *)
-PERLVAR(I, PosixPunct, SV *)
-
-PERLVAR(I, PosixSpace, SV *)
-PERLVAR(I, XPosixSpace, SV *)
-
-PERLVAR(I, L1PosixUpper,SV *)
-PERLVAR(I, PosixUpper, SV *)
-
-PERLVAR(I, L1PosixWord, SV *)
-PERLVAR(I, PosixWord, SV *)
-
-PERLVAR(I, PosixXDigit, SV *)
-PERLVAR(I, XPosixXDigit, SV *)
-
-PERLVAR(I, VertSpace, SV *)
-
PERLVAR(I, NonL1NonFinalFold, SV *)
PERLVAR(I, HasMultiCharFold, SV *)
/* utf8 character class swashes */
-PERLVAR(I, utf8_alnum, SV *) /* Should really be named "utf8_wordchar" */
-PERLVAR(I, utf8_alnumc, SV *)
-PERLVAR(I, utf8_alpha, SV *)
-PERLVAR(I, utf8_graph, SV *)
-PERLVAR(I, utf8_digit, SV *)
-PERLVAR(I, utf8_upper, SV *)
-PERLVAR(I, utf8_lower, SV *)
-PERLVAR(I, utf8_print, SV *)
-PERLVAR(I, utf8_punct, SV *)
PERLVAR(I, utf8_mark, SV *)
PERLVAR(I, utf8_X_regular_begin, SV *)
PERLVAR(I, utf8_X_extend, SV *)
-PERLVAR(I, utf8_X_LVT, SV *)
PERLVAR(I, utf8_toupper, SV *)
PERLVAR(I, utf8_totitle, SV *)
PERLVAR(I, utf8_tolower, SV *)
PERLVAR(I, utf8_tofold, SV *)
PERLVAR(I, utf8_charname_begin, SV *)
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, L1Posix_ptrs, POSIX_CC_COUNT, SV *)
+PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
+
PERLVAR(I, last_swash_hv, HV *)
PERLVAR(I, last_swash_tmps, U8 *)
PERLVAR(I, last_swash_slen, STRLEN)
PERLVAR(I, utf8_idcont, SV *)
PERLVAR(I, utf8_xidstart, SV *)
PERLVAR(I, utf8_perl_idstart, SV *)
+PERLVAR(I, utf8_perl_idcont, SV *)
PERLVAR(I, utf8_xidcont, SV *)
PERLVAR(I, sort_RealCmp, SVCOMPARE_t)
/* Hook for File::Glob */
PERLVARI(I, globhook, globhook_t, NULL)
-PERLVAR(I, reentrant_retint, int) /* Integer return value from reentrant functions */
-
-/* The last unconditional member of the interpreter structure when 5.10.0 was
+/* The last unconditional member of the interpreter structure when 5.18.0 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. */
-#define PERL_LAST_5_16_0_INTERP_MEMBER Ireentrant_retint
+#define PERL_LAST_5_18_0_INTERP_MEMBER Iglobhook
#ifdef PERL_IMPLICIT_CONTEXT
PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */