embed.pl now reads *var*.h to do its stuff.

Split generated embed.h into two - new embedvar.h
is #included when 'op' etc. will not mess up proto.h etc.
Removed #define foo (thr->Tfoo) from thread.h
Added some 'missing' symbols to global.sym, removed
those in the *var*.h files
Has build all MULTIPLICITY/USE_THREADS options on win32
with VC++ (and passed tests), but not with exactly this set
of files.

p4raw-id: //depot/ansiperl@338

1 files changed, 7 insertions, 486 deletions

diff --git a/embed.h b/embed.h
index caa19369f9..8a475a9e39 100644
--- a/embed.h
+++ b/embed.h
@@ -1,6 +1,6 @@
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
-   This file is built by embed.pl from global.sym and interp.sym.
-   Any changes made here will be lost!
+   This file is built by embed.pl from global.sym, intrpvar.h,
+   and thrdvar.h.  Any changes made here will be lost!
 */
 
 /* (Doing namespace management portably in C is really gross.) */
@@ -23,8 +23,6 @@
 #define Error			Perl_Error
 #define Gv_AMupdate		Perl_Gv_AMupdate
 #define No			Perl_No
-#define Sv			Perl_Sv
-#define Xpv			Perl_Xpv
 #define Yes			Perl_Yes
 #define abs_amg			Perl_abs_amg
 #define add_amg			Perl_add_amg
@@ -141,7 +139,6 @@
 #define cshlen			Perl_cshlen
 #define cshname			Perl_cshname
 #define curinterp		Perl_curinterp
-#define curpad			Perl_curpad
 #define cv_ckproto		Perl_cv_ckproto
 #define cv_clone		Perl_cv_clone
 #define cv_const_sv		Perl_cv_const_sv
@@ -210,6 +207,9 @@
 #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
@@ -373,10 +373,7 @@
 #define magic_wipepack		Perl_magic_wipepack
 #define magicname		Perl_magicname
 #define malloc_mutex		Perl_malloc_mutex
-#define markstack		Perl_markstack
 #define markstack_grow		Perl_markstack_grow
-#define markstack_max		Perl_markstack_max
-#define markstack_ptr		Perl_markstack_ptr
 #define max_intro_pending	Perl_max_intro_pending
 #define maxo			Perl_maxo
 #define mem_collxfrm		Perl_mem_collxfrm
@@ -506,13 +503,11 @@
 #define oopsAV			Perl_oopsAV
 #define oopsCV			Perl_oopsCV
 #define oopsHV			Perl_oopsHV
-#define op			Perl_op
 #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 opsave			Perl_opsave
 #define origalen		Perl_origalen
 #define origenviron		Perl_origenviron
 #define osname			Perl_osname
@@ -911,9 +906,6 @@
 #define repeat_amg		Perl_repeat_amg
 #define repeat_ass_amg		Perl_repeat_ass_amg
 #define repeatcpy		Perl_repeatcpy
-#define retstack		Perl_retstack
-#define retstack_ix		Perl_retstack_ix
-#define retstack_max		Perl_retstack_max
 #define rninstr			Perl_rninstr
 #define rsfp			Perl_rsfp
 #define rsfp_filters		Perl_rsfp_filters
@@ -965,10 +957,7 @@
 #define save_threadsv		Perl_save_threadsv
 #define savepv			Perl_savepv
 #define savepvn			Perl_savepvn
-#define savestack		Perl_savestack
 #define savestack_grow		Perl_savestack_grow
-#define savestack_ix		Perl_savestack_ix
-#define savestack_max		Perl_savestack_max
 #define saw_return		Perl_saw_return
 #define sawparens		Perl_sawparens
 #define scalar			Perl_scalar
@@ -991,9 +980,6 @@
 #define scan_word		Perl_scan_word
 #define scmp_amg		Perl_scmp_amg
 #define scope			Perl_scope
-#define scopestack		Perl_scopestack
-#define scopestack_ix		Perl_scopestack_ix
-#define scopestack_max		Perl_scopestack_max
 #define screaminstr		Perl_screaminstr
 #define scrgv			Perl_scrgv
 #define seq_amg			Perl_seq_amg
@@ -1015,12 +1001,8 @@
 #define slt_amg			Perl_slt_amg
 #define sne_amg			Perl_sne_amg
 #define sqrt_amg		Perl_sqrt_amg
