perlfaq typos
[p5sagit/p5-mst-13.2.git] / embedvar.h
index 8c1b786..297db71 100644 (file)
@@ -1,18 +1,10 @@
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
-   This file is built by embed.pl from global.sym, intrpvar.h,
+   This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
    and thrdvar.h.  Any changes made here will be lost!
 */
 
 /* (Doing namespace management portably in C is really gross.) */
 
-/*  EMBED has no run-time penalty, but helps keep the Perl namespace
-    from colliding with that used by other libraries pulled in
-    by extensions or by embedding perl.  Allow a cc -DNO_EMBED
-    override, however, to keep binary compatability with previous
-    versions of perl.
-*/
-
-
 /* Put interpreter-specific symbols into a struct? */
 
 #ifdef MULTIPLICITY
 #define PL_tmps_stack          (PL_curinterp->Ttmps_stack)
 #define PL_top_env             (PL_curinterp->Ttop_env)
 #define PL_toptarget           (PL_curinterp->Ttoptarget)
+#define PL_watchaddr           (PL_curinterp->Twatchaddr)
+#define PL_watchok             (PL_curinterp->Twatchok)
 
 #endif /* !USE_THREADS */
 
 #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_Ttmps_stack         PL_tmps_stack
 #define PL_Ttop_env            PL_top_env
 #define PL_Ttoptarget          PL_toptarget
+#define PL_Twatchaddr          PL_watchaddr
+#define PL_Twatchok            PL_watchok
 
 #endif /* USE_THREADS */
 
 /* Hide what would have been interpreter-specific symbols? */
 
-#ifdef EMBED
-
 
 #ifndef USE_THREADS
 
 
 #endif /* USE_THREADS */
-#endif /* EMBED */
 #endif /* MULTIPLICITY */
 
 /* Now same trickey for per-thread variables */
 #define PL_tmps_stack          (thr->Ttmps_stack)
 #define PL_top_env             (thr->Ttop_env)
 #define PL_toptarget           (thr->Ttoptarget)
+#define PL_watchaddr           (thr->Twatchaddr)
+#define PL_watchok             (thr->Twatchok)
 
 #endif /* USE_THREADS */
 
 #define PL_collxfrm_base       (PL_Vars.Gcollxfrm_base)
 #define PL_collxfrm_mult       (PL_Vars.Gcollxfrm_mult)
 #define PL_cop_seqmax          (PL_Vars.Gcop_seqmax)
+#define PL_cred_mutex          (PL_Vars.Gcred_mutex)
 #define PL_cryptseen           (PL_Vars.Gcryptseen)
 #define PL_cshlen              (PL_Vars.Gcshlen)
 #define PL_cshname             (PL_Vars.Gcshname)
 #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_yyval               (PL_Vars.Gyyval)
 
 #else /* !PERL_GLOBAL_STRUCT */
 
 #define PL_Gcollxfrm_base      PL_collxfrm_base
 #define PL_Gcollxfrm_mult      PL_collxfrm_mult
 #define PL_Gcop_seqmax         PL_cop_seqmax
+#define PL_Gcred_mutex         PL_cred_mutex
 #define PL_Gcryptseen          PL_cryptseen
 #define PL_Gcshlen             PL_cshlen
 #define PL_Gcshname            PL_cshname
 #define PL_Gxnv_root           PL_xnv_root
 #define PL_Gxpv_root           PL_xpv_root
 #define PL_Gxrv_root           PL_xrv_root
-
-#ifdef EMBED
+#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_Gyyval              PL_yyval
 
 
-#endif /* EMBED */
 #endif /* PERL_GLOBAL_STRUCT */
 
 
-#ifndef MIN_PERL_DEFINE  
+#ifdef PERL_POLLUTE            /* unsupported in 5.006 */
 
 #define DBsingle               PL_DBsingle
 #define DBsub                  PL_DBsub