most globals are now interpreter local; locale initialization

was too early, defer it until interpreter is allocated and
initialized; multiple interpreters should now be
concurrency-safe (untested)

p4raw-id: //depot/perl@3527

1 files changed, 230 insertions, 230 deletions

diff --git a/embedvar.h b/embedvar.h
index ed529ad515..7f4ea6a37a 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -280,26 +280,41 @@
 #define PL_DBsingle		(PL_curinterp->IDBsingle)
 #define PL_DBsub		(PL_curinterp->IDBsub)
 #define PL_DBtrace		(PL_curinterp->IDBtrace)
+#define PL_amagic_generation	(PL_curinterp->Iamagic_generation)
 #define PL_ampergv		(PL_curinterp->Iampergv)
+#define PL_an			(PL_curinterp->Ian)
 #define PL_archpat_auto		(PL_curinterp->Iarchpat_auto)
 #define PL_argvgv		(PL_curinterp->Iargvgv)
 #define PL_argvoutgv		(PL_curinterp->Iargvoutgv)
 #define PL_basetime		(PL_curinterp->Ibasetime)
 #define PL_beginav		(PL_curinterp->Ibeginav)
+#define PL_bitcount		(PL_curinterp->Ibitcount)
+#define PL_bufend		(PL_curinterp->Ibufend)
+#define PL_bufptr		(PL_curinterp->Ibufptr)
 #define PL_cddir		(PL_curinterp->Icddir)
+#define PL_collation_ix		(PL_curinterp->Icollation_ix)
+#define PL_collation_name	(PL_curinterp->Icollation_name)
+#define PL_collation_standard	(PL_curinterp->Icollation_standard)
+#define PL_collxfrm_base	(PL_curinterp->Icollxfrm_base)
+#define PL_collxfrm_mult	(PL_curinterp->Icollxfrm_mult)
 #define PL_compcv		(PL_curinterp->Icompcv)
 #define PL_compiling		(PL_curinterp->Icompiling)
 #define PL_comppad		(PL_curinterp->Icomppad)
 #define PL_comppad_name		(PL_curinterp->Icomppad_name)
 #define PL_comppad_name_fill	(PL_curinterp->Icomppad_name_fill)
 #define PL_comppad_name_floor	(PL_curinterp->Icomppad_name_floor)
+#define PL_cop_seqmax		(PL_curinterp->Icop_seqmax)
 #define PL_copline		(PL_curinterp->Icopline)
+#define PL_cryptseen		(PL_curinterp->Icryptseen)
+#define PL_cshlen		(PL_curinterp->Icshlen)
+#define PL_cshname		(PL_curinterp->Icshname)
 #define PL_curcopdb		(PL_curinterp->Icurcopdb)
 #define PL_curstname		(PL_curinterp->Icurstname)
 #define PL_dbargs		(PL_curinterp->Idbargs)
 #define PL_debdelim		(PL_curinterp->Idebdelim)
 #define PL_debname		(PL_curinterp->Idebname)
 #define PL_debstash		(PL_curinterp->Idebstash)
+#define PL_debug		(PL_curinterp->Idebug)
 #define PL_defgv		(PL_curinterp->Idefgv)
 #define PL_diehook		(PL_curinterp->Idiehook)
 #define PL_dlevel		(PL_curinterp->Idlevel)
@@ -308,40 +323,82 @@
 #define PL_doswitches		(PL_curinterp->Idoswitches)
 #define PL_dowarn		(PL_curinterp->Idowarn)
 #define PL_e_script		(PL_curinterp->Ie_script)
+#define PL_efloatbuf		(PL_curinterp->Iefloatbuf)
+#define PL_efloatsize		(PL_curinterp->Iefloatsize)
+#define PL_egid			(PL_curinterp->Iegid)
 #define PL_endav		(PL_curinterp->Iendav)
 #define PL_envgv		(PL_curinterp->Ienvgv)
 #define PL_errgv		(PL_curinterp->Ierrgv)
+#define PL_error_count		(PL_curinterp->Ierror_count)
+#define PL_euid			(PL_curinterp->Ieuid)
 #define PL_eval_root		(PL_curinterp->Ieval_root)
 #define PL_eval_start		(PL_curinterp->Ieval_start)
+#define PL_evalseq		(PL_curinterp->Ievalseq)
 #define PL_exitlist		(PL_curinterp->Iexitlist)
 #define PL_exitlistlen		(PL_curinterp->Iexitlistlen)
+#define PL_expect		(PL_curinterp->Iexpect)
 #define PL_fdpid		(PL_curinterp->Ifdpid)
 #define PL_filemode		(PL_curinterp->Ifilemode)
+#define PL_filter_debug		(PL_curinterp->Ifilter_debug)
 #define PL_forkprocess		(PL_curinterp->Iforkprocess)
 #define PL_formfeed		(PL_curinterp->Iformfeed)
 #define PL_generation		(PL_curinterp->Igeneration)
 #define PL_gensym		(PL_curinterp->Igensym)
+#define PL_gid			(PL_curinterp->Igid)
+#define PL_glob_index		(PL_curinterp->Iglob_index)
 #define PL_globalstash		(PL_curinterp->Iglobalstash)
