[asperl] added AS patch#5 (patch #4 was intentionally skipped after

discussion)

p4raw-id: //depot/asperl@521

1 files changed, 138 insertions, 0 deletions

diff --git a/embedvar.h b/embedvar.h
index 30bac224c9..1bd27cc16f 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -80,6 +80,7 @@
 
 #define Argv			(curinterp->IArgv)
 #define Cmd			(curinterp->ICmd)
+#define DBcv			(curinterp->IDBcv)
 #define DBgv			(curinterp->IDBgv)
 #define DBline			(curinterp->IDBline)
 #define DBsignal		(curinterp->IDBsignal)
@@ -87,11 +88,15 @@
 #define DBsub			(curinterp->IDBsub)
 #define DBtrace			(curinterp->IDBtrace)
 #define ampergv			(curinterp->Iampergv)
+#define archpat_auto		(curinterp->Iarchpat_auto)
 #define argvgv			(curinterp->Iargvgv)
 #define argvoutgv		(curinterp->Iargvoutgv)
 #define basetime		(curinterp->Ibasetime)
 #define beginav			(curinterp->Ibeginav)
+#define bostr			(curinterp->Ibostr)
 #define cddir			(curinterp->Icddir)
+#define colors			(curinterp->Icolors)
+#define colorset		(curinterp->Icolorset)
 #define copline			(curinterp->Icopline)
 #define curcopdb		(curinterp->Icurcopdb)
 #define curstname		(curinterp->Icurstname)
@@ -114,17 +119,22 @@
 #define errgv			(curinterp->Ierrgv)
 #define eval_root		(curinterp->Ieval_root)
 #define eval_start		(curinterp->Ieval_start)
+#define extralen		(curinterp->Iextralen)
 #define fdpid			(curinterp->Ifdpid)
 #define filemode		(curinterp->Ifilemode)
 #define firstgv			(curinterp->Ifirstgv)
 #define forkprocess		(curinterp->Iforkprocess)
 #define formfeed		(curinterp->Iformfeed)
+#define generation		(curinterp->Igeneration)
 #define gensym			(curinterp->Igensym)
 #define globalstash		(curinterp->Iglobalstash)
+#define in_clean_all		(curinterp->Iin_clean_all)
+#define in_clean_objs		(curinterp->Iin_clean_objs)
 #define incgv			(curinterp->Iincgv)
 #define initav			(curinterp->Iinitav)
 #define inplace			(curinterp->Iinplace)
 #define lastfd			(curinterp->Ilastfd)
+#define lastgotoprobe		(curinterp->Ilastgotoprobe)
 #define lastscream		(curinterp->Ilastscream)
 #define lastsize		(curinterp->Ilastsize)
 #define lastspbase		(curinterp->Ilastspbase)
@@ -132,6 +142,7 @@
 #define laststype		(curinterp->Ilaststype)
 #define leftgv			(curinterp->Ileftgv)
 #define lineary			(curinterp->Ilineary)
+#define linestart		(curinterp->Ilinestart)
 #define localpatches		(curinterp->Ilocalpatches)
 #define main_cv			(curinterp->Imain_cv)
 #define main_root		(curinterp->Imain_root)
@@ -139,12 +150,14 @@
 #define maxscream		(curinterp->Imaxscream)
 #define maxsysfd		(curinterp->Imaxsysfd)
 #define mess_sv			(curinterp->Imess_sv)
+#define mh			(curinterp->Imh)
 #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 modcount		(curinterp->Imodcount)
 #define multiline		(curinterp->Imultiline)
 #define mystrk			(curinterp->Imystrk)
 #define ofmt			(curinterp->Iofmt)
@@ -158,21 +171,53 @@
 #define orslen			(curinterp->Iorslen)
 #define parsehook		(curinterp->Iparsehook)
 #define patchlevel		(curinterp->Ipatchlevel)
+#define pending_ident		(curinterp->Ipending_ident)
 #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 reg_eval_set		(curinterp->Ireg_eval_set)
