perlfaq typos

[p5sagit/p5-mst-13.2.git] / embedvar.h

diff --git a/embedvar.h b/embedvar.h
index 45a1f8d..297db71 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -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
@@ -128,6 +120,8 @@
 #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 */
 
@@ -511,19 +505,18 @@
 #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 */
@@ -638,6 +631,8 @@
 #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 */
 
@@ -772,9 +767,7 @@
 #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 */
 
@@ -907,18 +900,13 @@
 #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
 
 
-#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