+#define PL_he_root		(PL_curinterp->Ihe_root)
 #define PL_hintgv		(PL_curinterp->Ihintgv)
+#define PL_hints		(PL_curinterp->Ihints)
 #define PL_in_clean_all		(PL_curinterp->Iin_clean_all)
 #define PL_in_clean_objs	(PL_curinterp->Iin_clean_objs)
+#define PL_in_my		(PL_curinterp->Iin_my)
+#define PL_in_my_stash		(PL_curinterp->Iin_my_stash)
 #define PL_incgv		(PL_curinterp->Iincgv)
 #define PL_initav		(PL_curinterp->Iinitav)
 #define PL_inplace		(PL_curinterp->Iinplace)
+#define PL_last_lop		(PL_curinterp->Ilast_lop)
+#define PL_last_lop_op		(PL_curinterp->Ilast_lop_op)
+#define PL_last_swash_hv	(PL_curinterp->Ilast_swash_hv)
+#define PL_last_swash_key	(PL_curinterp->Ilast_swash_key)
+#define PL_last_swash_klen	(PL_curinterp->Ilast_swash_klen)
+#define PL_last_swash_slen	(PL_curinterp->Ilast_swash_slen)
+#define PL_last_swash_tmps	(PL_curinterp->Ilast_swash_tmps)
+#define PL_last_uni		(PL_curinterp->Ilast_uni)
 #define PL_lastfd		(PL_curinterp->Ilastfd)
 #define PL_lastsize		(PL_curinterp->Ilastsize)
 #define PL_lastspbase		(PL_curinterp->Ilastspbase)
 #define PL_laststatval		(PL_curinterp->Ilaststatval)
 #define PL_laststype		(PL_curinterp->Ilaststype)
 #define PL_leftgv		(PL_curinterp->Ileftgv)
+#define PL_lex_brackets		(PL_curinterp->Ilex_brackets)
+#define PL_lex_brackstack	(PL_curinterp->Ilex_brackstack)
+#define PL_lex_casemods		(PL_curinterp->Ilex_casemods)
+#define PL_lex_casestack	(PL_curinterp->Ilex_casestack)
+#define PL_lex_defer		(PL_curinterp->Ilex_defer)
+#define PL_lex_dojoin		(PL_curinterp->Ilex_dojoin)
+#define PL_lex_expect		(PL_curinterp->Ilex_expect)
+#define PL_lex_fakebrack	(PL_curinterp->Ilex_fakebrack)
+#define PL_lex_formbrack	(PL_curinterp->Ilex_formbrack)
+#define PL_lex_inpat		(PL_curinterp->Ilex_inpat)
+#define PL_lex_inwhat		(PL_curinterp->Ilex_inwhat)
+#define PL_lex_op		(PL_curinterp->Ilex_op)
+#define PL_lex_repl		(PL_curinterp->Ilex_repl)
+#define PL_lex_starts		(PL_curinterp->Ilex_starts)
+#define PL_lex_state		(PL_curinterp->Ilex_state)
+#define PL_lex_stuff		(PL_curinterp->Ilex_stuff)
 #define PL_lineary		(PL_curinterp->Ilineary)
 #define PL_linestart		(PL_curinterp->Ilinestart)
+#define PL_linestr		(PL_curinterp->Ilinestr)
 #define PL_localpatches		(PL_curinterp->Ilocalpatches)
 #define PL_main_cv		(PL_curinterp->Imain_cv)
 #define PL_main_root		(PL_curinterp->Imain_root)
 #define PL_main_start		(PL_curinterp->Imain_start)
+#define PL_max_intro_pending	(PL_curinterp->Imax_intro_pending)
+#define PL_maxo			(PL_curinterp->Imaxo)
 #define PL_maxsysfd		(PL_curinterp->Imaxsysfd)
 #define PL_mess_sv		(PL_curinterp->Imess_sv)
+#define PL_min_intro_pending	(PL_curinterp->Imin_intro_pending)
 #define PL_minus_F		(PL_curinterp->Iminus_F)
 #define PL_minus_a		(PL_curinterp->Iminus_a)
 #define PL_minus_c		(PL_curinterp->Iminus_c)
@@ -349,22 +406,45 @@
 #define PL_minus_n		(PL_curinterp->Iminus_n)
 #define PL_minus_p		(PL_curinterp->Iminus_p)
 #define PL_modglobal		(PL_curinterp->Imodglobal)
+#define PL_multi_close		(PL_curinterp->Imulti_close)
+#define PL_multi_end		(PL_curinterp->Imulti_end)
+#define PL_multi_open		(PL_curinterp->Imulti_open)
+#define PL_multi_start		(PL_curinterp->Imulti_start)
 #define PL_multiline		(PL_curinterp->Imultiline)
 #define PL_mystrk		(PL_curinterp->Imystrk)
