This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
newer perlembed.pod
[perl5.git] / embedvar.h
index beec657..7a258b0 100644 (file)
 #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
 #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 */