This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Create a struct for all perls globals (as an option)
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 8a475a9..38913b3 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -29,8 +29,6 @@
 #define add_ass_amg            Perl_add_ass_amg
 #define additem                        Perl_additem
 #define amagic_call            Perl_amagic_call
-#define amagic_generation      Perl_amagic_generation
-#define an                     Perl_an
 #define append_elem            Perl_append_elem
 #define append_list            Perl_append_list
 #define apply                  Perl_apply
@@ -72,8 +70,6 @@
 #define bool__amg              Perl_bool__amg
 #define boot_core_UNIVERSAL    Perl_boot_core_UNIVERSAL
 #define bor_amg                        Perl_bor_amg
-#define bufend                 Perl_bufend
-#define bufptr                 Perl_bufptr
 #define bxor_amg               Perl_bxor_amg
 #define call_list              Perl_call_list
 #define cando                  Perl_cando
 #define ck_subr                        Perl_ck_subr
 #define ck_svconst             Perl_ck_svconst
 #define ck_trunc               Perl_ck_trunc
-#define collation_ix           Perl_collation_ix
-#define collation_name         Perl_collation_name
-#define collation_standard     Perl_collation_standard
-#define collxfrm_base          Perl_collxfrm_base
-#define collxfrm_mult          Perl_collxfrm_mult
-#define compcv                 Perl_compcv
-#define compiling              Perl_compiling
 #define compl_amg              Perl_compl_amg
-#define comppad                        Perl_comppad
-#define comppad_name           Perl_comppad_name
-#define comppad_name_fill      Perl_comppad_name_fill
-#define comppad_name_floor     Perl_comppad_name_floor
 #define concat_amg             Perl_concat_amg
 #define concat_ass_amg         Perl_concat_ass_amg
 #define condpair_magic         Perl_condpair_magic
 #define convert                        Perl_convert
-#define cop_seqmax             Perl_cop_seqmax
 #define cos_amg                        Perl_cos_amg
 #define croak                  Perl_croak
-#define cryptseen              Perl_cryptseen
-#define cshlen                 Perl_cshlen
-#define cshname                        Perl_cshname
-#define curinterp              Perl_curinterp
 #define cv_ckproto             Perl_cv_ckproto
 #define cv_clone               Perl_cv_clone
 #define cv_const_sv            Perl_cv_const_sv
 #define debprofdump            Perl_debprofdump
 #define debstack               Perl_debstack
 #define debstackptrs           Perl_debstackptrs
-#define debug                  Perl_debug
 #define dec_amg                        Perl_dec_amg
 #define delimcpy               Perl_delimcpy
 #define deprecate              Perl_deprecate
 #define do_sysseek             Perl_do_sysseek
 #define do_tell                        Perl_do_tell
 #define do_trans               Perl_do_trans
-#define do_undump              Perl_do_undump
 #define do_vecset              Perl_do_vecset
 #define do_vop                 Perl_do_vop
 #define dofindlabel            Perl_dofindlabel
 #define dump_packsubs          Perl_dump_packsubs
 #define dump_pm                        Perl_dump_pm
 #define dump_sub               Perl_dump_sub
-#define egid                   Perl_egid
 #define eq_amg                 Perl_eq_amg
-#define error_count            Perl_error_count
-#define euid                   Perl_euid
-#define eval_cond              Perl_eval_cond
-#define eval_mutex             Perl_eval_mutex
-#define eval_owner             Perl_eval_owner
-#define evalseq                        Perl_evalseq
 #define exp_amg                        Perl_exp_amg
-#define expect                 Perl_expect
 #define expectterm             Perl_expectterm
 #define fallback_amg           Perl_fallback_amg
 #define fbm_compile            Perl_fbm_compile
 #define freq                   Perl_freq
 #define ge_amg                 Perl_ge_amg
 #define gen_constant_list      Perl_gen_constant_list
-#define gid                    Perl_gid
 #define gp_free                        Perl_gp_free
 #define gp_ref                 Perl_gp_ref
 #define gt_amg                 Perl_gt_amg
 #define gv_stashpv             Perl_gv_stashpv
 #define gv_stashpvn            Perl_gv_stashpvn
 #define gv_stashsv             Perl_gv_stashsv
-#define he_root                        Perl_he_root
 #define hexdigit               Perl_hexdigit
-#define hints                  Perl_hints
 #define hv_clear               Perl_hv_clear
 #define hv_delayfree_ent       Perl_hv_delayfree_ent
 #define hv_delete              Perl_hv_delete
 #define hv_undef               Perl_hv_undef
 #define ibcmp                  Perl_ibcmp
 #define ibcmp_locale           Perl_ibcmp_locale
-#define in_my                  Perl_in_my
-#define in_my_stash            Perl_in_my_stash
 #define inc_amg                        Perl_inc_amg
 #define ingroup                        Perl_ingroup
 #define init_stacks            Perl_init_stacks
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
 #define know_next              Perl_know_next
