xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/embedvar.h (revision 0:68f95e015346)
1 /*
2  *    embedvar.h
3  *
4  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
5  *
6  *    You may distribute under the terms of either the GNU General Public
7  *    License or the Artistic License, as specified in the README file.
8  *
9  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
10  * This file is built by embed.pl from data in embed.fnc, embed.pl,
11  * pp.sym, intrpvar.h, perlvars.h and thrdvar.h.
12  * Any changes made here will be lost!
13  *
14  * Edit those files and run 'make regen_headers' to effect changes.
15  */
16 
17 /* (Doing namespace management portably in C is really gross.) */
18 
19 /*
20    The following combinations of MULTIPLICITY, USE_5005THREADS
21    and PERL_IMPLICIT_CONTEXT are supported:
22      1) none
23      2) MULTIPLICITY	# supported for compatibility
24      3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
25      4) USE_5005THREADS && PERL_IMPLICIT_CONTEXT
26      5) MULTIPLICITY && USE_5005THREADS && PERL_IMPLICIT_CONTEXT
27 
28    All other combinations of these flags are errors.
29 
30    #3, #4, #5, and #6 are supported directly, while #2 is a special
31    case of #3 (supported by redefining vTHX appropriately).
32 */
33 
34 #if defined(MULTIPLICITY)
35 /* cases 2, 3 and 5 above */
36 
37 #  if defined(PERL_IMPLICIT_CONTEXT)
38 #    define vTHX	aTHX
39 #  else
40 #    define vTHX	PERL_GET_INTERP
41 #  endif
42 
43 #define PL_Sv			(vTHX->TSv)
44 #define PL_Xpv			(vTHX->TXpv)
45 #define PL_av_fetch_sv		(vTHX->Tav_fetch_sv)
46 #define PL_bodytarget		(vTHX->Tbodytarget)
47 #define PL_bostr		(vTHX->Tbostr)
48 #define PL_chopset		(vTHX->Tchopset)
49 #define PL_colors		(vTHX->Tcolors)
50 #define PL_colorset		(vTHX->Tcolorset)
51 #define PL_comppad		(vTHX->Tcomppad)
52 #define PL_curcop		(vTHX->Tcurcop)
53 #define PL_curpad		(vTHX->Tcurpad)
54 #define PL_curpm		(vTHX->Tcurpm)
55 #define PL_curstack		(vTHX->Tcurstack)
56 #define PL_curstackinfo		(vTHX->Tcurstackinfo)
57 #define PL_curstash		(vTHX->Tcurstash)
58 #define PL_defoutgv		(vTHX->Tdefoutgv)
59 #define PL_defstash		(vTHX->Tdefstash)
60 #define PL_delaymagic		(vTHX->Tdelaymagic)
61 #define PL_dirty		(vTHX->Tdirty)
62 #define PL_dumpindent		(vTHX->Tdumpindent)
63 #define PL_efloatbuf		(vTHX->Tefloatbuf)
64 #define PL_efloatsize		(vTHX->Tefloatsize)
65 #define PL_errors		(vTHX->Terrors)
66 #define PL_extralen		(vTHX->Textralen)
67 #define PL_firstgv		(vTHX->Tfirstgv)
68 #define PL_formtarget		(vTHX->Tformtarget)
69 #define PL_hv_fetch_ent_mh	(vTHX->Thv_fetch_ent_mh)
70 #define PL_hv_fetch_sv		(vTHX->Thv_fetch_sv)
71 #define PL_in_eval		(vTHX->Tin_eval)
72 #define PL_last_in_gv		(vTHX->Tlast_in_gv)
73 #define PL_lastgotoprobe	(vTHX->Tlastgotoprobe)
74 #define PL_lastscream		(vTHX->Tlastscream)
75 #define PL_localizing		(vTHX->Tlocalizing)
76 #define PL_mainstack		(vTHX->Tmainstack)
77 #define PL_markstack		(vTHX->Tmarkstack)
78 #define PL_markstack_max	(vTHX->Tmarkstack_max)
79 #define PL_markstack_ptr	(vTHX->Tmarkstack_ptr)
80 #define PL_maxscream		(vTHX->Tmaxscream)
81 #define PL_modcount		(vTHX->Tmodcount)
82 #define PL_na			(vTHX->Tna)
83 #define PL_nrs			(vTHX->Tnrs)
84 #define PL_ofs_sv		(vTHX->Tofs_sv)
85 #define PL_op			(vTHX->Top)
86 #define PL_opsave		(vTHX->Topsave)
87 #define PL_peepp		(vTHX->Tpeepp)
88 #define PL_protect		(vTHX->Tprotect)
89 #define PL_reg_call_cc		(vTHX->Treg_call_cc)
90 #define PL_reg_curpm		(vTHX->Treg_curpm)
91 #define PL_reg_eval_set		(vTHX->Treg_eval_set)
92 #define PL_reg_flags		(vTHX->Treg_flags)
93 #define PL_reg_ganch		(vTHX->Treg_ganch)
94 #define PL_reg_leftiter		(vTHX->Treg_leftiter)
95 #define PL_reg_magic		(vTHX->Treg_magic)
96 #define PL_reg_match_utf8	(vTHX->Treg_match_utf8)
97 #define PL_reg_maxiter		(vTHX->Treg_maxiter)
98 #define PL_reg_oldcurpm		(vTHX->Treg_oldcurpm)
99 #define PL_reg_oldpos		(vTHX->Treg_oldpos)
100 #define PL_reg_oldsaved		(vTHX->Treg_oldsaved)
101 #define PL_reg_oldsavedlen	(vTHX->Treg_oldsavedlen)
102 #define PL_reg_poscache		(vTHX->Treg_poscache)
103 #define PL_reg_poscache_size	(vTHX->Treg_poscache_size)
104 #define PL_reg_re		(vTHX->Treg_re)
105 #define PL_reg_start_tmp	(vTHX->Treg_start_tmp)
106 #define PL_reg_start_tmpl	(vTHX->Treg_start_tmpl)
107 #define PL_reg_starttry		(vTHX->Treg_starttry)
108 #define PL_reg_sv		(vTHX->Treg_sv)
109 #define PL_reg_whilem_seen	(vTHX->Treg_whilem_seen)
110 #define PL_regbol		(vTHX->Tregbol)
111 #define PL_regcc		(vTHX->Tregcc)
112 #define PL_regcode		(vTHX->Tregcode)
113 #define PL_regcomp_parse	(vTHX->Tregcomp_parse)
114 #define PL_regcomp_rx		(vTHX->Tregcomp_rx)
115 #define PL_regcompat1		(vTHX->Tregcompat1)
116 #define PL_regcompp		(vTHX->Tregcompp)
117 #define PL_regdata		(vTHX->Tregdata)
118 #define PL_regdummy		(vTHX->Tregdummy)
119 #define PL_regendp		(vTHX->Tregendp)
120 #define PL_regeol		(vTHX->Tregeol)
121 #define PL_regexecp		(vTHX->Tregexecp)
122 #define PL_regflags		(vTHX->Tregflags)
123 #define PL_regfree		(vTHX->Tregfree)
124 #define PL_regindent		(vTHX->Tregindent)
125 #define PL_reginput		(vTHX->Treginput)
126 #define PL_regint_start		(vTHX->Tregint_start)
127 #define PL_regint_string	(vTHX->Tregint_string)
128 #define PL_reginterp_cnt	(vTHX->Treginterp_cnt)
129 #define PL_reglastcloseparen	(vTHX->Treglastcloseparen)
130 #define PL_reglastparen		(vTHX->Treglastparen)
131 #define PL_regnarrate		(vTHX->Tregnarrate)
132 #define PL_regnaughty		(vTHX->Tregnaughty)
133 #define PL_regnpar		(vTHX->Tregnpar)
134 #define PL_regprecomp		(vTHX->Tregprecomp)
135 #define PL_regprogram		(vTHX->Tregprogram)
136 #define PL_regsawback		(vTHX->Tregsawback)
137 #define PL_regseen		(vTHX->Tregseen)
138 #define PL_regsize		(vTHX->Tregsize)
139 #define PL_regstartp		(vTHX->Tregstartp)
140 #define PL_regtill		(vTHX->Tregtill)
141 #define PL_regxend		(vTHX->Tregxend)
142 #define PL_restartop		(vTHX->Trestartop)
143 #define PL_retstack		(vTHX->Tretstack)
144 #define PL_retstack_ix		(vTHX->Tretstack_ix)
145 #define PL_retstack_max		(vTHX->Tretstack_max)
146 #define PL_rs			(vTHX->Trs)
147 #define PL_savestack		(vTHX->Tsavestack)
148 #define PL_savestack_ix		(vTHX->Tsavestack_ix)
149 #define PL_savestack_max	(vTHX->Tsavestack_max)
150 #define PL_scopestack		(vTHX->Tscopestack)
151 #define PL_scopestack_ix	(vTHX->Tscopestack_ix)
152 #define PL_scopestack_max	(vTHX->Tscopestack_max)
153 #define PL_screamfirst		(vTHX->Tscreamfirst)
154 #define PL_screamnext		(vTHX->Tscreamnext)
155 #define PL_secondgv		(vTHX->Tsecondgv)
156 #define PL_seen_evals		(vTHX->Tseen_evals)
157 #define PL_seen_zerolen		(vTHX->Tseen_zerolen)
158 #define PL_sortcop		(vTHX->Tsortcop)
159 #define PL_sortcxix		(vTHX->Tsortcxix)
160 #define PL_sortstash		(vTHX->Tsortstash)
161 #define PL_stack_base		(vTHX->Tstack_base)
162 #define PL_stack_max		(vTHX->Tstack_max)
163 #define PL_stack_sp		(vTHX->Tstack_sp)
164 #define PL_start_env		(vTHX->Tstart_env)
165 #define PL_statbuf		(vTHX->Tstatbuf)
166 #define PL_statcache		(vTHX->Tstatcache)
167 #define PL_statgv		(vTHX->Tstatgv)
168 #define PL_statname		(vTHX->Tstatname)
169 #define PL_tainted		(vTHX->Ttainted)
170 #define PL_timesbuf		(vTHX->Ttimesbuf)
171 #define PL_tmps_floor		(vTHX->Ttmps_floor)
172 #define PL_tmps_ix		(vTHX->Ttmps_ix)
173 #define PL_tmps_max		(vTHX->Ttmps_max)
174 #define PL_tmps_stack		(vTHX->Ttmps_stack)
175 #define PL_top_env		(vTHX->Ttop_env)
176 #define PL_toptarget		(vTHX->Ttoptarget)
177 #define PL_watchaddr		(vTHX->Twatchaddr)
178 #define PL_watchok		(vTHX->Twatchok)
179 
180 #  if defined(USE_5005THREADS)
181 /* case 5 above */
182 
183 #define PL_Argv			(PERL_GET_INTERP->IArgv)
184 #define PL_BINCOMPAT0		(PERL_GET_INTERP->IBINCOMPAT0)
185 #define PL_Cmd			(PERL_GET_INTERP->ICmd)
186 #define PL_DBcv			(PERL_GET_INTERP->IDBcv)
187 #define PL_DBgv			(PERL_GET_INTERP->IDBgv)
188 #define PL_DBline		(PERL_GET_INTERP->IDBline)
189 #define PL_DBsignal		(PERL_GET_INTERP->IDBsignal)
190 #define PL_DBsingle		(PERL_GET_INTERP->IDBsingle)
191 #define PL_DBsub		(PERL_GET_INTERP->IDBsub)
192 #define PL_DBtrace		(PERL_GET_INTERP->IDBtrace)
193 #define PL_Dir			(PERL_GET_INTERP->IDir)
194 #define PL_Env			(PERL_GET_INTERP->IEnv)
195 #define PL_LIO			(PERL_GET_INTERP->ILIO)
196 #define PL_Mem			(PERL_GET_INTERP->IMem)
197 #define PL_MemParse		(PERL_GET_INTERP->IMemParse)
198 #define PL_MemShared		(PERL_GET_INTERP->IMemShared)
199 #define PL_OpPtr		(PERL_GET_INTERP->IOpPtr)
200 #define PL_OpSlab		(PERL_GET_INTERP->IOpSlab)
201 #define PL_OpSpace		(PERL_GET_INTERP->IOpSpace)
202 #define PL_Proc			(PERL_GET_INTERP->IProc)
203 #define PL_Sock			(PERL_GET_INTERP->ISock)
204 #define PL_StdIO		(PERL_GET_INTERP->IStdIO)
205 #define PL_amagic_generation	(PERL_GET_INTERP->Iamagic_generation)
206 #define PL_an			(PERL_GET_INTERP->Ian)
207 #define PL_argvgv		(PERL_GET_INTERP->Iargvgv)
208 #define PL_argvout_stack	(PERL_GET_INTERP->Iargvout_stack)
209 #define PL_argvoutgv		(PERL_GET_INTERP->Iargvoutgv)
210 #define PL_basetime		(PERL_GET_INTERP->Ibasetime)
211 #define PL_beginav		(PERL_GET_INTERP->Ibeginav)
212 #define PL_beginav_save		(PERL_GET_INTERP->Ibeginav_save)
213 #define PL_bitcount		(PERL_GET_INTERP->Ibitcount)
214 #define PL_bufend		(PERL_GET_INTERP->Ibufend)
215 #define PL_bufptr		(PERL_GET_INTERP->Ibufptr)
216 #define PL_checkav		(PERL_GET_INTERP->Icheckav)
217 #define PL_checkav_save		(PERL_GET_INTERP->Icheckav_save)
218 #define PL_clocktick		(PERL_GET_INTERP->Iclocktick)
219 #define PL_collation_ix		(PERL_GET_INTERP->Icollation_ix)
220 #define PL_collation_name	(PERL_GET_INTERP->Icollation_name)
221 #define PL_collation_standard	(PERL_GET_INTERP->Icollation_standard)
222 #define PL_collxfrm_base	(PERL_GET_INTERP->Icollxfrm_base)
223 #define PL_collxfrm_mult	(PERL_GET_INTERP->Icollxfrm_mult)
224 #define PL_compcv		(PERL_GET_INTERP->Icompcv)
225 #define PL_compiling		(PERL_GET_INTERP->Icompiling)
226 #define PL_comppad_name		(PERL_GET_INTERP->Icomppad_name)
227 #define PL_comppad_name_fill	(PERL_GET_INTERP->Icomppad_name_fill)
228 #define PL_comppad_name_floor	(PERL_GET_INTERP->Icomppad_name_floor)
229 #define PL_cop_seqmax		(PERL_GET_INTERP->Icop_seqmax)
230 #define PL_copline		(PERL_GET_INTERP->Icopline)
231 #define PL_cred_mutex		(PERL_GET_INTERP->Icred_mutex)
232 #define PL_cryptseen		(PERL_GET_INTERP->Icryptseen)
233 #define PL_cshlen		(PERL_GET_INTERP->Icshlen)
234 #define PL_cshname		(PERL_GET_INTERP->Icshname)
235 #define PL_curcopdb		(PERL_GET_INTERP->Icurcopdb)
236 #define PL_curstname		(PERL_GET_INTERP->Icurstname)
237 #define PL_curthr		(PERL_GET_INTERP->Icurthr)
238 #define PL_custom_op_descs	(PERL_GET_INTERP->Icustom_op_descs)
239 #define PL_custom_op_names	(PERL_GET_INTERP->Icustom_op_names)
240 #define PL_dbargs		(PERL_GET_INTERP->Idbargs)
241 #define PL_debstash		(PERL_GET_INTERP->Idebstash)
242 #define PL_debug		(PERL_GET_INTERP->Idebug)
243 #define PL_debug_pad		(PERL_GET_INTERP->Idebug_pad)
244 #define PL_def_layerlist	(PERL_GET_INTERP->Idef_layerlist)
245 #define PL_defgv		(PERL_GET_INTERP->Idefgv)
246 #define PL_diehook		(PERL_GET_INTERP->Idiehook)
247 #define PL_doextract		(PERL_GET_INTERP->Idoextract)
248 #define PL_doswitches		(PERL_GET_INTERP->Idoswitches)
249 #define PL_dowarn		(PERL_GET_INTERP->Idowarn)
250 #define PL_e_script		(PERL_GET_INTERP->Ie_script)
251 #define PL_egid			(PERL_GET_INTERP->Iegid)
252 #define PL_encoding		(PERL_GET_INTERP->Iencoding)
253 #define PL_endav		(PERL_GET_INTERP->Iendav)
254 #define PL_envgv		(PERL_GET_INTERP->Ienvgv)
255 #define PL_errgv		(PERL_GET_INTERP->Ierrgv)
256 #define PL_error_count		(PERL_GET_INTERP->Ierror_count)
257 #define PL_euid			(PERL_GET_INTERP->Ieuid)
258 #define PL_eval_cond		(PERL_GET_INTERP->Ieval_cond)
259 #define PL_eval_mutex		(PERL_GET_INTERP->Ieval_mutex)
260 #define PL_eval_owner		(PERL_GET_INTERP->Ieval_owner)
261 #define PL_eval_root		(PERL_GET_INTERP->Ieval_root)
262 #define PL_eval_start		(PERL_GET_INTERP->Ieval_start)
263 #define PL_evalseq		(PERL_GET_INTERP->Ievalseq)
264 #define PL_exit_flags		(PERL_GET_INTERP->Iexit_flags)
265 #define PL_exitlist		(PERL_GET_INTERP->Iexitlist)
266 #define PL_exitlistlen		(PERL_GET_INTERP->Iexitlistlen)
267 #define PL_expect		(PERL_GET_INTERP->Iexpect)
268 #define PL_fdpid		(PERL_GET_INTERP->Ifdpid)
269 #define PL_fdpid_mutex		(PERL_GET_INTERP->Ifdpid_mutex)
270 #define PL_fdscript		(PERL_GET_INTERP->Ifdscript)
271 #define PL_filemode		(PERL_GET_INTERP->Ifilemode)
272 #define PL_forkprocess		(PERL_GET_INTERP->Iforkprocess)
273 #define PL_formfeed		(PERL_GET_INTERP->Iformfeed)
274 #define PL_generation		(PERL_GET_INTERP->Igeneration)
275 #define PL_gensym		(PERL_GET_INTERP->Igensym)
276 #define PL_gid			(PERL_GET_INTERP->Igid)
277 #define PL_glob_index		(PERL_GET_INTERP->Iglob_index)
278 #define PL_globalstash		(PERL_GET_INTERP->Iglobalstash)
279 #define PL_hash_seed		(PERL_GET_INTERP->Ihash_seed)
280 #define PL_hash_seed_set	(PERL_GET_INTERP->Ihash_seed_set)
281 #define PL_he_arenaroot		(PERL_GET_INTERP->Ihe_arenaroot)
282 #define PL_he_root		(PERL_GET_INTERP->Ihe_root)
283 #define PL_hintgv		(PERL_GET_INTERP->Ihintgv)
284 #define PL_hints		(PERL_GET_INTERP->Ihints)
285 #define PL_in_clean_all		(PERL_GET_INTERP->Iin_clean_all)
286 #define PL_in_clean_objs	(PERL_GET_INTERP->Iin_clean_objs)
287 #define PL_in_load_module	(PERL_GET_INTERP->Iin_load_module)
288 #define PL_in_my		(PERL_GET_INTERP->Iin_my)
289 #define PL_in_my_stash		(PERL_GET_INTERP->Iin_my_stash)
290 #define PL_incgv		(PERL_GET_INTERP->Iincgv)
291 #define PL_initav		(PERL_GET_INTERP->Iinitav)
292 #define PL_inplace		(PERL_GET_INTERP->Iinplace)
293 #define PL_known_layers		(PERL_GET_INTERP->Iknown_layers)
294 #define PL_last_lop		(PERL_GET_INTERP->Ilast_lop)
295 #define PL_last_lop_op		(PERL_GET_INTERP->Ilast_lop_op)
296 #define PL_last_swash_hv	(PERL_GET_INTERP->Ilast_swash_hv)
297 #define PL_last_swash_key	(PERL_GET_INTERP->Ilast_swash_key)
298 #define PL_last_swash_klen	(PERL_GET_INTERP->Ilast_swash_klen)
299 #define PL_last_swash_slen	(PERL_GET_INTERP->Ilast_swash_slen)
300 #define PL_last_swash_tmps	(PERL_GET_INTERP->Ilast_swash_tmps)
301 #define PL_last_uni		(PERL_GET_INTERP->Ilast_uni)
302 #define PL_lastfd		(PERL_GET_INTERP->Ilastfd)
303 #define PL_laststatval		(PERL_GET_INTERP->Ilaststatval)
304 #define PL_laststype		(PERL_GET_INTERP->Ilaststype)
305 #define PL_lex_brackets		(PERL_GET_INTERP->Ilex_brackets)
306 #define PL_lex_brackstack	(PERL_GET_INTERP->Ilex_brackstack)
307 #define PL_lex_casemods		(PERL_GET_INTERP->Ilex_casemods)
308 #define PL_lex_casestack	(PERL_GET_INTERP->Ilex_casestack)
309 #define PL_lex_defer		(PERL_GET_INTERP->Ilex_defer)
310 #define PL_lex_dojoin		(PERL_GET_INTERP->Ilex_dojoin)
311 #define PL_lex_expect		(PERL_GET_INTERP->Ilex_expect)
312 #define PL_lex_formbrack	(PERL_GET_INTERP->Ilex_formbrack)
313 #define PL_lex_inpat		(PERL_GET_INTERP->Ilex_inpat)
314 #define PL_lex_inwhat		(PERL_GET_INTERP->Ilex_inwhat)
315 #define PL_lex_op		(PERL_GET_INTERP->Ilex_op)
316 #define PL_lex_repl		(PERL_GET_INTERP->Ilex_repl)
317 #define PL_lex_starts		(PERL_GET_INTERP->Ilex_starts)
318 #define PL_lex_state		(PERL_GET_INTERP->Ilex_state)
319 #define PL_lex_stuff		(PERL_GET_INTERP->Ilex_stuff)
320 #define PL_lineary		(PERL_GET_INTERP->Ilineary)
321 #define PL_linestart		(PERL_GET_INTERP->Ilinestart)
322 #define PL_linestr		(PERL_GET_INTERP->Ilinestr)
323 #define PL_localpatches		(PERL_GET_INTERP->Ilocalpatches)
324 #define PL_lockhook		(PERL_GET_INTERP->Ilockhook)
325 #define PL_main_cv		(PERL_GET_INTERP->Imain_cv)
326 #define PL_main_root		(PERL_GET_INTERP->Imain_root)
327 #define PL_main_start		(PERL_GET_INTERP->Imain_start)
328 #define PL_max_intro_pending	(PERL_GET_INTERP->Imax_intro_pending)
329 #define PL_maxo			(PERL_GET_INTERP->Imaxo)
330 #define PL_maxsysfd		(PERL_GET_INTERP->Imaxsysfd)
331 #define PL_mess_sv		(PERL_GET_INTERP->Imess_sv)
332 #define PL_min_intro_pending	(PERL_GET_INTERP->Imin_intro_pending)
333 #define PL_minus_F		(PERL_GET_INTERP->Iminus_F)
334 #define PL_minus_a		(PERL_GET_INTERP->Iminus_a)
335 #define PL_minus_c		(PERL_GET_INTERP->Iminus_c)
336 #define PL_minus_l		(PERL_GET_INTERP->Iminus_l)
337 #define PL_minus_n		(PERL_GET_INTERP->Iminus_n)
338 #define PL_minus_p		(PERL_GET_INTERP->Iminus_p)
339 #define PL_modglobal		(PERL_GET_INTERP->Imodglobal)
340 #define PL_multi_close		(PERL_GET_INTERP->Imulti_close)
341 #define PL_multi_end		(PERL_GET_INTERP->Imulti_end)
342 #define PL_multi_open		(PERL_GET_INTERP->Imulti_open)
343 #define PL_multi_start		(PERL_GET_INTERP->Imulti_start)
344 #define PL_multiline		(PERL_GET_INTERP->Imultiline)
345 #define PL_nexttoke		(PERL_GET_INTERP->Inexttoke)
346 #define PL_nexttype		(PERL_GET_INTERP->Inexttype)
347 #define PL_nextval		(PERL_GET_INTERP->Inextval)
348 #define PL_nice_chunk		(PERL_GET_INTERP->Inice_chunk)
349 #define PL_nice_chunk_size	(PERL_GET_INTERP->Inice_chunk_size)
350 #define PL_nomemok		(PERL_GET_INTERP->Inomemok)
351 #define PL_nthreads		(PERL_GET_INTERP->Inthreads)
352 #define PL_nthreads_cond	(PERL_GET_INTERP->Inthreads_cond)
353 #define PL_nullstash		(PERL_GET_INTERP->Inullstash)
354 #define PL_numeric_compat1	(PERL_GET_INTERP->Inumeric_compat1)
355 #define PL_numeric_local	(PERL_GET_INTERP->Inumeric_local)
356 #define PL_numeric_name		(PERL_GET_INTERP->Inumeric_name)
357 #define PL_numeric_radix_sv	(PERL_GET_INTERP->Inumeric_radix_sv)
358 #define PL_numeric_standard	(PERL_GET_INTERP->Inumeric_standard)
359 #define PL_ofmt			(PERL_GET_INTERP->Iofmt)
360 #define PL_oldbufptr		(PERL_GET_INTERP->Ioldbufptr)
361 #define PL_oldname		(PERL_GET_INTERP->Ioldname)
362 #define PL_oldoldbufptr		(PERL_GET_INTERP->Ioldoldbufptr)
363 #define PL_op_mask		(PERL_GET_INTERP->Iop_mask)
364 #define PL_op_seqmax		(PERL_GET_INTERP->Iop_seqmax)
365 #define PL_origalen		(PERL_GET_INTERP->Iorigalen)
366 #define PL_origargc		(PERL_GET_INTERP->Iorigargc)
367 #define PL_origargv		(PERL_GET_INTERP->Iorigargv)
368 #define PL_origenviron		(PERL_GET_INTERP->Iorigenviron)
369 #define PL_origfilename		(PERL_GET_INTERP->Iorigfilename)
370 #define PL_ors_sv		(PERL_GET_INTERP->Iors_sv)
371 #define PL_osname		(PERL_GET_INTERP->Iosname)
372 #define PL_pad_reset_pending	(PERL_GET_INTERP->Ipad_reset_pending)
373 #define PL_padix		(PERL_GET_INTERP->Ipadix)
374 #define PL_padix_floor		(PERL_GET_INTERP->Ipadix_floor)
375 #define PL_patchlevel		(PERL_GET_INTERP->Ipatchlevel)
376 #define PL_pending_ident	(PERL_GET_INTERP->Ipending_ident)
377 #define PL_perl_destruct_level	(PERL_GET_INTERP->Iperl_destruct_level)
378 #define PL_perldb		(PERL_GET_INTERP->Iperldb)
379 #define PL_perlio		(PERL_GET_INTERP->Iperlio)
380 #define PL_pidstatus		(PERL_GET_INTERP->Ipidstatus)
381 #define PL_ppid			(PERL_GET_INTERP->Ippid)
382 #define PL_preambleav		(PERL_GET_INTERP->Ipreambleav)
383 #define PL_preambled		(PERL_GET_INTERP->Ipreambled)
384 #define PL_preprocess		(PERL_GET_INTERP->Ipreprocess)
385 #define PL_profiledata		(PERL_GET_INTERP->Iprofiledata)
386 #define PL_psig_name		(PERL_GET_INTERP->Ipsig_name)
387 #define PL_psig_pend		(PERL_GET_INTERP->Ipsig_pend)
388 #define PL_psig_ptr		(PERL_GET_INTERP->Ipsig_ptr)
389 #define PL_ptr_table		(PERL_GET_INTERP->Iptr_table)
390 #define PL_reentrant_buffer	(PERL_GET_INTERP->Ireentrant_buffer)
391 #define PL_reentrant_retint	(PERL_GET_INTERP->Ireentrant_retint)
392 #define PL_regex_pad		(PERL_GET_INTERP->Iregex_pad)
393 #define PL_regex_padav		(PERL_GET_INTERP->Iregex_padav)
394 #define PL_rehash_seed		(PERL_GET_INTERP->Irehash_seed)
395 #define PL_rehash_seed_set	(PERL_GET_INTERP->Irehash_seed_set)
396 #define PL_replgv		(PERL_GET_INTERP->Ireplgv)
397 #define PL_rsfp			(PERL_GET_INTERP->Irsfp)
398 #define PL_rsfp_filters		(PERL_GET_INTERP->Irsfp_filters)
399 #define PL_runops		(PERL_GET_INTERP->Irunops)
400 #define PL_runops_dbg		(PERL_GET_INTERP->Irunops_dbg)
401 #define PL_runops_std		(PERL_GET_INTERP->Irunops_std)
402 #define PL_savebegin		(PERL_GET_INTERP->Isavebegin)
403 #define PL_sawampersand		(PERL_GET_INTERP->Isawampersand)
404 #define PL_sh_path_compat	(PERL_GET_INTERP->Ish_path_compat)
405 #define PL_sharehook		(PERL_GET_INTERP->Isharehook)
406 #define PL_sig_pending		(PERL_GET_INTERP->Isig_pending)
407 #define PL_sighandlerp		(PERL_GET_INTERP->Isighandlerp)
408 #define PL_signals		(PERL_GET_INTERP->Isignals)
409 #define PL_sort_RealCmp		(PERL_GET_INTERP->Isort_RealCmp)
410 #define PL_splitstr		(PERL_GET_INTERP->Isplitstr)
411 #define PL_srand_called		(PERL_GET_INTERP->Isrand_called)
412 #define PL_stashcache		(PERL_GET_INTERP->Istashcache)
413 #define PL_statusvalue		(PERL_GET_INTERP->Istatusvalue)
414 #define PL_statusvalue_vms	(PERL_GET_INTERP->Istatusvalue_vms)
415 #define PL_stderrgv		(PERL_GET_INTERP->Istderrgv)
416 #define PL_stdingv		(PERL_GET_INTERP->Istdingv)
417 #define PL_strtab		(PERL_GET_INTERP->Istrtab)
418 #define PL_strtab_mutex		(PERL_GET_INTERP->Istrtab_mutex)
419 #define PL_sub_generation	(PERL_GET_INTERP->Isub_generation)
420 #define PL_sublex_info		(PERL_GET_INTERP->Isublex_info)
421 #define PL_subline		(PERL_GET_INTERP->Isubline)
422 #define PL_subname		(PERL_GET_INTERP->Isubname)
423 #define PL_suidscript		(PERL_GET_INTERP->Isuidscript)
424 #define PL_sv_arenaroot		(PERL_GET_INTERP->Isv_arenaroot)
425 #define PL_sv_count		(PERL_GET_INTERP->Isv_count)
426 #define PL_sv_lock_mutex	(PERL_GET_INTERP->Isv_lock_mutex)
427 #define PL_sv_mutex		(PERL_GET_INTERP->Isv_mutex)
428 #define PL_sv_no		(PERL_GET_INTERP->Isv_no)
429 #define PL_sv_objcount		(PERL_GET_INTERP->Isv_objcount)
430 #define PL_sv_root		(PERL_GET_INTERP->Isv_root)
431 #define PL_sv_undef		(PERL_GET_INTERP->Isv_undef)
432 #define PL_sv_yes		(PERL_GET_INTERP->Isv_yes)
433 #define PL_svref_mutex		(PERL_GET_INTERP->Isvref_mutex)
434 #define PL_sys_intern		(PERL_GET_INTERP->Isys_intern)
435 #define PL_taint_warn		(PERL_GET_INTERP->Itaint_warn)
436 #define PL_tainting		(PERL_GET_INTERP->Itainting)
437 #define PL_threadhook		(PERL_GET_INTERP->Ithreadhook)
438 #define PL_threadnum		(PERL_GET_INTERP->Ithreadnum)
439 #define PL_threads_mutex	(PERL_GET_INTERP->Ithreads_mutex)
440 #define PL_threadsv_names	(PERL_GET_INTERP->Ithreadsv_names)
441 #define PL_thrsv		(PERL_GET_INTERP->Ithrsv)
442 #define PL_tokenbuf		(PERL_GET_INTERP->Itokenbuf)
443 #define PL_uid			(PERL_GET_INTERP->Iuid)
444 #define PL_unicode		(PERL_GET_INTERP->Iunicode)
445 #define PL_unlockhook		(PERL_GET_INTERP->Iunlockhook)
446 #define PL_unsafe		(PERL_GET_INTERP->Iunsafe)
447 #define PL_utf8_alnum		(PERL_GET_INTERP->Iutf8_alnum)
448 #define PL_utf8_alnumc		(PERL_GET_INTERP->Iutf8_alnumc)
449 #define PL_utf8_alpha		(PERL_GET_INTERP->Iutf8_alpha)
450 #define PL_utf8_ascii		(PERL_GET_INTERP->Iutf8_ascii)
451 #define PL_utf8_cntrl		(PERL_GET_INTERP->Iutf8_cntrl)
452 #define PL_utf8_digit		(PERL_GET_INTERP->Iutf8_digit)
453 #define PL_utf8_graph		(PERL_GET_INTERP->Iutf8_graph)
454 #define PL_utf8_idcont		(PERL_GET_INTERP->Iutf8_idcont)
455 #define PL_utf8_idstart		(PERL_GET_INTERP->Iutf8_idstart)
456 #define PL_utf8_lower		(PERL_GET_INTERP->Iutf8_lower)
457 #define PL_utf8_mark		(PERL_GET_INTERP->Iutf8_mark)
458 #define PL_utf8_print		(PERL_GET_INTERP->Iutf8_print)
459 #define PL_utf8_punct		(PERL_GET_INTERP->Iutf8_punct)
460 #define PL_utf8_space		(PERL_GET_INTERP->Iutf8_space)
461 #define PL_utf8_tofold		(PERL_GET_INTERP->Iutf8_tofold)
462 #define PL_utf8_tolower		(PERL_GET_INTERP->Iutf8_tolower)
463 #define PL_utf8_totitle		(PERL_GET_INTERP->Iutf8_totitle)
464 #define PL_utf8_toupper		(PERL_GET_INTERP->Iutf8_toupper)
465 #define PL_utf8_upper		(PERL_GET_INTERP->Iutf8_upper)
466 #define PL_utf8_xdigit		(PERL_GET_INTERP->Iutf8_xdigit)
467 #define PL_utf8locale		(PERL_GET_INTERP->Iutf8locale)
468 #define PL_uudmap		(PERL_GET_INTERP->Iuudmap)
469 #define PL_warnhook		(PERL_GET_INTERP->Iwarnhook)
470 #define PL_widesyscalls		(PERL_GET_INTERP->Iwidesyscalls)
471 #define PL_xiv_arenaroot	(PERL_GET_INTERP->Ixiv_arenaroot)
472 #define PL_xiv_root		(PERL_GET_INTERP->Ixiv_root)
473 #define PL_xnv_arenaroot	(PERL_GET_INTERP->Ixnv_arenaroot)
474 #define PL_xnv_root		(PERL_GET_INTERP->Ixnv_root)
475 #define PL_xpv_arenaroot	(PERL_GET_INTERP->Ixpv_arenaroot)
476 #define PL_xpv_root		(PERL_GET_INTERP->Ixpv_root)
477 #define PL_xpvav_arenaroot	(PERL_GET_INTERP->Ixpvav_arenaroot)
478 #define PL_xpvav_root		(PERL_GET_INTERP->Ixpvav_root)
479 #define PL_xpvbm_arenaroot	(PERL_GET_INTERP->Ixpvbm_arenaroot)
480 #define PL_xpvbm_root		(PERL_GET_INTERP->Ixpvbm_root)
481 #define PL_xpvcv_arenaroot	(PERL_GET_INTERP->Ixpvcv_arenaroot)
482 #define PL_xpvcv_root		(PERL_GET_INTERP->Ixpvcv_root)
483 #define PL_xpvhv_arenaroot	(PERL_GET_INTERP->Ixpvhv_arenaroot)
484 #define PL_xpvhv_root		(PERL_GET_INTERP->Ixpvhv_root)
485 #define PL_xpviv_arenaroot	(PERL_GET_INTERP->Ixpviv_arenaroot)
486 #define PL_xpviv_root		(PERL_GET_INTERP->Ixpviv_root)
487 #define PL_xpvlv_arenaroot	(PERL_GET_INTERP->Ixpvlv_arenaroot)
488 #define PL_xpvlv_root		(PERL_GET_INTERP->Ixpvlv_root)
489 #define PL_xpvmg_arenaroot	(PERL_GET_INTERP->Ixpvmg_arenaroot)
490 #define PL_xpvmg_root		(PERL_GET_INTERP->Ixpvmg_root)
491 #define PL_xpvnv_arenaroot	(PERL_GET_INTERP->Ixpvnv_arenaroot)
492 #define PL_xpvnv_root		(PERL_GET_INTERP->Ixpvnv_root)
493 #define PL_xrv_arenaroot	(PERL_GET_INTERP->Ixrv_arenaroot)
494 #define PL_xrv_root		(PERL_GET_INTERP->Ixrv_root)
495 #define PL_yychar		(PERL_GET_INTERP->Iyychar)
496 #define PL_yydebug		(PERL_GET_INTERP->Iyydebug)
497 #define PL_yyerrflag		(PERL_GET_INTERP->Iyyerrflag)
498 #define PL_yylval		(PERL_GET_INTERP->Iyylval)
499 #define PL_yynerrs		(PERL_GET_INTERP->Iyynerrs)
500 #define PL_yyval		(PERL_GET_INTERP->Iyyval)
501 
502 #  else		/* !USE_5005THREADS */
503 /* cases 2 and 3 above */
504 
505 #define PL_Argv			(vTHX->IArgv)
506 #define PL_BINCOMPAT0		(vTHX->IBINCOMPAT0)
507 #define PL_Cmd			(vTHX->ICmd)
508 #define PL_DBcv			(vTHX->IDBcv)
509 #define PL_DBgv			(vTHX->IDBgv)
510 #define PL_DBline		(vTHX->IDBline)
511 #define PL_DBsignal		(vTHX->IDBsignal)
512 #define PL_DBsingle		(vTHX->IDBsingle)
513 #define PL_DBsub		(vTHX->IDBsub)
514 #define PL_DBtrace		(vTHX->IDBtrace)
515 #define PL_Dir			(vTHX->IDir)
516 #define PL_Env			(vTHX->IEnv)
517 #define PL_LIO			(vTHX->ILIO)
518 #define PL_Mem			(vTHX->IMem)
519 #define PL_MemParse		(vTHX->IMemParse)
520 #define PL_MemShared		(vTHX->IMemShared)
521 #define PL_OpPtr		(vTHX->IOpPtr)
522 #define PL_OpSlab		(vTHX->IOpSlab)
523 #define PL_OpSpace		(vTHX->IOpSpace)
524 #define PL_Proc			(vTHX->IProc)
525 #define PL_Sock			(vTHX->ISock)
526 #define PL_StdIO		(vTHX->IStdIO)
527 #define PL_amagic_generation	(vTHX->Iamagic_generation)
528 #define PL_an			(vTHX->Ian)
529 #define PL_argvgv		(vTHX->Iargvgv)
530 #define PL_argvout_stack	(vTHX->Iargvout_stack)
531 #define PL_argvoutgv		(vTHX->Iargvoutgv)
532 #define PL_basetime		(vTHX->Ibasetime)
533 #define PL_beginav		(vTHX->Ibeginav)
534 #define PL_beginav_save		(vTHX->Ibeginav_save)
535 #define PL_bitcount		(vTHX->Ibitcount)
536 #define PL_bufend		(vTHX->Ibufend)
537 #define PL_bufptr		(vTHX->Ibufptr)
538 #define PL_checkav		(vTHX->Icheckav)
539 #define PL_checkav_save		(vTHX->Icheckav_save)
540 #define PL_clocktick		(vTHX->Iclocktick)
541 #define PL_collation_ix		(vTHX->Icollation_ix)
542 #define PL_collation_name	(vTHX->Icollation_name)
543 #define PL_collation_standard	(vTHX->Icollation_standard)
544 #define PL_collxfrm_base	(vTHX->Icollxfrm_base)
545 #define PL_collxfrm_mult	(vTHX->Icollxfrm_mult)
546 #define PL_compcv		(vTHX->Icompcv)
547 #define PL_compiling		(vTHX->Icompiling)
548 #define PL_comppad_name		(vTHX->Icomppad_name)
549 #define PL_comppad_name_fill	(vTHX->Icomppad_name_fill)
550 #define PL_comppad_name_floor	(vTHX->Icomppad_name_floor)
551 #define PL_cop_seqmax		(vTHX->Icop_seqmax)
552 #define PL_copline		(vTHX->Icopline)
553 #define PL_cred_mutex		(vTHX->Icred_mutex)
554 #define PL_cryptseen		(vTHX->Icryptseen)
555 #define PL_cshlen		(vTHX->Icshlen)
556 #define PL_cshname		(vTHX->Icshname)
557 #define PL_curcopdb		(vTHX->Icurcopdb)
558 #define PL_curstname		(vTHX->Icurstname)
559 #define PL_curthr		(vTHX->Icurthr)
560 #define PL_custom_op_descs	(vTHX->Icustom_op_descs)
561 #define PL_custom_op_names	(vTHX->Icustom_op_names)
562 #define PL_dbargs		(vTHX->Idbargs)
563 #define PL_debstash		(vTHX->Idebstash)
564 #define PL_debug		(vTHX->Idebug)
565 #define PL_debug_pad		(vTHX->Idebug_pad)
566 #define PL_def_layerlist	(vTHX->Idef_layerlist)
567 #define PL_defgv		(vTHX->Idefgv)
568 #define PL_diehook		(vTHX->Idiehook)
569 #define PL_doextract		(vTHX->Idoextract)
570 #define PL_doswitches		(vTHX->Idoswitches)
571 #define PL_dowarn		(vTHX->Idowarn)
572 #define PL_e_script		(vTHX->Ie_script)
573 #define PL_egid			(vTHX->Iegid)
574 #define PL_encoding		(vTHX->Iencoding)
575 #define PL_endav		(vTHX->Iendav)
576 #define PL_envgv		(vTHX->Ienvgv)
577 #define PL_errgv		(vTHX->Ierrgv)
578 #define PL_error_count		(vTHX->Ierror_count)
579 #define PL_euid			(vTHX->Ieuid)
580 #define PL_eval_cond		(vTHX->Ieval_cond)
581 #define PL_eval_mutex		(vTHX->Ieval_mutex)
582 #define PL_eval_owner		(vTHX->Ieval_owner)
583 #define PL_eval_root		(vTHX->Ieval_root)
584 #define PL_eval_start		(vTHX->Ieval_start)
585 #define PL_evalseq		(vTHX->Ievalseq)
586 #define PL_exit_flags		(vTHX->Iexit_flags)
587 #define PL_exitlist		(vTHX->Iexitlist)
588 #define PL_exitlistlen		(vTHX->Iexitlistlen)
589 #define PL_expect		(vTHX->Iexpect)
590 #define PL_fdpid		(vTHX->Ifdpid)
591 #define PL_fdpid_mutex		(vTHX->Ifdpid_mutex)
592 #define PL_fdscript		(vTHX->Ifdscript)
593 #define PL_filemode		(vTHX->Ifilemode)
594 #define PL_forkprocess		(vTHX->Iforkprocess)
595 #define PL_formfeed		(vTHX->Iformfeed)
596 #define PL_generation		(vTHX->Igeneration)
597 #define PL_gensym		(vTHX->Igensym)
598 #define PL_gid			(vTHX->Igid)
599 #define PL_glob_index		(vTHX->Iglob_index)
600 #define PL_globalstash		(vTHX->Iglobalstash)
601 #define PL_hash_seed		(vTHX->Ihash_seed)
602 #define PL_hash_seed_set	(vTHX->Ihash_seed_set)
603 #define PL_he_arenaroot		(vTHX->Ihe_arenaroot)
604 #define PL_he_root		(vTHX->Ihe_root)
605 #define PL_hintgv		(vTHX->Ihintgv)
606 #define PL_hints		(vTHX->Ihints)
607 #define PL_in_clean_all		(vTHX->Iin_clean_all)
608 #define PL_in_clean_objs	(vTHX->Iin_clean_objs)
609 #define PL_in_load_module	(vTHX->Iin_load_module)
610 #define PL_in_my		(vTHX->Iin_my)
611 #define PL_in_my_stash		(vTHX->Iin_my_stash)
612 #define PL_incgv		(vTHX->Iincgv)
613 #define PL_initav		(vTHX->Iinitav)
614 #define PL_inplace		(vTHX->Iinplace)
615 #define PL_known_layers		(vTHX->Iknown_layers)
616 #define PL_last_lop		(vTHX->Ilast_lop)
617 #define PL_last_lop_op		(vTHX->Ilast_lop_op)
618 #define PL_last_swash_hv	(vTHX->Ilast_swash_hv)
619 #define PL_last_swash_key	(vTHX->Ilast_swash_key)
620 #define PL_last_swash_klen	(vTHX->Ilast_swash_klen)
621 #define PL_last_swash_slen	(vTHX->Ilast_swash_slen)
622 #define PL_last_swash_tmps	(vTHX->Ilast_swash_tmps)
623 #define PL_last_uni		(vTHX->Ilast_uni)
624 #define PL_lastfd		(vTHX->Ilastfd)
625 #define PL_laststatval		(vTHX->Ilaststatval)
626 #define PL_laststype		(vTHX->Ilaststype)
627 #define PL_lex_brackets		(vTHX->Ilex_brackets)
628 #define PL_lex_brackstack	(vTHX->Ilex_brackstack)
629 #define PL_lex_casemods		(vTHX->Ilex_casemods)
630 #define PL_lex_casestack	(vTHX->Ilex_casestack)
631 #define PL_lex_defer		(vTHX->Ilex_defer)
632 #define PL_lex_dojoin		(vTHX->Ilex_dojoin)
633 #define PL_lex_expect		(vTHX->Ilex_expect)
634 #define PL_lex_formbrack	(vTHX->Ilex_formbrack)
635 #define PL_lex_inpat		(vTHX->Ilex_inpat)
636 #define PL_lex_inwhat		(vTHX->Ilex_inwhat)
637 #define PL_lex_op		(vTHX->Ilex_op)
638 #define PL_lex_repl		(vTHX->Ilex_repl)
639 #define PL_lex_starts		(vTHX->Ilex_starts)
640 #define PL_lex_state		(vTHX->Ilex_state)
641 #define PL_lex_stuff		(vTHX->Ilex_stuff)
642 #define PL_lineary		(vTHX->Ilineary)
643 #define PL_linestart		(vTHX->Ilinestart)
644 #define PL_linestr		(vTHX->Ilinestr)
645 #define PL_localpatches		(vTHX->Ilocalpatches)
646 #define PL_lockhook		(vTHX->Ilockhook)
647 #define PL_main_cv		(vTHX->Imain_cv)
648 #define PL_main_root		(vTHX->Imain_root)
649 #define PL_main_start		(vTHX->Imain_start)
650 #define PL_max_intro_pending	(vTHX->Imax_intro_pending)
651 #define PL_maxo			(vTHX->Imaxo)
652 #define PL_maxsysfd		(vTHX->Imaxsysfd)
653 #define PL_mess_sv		(vTHX->Imess_sv)
654 #define PL_min_intro_pending	(vTHX->Imin_intro_pending)
655 #define PL_minus_F		(vTHX->Iminus_F)
656 #define PL_minus_a		(vTHX->Iminus_a)
657 #define PL_minus_c		(vTHX->Iminus_c)
658 #define PL_minus_l		(vTHX->Iminus_l)
659 #define PL_minus_n		(vTHX->Iminus_n)
660 #define PL_minus_p		(vTHX->Iminus_p)
661 #define PL_modglobal		(vTHX->Imodglobal)
662 #define PL_multi_close		(vTHX->Imulti_close)
663 #define PL_multi_end		(vTHX->Imulti_end)
664 #define PL_multi_open		(vTHX->Imulti_open)
665 #define PL_multi_start		(vTHX->Imulti_start)
666 #define PL_multiline		(vTHX->Imultiline)
667 #define PL_nexttoke		(vTHX->Inexttoke)
668 #define PL_nexttype		(vTHX->Inexttype)
669 #define PL_nextval		(vTHX->Inextval)
670 #define PL_nice_chunk		(vTHX->Inice_chunk)
671 #define PL_nice_chunk_size	(vTHX->Inice_chunk_size)
672 #define PL_nomemok		(vTHX->Inomemok)
673 #define PL_nthreads		(vTHX->Inthreads)
674 #define PL_nthreads_cond	(vTHX->Inthreads_cond)
675 #define PL_nullstash		(vTHX->Inullstash)
676 #define PL_numeric_compat1	(vTHX->Inumeric_compat1)
677 #define PL_numeric_local	(vTHX->Inumeric_local)
678 #define PL_numeric_name		(vTHX->Inumeric_name)
679 #define PL_numeric_radix_sv	(vTHX->Inumeric_radix_sv)
680 #define PL_numeric_standard	(vTHX->Inumeric_standard)
681 #define PL_ofmt			(vTHX->Iofmt)
682 #define PL_oldbufptr		(vTHX->Ioldbufptr)
683 #define PL_oldname		(vTHX->Ioldname)
684 #define PL_oldoldbufptr		(vTHX->Ioldoldbufptr)
685 #define PL_op_mask		(vTHX->Iop_mask)
686 #define PL_op_seqmax		(vTHX->Iop_seqmax)
687 #define PL_origalen		(vTHX->Iorigalen)
688 #define PL_origargc		(vTHX->Iorigargc)
689 #define PL_origargv		(vTHX->Iorigargv)
690 #define PL_origenviron		(vTHX->Iorigenviron)
691 #define PL_origfilename		(vTHX->Iorigfilename)
692 #define PL_ors_sv		(vTHX->Iors_sv)
693 #define PL_osname		(vTHX->Iosname)
694 #define PL_pad_reset_pending	(vTHX->Ipad_reset_pending)
695 #define PL_padix		(vTHX->Ipadix)
696 #define PL_padix_floor		(vTHX->Ipadix_floor)
697 #define PL_patchlevel		(vTHX->Ipatchlevel)
698 #define PL_pending_ident	(vTHX->Ipending_ident)
699 #define PL_perl_destruct_level	(vTHX->Iperl_destruct_level)
700 #define PL_perldb		(vTHX->Iperldb)
701 #define PL_perlio		(vTHX->Iperlio)
702 #define PL_pidstatus		(vTHX->Ipidstatus)
703 #define PL_ppid			(vTHX->Ippid)
704 #define PL_preambleav		(vTHX->Ipreambleav)
705 #define PL_preambled		(vTHX->Ipreambled)
706 #define PL_preprocess		(vTHX->Ipreprocess)
707 #define PL_profiledata		(vTHX->Iprofiledata)
708 #define PL_psig_name		(vTHX->Ipsig_name)
709 #define PL_psig_pend		(vTHX->Ipsig_pend)
710 #define PL_psig_ptr		(vTHX->Ipsig_ptr)
711 #define PL_ptr_table		(vTHX->Iptr_table)
712 #define PL_reentrant_buffer	(vTHX->Ireentrant_buffer)
713 #define PL_reentrant_retint	(vTHX->Ireentrant_retint)
714 #define PL_regex_pad		(vTHX->Iregex_pad)
715 #define PL_regex_padav		(vTHX->Iregex_padav)
716 #define PL_rehash_seed		(vTHX->Irehash_seed)
717 #define PL_rehash_seed_set	(vTHX->Irehash_seed_set)
718 #define PL_replgv		(vTHX->Ireplgv)
719 #define PL_rsfp			(vTHX->Irsfp)
720 #define PL_rsfp_filters		(vTHX->Irsfp_filters)
721 #define PL_runops		(vTHX->Irunops)
722 #define PL_runops_dbg		(vTHX->Irunops_dbg)
723 #define PL_runops_std		(vTHX->Irunops_std)
724 #define PL_savebegin		(vTHX->Isavebegin)
725 #define PL_sawampersand		(vTHX->Isawampersand)
726 #define PL_sh_path_compat	(vTHX->Ish_path_compat)
727 #define PL_sharehook		(vTHX->Isharehook)
728 #define PL_sig_pending		(vTHX->Isig_pending)
729 #define PL_sighandlerp		(vTHX->Isighandlerp)
730 #define PL_signals		(vTHX->Isignals)
731 #define PL_sort_RealCmp		(vTHX->Isort_RealCmp)
732 #define PL_splitstr		(vTHX->Isplitstr)
733 #define PL_srand_called		(vTHX->Isrand_called)
734 #define PL_stashcache		(vTHX->Istashcache)
735 #define PL_statusvalue		(vTHX->Istatusvalue)
736 #define PL_statusvalue_vms	(vTHX->Istatusvalue_vms)
737 #define PL_stderrgv		(vTHX->Istderrgv)
738 #define PL_stdingv		(vTHX->Istdingv)
739 #define PL_strtab		(vTHX->Istrtab)
740 #define PL_strtab_mutex		(vTHX->Istrtab_mutex)
741 #define PL_sub_generation	(vTHX->Isub_generation)
742 #define PL_sublex_info		(vTHX->Isublex_info)
743 #define PL_subline		(vTHX->Isubline)
744 #define PL_subname		(vTHX->Isubname)
745 #define PL_suidscript		(vTHX->Isuidscript)
746 #define PL_sv_arenaroot		(vTHX->Isv_arenaroot)
747 #define PL_sv_count		(vTHX->Isv_count)
748 #define PL_sv_lock_mutex	(vTHX->Isv_lock_mutex)
749 #define PL_sv_mutex		(vTHX->Isv_mutex)
750 #define PL_sv_no		(vTHX->Isv_no)
751 #define PL_sv_objcount		(vTHX->Isv_objcount)
752 #define PL_sv_root		(vTHX->Isv_root)
753 #define PL_sv_undef		(vTHX->Isv_undef)
754 #define PL_sv_yes		(vTHX->Isv_yes)
755 #define PL_svref_mutex		(vTHX->Isvref_mutex)
756 #define PL_sys_intern		(vTHX->Isys_intern)
757 #define PL_taint_warn		(vTHX->Itaint_warn)
758 #define PL_tainting		(vTHX->Itainting)
759 #define PL_threadhook		(vTHX->Ithreadhook)
760 #define PL_threadnum		(vTHX->Ithreadnum)
761 #define PL_threads_mutex	(vTHX->Ithreads_mutex)
762 #define PL_threadsv_names	(vTHX->Ithreadsv_names)
763 #define PL_thrsv		(vTHX->Ithrsv)
764 #define PL_tokenbuf		(vTHX->Itokenbuf)
765 #define PL_uid			(vTHX->Iuid)
766 #define PL_unicode		(vTHX->Iunicode)
767 #define PL_unlockhook		(vTHX->Iunlockhook)
768 #define PL_unsafe		(vTHX->Iunsafe)
769 #define PL_utf8_alnum		(vTHX->Iutf8_alnum)
770 #define PL_utf8_alnumc		(vTHX->Iutf8_alnumc)
771 #define PL_utf8_alpha		(vTHX->Iutf8_alpha)
772 #define PL_utf8_ascii		(vTHX->Iutf8_ascii)
773 #define PL_utf8_cntrl		(vTHX->Iutf8_cntrl)
774 #define PL_utf8_digit		(vTHX->Iutf8_digit)
775 #define PL_utf8_graph		(vTHX->Iutf8_graph)
776 #define PL_utf8_idcont		(vTHX->Iutf8_idcont)
777 #define PL_utf8_idstart		(vTHX->Iutf8_idstart)
778 #define PL_utf8_lower		(vTHX->Iutf8_lower)
779 #define PL_utf8_mark		(vTHX->Iutf8_mark)
780 #define PL_utf8_print		(vTHX->Iutf8_print)
781 #define PL_utf8_punct		(vTHX->Iutf8_punct)
782 #define PL_utf8_space		(vTHX->Iutf8_space)
783 #define PL_utf8_tofold		(vTHX->Iutf8_tofold)
784 #define PL_utf8_tolower		(vTHX->Iutf8_tolower)
785 #define PL_utf8_totitle		(vTHX->Iutf8_totitle)
786 #define PL_utf8_toupper		(vTHX->Iutf8_toupper)
787 #define PL_utf8_upper		(vTHX->Iutf8_upper)
788 #define PL_utf8_xdigit		(vTHX->Iutf8_xdigit)
789 #define PL_utf8locale		(vTHX->Iutf8locale)
790 #define PL_uudmap		(vTHX->Iuudmap)
791 #define PL_warnhook		(vTHX->Iwarnhook)
792 #define PL_widesyscalls		(vTHX->Iwidesyscalls)
793 #define PL_xiv_arenaroot	(vTHX->Ixiv_arenaroot)
794 #define PL_xiv_root		(vTHX->Ixiv_root)
795 #define PL_xnv_arenaroot	(vTHX->Ixnv_arenaroot)
796 #define PL_xnv_root		(vTHX->Ixnv_root)
797 #define PL_xpv_arenaroot	(vTHX->Ixpv_arenaroot)
798 #define PL_xpv_root		(vTHX->Ixpv_root)
799 #define PL_xpvav_arenaroot	(vTHX->Ixpvav_arenaroot)
800 #define PL_xpvav_root		(vTHX->Ixpvav_root)
801 #define PL_xpvbm_arenaroot	(vTHX->Ixpvbm_arenaroot)
802 #define PL_xpvbm_root		(vTHX->Ixpvbm_root)
803 #define PL_xpvcv_arenaroot	(vTHX->Ixpvcv_arenaroot)
804 #define PL_xpvcv_root		(vTHX->Ixpvcv_root)
805 #define PL_xpvhv_arenaroot	(vTHX->Ixpvhv_arenaroot)
806 #define PL_xpvhv_root		(vTHX->Ixpvhv_root)
807 #define PL_xpviv_arenaroot	(vTHX->Ixpviv_arenaroot)
808 #define PL_xpviv_root		(vTHX->Ixpviv_root)
809 #define PL_xpvlv_arenaroot	(vTHX->Ixpvlv_arenaroot)
810 #define PL_xpvlv_root		(vTHX->Ixpvlv_root)
811 #define PL_xpvmg_arenaroot	(vTHX->Ixpvmg_arenaroot)
812 #define PL_xpvmg_root		(vTHX->Ixpvmg_root)
813 #define PL_xpvnv_arenaroot	(vTHX->Ixpvnv_arenaroot)
814 #define PL_xpvnv_root		(vTHX->Ixpvnv_root)
815 #define PL_xrv_arenaroot	(vTHX->Ixrv_arenaroot)
816 #define PL_xrv_root		(vTHX->Ixrv_root)
817 #define PL_yychar		(vTHX->Iyychar)
818 #define PL_yydebug		(vTHX->Iyydebug)
819 #define PL_yyerrflag		(vTHX->Iyyerrflag)
820 #define PL_yylval		(vTHX->Iyylval)
821 #define PL_yynerrs		(vTHX->Iyynerrs)
822 #define PL_yyval		(vTHX->Iyyval)
823 
824 #  endif	/* USE_5005THREADS */
825 
826 #else	/* !MULTIPLICITY */
827 
828 /* cases 1 and 4 above */
829 
830 #define PL_IArgv		PL_Argv
831 #define PL_IBINCOMPAT0		PL_BINCOMPAT0
832 #define PL_ICmd			PL_Cmd
833 #define PL_IDBcv		PL_DBcv
834 #define PL_IDBgv		PL_DBgv
835 #define PL_IDBline		PL_DBline
836 #define PL_IDBsignal		PL_DBsignal
837 #define PL_IDBsingle		PL_DBsingle
838 #define PL_IDBsub		PL_DBsub
839 #define PL_IDBtrace		PL_DBtrace
840 #define PL_IDir			PL_Dir
841 #define PL_IEnv			PL_Env
842 #define PL_ILIO			PL_LIO
843 #define PL_IMem			PL_Mem
844 #define PL_IMemParse		PL_MemParse
845 #define PL_IMemShared		PL_MemShared
846 #define PL_IOpPtr		PL_OpPtr
847 #define PL_IOpSlab		PL_OpSlab
848 #define PL_IOpSpace		PL_OpSpace
849 #define PL_IProc		PL_Proc
850 #define PL_ISock		PL_Sock
851 #define PL_IStdIO		PL_StdIO
852 #define PL_Iamagic_generation	PL_amagic_generation
853 #define PL_Ian			PL_an
854 #define PL_Iargvgv		PL_argvgv
855 #define PL_Iargvout_stack	PL_argvout_stack
856 #define PL_Iargvoutgv		PL_argvoutgv
857 #define PL_Ibasetime		PL_basetime
858 #define PL_Ibeginav		PL_beginav
859 #define PL_Ibeginav_save	PL_beginav_save
860 #define PL_Ibitcount		PL_bitcount
861 #define PL_Ibufend		PL_bufend
862 #define PL_Ibufptr		PL_bufptr
863 #define PL_Icheckav		PL_checkav
864 #define PL_Icheckav_save	PL_checkav_save
865 #define PL_Iclocktick		PL_clocktick
866 #define PL_Icollation_ix	PL_collation_ix
867 #define PL_Icollation_name	PL_collation_name
868 #define PL_Icollation_standard	PL_collation_standard
869 #define PL_Icollxfrm_base	PL_collxfrm_base
870 #define PL_Icollxfrm_mult	PL_collxfrm_mult
871 #define PL_Icompcv		PL_compcv
872 #define PL_Icompiling		PL_compiling
873 #define PL_Icomppad_name	PL_comppad_name
874 #define PL_Icomppad_name_fill	PL_comppad_name_fill
875 #define PL_Icomppad_name_floor	PL_comppad_name_floor
876 #define PL_Icop_seqmax		PL_cop_seqmax
877 #define PL_Icopline		PL_copline
878 #define PL_Icred_mutex		PL_cred_mutex
879 #define PL_Icryptseen		PL_cryptseen
880 #define PL_Icshlen		PL_cshlen
881 #define PL_Icshname		PL_cshname
882 #define PL_Icurcopdb		PL_curcopdb
883 #define PL_Icurstname		PL_curstname
884 #define PL_Icurthr		PL_curthr
885 #define PL_Icustom_op_descs	PL_custom_op_descs
886 #define PL_Icustom_op_names	PL_custom_op_names
887 #define PL_Idbargs		PL_dbargs
888 #define PL_Idebstash		PL_debstash
889 #define PL_Idebug		PL_debug
890 #define PL_Idebug_pad		PL_debug_pad
891 #define PL_Idef_layerlist	PL_def_layerlist
892 #define PL_Idefgv		PL_defgv
893 #define PL_Idiehook		PL_diehook
894 #define PL_Idoextract		PL_doextract
895 #define PL_Idoswitches		PL_doswitches
896 #define PL_Idowarn		PL_dowarn
897 #define PL_Ie_script		PL_e_script
898 #define PL_Iegid		PL_egid
899 #define PL_Iencoding		PL_encoding
900 #define PL_Iendav		PL_endav
901 #define PL_Ienvgv		PL_envgv
902 #define PL_Ierrgv		PL_errgv
903 #define PL_Ierror_count		PL_error_count
904 #define PL_Ieuid		PL_euid
905 #define PL_Ieval_cond		PL_eval_cond
906 #define PL_Ieval_mutex		PL_eval_mutex
907 #define PL_Ieval_owner		PL_eval_owner
908 #define PL_Ieval_root		PL_eval_root
909 #define PL_Ieval_start		PL_eval_start
910 #define PL_Ievalseq		PL_evalseq
911 #define PL_Iexit_flags		PL_exit_flags
912 #define PL_Iexitlist		PL_exitlist
913 #define PL_Iexitlistlen		PL_exitlistlen
914 #define PL_Iexpect		PL_expect
915 #define PL_Ifdpid		PL_fdpid
916 #define PL_Ifdpid_mutex		PL_fdpid_mutex
917 #define PL_Ifdscript		PL_fdscript
918 #define PL_Ifilemode		PL_filemode
919 #define PL_Iforkprocess		PL_forkprocess
920 #define PL_Iformfeed		PL_formfeed
921 #define PL_Igeneration		PL_generation
922 #define PL_Igensym		PL_gensym
923 #define PL_Igid			PL_gid
924 #define PL_Iglob_index		PL_glob_index
925 #define PL_Iglobalstash		PL_globalstash
926 #define PL_Ihash_seed		PL_hash_seed
927 #define PL_Ihash_seed_set	PL_hash_seed_set
928 #define PL_Ihe_arenaroot	PL_he_arenaroot
929 #define PL_Ihe_root		PL_he_root
930 #define PL_Ihintgv		PL_hintgv
931 #define PL_Ihints		PL_hints
932 #define PL_Iin_clean_all	PL_in_clean_all
933 #define PL_Iin_clean_objs	PL_in_clean_objs
934 #define PL_Iin_load_module	PL_in_load_module
935 #define PL_Iin_my		PL_in_my
936 #define PL_Iin_my_stash		PL_in_my_stash
937 #define PL_Iincgv		PL_incgv
938 #define PL_Iinitav		PL_initav
939 #define PL_Iinplace		PL_inplace
940 #define PL_Iknown_layers	PL_known_layers
941 #define PL_Ilast_lop		PL_last_lop
942 #define PL_Ilast_lop_op		PL_last_lop_op
943 #define PL_Ilast_swash_hv	PL_last_swash_hv
944 #define PL_Ilast_swash_key	PL_last_swash_key
945 #define PL_Ilast_swash_klen	PL_last_swash_klen
946 #define PL_Ilast_swash_slen	PL_last_swash_slen
947 #define PL_Ilast_swash_tmps	PL_last_swash_tmps
948 #define PL_Ilast_uni		PL_last_uni
949 #define PL_Ilastfd		PL_lastfd
950 #define PL_Ilaststatval		PL_laststatval
951 #define PL_Ilaststype		PL_laststype
952 #define PL_Ilex_brackets	PL_lex_brackets
953 #define PL_Ilex_brackstack	PL_lex_brackstack
954 #define PL_Ilex_casemods	PL_lex_casemods
955 #define PL_Ilex_casestack	PL_lex_casestack
956 #define PL_Ilex_defer		PL_lex_defer
957 #define PL_Ilex_dojoin		PL_lex_dojoin
958 #define PL_Ilex_expect		PL_lex_expect
959 #define PL_Ilex_formbrack	PL_lex_formbrack
960 #define PL_Ilex_inpat		PL_lex_inpat
961 #define PL_Ilex_inwhat		PL_lex_inwhat
962 #define PL_Ilex_op		PL_lex_op
963 #define PL_Ilex_repl		PL_lex_repl
964 #define PL_Ilex_starts		PL_lex_starts
965 #define PL_Ilex_state		PL_lex_state
966 #define PL_Ilex_stuff		PL_lex_stuff
967 #define PL_Ilineary		PL_lineary
968 #define PL_Ilinestart		PL_linestart
969 #define PL_Ilinestr		PL_linestr
970 #define PL_Ilocalpatches	PL_localpatches
971 #define PL_Ilockhook		PL_lockhook
972 #define PL_Imain_cv		PL_main_cv
973 #define PL_Imain_root		PL_main_root
974 #define PL_Imain_start		PL_main_start
975 #define PL_Imax_intro_pending	PL_max_intro_pending
976 #define PL_Imaxo		PL_maxo
977 #define PL_Imaxsysfd		PL_maxsysfd
978 #define PL_Imess_sv		PL_mess_sv
979 #define PL_Imin_intro_pending	PL_min_intro_pending
980 #define PL_Iminus_F		PL_minus_F
981 #define PL_Iminus_a		PL_minus_a
982 #define PL_Iminus_c		PL_minus_c
983 #define PL_Iminus_l		PL_minus_l
984 #define PL_Iminus_n		PL_minus_n
985 #define PL_Iminus_p		PL_minus_p
986 #define PL_Imodglobal		PL_modglobal
987 #define PL_Imulti_close		PL_multi_close
988 #define PL_Imulti_end		PL_multi_end
989 #define PL_Imulti_open		PL_multi_open
990 #define PL_Imulti_start		PL_multi_start
991 #define PL_Imultiline		PL_multiline
992 #define PL_Inexttoke		PL_nexttoke
993 #define PL_Inexttype		PL_nexttype
994 #define PL_Inextval		PL_nextval
995 #define PL_Inice_chunk		PL_nice_chunk
996 #define PL_Inice_chunk_size	PL_nice_chunk_size
997 #define PL_Inomemok		PL_nomemok
998 #define PL_Inthreads		PL_nthreads
999 #define PL_Inthreads_cond	PL_nthreads_cond
1000 #define PL_Inullstash		PL_nullstash
1001 #define PL_Inumeric_compat1	PL_numeric_compat1
1002 #define PL_Inumeric_local	PL_numeric_local
1003 #define PL_Inumeric_name	PL_numeric_name
1004 #define PL_Inumeric_radix_sv	PL_numeric_radix_sv
1005 #define PL_Inumeric_standard	PL_numeric_standard
1006 #define PL_Iofmt		PL_ofmt
1007 #define PL_Ioldbufptr		PL_oldbufptr
1008 #define PL_Ioldname		PL_oldname
1009 #define PL_Ioldoldbufptr	PL_oldoldbufptr
1010 #define PL_Iop_mask		PL_op_mask
1011 #define PL_Iop_seqmax		PL_op_seqmax
1012 #define PL_Iorigalen		PL_origalen
1013 #define PL_Iorigargc		PL_origargc
1014 #define PL_Iorigargv		PL_origargv
1015 #define PL_Iorigenviron		PL_origenviron
1016 #define PL_Iorigfilename	PL_origfilename
1017 #define PL_Iors_sv		PL_ors_sv
1018 #define PL_Iosname		PL_osname
1019 #define PL_Ipad_reset_pending	PL_pad_reset_pending
1020 #define PL_Ipadix		PL_padix
1021 #define PL_Ipadix_floor		PL_padix_floor
1022 #define PL_Ipatchlevel		PL_patchlevel
1023 #define PL_Ipending_ident	PL_pending_ident
1024 #define PL_Iperl_destruct_level	PL_perl_destruct_level
1025 #define PL_Iperldb		PL_perldb
1026 #define PL_Iperlio		PL_perlio
1027 #define PL_Ipidstatus		PL_pidstatus
1028 #define PL_Ippid		PL_ppid
1029 #define PL_Ipreambleav		PL_preambleav
1030 #define PL_Ipreambled		PL_preambled
1031 #define PL_Ipreprocess		PL_preprocess
1032 #define PL_Iprofiledata		PL_profiledata
1033 #define PL_Ipsig_name		PL_psig_name
1034 #define PL_Ipsig_pend		PL_psig_pend
1035 #define PL_Ipsig_ptr		PL_psig_ptr
1036 #define PL_Iptr_table		PL_ptr_table
1037 #define PL_Ireentrant_buffer	PL_reentrant_buffer
1038 #define PL_Ireentrant_retint	PL_reentrant_retint
1039 #define PL_Iregex_pad		PL_regex_pad
1040 #define PL_Iregex_padav		PL_regex_padav
1041 #define PL_Irehash_seed		PL_rehash_seed
1042 #define PL_Irehash_seed_set	PL_rehash_seed_set
1043 #define PL_Ireplgv		PL_replgv
1044 #define PL_Irsfp		PL_rsfp
1045 #define PL_Irsfp_filters	PL_rsfp_filters
1046 #define PL_Irunops		PL_runops
1047 #define PL_Irunops_dbg		PL_runops_dbg
1048 #define PL_Irunops_std		PL_runops_std
1049 #define PL_Isavebegin		PL_savebegin
1050 #define PL_Isawampersand	PL_sawampersand
1051 #define PL_Ish_path_compat	PL_sh_path_compat
1052 #define PL_Isharehook		PL_sharehook
1053 #define PL_Isig_pending		PL_sig_pending
1054 #define PL_Isighandlerp		PL_sighandlerp
1055 #define PL_Isignals		PL_signals
1056 #define PL_Isort_RealCmp	PL_sort_RealCmp
1057 #define PL_Isplitstr		PL_splitstr
1058 #define PL_Isrand_called	PL_srand_called
1059 #define PL_Istashcache		PL_stashcache
1060 #define PL_Istatusvalue		PL_statusvalue
1061 #define PL_Istatusvalue_vms	PL_statusvalue_vms
1062 #define PL_Istderrgv		PL_stderrgv
1063 #define PL_Istdingv		PL_stdingv
1064 #define PL_Istrtab		PL_strtab
1065 #define PL_Istrtab_mutex	PL_strtab_mutex
1066 #define PL_Isub_generation	PL_sub_generation
1067 #define PL_Isublex_info		PL_sublex_info
1068 #define PL_Isubline		PL_subline
1069 #define PL_Isubname		PL_subname
1070 #define PL_Isuidscript		PL_suidscript
1071 #define PL_Isv_arenaroot	PL_sv_arenaroot
1072 #define PL_Isv_count		PL_sv_count
1073 #define PL_Isv_lock_mutex	PL_sv_lock_mutex
1074 #define PL_Isv_mutex		PL_sv_mutex
1075 #define PL_Isv_no		PL_sv_no
1076 #define PL_Isv_objcount		PL_sv_objcount
1077 #define PL_Isv_root		PL_sv_root
1078 #define PL_Isv_undef		PL_sv_undef
1079 #define PL_Isv_yes		PL_sv_yes
1080 #define PL_Isvref_mutex		PL_svref_mutex
1081 #define PL_Isys_intern		PL_sys_intern
1082 #define PL_Itaint_warn		PL_taint_warn
1083 #define PL_Itainting		PL_tainting
1084 #define PL_Ithreadhook		PL_threadhook
1085 #define PL_Ithreadnum		PL_threadnum
1086 #define PL_Ithreads_mutex	PL_threads_mutex
1087 #define PL_Ithreadsv_names	PL_threadsv_names
1088 #define PL_Ithrsv		PL_thrsv
1089 #define PL_Itokenbuf		PL_tokenbuf
1090 #define PL_Iuid			PL_uid
1091 #define PL_Iunicode		PL_unicode
1092 #define PL_Iunlockhook		PL_unlockhook
1093 #define PL_Iunsafe		PL_unsafe
1094 #define PL_Iutf8_alnum		PL_utf8_alnum
1095 #define PL_Iutf8_alnumc		PL_utf8_alnumc
1096 #define PL_Iutf8_alpha		PL_utf8_alpha
1097 #define PL_Iutf8_ascii		PL_utf8_ascii
1098 #define PL_Iutf8_cntrl		PL_utf8_cntrl
1099 #define PL_Iutf8_digit		PL_utf8_digit
1100 #define PL_Iutf8_graph		PL_utf8_graph
1101 #define PL_Iutf8_idcont		PL_utf8_idcont
1102 #define PL_Iutf8_idstart	PL_utf8_idstart
1103 #define PL_Iutf8_lower		PL_utf8_lower
1104 #define PL_Iutf8_mark		PL_utf8_mark
1105 #define PL_Iutf8_print		PL_utf8_print
1106 #define PL_Iutf8_punct		PL_utf8_punct
1107 #define PL_Iutf8_space		PL_utf8_space
1108 #define PL_Iutf8_tofold		PL_utf8_tofold
1109 #define PL_Iutf8_tolower	PL_utf8_tolower
1110 #define PL_Iutf8_totitle	PL_utf8_totitle
1111 #define PL_Iutf8_toupper	PL_utf8_toupper
1112 #define PL_Iutf8_upper		PL_utf8_upper
1113 #define PL_Iutf8_xdigit		PL_utf8_xdigit
1114 #define PL_Iutf8locale		PL_utf8locale
1115 #define PL_Iuudmap		PL_uudmap
1116 #define PL_Iwarnhook		PL_warnhook
1117 #define PL_Iwidesyscalls	PL_widesyscalls
1118 #define PL_Ixiv_arenaroot	PL_xiv_arenaroot
1119 #define PL_Ixiv_root		PL_xiv_root
1120 #define PL_Ixnv_arenaroot	PL_xnv_arenaroot
1121 #define PL_Ixnv_root		PL_xnv_root
1122 #define PL_Ixpv_arenaroot	PL_xpv_arenaroot
1123 #define PL_Ixpv_root		PL_xpv_root
1124 #define PL_Ixpvav_arenaroot	PL_xpvav_arenaroot
1125 #define PL_Ixpvav_root		PL_xpvav_root
1126 #define PL_Ixpvbm_arenaroot	PL_xpvbm_arenaroot
1127 #define PL_Ixpvbm_root		PL_xpvbm_root
1128 #define PL_Ixpvcv_arenaroot	PL_xpvcv_arenaroot
1129 #define PL_Ixpvcv_root		PL_xpvcv_root
1130 #define PL_Ixpvhv_arenaroot	PL_xpvhv_arenaroot
1131 #define PL_Ixpvhv_root		PL_xpvhv_root
1132 #define PL_Ixpviv_arenaroot	PL_xpviv_arenaroot
1133 #define PL_Ixpviv_root		PL_xpviv_root
1134 #define PL_Ixpvlv_arenaroot	PL_xpvlv_arenaroot
1135 #define PL_Ixpvlv_root		PL_xpvlv_root
1136 #define PL_Ixpvmg_arenaroot	PL_xpvmg_arenaroot
1137 #define PL_Ixpvmg_root		PL_xpvmg_root
1138 #define PL_Ixpvnv_arenaroot	PL_xpvnv_arenaroot
1139 #define PL_Ixpvnv_root		PL_xpvnv_root
1140 #define PL_Ixrv_arenaroot	PL_xrv_arenaroot
1141 #define PL_Ixrv_root		PL_xrv_root
1142 #define PL_Iyychar		PL_yychar
1143 #define PL_Iyydebug		PL_yydebug
1144 #define PL_Iyyerrflag		PL_yyerrflag
1145 #define PL_Iyylval		PL_yylval
1146 #define PL_Iyynerrs		PL_yynerrs
1147 #define PL_Iyyval		PL_yyval
1148 
1149 #  if defined(USE_5005THREADS)
1150 /* case 4 above */
1151 
1152 #define PL_Sv			(aTHX->TSv)
1153 #define PL_Xpv			(aTHX->TXpv)
1154 #define PL_av_fetch_sv		(aTHX->Tav_fetch_sv)
1155 #define PL_bodytarget		(aTHX->Tbodytarget)
1156 #define PL_bostr		(aTHX->Tbostr)
1157 #define PL_chopset		(aTHX->Tchopset)
1158 #define PL_colors		(aTHX->Tcolors)
1159 #define PL_colorset		(aTHX->Tcolorset)
1160 #define PL_comppad		(aTHX->Tcomppad)
1161 #define PL_curcop		(aTHX->Tcurcop)
1162 #define PL_curpad		(aTHX->Tcurpad)
1163 #define PL_curpm		(aTHX->Tcurpm)
1164 #define PL_curstack		(aTHX->Tcurstack)
1165 #define PL_curstackinfo		(aTHX->Tcurstackinfo)
1166 #define PL_curstash		(aTHX->Tcurstash)
1167 #define PL_defoutgv		(aTHX->Tdefoutgv)
1168 #define PL_defstash		(aTHX->Tdefstash)
1169 #define PL_delaymagic		(aTHX->Tdelaymagic)
1170 #define PL_dirty		(aTHX->Tdirty)
1171 #define PL_dumpindent		(aTHX->Tdumpindent)
1172 #define PL_efloatbuf		(aTHX->Tefloatbuf)
1173 #define PL_efloatsize		(aTHX->Tefloatsize)
1174 #define PL_errors		(aTHX->Terrors)
1175 #define PL_extralen		(aTHX->Textralen)
1176 #define PL_firstgv		(aTHX->Tfirstgv)
1177 #define PL_formtarget		(aTHX->Tformtarget)
1178 #define PL_hv_fetch_ent_mh	(aTHX->Thv_fetch_ent_mh)
1179 #define PL_hv_fetch_sv		(aTHX->Thv_fetch_sv)
1180 #define PL_in_eval		(aTHX->Tin_eval)
1181 #define PL_last_in_gv		(aTHX->Tlast_in_gv)
1182 #define PL_lastgotoprobe	(aTHX->Tlastgotoprobe)
1183 #define PL_lastscream		(aTHX->Tlastscream)
1184 #define PL_localizing		(aTHX->Tlocalizing)
1185 #define PL_mainstack		(aTHX->Tmainstack)
1186 #define PL_markstack		(aTHX->Tmarkstack)
1187 #define PL_markstack_max	(aTHX->Tmarkstack_max)
1188 #define PL_markstack_ptr	(aTHX->Tmarkstack_ptr)
1189 #define PL_maxscream		(aTHX->Tmaxscream)
1190 #define PL_modcount		(aTHX->Tmodcount)
1191 #define PL_na			(aTHX->Tna)
1192 #define PL_nrs			(aTHX->Tnrs)
1193 #define PL_ofs_sv		(aTHX->Tofs_sv)
1194 #define PL_op			(aTHX->Top)
1195 #define PL_opsave		(aTHX->Topsave)
1196 #define PL_peepp		(aTHX->Tpeepp)
1197 #define PL_protect		(aTHX->Tprotect)
1198 #define PL_reg_call_cc		(aTHX->Treg_call_cc)
1199 #define PL_reg_curpm		(aTHX->Treg_curpm)
1200 #define PL_reg_eval_set		(aTHX->Treg_eval_set)
1201 #define PL_reg_flags		(aTHX->Treg_flags)
1202 #define PL_reg_ganch		(aTHX->Treg_ganch)
1203 #define PL_reg_leftiter		(aTHX->Treg_leftiter)
1204 #define PL_reg_magic		(aTHX->Treg_magic)
1205 #define PL_reg_match_utf8	(aTHX->Treg_match_utf8)
1206 #define PL_reg_maxiter		(aTHX->Treg_maxiter)
1207 #define PL_reg_oldcurpm		(aTHX->Treg_oldcurpm)
1208 #define PL_reg_oldpos		(aTHX->Treg_oldpos)
1209 #define PL_reg_oldsaved		(aTHX->Treg_oldsaved)
1210 #define PL_reg_oldsavedlen	(aTHX->Treg_oldsavedlen)
1211 #define PL_reg_poscache		(aTHX->Treg_poscache)
1212 #define PL_reg_poscache_size	(aTHX->Treg_poscache_size)
1213 #define PL_reg_re		(aTHX->Treg_re)
1214 #define PL_reg_start_tmp	(aTHX->Treg_start_tmp)
1215 #define PL_reg_start_tmpl	(aTHX->Treg_start_tmpl)
1216 #define PL_reg_starttry		(aTHX->Treg_starttry)
1217 #define PL_reg_sv		(aTHX->Treg_sv)
1218 #define PL_reg_whilem_seen	(aTHX->Treg_whilem_seen)
1219 #define PL_regbol		(aTHX->Tregbol)
1220 #define PL_regcc		(aTHX->Tregcc)
1221 #define PL_regcode		(aTHX->Tregcode)
1222 #define PL_regcomp_parse	(aTHX->Tregcomp_parse)
1223 #define PL_regcomp_rx		(aTHX->Tregcomp_rx)
1224 #define PL_regcompat1		(aTHX->Tregcompat1)
1225 #define PL_regcompp		(aTHX->Tregcompp)
1226 #define PL_regdata		(aTHX->Tregdata)
1227 #define PL_regdummy		(aTHX->Tregdummy)
1228 #define PL_regendp		(aTHX->Tregendp)
1229 #define PL_regeol		(aTHX->Tregeol)
1230 #define PL_regexecp		(aTHX->Tregexecp)
1231 #define PL_regflags		(aTHX->Tregflags)
1232 #define PL_regfree		(aTHX->Tregfree)
1233 #define PL_regindent		(aTHX->Tregindent)
1234 #define PL_reginput		(aTHX->Treginput)
1235 #define PL_regint_start		(aTHX->Tregint_start)
1236 #define PL_regint_string	(aTHX->Tregint_string)
1237 #define PL_reginterp_cnt	(aTHX->Treginterp_cnt)
1238 #define PL_reglastcloseparen	(aTHX->Treglastcloseparen)
1239 #define PL_reglastparen		(aTHX->Treglastparen)
1240 #define PL_regnarrate		(aTHX->Tregnarrate)
1241 #define PL_regnaughty		(aTHX->Tregnaughty)
1242 #define PL_regnpar		(aTHX->Tregnpar)
1243 #define PL_regprecomp		(aTHX->Tregprecomp)
1244 #define PL_regprogram		(aTHX->Tregprogram)
1245 #define PL_regsawback		(aTHX->Tregsawback)
1246 #define PL_regseen		(aTHX->Tregseen)
1247 #define PL_regsize		(aTHX->Tregsize)
1248 #define PL_regstartp		(aTHX->Tregstartp)
1249 #define PL_regtill		(aTHX->Tregtill)
1250 #define PL_regxend		(aTHX->Tregxend)
1251 #define PL_restartop		(aTHX->Trestartop)
1252 #define PL_retstack		(aTHX->Tretstack)
1253 #define PL_retstack_ix		(aTHX->Tretstack_ix)
1254 #define PL_retstack_max		(aTHX->Tretstack_max)
1255 #define PL_rs			(aTHX->Trs)
1256 #define PL_savestack		(aTHX->Tsavestack)
1257 #define PL_savestack_ix		(aTHX->Tsavestack_ix)
1258 #define PL_savestack_max	(aTHX->Tsavestack_max)
1259 #define PL_scopestack		(aTHX->Tscopestack)
1260 #define PL_scopestack_ix	(aTHX->Tscopestack_ix)
1261 #define PL_scopestack_max	(aTHX->Tscopestack_max)
1262 #define PL_screamfirst		(aTHX->Tscreamfirst)
1263 #define PL_screamnext		(aTHX->Tscreamnext)
1264 #define PL_secondgv		(aTHX->Tsecondgv)
1265 #define PL_seen_evals		(aTHX->Tseen_evals)
1266 #define PL_seen_zerolen		(aTHX->Tseen_zerolen)
1267 #define PL_sortcop		(aTHX->Tsortcop)
1268 #define PL_sortcxix		(aTHX->Tsortcxix)
1269 #define PL_sortstash		(aTHX->Tsortstash)
1270 #define PL_stack_base		(aTHX->Tstack_base)
1271 #define PL_stack_max		(aTHX->Tstack_max)
1272 #define PL_stack_sp		(aTHX->Tstack_sp)
1273 #define PL_start_env		(aTHX->Tstart_env)
1274 #define PL_statbuf		(aTHX->Tstatbuf)
1275 #define PL_statcache		(aTHX->Tstatcache)
1276 #define PL_statgv		(aTHX->Tstatgv)
1277 #define PL_statname		(aTHX->Tstatname)
1278 #define PL_tainted		(aTHX->Ttainted)
1279 #define PL_timesbuf		(aTHX->Ttimesbuf)
1280 #define PL_tmps_floor		(aTHX->Ttmps_floor)
1281 #define PL_tmps_ix		(aTHX->Ttmps_ix)
1282 #define PL_tmps_max		(aTHX->Ttmps_max)
1283 #define PL_tmps_stack		(aTHX->Ttmps_stack)
1284 #define PL_top_env		(aTHX->Ttop_env)
1285 #define PL_toptarget		(aTHX->Ttoptarget)
1286 #define PL_watchaddr		(aTHX->Twatchaddr)
1287 #define PL_watchok		(aTHX->Twatchok)
1288 
1289 #  else	/* !USE_5005THREADS */
1290 /* case 1 above */
1291 
1292 #define PL_TSv			PL_Sv
1293 #define PL_TXpv			PL_Xpv
1294 #define PL_Tav_fetch_sv		PL_av_fetch_sv
1295 #define PL_Tbodytarget		PL_bodytarget
1296 #define PL_Tbostr		PL_bostr
1297 #define PL_Tchopset		PL_chopset
1298 #define PL_Tcolors		PL_colors
1299 #define PL_Tcolorset		PL_colorset
1300 #define PL_Tcomppad		PL_comppad
1301 #define PL_Tcurcop		PL_curcop
1302 #define PL_Tcurpad		PL_curpad
1303 #define PL_Tcurpm		PL_curpm
1304 #define PL_Tcurstack		PL_curstack
1305 #define PL_Tcurstackinfo	PL_curstackinfo
1306 #define PL_Tcurstash		PL_curstash
1307 #define PL_Tdefoutgv		PL_defoutgv
1308 #define PL_Tdefstash		PL_defstash
1309 #define PL_Tdelaymagic		PL_delaymagic
1310 #define PL_Tdirty		PL_dirty
1311 #define PL_Tdumpindent		PL_dumpindent
1312 #define PL_Tefloatbuf		PL_efloatbuf
1313 #define PL_Tefloatsize		PL_efloatsize
1314 #define PL_Terrors		PL_errors
1315 #define PL_Textralen		PL_extralen
1316 #define PL_Tfirstgv		PL_firstgv
1317 #define PL_Tformtarget		PL_formtarget
1318 #define PL_Thv_fetch_ent_mh	PL_hv_fetch_ent_mh
1319 #define PL_Thv_fetch_sv		PL_hv_fetch_sv
1320 #define PL_Tin_eval		PL_in_eval
1321 #define PL_Tlast_in_gv		PL_last_in_gv
1322 #define PL_Tlastgotoprobe	PL_lastgotoprobe
1323 #define PL_Tlastscream		PL_lastscream
1324 #define PL_Tlocalizing		PL_localizing
1325 #define PL_Tmainstack		PL_mainstack
1326 #define PL_Tmarkstack		PL_markstack
1327 #define PL_Tmarkstack_max	PL_markstack_max
1328 #define PL_Tmarkstack_ptr	PL_markstack_ptr
1329 #define PL_Tmaxscream		PL_maxscream
1330 #define PL_Tmodcount		PL_modcount
1331 #define PL_Tna			PL_na
1332 #define PL_Tnrs			PL_nrs
1333 #define PL_Tofs_sv		PL_ofs_sv
1334 #define PL_Top			PL_op
1335 #define PL_Topsave		PL_opsave
1336 #define PL_Tpeepp		PL_peepp
1337 #define PL_Tprotect		PL_protect
1338 #define PL_Treg_call_cc		PL_reg_call_cc
1339 #define PL_Treg_curpm		PL_reg_curpm
1340 #define PL_Treg_eval_set	PL_reg_eval_set
1341 #define PL_Treg_flags		PL_reg_flags
1342 #define PL_Treg_ganch		PL_reg_ganch
1343 #define PL_Treg_leftiter	PL_reg_leftiter
1344 #define PL_Treg_magic		PL_reg_magic
1345 #define PL_Treg_match_utf8	PL_reg_match_utf8
1346 #define PL_Treg_maxiter		PL_reg_maxiter
1347 #define PL_Treg_oldcurpm	PL_reg_oldcurpm
1348 #define PL_Treg_oldpos		PL_reg_oldpos
1349 #define PL_Treg_oldsaved	PL_reg_oldsaved
1350 #define PL_Treg_oldsavedlen	PL_reg_oldsavedlen
1351 #define PL_Treg_poscache	PL_reg_poscache
1352 #define PL_Treg_poscache_size	PL_reg_poscache_size
1353 #define PL_Treg_re		PL_reg_re
1354 #define PL_Treg_start_tmp	PL_reg_start_tmp
1355 #define PL_Treg_start_tmpl	PL_reg_start_tmpl
1356 #define PL_Treg_starttry	PL_reg_starttry
1357 #define PL_Treg_sv		PL_reg_sv
1358 #define PL_Treg_whilem_seen	PL_reg_whilem_seen
1359 #define PL_Tregbol		PL_regbol
1360 #define PL_Tregcc		PL_regcc
1361 #define PL_Tregcode		PL_regcode
1362 #define PL_Tregcomp_parse	PL_regcomp_parse
1363 #define PL_Tregcomp_rx		PL_regcomp_rx
1364 #define PL_Tregcompat1		PL_regcompat1
1365 #define PL_Tregcompp		PL_regcompp
1366 #define PL_Tregdata		PL_regdata
1367 #define PL_Tregdummy		PL_regdummy
1368 #define PL_Tregendp		PL_regendp
1369 #define PL_Tregeol		PL_regeol
1370 #define PL_Tregexecp		PL_regexecp
1371 #define PL_Tregflags		PL_regflags
1372 #define PL_Tregfree		PL_regfree
1373 #define PL_Tregindent		PL_regindent
1374 #define PL_Treginput		PL_reginput
1375 #define PL_Tregint_start	PL_regint_start
1376 #define PL_Tregint_string	PL_regint_string
1377 #define PL_Treginterp_cnt	PL_reginterp_cnt
1378 #define PL_Treglastcloseparen	PL_reglastcloseparen
1379 #define PL_Treglastparen	PL_reglastparen
1380 #define PL_Tregnarrate		PL_regnarrate
1381 #define PL_Tregnaughty		PL_regnaughty
1382 #define PL_Tregnpar		PL_regnpar
1383 #define PL_Tregprecomp		PL_regprecomp
1384 #define PL_Tregprogram		PL_regprogram
1385 #define PL_Tregsawback		PL_regsawback
1386 #define PL_Tregseen		PL_regseen
1387 #define PL_Tregsize		PL_regsize
1388 #define PL_Tregstartp		PL_regstartp
1389 #define PL_Tregtill		PL_regtill
1390 #define PL_Tregxend		PL_regxend
1391 #define PL_Trestartop		PL_restartop
1392 #define PL_Tretstack		PL_retstack
1393 #define PL_Tretstack_ix		PL_retstack_ix
1394 #define PL_Tretstack_max	PL_retstack_max
1395 #define PL_Trs			PL_rs
1396 #define PL_Tsavestack		PL_savestack
1397 #define PL_Tsavestack_ix	PL_savestack_ix
1398 #define PL_Tsavestack_max	PL_savestack_max
1399 #define PL_Tscopestack		PL_scopestack
1400 #define PL_Tscopestack_ix	PL_scopestack_ix
1401 #define PL_Tscopestack_max	PL_scopestack_max
1402 #define PL_Tscreamfirst		PL_screamfirst
1403 #define PL_Tscreamnext		PL_screamnext
1404 #define PL_Tsecondgv		PL_secondgv
1405 #define PL_Tseen_evals		PL_seen_evals
1406 #define PL_Tseen_zerolen	PL_seen_zerolen
1407 #define PL_Tsortcop		PL_sortcop
1408 #define PL_Tsortcxix		PL_sortcxix
1409 #define PL_Tsortstash		PL_sortstash
1410 #define PL_Tstack_base		PL_stack_base
1411 #define PL_Tstack_max		PL_stack_max
1412 #define PL_Tstack_sp		PL_stack_sp
1413 #define PL_Tstart_env		PL_start_env
1414 #define PL_Tstatbuf		PL_statbuf
1415 #define PL_Tstatcache		PL_statcache
1416 #define PL_Tstatgv		PL_statgv
1417 #define PL_Tstatname		PL_statname
1418 #define PL_Ttainted		PL_tainted
1419 #define PL_Ttimesbuf		PL_timesbuf
1420 #define PL_Ttmps_floor		PL_tmps_floor
1421 #define PL_Ttmps_ix		PL_tmps_ix
1422 #define PL_Ttmps_max		PL_tmps_max
1423 #define PL_Ttmps_stack		PL_tmps_stack
1424 #define PL_Ttop_env		PL_top_env
1425 #define PL_Ttoptarget		PL_toptarget
1426 #define PL_Twatchaddr		PL_watchaddr
1427 #define PL_Twatchok		PL_watchok
1428 
1429 #  endif	/* USE_5005THREADS */
1430 #endif	/* MULTIPLICITY */
1431 
1432 #if defined(PERL_GLOBAL_STRUCT)
1433 
1434 #define PL_No			(PL_Vars.GNo)
1435 #define PL_Yes			(PL_Vars.GYes)
1436 #define PL_csighandlerp		(PL_Vars.Gcsighandlerp)
1437 #define PL_curinterp		(PL_Vars.Gcurinterp)
1438 #define PL_do_undump		(PL_Vars.Gdo_undump)
1439 #define PL_dollarzero_mutex	(PL_Vars.Gdollarzero_mutex)
1440 #define PL_hexdigit		(PL_Vars.Ghexdigit)
1441 #define PL_malloc_mutex		(PL_Vars.Gmalloc_mutex)
1442 #define PL_op_mutex		(PL_Vars.Gop_mutex)
1443 #define PL_patleave		(PL_Vars.Gpatleave)
1444 #define PL_sh_path		(PL_Vars.Gsh_path)
1445 #define PL_sigfpe_saved		(PL_Vars.Gsigfpe_saved)
1446 #define PL_sv_placeholder	(PL_Vars.Gsv_placeholder)
1447 #define PL_thr_key		(PL_Vars.Gthr_key)
1448 
1449 #else /* !PERL_GLOBAL_STRUCT */
1450 
1451 #define PL_GNo			PL_No
1452 #define PL_GYes			PL_Yes
1453 #define PL_Gcsighandlerp	PL_csighandlerp
1454 #define PL_Gcurinterp		PL_curinterp
1455 #define PL_Gdo_undump		PL_do_undump
1456 #define PL_Gdollarzero_mutex	PL_dollarzero_mutex
1457 #define PL_Ghexdigit		PL_hexdigit
1458 #define PL_Gmalloc_mutex	PL_malloc_mutex
1459 #define PL_Gop_mutex		PL_op_mutex
1460 #define PL_Gpatleave		PL_patleave
1461 #define PL_Gsh_path		PL_sh_path
1462 #define PL_Gsigfpe_saved	PL_sigfpe_saved
1463 #define PL_Gsv_placeholder	PL_sv_placeholder
1464 #define PL_Gthr_key		PL_thr_key
1465 
1466 #endif /* PERL_GLOBAL_STRUCT */
1467 
1468 #ifdef PERL_POLLUTE		/* disabled by default in 5.6.0 */
1469 
1470 #define DBsingle		PL_DBsingle
1471 #define DBsub			PL_DBsub
1472 #define compiling		PL_compiling
1473 #define curcop			PL_curcop
1474 #define curstash		PL_curstash
1475 #define debstash		PL_debstash
1476 #define defgv			PL_defgv
1477 #define diehook			PL_diehook
1478 #define dirty			PL_dirty
1479 #define dowarn			PL_dowarn
1480 #define errgv			PL_errgv
1481 #define na			PL_na
1482 #define no_modify		PL_no_modify
1483 #define perl_destruct_level	PL_perl_destruct_level
1484 #define perldb			PL_perldb
1485 #define ppaddr			PL_ppaddr
1486 #define rsfp			PL_rsfp
1487 #define rsfp_filters		PL_rsfp_filters
1488 #define stack_base		PL_stack_base
1489 #define stack_sp		PL_stack_sp
1490 #define stdingv			PL_stdingv
1491 #define sv_arenaroot		PL_sv_arenaroot
1492 #define sv_no			PL_sv_no
1493 #define sv_undef		PL_sv_undef
1494 #define sv_yes			PL_sv_yes
1495 #define tainted			PL_tainted
1496 #define tainting		PL_tainting
1497 
1498 #endif /* PERL_POLLUTE */
1499