+#define reg_flags		(curinterp->Ireg_flags)
+#define reg_start_tmp		(curinterp->Ireg_start_tmp)
+#define reg_start_tmpl		(curinterp->Ireg_start_tmpl)
+#define regbol			(curinterp->Iregbol)
+#define regcc			(curinterp->Iregcc)
+#define regcode			(curinterp->Iregcode)
+#define regdata			(curinterp->Iregdata)
+#define regdummy		(curinterp->Iregdummy)
+#define regendp			(curinterp->Iregendp)
+#define regeol			(curinterp->Iregeol)
+#define regflags		(curinterp->Iregflags)
+#define regindent		(curinterp->Iregindent)
+#define reginput		(curinterp->Ireginput)
+#define reglastparen		(curinterp->Ireglastparen)
+#define regnarrate		(curinterp->Iregnarrate)
+#define regnaughty		(curinterp->Iregnaughty)
+#define regnpar			(curinterp->Iregnpar)
+#define regparse		(curinterp->Iregparse)
+#define regprecomp		(curinterp->Iregprecomp)
+#define regprev			(curinterp->Iregprev)
+#define regprogram		(curinterp->Iregprogram)
+#define regsawback		(curinterp->Iregsawback)
+#define regseen			(curinterp->Iregseen)
+#define regsize			(curinterp->Iregsize)
+#define regstartp		(curinterp->Iregstartp)
+#define regtill			(curinterp->Iregtill)
+#define regxend			(curinterp->Iregxend)
 #define rightgv			(curinterp->Irightgv)
+#define rx			(curinterp->Irx)
 #define sawampersand		(curinterp->Isawampersand)
 #define sawstudy		(curinterp->Isawstudy)
 #define sawvec			(curinterp->Isawvec)
+#define seen_zerolen		(curinterp->Iseen_zerolen)
 #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 sortcxix		(curinterp->Isortcxix)
 #define sortstack		(curinterp->Isortstack)
 #define sortstash		(curinterp->Isortstash)
 #define splitstr		(curinterp->Isplitstr)
@@ -184,6 +229,7 @@
 #define stdingv			(curinterp->Istdingv)
 #define strchop			(curinterp->Istrchop)
 #define strtab			(curinterp->Istrtab)
+#define sublex_info		(curinterp->Isublex_info)
 #define sv_arenaroot		(curinterp->Isv_arenaroot)
 #define sv_count		(curinterp->Isv_count)
 #define sv_objcount		(curinterp->Isv_objcount)
@@ -198,6 +244,7 @@
 
 #define IArgv			Argv
 #define ICmd			Cmd
+#define IDBcv			DBcv
 #define IDBgv			DBgv
 #define IDBline			DBline
 #define IDBsignal		DBsignal
@@ -205,11 +252,15 @@
 #define IDBsub			DBsub
 #define IDBtrace		DBtrace
 #define Iampergv		ampergv
+#define Iarchpat_auto		archpat_auto
 #define Iargvgv			argvgv
 #define Iargvoutgv		argvoutgv
 #define Ibasetime		basetime
 #define Ibeginav		beginav
+#define Ibostr			bostr
 #define Icddir			cddir
+#define Icolors			colors
+#define Icolorset		colorset
 #define Icopline		copline
 #define Icurcopdb		curcopdb
 #define Icurstname		curstname
@@ -232,17 +283,22 @@
 #define Ierrgv			errgv
 #define Ieval_root		eval_root
 #define Ieval_start		eval_start
+#define Iextralen		extralen
 #define Ifdpid			fdpid
 #define Ifilemode		filemode
 #define Ifirstgv		firstgv
 #define Iforkprocess		forkprocess
 #define Iformfeed		formfeed
+#define Igeneration		generation
 #define Igensym			gensym
 #define Iglobalstash		globalstash
+#define Iin_clean_all		in_clean_all
+#define Iin_clean_objs		in_clean_objs
 #define Iincgv			incgv
 #define Iinitav			initav
 #define Iinplace		inplace
 #define Ilastfd			lastfd
