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