[win32] fix Env.pm to weed out illegal names
[p5sagit/p5-mst-13.2.git] / embedvar.h
CommitLineData
d4cce5f1 1/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from global.sym, intrpvar.h,
3 and thrdvar.h. Any changes made here will be lost!
4*/
5
6/* (Doing namespace management portably in C is really gross.) */
7
8/* EMBED has no run-time penalty, but helps keep the Perl namespace
9 from colliding with that used by other libraries pulled in
10 by extensions or by embedding perl. Allow a cc -DNO_EMBED
11 override, however, to keep binary compatability with previous
12 versions of perl.
13*/
14
15
16/* Put interpreter-specific symbols into a struct? */
17
18#ifdef MULTIPLICITY
19
20#ifndef USE_THREADS
21/* If we do not have threads then per-thread vars are per-interpreter */
22
23#define Sv (curinterp->TSv)
24#define Xpv (curinterp->TXpv)
4e4c362e 25#define av_fetch_sv (curinterp->Tav_fetch_sv)
d4cce5f1 26#define bodytarget (curinterp->Tbodytarget)
27#define chopset (curinterp->Tchopset)
28#define curcop (curinterp->Tcurcop)
29#define curpad (curinterp->Tcurpad)
30#define curpm (curinterp->Tcurpm)
31#define curstack (curinterp->Tcurstack)
32#define curstash (curinterp->Tcurstash)
33#define cxstack (curinterp->Tcxstack)
34#define cxstack_ix (curinterp->Tcxstack_ix)
35#define cxstack_max (curinterp->Tcxstack_max)
36#define defoutgv (curinterp->Tdefoutgv)
37#define defstash (curinterp->Tdefstash)
38#define delaymagic (curinterp->Tdelaymagic)
39#define dirty (curinterp->Tdirty)
40#define formtarget (curinterp->Tformtarget)
4e4c362e 41#define hv_fetch_ent_mh (curinterp->Thv_fetch_ent_mh)
42#define hv_fetch_sv (curinterp->Thv_fetch_sv)
d4cce5f1 43#define in_eval (curinterp->Tin_eval)
44#define last_in_gv (curinterp->Tlast_in_gv)
45#define localizing (curinterp->Tlocalizing)
46#define mainstack (curinterp->Tmainstack)
47#define markstack (curinterp->Tmarkstack)
48#define markstack_max (curinterp->Tmarkstack_max)
49#define markstack_ptr (curinterp->Tmarkstack_ptr)
50#define nrs (curinterp->Tnrs)
51#define ofs (curinterp->Tofs)
52#define ofslen (curinterp->Tofslen)
53#define op (curinterp->Top)
54#define opsave (curinterp->Topsave)
55#define restartop (curinterp->Trestartop)
56#define retstack (curinterp->Tretstack)
57#define retstack_ix (curinterp->Tretstack_ix)
58#define retstack_max (curinterp->Tretstack_max)
59#define rs (curinterp->Trs)
60#define savestack (curinterp->Tsavestack)
61#define savestack_ix (curinterp->Tsavestack_ix)
62#define savestack_max (curinterp->Tsavestack_max)
63#define scopestack (curinterp->Tscopestack)
64#define scopestack_ix (curinterp->Tscopestack_ix)
65#define scopestack_max (curinterp->Tscopestack_max)
66#define stack_base (curinterp->Tstack_base)
67#define stack_max (curinterp->Tstack_max)
68#define stack_sp (curinterp->Tstack_sp)
69#define start_env (curinterp->Tstart_env)
70#define statbuf (curinterp->Tstatbuf)
71#define tainted (curinterp->Ttainted)
72#define timesbuf (curinterp->Ttimesbuf)
73#define tmps_floor (curinterp->Ttmps_floor)
74#define tmps_ix (curinterp->Ttmps_ix)
75#define tmps_max (curinterp->Ttmps_max)
76#define tmps_stack (curinterp->Ttmps_stack)
77#define top_env (curinterp->Ttop_env)
78#define toptarget (curinterp->Ttoptarget)
79
80#endif /* !USE_THREADS */
81
82/* These are always per-interpreter if there is more than one */
83
84#define Argv (curinterp->IArgv)
85#define Cmd (curinterp->ICmd)
86#define DBgv (curinterp->IDBgv)
87#define DBline (curinterp->IDBline)
88#define DBsignal (curinterp->IDBsignal)
89#define DBsingle (curinterp->IDBsingle)
90#define DBsub (curinterp->IDBsub)
91#define DBtrace (curinterp->IDBtrace)
92#define ampergv (curinterp->Iampergv)
93#define argvgv (curinterp->Iargvgv)
94#define argvoutgv (curinterp->Iargvoutgv)
95#define basetime (curinterp->Ibasetime)
96#define beginav (curinterp->Ibeginav)
97#define cddir (curinterp->Icddir)
98#define copline (curinterp->Icopline)
99#define curcopdb (curinterp->Icurcopdb)
100#define curstname (curinterp->Icurstname)
101#define dbargs (curinterp->Idbargs)
102#define debdelim (curinterp->Idebdelim)
103#define debname (curinterp->Idebname)
104#define debstash (curinterp->Idebstash)
105#define defgv (curinterp->Idefgv)
106#define diehook (curinterp->Idiehook)
107#define dlevel (curinterp->Idlevel)
108#define dlmax (curinterp->Idlmax)
109#define doextract (curinterp->Idoextract)
110#define doswitches (curinterp->Idoswitches)
111#define dowarn (curinterp->Idowarn)
112#define dumplvl (curinterp->Idumplvl)
113#define e_fp (curinterp->Ie_fp)
114#define e_tmpname (curinterp->Ie_tmpname)
115#define endav (curinterp->Iendav)
116#define envgv (curinterp->Ienvgv)
117#define errgv (curinterp->Ierrgv)
118#define eval_root (curinterp->Ieval_root)
119#define eval_start (curinterp->Ieval_start)
120#define fdpid (curinterp->Ifdpid)
121#define filemode (curinterp->Ifilemode)
122#define firstgv (curinterp->Ifirstgv)
123#define forkprocess (curinterp->Iforkprocess)
124#define formfeed (curinterp->Iformfeed)
125#define gensym (curinterp->Igensym)
126#define globalstash (curinterp->Iglobalstash)
127#define incgv (curinterp->Iincgv)
128#define initav (curinterp->Iinitav)
129#define inplace (curinterp->Iinplace)
130#define lastfd (curinterp->Ilastfd)
131#define lastscream (curinterp->Ilastscream)
132#define lastsize (curinterp->Ilastsize)
133#define lastspbase (curinterp->Ilastspbase)
134#define laststatval (curinterp->Ilaststatval)
135#define laststype (curinterp->Ilaststype)
136#define leftgv (curinterp->Ileftgv)
137#define lineary (curinterp->Ilineary)
138#define localpatches (curinterp->Ilocalpatches)
139#define main_cv (curinterp->Imain_cv)
140#define main_root (curinterp->Imain_root)
141#define main_start (curinterp->Imain_start)
142#define maxscream (curinterp->Imaxscream)
143#define maxsysfd (curinterp->Imaxsysfd)
144#define mess_sv (curinterp->Imess_sv)
145#define minus_F (curinterp->Iminus_F)
146#define minus_a (curinterp->Iminus_a)
147#define minus_c (curinterp->Iminus_c)
148#define minus_l (curinterp->Iminus_l)
149#define minus_n (curinterp->Iminus_n)
150#define minus_p (curinterp->Iminus_p)
151#define multiline (curinterp->Imultiline)
152#define mystrk (curinterp->Imystrk)
153#define ofmt (curinterp->Iofmt)
154#define oldlastpm (curinterp->Ioldlastpm)
155#define oldname (curinterp->Ioldname)
156#define op_mask (curinterp->Iop_mask)
157#define origargc (curinterp->Iorigargc)
158#define origargv (curinterp->Iorigargv)
159#define origfilename (curinterp->Iorigfilename)
160#define ors (curinterp->Iors)
161#define orslen (curinterp->Iorslen)
162#define parsehook (curinterp->Iparsehook)
163#define patchlevel (curinterp->Ipatchlevel)
164#define perl_destruct_level (curinterp->Iperl_destruct_level)
165#define perldb (curinterp->Iperldb)
166#define preambleav (curinterp->Ipreambleav)
167#define preambled (curinterp->Ipreambled)
168#define preprocess (curinterp->Ipreprocess)
169#define rightgv (curinterp->Irightgv)
170#define sawampersand (curinterp->Isawampersand)
171#define sawstudy (curinterp->Isawstudy)
172#define sawvec (curinterp->Isawvec)
173#define screamfirst (curinterp->Iscreamfirst)
174#define screamnext (curinterp->Iscreamnext)
175#define secondgv (curinterp->Isecondgv)
176#define siggv (curinterp->Isiggv)
177#define signalstack (curinterp->Isignalstack)
178#define sortcop (curinterp->Isortcop)
179#define sortstack (curinterp->Isortstack)
180#define sortstash (curinterp->Isortstash)
181#define splitstr (curinterp->Isplitstr)
182#define statcache (curinterp->Istatcache)
183#define statgv (curinterp->Istatgv)
184#define statname (curinterp->Istatname)
185#define statusvalue (curinterp->Istatusvalue)
186#define statusvalue_vms (curinterp->Istatusvalue_vms)
187#define stdingv (curinterp->Istdingv)
188#define strchop (curinterp->Istrchop)
189#define strtab (curinterp->Istrtab)
190#define sv_arenaroot (curinterp->Isv_arenaroot)
191#define sv_count (curinterp->Isv_count)
192#define sv_objcount (curinterp->Isv_objcount)
193#define sv_root (curinterp->Isv_root)
194#define tainting (curinterp->Itainting)
940cb80d 195#define threadnum (curinterp->Ithreadnum)
d4cce5f1 196#define thrsv (curinterp->Ithrsv)
197#define unsafe (curinterp->Iunsafe)
198#define warnhook (curinterp->Iwarnhook)
199
200#else /* !MULTIPLICITY */
201
202#define IArgv Argv
203#define ICmd Cmd
204#define IDBgv DBgv
205#define IDBline DBline
206#define IDBsignal DBsignal
207#define IDBsingle DBsingle
208#define IDBsub DBsub
209#define IDBtrace DBtrace
210#define Iampergv ampergv
211#define Iargvgv argvgv
212#define Iargvoutgv argvoutgv
213#define Ibasetime basetime
214#define Ibeginav beginav
215#define Icddir cddir
216#define Icopline copline
217#define Icurcopdb curcopdb
218#define Icurstname curstname
219#define Idbargs dbargs
220#define Idebdelim debdelim
221#define Idebname debname
222#define Idebstash debstash
223#define Idefgv defgv
224#define Idiehook diehook
225#define Idlevel dlevel
226#define Idlmax dlmax
227#define Idoextract doextract
228#define Idoswitches doswitches
229#define Idowarn dowarn
230#define Idumplvl dumplvl
231#define Ie_fp e_fp
232#define Ie_tmpname e_tmpname
233#define Iendav endav
234#define Ienvgv envgv
235#define Ierrgv errgv
236#define Ieval_root eval_root
237#define Ieval_start eval_start
238#define Ifdpid fdpid
239#define Ifilemode filemode
240#define Ifirstgv firstgv
241#define Iforkprocess forkprocess
242#define Iformfeed formfeed
243#define Igensym gensym
244#define Iglobalstash globalstash
245#define Iincgv incgv
246#define Iinitav initav
247#define Iinplace inplace
248#define Ilastfd lastfd
249#define Ilastscream lastscream
250#define Ilastsize lastsize
251#define Ilastspbase lastspbase
252#define Ilaststatval laststatval
253#define Ilaststype laststype
254#define Ileftgv leftgv
255#define Ilineary lineary
256#define Ilocalpatches localpatches
257#define Imain_cv main_cv
258#define Imain_root main_root
259#define Imain_start main_start
260#define Imaxscream maxscream
261#define Imaxsysfd maxsysfd
262#define Imess_sv mess_sv
263#define Iminus_F minus_F
264#define Iminus_a minus_a
265#define Iminus_c minus_c
266#define Iminus_l minus_l
267#define Iminus_n minus_n
268#define Iminus_p minus_p
269#define Imultiline multiline
270#define Imystrk mystrk
271#define Iofmt ofmt
272#define Ioldlastpm oldlastpm
273#define Ioldname oldname
274#define Iop_mask op_mask
275#define Iorigargc origargc
276#define Iorigargv origargv
277#define Iorigfilename origfilename
278#define Iors ors
279#define Iorslen orslen
280#define Iparsehook parsehook
281#define Ipatchlevel patchlevel
282#define Iperl_destruct_level perl_destruct_level
283#define Iperldb perldb
284#define Ipreambleav preambleav
285#define Ipreambled preambled
286#define Ipreprocess preprocess
287#define Irightgv rightgv
288#define Isawampersand sawampersand
289#define Isawstudy sawstudy
290#define Isawvec sawvec
291#define Iscreamfirst screamfirst
292#define Iscreamnext screamnext
293#define Isecondgv secondgv
294#define Isiggv siggv
295#define Isignalstack signalstack
296#define Isortcop sortcop
297#define Isortstack sortstack
298#define Isortstash sortstash
299#define Isplitstr splitstr
300#define Istatcache statcache
301#define Istatgv statgv
302#define Istatname statname
303#define Istatusvalue statusvalue
304#define Istatusvalue_vms statusvalue_vms
305#define Istdingv stdingv
306#define Istrchop strchop
307#define Istrtab strtab
308#define Isv_arenaroot sv_arenaroot
309#define Isv_count sv_count
310#define Isv_objcount sv_objcount
311#define Isv_root sv_root
312#define Itainting tainting
940cb80d 313#define Ithreadnum threadnum
d4cce5f1 314#define Ithrsv thrsv
315#define Iunsafe unsafe
316#define Iwarnhook warnhook
317
318#ifndef USE_THREADS
319
320#define TSv Sv
321#define TXpv Xpv
4e4c362e 322#define Tav_fetch_sv av_fetch_sv
d4cce5f1 323#define Tbodytarget bodytarget
324#define Tchopset chopset
325#define Tcurcop curcop
326#define Tcurpad curpad
327#define Tcurpm curpm
328#define Tcurstack curstack
329#define Tcurstash curstash
330#define Tcxstack cxstack
331#define Tcxstack_ix cxstack_ix
332#define Tcxstack_max cxstack_max
333#define Tdefoutgv defoutgv
334#define Tdefstash defstash
335#define Tdelaymagic delaymagic
336#define Tdirty dirty
337#define Tformtarget formtarget
4e4c362e 338#define Thv_fetch_ent_mh hv_fetch_ent_mh
339#define Thv_fetch_sv hv_fetch_sv
d4cce5f1 340#define Tin_eval in_eval
341#define Tlast_in_gv last_in_gv
342#define Tlocalizing localizing
343#define Tmainstack mainstack
344#define Tmarkstack markstack
345#define Tmarkstack_max markstack_max
346#define Tmarkstack_ptr markstack_ptr
347#define Tnrs nrs
348#define Tofs ofs
349#define Tofslen ofslen
350#define Top op
351#define Topsave opsave
352#define Trestartop restartop
353#define Tretstack retstack
354#define Tretstack_ix retstack_ix
355#define Tretstack_max retstack_max
356#define Trs rs
357#define Tsavestack savestack
358#define Tsavestack_ix savestack_ix
359#define Tsavestack_max savestack_max
360#define Tscopestack scopestack
361#define Tscopestack_ix scopestack_ix
362#define Tscopestack_max scopestack_max
363#define Tstack_base stack_base
364#define Tstack_max stack_max
365#define Tstack_sp stack_sp
366#define Tstart_env start_env
367#define Tstatbuf statbuf
368#define Ttainted tainted
369#define Ttimesbuf timesbuf
370#define Ttmps_floor tmps_floor
371#define Ttmps_ix tmps_ix
372#define Ttmps_max tmps_max
373#define Ttmps_stack tmps_stack
374#define Ttop_env top_env
375#define Ttoptarget toptarget
376
377#endif /* USE_THREADS */
378
379/* Hide what would have been interpreter-specific symbols? */
380
381#ifdef EMBED
382
383#define Argv Perl_Argv
384#define Cmd Perl_Cmd
385#define DBgv Perl_DBgv
386#define DBline Perl_DBline
387#define DBsignal Perl_DBsignal
388#define DBsingle Perl_DBsingle
389#define DBsub Perl_DBsub
390#define DBtrace Perl_DBtrace
391#define ampergv Perl_ampergv
392#define argvgv Perl_argvgv
393#define argvoutgv Perl_argvoutgv
394#define basetime Perl_basetime
395#define beginav Perl_beginav
396#define cddir Perl_cddir
397#define copline Perl_copline
398#define curcopdb Perl_curcopdb
399#define curstname Perl_curstname
400#define dbargs Perl_dbargs
401#define debdelim Perl_debdelim
402#define debname Perl_debname
403#define debstash Perl_debstash
404#define defgv Perl_defgv
405#define diehook Perl_diehook
406#define dlevel Perl_dlevel
407#define dlmax Perl_dlmax
408#define doextract Perl_doextract
409#define doswitches Perl_doswitches
410#define dowarn Perl_dowarn
411#define dumplvl Perl_dumplvl
412#define e_fp Perl_e_fp
413#define e_tmpname Perl_e_tmpname
414#define endav Perl_endav
415#define envgv Perl_envgv
416#define errgv Perl_errgv
417#define eval_root Perl_eval_root
418#define eval_start Perl_eval_start
419#define fdpid Perl_fdpid
420#define filemode Perl_filemode
421#define firstgv Perl_firstgv
422#define forkprocess Perl_forkprocess
423#define formfeed Perl_formfeed
424#define gensym Perl_gensym
425#define globalstash Perl_globalstash
426#define incgv Perl_incgv
427#define initav Perl_initav
428#define inplace Perl_inplace
429#define lastfd Perl_lastfd
430#define lastscream Perl_lastscream
431#define lastsize Perl_lastsize
432#define lastspbase Perl_lastspbase
433#define laststatval Perl_laststatval
434#define laststype Perl_laststype
435#define leftgv Perl_leftgv
436#define lineary Perl_lineary
437#define localpatches Perl_localpatches
438#define main_cv Perl_main_cv
439#define main_root Perl_main_root
440#define main_start Perl_main_start
441#define maxscream Perl_maxscream
442#define maxsysfd Perl_maxsysfd
443#define mess_sv Perl_mess_sv
444#define minus_F Perl_minus_F
445#define minus_a Perl_minus_a
446#define minus_c Perl_minus_c
447#define minus_l Perl_minus_l
448#define minus_n Perl_minus_n
449#define minus_p Perl_minus_p
450#define multiline Perl_multiline
451#define mystrk Perl_mystrk
452#define ofmt Perl_ofmt
453#define oldlastpm Perl_oldlastpm
454#define oldname Perl_oldname
455#define op_mask Perl_op_mask
456#define origargc Perl_origargc
457#define origargv Perl_origargv
458#define origfilename Perl_origfilename
459#define ors Perl_ors
460#define orslen Perl_orslen
461#define parsehook Perl_parsehook
462#define patchlevel Perl_patchlevel
463#define perl_destruct_level Perl_perl_destruct_level
464#define perldb Perl_perldb
465#define preambleav Perl_preambleav
466#define preambled Perl_preambled
467#define preprocess Perl_preprocess
468#define rightgv Perl_rightgv
469#define sawampersand Perl_sawampersand
470#define sawstudy Perl_sawstudy
471#define sawvec Perl_sawvec
472#define screamfirst Perl_screamfirst
473#define screamnext Perl_screamnext
474#define secondgv Perl_secondgv
475#define siggv Perl_siggv
476#define signalstack Perl_signalstack
477#define sortcop Perl_sortcop
478#define sortstack Perl_sortstack
479#define sortstash Perl_sortstash
480#define splitstr Perl_splitstr
481#define statcache Perl_statcache
482#define statgv Perl_statgv
483#define statname Perl_statname
484#define statusvalue Perl_statusvalue
485#define statusvalue_vms Perl_statusvalue_vms
486#define stdingv Perl_stdingv
487#define strchop Perl_strchop
488#define strtab Perl_strtab
489#define sv_arenaroot Perl_sv_arenaroot
490#define sv_count Perl_sv_count
491#define sv_objcount Perl_sv_objcount
492#define sv_root Perl_sv_root
493#define tainting Perl_tainting
940cb80d 494#define threadnum Perl_threadnum
d4cce5f1 495#define thrsv Perl_thrsv
496#define unsafe Perl_unsafe
497#define warnhook Perl_warnhook
498
499#ifndef USE_THREADS
500
501#define Sv Perl_Sv
502#define Xpv Perl_Xpv
4e4c362e 503#define av_fetch_sv Perl_av_fetch_sv
d4cce5f1 504#define bodytarget Perl_bodytarget
505#define chopset Perl_chopset
506#define curcop Perl_curcop
507#define curpad Perl_curpad
508#define curpm Perl_curpm
509#define curstack Perl_curstack
510#define curstash Perl_curstash
511#define cxstack Perl_cxstack
512#define cxstack_ix Perl_cxstack_ix
513#define cxstack_max Perl_cxstack_max
514#define defoutgv Perl_defoutgv
515#define defstash Perl_defstash
516#define delaymagic Perl_delaymagic
517#define dirty Perl_dirty
518#define formtarget Perl_formtarget
4e4c362e 519#define hv_fetch_ent_mh Perl_hv_fetch_ent_mh
520#define hv_fetch_sv Perl_hv_fetch_sv
d4cce5f1 521#define in_eval Perl_in_eval
522#define last_in_gv Perl_last_in_gv
523#define localizing Perl_localizing
524#define mainstack Perl_mainstack
525#define markstack Perl_markstack
526#define markstack_max Perl_markstack_max
527#define markstack_ptr Perl_markstack_ptr
528#define nrs Perl_nrs
529#define ofs Perl_ofs
530#define ofslen Perl_ofslen
531#define op Perl_op
532#define opsave Perl_opsave
533#define restartop Perl_restartop
534#define retstack Perl_retstack
535#define retstack_ix Perl_retstack_ix
536#define retstack_max Perl_retstack_max
537#define rs Perl_rs
538#define savestack Perl_savestack
539#define savestack_ix Perl_savestack_ix
540#define savestack_max Perl_savestack_max
541#define scopestack Perl_scopestack
542#define scopestack_ix Perl_scopestack_ix
543#define scopestack_max Perl_scopestack_max
544#define stack_base Perl_stack_base
545#define stack_max Perl_stack_max
546#define stack_sp Perl_stack_sp
547#define start_env Perl_start_env
548#define statbuf Perl_statbuf
549#define tainted Perl_tainted
550#define timesbuf Perl_timesbuf
551#define tmps_floor Perl_tmps_floor
552#define tmps_ix Perl_tmps_ix
553#define tmps_max Perl_tmps_max
554#define tmps_stack Perl_tmps_stack
555#define top_env Perl_top_env
556#define toptarget Perl_toptarget
557
558#endif /* USE_THREADS */
559#endif /* EMBED */
560#endif /* MULTIPLICITY */
561
562/* Now same trickey for per-thread variables */
563
564#ifdef USE_THREADS
565
566#define Sv (thr->TSv)
567#define Xpv (thr->TXpv)
4e4c362e 568#define av_fetch_sv (thr->Tav_fetch_sv)
d4cce5f1 569#define bodytarget (thr->Tbodytarget)
570#define chopset (thr->Tchopset)
571#define curcop (thr->Tcurcop)
572#define curpad (thr->Tcurpad)
573#define curpm (thr->Tcurpm)
574#define curstack (thr->Tcurstack)
575#define curstash (thr->Tcurstash)
576#define cxstack (thr->Tcxstack)
577#define cxstack_ix (thr->Tcxstack_ix)
578#define cxstack_max (thr->Tcxstack_max)
579#define defoutgv (thr->Tdefoutgv)
580#define defstash (thr->Tdefstash)
581#define delaymagic (thr->Tdelaymagic)
582#define dirty (thr->Tdirty)
583#define formtarget (thr->Tformtarget)
4e4c362e 584#define hv_fetch_ent_mh (thr->Thv_fetch_ent_mh)
585#define hv_fetch_sv (thr->Thv_fetch_sv)
d4cce5f1 586#define in_eval (thr->Tin_eval)
587#define last_in_gv (thr->Tlast_in_gv)
588#define localizing (thr->Tlocalizing)
589#define mainstack (thr->Tmainstack)
590#define markstack (thr->Tmarkstack)
591#define markstack_max (thr->Tmarkstack_max)
592#define markstack_ptr (thr->Tmarkstack_ptr)
593#define nrs (thr->Tnrs)
594#define ofs (thr->Tofs)
595#define ofslen (thr->Tofslen)
596#define op (thr->Top)
597#define opsave (thr->Topsave)
598#define restartop (thr->Trestartop)
599#define retstack (thr->Tretstack)
600#define retstack_ix (thr->Tretstack_ix)
601#define retstack_max (thr->Tretstack_max)
602#define rs (thr->Trs)
603#define savestack (thr->Tsavestack)
604#define savestack_ix (thr->Tsavestack_ix)
605#define savestack_max (thr->Tsavestack_max)
606#define scopestack (thr->Tscopestack)
607#define scopestack_ix (thr->Tscopestack_ix)
608#define scopestack_max (thr->Tscopestack_max)
609#define stack_base (thr->Tstack_base)
610#define stack_max (thr->Tstack_max)
611#define stack_sp (thr->Tstack_sp)
612#define start_env (thr->Tstart_env)
613#define statbuf (thr->Tstatbuf)
614#define tainted (thr->Ttainted)
615#define timesbuf (thr->Ttimesbuf)
616#define tmps_floor (thr->Ttmps_floor)
617#define tmps_ix (thr->Ttmps_ix)
618#define tmps_max (thr->Ttmps_max)
619#define tmps_stack (thr->Ttmps_stack)
620#define top_env (thr->Ttop_env)
621#define toptarget (thr->Ttoptarget)
622
623#endif /* USE_THREADS */
624
22239a37 625#ifdef PERL_GLOBAL_STRUCT
626
3fe35a81 627#define No (Perl_Vars.GNo)
628#define Yes (Perl_Vars.GYes)
22239a37 629#define amagic_generation (Perl_Vars.Gamagic_generation)
630#define an (Perl_Vars.Gan)
631#define bufend (Perl_Vars.Gbufend)
632#define bufptr (Perl_Vars.Gbufptr)
633#define collation_ix (Perl_Vars.Gcollation_ix)
634#define collation_name (Perl_Vars.Gcollation_name)
635#define collation_standard (Perl_Vars.Gcollation_standard)
636#define collxfrm_base (Perl_Vars.Gcollxfrm_base)
637#define collxfrm_mult (Perl_Vars.Gcollxfrm_mult)
638#define compcv (Perl_Vars.Gcompcv)
639#define compiling (Perl_Vars.Gcompiling)
640#define comppad (Perl_Vars.Gcomppad)
641#define comppad_name (Perl_Vars.Gcomppad_name)
642#define comppad_name_fill (Perl_Vars.Gcomppad_name_fill)
643#define comppad_name_floor (Perl_Vars.Gcomppad_name_floor)
644#define cop_seqmax (Perl_Vars.Gcop_seqmax)
645#define cryptseen (Perl_Vars.Gcryptseen)
646#define cshlen (Perl_Vars.Gcshlen)
647#define cshname (Perl_Vars.Gcshname)
648#define curinterp (Perl_Vars.Gcurinterp)
649#define curthr (Perl_Vars.Gcurthr)
650#define debug (Perl_Vars.Gdebug)
651#define do_undump (Perl_Vars.Gdo_undump)
652#define egid (Perl_Vars.Gegid)
653#define error_count (Perl_Vars.Gerror_count)
654#define euid (Perl_Vars.Geuid)
655#define eval_cond (Perl_Vars.Geval_cond)
656#define eval_mutex (Perl_Vars.Geval_mutex)
657#define eval_owner (Perl_Vars.Geval_owner)
658#define evalseq (Perl_Vars.Gevalseq)
659#define expect (Perl_Vars.Gexpect)
660#define gid (Perl_Vars.Ggid)
661#define he_root (Perl_Vars.Ghe_root)
3fe35a81 662#define hexdigit (Perl_Vars.Ghexdigit)
22239a37 663#define hints (Perl_Vars.Ghints)
664#define in_my (Perl_Vars.Gin_my)
665#define in_my_stash (Perl_Vars.Gin_my_stash)
666#define last_lop (Perl_Vars.Glast_lop)
667#define last_lop_op (Perl_Vars.Glast_lop_op)
668#define last_uni (Perl_Vars.Glast_uni)
669#define lex_brackets (Perl_Vars.Glex_brackets)
670#define lex_brackstack (Perl_Vars.Glex_brackstack)
671#define lex_casemods (Perl_Vars.Glex_casemods)
672#define lex_casestack (Perl_Vars.Glex_casestack)
673#define lex_defer (Perl_Vars.Glex_defer)
674#define lex_dojoin (Perl_Vars.Glex_dojoin)
675#define lex_expect (Perl_Vars.Glex_expect)
676#define lex_fakebrack (Perl_Vars.Glex_fakebrack)
677#define lex_formbrack (Perl_Vars.Glex_formbrack)
678#define lex_inpat (Perl_Vars.Glex_inpat)
679#define lex_inwhat (Perl_Vars.Glex_inwhat)
680#define lex_op (Perl_Vars.Glex_op)
681#define lex_repl (Perl_Vars.Glex_repl)
682#define lex_starts (Perl_Vars.Glex_starts)
683#define lex_state (Perl_Vars.Glex_state)
684#define lex_stuff (Perl_Vars.Glex_stuff)
685#define linestr (Perl_Vars.Glinestr)
686#define malloc_mutex (Perl_Vars.Gmalloc_mutex)
687#define max_intro_pending (Perl_Vars.Gmax_intro_pending)
688#define maxo (Perl_Vars.Gmaxo)
689#define min_intro_pending (Perl_Vars.Gmin_intro_pending)
690#define multi_close (Perl_Vars.Gmulti_close)
691#define multi_end (Perl_Vars.Gmulti_end)
692#define multi_open (Perl_Vars.Gmulti_open)
693#define multi_start (Perl_Vars.Gmulti_start)
694#define na (Perl_Vars.Gna)
695#define nexttoke (Perl_Vars.Gnexttoke)
696#define nexttype (Perl_Vars.Gnexttype)
697#define nextval (Perl_Vars.Gnextval)
698#define nice_chunk (Perl_Vars.Gnice_chunk)
699#define nice_chunk_size (Perl_Vars.Gnice_chunk_size)
700#define nomemok (Perl_Vars.Gnomemok)
701#define nthreads (Perl_Vars.Gnthreads)
702#define nthreads_cond (Perl_Vars.Gnthreads_cond)
703#define numeric_local (Perl_Vars.Gnumeric_local)
704#define numeric_name (Perl_Vars.Gnumeric_name)
705#define numeric_standard (Perl_Vars.Gnumeric_standard)
706#define oldbufptr (Perl_Vars.Goldbufptr)
707#define oldoldbufptr (Perl_Vars.Goldoldbufptr)
708#define op_seqmax (Perl_Vars.Gop_seqmax)
709#define origalen (Perl_Vars.Gorigalen)
710#define origenviron (Perl_Vars.Gorigenviron)
711#define osname (Perl_Vars.Gosname)
712#define pad_reset_pending (Perl_Vars.Gpad_reset_pending)
713#define padix (Perl_Vars.Gpadix)
714#define padix_floor (Perl_Vars.Gpadix_floor)
3fe35a81 715#define patleave (Perl_Vars.Gpatleave)
22239a37 716#define pidstatus (Perl_Vars.Gpidstatus)
717#define profiledata (Perl_Vars.Gprofiledata)
718#define rsfp (Perl_Vars.Grsfp)
719#define rsfp_filters (Perl_Vars.Grsfp_filters)
720#define runops (Perl_Vars.Grunops)
721#define scrgv (Perl_Vars.Gscrgv)
722#define sh_path (Perl_Vars.Gsh_path)
723#define sighandlerp (Perl_Vars.Gsighandlerp)
724#define sub_generation (Perl_Vars.Gsub_generation)
725#define subline (Perl_Vars.Gsubline)
726#define subname (Perl_Vars.Gsubname)
727#define sv_mutex (Perl_Vars.Gsv_mutex)
728#define sv_no (Perl_Vars.Gsv_no)
729#define sv_undef (Perl_Vars.Gsv_undef)
730#define sv_yes (Perl_Vars.Gsv_yes)
0bfcb09d 731#define svref_mutex (Perl_Vars.Gsvref_mutex)
22239a37 732#define thisexpr (Perl_Vars.Gthisexpr)
733#define thr_key (Perl_Vars.Gthr_key)
734#define threads_mutex (Perl_Vars.Gthreads_mutex)
735#define threadsv_names (Perl_Vars.Gthreadsv_names)
736#define tokenbuf (Perl_Vars.Gtokenbuf)
737#define uid (Perl_Vars.Guid)
738#define xiv_arenaroot (Perl_Vars.Gxiv_arenaroot)
739#define xiv_root (Perl_Vars.Gxiv_root)
740#define xnv_root (Perl_Vars.Gxnv_root)
741#define xpv_root (Perl_Vars.Gxpv_root)
742#define xrv_root (Perl_Vars.Gxrv_root)
743
744#else /* !PERL_GLOBAL_STRUCT */
745
3fe35a81 746#define GNo No
747#define GYes Yes
22239a37 748#define Gamagic_generation amagic_generation
749#define Gan an
750#define Gbufend bufend
751#define Gbufptr bufptr
752#define Gcollation_ix collation_ix
753#define Gcollation_name collation_name
754#define Gcollation_standard collation_standard
755#define Gcollxfrm_base collxfrm_base
756#define Gcollxfrm_mult collxfrm_mult
757#define Gcompcv compcv
758#define Gcompiling compiling
759#define Gcomppad comppad
760#define Gcomppad_name comppad_name
761#define Gcomppad_name_fill comppad_name_fill
762#define Gcomppad_name_floor comppad_name_floor
763#define Gcop_seqmax cop_seqmax
764#define Gcryptseen cryptseen
765#define Gcshlen cshlen
766#define Gcshname cshname
767#define Gcurinterp curinterp
768#define Gcurthr curthr
769#define Gdebug debug
770#define Gdo_undump do_undump
771#define Gegid egid
772#define Gerror_count error_count
773#define Geuid euid
774#define Geval_cond eval_cond
775#define Geval_mutex eval_mutex
776#define Geval_owner eval_owner
777#define Gevalseq evalseq
778#define Gexpect expect
779#define Ggid gid
780#define Ghe_root he_root
3fe35a81 781#define Ghexdigit hexdigit
22239a37 782#define Ghints hints
783#define Gin_my in_my
784#define Gin_my_stash in_my_stash
785#define Glast_lop last_lop
786#define Glast_lop_op last_lop_op
787#define Glast_uni last_uni
788#define Glex_brackets lex_brackets
789#define Glex_brackstack lex_brackstack
790#define Glex_casemods lex_casemods
791#define Glex_casestack lex_casestack
792#define Glex_defer lex_defer
793#define Glex_dojoin lex_dojoin
794#define Glex_expect lex_expect
795#define Glex_fakebrack lex_fakebrack
796#define Glex_formbrack lex_formbrack
797#define Glex_inpat lex_inpat
798#define Glex_inwhat lex_inwhat
799#define Glex_op lex_op
800#define Glex_repl lex_repl
801#define Glex_starts lex_starts
802#define Glex_state lex_state
803#define Glex_stuff lex_stuff
804#define Glinestr linestr
805#define Gmalloc_mutex malloc_mutex
806#define Gmax_intro_pending max_intro_pending
807#define Gmaxo maxo
808#define Gmin_intro_pending min_intro_pending
809#define Gmulti_close multi_close
810#define Gmulti_end multi_end
811#define Gmulti_open multi_open
812#define Gmulti_start multi_start
813#define Gna na
814#define Gnexttoke nexttoke
815#define Gnexttype nexttype
816#define Gnextval nextval
817#define Gnice_chunk nice_chunk
818#define Gnice_chunk_size nice_chunk_size
819#define Gnomemok nomemok
820#define Gnthreads nthreads
821#define Gnthreads_cond nthreads_cond
822#define Gnumeric_local numeric_local
823#define Gnumeric_name numeric_name
824#define Gnumeric_standard numeric_standard
825#define Goldbufptr oldbufptr
826#define Goldoldbufptr oldoldbufptr
827#define Gop_seqmax op_seqmax
828#define Gorigalen origalen
829#define Gorigenviron origenviron
830#define Gosname osname
831#define Gpad_reset_pending pad_reset_pending
832#define Gpadix padix
833#define Gpadix_floor padix_floor
3fe35a81 834#define Gpatleave patleave
22239a37 835#define Gpidstatus pidstatus
836#define Gprofiledata profiledata
837#define Grsfp rsfp
838#define Grsfp_filters rsfp_filters
839#define Grunops runops
840#define Gscrgv scrgv
841#define Gsh_path sh_path
842#define Gsighandlerp sighandlerp
843#define Gsub_generation sub_generation
844#define Gsubline subline
845#define Gsubname subname
846#define Gsv_mutex sv_mutex
847#define Gsv_no sv_no
848#define Gsv_undef sv_undef
849#define Gsv_yes sv_yes
0bfcb09d 850#define Gsvref_mutex svref_mutex
22239a37 851#define Gthisexpr thisexpr
852#define Gthr_key thr_key
853#define Gthreads_mutex threads_mutex
854#define Gthreadsv_names threadsv_names
855#define Gtokenbuf tokenbuf
856#define Guid uid
857#define Gxiv_arenaroot xiv_arenaroot
858#define Gxiv_root xiv_root
859#define Gxnv_root xnv_root
860#define Gxpv_root xpv_root
861#define Gxrv_root xrv_root
862
863#ifdef EMBED
864
3fe35a81 865#define No Perl_No
866#define Yes Perl_Yes
22239a37 867#define amagic_generation Perl_amagic_generation
868#define an Perl_an
869#define bufend Perl_bufend
870#define bufptr Perl_bufptr
871#define collation_ix Perl_collation_ix
872#define collation_name Perl_collation_name
873#define collation_standard Perl_collation_standard
874#define collxfrm_base Perl_collxfrm_base
875#define collxfrm_mult Perl_collxfrm_mult
876#define compcv Perl_compcv
877#define compiling Perl_compiling
878#define comppad Perl_comppad
879#define comppad_name Perl_comppad_name
880#define comppad_name_fill Perl_comppad_name_fill
881#define comppad_name_floor Perl_comppad_name_floor
882#define cop_seqmax Perl_cop_seqmax
883#define cryptseen Perl_cryptseen
884#define cshlen Perl_cshlen
885#define cshname Perl_cshname
886#define curinterp Perl_curinterp
887#define curthr Perl_curthr
888#define debug Perl_debug
889#define do_undump Perl_do_undump
890#define egid Perl_egid
891#define error_count Perl_error_count
892#define euid Perl_euid
893#define eval_cond Perl_eval_cond
894#define eval_mutex Perl_eval_mutex
895#define eval_owner Perl_eval_owner
896#define evalseq Perl_evalseq
897#define expect Perl_expect
898#define gid Perl_gid
899#define he_root Perl_he_root
3fe35a81 900#define hexdigit Perl_hexdigit
22239a37 901#define hints Perl_hints
902#define in_my Perl_in_my
903#define in_my_stash Perl_in_my_stash
904#define last_lop Perl_last_lop
905#define last_lop_op Perl_last_lop_op
906#define last_uni Perl_last_uni
907#define lex_brackets Perl_lex_brackets
908#define lex_brackstack Perl_lex_brackstack
909#define lex_casemods Perl_lex_casemods
910#define lex_casestack Perl_lex_casestack
911#define lex_defer Perl_lex_defer
912#define lex_dojoin Perl_lex_dojoin
913#define lex_expect Perl_lex_expect
914#define lex_fakebrack Perl_lex_fakebrack
915#define lex_formbrack Perl_lex_formbrack
916#define lex_inpat Perl_lex_inpat
917#define lex_inwhat Perl_lex_inwhat
918#define lex_op Perl_lex_op
919#define lex_repl Perl_lex_repl
920#define lex_starts Perl_lex_starts
921#define lex_state Perl_lex_state
922#define lex_stuff Perl_lex_stuff
923#define linestr Perl_linestr
924#define malloc_mutex Perl_malloc_mutex
925#define max_intro_pending Perl_max_intro_pending
926#define maxo Perl_maxo
927#define min_intro_pending Perl_min_intro_pending
928#define multi_close Perl_multi_close
929#define multi_end Perl_multi_end
930#define multi_open Perl_multi_open
931#define multi_start Perl_multi_start
932#define na Perl_na
933#define nexttoke Perl_nexttoke
934#define nexttype Perl_nexttype
935#define nextval Perl_nextval
936#define nice_chunk Perl_nice_chunk
937#define nice_chunk_size Perl_nice_chunk_size
938#define nomemok Perl_nomemok
939#define nthreads Perl_nthreads
940#define nthreads_cond Perl_nthreads_cond
941#define numeric_local Perl_numeric_local
942#define numeric_name Perl_numeric_name
943#define numeric_standard Perl_numeric_standard
944#define oldbufptr Perl_oldbufptr
945#define oldoldbufptr Perl_oldoldbufptr
946#define op_seqmax Perl_op_seqmax
947#define origalen Perl_origalen
948#define origenviron Perl_origenviron
949#define osname Perl_osname
950#define pad_reset_pending Perl_pad_reset_pending
951#define padix Perl_padix
952#define padix_floor Perl_padix_floor
3fe35a81 953#define patleave Perl_patleave
22239a37 954#define pidstatus Perl_pidstatus
955#define profiledata Perl_profiledata
956#define rsfp Perl_rsfp
957#define rsfp_filters Perl_rsfp_filters
958#define runops Perl_runops
959#define scrgv Perl_scrgv
960#define sh_path Perl_sh_path
961#define sighandlerp Perl_sighandlerp
962#define sub_generation Perl_sub_generation
963#define subline Perl_subline
964#define subname Perl_subname
965#define sv_mutex Perl_sv_mutex
966#define sv_no Perl_sv_no
967#define sv_undef Perl_sv_undef
968#define sv_yes Perl_sv_yes
0bfcb09d 969#define svref_mutex Perl_svref_mutex
22239a37 970#define thisexpr Perl_thisexpr
971#define thr_key Perl_thr_key
972#define threads_mutex Perl_threads_mutex
973#define threadsv_names Perl_threadsv_names
974#define tokenbuf Perl_tokenbuf
975#define uid Perl_uid
976#define xiv_arenaroot Perl_xiv_arenaroot
977#define xiv_root Perl_xiv_root
978#define xnv_root Perl_xnv_root
979#define xpv_root Perl_xpv_root
980#define xrv_root Perl_xrv_root
981
982#endif /* EMBED */
983#endif /* PERL_GLOBAL_STRUCT */
984