disable C<#define dirty PL_dirty> et al.
[p5sagit/p5-mst-13.2.git] / embedvar.h
index 8394e84..67761b1 100644 (file)
 #define PL_ofslen              (PL_curinterp->Tofslen)
 #define PL_op                  (PL_curinterp->Top)
 #define PL_opsave              (PL_curinterp->Topsave)
+#define PL_reg_call_cc         (PL_curinterp->Treg_call_cc)
 #define PL_reg_eval_set                (PL_curinterp->Treg_eval_set)
 #define PL_reg_flags           (PL_curinterp->Treg_flags)
+#define PL_reg_re              (PL_curinterp->Treg_re)
 #define PL_reg_start_tmp       (PL_curinterp->Treg_start_tmp)
 #define PL_reg_start_tmpl      (PL_curinterp->Treg_start_tmpl)
 #define PL_regbol              (PL_curinterp->Tregbol)
 #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_Tofslen             PL_ofslen
 #define PL_Top                 PL_op
 #define PL_Topsave             PL_opsave
+#define PL_Treg_call_cc                PL_reg_call_cc
 #define PL_Treg_eval_set       PL_reg_eval_set
 #define PL_Treg_flags          PL_reg_flags
+#define PL_Treg_re             PL_reg_re
 #define PL_Treg_start_tmp      PL_reg_start_tmp
 #define PL_Treg_start_tmpl     PL_reg_start_tmpl
 #define PL_Tregbol             PL_regbol
 #define PL_ofslen              (thr->Tofslen)
 #define PL_op                  (thr->Top)
 #define PL_opsave              (thr->Topsave)
+#define PL_reg_call_cc         (thr->Treg_call_cc)
 #define PL_reg_eval_set                (thr->Treg_eval_set)
 #define PL_reg_flags           (thr->Treg_flags)
+#define PL_reg_re              (thr->Treg_re)
 #define PL_reg_start_tmp       (thr->Treg_start_tmp)
 #define PL_reg_start_tmpl      (thr->Treg_start_tmpl)
 #define PL_regbol              (thr->Tregbol)
 #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_in_my_stash         (PL_Vars.Gin_my_stash)
 #define PL_last_lop            (PL_Vars.Glast_lop)
 #define PL_last_lop_op         (PL_Vars.Glast_lop_op)
+#define PL_last_swash_hv       (PL_Vars.Glast_swash_hv)
+#define PL_last_swash_key      (PL_Vars.Glast_swash_key)
+#define PL_last_swash_klen     (PL_Vars.Glast_swash_klen)
+#define PL_last_swash_slen     (PL_Vars.Glast_swash_slen)
+#define PL_last_swash_tmps     (PL_Vars.Glast_swash_tmps)
 #define PL_last_uni            (PL_Vars.Glast_uni)
 #define PL_lex_brackets                (PL_Vars.Glex_brackets)
 #define PL_lex_brackstack      (PL_Vars.Glex_brackstack)
 #define PL_threadsv_names      (PL_Vars.Gthreadsv_names)
 #define PL_tokenbuf            (PL_Vars.Gtokenbuf)
 #define PL_uid                 (PL_Vars.Guid)
+#define PL_utf8_alnum          (PL_Vars.Gutf8_alnum)
+#define PL_utf8_alpha          (PL_Vars.Gutf8_alpha)
+#define PL_utf8_digit          (PL_Vars.Gutf8_digit)
+#define PL_utf8_lower          (PL_Vars.Gutf8_lower)
+#define PL_utf8_mark           (PL_Vars.Gutf8_mark)
+#define PL_utf8_print          (PL_Vars.Gutf8_print)
+#define PL_utf8_space          (PL_Vars.Gutf8_space)
+#define PL_utf8_tolower                (PL_Vars.Gutf8_tolower)
+#define PL_utf8_totitle                (PL_Vars.Gutf8_totitle)
+#define PL_utf8_toupper                (PL_Vars.Gutf8_toupper)
+#define PL_utf8_upper          (PL_Vars.Gutf8_upper)
 #define PL_xiv_arenaroot       (PL_Vars.Gxiv_arenaroot)
 #define PL_xiv_root            (PL_Vars.Gxiv_root)
 #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_Gin_my_stash                PL_in_my_stash
 #define PL_Glast_lop           PL_last_lop
 #define PL_Glast_lop_op                PL_last_lop_op
+#define PL_Glast_swash_hv      PL_last_swash_hv
+#define PL_Glast_swash_key     PL_last_swash_key
+#define PL_Glast_swash_klen    PL_last_swash_klen
+#define PL_Glast_swash_slen    PL_last_swash_slen
+#define PL_Glast_swash_tmps    PL_last_swash_tmps
 #define PL_Glast_uni           PL_last_uni
 #define PL_Glex_brackets       PL_lex_brackets
 #define PL_Glex_brackstack     PL_lex_brackstack
 #define PL_Gthreadsv_names     PL_threadsv_names
 #define PL_Gtokenbuf           PL_tokenbuf
 #define PL_Guid                        PL_uid
+#define PL_Gutf8_alnum         PL_utf8_alnum
+#define PL_Gutf8_alpha         PL_utf8_alpha
+#define PL_Gutf8_digit         PL_utf8_digit
+#define PL_Gutf8_lower         PL_utf8_lower
+#define PL_Gutf8_mark          PL_utf8_mark
+#define PL_Gutf8_print         PL_utf8_print
+#define PL_Gutf8_space         PL_utf8_space
+#define PL_Gutf8_tolower       PL_utf8_tolower
+#define PL_Gutf8_totitle       PL_utf8_totitle
+#define PL_Gutf8_toupper       PL_utf8_toupper
+#define PL_Gutf8_upper         PL_utf8_upper
 #define PL_Gxiv_arenaroot      PL_xiv_arenaroot
 #define PL_Gxiv_root           PL_xiv_root
 #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_Gyyval              PL_yyval
 
 #ifdef EMBED
 
 #endif /* PERL_GLOBAL_STRUCT */
 
 
-#ifndef MIN_PERL_DEFINE  
+#if 0 /* ndef MIN_PERL_DEFINE */       /* unsupported in 5.006 */
 
 #define DBsingle               PL_DBsingle
 #define DBsub                  PL_DBsub
 #define curstash               PL_curstash
 #define debstash               PL_debstash
 #define defgv                  PL_defgv
+#define diehook                        PL_diehook
+#define dirty                  PL_dirty
 #define dowarn                 PL_dowarn
 #define errgv                  PL_errgv
 #define na                     PL_na
+#define perl_destruct_level    PL_perl_destruct_level
 #define perldb                 PL_perldb
 #define rsfp                   PL_rsfp
 #define rsfp_filters           PL_rsfp_filters