+#define PL_nexttoke		(PL_curinterp->Inexttoke)
+#define PL_nexttype		(PL_curinterp->Inexttype)
+#define PL_nextval		(PL_curinterp->Inextval)
+#define PL_nice_chunk		(PL_curinterp->Inice_chunk)
+#define PL_nice_chunk_size	(PL_curinterp->Inice_chunk_size)
+#define PL_nomemok		(PL_curinterp->Inomemok)
+#define PL_numeric_local	(PL_curinterp->Inumeric_local)
+#define PL_numeric_name		(PL_curinterp->Inumeric_name)
+#define PL_numeric_standard	(PL_curinterp->Inumeric_standard)
 #define PL_ofmt			(PL_curinterp->Iofmt)
+#define PL_oldbufptr		(PL_curinterp->Ioldbufptr)
 #define PL_oldlastpm		(PL_curinterp->Ioldlastpm)
 #define PL_oldname		(PL_curinterp->Ioldname)
+#define PL_oldoldbufptr		(PL_curinterp->Ioldoldbufptr)
 #define PL_op_mask		(PL_curinterp->Iop_mask)
+#define PL_op_seqmax		(PL_curinterp->Iop_seqmax)
+#define PL_origalen		(PL_curinterp->Iorigalen)
 #define PL_origargc		(PL_curinterp->Iorigargc)
 #define PL_origargv		(PL_curinterp->Iorigargv)
+#define PL_origenviron		(PL_curinterp->Iorigenviron)
 #define PL_origfilename		(PL_curinterp->Iorigfilename)
 #define PL_ors			(PL_curinterp->Iors)
 #define PL_orslen		(PL_curinterp->Iorslen)
+#define PL_osname		(PL_curinterp->Iosname)
+#define PL_pad_reset_pending	(PL_curinterp->Ipad_reset_pending)
+#define PL_padix		(PL_curinterp->Ipadix)
+#define PL_padix_floor		(PL_curinterp->Ipadix_floor)
 #define PL_parsehook		(PL_curinterp->Iparsehook)
 #define PL_patchlevel		(PL_curinterp->Ipatchlevel)
 #define PL_pending_ident	(PL_curinterp->Ipending_ident)
 #define PL_perl_destruct_level	(PL_curinterp->Iperl_destruct_level)
 #define PL_perldb		(PL_curinterp->Iperldb)
+#define PL_pidstatus		(PL_curinterp->Ipidstatus)
 #define PL_preambleav		(PL_curinterp->Ipreambleav)
 #define PL_preambled		(PL_curinterp->Ipreambled)
 #define PL_preprocess		(PL_curinterp->Ipreprocess)
@@ -373,11 +453,15 @@
 #define PL_rightgv		(PL_curinterp->Irightgv)
 #define PL_rsfp			(PL_curinterp->Irsfp)
 #define PL_rsfp_filters		(PL_curinterp->Irsfp_filters)
+#define PL_runops		(PL_curinterp->Irunops)
 #define PL_sawampersand		(PL_curinterp->Isawampersand)
 #define PL_sawstudy		(PL_curinterp->Isawstudy)
 #define PL_sawvec		(PL_curinterp->Isawvec)
+#define PL_sh_path		(PL_curinterp->Ish_path)
 #define PL_siggv		(PL_curinterp->Isiggv)
+#define PL_sighandlerp		(PL_curinterp->Isighandlerp)
 #define PL_splitstr		(PL_curinterp->Isplitstr)
+#define PL_srand_called		(PL_curinterp->Isrand_called)
 #define PL_statusvalue		(PL_curinterp->Istatusvalue)
 #define PL_statusvalue_vms	(PL_curinterp->Istatusvalue_vms)
 #define PL_stdingv		(PL_curinterp->Istdingv)
@@ -386,16 +470,47 @@
 #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_subline		(PL_curinterp->Isubline)
+#define PL_subname		(PL_curinterp->Isubname)
 #define PL_sv_arenaroot		(PL_curinterp->Isv_arenaroot)
 #define PL_sv_count		(PL_curinterp->Isv_count)
+#define PL_sv_no		(PL_curinterp->Isv_no)
 #define PL_sv_objcount		(PL_curinterp->Isv_objcount)
 #define PL_sv_root		(PL_curinterp->Isv_root)
+#define PL_sv_undef		(PL_curinterp->Isv_undef)
+#define PL_sv_yes		(PL_curinterp->Isv_yes)
 #define PL_sys_intern		(PL_curinterp->Isys_intern)
 #define PL_tainting		(PL_curinterp->Itainting)
+#define PL_thisexpr		(PL_curinterp->Ithisexpr)
 #define PL_threadnum		(PL_curinterp->Ithreadnum)
 #define PL_thrsv		(PL_curinterp->Ithrsv)
+#define PL_tokenbuf		(PL_curinterp->Itokenbuf)
+#define PL_uid			(PL_curinterp->Iuid)
 #define PL_unsafe		(PL_curinterp->Iunsafe)
+#define PL_utf8_alnum		(PL_curinterp->Iutf8_alnum)
+#define PL_utf8_alpha		(PL_curinterp->Iutf8_alpha)
+#define PL_utf8_digit		(PL_curinterp->Iutf8_digit)
+#define PL_utf8_lower		(PL_curinterp->Iutf8_lower)
+#define PL_utf8_mark		(PL_curinterp->Iutf8_mark)
+#define PL_utf8_print		(PL_curinterp->Iutf8_print)
+#define PL_utf8_space		(PL_curinterp->Iutf8_space)
+#define PL_utf8_tolower		(PL_curinterp->Iutf8_tolower)
+#define PL_utf8_totitle		(PL_curinterp->Iutf8_totitle)
+#define PL_utf8_toupper		(PL_curinterp->Iutf8_toupper)
+#define PL_utf8_upper		(PL_curinterp->Iutf8_upper)
+#define PL_uudmap		(PL_curinterp->Iuudmap)
 #define PL_warnhook		(PL_curinterp->Iwarnhook)