+#define Ilastgotoprobe		lastgotoprobe
 #define Ilastscream		lastscream
 #define Ilastsize		lastsize
 #define Ilastspbase		lastspbase
@@ -250,6 +306,7 @@
 #define Ilaststype		laststype
 #define Ileftgv			leftgv
 #define Ilineary		lineary
+#define Ilinestart		linestart
 #define Ilocalpatches		localpatches
 #define Imain_cv		main_cv
 #define Imain_root		main_root
@@ -257,12 +314,14 @@
 #define Imaxscream		maxscream
 #define Imaxsysfd		maxsysfd
 #define Imess_sv		mess_sv
+#define Imh			mh
 #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 Imodcount		modcount
 #define Imultiline		multiline
 #define Imystrk			mystrk
 #define Iofmt			ofmt
@@ -276,21 +335,53 @@
 #define Iorslen			orslen
 #define Iparsehook		parsehook
 #define Ipatchlevel		patchlevel
+#define Ipending_ident		pending_ident
 #define Iperl_destruct_level	perl_destruct_level
 #define Iperldb			perldb
 #define Ipreambleav		preambleav
 #define Ipreambled		preambled
 #define Ipreprocess		preprocess
+#define Ireg_eval_set		reg_eval_set
+#define Ireg_flags		reg_flags
+#define Ireg_start_tmp		reg_start_tmp
+#define Ireg_start_tmpl		reg_start_tmpl
+#define Iregbol			regbol
+#define Iregcc			regcc
+#define Iregcode		regcode
+#define Iregdata		regdata
+#define Iregdummy		regdummy
+#define Iregendp		regendp
+#define Iregeol			regeol
+#define Iregflags		regflags
+#define Iregindent		regindent
+#define Ireginput		reginput
+#define Ireglastparen		reglastparen
+#define Iregnarrate		regnarrate
+#define Iregnaughty		regnaughty
+#define Iregnpar		regnpar
+#define Iregparse		regparse
+#define Iregprecomp		regprecomp
+#define Iregprev		regprev
+#define Iregprogram		regprogram
+#define Iregsawback		regsawback
+#define Iregseen		regseen
+#define Iregsize		regsize
+#define Iregstartp		regstartp
+#define Iregtill		regtill
+#define Iregxend		regxend
 #define Irightgv		rightgv
+#define Irx			rx
 #define Isawampersand		sawampersand
 #define Isawstudy		sawstudy
 #define Isawvec			sawvec
 #define Iscreamfirst		screamfirst
 #define Iscreamnext		screamnext
 #define Isecondgv		secondgv
+#define Iseen_zerolen		seen_zerolen
 #define Isiggv			siggv
 #define Isignalstack		signalstack
 #define Isortcop		sortcop
+#define Isortcxix		sortcxix
 #define Isortstack		sortstack
 #define Isortstash		sortstash
 #define Isplitstr		splitstr
@@ -302,6 +393,7 @@
 #define Istdingv		stdingv
 #define Istrchop		strchop
 #define Istrtab			strtab
+#define Isublex_info		sublex_info
 #define Isv_arenaroot		sv_arenaroot
 #define Isv_count		sv_count
 #define Isv_objcount		sv_objcount
@@ -376,6 +468,7 @@
 
 #define Argv			Perl_Argv
 #define Cmd			Perl_Cmd
+#define DBcv			Perl_DBcv
 #define DBgv			Perl_DBgv
 #define DBline			Perl_DBline
 #define DBsignal		Perl_DBsignal
@@ -383,11 +476,15 @@
 #define DBsub			Perl_DBsub
 #define DBtrace			Perl_DBtrace
 #define ampergv			Perl_ampergv
+#define archpat_auto		Perl_archpat_auto
 #define argvgv			Perl_argvgv
 #define argvoutgv		Perl_argvoutgv
 #define basetime		Perl_basetime
 #define beginav			Perl_beginav
+#define bostr			Perl_bostr
 #define cddir			Perl_cddir
