warn on C<my($foo,$foo)>
[p5sagit/p5-mst-13.2.git] / embedvar.h
index beec657..8c1b786 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_argvoutgv           (PL_curinterp->Iargvoutgv)
 #define PL_basetime            (PL_curinterp->Ibasetime)
 #define PL_beginav             (PL_curinterp->Ibeginav)
+#define PL_bytecode_iv_overflows       (PL_curinterp->Ibytecode_iv_overflows)
+#define PL_bytecode_obj_list   (PL_curinterp->Ibytecode_obj_list)
+#define PL_bytecode_obj_list_fill      (PL_curinterp->Ibytecode_obj_list_fill)
+#define PL_bytecode_pv         (PL_curinterp->Ibytecode_pv)
+#define PL_bytecode_sv         (PL_curinterp->Ibytecode_sv)
 #define PL_cddir               (PL_curinterp->Icddir)
 #define PL_compcv              (PL_curinterp->Icompcv)
 #define PL_compiling           (PL_curinterp->Icompiling)
 #define PL_Iargvoutgv          PL_argvoutgv
 #define PL_Ibasetime           PL_basetime
 #define PL_Ibeginav            PL_beginav
+#define PL_Ibytecode_iv_overflows      PL_bytecode_iv_overflows
+#define PL_Ibytecode_obj_list  PL_bytecode_obj_list
+#define PL_Ibytecode_obj_list_fill     PL_bytecode_obj_list_fill
+#define PL_Ibytecode_pv                PL_bytecode_pv
+#define PL_Ibytecode_sv                PL_bytecode_sv
 #define PL_Icddir              PL_cddir
 #define PL_Icompcv             PL_compcv
 #define PL_Icompiling          PL_compiling
 #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_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_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
 #endif /* EMBED */
 #endif /* PERL_GLOBAL_STRUCT */
 
+
+#ifndef MIN_PERL_DEFINE  
+
+#define DBsingle               PL_DBsingle
+#define DBsub                  PL_DBsub
+#define compiling              PL_compiling
+#define curcop                 PL_curcop
+#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
+#define stack_base             PL_stack_base
+#define stack_sp               PL_stack_sp
+#define stdingv                        PL_stdingv
+#define sv_arenaroot           PL_sv_arenaroot
+#define sv_no                  PL_sv_no
+#define sv_undef               PL_sv_undef
+#define sv_yes                 PL_sv_yes
+#define tainted                        PL_tainted
+#define tainting               PL_tainting
+
+#endif /* MIN_PERL_DEFINE */