+#define PL_xiv_arenaroot	(PL_curinterp->Ixiv_arenaroot)
+#define PL_xiv_root		(PL_curinterp->Ixiv_root)
+#define PL_xnv_root		(PL_curinterp->Ixnv_root)
+#define PL_xpv_root		(PL_curinterp->Ixpv_root)
+#define PL_xrv_root		(PL_curinterp->Ixrv_root)
+#define PL_yychar		(PL_curinterp->Iyychar)
+#define PL_yydebug		(PL_curinterp->Iyydebug)
+#define PL_yyerrflag		(PL_curinterp->Iyyerrflag)
+#define PL_yylval		(PL_curinterp->Iyylval)
+#define PL_yynerrs		(PL_curinterp->Iyynerrs)
+#define PL_yyval		(PL_curinterp->Iyyval)
 
 #else	/* !MULTIPLICITY */
 
@@ -408,26 +523,41 @@
 #define PL_IDBsingle		PL_DBsingle
 #define PL_IDBsub		PL_DBsub
 #define PL_IDBtrace		PL_DBtrace
+#define PL_Iamagic_generation	PL_amagic_generation
 #define PL_Iampergv		PL_ampergv
+#define PL_Ian			PL_an
 #define PL_Iarchpat_auto	PL_archpat_auto
 #define PL_Iargvgv		PL_argvgv
 #define PL_Iargvoutgv		PL_argvoutgv
 #define PL_Ibasetime		PL_basetime
 #define PL_Ibeginav		PL_beginav
+#define PL_Ibitcount		PL_bitcount
+#define PL_Ibufend		PL_bufend
+#define PL_Ibufptr		PL_bufptr
 #define PL_Icddir		PL_cddir
+#define PL_Icollation_ix	PL_collation_ix
+#define PL_Icollation_name	PL_collation_name
+#define PL_Icollation_standard	PL_collation_standard
+#define PL_Icollxfrm_base	PL_collxfrm_base
+#define PL_Icollxfrm_mult	PL_collxfrm_mult
 #define PL_Icompcv		PL_compcv
 #define PL_Icompiling		PL_compiling
 #define PL_Icomppad		PL_comppad
 #define PL_Icomppad_name	PL_comppad_name
 #define PL_Icomppad_name_fill	PL_comppad_name_fill
 #define PL_Icomppad_name_floor	PL_comppad_name_floor
+#define PL_Icop_seqmax		PL_cop_seqmax
 #define PL_Icopline		PL_copline
+#define PL_Icryptseen		PL_cryptseen
+#define PL_Icshlen		PL_cshlen
+#define PL_Icshname		PL_cshname
 #define PL_Icurcopdb		PL_curcopdb
 #define PL_Icurstname		PL_curstname
 #define PL_Idbargs		PL_dbargs
 #define PL_Idebdelim		PL_debdelim
 #define PL_Idebname		PL_debname
 #define PL_Idebstash		PL_debstash
+#define PL_Idebug		PL_debug
 #define PL_Idefgv		PL_defgv
 #define PL_Idiehook		PL_diehook
 #define PL_Idlevel		PL_dlevel
@@ -436,40 +566,82 @@
 #define PL_Idoswitches		PL_doswitches
 #define PL_Idowarn		PL_dowarn
 #define PL_Ie_script		PL_e_script
+#define PL_Iefloatbuf		PL_efloatbuf
+#define PL_Iefloatsize		PL_efloatsize
+#define PL_Iegid		PL_egid
 #define PL_Iendav		PL_endav
 #define PL_Ienvgv		PL_envgv
 #define PL_Ierrgv		PL_errgv
+#define PL_Ierror_count		PL_error_count
+#define PL_Ieuid		PL_euid
 #define PL_Ieval_root		PL_eval_root
 #define PL_Ieval_start		PL_eval_start
+#define PL_Ievalseq		PL_evalseq
 #define PL_Iexitlist		PL_exitlist
 #define PL_Iexitlistlen		PL_exitlistlen
+#define PL_Iexpect		PL_expect
 #define PL_Ifdpid		PL_fdpid
 #define PL_Ifilemode		PL_filemode
+#define PL_Ifilter_debug	PL_filter_debug
 #define PL_Iforkprocess		PL_forkprocess
 #define PL_Iformfeed		PL_formfeed
 #define PL_Igeneration		PL_generation
 #define PL_Igensym		PL_gensym
+#define PL_Igid			PL_gid
+#define PL_Iglob_index		PL_glob_index
 #define PL_Iglobalstash		PL_globalstash
+#define PL_Ihe_root		PL_he_root
 #define PL_Ihintgv		PL_hintgv
