Create a struct for all perls globals (as an option)

Mainly for Mingw32 which cannot import data.
Now only Opcode tests fail (op_desc/op_name not 
       handled yet stuff)

p4raw-id: //depot/ansiperl@341

1 files changed, 0 insertions, 110 deletions

diff --git a/embed.h b/embed.h
index 8a475a9e39..38913b3d68 100644
--- 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
@@ -116,29 +112,13 @@
 #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
@@ -152,7 +132,6 @@
 #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
@@ -185,7 +164,6 @@
 #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
@@ -203,16 +181,8 @@
 #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
@@ -235,7 +205,6 @@
 #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
@@ -257,9 +226,7 @@
 #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
@@ -283,8 +250,6 @@
 #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
@@ -297,30 +262,10 @@
 #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
@@ -372,10 +317,7 @@
 #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
@@ -386,7 +328,6 @@
 #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
@@ -395,10 +336,6 @@
 #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
@@ -416,7 +353,6 @@
 #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
@@ -467,11 +403,6 @@
 #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
@@ -489,28 +420,16 @@
 #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
@@ -518,15 +437,11 @@
 #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
@@ -888,7 +803,6 @@
 #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
@@ -907,15 +821,12 @@
 #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
@@ -981,19 +892,16 @@
 #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
@@ -1005,9 +913,6 @@
 #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
@@ -1049,10 +954,8 @@
 #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
@@ -1078,7 +981,6 @@
 #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
@@ -1087,17 +989,10 @@
 #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
@@ -1144,11 +1039,6 @@
 #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