-#define stack_base		Perl_stack_base
 #define stack_grow		Perl_stack_grow
-#define stack_max		Perl_stack_max
-#define stack_sp		Perl_stack_sp
 #define start_subparse		Perl_start_subparse
-#define statbuf			Perl_statbuf
 #define string_amg		Perl_string_amg
 #define sub_crush_depth		Perl_sub_crush_depth
 #define sub_generation		Perl_sub_generation
@@ -1067,6 +1049,7 @@
 #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
@@ -1111,7 +1094,6 @@
 #define thr_key			Perl_thr_key
 #define threads_mutex		Perl_threads_mutex
 #define threadsv_names		Perl_threadsv_names
-#define timesbuf		Perl_timesbuf
 #define tokenbuf		Perl_tokenbuf
 #define too_few_arguments	Perl_too_few_arguments
 #define too_many_arguments	Perl_too_many_arguments
@@ -1144,6 +1126,7 @@
 #define vtbl_pack		Perl_vtbl_pack
 #define vtbl_packelem		Perl_vtbl_packelem
 #define vtbl_pos		Perl_vtbl_pos
+#define vtbl_regexp		Perl_vtbl_regexp
 #define vtbl_sig		Perl_vtbl_sig
 #define vtbl_sigelem		Perl_vtbl_sigelem
 #define vtbl_substr		Perl_vtbl_substr
@@ -1191,465 +1174,3 @@
 
 #endif /* EMBED */
 