+#define PL_Ihints		PL_hints
 #define PL_Iin_clean_all	PL_in_clean_all
 #define PL_Iin_clean_objs	PL_in_clean_objs
+#define PL_Iin_my		PL_in_my
+#define PL_Iin_my_stash		PL_in_my_stash
 #define PL_Iincgv		PL_incgv
 #define PL_Iinitav		PL_initav
 #define PL_Iinplace		PL_inplace
+#define PL_Ilast_lop		PL_last_lop
+#define PL_Ilast_lop_op		PL_last_lop_op
+#define PL_Ilast_swash_hv	PL_last_swash_hv
+#define PL_Ilast_swash_key	PL_last_swash_key
+#define PL_Ilast_swash_klen	PL_last_swash_klen
+#define PL_Ilast_swash_slen	PL_last_swash_slen
+#define PL_Ilast_swash_tmps	PL_last_swash_tmps
+#define PL_Ilast_uni		PL_last_uni
 #define PL_Ilastfd		PL_lastfd
 #define PL_Ilastsize		PL_lastsize
 #define PL_Ilastspbase		PL_lastspbase
 #define PL_Ilaststatval		PL_laststatval
 #define PL_Ilaststype		PL_laststype
 #define PL_Ileftgv		PL_leftgv
+#define PL_Ilex_brackets	PL_lex_brackets
+#define PL_Ilex_brackstack	PL_lex_brackstack
+#define PL_Ilex_casemods	PL_lex_casemods
+#define PL_Ilex_casestack	PL_lex_casestack
+#define PL_Ilex_defer		PL_lex_defer
+#define PL_Ilex_dojoin		PL_lex_dojoin
+#define PL_Ilex_expect		PL_lex_expect
+#define PL_Ilex_fakebrack	PL_lex_fakebrack
+#define PL_Ilex_formbrack	PL_lex_formbrack
+#define PL_Ilex_inpat		PL_lex_inpat
+#define PL_Ilex_inwhat		PL_lex_inwhat
+#define PL_Ilex_op		PL_lex_op
+#define PL_Ilex_repl		PL_lex_repl
+#define PL_Ilex_starts		PL_lex_starts
+#define PL_Ilex_state		PL_lex_state
+#define PL_Ilex_stuff		PL_lex_stuff
 #define PL_Ilineary		PL_lineary
 #define PL_Ilinestart		PL_linestart
+#define PL_Ilinestr		PL_linestr
 #define PL_Ilocalpatches	PL_localpatches
 #define PL_Imain_cv		PL_main_cv
 #define PL_Imain_root		PL_main_root
 #define PL_Imain_start		PL_main_start
+#define PL_Imax_intro_pending	PL_max_intro_pending
+#define PL_Imaxo		PL_maxo
 #define PL_Imaxsysfd		PL_maxsysfd
 #define PL_Imess_sv		PL_mess_sv
+#define PL_Imin_intro_pending	PL_min_intro_pending
 #define PL_Iminus_F		PL_minus_F
 #define PL_Iminus_a		PL_minus_a
 #define PL_Iminus_c		PL_minus_c
@@ -477,22 +649,45 @@
 #define PL_Iminus_n		PL_minus_n
 #define PL_Iminus_p		PL_minus_p
 #define PL_Imodglobal		PL_modglobal
+#define PL_Imulti_close		PL_multi_close
+#define PL_Imulti_end		PL_multi_end
+#define PL_Imulti_open		PL_multi_open
+#define PL_Imulti_start		PL_multi_start
 #define PL_Imultiline		PL_multiline
 #define PL_Imystrk		PL_mystrk
+#define PL_Inexttoke		PL_nexttoke
+#define PL_Inexttype		PL_nexttype
+#define PL_Inextval		PL_nextval
+#define PL_Inice_chunk		PL_nice_chunk
+#define PL_Inice_chunk_size	PL_nice_chunk_size
+#define PL_Inomemok		PL_nomemok
+#define PL_Inumeric_local	PL_numeric_local
+#define PL_Inumeric_name	PL_numeric_name
+#define PL_Inumeric_standard	PL_numeric_standard
 #define PL_Iofmt		PL_ofmt
+#define PL_Ioldbufptr		PL_oldbufptr
 #define PL_Ioldlastpm		PL_oldlastpm
 #define PL_Ioldname		PL_oldname
+#define PL_Ioldoldbufptr	PL_oldoldbufptr
 #define PL_Iop_mask		PL_op_mask
+#define PL_Iop_seqmax		PL_op_seqmax
+#define PL_Iorigalen		PL_origalen
 #define PL_Iorigargc		PL_origargc
 #define PL_Iorigargv		PL_origargv
+#define PL_Iorigenviron		PL_origenviron
 #define PL_Iorigfilename	PL_origfilename
 #define PL_Iors			PL_ors
 #define PL_Iorslen		PL_orslen
+#define PL_Iosname		PL_osname
+#define PL_Ipad_reset_pending	PL_pad_reset_pending
+#define PL_Ipadix		PL_padix
+#define PL_Ipadix_floor		PL_padix_floor
 #define PL_Iparsehook		PL_parsehook
 #define PL_Ipatchlevel		PL_patchlevel
 #define PL_Ipending_ident	PL_pending_ident
 #define PL_Iperl_destruct_level	PL_perl_destruct_level
 #define PL_Iperldb		PL_perldb
