X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embedvar.h;h=26d58210d5ff4b2872ad60ef1b5a3541a55f5225;hb=024963f8e0e4bfbd631d6878a69f86cabc760a32;hp=667edab2fd5a4fab1901ced97b18acd95c8437e2;hpb=e336de0d01f30cc4061b6d6a00d11df30fc67cd3;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embedvar.h b/embedvar.h index 667edab..26d5821 100644 --- a/embedvar.h +++ b/embedvar.h @@ -1,970 +1,824 @@ -/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - This file is built by embed.pl from global.sym, intrpvar.h, - and thrdvar.h. Any changes made here will be lost! -*/ +/* -*- buffer-read-only: t -*- + * + * embedvar.h + * + * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, + * 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, by Larry Wall and others + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + * This file is built by embed.pl from data in embed.fnc, embed.pl, + * pp.sym, intrpvar.h, and perlvars.h. + * Any changes made here will be lost! + * + * Edit those files and run 'make regen_headers' to effect changes. + */ /* (Doing namespace management portably in C is really gross.) */ -/* EMBED has no run-time penalty, but helps keep the Perl namespace - from colliding with that used by other libraries pulled in - by extensions or by embedding perl. Allow a cc -DNO_EMBED - override, however, to keep binary compatability with previous - versions of perl. -*/ - - -/* Put interpreter-specific symbols into a struct? */ - -#ifdef MULTIPLICITY - -#ifndef USE_THREADS -/* If we do not have threads then per-thread vars are per-interpreter */ - -#define Sv (curinterp->TSv) -#define Xpv (curinterp->TXpv) -#define av_fetch_sv (curinterp->Tav_fetch_sv) -#define bodytarget (curinterp->Tbodytarget) -#define chopset (curinterp->Tchopset) -#define curcop (curinterp->Tcurcop) -#define curpad (curinterp->Tcurpad) -#define curpm (curinterp->Tcurpm) -#define curstack (curinterp->Tcurstack) -#define curstackinfo (curinterp->Tcurstackinfo) -#define curstash (curinterp->Tcurstash) -#define defoutgv (curinterp->Tdefoutgv) -#define defstash (curinterp->Tdefstash) -#define delaymagic (curinterp->Tdelaymagic) -#define dirty (curinterp->Tdirty) -#define formtarget (curinterp->Tformtarget) -#define hv_fetch_ent_mh (curinterp->Thv_fetch_ent_mh) -#define hv_fetch_sv (curinterp->Thv_fetch_sv) -#define in_eval (curinterp->Tin_eval) -#define last_in_gv (curinterp->Tlast_in_gv) -#define localizing (curinterp->Tlocalizing) -#define mainstack (curinterp->Tmainstack) -#define markstack (curinterp->Tmarkstack) -#define markstack_max (curinterp->Tmarkstack_max) -#define markstack_ptr (curinterp->Tmarkstack_ptr) -#define nrs (curinterp->Tnrs) -#define ofs (curinterp->Tofs) -#define ofslen (curinterp->Tofslen) -#define op (curinterp->Top) -#define opsave (curinterp->Topsave) -#define restartop (curinterp->Trestartop) -#define retstack (curinterp->Tretstack) -#define retstack_ix (curinterp->Tretstack_ix) -#define retstack_max (curinterp->Tretstack_max) -#define rs (curinterp->Trs) -#define savestack (curinterp->Tsavestack) -#define savestack_ix (curinterp->Tsavestack_ix) -#define savestack_max (curinterp->Tsavestack_max) -#define scopestack (curinterp->Tscopestack) -#define scopestack_ix (curinterp->Tscopestack_ix) -#define scopestack_max (curinterp->Tscopestack_max) -#define stack_base (curinterp->Tstack_base) -#define stack_max (curinterp->Tstack_max) -#define stack_sp (curinterp->Tstack_sp) -#define start_env (curinterp->Tstart_env) -#define statbuf (curinterp->Tstatbuf) -#define tainted (curinterp->Ttainted) -#define timesbuf (curinterp->Ttimesbuf) -#define tmps_floor (curinterp->Ttmps_floor) -#define tmps_ix (curinterp->Ttmps_ix) -#define tmps_max (curinterp->Ttmps_max) -#define tmps_stack (curinterp->Ttmps_stack) -#define top_env (curinterp->Ttop_env) -#define toptarget (curinterp->Ttoptarget) +/* + The following combinations of MULTIPLICITY and PERL_IMPLICIT_CONTEXT + are supported: + 1) none + 2) MULTIPLICITY # supported for compatibility + 3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT -#endif /* !USE_THREADS */ + All other combinations of these flags are errors. -/* These are always per-interpreter if there is more than one */ + only #3 is supported directly, while #2 is a special + case of #3 (supported by redefining vTHX appropriately). +*/ -#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 ampergv (curinterp->Iampergv) -#define argvgv (curinterp->Iargvgv) -#define argvoutgv (curinterp->Iargvoutgv) -#define basetime (curinterp->Ibasetime) -#define beginav (curinterp->Ibeginav) -#define cddir (curinterp->Icddir) -#define copline (curinterp->Icopline) -#define curcopdb (curinterp->Icurcopdb) -#define curstname (curinterp->Icurstname) -#define dbargs (curinterp->Idbargs) -#define debdelim (curinterp->Idebdelim) -#define debname (curinterp->Idebname) -#define debstash (curinterp->Idebstash) -#define defgv (curinterp->Idefgv) -#define diehook (curinterp->Idiehook) -#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 gensym (curinterp->Igensym) -#define globalstash (curinterp->Iglobalstash) -#define incgv (curinterp->Iincgv) -#define initav (curinterp->Iinitav) -#define inplace (curinterp->Iinplace) -#define lastfd (curinterp->Ilastfd) -#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 localpatches (curinterp->Ilocalpatches) -#define main_cv (curinterp->Imain_cv) -#define main_root (curinterp->Imain_root) -#define main_start (curinterp->Imain_start) -#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 ofmt (curinterp->Iofmt) -#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 rightgv (curinterp->Irightgv) -#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 sortcop (curinterp->Isortcop) -#define sortstash (curinterp->Isortstash) -#define splitstr (curinterp->Isplitstr) -#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 tainting (curinterp->Itainting) -#define threadnum (curinterp->Ithreadnum) -#define thrsv (curinterp->Ithrsv) -#define unsafe (curinterp->Iunsafe) -#define warnhook (curinterp->Iwarnhook) +#if defined(MULTIPLICITY) +/* cases 2 and 3 above */ + +# if defined(PERL_IMPLICIT_CONTEXT) +# define vTHX aTHX +# else +# define vTHX PERL_GET_INTERP +# endif + +#define PL_Argv (vTHX->IArgv) +#define PL_Cmd (vTHX->ICmd) +#define PL_DBassertion (vTHX->IDBassertion) +#define PL_DBcv (vTHX->IDBcv) +#define PL_DBgv (vTHX->IDBgv) +#define PL_DBline (vTHX->IDBline) +#define PL_DBsignal (vTHX->IDBsignal) +#define PL_DBsingle (vTHX->IDBsingle) +#define PL_DBsub (vTHX->IDBsub) +#define PL_DBtrace (vTHX->IDBtrace) +#define PL_Dir (vTHX->IDir) +#define PL_Env (vTHX->IEnv) +#define PL_LIO (vTHX->ILIO) +#define PL_Mem (vTHX->IMem) +#define PL_MemParse (vTHX->IMemParse) +#define PL_MemShared (vTHX->IMemShared) +#define PL_OpPtr (vTHX->IOpPtr) +#define PL_OpSlab (vTHX->IOpSlab) +#define PL_OpSpace (vTHX->IOpSpace) +#define PL_Proc (vTHX->IProc) +#define PL_Sock (vTHX->ISock) +#define PL_StdIO (vTHX->IStdIO) +#define PL_Sv (vTHX->ISv) +#define PL_Xpv (vTHX->IXpv) +#define PL_amagic_generation (vTHX->Iamagic_generation) +#define PL_an (vTHX->Ian) +#define PL_argvgv (vTHX->Iargvgv) +#define PL_argvout_stack (vTHX->Iargvout_stack) +#define PL_argvoutgv (vTHX->Iargvoutgv) +#define PL_basetime (vTHX->Ibasetime) +#define PL_beginav (vTHX->Ibeginav) +#define PL_beginav_save (vTHX->Ibeginav_save) +#define PL_bitcount (vTHX->Ibitcount) +#define PL_body_arenas (vTHX->Ibody_arenas) +#define PL_body_roots (vTHX->Ibody_roots) +#define PL_bodytarget (vTHX->Ibodytarget) +#define PL_checkav (vTHX->Icheckav) +#define PL_checkav_save (vTHX->Icheckav_save) +#define PL_chopset (vTHX->Ichopset) +#define PL_clocktick (vTHX->Iclocktick) +#define PL_collation_ix (vTHX->Icollation_ix) +#define PL_collation_name (vTHX->Icollation_name) +#define PL_collation_standard (vTHX->Icollation_standard) +#define PL_collxfrm_base (vTHX->Icollxfrm_base) +#define PL_collxfrm_mult (vTHX->Icollxfrm_mult) +#define PL_colors (vTHX->Icolors) +#define PL_colorset (vTHX->Icolorset) +#define PL_compcv (vTHX->Icompcv) +#define PL_compiling (vTHX->Icompiling) +#define PL_comppad (vTHX->Icomppad) +#define PL_comppad_name (vTHX->Icomppad_name) +#define PL_comppad_name_fill (vTHX->Icomppad_name_fill) +#define PL_comppad_name_floor (vTHX->Icomppad_name_floor) +#define PL_cop_seqmax (vTHX->Icop_seqmax) +#define PL_cryptseen (vTHX->Icryptseen) +#define PL_curcop (vTHX->Icurcop) +#define PL_curcopdb (vTHX->Icurcopdb) +#define PL_curpad (vTHX->Icurpad) +#define PL_curpm (vTHX->Icurpm) +#define PL_curstack (vTHX->Icurstack) +#define PL_curstackinfo (vTHX->Icurstackinfo) +#define PL_curstash (vTHX->Icurstash) +#define PL_curstname (vTHX->Icurstname) +#define PL_custom_op_descs (vTHX->Icustom_op_descs) +#define PL_custom_op_names (vTHX->Icustom_op_names) +#define PL_cv_has_eval (vTHX->Icv_has_eval) +#define PL_dbargs (vTHX->Idbargs) +#define PL_debstash (vTHX->Idebstash) +#define PL_debug (vTHX->Idebug) +#define PL_debug_pad (vTHX->Idebug_pad) +#define PL_def_layerlist (vTHX->Idef_layerlist) +#define PL_defgv (vTHX->Idefgv) +#define PL_defoutgv (vTHX->Idefoutgv) +#define PL_defstash (vTHX->Idefstash) +#define PL_delaymagic (vTHX->Idelaymagic) +#define PL_diehook (vTHX->Idiehook) +#define PL_dirty (vTHX->Idirty) +#define PL_doextract (vTHX->Idoextract) +#define PL_doswitches (vTHX->Idoswitches) +#define PL_dowarn (vTHX->Idowarn) +#define PL_dumper_fd (vTHX->Idumper_fd) +#define PL_dumpindent (vTHX->Idumpindent) +#define PL_e_script (vTHX->Ie_script) +#define PL_efloatbuf (vTHX->Iefloatbuf) +#define PL_efloatsize (vTHX->Iefloatsize) +#define PL_egid (vTHX->Iegid) +#define PL_encoding (vTHX->Iencoding) +#define PL_endav (vTHX->Iendav) +#define PL_envgv (vTHX->Ienvgv) +#define PL_errgv (vTHX->Ierrgv) +#define PL_errors (vTHX->Ierrors) +#define PL_euid (vTHX->Ieuid) +#define PL_eval_root (vTHX->Ieval_root) +#define PL_eval_start (vTHX->Ieval_start) +#define PL_evalseq (vTHX->Ievalseq) +#define PL_exit_flags (vTHX->Iexit_flags) +#define PL_exitlist (vTHX->Iexitlist) +#define PL_exitlistlen (vTHX->Iexitlistlen) +#define PL_fdpid (vTHX->Ifdpid) +#define PL_filemode (vTHX->Ifilemode) +#define PL_firstgv (vTHX->Ifirstgv) +#define PL_forkprocess (vTHX->Iforkprocess) +#define PL_formfeed (vTHX->Iformfeed) +#define PL_formtarget (vTHX->Iformtarget) +#define PL_generation (vTHX->Igeneration) +#define PL_gensym (vTHX->Igensym) +#define PL_gid (vTHX->Igid) +#define PL_glob_index (vTHX->Iglob_index) +#define PL_globalstash (vTHX->Iglobalstash) +#define PL_hash_seed (vTHX->Ihash_seed) +#define PL_hintgv (vTHX->Ihintgv) +#define PL_hints (vTHX->Ihints) +#define PL_hv_fetch_ent_mh (vTHX->Ihv_fetch_ent_mh) +#define PL_in_clean_all (vTHX->Iin_clean_all) +#define PL_in_clean_objs (vTHX->Iin_clean_objs) +#define PL_in_eval (vTHX->Iin_eval) +#define PL_in_load_module (vTHX->Iin_load_module) +#define PL_incgv (vTHX->Iincgv) +#define PL_initav (vTHX->Iinitav) +#define PL_inplace (vTHX->Iinplace) +#define PL_isarev (vTHX->Iisarev) +#define PL_known_layers (vTHX->Iknown_layers) +#define PL_last_in_gv (vTHX->Ilast_in_gv) +#define PL_last_swash_hv (vTHX->Ilast_swash_hv) +#define PL_last_swash_key (vTHX->Ilast_swash_key) +#define PL_last_swash_klen (vTHX->Ilast_swash_klen) +#define PL_last_swash_slen (vTHX->Ilast_swash_slen) +#define PL_last_swash_tmps (vTHX->Ilast_swash_tmps) +#define PL_lastfd (vTHX->Ilastfd) +#define PL_lastgotoprobe (vTHX->Ilastgotoprobe) +#define PL_lastscream (vTHX->Ilastscream) +#define PL_laststatval (vTHX->Ilaststatval) +#define PL_laststype (vTHX->Ilaststype) +#define PL_localizing (vTHX->Ilocalizing) +#define PL_localpatches (vTHX->Ilocalpatches) +#define PL_lockhook (vTHX->Ilockhook) +#define PL_madskills (vTHX->Imadskills) +#define PL_main_cv (vTHX->Imain_cv) +#define PL_main_root (vTHX->Imain_root) +#define PL_main_start (vTHX->Imain_start) +#define PL_mainstack (vTHX->Imainstack) +#define PL_markstack (vTHX->Imarkstack) +#define PL_markstack_max (vTHX->Imarkstack_max) +#define PL_markstack_ptr (vTHX->Imarkstack_ptr) +#define PL_max_intro_pending (vTHX->Imax_intro_pending) +#define PL_maxo (vTHX->Imaxo) +#define PL_maxscream (vTHX->Imaxscream) +#define PL_maxsysfd (vTHX->Imaxsysfd) +#define PL_memory_debug_header (vTHX->Imemory_debug_header) +#define PL_mess_sv (vTHX->Imess_sv) +#define PL_min_intro_pending (vTHX->Imin_intro_pending) +#define PL_minus_E (vTHX->Iminus_E) +#define PL_minus_F (vTHX->Iminus_F) +#define PL_minus_a (vTHX->Iminus_a) +#define PL_minus_c (vTHX->Iminus_c) +#define PL_minus_l (vTHX->Iminus_l) +#define PL_minus_n (vTHX->Iminus_n) +#define PL_minus_p (vTHX->Iminus_p) +#define PL_modcount (vTHX->Imodcount) +#define PL_modglobal (vTHX->Imodglobal) +#define PL_my_cxt_keys (vTHX->Imy_cxt_keys) +#define PL_my_cxt_list (vTHX->Imy_cxt_list) +#define PL_my_cxt_size (vTHX->Imy_cxt_size) +#define PL_na (vTHX->Ina) +#define PL_nice_chunk (vTHX->Inice_chunk) +#define PL_nice_chunk_size (vTHX->Inice_chunk_size) +#define PL_nomemok (vTHX->Inomemok) +#define PL_numeric_local (vTHX->Inumeric_local) +#define PL_numeric_name (vTHX->Inumeric_name) +#define PL_numeric_radix_sv (vTHX->Inumeric_radix_sv) +#define PL_numeric_standard (vTHX->Inumeric_standard) +#define PL_ofs_sv (vTHX->Iofs_sv) +#define PL_oldname (vTHX->Ioldname) +#define PL_op (vTHX->Iop) +#define PL_op_mask (vTHX->Iop_mask) +#define PL_opsave (vTHX->Iopsave) +#define PL_origalen (vTHX->Iorigalen) +#define PL_origargc (vTHX->Iorigargc) +#define PL_origargv (vTHX->Iorigargv) +#define PL_origenviron (vTHX->Iorigenviron) +#define PL_origfilename (vTHX->Iorigfilename) +#define PL_ors_sv (vTHX->Iors_sv) +#define PL_osname (vTHX->Iosname) +#define PL_pad_reset_pending (vTHX->Ipad_reset_pending) +#define PL_padix (vTHX->Ipadix) +#define PL_padix_floor (vTHX->Ipadix_floor) +#define PL_parser (vTHX->Iparser) +#define PL_patchlevel (vTHX->Ipatchlevel) +#define PL_peepp (vTHX->Ipeepp) +#define PL_perl_destruct_level (vTHX->Iperl_destruct_level) +#define PL_perldb (vTHX->Iperldb) +#define PL_perlio (vTHX->Iperlio) +#define PL_pidstatus (vTHX->Ipidstatus) +#define PL_ppid (vTHX->Ippid) +#define PL_preambleav (vTHX->Ipreambleav) +#define PL_preprocess (vTHX->Ipreprocess) +#define PL_profiledata (vTHX->Iprofiledata) +#define PL_psig_name (vTHX->Ipsig_name) +#define PL_psig_pend (vTHX->Ipsig_pend) +#define PL_psig_ptr (vTHX->Ipsig_ptr) +#define PL_ptr_table (vTHX->Iptr_table) +#define PL_reentrant_buffer (vTHX->Ireentrant_buffer) +#define PL_reentrant_retint (vTHX->Ireentrant_retint) +#define PL_reg_state (vTHX->Ireg_state) +#define PL_regdummy (vTHX->Iregdummy) +#define PL_regex_pad (vTHX->Iregex_pad) +#define PL_regex_padav (vTHX->Iregex_padav) +#define PL_reginterp_cnt (vTHX->Ireginterp_cnt) +#define PL_regmatch_slab (vTHX->Iregmatch_slab) +#define PL_regmatch_state (vTHX->Iregmatch_state) +#define PL_rehash_seed (vTHX->Irehash_seed) +#define PL_rehash_seed_set (vTHX->Irehash_seed_set) +#define PL_replgv (vTHX->Ireplgv) +#define PL_restartop (vTHX->Irestartop) +#define PL_rs (vTHX->Irs) +#define PL_runops (vTHX->Irunops) +#define PL_savebegin (vTHX->Isavebegin) +#define PL_savestack (vTHX->Isavestack) +#define PL_savestack_ix (vTHX->Isavestack_ix) +#define PL_savestack_max (vTHX->Isavestack_max) +#define PL_sawampersand (vTHX->Isawampersand) +#define PL_scopestack (vTHX->Iscopestack) +#define PL_scopestack_ix (vTHX->Iscopestack_ix) +#define PL_scopestack_max (vTHX->Iscopestack_max) +#define PL_screamfirst (vTHX->Iscreamfirst) +#define PL_screamnext (vTHX->Iscreamnext) +#define PL_secondgv (vTHX->Isecondgv) +#define PL_sharehook (vTHX->Isharehook) +#define PL_sig_pending (vTHX->Isig_pending) +#define PL_sighandlerp (vTHX->Isighandlerp) +#define PL_signals (vTHX->Isignals) +#define PL_slab_count (vTHX->Islab_count) +#define PL_slabs (vTHX->Islabs) +#define PL_sort_RealCmp (vTHX->Isort_RealCmp) +#define PL_sortcop (vTHX->Isortcop) +#define PL_sortstash (vTHX->Isortstash) +#define PL_splitstr (vTHX->Isplitstr) +#define PL_srand_called (vTHX->Isrand_called) +#define PL_stack_base (vTHX->Istack_base) +#define PL_stack_max (vTHX->Istack_max) +#define PL_stack_sp (vTHX->Istack_sp) +#define PL_start_env (vTHX->Istart_env) +#define PL_stashcache (vTHX->Istashcache) +#define PL_statbuf (vTHX->Istatbuf) +#define PL_statcache (vTHX->Istatcache) +#define PL_statgv (vTHX->Istatgv) +#define PL_statname (vTHX->Istatname) +#define PL_statusvalue (vTHX->Istatusvalue) +#define PL_statusvalue_posix (vTHX->Istatusvalue_posix) +#define PL_statusvalue_vms (vTHX->Istatusvalue_vms) +#define PL_stderrgv (vTHX->Istderrgv) +#define PL_stdingv (vTHX->Istdingv) +#define PL_strtab (vTHX->Istrtab) +#define PL_sub_generation (vTHX->Isub_generation) +#define PL_subline (vTHX->Isubline) +#define PL_subname (vTHX->Isubname) +#define PL_sv_arenaroot (vTHX->Isv_arenaroot) +#define PL_sv_count (vTHX->Isv_count) +#define PL_sv_no (vTHX->Isv_no) +#define PL_sv_objcount (vTHX->Isv_objcount) +#define PL_sv_root (vTHX->Isv_root) +#define PL_sv_undef (vTHX->Isv_undef) +#define PL_sv_yes (vTHX->Isv_yes) +#define PL_sys_intern (vTHX->Isys_intern) +#define PL_taint_warn (vTHX->Itaint_warn) +#define PL_tainted (vTHX->Itainted) +#define PL_tainting (vTHX->Itainting) +#define PL_threadhook (vTHX->Ithreadhook) +#define PL_timesbuf (vTHX->Itimesbuf) +#define PL_tmps_floor (vTHX->Itmps_floor) +#define PL_tmps_ix (vTHX->Itmps_ix) +#define PL_tmps_max (vTHX->Itmps_max) +#define PL_tmps_stack (vTHX->Itmps_stack) +#define PL_top_env (vTHX->Itop_env) +#define PL_toptarget (vTHX->Itoptarget) +#define PL_uid (vTHX->Iuid) +#define PL_unicode (vTHX->Iunicode) +#define PL_unitcheckav (vTHX->Iunitcheckav) +#define PL_unitcheckav_save (vTHX->Iunitcheckav_save) +#define PL_unlockhook (vTHX->Iunlockhook) +#define PL_unsafe (vTHX->Iunsafe) +#define PL_utf8_alnum (vTHX->Iutf8_alnum) +#define PL_utf8_alnumc (vTHX->Iutf8_alnumc) +#define PL_utf8_alpha (vTHX->Iutf8_alpha) +#define PL_utf8_ascii (vTHX->Iutf8_ascii) +#define PL_utf8_cntrl (vTHX->Iutf8_cntrl) +#define PL_utf8_digit (vTHX->Iutf8_digit) +#define PL_utf8_graph (vTHX->Iutf8_graph) +#define PL_utf8_idcont (vTHX->Iutf8_idcont) +#define PL_utf8_idstart (vTHX->Iutf8_idstart) +#define PL_utf8_lower (vTHX->Iutf8_lower) +#define PL_utf8_mark (vTHX->Iutf8_mark) +#define PL_utf8_print (vTHX->Iutf8_print) +#define PL_utf8_punct (vTHX->Iutf8_punct) +#define PL_utf8_space (vTHX->Iutf8_space) +#define PL_utf8_tofold (vTHX->Iutf8_tofold) +#define PL_utf8_tolower (vTHX->Iutf8_tolower) +#define PL_utf8_totitle (vTHX->Iutf8_totitle) +#define PL_utf8_toupper (vTHX->Iutf8_toupper) +#define PL_utf8_upper (vTHX->Iutf8_upper) +#define PL_utf8_xdigit (vTHX->Iutf8_xdigit) +#define PL_utf8cache (vTHX->Iutf8cache) +#define PL_utf8locale (vTHX->Iutf8locale) +#define PL_warnhook (vTHX->Iwarnhook) +#define PL_watchaddr (vTHX->Iwatchaddr) +#define PL_watchok (vTHX->Iwatchok) +#define PL_xmlfp (vTHX->Ixmlfp) #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 Iampergv ampergv -#define Iargvgv argvgv -#define Iargvoutgv argvoutgv -#define Ibasetime basetime -#define Ibeginav beginav -#define Icddir cddir -#define Icopline copline -#define Icurcopdb curcopdb -#define Icurstname curstname -#define Idbargs dbargs -#define Idebdelim debdelim -#define Idebname debname -#define Idebstash debstash -#define Idefgv defgv -#define Idiehook diehook -#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 Igensym gensym -#define Iglobalstash globalstash -#define Iincgv incgv -#define Iinitav initav -#define Iinplace inplace -#define Ilastfd lastfd -#define Ilastscream lastscream -#define Ilastsize lastsize -#define Ilastspbase lastspbase -#define Ilaststatval laststatval -#define Ilaststype laststype -#define Ileftgv leftgv -#define Ilineary lineary -#define Ilocalpatches localpatches -#define Imain_cv main_cv -#define Imain_root main_root -#define Imain_start main_start -#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 Iofmt ofmt -#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 Irightgv rightgv -#define Isawampersand sawampersand -#define Isawstudy sawstudy -#define Isawvec sawvec -#define Iscreamfirst screamfirst -#define Iscreamnext screamnext -#define Isecondgv secondgv -#define Isiggv siggv -#define Isortcop sortcop -#define Isortstash sortstash -#define Isplitstr splitstr -#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 Itainting tainting -#define Ithreadnum threadnum -#define Ithrsv thrsv -#define Iunsafe unsafe -#define Iwarnhook warnhook - -#ifndef USE_THREADS - -#define TSv Sv -#define TXpv Xpv -#define Tav_fetch_sv av_fetch_sv -#define Tbodytarget bodytarget -#define Tchopset chopset -#define Tcurcop curcop -#define Tcurpad curpad -#define Tcurpm curpm -#define Tcurstack curstack -#define Tcurstackinfo curstackinfo -#define Tcurstash curstash -#define Tdefoutgv defoutgv -#define Tdefstash defstash -#define Tdelaymagic delaymagic -#define Tdirty dirty -#define Tformtarget formtarget -#define Thv_fetch_ent_mh hv_fetch_ent_mh -#define Thv_fetch_sv hv_fetch_sv -#define Tin_eval in_eval -#define Tlast_in_gv last_in_gv -#define Tlocalizing localizing -#define Tmainstack mainstack -#define Tmarkstack markstack -#define Tmarkstack_max markstack_max -#define Tmarkstack_ptr markstack_ptr -#define Tnrs nrs -#define Tofs ofs -#define Tofslen ofslen -#define Top op -#define Topsave opsave -#define Trestartop restartop -#define Tretstack retstack -#define Tretstack_ix retstack_ix -#define Tretstack_max retstack_max -#define Trs rs -#define Tsavestack savestack -#define Tsavestack_ix savestack_ix -#define Tsavestack_max savestack_max -#define Tscopestack scopestack -#define Tscopestack_ix scopestack_ix -#define Tscopestack_max scopestack_max -#define Tstack_base stack_base -#define Tstack_max stack_max -#define Tstack_sp stack_sp -#define Tstart_env start_env -#define Tstatbuf statbuf -#define Ttainted tainted -#define Ttimesbuf timesbuf -#define Ttmps_floor tmps_floor -#define Ttmps_ix tmps_ix -#define Ttmps_max tmps_max -#define Ttmps_stack tmps_stack -#define Ttop_env top_env -#define Ttoptarget toptarget - -#endif /* USE_THREADS */ - -/* Hide what would have been 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 ampergv Perl_ampergv -#define argvgv Perl_argvgv -#define argvoutgv Perl_argvoutgv -#define basetime Perl_basetime -#define beginav Perl_beginav -#define cddir Perl_cddir -#define copline Perl_copline -#define curcopdb Perl_curcopdb -#define curstname Perl_curstname -#define dbargs Perl_dbargs -#define debdelim Perl_debdelim -#define debname Perl_debname -#define debstash Perl_debstash -#define defgv Perl_defgv -#define diehook Perl_diehook -#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 gensym Perl_gensym -#define globalstash Perl_globalstash -#define incgv Perl_incgv -#define initav Perl_initav -#define inplace Perl_inplace -#define lastfd Perl_lastfd -#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 localpatches Perl_localpatches -#define main_cv Perl_main_cv -#define main_root Perl_main_root -#define main_start Perl_main_start -#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 ofmt Perl_ofmt -#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 rightgv Perl_rightgv -#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 sortcop Perl_sortcop -#define sortstash Perl_sortstash -#define splitstr Perl_splitstr -#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 tainting Perl_tainting -#define threadnum Perl_threadnum -#define thrsv Perl_thrsv -#define unsafe Perl_unsafe -#define warnhook Perl_warnhook - -#ifndef USE_THREADS - -#define Sv Perl_Sv -#define Xpv Perl_Xpv -#define av_fetch_sv Perl_av_fetch_sv -#define bodytarget Perl_bodytarget -#define chopset Perl_chopset -#define curcop Perl_curcop -#define curpad Perl_curpad -#define curpm Perl_curpm -#define curstack Perl_curstack -#define curstackinfo Perl_curstackinfo -#define curstash Perl_curstash -#define defoutgv Perl_defoutgv -#define defstash Perl_defstash -#define delaymagic Perl_delaymagic -#define dirty Perl_dirty -#define formtarget Perl_formtarget -#define hv_fetch_ent_mh Perl_hv_fetch_ent_mh -#define hv_fetch_sv Perl_hv_fetch_sv -#define in_eval Perl_in_eval -#define last_in_gv Perl_last_in_gv -#define localizing Perl_localizing -#define mainstack Perl_mainstack -#define markstack Perl_markstack -#define markstack_max Perl_markstack_max -#define markstack_ptr Perl_markstack_ptr -#define nrs Perl_nrs -#define ofs Perl_ofs -#define ofslen Perl_ofslen -#define op Perl_op -#define opsave Perl_opsave -#define restartop Perl_restartop -#define retstack Perl_retstack -#define retstack_ix Perl_retstack_ix -#define retstack_max Perl_retstack_max -#define rs Perl_rs -#define savestack Perl_savestack -#define savestack_ix Perl_savestack_ix -#define savestack_max Perl_savestack_max -#define scopestack Perl_scopestack -#define scopestack_ix Perl_scopestack_ix -#define scopestack_max Perl_scopestack_max -#define stack_base Perl_stack_base -#define stack_max Perl_stack_max -#define stack_sp Perl_stack_sp -#define start_env Perl_start_env -#define statbuf Perl_statbuf -#define tainted Perl_tainted -#define timesbuf Perl_timesbuf -#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 - -#endif /* USE_THREADS */ -#endif /* EMBED */ -#endif /* MULTIPLICITY */ - -/* Now same trickey for per-thread variables */ - -#ifdef USE_THREADS - -#define Sv (thr->TSv) -#define Xpv (thr->TXpv) -#define av_fetch_sv (thr->Tav_fetch_sv) -#define bodytarget (thr->Tbodytarget) -#define chopset (thr->Tchopset) -#define curcop (thr->Tcurcop) -#define curpad (thr->Tcurpad) -#define curpm (thr->Tcurpm) -#define curstack (thr->Tcurstack) -#define curstackinfo (thr->Tcurstackinfo) -#define curstash (thr->Tcurstash) -#define defoutgv (thr->Tdefoutgv) -#define defstash (thr->Tdefstash) -#define delaymagic (thr->Tdelaymagic) -#define dirty (thr->Tdirty) -#define formtarget (thr->Tformtarget) -#define hv_fetch_ent_mh (thr->Thv_fetch_ent_mh) -#define hv_fetch_sv (thr->Thv_fetch_sv) -#define in_eval (thr->Tin_eval) -#define last_in_gv (thr->Tlast_in_gv) -#define localizing (thr->Tlocalizing) -#define mainstack (thr->Tmainstack) -#define markstack (thr->Tmarkstack) -#define markstack_max (thr->Tmarkstack_max) -#define markstack_ptr (thr->Tmarkstack_ptr) -#define nrs (thr->Tnrs) -#define ofs (thr->Tofs) -#define ofslen (thr->Tofslen) -#define op (thr->Top) -#define opsave (thr->Topsave) -#define restartop (thr->Trestartop) -#define retstack (thr->Tretstack) -#define retstack_ix (thr->Tretstack_ix) -#define retstack_max (thr->Tretstack_max) -#define rs (thr->Trs) -#define savestack (thr->Tsavestack) -#define savestack_ix (thr->Tsavestack_ix) -#define savestack_max (thr->Tsavestack_max) -#define scopestack (thr->Tscopestack) -#define scopestack_ix (thr->Tscopestack_ix) -#define scopestack_max (thr->Tscopestack_max) -#define stack_base (thr->Tstack_base) -#define stack_max (thr->Tstack_max) -#define stack_sp (thr->Tstack_sp) -#define start_env (thr->Tstart_env) -#define statbuf (thr->Tstatbuf) -#define tainted (thr->Ttainted) -#define timesbuf (thr->Ttimesbuf) -#define tmps_floor (thr->Ttmps_floor) -#define tmps_ix (thr->Ttmps_ix) -#define tmps_max (thr->Ttmps_max) -#define tmps_stack (thr->Ttmps_stack) -#define top_env (thr->Ttop_env) -#define toptarget (thr->Ttoptarget) - -#endif /* USE_THREADS */ - -#ifdef PERL_GLOBAL_STRUCT - -#define No (Perl_Vars.GNo) -#define Yes (Perl_Vars.GYes) -#define amagic_generation (Perl_Vars.Gamagic_generation) -#define an (Perl_Vars.Gan) -#define bufend (Perl_Vars.Gbufend) -#define bufptr (Perl_Vars.Gbufptr) -#define collation_ix (Perl_Vars.Gcollation_ix) -#define collation_name (Perl_Vars.Gcollation_name) -#define collation_standard (Perl_Vars.Gcollation_standard) -#define collxfrm_base (Perl_Vars.Gcollxfrm_base) -#define collxfrm_mult (Perl_Vars.Gcollxfrm_mult) -#define compcv (Perl_Vars.Gcompcv) -#define compiling (Perl_Vars.Gcompiling) -#define comppad (Perl_Vars.Gcomppad) -#define comppad_name (Perl_Vars.Gcomppad_name) -#define comppad_name_fill (Perl_Vars.Gcomppad_name_fill) -#define comppad_name_floor (Perl_Vars.Gcomppad_name_floor) -#define cop_seqmax (Perl_Vars.Gcop_seqmax) -#define cryptseen (Perl_Vars.Gcryptseen) -#define cshlen (Perl_Vars.Gcshlen) -#define cshname (Perl_Vars.Gcshname) -#define curinterp (Perl_Vars.Gcurinterp) -#define curthr (Perl_Vars.Gcurthr) -#define debug (Perl_Vars.Gdebug) -#define do_undump (Perl_Vars.Gdo_undump) -#define egid (Perl_Vars.Gegid) -#define error_count (Perl_Vars.Gerror_count) -#define euid (Perl_Vars.Geuid) -#define eval_cond (Perl_Vars.Geval_cond) -#define eval_mutex (Perl_Vars.Geval_mutex) -#define eval_owner (Perl_Vars.Geval_owner) -#define evalseq (Perl_Vars.Gevalseq) -#define expect (Perl_Vars.Gexpect) -#define gid (Perl_Vars.Ggid) -#define he_root (Perl_Vars.Ghe_root) -#define hexdigit (Perl_Vars.Ghexdigit) -#define hints (Perl_Vars.Ghints) -#define in_my (Perl_Vars.Gin_my) -#define in_my_stash (Perl_Vars.Gin_my_stash) -#define last_lop (Perl_Vars.Glast_lop) -#define last_lop_op (Perl_Vars.Glast_lop_op) -#define last_uni (Perl_Vars.Glast_uni) -#define lex_brackets (Perl_Vars.Glex_brackets) -#define lex_brackstack (Perl_Vars.Glex_brackstack) -#define lex_casemods (Perl_Vars.Glex_casemods) -#define lex_casestack (Perl_Vars.Glex_casestack) -#define lex_defer (Perl_Vars.Glex_defer) -#define lex_dojoin (Perl_Vars.Glex_dojoin) -#define lex_expect (Perl_Vars.Glex_expect) -#define lex_fakebrack (Perl_Vars.Glex_fakebrack) -#define lex_formbrack (Perl_Vars.Glex_formbrack) -#define lex_inpat (Perl_Vars.Glex_inpat) -#define lex_inwhat (Perl_Vars.Glex_inwhat) -#define lex_op (Perl_Vars.Glex_op) -#define lex_repl (Perl_Vars.Glex_repl) -#define lex_starts (Perl_Vars.Glex_starts) -#define lex_state (Perl_Vars.Glex_state) -#define lex_stuff (Perl_Vars.Glex_stuff) -#define linestr (Perl_Vars.Glinestr) -#define malloc_mutex (Perl_Vars.Gmalloc_mutex) -#define max_intro_pending (Perl_Vars.Gmax_intro_pending) -#define maxo (Perl_Vars.Gmaxo) -#define min_intro_pending (Perl_Vars.Gmin_intro_pending) -#define multi_close (Perl_Vars.Gmulti_close) -#define multi_end (Perl_Vars.Gmulti_end) -#define multi_open (Perl_Vars.Gmulti_open) -#define multi_start (Perl_Vars.Gmulti_start) -#define na (Perl_Vars.Gna) -#define nexttoke (Perl_Vars.Gnexttoke) -#define nexttype (Perl_Vars.Gnexttype) -#define nextval (Perl_Vars.Gnextval) -#define nice_chunk (Perl_Vars.Gnice_chunk) -#define nice_chunk_size (Perl_Vars.Gnice_chunk_size) -#define nomemok (Perl_Vars.Gnomemok) -#define nthreads (Perl_Vars.Gnthreads) -#define nthreads_cond (Perl_Vars.Gnthreads_cond) -#define numeric_local (Perl_Vars.Gnumeric_local) -#define numeric_name (Perl_Vars.Gnumeric_name) -#define numeric_standard (Perl_Vars.Gnumeric_standard) -#define oldbufptr (Perl_Vars.Goldbufptr) -#define oldoldbufptr (Perl_Vars.Goldoldbufptr) -#define op_seqmax (Perl_Vars.Gop_seqmax) -#define origalen (Perl_Vars.Gorigalen) -#define origenviron (Perl_Vars.Gorigenviron) -#define osname (Perl_Vars.Gosname) -#define pad_reset_pending (Perl_Vars.Gpad_reset_pending) -#define padix (Perl_Vars.Gpadix) -#define padix_floor (Perl_Vars.Gpadix_floor) -#define patleave (Perl_Vars.Gpatleave) -#define pidstatus (Perl_Vars.Gpidstatus) -#define profiledata (Perl_Vars.Gprofiledata) -#define rsfp (Perl_Vars.Grsfp) -#define rsfp_filters (Perl_Vars.Grsfp_filters) -#define runops (Perl_Vars.Grunops) -#define scrgv (Perl_Vars.Gscrgv) -#define sh_path (Perl_Vars.Gsh_path) -#define sighandlerp (Perl_Vars.Gsighandlerp) -#define sub_generation (Perl_Vars.Gsub_generation) -#define subline (Perl_Vars.Gsubline) -#define subname (Perl_Vars.Gsubname) -#define sv_mutex (Perl_Vars.Gsv_mutex) -#define sv_no (Perl_Vars.Gsv_no) -#define sv_undef (Perl_Vars.Gsv_undef) -#define sv_yes (Perl_Vars.Gsv_yes) -#define svref_mutex (Perl_Vars.Gsvref_mutex) -#define thisexpr (Perl_Vars.Gthisexpr) -#define thr_key (Perl_Vars.Gthr_key) -#define threads_mutex (Perl_Vars.Gthreads_mutex) -#define threadsv_names (Perl_Vars.Gthreadsv_names) -#define tokenbuf (Perl_Vars.Gtokenbuf) -#define uid (Perl_Vars.Guid) -#define xiv_arenaroot (Perl_Vars.Gxiv_arenaroot) -#define xiv_root (Perl_Vars.Gxiv_root) -#define xnv_root (Perl_Vars.Gxnv_root) -#define xpv_root (Perl_Vars.Gxpv_root) -#define xrv_root (Perl_Vars.Gxrv_root) +/* case 1 above */ + +#define PL_IArgv PL_Argv +#define PL_ICmd PL_Cmd +#define PL_IDBassertion PL_DBassertion +#define PL_IDBcv PL_DBcv +#define PL_IDBgv PL_DBgv +#define PL_IDBline PL_DBline +#define PL_IDBsignal PL_DBsignal +#define PL_IDBsingle PL_DBsingle +#define PL_IDBsub PL_DBsub +#define PL_IDBtrace PL_DBtrace +#define PL_IDir PL_Dir +#define PL_IEnv PL_Env +#define PL_ILIO PL_LIO +#define PL_IMem PL_Mem +#define PL_IMemParse PL_MemParse +#define PL_IMemShared PL_MemShared +#define PL_IOpPtr PL_OpPtr +#define PL_IOpSlab PL_OpSlab +#define PL_IOpSpace PL_OpSpace +#define PL_IProc PL_Proc +#define PL_ISock PL_Sock +#define PL_IStdIO PL_StdIO +#define PL_ISv PL_Sv +#define PL_IXpv PL_Xpv +#define PL_Iamagic_generation PL_amagic_generation +#define PL_Ian PL_an +#define PL_Iargvgv PL_argvgv +#define PL_Iargvout_stack PL_argvout_stack +#define PL_Iargvoutgv PL_argvoutgv +#define PL_Ibasetime PL_basetime +#define PL_Ibeginav PL_beginav +#define PL_Ibeginav_save PL_beginav_save +#define PL_Ibitcount PL_bitcount +#define PL_Ibody_arenas PL_body_arenas +#define PL_Ibody_roots PL_body_roots +#define PL_Ibodytarget PL_bodytarget +#define PL_Icheckav PL_checkav +#define PL_Icheckav_save PL_checkav_save +#define PL_Ichopset PL_chopset +#define PL_Iclocktick PL_clocktick +#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_Icolors PL_colors +#define PL_Icolorset PL_colorset +#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_Icryptseen PL_cryptseen +#define PL_Icurcop PL_curcop +#define PL_Icurcopdb PL_curcopdb +#define PL_Icurpad PL_curpad +#define PL_Icurpm PL_curpm +#define PL_Icurstack PL_curstack +#define PL_Icurstackinfo PL_curstackinfo +#define PL_Icurstash PL_curstash +#define PL_Icurstname PL_curstname +#define PL_Icustom_op_descs PL_custom_op_descs +#define PL_Icustom_op_names PL_custom_op_names +#define PL_Icv_has_eval PL_cv_has_eval +#define PL_Idbargs PL_dbargs +#define PL_Idebstash PL_debstash +#define PL_Idebug PL_debug +#define PL_Idebug_pad PL_debug_pad +#define PL_Idef_layerlist PL_def_layerlist +#define PL_Idefgv PL_defgv +#define PL_Idefoutgv PL_defoutgv +#define PL_Idefstash PL_defstash +#define PL_Idelaymagic PL_delaymagic +#define PL_Idiehook PL_diehook +#define PL_Idirty PL_dirty +#define PL_Idoextract PL_doextract +#define PL_Idoswitches PL_doswitches +#define PL_Idowarn PL_dowarn +#define PL_Idumper_fd PL_dumper_fd +#define PL_Idumpindent PL_dumpindent +#define PL_Ie_script PL_e_script +#define PL_Iefloatbuf PL_efloatbuf +#define PL_Iefloatsize PL_efloatsize +#define PL_Iegid PL_egid +#define PL_Iencoding PL_encoding +#define PL_Iendav PL_endav +#define PL_Ienvgv PL_envgv +#define PL_Ierrgv PL_errgv +#define PL_Ierrors PL_errors +#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_Iexit_flags PL_exit_flags +#define PL_Iexitlist PL_exitlist +#define PL_Iexitlistlen PL_exitlistlen +#define PL_Ifdpid PL_fdpid +#define PL_Ifilemode PL_filemode +#define PL_Ifirstgv PL_firstgv +#define PL_Iforkprocess PL_forkprocess +#define PL_Iformfeed PL_formfeed +#define PL_Iformtarget PL_formtarget +#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_Ihash_seed PL_hash_seed +#define PL_Ihintgv PL_hintgv +#define PL_Ihints PL_hints +#define PL_Ihv_fetch_ent_mh PL_hv_fetch_ent_mh +#define PL_Iin_clean_all PL_in_clean_all +#define PL_Iin_clean_objs PL_in_clean_objs +#define PL_Iin_eval PL_in_eval +#define PL_Iin_load_module PL_in_load_module +#define PL_Iincgv PL_incgv +#define PL_Iinitav PL_initav +#define PL_Iinplace PL_inplace +#define PL_Iisarev PL_isarev +#define PL_Iknown_layers PL_known_layers +#define PL_Ilast_in_gv PL_last_in_gv +#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_Ilastfd PL_lastfd +#define PL_Ilastgotoprobe PL_lastgotoprobe +#define PL_Ilastscream PL_lastscream +#define PL_Ilaststatval PL_laststatval +#define PL_Ilaststype PL_laststype +#define PL_Ilocalizing PL_localizing +#define PL_Ilocalpatches PL_localpatches +#define PL_Ilockhook PL_lockhook +#define PL_Imadskills PL_madskills +#define PL_Imain_cv PL_main_cv +#define PL_Imain_root PL_main_root +#define PL_Imain_start PL_main_start +#define PL_Imainstack PL_mainstack +#define PL_Imarkstack PL_markstack +#define PL_Imarkstack_max PL_markstack_max +#define PL_Imarkstack_ptr PL_markstack_ptr +#define PL_Imax_intro_pending PL_max_intro_pending +#define PL_Imaxo PL_maxo +#define PL_Imaxscream PL_maxscream +#define PL_Imaxsysfd PL_maxsysfd +#define PL_Imemory_debug_header PL_memory_debug_header +#define PL_Imess_sv PL_mess_sv +#define PL_Imin_intro_pending PL_min_intro_pending +#define PL_Iminus_E PL_minus_E +#define PL_Iminus_F PL_minus_F +#define PL_Iminus_a PL_minus_a +#define PL_Iminus_c PL_minus_c +#define PL_Iminus_l PL_minus_l +#define PL_Iminus_n PL_minus_n +#define PL_Iminus_p PL_minus_p +#define PL_Imodcount PL_modcount +#define PL_Imodglobal PL_modglobal +#define PL_Imy_cxt_keys PL_my_cxt_keys +#define PL_Imy_cxt_list PL_my_cxt_list +#define PL_Imy_cxt_size PL_my_cxt_size +#define PL_Ina PL_na +#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_radix_sv PL_numeric_radix_sv +#define PL_Inumeric_standard PL_numeric_standard +#define PL_Iofs_sv PL_ofs_sv +#define PL_Ioldname PL_oldname +#define PL_Iop PL_op +#define PL_Iop_mask PL_op_mask +#define PL_Iopsave PL_opsave +#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_sv PL_ors_sv +#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_Iparser PL_parser +#define PL_Ipatchlevel PL_patchlevel +#define PL_Ipeepp PL_peepp +#define PL_Iperl_destruct_level PL_perl_destruct_level +#define PL_Iperldb PL_perldb +#define PL_Iperlio PL_perlio +#define PL_Ipidstatus PL_pidstatus +#define PL_Ippid PL_ppid +#define PL_Ipreambleav PL_preambleav +#define PL_Ipreprocess PL_preprocess +#define PL_Iprofiledata PL_profiledata +#define PL_Ipsig_name PL_psig_name +#define PL_Ipsig_pend PL_psig_pend +#define PL_Ipsig_ptr PL_psig_ptr +#define PL_Iptr_table PL_ptr_table +#define PL_Ireentrant_buffer PL_reentrant_buffer +#define PL_Ireentrant_retint PL_reentrant_retint +#define PL_Ireg_state PL_reg_state +#define PL_Iregdummy PL_regdummy +#define PL_Iregex_pad PL_regex_pad +#define PL_Iregex_padav PL_regex_padav +#define PL_Ireginterp_cnt PL_reginterp_cnt +#define PL_Iregmatch_slab PL_regmatch_slab +#define PL_Iregmatch_state PL_regmatch_state +#define PL_Irehash_seed PL_rehash_seed +#define PL_Irehash_seed_set PL_rehash_seed_set +#define PL_Ireplgv PL_replgv +#define PL_Irestartop PL_restartop +#define PL_Irs PL_rs +#define PL_Irunops PL_runops +#define PL_Isavebegin PL_savebegin +#define PL_Isavestack PL_savestack +#define PL_Isavestack_ix PL_savestack_ix +#define PL_Isavestack_max PL_savestack_max +#define PL_Isawampersand PL_sawampersand +#define PL_Iscopestack PL_scopestack +#define PL_Iscopestack_ix PL_scopestack_ix +#define PL_Iscopestack_max PL_scopestack_max +#define PL_Iscreamfirst PL_screamfirst +#define PL_Iscreamnext PL_screamnext +#define PL_Isecondgv PL_secondgv +#define PL_Isharehook PL_sharehook +#define PL_Isig_pending PL_sig_pending +#define PL_Isighandlerp PL_sighandlerp +#define PL_Isignals PL_signals +#define PL_Islab_count PL_slab_count +#define PL_Islabs PL_slabs +#define PL_Isort_RealCmp PL_sort_RealCmp +#define PL_Isortcop PL_sortcop +#define PL_Isortstash PL_sortstash +#define PL_Isplitstr PL_splitstr +#define PL_Isrand_called PL_srand_called +#define PL_Istack_base PL_stack_base +#define PL_Istack_max PL_stack_max +#define PL_Istack_sp PL_stack_sp +#define PL_Istart_env PL_start_env +#define PL_Istashcache PL_stashcache +#define PL_Istatbuf PL_statbuf +#define PL_Istatcache PL_statcache +#define PL_Istatgv PL_statgv +#define PL_Istatname PL_statname +#define PL_Istatusvalue PL_statusvalue +#define PL_Istatusvalue_posix PL_statusvalue_posix +#define PL_Istatusvalue_vms PL_statusvalue_vms +#define PL_Istderrgv PL_stderrgv +#define PL_Istdingv PL_stdingv +#define PL_Istrtab PL_strtab +#define PL_Isub_generation PL_sub_generation +#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_Itaint_warn PL_taint_warn +#define PL_Itainted PL_tainted +#define PL_Itainting PL_tainting +#define PL_Ithreadhook PL_threadhook +#define PL_Itimesbuf PL_timesbuf +#define PL_Itmps_floor PL_tmps_floor +#define PL_Itmps_ix PL_tmps_ix +#define PL_Itmps_max PL_tmps_max +#define PL_Itmps_stack PL_tmps_stack +#define PL_Itop_env PL_top_env +#define PL_Itoptarget PL_toptarget +#define PL_Iuid PL_uid +#define PL_Iunicode PL_unicode +#define PL_Iunitcheckav PL_unitcheckav +#define PL_Iunitcheckav_save PL_unitcheckav_save +#define PL_Iunlockhook PL_unlockhook +#define PL_Iunsafe PL_unsafe +#define PL_Iutf8_alnum PL_utf8_alnum +#define PL_Iutf8_alnumc PL_utf8_alnumc +#define PL_Iutf8_alpha PL_utf8_alpha +#define PL_Iutf8_ascii PL_utf8_ascii +#define PL_Iutf8_cntrl PL_utf8_cntrl +#define PL_Iutf8_digit PL_utf8_digit +#define PL_Iutf8_graph PL_utf8_graph +#define PL_Iutf8_idcont PL_utf8_idcont +#define PL_Iutf8_idstart PL_utf8_idstart +#define PL_Iutf8_lower PL_utf8_lower +#define PL_Iutf8_mark PL_utf8_mark +#define PL_Iutf8_print PL_utf8_print +#define PL_Iutf8_punct PL_utf8_punct +#define PL_Iutf8_space PL_utf8_space +#define PL_Iutf8_tofold PL_utf8_tofold +#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_Iutf8_xdigit PL_utf8_xdigit +#define PL_Iutf8cache PL_utf8cache +#define PL_Iutf8locale PL_utf8locale +#define PL_Iwarnhook PL_warnhook +#define PL_Iwatchaddr PL_watchaddr +#define PL_Iwatchok PL_watchok +#define PL_Ixmlfp PL_xmlfp + + +#endif /* MULTIPLICITY */ + +#if defined(PERL_GLOBAL_STRUCT) + +#define PL_No (my_vars->GNo) +#define PL_GNo (my_vars->GNo) +#define PL_Yes (my_vars->GYes) +#define PL_GYes (my_vars->GYes) +#define PL_appctx (my_vars->Gappctx) +#define PL_Gappctx (my_vars->Gappctx) +#define PL_check (my_vars->Gcheck) +#define PL_Gcheck (my_vars->Gcheck) +#define PL_csighandlerp (my_vars->Gcsighandlerp) +#define PL_Gcsighandlerp (my_vars->Gcsighandlerp) +#define PL_curinterp (my_vars->Gcurinterp) +#define PL_Gcurinterp (my_vars->Gcurinterp) +#define PL_do_undump (my_vars->Gdo_undump) +#define PL_Gdo_undump (my_vars->Gdo_undump) +#define PL_dollarzero_mutex (my_vars->Gdollarzero_mutex) +#define PL_Gdollarzero_mutex (my_vars->Gdollarzero_mutex) +#define PL_fold_locale (my_vars->Gfold_locale) +#define PL_Gfold_locale (my_vars->Gfold_locale) +#define PL_hexdigit (my_vars->Ghexdigit) +#define PL_Ghexdigit (my_vars->Ghexdigit) +#define PL_hints_mutex (my_vars->Ghints_mutex) +#define PL_Ghints_mutex (my_vars->Ghints_mutex) +#define PL_malloc_mutex (my_vars->Gmalloc_mutex) +#define PL_Gmalloc_mutex (my_vars->Gmalloc_mutex) +#define PL_mmap_page_size (my_vars->Gmmap_page_size) +#define PL_Gmmap_page_size (my_vars->Gmmap_page_size) +#define PL_my_ctx_mutex (my_vars->Gmy_ctx_mutex) +#define PL_Gmy_ctx_mutex (my_vars->Gmy_ctx_mutex) +#define PL_my_cxt_index (my_vars->Gmy_cxt_index) +#define PL_Gmy_cxt_index (my_vars->Gmy_cxt_index) +#define PL_op_mutex (my_vars->Gop_mutex) +#define PL_Gop_mutex (my_vars->Gop_mutex) +#define PL_op_seq (my_vars->Gop_seq) +#define PL_Gop_seq (my_vars->Gop_seq) +#define PL_op_sequence (my_vars->Gop_sequence) +#define PL_Gop_sequence (my_vars->Gop_sequence) +#define PL_patleave (my_vars->Gpatleave) +#define PL_Gpatleave (my_vars->Gpatleave) +#define PL_perlio_debug_fd (my_vars->Gperlio_debug_fd) +#define PL_Gperlio_debug_fd (my_vars->Gperlio_debug_fd) +#define PL_perlio_fd_refcnt (my_vars->Gperlio_fd_refcnt) +#define PL_Gperlio_fd_refcnt (my_vars->Gperlio_fd_refcnt) +#define PL_perlio_fd_refcnt_size (my_vars->Gperlio_fd_refcnt_size) +#define PL_Gperlio_fd_refcnt_size (my_vars->Gperlio_fd_refcnt_size) +#define PL_perlio_mutex (my_vars->Gperlio_mutex) +#define PL_Gperlio_mutex (my_vars->Gperlio_mutex) +#define PL_ppaddr (my_vars->Gppaddr) +#define PL_Gppaddr (my_vars->Gppaddr) +#define PL_runops_dbg (my_vars->Grunops_dbg) +#define PL_Grunops_dbg (my_vars->Grunops_dbg) +#define PL_runops_std (my_vars->Grunops_std) +#define PL_Grunops_std (my_vars->Grunops_std) +#define PL_sh_path (my_vars->Gsh_path) +#define PL_Gsh_path (my_vars->Gsh_path) +#define PL_sig_defaulting (my_vars->Gsig_defaulting) +#define PL_Gsig_defaulting (my_vars->Gsig_defaulting) +#define PL_sig_handlers_initted (my_vars->Gsig_handlers_initted) +#define PL_Gsig_handlers_initted (my_vars->Gsig_handlers_initted) +#define PL_sig_ignoring (my_vars->Gsig_ignoring) +#define PL_Gsig_ignoring (my_vars->Gsig_ignoring) +#define PL_sig_sv (my_vars->Gsig_sv) +#define PL_Gsig_sv (my_vars->Gsig_sv) +#define PL_sig_trapped (my_vars->Gsig_trapped) +#define PL_Gsig_trapped (my_vars->Gsig_trapped) +#define PL_sigfpe_saved (my_vars->Gsigfpe_saved) +#define PL_Gsigfpe_saved (my_vars->Gsigfpe_saved) +#define PL_sv_placeholder (my_vars->Gsv_placeholder) +#define PL_Gsv_placeholder (my_vars->Gsv_placeholder) +#define PL_thr_key (my_vars->Gthr_key) +#define PL_Gthr_key (my_vars->Gthr_key) +#define PL_timesbase (my_vars->Gtimesbase) +#define PL_Gtimesbase (my_vars->Gtimesbase) +#define PL_use_safe_putenv (my_vars->Guse_safe_putenv) +#define PL_Guse_safe_putenv (my_vars->Guse_safe_putenv) +#define PL_veto_cleanup (my_vars->Gveto_cleanup) +#define PL_Gveto_cleanup (my_vars->Gveto_cleanup) +#define PL_watch_pvx (my_vars->Gwatch_pvx) +#define PL_Gwatch_pvx (my_vars->Gwatch_pvx) #else /* !PERL_GLOBAL_STRUCT */ -#define GNo No -#define GYes Yes -#define Gamagic_generation amagic_generation -#define Gan an -#define Gbufend bufend -#define Gbufptr bufptr -#define Gcollation_ix collation_ix -#define Gcollation_name collation_name -#define Gcollation_standard collation_standard -#define Gcollxfrm_base collxfrm_base -#define Gcollxfrm_mult collxfrm_mult -#define Gcompcv compcv -#define Gcompiling compiling -#define Gcomppad comppad -#define Gcomppad_name comppad_name -#define Gcomppad_name_fill comppad_name_fill -#define Gcomppad_name_floor comppad_name_floor -#define Gcop_seqmax cop_seqmax -#define Gcryptseen cryptseen -#define Gcshlen cshlen -#define Gcshname cshname -#define Gcurinterp curinterp -#define Gcurthr curthr -#define Gdebug debug -#define Gdo_undump do_undump -#define Gegid egid -#define Gerror_count error_count -#define Geuid euid -#define Geval_cond eval_cond -#define Geval_mutex eval_mutex -#define Geval_owner eval_owner -#define Gevalseq evalseq -#define Gexpect expect -#define Ggid gid -#define Ghe_root he_root -#define Ghexdigit hexdigit -#define Ghints hints -#define Gin_my in_my -#define Gin_my_stash in_my_stash -#define Glast_lop last_lop -#define Glast_lop_op last_lop_op -#define Glast_uni last_uni -#define Glex_brackets lex_brackets -#define Glex_brackstack lex_brackstack -#define Glex_casemods lex_casemods -#define Glex_casestack lex_casestack -#define Glex_defer lex_defer -#define Glex_dojoin lex_dojoin -#define Glex_expect lex_expect -#define Glex_fakebrack lex_fakebrack -#define Glex_formbrack lex_formbrack -#define Glex_inpat lex_inpat -#define Glex_inwhat lex_inwhat -#define Glex_op lex_op -#define Glex_repl lex_repl -#define Glex_starts lex_starts -#define Glex_state lex_state -#define Glex_stuff lex_stuff -#define Glinestr linestr -#define Gmalloc_mutex malloc_mutex -#define Gmax_intro_pending max_intro_pending -#define Gmaxo maxo -#define Gmin_intro_pending min_intro_pending -#define Gmulti_close multi_close -#define Gmulti_end multi_end -#define Gmulti_open multi_open -#define Gmulti_start multi_start -#define Gna na -#define Gnexttoke nexttoke -#define Gnexttype nexttype -#define Gnextval nextval -#define Gnice_chunk nice_chunk -#define Gnice_chunk_size nice_chunk_size -#define Gnomemok nomemok -#define Gnthreads nthreads -#define Gnthreads_cond nthreads_cond -#define Gnumeric_local numeric_local -#define Gnumeric_name numeric_name -#define Gnumeric_standard numeric_standard -#define Goldbufptr oldbufptr -#define Goldoldbufptr oldoldbufptr -#define Gop_seqmax op_seqmax -#define Gorigalen origalen -#define Gorigenviron origenviron -#define Gosname osname -#define Gpad_reset_pending pad_reset_pending -#define Gpadix padix -#define Gpadix_floor padix_floor -#define Gpatleave patleave -#define Gpidstatus pidstatus -#define Gprofiledata profiledata -#define Grsfp rsfp -#define Grsfp_filters rsfp_filters -#define Grunops runops -#define Gscrgv scrgv -#define Gsh_path sh_path -#define Gsighandlerp sighandlerp -#define Gsub_generation sub_generation -#define Gsubline subline -#define Gsubname subname -#define Gsv_mutex sv_mutex -#define Gsv_no sv_no -#define Gsv_undef sv_undef -#define Gsv_yes sv_yes -#define Gsvref_mutex svref_mutex -#define Gthisexpr thisexpr -#define Gthr_key thr_key -#define Gthreads_mutex threads_mutex -#define Gthreadsv_names threadsv_names -#define Gtokenbuf tokenbuf -#define Guid uid -#define Gxiv_arenaroot xiv_arenaroot -#define Gxiv_root xiv_root -#define Gxnv_root xnv_root -#define Gxpv_root xpv_root -#define Gxrv_root xrv_root - -#ifdef EMBED - -#define No Perl_No -#define Yes Perl_Yes -#define amagic_generation Perl_amagic_generation -#define an Perl_an -#define bufend Perl_bufend -#define bufptr Perl_bufptr -#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 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 cop_seqmax Perl_cop_seqmax -#define cryptseen Perl_cryptseen -#define cshlen Perl_cshlen -#define cshname Perl_cshname -#define curinterp Perl_curinterp -#define curthr Perl_curthr -#define debug Perl_debug -#define do_undump Perl_do_undump -#define egid Perl_egid -#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 expect Perl_expect -#define gid Perl_gid -#define he_root Perl_he_root -#define hexdigit Perl_hexdigit -#define hints Perl_hints -#define in_my Perl_in_my -#define in_my_stash Perl_in_my_stash -#define last_lop Perl_last_lop -#define last_lop_op Perl_last_lop_op -#define last_uni Perl_last_uni -#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_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_starts Perl_lex_starts -#define lex_state Perl_lex_state -#define lex_stuff Perl_lex_stuff -#define linestr Perl_linestr -#define malloc_mutex Perl_malloc_mutex -#define max_intro_pending Perl_max_intro_pending -#define maxo Perl_maxo -#define min_intro_pending Perl_min_intro_pending -#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 na Perl_na -#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 nomemok Perl_nomemok -#define nthreads Perl_nthreads -#define nthreads_cond Perl_nthreads_cond -#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 op_seqmax Perl_op_seqmax -#define origalen Perl_origalen -#define origenviron Perl_origenviron -#define osname Perl_osname -#define pad_reset_pending Perl_pad_reset_pending -#define padix Perl_padix -#define padix_floor Perl_padix_floor -#define patleave Perl_patleave -#define pidstatus Perl_pidstatus -#define profiledata Perl_profiledata -#define rsfp Perl_rsfp -#define rsfp_filters Perl_rsfp_filters -#define runops Perl_runops -#define scrgv Perl_scrgv -#define sh_path Perl_sh_path -#define sighandlerp Perl_sighandlerp -#define sub_generation Perl_sub_generation -#define subline Perl_subline -#define subname Perl_subname -#define sv_mutex Perl_sv_mutex -#define sv_no Perl_sv_no -#define sv_undef Perl_sv_undef -#define sv_yes Perl_sv_yes -#define svref_mutex Perl_svref_mutex -#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 uid Perl_uid -#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 PL_GNo PL_No +#define PL_GYes PL_Yes +#define PL_Gappctx PL_appctx +#define PL_Gcheck PL_check +#define PL_Gcsighandlerp PL_csighandlerp +#define PL_Gcurinterp PL_curinterp +#define PL_Gdo_undump PL_do_undump +#define PL_Gdollarzero_mutex PL_dollarzero_mutex +#define PL_Gfold_locale PL_fold_locale +#define PL_Ghexdigit PL_hexdigit +#define PL_Ghints_mutex PL_hints_mutex +#define PL_Gmalloc_mutex PL_malloc_mutex +#define PL_Gmmap_page_size PL_mmap_page_size +#define PL_Gmy_ctx_mutex PL_my_ctx_mutex +#define PL_Gmy_cxt_index PL_my_cxt_index +#define PL_Gop_mutex PL_op_mutex +#define PL_Gop_seq PL_op_seq +#define PL_Gop_sequence PL_op_sequence +#define PL_Gpatleave PL_patleave +#define PL_Gperlio_debug_fd PL_perlio_debug_fd +#define PL_Gperlio_fd_refcnt PL_perlio_fd_refcnt +#define PL_Gperlio_fd_refcnt_size PL_perlio_fd_refcnt_size +#define PL_Gperlio_mutex PL_perlio_mutex +#define PL_Gppaddr PL_ppaddr +#define PL_Grunops_dbg PL_runops_dbg +#define PL_Grunops_std PL_runops_std +#define PL_Gsh_path PL_sh_path +#define PL_Gsig_defaulting PL_sig_defaulting +#define PL_Gsig_handlers_initted PL_sig_handlers_initted +#define PL_Gsig_ignoring PL_sig_ignoring +#define PL_Gsig_sv PL_sig_sv +#define PL_Gsig_trapped PL_sig_trapped +#define PL_Gsigfpe_saved PL_sigfpe_saved +#define PL_Gsv_placeholder PL_sv_placeholder +#define PL_Gthr_key PL_thr_key +#define PL_Gtimesbase PL_timesbase +#define PL_Guse_safe_putenv PL_use_safe_putenv +#define PL_Gveto_cleanup PL_veto_cleanup +#define PL_Gwatch_pvx PL_watch_pvx -#endif /* EMBED */ #endif /* PERL_GLOBAL_STRUCT */ +#ifdef PERL_POLLUTE /* disabled by default in 5.6.0 */ + +#define DBassertion PL_DBassertion +#define DBsingle PL_DBsingle +#define DBsub PL_DBsub +#define compiling PL_compiling +#define curcop PL_curcop +#define curstash PL_curstash +#define debstash PL_debstash +#define defgv PL_defgv +#define diehook PL_diehook +#define dirty PL_dirty +#define dowarn PL_dowarn +#define errgv PL_errgv +#define na PL_na +#define no_modify PL_no_modify +#define perl_destruct_level PL_perl_destruct_level +#define perldb PL_perldb +#define ppaddr PL_ppaddr +#define rsfp PL_rsfp +#define rsfp_filters PL_rsfp_filters +#define stack_base PL_stack_base +#define stack_sp PL_stack_sp +#define stdingv PL_stdingv +#define sv_arenaroot PL_sv_arenaroot +#define sv_no PL_sv_no +#define sv_undef PL_sv_undef +#define sv_yes PL_sv_yes +#define tainted PL_tainted +#define tainting PL_tainting + +#endif /* PERL_POLLUTE */ + +/* ex: set ro: */