-#define last_lop               Perl_last_lop
-#define last_lop_op            Perl_last_lop_op
-#define last_uni               Perl_last_uni
 #define le_amg                 Perl_le_amg
 #define leave_scope            Perl_leave_scope
-#define lex_brackets           Perl_lex_brackets
-#define lex_brackstack         Perl_lex_brackstack
-#define lex_casemods           Perl_lex_casemods
-#define lex_casestack          Perl_lex_casestack
-#define lex_defer              Perl_lex_defer
-#define lex_dojoin             Perl_lex_dojoin
 #define lex_end                        Perl_lex_end
-#define lex_expect             Perl_lex_expect
-#define lex_fakebrack          Perl_lex_fakebrack
-#define lex_formbrack          Perl_lex_formbrack
-#define lex_inpat              Perl_lex_inpat
-#define lex_inwhat             Perl_lex_inwhat
-#define lex_op                 Perl_lex_op
-#define lex_repl               Perl_lex_repl
 #define lex_start              Perl_lex_start
-#define lex_starts             Perl_lex_starts
-#define lex_state              Perl_lex_state
-#define lex_stuff              Perl_lex_stuff
-#define linestr                        Perl_linestr
 #define linklist               Perl_linklist
 #define list                   Perl_list
 #define listkids               Perl_listkids
 #define magic_setvec           Perl_magic_setvec
 #define magic_wipepack         Perl_magic_wipepack
 #define magicname              Perl_magicname
-#define malloc_mutex           Perl_malloc_mutex
 #define markstack_grow         Perl_markstack_grow
-#define max_intro_pending      Perl_max_intro_pending
-#define maxo                   Perl_maxo
 #define mem_collxfrm           Perl_mem_collxfrm
 #define mess                   Perl_mess
 #define mg_clear               Perl_mg_clear
 #define mg_len                 Perl_mg_len
 #define mg_magical             Perl_mg_magical
 #define mg_set                 Perl_mg_set
-#define min_intro_pending      Perl_min_intro_pending
 #define mod                    Perl_mod
 #define mod_amg                        Perl_mod_amg
 #define mod_ass_amg            Perl_mod_ass_amg
 #define mstats                 Perl_mstats
 #define mult_amg               Perl_mult_amg
 #define mult_ass_amg           Perl_mult_ass_amg
-#define multi_close            Perl_multi_close
-#define multi_end              Perl_multi_end
-#define multi_open             Perl_multi_open
-#define multi_start            Perl_multi_start
 #define my                     Perl_my
 #define my_bcopy               Perl_my_bcopy
 #define my_bzero               Perl_my_bzero
 #define my_stat                        Perl_my_stat
 #define my_swap                        Perl_my_swap
 #define my_unexec              Perl_my_unexec
-#define na                     Perl_na
 #define ncmp_amg               Perl_ncmp_amg
 #define ne_amg                 Perl_ne_amg
 #define neg_amg                        Perl_neg_amg
 #define newXSUB                        Perl_newXSUB
 #define new_struct_thread      Perl_new_struct_thread
 #define nextargv               Perl_nextargv
-#define nexttoke               Perl_nexttoke
-#define nexttype               Perl_nexttype
-#define nextval                        Perl_nextval
-#define nice_chunk             Perl_nice_chunk
-#define nice_chunk_size                Perl_nice_chunk_size
 #define ninstr                 Perl_ninstr
 #define no_aelem               Perl_no_aelem
 #define no_dir_func            Perl_no_dir_func
 #define no_wrongref            Perl_no_wrongref
 #define nointrp                        Perl_nointrp
 #define nomem                  Perl_nomem
-#define nomemok                        Perl_nomemok
 #define nomethod_amg           Perl_nomethod_amg
 #define not_amg                        Perl_not_amg
-#define nthreads               Perl_nthreads
-#define nthreads_cond          Perl_nthreads_cond
 #define numer_amg              Perl_numer_amg
-#define numeric_local          Perl_numeric_local
-#define numeric_name           Perl_numeric_name
-#define numeric_standard       Perl_numeric_standard
-#define oldbufptr              Perl_oldbufptr
-#define oldoldbufptr           Perl_oldoldbufptr
 #define oopsAV                 Perl_oopsAV
 #define oopsCV                 Perl_oopsCV
 #define oopsHV                 Perl_oopsHV
 #define op_desc                        Perl_op_desc
 #define op_free                        Perl_op_free
 #define op_name                        Perl_op_name
-#define op_seqmax              Perl_op_seqmax
 #define opargs                 Perl_opargs
-#define origalen               Perl_origalen
-#define origenviron            Perl_origenviron
-#define osname                 Perl_osname
 #define package                        Perl_package
 #define pad_alloc              Perl_pad_alloc
 #define pad_allocmy            Perl_pad_allocmy
 #define pad_free               Perl_pad_free
 #define pad_leavemy            Perl_pad_leavemy
 #define pad_reset              Perl_pad_reset
-#define pad_reset_pending      Perl_pad_reset_pending
 #define pad_sv                 Perl_pad_sv
 #define pad_swipe              Perl_pad_swipe