+#define PL_Ipidstatus		PL_pidstatus
 #define PL_Ipreambleav		PL_preambleav
 #define PL_Ipreambled		PL_preambled
 #define PL_Ipreprocess		PL_preprocess
@@ -501,11 +696,15 @@
 #define PL_Irightgv		PL_rightgv
 #define PL_Irsfp		PL_rsfp
 #define PL_Irsfp_filters	PL_rsfp_filters
+#define PL_Irunops		PL_runops
 #define PL_Isawampersand	PL_sawampersand
 #define PL_Isawstudy		PL_sawstudy
 #define PL_Isawvec		PL_sawvec
+#define PL_Ish_path		PL_sh_path
 #define PL_Isiggv		PL_siggv
+#define PL_Isighandlerp		PL_sighandlerp
 #define PL_Isplitstr		PL_splitstr
+#define PL_Isrand_called	PL_srand_called
 #define PL_Istatusvalue		PL_statusvalue
 #define PL_Istatusvalue_vms	PL_statusvalue_vms
 #define PL_Istdingv		PL_stdingv
@@ -514,16 +713,47 @@
 #define PL_Istrtab_mutex	PL_strtab_mutex
 #define PL_Isub_generation	PL_sub_generation
 #define PL_Isublex_info		PL_sublex_info
+#define PL_Isubline		PL_subline
+#define PL_Isubname		PL_subname
 #define PL_Isv_arenaroot	PL_sv_arenaroot
 #define PL_Isv_count		PL_sv_count
+#define PL_Isv_no		PL_sv_no
 #define PL_Isv_objcount		PL_sv_objcount
 #define PL_Isv_root		PL_sv_root
+#define PL_Isv_undef		PL_sv_undef
+#define PL_Isv_yes		PL_sv_yes
 #define PL_Isys_intern		PL_sys_intern
 #define PL_Itainting		PL_tainting
+#define PL_Ithisexpr		PL_thisexpr
 #define PL_Ithreadnum		PL_threadnum
 #define PL_Ithrsv		PL_thrsv
+#define PL_Itokenbuf		PL_tokenbuf
+#define PL_Iuid			PL_uid
 #define PL_Iunsafe		PL_unsafe
+#define PL_Iutf8_alnum		PL_utf8_alnum
+#define PL_Iutf8_alpha		PL_utf8_alpha
+#define PL_Iutf8_digit		PL_utf8_digit
+#define PL_Iutf8_lower		PL_utf8_lower
+#define PL_Iutf8_mark		PL_utf8_mark
+#define PL_Iutf8_print		PL_utf8_print
+#define PL_Iutf8_space		PL_utf8_space
+#define PL_Iutf8_tolower	PL_utf8_tolower
+#define PL_Iutf8_totitle	PL_utf8_totitle
+#define PL_Iutf8_toupper	PL_utf8_toupper
+#define PL_Iutf8_upper		PL_utf8_upper
+#define PL_Iuudmap		PL_uudmap
 #define PL_Iwarnhook		PL_warnhook
+#define PL_Ixiv_arenaroot	PL_xiv_arenaroot
+#define PL_Ixiv_root		PL_xiv_root
+#define PL_Ixnv_root		PL_xnv_root
+#define PL_Ixpv_root		PL_xpv_root
+#define PL_Ixrv_root		PL_xrv_root
+#define PL_Iyychar		PL_yychar
+#define PL_Iyydebug		PL_yydebug
+#define PL_Iyyerrflag		PL_yyerrflag
+#define PL_Iyylval		PL_yylval
+#define PL_Iyynerrs		PL_yynerrs
+#define PL_Iyyval		PL_yyval
 
 #ifndef USE_THREADS
 
@@ -794,277 +1024,47 @@
 
 #define PL_No			(PL_Vars.GNo)
 #define PL_Yes			(PL_Vars.GYes)
-#define PL_amagic_generation	(PL_Vars.Gamagic_generation)
-#define PL_an			(PL_Vars.Gan)
-#define PL_bitcount		(PL_Vars.Gbitcount)
-#define PL_bufend		(PL_Vars.Gbufend)
-#define PL_bufptr		(PL_Vars.Gbufptr)
-#define PL_collation_ix		(PL_Vars.Gcollation_ix)
-#define PL_collation_name	(PL_Vars.Gcollation_name)
-#define PL_collation_standard	(PL_Vars.Gcollation_standard)
-#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_curinterp		(PL_Vars.Gcurinterp)
 #define PL_curthr		(PL_Vars.Gcurthr)
-#define PL_debug		(PL_Vars.Gdebug)
 #define PL_do_undump		(PL_Vars.Gdo_undump)
-#define PL_efloatbuf		(PL_Vars.Gefloatbuf)
-#define PL_efloatsize		(PL_Vars.Gefloatsize)
-#define PL_egid			(PL_Vars.Gegid)
-#define PL_error_count		(PL_Vars.Gerror_count)
-#define PL_euid			(PL_Vars.Geuid)
 #define PL_eval_cond		(PL_Vars.Geval_cond)
 #define PL_eval_mutex		(PL_Vars.Geval_mutex)
 #define PL_eval_owner		(PL_Vars.Geval_owner)
