perlform.pod
[p5sagit/p5-mst-13.2.git] / embedvar.h
index 8c1b786..a6ab6bc 100644 (file)
 #define PL_stdingv             (PL_curinterp->Istdingv)
 #define PL_strchop             (PL_curinterp->Istrchop)
 #define PL_strtab              (PL_curinterp->Istrtab)
+#define PL_strtab_mutex                (PL_curinterp->Istrtab_mutex)
 #define PL_sub_generation      (PL_curinterp->Isub_generation)
 #define PL_sublex_info         (PL_curinterp->Isublex_info)
 #define PL_sv_arenaroot                (PL_curinterp->Isv_arenaroot)
 #define PL_Istdingv            PL_stdingv
 #define PL_Istrchop            PL_strchop
 #define PL_Istrtab             PL_strtab
+#define PL_Istrtab_mutex       PL_strtab_mutex
 #define PL_Isub_generation     PL_sub_generation
 #define PL_Isublex_info                PL_sublex_info
 #define PL_Isv_arenaroot       PL_sv_arenaroot
 #define PL_xnv_root            (PL_Vars.Gxnv_root)
 #define PL_xpv_root            (PL_Vars.Gxpv_root)
 #define PL_xrv_root            (PL_Vars.Gxrv_root)
+#define PL_yychar              (PL_Vars.Gyychar)
+#define PL_yydebug             (PL_Vars.Gyydebug)
+#define PL_yyerrflag           (PL_Vars.Gyyerrflag)
+#define PL_yylval              (PL_Vars.Gyylval)
+#define PL_yynerrs             (PL_Vars.Gyynerrs)
+#define PL_yyssp               (PL_Vars.Gyyssp)
+#define PL_yyval               (PL_Vars.Gyyval)
+#define PL_yyvsp               (PL_Vars.Gyyvsp)
 
 #else /* !PERL_GLOBAL_STRUCT */
 
 #define PL_Gxnv_root           PL_xnv_root
 #define PL_Gxpv_root           PL_xpv_root
 #define PL_Gxrv_root           PL_xrv_root
+#define PL_Gyychar             PL_yychar
+#define PL_Gyydebug            PL_yydebug
+#define PL_Gyyerrflag          PL_yyerrflag
+#define PL_Gyylval             PL_yylval
+#define PL_Gyynerrs            PL_yynerrs
+#define PL_Gyyssp              PL_yyssp
+#define PL_Gyyval              PL_yyval
+#define PL_Gyyvsp              PL_yyvsp
 
 #ifdef EMBED