+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 *)
+PERLVAR(I, utf8_alpha, SV *)
+PERLVAR(I, utf8_blank, SV *)
+PERLVAR(I, utf8_space, 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_xdigit, 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, last_swash_hv, HV *)
+PERLVAR(I, last_swash_tmps, U8 *)
+PERLVAR(I, last_swash_slen, STRLEN)
+PERLVARA(I, last_swash_key,12, U8)
+PERLVAR(I, last_swash_klen, U8) /* Only needs to store 0-12 */
+
+#ifdef FCRYPT
+PERLVARI(I, cryptseen, bool, FALSE) /* has fast crypt() been initialized? */
+#endif
+
+PERLVAR(I, pad_reset_pending, bool) /* reset pad on next attempted alloc */
+PERLVAR(I, srand_called, bool)
+PERLVARI(I, in_load_module, bool, FALSE) /* to prevent recursions in PerlIO_find_layer */
+
+PERLVAR(I, parser, yy_parser *) /* current parser state */
+
+/* Array of signal handlers, indexed by signal number, through which the C
+ signal handler dispatches. */
+PERLVAR(I, psig_ptr, SV **)
+/* Array of names of signals, indexed by signal number, for (re)use as the first
+ argument to a signal handler. Only one block of memory is allocated for
+ both psig_name and psig_ptr. */
+PERLVAR(I, psig_name, SV **)
+
+#if defined(PERL_IMPLICIT_SYS)
+PERLVAR(I, Mem, struct IPerlMem *)
+PERLVAR(I, MemShared, struct IPerlMem *)
+PERLVAR(I, MemParse, struct IPerlMem *)
+PERLVAR(I, Env, struct IPerlEnv *)
+PERLVAR(I, StdIO, struct IPerlStdIO *)
+PERLVAR(I, LIO, struct IPerlLIO *)
+PERLVAR(I, Dir, struct IPerlDir *)
+PERLVAR(I, Sock, struct IPerlSock *)
+PERLVAR(I, Proc, struct IPerlProc *)