-#define PL_evalseq		(PL_Vars.Gevalseq)
-#define PL_expect		(PL_Vars.Gexpect)
-#define PL_filter_debug		(PL_Vars.Gfilter_debug)
-#define PL_gid			(PL_Vars.Ggid)
-#define PL_glob_index		(PL_Vars.Gglob_index)
-#define PL_he_root		(PL_Vars.Ghe_root)
 #define PL_hexdigit		(PL_Vars.Ghexdigit)
-#define PL_hints		(PL_Vars.Ghints)
-#define PL_in_my		(PL_Vars.Gin_my)
-#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_lex_casemods		(PL_Vars.Glex_casemods)
-#define PL_lex_casestack	(PL_Vars.Glex_casestack)
-#define PL_lex_defer		(PL_Vars.Glex_defer)
-#define PL_lex_dojoin		(PL_Vars.Glex_dojoin)
-#define PL_lex_expect		(PL_Vars.Glex_expect)
-#define PL_lex_fakebrack	(PL_Vars.Glex_fakebrack)
-#define PL_lex_formbrack	(PL_Vars.Glex_formbrack)
-#define PL_lex_inpat		(PL_Vars.Glex_inpat)
-#define PL_lex_inwhat		(PL_Vars.Glex_inwhat)
-#define PL_lex_op		(PL_Vars.Glex_op)
-#define PL_lex_repl		(PL_Vars.Glex_repl)
-#define PL_lex_starts		(PL_Vars.Glex_starts)
-#define PL_lex_state		(PL_Vars.Glex_state)
-#define PL_lex_stuff		(PL_Vars.Glex_stuff)
-#define PL_linestr		(PL_Vars.Glinestr)
 #define PL_malloc_mutex		(PL_Vars.Gmalloc_mutex)
-#define PL_max_intro_pending	(PL_Vars.Gmax_intro_pending)
-#define PL_maxo			(PL_Vars.Gmaxo)
-#define PL_min_intro_pending	(PL_Vars.Gmin_intro_pending)
-#define PL_multi_close		(PL_Vars.Gmulti_close)
-#define PL_multi_end		(PL_Vars.Gmulti_end)
-#define PL_multi_open		(PL_Vars.Gmulti_open)
-#define PL_multi_start		(PL_Vars.Gmulti_start)
-#define PL_nexttoke		(PL_Vars.Gnexttoke)
-#define PL_nexttype		(PL_Vars.Gnexttype)
-#define PL_nextval		(PL_Vars.Gnextval)
-#define PL_nice_chunk		(PL_Vars.Gnice_chunk)
-#define PL_nice_chunk_size	(PL_Vars.Gnice_chunk_size)
 #define PL_ninterps		(PL_Vars.Gninterps)
-#define PL_nomemok		(PL_Vars.Gnomemok)
 #define PL_nthreads		(PL_Vars.Gnthreads)
 #define PL_nthreads_cond	(PL_Vars.Gnthreads_cond)
-#define PL_numeric_local	(PL_Vars.Gnumeric_local)
-#define PL_numeric_name		(PL_Vars.Gnumeric_name)
-#define PL_numeric_standard	(PL_Vars.Gnumeric_standard)
-#define PL_oldbufptr		(PL_Vars.Goldbufptr)
-#define PL_oldoldbufptr		(PL_Vars.Goldoldbufptr)
-#define PL_op_seqmax		(PL_Vars.Gop_seqmax)
-#define PL_origalen		(PL_Vars.Gorigalen)
-#define PL_origenviron		(PL_Vars.Gorigenviron)
-#define PL_osname		(PL_Vars.Gosname)
-#define PL_pad_reset_pending	(PL_Vars.Gpad_reset_pending)
-#define PL_padix		(PL_Vars.Gpadix)
-#define PL_padix_floor		(PL_Vars.Gpadix_floor)
 #define PL_patleave		(PL_Vars.Gpatleave)
-#define PL_pidstatus		(PL_Vars.Gpidstatus)
-#define PL_runops		(PL_Vars.Grunops)
-#define PL_sh_path		(PL_Vars.Gsh_path)
-#define PL_sighandlerp		(PL_Vars.Gsighandlerp)
-#define PL_srand_called		(PL_Vars.Gsrand_called)
-#define PL_subline		(PL_Vars.Gsubline)
-#define PL_subname		(PL_Vars.Gsubname)
 #define PL_sv_mutex		(PL_Vars.Gsv_mutex)
-#define PL_sv_no		(PL_Vars.Gsv_no)
-#define PL_sv_undef		(PL_Vars.Gsv_undef)
-#define PL_sv_yes		(PL_Vars.Gsv_yes)
 #define PL_svref_mutex		(PL_Vars.Gsvref_mutex)
-#define PL_thisexpr		(PL_Vars.Gthisexpr)
 #define PL_thr_key		(PL_Vars.Gthr_key)
 #define PL_threads_mutex	(PL_Vars.Gthreads_mutex)
 #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_uudmap		(PL_Vars.Guudmap)
