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