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