-/* Put interpreter-specific symbols into a struct? */
-
-#ifdef MULTIPLICITY
-
-#define Argv			(curinterp->IArgv)
-#define Cmd			(curinterp->ICmd)
-#define DBgv			(curinterp->IDBgv)
-#define DBline			(curinterp->IDBline)
-#define DBsignal		(curinterp->IDBsignal)
-#define DBsingle		(curinterp->IDBsingle)
-#define DBsub			(curinterp->IDBsub)
-#define DBtrace			(curinterp->IDBtrace)
-#define allgvs			(curinterp->Iallgvs)
-#define ampergv			(curinterp->Iampergv)
-#define argvgv			(curinterp->Iargvgv)
-#define argvoutgv		(curinterp->Iargvoutgv)
-#define basetime		(curinterp->Ibasetime)
-#define beginav			(curinterp->Ibeginav)
-#define bodytarget		(curinterp->Ibodytarget)
-#define cddir			(curinterp->Icddir)
-#define chopset			(curinterp->Ichopset)
-#define copline			(curinterp->Icopline)
-#define curblock		(curinterp->Icurblock)
-#define curcop			(curinterp->Icurcop)
-#define curcopdb		(curinterp->Icurcopdb)
-#define curcsv			(curinterp->Icurcsv)
-#define curpm			(curinterp->Icurpm)
-#define curstack		(curinterp->Icurstack)
-#define curstash		(curinterp->Icurstash)
-#define curstname		(curinterp->Icurstname)
-#define cxstack			(curinterp->Icxstack)
-#define cxstack_ix		(curinterp->Icxstack_ix)
-#define cxstack_max		(curinterp->Icxstack_max)
-#define dbargs			(curinterp->Idbargs)
-#define debdelim		(curinterp->Idebdelim)
-#define debname			(curinterp->Idebname)
-#define debstash		(curinterp->Idebstash)
-#define defgv			(curinterp->Idefgv)
-#define defoutgv		(curinterp->Idefoutgv)
-#define defstash		(curinterp->Idefstash)
-#define delaymagic		(curinterp->Idelaymagic)
-#define diehook			(curinterp->Idiehook)
-#define dirty			(curinterp->Idirty)
-#define dlevel			(curinterp->Idlevel)
-#define dlmax			(curinterp->Idlmax)
-#define doextract		(curinterp->Idoextract)
-#define doswitches		(curinterp->Idoswitches)
-#define dowarn			(curinterp->Idowarn)
-#define dumplvl			(curinterp->Idumplvl)
-#define e_fp			(curinterp->Ie_fp)
-#define e_tmpname		(curinterp->Ie_tmpname)
-#define endav			(curinterp->Iendav)
-#define envgv			(curinterp->Ienvgv)
-#define errgv			(curinterp->Ierrgv)
-#define eval_root		(curinterp->Ieval_root)
-#define eval_start		(curinterp->Ieval_start)
-#define fdpid			(curinterp->Ifdpid)
-#define filemode		(curinterp->Ifilemode)
-#define firstgv			(curinterp->Ifirstgv)
-#define forkprocess		(curinterp->Iforkprocess)
-#define formfeed		(curinterp->Iformfeed)
-#define formtarget		(curinterp->Iformtarget)
-#define gensym			(curinterp->Igensym)
-#define globalstash		(curinterp->Iglobalstash)
-#define in_eval			(curinterp->Iin_eval)
-#define incgv			(curinterp->Iincgv)
-#define initav			(curinterp->Iinitav)
-#define inplace			(curinterp->Iinplace)
-#define last_in_gv		(curinterp->Ilast_in_gv)
-#define lastfd			(curinterp->Ilastfd)
-#define lastretstr		(curinterp->Ilastretstr)
-#define lastscream		(curinterp->Ilastscream)
-#define lastsize		(curinterp->Ilastsize)
-#define lastspbase		(curinterp->Ilastspbase)
-#define laststatval		(curinterp->Ilaststatval)
-#define laststype		(curinterp->Ilaststype)
-#define leftgv			(curinterp->Ileftgv)
-#define lineary			(curinterp->Ilineary)
-#define localizing		(curinterp->Ilocalizing)
-#define localpatches		(curinterp->Ilocalpatches)
-#define main_cv			(curinterp->Imain_cv)
-#define main_root		(curinterp->Imain_root)
-#define main_start		(curinterp->Imain_start)
-#define mainstack		(curinterp->Imainstack)
-#define maxscream		(curinterp->Imaxscream)
-#define maxsysfd		(curinterp->Imaxsysfd)
-#define mess_sv			(curinterp->Imess_sv)
-#define minus_F			(curinterp->Iminus_F)
-#define minus_a			(curinterp->Iminus_a)
-#define minus_c			(curinterp->Iminus_c)
-#define minus_l			(curinterp->Iminus_l)
-#define minus_n			(curinterp->Iminus_n)
-#define minus_p			(curinterp->Iminus_p)
-#define multiline		(curinterp->Imultiline)
-#define mystrk			(curinterp->Imystrk)
-#define nrs			(curinterp->Inrs)
-#define ofmt			(curinterp->Iofmt)
-#define ofs			(curinterp->Iofs)
-#define ofslen			(curinterp->Iofslen)
-#define oldlastpm		(curinterp->Ioldlastpm)
-#define oldname			(curinterp->Ioldname)
-#define op_mask			(curinterp->Iop_mask)
-#define origargc		(curinterp->Iorigargc)
-#define origargv		(curinterp->Iorigargv)
-#define origfilename		(curinterp->Iorigfilename)
-#define ors			(curinterp->Iors)
-#define orslen			(curinterp->Iorslen)
-#define parsehook		(curinterp->Iparsehook)
-#define patchlevel		(curinterp->Ipatchlevel)
-#define perl_destruct_level	(curinterp->Iperl_destruct_level)
-#define perldb			(curinterp->Iperldb)
-#define preambleav		(curinterp->Ipreambleav)
-#define preambled		(curinterp->Ipreambled)
-#define preprocess		(curinterp->Ipreprocess)
-#define restartop		(curinterp->Irestartop)
-#define rightgv			(curinterp->Irightgv)
-#define rs			(curinterp->Irs)
-#define sawampersand		(curinterp->Isawampersand)
-#define sawstudy		(curinterp->Isawstudy)
-#define sawvec			(curinterp->Isawvec)
-#define screamfirst		(curinterp->Iscreamfirst)
-#define screamnext		(curinterp->Iscreamnext)
-#define secondgv		(curinterp->Isecondgv)
-#define siggv			(curinterp->Isiggv)
-#define signalstack		(curinterp->Isignalstack)
-#define sortcop			(curinterp->Isortcop)
-#define sortstack		(curinterp->Isortstack)
-#define sortstash		(curinterp->Isortstash)
-#define splitstr		(curinterp->Isplitstr)
-#define start_env		(curinterp->Istart_env)
-#define statcache		(curinterp->Istatcache)
-#define statgv			(curinterp->Istatgv)
-#define statname		(curinterp->Istatname)
-#define statusvalue		(curinterp->Istatusvalue)
-#define statusvalue_vms		(curinterp->Istatusvalue_vms)
-#define stdingv			(curinterp->Istdingv)
-#define strchop			(curinterp->Istrchop)
-#define strtab			(curinterp->Istrtab)
-#define sv_arenaroot		(curinterp->Isv_arenaroot)
-#define sv_count		(curinterp->Isv_count)
-#define sv_objcount		(curinterp->Isv_objcount)
-#define sv_root			(curinterp->Isv_root)
-#define tainted			(curinterp->Itainted)
-#define tainting		(curinterp->Itainting)
-#define thrsv			(curinterp->Ithrsv)
-#define tmps_floor		(curinterp->Itmps_floor)
-#define tmps_ix			(curinterp->Itmps_ix)
-#define tmps_max		(curinterp->Itmps_max)
-#define tmps_stack		(curinterp->Itmps_stack)
-#define top_env			(curinterp->Itop_env)
-#define toptarget		(curinterp->Itoptarget)
-#define unsafe			(curinterp->Iunsafe)
-#define warnhook		(curinterp->Iwarnhook)
-
-#else	/* !MULTIPLICITY */
-
-#define IArgv			Argv
-#define ICmd			Cmd
-#define IDBgv			DBgv
-#define IDBline			DBline
-#define IDBsignal		DBsignal
-#define IDBsingle		DBsingle
-#define IDBsub			DBsub
-#define IDBtrace		DBtrace
-#define Iallgvs			allgvs
-#define Iampergv		ampergv
-#define Iargvgv			argvgv
-#define Iargvoutgv		argvoutgv
-#define Ibasetime		basetime
-#define Ibeginav		beginav
-#define Ibodytarget		bodytarget
-#define Icddir			cddir
-#define Ichopset		chopset
-#define Icopline		copline
-#define Icurblock		curblock
-#define Icurcop			curcop
-#define Icurcopdb		curcopdb
-#define Icurcsv			curcsv
-#define Icurpm			curpm
-#define Icurstack		curstack
-#define Icurstash		curstash
-#define Icurstname		curstname
-#define Icxstack		cxstack
-#define Icxstack_ix		cxstack_ix
-#define Icxstack_max		cxstack_max
-#define Idbargs			dbargs
-#define Idebdelim		debdelim
-#define Idebname		debname
-#define Idebstash		debstash
-#define Idefgv			defgv
-#define Idefoutgv		defoutgv
-#define Idefstash		defstash
-#define Idelaymagic		delaymagic
-#define Idiehook		diehook
-#define Idirty			dirty
-#define Idlevel			dlevel
-#define Idlmax			dlmax
-#define Idoextract		doextract
-#define Idoswitches		doswitches
-#define Idowarn			dowarn
-#define Idumplvl		dumplvl
-#define Ie_fp			e_fp
-#define Ie_tmpname		e_tmpname
-#define Iendav			endav
-#define Ienvgv			envgv
-#define Ierrgv			errgv
-#define Ieval_root		eval_root
-#define Ieval_start		eval_start
-#define Ifdpid			fdpid
-#define Ifilemode		filemode
-#define Ifirstgv		firstgv
-#define Iforkprocess		forkprocess
-#define Iformfeed		formfeed
-#define Iformtarget		formtarget
-#define Igensym			gensym
-#define Iglobalstash		globalstash
-#define Iin_eval		in_eval
-#define Iincgv			incgv
-#define Iinitav			initav
-#define Iinplace		inplace
-#define Ilast_in_gv		last_in_gv
-#define Ilastfd			lastfd
-#define Ilastretstr		lastretstr
-#define Ilastscream		lastscream
-#define Ilastsize		lastsize
-#define Ilastspbase		lastspbase
-#define Ilaststatval		laststatval
-#define Ilaststype		laststype
-#define Ileftgv			leftgv
-#define Ilineary		lineary
-#define Ilocalizing		localizing
-#define Ilocalpatches		localpatches
-#define Imain_cv		main_cv
-#define Imain_root		main_root
-#define Imain_start		main_start
-#define Imainstack		mainstack
-#define Imaxscream		maxscream
-#define Imaxsysfd		maxsysfd
-#define Imess_sv		mess_sv
-#define Iminus_F		minus_F
-#define Iminus_a		minus_a
-#define Iminus_c		minus_c
-#define Iminus_l		minus_l
-#define Iminus_n		minus_n
-#define Iminus_p		minus_p
-#define Imultiline		multiline
-#define Imystrk			mystrk
-#define Inrs			nrs
-#define Iofmt			ofmt
-#define Iofs			ofs
-#define Iofslen			ofslen
-#define Ioldlastpm		oldlastpm
-#define Ioldname		oldname
-#define Iop_mask		op_mask
-#define Iorigargc		origargc
-#define Iorigargv		origargv
-#define Iorigfilename		origfilename
-#define Iors			ors
-#define Iorslen			orslen
-#define Iparsehook		parsehook
-#define Ipatchlevel		patchlevel
-#define Iperl_destruct_level	perl_destruct_level
-#define Iperldb			perldb
-#define Ipreambleav		preambleav
-#define Ipreambled		preambled
-#define Ipreprocess		preprocess
-#define Irestartop		restartop
-#define Irightgv		rightgv
-#define Irs			rs
-#define Isawampersand		sawampersand
-#define Isawstudy		sawstudy
-#define Isawvec			sawvec
-#define Iscreamfirst		screamfirst
-#define Iscreamnext		screamnext
-#define Isecondgv		secondgv
-#define Isiggv			siggv
-#define Isignalstack		signalstack
-#define Isortcop		sortcop
-#define Isortstack		sortstack
-#define Isortstash		sortstash
-#define Isplitstr		splitstr
-#define Istart_env		start_env
-#define Istatcache		statcache
-#define Istatgv			statgv
-#define Istatname		statname
-#define Istatusvalue		statusvalue
-#define Istatusvalue_vms	statusvalue_vms
-#define Istdingv		stdingv
-#define Istrchop		strchop
-#define Istrtab			strtab
-#define Isv_arenaroot		sv_arenaroot
-#define Isv_count		sv_count
-#define Isv_objcount		sv_objcount
-#define Isv_root		sv_root
-#define Itainted		tainted
-#define Itainting		tainting
-#define Ithrsv			thrsv
-#define Itmps_floor		tmps_floor
-#define Itmps_ix		tmps_ix
-#define Itmps_max		tmps_max
-#define Itmps_stack		tmps_stack
-#define Itop_env		top_env
-#define Itoptarget		toptarget
-#define Iunsafe			unsafe
-#define Iwarnhook		warnhook
-
-/* Hide interpreter-specific symbols? */
-
-#ifdef EMBED
-
-#define Argv			Perl_Argv
-#define Cmd			Perl_Cmd
-#define DBgv			Perl_DBgv
-#define DBline			Perl_DBline
-#define DBsignal		Perl_DBsignal
-#define DBsingle		Perl_DBsingle
-#define DBsub			Perl_DBsub
-#define DBtrace			Perl_DBtrace
-#define allgvs			Perl_allgvs
-#define ampergv			Perl_ampergv
-#define argvgv			Perl_argvgv
-#define argvoutgv		Perl_argvoutgv
-#define basetime		Perl_basetime
-#define beginav			Perl_beginav
-#define bodytarget		Perl_bodytarget
-#define cddir			Perl_cddir
-#define chopset			Perl_chopset
-#define copline			Perl_copline
-#define curblock		Perl_curblock
-#define curcop			Perl_curcop
-#define curcopdb		Perl_curcopdb
-#define curcsv			Perl_curcsv
-#define curpm			Perl_curpm
-#define curstack		Perl_curstack
-#define curstash		Perl_curstash
-#define curstname		Perl_curstname
-#define cxstack			Perl_cxstack
-#define cxstack_ix		Perl_cxstack_ix
-#define cxstack_max		Perl_cxstack_max
-#define dbargs			Perl_dbargs
-#define debdelim		Perl_debdelim
-#define debname			Perl_debname
-#define debstash		Perl_debstash
-#define defgv			Perl_defgv
-#define defoutgv		Perl_defoutgv
-#define defstash		Perl_defstash
-#define delaymagic		Perl_delaymagic
-#define diehook			Perl_diehook
-#define dirty			Perl_dirty
-#define dlevel			Perl_dlevel
-#define dlmax			Perl_dlmax
-#define doextract		Perl_doextract
-#define doswitches		Perl_doswitches
-#define dowarn			Perl_dowarn
-#define dumplvl			Perl_dumplvl
-#define e_fp			Perl_e_fp
-#define e_tmpname		Perl_e_tmpname
-#define endav			Perl_endav
-#define envgv			Perl_envgv
-#define errgv			Perl_errgv
-#define eval_root		Perl_eval_root
-#define eval_start		Perl_eval_start
-#define fdpid			Perl_fdpid
-#define filemode		Perl_filemode
-#define firstgv			Perl_firstgv
-#define forkprocess		Perl_forkprocess
-#define formfeed		Perl_formfeed
-#define formtarget		Perl_formtarget
-#define gensym			Perl_gensym
-#define globalstash		Perl_globalstash
-#define in_eval			Perl_in_eval
-#define incgv			Perl_incgv
-#define initav			Perl_initav
-#define inplace			Perl_inplace
-#define last_in_gv		Perl_last_in_gv
-#define lastfd			Perl_lastfd
-#define lastretstr		Perl_lastretstr
-#define lastscream		Perl_lastscream
-#define lastsize		Perl_lastsize
-#define lastspbase		Perl_lastspbase
-#define laststatval		Perl_laststatval
-#define laststype		Perl_laststype
-#define leftgv			Perl_leftgv
-#define lineary			Perl_lineary
-#define localizing		Perl_localizing
-#define localpatches		Perl_localpatches
-#define main_cv			Perl_main_cv
-#define main_root		Perl_main_root
-#define main_start		Perl_main_start
-#define mainstack		Perl_mainstack
-#define maxscream		Perl_maxscream
-#define maxsysfd		Perl_maxsysfd
-#define mess_sv			Perl_mess_sv
-#define minus_F			Perl_minus_F
-#define minus_a			Perl_minus_a
-#define minus_c			Perl_minus_c
-#define minus_l			Perl_minus_l
-#define minus_n			Perl_minus_n
-#define minus_p			Perl_minus_p
-#define multiline		Perl_multiline
-#define mystrk			Perl_mystrk
-#define nrs			Perl_nrs
-#define ofmt			Perl_ofmt
-#define ofs			Perl_ofs
-#define ofslen			Perl_ofslen
-#define oldlastpm		Perl_oldlastpm
-#define oldname			Perl_oldname
-#define op_mask			Perl_op_mask
-#define origargc		Perl_origargc
-#define origargv		Perl_origargv
-#define origfilename		Perl_origfilename
-#define ors			Perl_ors
-#define orslen			Perl_orslen
-#define parsehook		Perl_parsehook
-#define patchlevel		Perl_patchlevel
-#define perl_destruct_level	Perl_perl_destruct_level
-#define perldb			Perl_perldb
-#define preambleav		Perl_preambleav
-#define preambled		Perl_preambled
-#define preprocess		Perl_preprocess
-#define restartop		Perl_restartop
-#define rightgv			Perl_rightgv
-#define rs			Perl_rs
-#define sawampersand		Perl_sawampersand
-#define sawstudy		Perl_sawstudy
-#define sawvec			Perl_sawvec
-#define screamfirst		Perl_screamfirst
-#define screamnext		Perl_screamnext
-#define secondgv		Perl_secondgv
-#define siggv			Perl_siggv
-#define signalstack		Perl_signalstack
-#define sortcop			Perl_sortcop
-#define sortstack		Perl_sortstack
-#define sortstash		Perl_sortstash
-#define splitstr		Perl_splitstr
-#define start_env		Perl_start_env
-#define statcache		Perl_statcache
-#define statgv			Perl_statgv
-#define statname		Perl_statname
-#define statusvalue		Perl_statusvalue
-#define statusvalue_vms		Perl_statusvalue_vms
-#define stdingv			Perl_stdingv
-#define strchop			Perl_strchop
-#define strtab			Perl_strtab
-#define sv_arenaroot		Perl_sv_arenaroot
-#define sv_count		Perl_sv_count
-#define sv_objcount		Perl_sv_objcount
-#define sv_root			Perl_sv_root
-#define tainted			Perl_tainted
-#define tainting		Perl_tainting
-#define thrsv			Perl_thrsv
-#define tmps_floor		Perl_tmps_floor
-#define tmps_ix			Perl_tmps_ix
-#define tmps_max		Perl_tmps_max
-#define tmps_stack		Perl_tmps_stack
-#define top_env			Perl_top_env
-#define toptarget		Perl_toptarget
-#define unsafe			Perl_unsafe
-#define warnhook		Perl_warnhook
-
-#endif /* EMBED */
-#endif /* MULTIPLICITY */