-#define padix                  Perl_padix
-#define padix_floor            Perl_padix_floor
 #define patleave               Perl_patleave
 #define peep                   Perl_peep
 #define pidgone                        Perl_pidgone
-#define pidstatus              Perl_pidstatus
 #define pmflag                 Perl_pmflag
 #define pmruntime              Perl_pmruntime
 #define pmtrans                        Perl_pmtrans
 #define pregexec               Perl_pregexec
 #define pregfree               Perl_pregfree
 #define prepend_elem           Perl_prepend_elem
-#define profiledata            Perl_profiledata
 #define psig_name              Perl_psig_name
 #define psig_ptr               Perl_psig_ptr
 #define push_return            Perl_push_return
 #define repeat_ass_amg         Perl_repeat_ass_amg
 #define repeatcpy              Perl_repeatcpy
 #define rninstr                        Perl_rninstr
-#define rsfp                   Perl_rsfp
-#define rsfp_filters           Perl_rsfp_filters
 #define rshift_amg             Perl_rshift_amg
 #define rshift_ass_amg         Perl_rshift_ass_amg
 #define rsignal                        Perl_rsignal
 #define rsignal_restore                Perl_rsignal_restore
 #define rsignal_save           Perl_rsignal_save
 #define rsignal_state          Perl_rsignal_state
-#define runops                 Perl_runops
 #define runops_debug           Perl_runops_debug
 #define runops_standard                Perl_runops_standard
 #define rxres_free             Perl_rxres_free
 #define scmp_amg               Perl_scmp_amg
 #define scope                  Perl_scope
 #define screaminstr            Perl_screaminstr
-#define scrgv                  Perl_scrgv
 #define seq_amg                        Perl_seq_amg
 #define setdefout              Perl_setdefout
 #define setenv_getix           Perl_setenv_getix
 #define sge_amg                        Perl_sge_amg
 #define sgt_amg                        Perl_sgt_amg
-#define sh_path                        Perl_sh_path
 #define share_hek              Perl_share_hek
 #define sharepvn               Perl_sharepvn
 #define sig_name               Perl_sig_name
 #define sig_num                        Perl_sig_num
 #define sighandler             Perl_sighandler
-#define sighandlerp            Perl_sighandlerp
 #define simple                 Perl_simple
 #define sin_amg                        Perl_sin_amg
 #define skipspace              Perl_skipspace
 #define start_subparse         Perl_start_subparse
 #define string_amg             Perl_string_amg
 #define sub_crush_depth                Perl_sub_crush_depth
-#define sub_generation         Perl_sub_generation
-#define subline                        Perl_subline
-#define subname                        Perl_subname
 #define subtr_amg              Perl_subtr_amg
 #define subtr_ass_amg          Perl_subtr_ass_amg
 #define sv_2bool               Perl_sv_2bool
 #define sv_len                 Perl_sv_len
 #define sv_magic               Perl_sv_magic
 #define sv_mortalcopy          Perl_sv_mortalcopy
-#define sv_mutex               Perl_sv_mutex
 #define sv_newmortal           Perl_sv_newmortal
 #define sv_newref              Perl_sv_newref
-#define sv_no                  Perl_sv_no
 #define sv_nv                  Perl_sv_nv
 #define sv_peek                        Perl_sv_peek
 #define sv_pvn                 Perl_sv_pvn
 #define sv_taint               Perl_sv_taint
 #define sv_tainted             Perl_sv_tainted
 #define sv_true                        Perl_sv_true
-#define sv_undef               Perl_sv_undef
 #define sv_unmagic             Perl_sv_unmagic
 #define sv_unref               Perl_sv_unref
 #define sv_untaint             Perl_sv_untaint
 #define sv_uv                  Perl_sv_uv
 #define sv_vcatpvfn            Perl_sv_vcatpvfn
 #define sv_vsetpvfn            Perl_sv_vsetpvfn
-#define sv_yes                 Perl_sv_yes
 #define taint_env              Perl_taint_env
 #define taint_proper           Perl_taint_proper
-#define thisexpr               Perl_thisexpr
-#define thr_key                        Perl_thr_key
-#define threads_mutex          Perl_threads_mutex
-#define threadsv_names         Perl_threadsv_names
-#define tokenbuf               Perl_tokenbuf
 #define too_few_arguments      Perl_too_few_arguments
 #define too_many_arguments     Perl_too_many_arguments
-#define uid                    Perl_uid
 #define unlnk                  Perl_unlnk
 #define unlock_condpair                Perl_unlock_condpair
 #define unshare_hek            Perl_unshare_hek
 #define watchaddr              Perl_watchaddr
 #define watchok                        Perl_watchok
 #define whichsig               Perl_whichsig
-#define xiv_arenaroot          Perl_xiv_arenaroot
-#define xiv_root               Perl_xiv_root
-#define xnv_root               Perl_xnv_root
-#define xpv_root               Perl_xpv_root
-#define xrv_root               Perl_xrv_root
 #define yychar                 Perl_yychar
 #define yycheck                        Perl_yycheck
 #define yydebug                        Perl_yydebug