This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The #16592 needs this.
[perl5.git] / embedvar.h
index 8eccfa2..95e70b9 100644 (file)
 #define PL_sh_path             (PERL_GET_INTERP->Ish_path)
 #define PL_sig_pending         (PERL_GET_INTERP->Isig_pending)
 #define PL_sighandlerp         (PERL_GET_INTERP->Isighandlerp)
+#define PL_sort_RealCmp                (PERL_GET_INTERP->Isort_RealCmp)
 #define PL_splitstr            (PERL_GET_INTERP->Isplitstr)
 #define PL_srand_called                (PERL_GET_INTERP->Isrand_called)
 #define PL_statusvalue         (PERL_GET_INTERP->Istatusvalue)
 #define PL_utf8_cntrl          (PERL_GET_INTERP->Iutf8_cntrl)
 #define PL_utf8_digit          (PERL_GET_INTERP->Iutf8_digit)
 #define PL_utf8_graph          (PERL_GET_INTERP->Iutf8_graph)
+#define PL_utf8_idcont         (PERL_GET_INTERP->Iutf8_idcont)
+#define PL_utf8_idstart                (PERL_GET_INTERP->Iutf8_idstart)
 #define PL_utf8_lower          (PERL_GET_INTERP->Iutf8_lower)
 #define PL_utf8_mark           (PERL_GET_INTERP->Iutf8_mark)
 #define PL_utf8_print          (PERL_GET_INTERP->Iutf8_print)
 #define PL_sh_path             (vTHX->Ish_path)
 #define PL_sig_pending         (vTHX->Isig_pending)
 #define PL_sighandlerp         (vTHX->Isighandlerp)
+#define PL_sort_RealCmp                (vTHX->Isort_RealCmp)
 #define PL_splitstr            (vTHX->Isplitstr)
 #define PL_srand_called                (vTHX->Isrand_called)
 #define PL_statusvalue         (vTHX->Istatusvalue)
 #define PL_utf8_cntrl          (vTHX->Iutf8_cntrl)
 #define PL_utf8_digit          (vTHX->Iutf8_digit)
 #define PL_utf8_graph          (vTHX->Iutf8_graph)
+#define PL_utf8_idcont         (vTHX->Iutf8_idcont)
+#define PL_utf8_idstart                (vTHX->Iutf8_idstart)
 #define PL_utf8_lower          (vTHX->Iutf8_lower)
 #define PL_utf8_mark           (vTHX->Iutf8_mark)
 #define PL_utf8_print          (vTHX->Iutf8_print)
 #define PL_Ish_path            PL_sh_path
 #define PL_Isig_pending                PL_sig_pending
 #define PL_Isighandlerp                PL_sighandlerp
+#define PL_Isort_RealCmp       PL_sort_RealCmp
 #define PL_Isplitstr           PL_splitstr
 #define PL_Isrand_called       PL_srand_called
 #define PL_Istatusvalue                PL_statusvalue
 #define PL_Iutf8_cntrl         PL_utf8_cntrl
 #define PL_Iutf8_digit         PL_utf8_digit
 #define PL_Iutf8_graph         PL_utf8_graph
+#define PL_Iutf8_idcont                PL_utf8_idcont
+#define PL_Iutf8_idstart       PL_utf8_idstart
 #define PL_Iutf8_lower         PL_utf8_lower
 #define PL_Iutf8_mark          PL_utf8_mark
 #define PL_Iutf8_print         PL_utf8_print
 #define PL_runops_std          (PL_Vars.Grunops_std)
 #define PL_sharehook           (PL_Vars.Gsharehook)
 #define PL_thr_key             (PL_Vars.Gthr_key)
+#define PL_threadhook          (PL_Vars.Gthreadhook)
 #define PL_unlockhook          (PL_Vars.Gunlockhook)
 
 #else /* !PERL_GLOBAL_STRUCT */
 #define PL_Grunops_std         PL_runops_std
 #define PL_Gsharehook          PL_sharehook
 #define PL_Gthr_key            PL_thr_key
+#define PL_Gthreadhook         PL_threadhook
 #define PL_Gunlockhook         PL_unlockhook
 
 #endif /* PERL_GLOBAL_STRUCT */