This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
devel/mktodo.pl: Reorder else clauses
[perl5.git] / embedvar.h
index 37e4ab1..35cf8f2 100644 (file)
 #define PL_modcount            (vTHX->Imodcount)
 #define PL_modglobal           (vTHX->Imodglobal)
 #define PL_multideref_pc       (vTHX->Imultideref_pc)
-#define PL_my_cxt_keys         (vTHX->Imy_cxt_keys)
 #define PL_my_cxt_list         (vTHX->Imy_cxt_list)
 #define PL_my_cxt_size         (vTHX->Imy_cxt_size)
 #define PL_na                  (vTHX->Ina)
 #define PL_GNonFinalFold       (my_vars->GNonFinalFold)
 #define PL_Posix_ptrs          (my_vars->GPosix_ptrs)
 #define PL_GPosix_ptrs         (my_vars->GPosix_ptrs)
+#define PL_Private_Use         (my_vars->GPrivate_Use)
+#define PL_GPrivate_Use                (my_vars->GPrivate_Use)
 #define PL_SB_invlist          (my_vars->GSB_invlist)
 #define PL_GSB_invlist         (my_vars->GSB_invlist)
 #define PL_SCX_invlist         (my_vars->GSCX_invlist)
 #define PL_Gmy_ctx_mutex       (my_vars->Gmy_ctx_mutex)
 #define PL_my_cxt_index                (my_vars->Gmy_cxt_index)
 #define PL_Gmy_cxt_index       (my_vars->Gmy_cxt_index)
+#define PL_my_cxt_keys         (my_vars->Gmy_cxt_keys)
+#define PL_Gmy_cxt_keys                (my_vars->Gmy_cxt_keys)
+#define PL_my_cxt_keys_size    (my_vars->Gmy_cxt_keys_size)
+#define PL_Gmy_cxt_keys_size   (my_vars->Gmy_cxt_keys_size)
 #define PL_op_mutex            (my_vars->Gop_mutex)
 #define PL_Gop_mutex           (my_vars->Gop_mutex)
 #define PL_op_seq              (my_vars->Gop_seq)