+#define colors			Perl_colors
+#define colorset		Perl_colorset
 #define copline			Perl_copline
 #define curcopdb		Perl_curcopdb
 #define curstname		Perl_curstname
@@ -410,17 +507,22 @@
 #define errgv			Perl_errgv
 #define eval_root		Perl_eval_root
 #define eval_start		Perl_eval_start
+#define extralen		Perl_extralen
 #define fdpid			Perl_fdpid
 #define filemode		Perl_filemode
 #define firstgv			Perl_firstgv
 #define forkprocess		Perl_forkprocess
 #define formfeed		Perl_formfeed
+#define generation		Perl_generation
 #define gensym			Perl_gensym
 #define globalstash		Perl_globalstash
+#define in_clean_all		Perl_in_clean_all
+#define in_clean_objs		Perl_in_clean_objs
 #define incgv			Perl_incgv
 #define initav			Perl_initav
 #define inplace			Perl_inplace
 #define lastfd			Perl_lastfd
+#define lastgotoprobe		Perl_lastgotoprobe
 #define lastscream		Perl_lastscream
 #define lastsize		Perl_lastsize
 #define lastspbase		Perl_lastspbase
@@ -428,6 +530,7 @@
 #define laststype		Perl_laststype
 #define leftgv			Perl_leftgv
 #define lineary			Perl_lineary
+#define linestart		Perl_linestart
 #define localpatches		Perl_localpatches
 #define main_cv			Perl_main_cv
 #define main_root		Perl_main_root
@@ -435,12 +538,14 @@
 #define maxscream		Perl_maxscream
 #define maxsysfd		Perl_maxsysfd
 #define mess_sv			Perl_mess_sv
+#define mh			Perl_mh
 #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 modcount		Perl_modcount
 #define multiline		Perl_multiline
 #define mystrk			Perl_mystrk
 #define ofmt			Perl_ofmt
@@ -454,21 +559,53 @@
 #define orslen			Perl_orslen
 #define parsehook		Perl_parsehook
 #define patchlevel		Perl_patchlevel
+#define pending_ident		Perl_pending_ident
 #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 reg_eval_set		Perl_reg_eval_set
+#define reg_flags		Perl_reg_flags
+#define reg_start_tmp		Perl_reg_start_tmp
+#define reg_start_tmpl		Perl_reg_start_tmpl
+#define regbol			Perl_regbol
+#define regcc			Perl_regcc
+#define regcode			Perl_regcode
+#define regdata			Perl_regdata
+#define regdummy		Perl_regdummy
+#define regendp			Perl_regendp
+#define regeol			Perl_regeol
+#define regflags		Perl_regflags
+#define regindent		Perl_regindent
+#define reginput		Perl_reginput
+#define reglastparen		Perl_reglastparen
+#define regnarrate		Perl_regnarrate
+#define regnaughty		Perl_regnaughty
+#define regnpar			Perl_regnpar
+#define regparse		Perl_regparse
+#define regprecomp		Perl_regprecomp
+#define regprev			Perl_regprev
+#define regprogram		Perl_regprogram
+#define regsawback		Perl_regsawback
+#define regseen			Perl_regseen
+#define regsize			Perl_regsize
+#define regstartp		Perl_regstartp
+#define regtill			Perl_regtill
+#define regxend			Perl_regxend
 #define rightgv			Perl_rightgv
+#define rx			Perl_rx
 #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 seen_zerolen		Perl_seen_zerolen
 #define siggv			Perl_siggv
 #define signalstack		Perl_signalstack
 #define sortcop			Perl_sortcop
+#define sortcxix		Perl_sortcxix
 #define sortstack		Perl_sortstack
 #define sortstash		Perl_sortstash
 #define splitstr		Perl_splitstr
@@ -480,6 +617,7 @@
 #define stdingv			Perl_stdingv
 #define strchop			Perl_strchop
 #define strtab			Perl_strtab
+#define sublex_info		Perl_sublex_info
 #define sv_arenaroot		Perl_sv_arenaroot
 #define sv_count		Perl_sv_count
 #define sv_objcount		Perl_sv_objcount