-#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_GNo			PL_No
 #define PL_GYes			PL_Yes
-#define PL_Gamagic_generation	PL_amagic_generation
-#define PL_Gan			PL_an
-#define PL_Gbitcount		PL_bitcount
-#define PL_Gbufend		PL_bufend
-#define PL_Gbufptr		PL_bufptr
-#define PL_Gcollation_ix	PL_collation_ix
-#define PL_Gcollation_name	PL_collation_name
-#define PL_Gcollation_standard	PL_collation_standard
-#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_Gcurinterp		PL_curinterp
 #define PL_Gcurthr		PL_curthr
-#define PL_Gdebug		PL_debug
 #define PL_Gdo_undump		PL_do_undump
-#define PL_Gefloatbuf		PL_efloatbuf
-#define PL_Gefloatsize		PL_efloatsize
-#define PL_Gegid		PL_egid
-#define PL_Gerror_count		PL_error_count
-#define PL_Geuid		PL_euid
 #define PL_Geval_cond		PL_eval_cond
 #define PL_Geval_mutex		PL_eval_mutex
 #define PL_Geval_owner		PL_eval_owner
-#define PL_Gevalseq		PL_evalseq
-#define PL_Gexpect		PL_expect
-#define PL_Gfilter_debug	PL_filter_debug
-#define PL_Ggid			PL_gid
-#define PL_Gglob_index		PL_glob_index
-#define PL_Ghe_root		PL_he_root
 #define PL_Ghexdigit		PL_hexdigit
-#define PL_Ghints		PL_hints
-#define PL_Gin_my		PL_in_my
-#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_Glex_casemods	PL_lex_casemods
-#define PL_Glex_casestack	PL_lex_casestack
-#define PL_Glex_defer		PL_lex_defer
-#define PL_Glex_dojoin		PL_lex_dojoin
-#define PL_Glex_expect		PL_lex_expect
-#define PL_Glex_fakebrack	PL_lex_fakebrack
-#define PL_Glex_formbrack	PL_lex_formbrack
-#define PL_Glex_inpat		PL_lex_inpat
-#define PL_Glex_inwhat		PL_lex_inwhat
-#define PL_Glex_op		PL_lex_op
-#define PL_Glex_repl		PL_lex_repl
-#define PL_Glex_starts		PL_lex_starts
-#define PL_Glex_state		PL_lex_state
-#define PL_Glex_stuff		PL_lex_stuff
-#define PL_Glinestr		PL_linestr
 #define PL_Gmalloc_mutex	PL_malloc_mutex
-#define PL_Gmax_intro_pending	PL_max_intro_pending
-#define PL_Gmaxo		PL_maxo
-#define PL_Gmin_intro_pending	PL_min_intro_pending
-#define PL_Gmulti_close		PL_multi_close
-#define PL_Gmulti_end		PL_multi_end
-#define PL_Gmulti_open		PL_multi_open
-#define PL_Gmulti_start		PL_multi_start
-#define PL_Gnexttoke		PL_nexttoke
-#define PL_Gnexttype		PL_nexttype
-#define PL_Gnextval		PL_nextval
-#define PL_Gnice_chunk		PL_nice_chunk
-#define PL_Gnice_chunk_size	PL_nice_chunk_size
 #define PL_Gninterps		PL_ninterps
-#define PL_Gnomemok		PL_nomemok
 #define PL_Gnthreads		PL_nthreads
 #define PL_Gnthreads_cond	PL_nthreads_cond
-#define PL_Gnumeric_local	PL_numeric_local
-#define PL_Gnumeric_name	PL_numeric_name
-#define PL_Gnumeric_standard	PL_numeric_standard
-#define PL_Goldbufptr		PL_oldbufptr
-#define PL_Goldoldbufptr	PL_oldoldbufptr
-#define PL_Gop_seqmax		PL_op_seqmax
-#define PL_Gorigalen		PL_origalen
-#define PL_Gorigenviron		PL_origenviron
-#define PL_Gosname		PL_osname
-#define PL_Gpad_reset_pending	PL_pad_reset_pending
-#define PL_Gpadix		PL_padix
-#define PL_Gpadix_floor		PL_padix_floor
 #define PL_Gpatleave		PL_patleave
-#define PL_Gpidstatus		PL_pidstatus
-#define PL_Grunops		PL_runops
-#define PL_Gsh_path		PL_sh_path
-#define PL_Gsighandlerp		PL_sighandlerp
-#define PL_Gsrand_called	PL_srand_called
-#define PL_Gsubline		PL_subline
-#define PL_Gsubname		PL_subname
 #define PL_Gsv_mutex		PL_sv_mutex
-#define PL_Gsv_no		PL_sv_no
-#define PL_Gsv_undef		PL_sv_undef
-#define PL_Gsv_yes		PL_sv_yes
 #define PL_Gsvref_mutex		PL_svref_mutex
-#define PL_Gthisexpr		PL_thisexpr
 #define PL_Gthr_key		PL_thr_key
 #define PL_Gthreads_mutex	PL_threads_mutex
 #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_Guudmap		PL_uudmap
-#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
 
 
 #endif /* PERL_GLOBAL_STRUCT */