Commit | Line | Data |
---|---|---|
d4cce5f1 NIS |
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) |
5c0ca799 | 27 | #define bostr (curinterp->Tbostr) |
d4cce5f1 | 28 | #define chopset (curinterp->Tchopset) |
5c0ca799 GS |
29 | #define colors (curinterp->Tcolors) |
30 | #define colorset (curinterp->Tcolorset) | |
d4cce5f1 NIS |
31 | #define curcop (curinterp->Tcurcop) |
32 | #define curpad (curinterp->Tcurpad) | |
33 | #define curpm (curinterp->Tcurpm) | |
34 | #define curstack (curinterp->Tcurstack) | |
e336de0d | 35 | #define curstackinfo (curinterp->Tcurstackinfo) |
d4cce5f1 | 36 | #define curstash (curinterp->Tcurstash) |
d4cce5f1 NIS |
37 | #define defoutgv (curinterp->Tdefoutgv) |
38 | #define defstash (curinterp->Tdefstash) | |
39 | #define delaymagic (curinterp->Tdelaymagic) | |
40 | #define dirty (curinterp->Tdirty) | |
5c0ca799 GS |
41 | #define extralen (curinterp->Textralen) |
42 | #define firstgv (curinterp->Tfirstgv) | |
d4cce5f1 | 43 | #define formtarget (curinterp->Tformtarget) |
4e4c362e GS |
44 | #define hv_fetch_ent_mh (curinterp->Thv_fetch_ent_mh) |
45 | #define hv_fetch_sv (curinterp->Thv_fetch_sv) | |
d4cce5f1 NIS |
46 | #define in_eval (curinterp->Tin_eval) |
47 | #define last_in_gv (curinterp->Tlast_in_gv) | |
5c0ca799 GS |
48 | #define lastgotoprobe (curinterp->Tlastgotoprobe) |
49 | #define lastscream (curinterp->Tlastscream) | |
d4cce5f1 NIS |
50 | #define localizing (curinterp->Tlocalizing) |
51 | #define mainstack (curinterp->Tmainstack) | |
52 | #define markstack (curinterp->Tmarkstack) | |
53 | #define markstack_max (curinterp->Tmarkstack_max) | |
54 | #define markstack_ptr (curinterp->Tmarkstack_ptr) | |
5c0ca799 | 55 | #define maxscream (curinterp->Tmaxscream) |
48c036b1 | 56 | #define modcount (curinterp->Tmodcount) |
d4cce5f1 NIS |
57 | #define nrs (curinterp->Tnrs) |
58 | #define ofs (curinterp->Tofs) | |
59 | #define ofslen (curinterp->Tofslen) | |
60 | #define op (curinterp->Top) | |
61 | #define opsave (curinterp->Topsave) | |
5c0ca799 GS |
62 | #define reg_eval_set (curinterp->Treg_eval_set) |
63 | #define reg_flags (curinterp->Treg_flags) | |
64 | #define reg_start_tmp (curinterp->Treg_start_tmp) | |
65 | #define reg_start_tmpl (curinterp->Treg_start_tmpl) | |
66 | #define regbol (curinterp->Tregbol) | |
67 | #define regcc (curinterp->Tregcc) | |
68 | #define regcode (curinterp->Tregcode) | |
69 | #define regcomp_parse (curinterp->Tregcomp_parse) | |
70 | #define regcomp_rx (curinterp->Tregcomp_rx) | |
71 | #define regcompp (curinterp->Tregcompp) | |
72 | #define regdata (curinterp->Tregdata) | |
73 | #define regdummy (curinterp->Tregdummy) | |
74 | #define regendp (curinterp->Tregendp) | |
75 | #define regeol (curinterp->Tregeol) | |
76 | #define regexecp (curinterp->Tregexecp) | |
77 | #define regflags (curinterp->Tregflags) | |
78 | #define regindent (curinterp->Tregindent) | |
79 | #define reginput (curinterp->Treginput) | |
80 | #define reginterp_cnt (curinterp->Treginterp_cnt) | |
81 | #define reglastparen (curinterp->Treglastparen) | |
82 | #define regnarrate (curinterp->Tregnarrate) | |
83 | #define regnaughty (curinterp->Tregnaughty) | |
84 | #define regnpar (curinterp->Tregnpar) | |
85 | #define regprecomp (curinterp->Tregprecomp) | |
86 | #define regprev (curinterp->Tregprev) | |
87 | #define regprogram (curinterp->Tregprogram) | |
88 | #define regsawback (curinterp->Tregsawback) | |
89 | #define regseen (curinterp->Tregseen) | |
90 | #define regsize (curinterp->Tregsize) | |
91 | #define regstartp (curinterp->Tregstartp) | |
92 | #define regtill (curinterp->Tregtill) | |
93 | #define regxend (curinterp->Tregxend) | |
d4cce5f1 NIS |
94 | #define restartop (curinterp->Trestartop) |
95 | #define retstack (curinterp->Tretstack) | |
96 | #define retstack_ix (curinterp->Tretstack_ix) | |
97 | #define retstack_max (curinterp->Tretstack_max) | |
98 | #define rs (curinterp->Trs) | |
99 | #define savestack (curinterp->Tsavestack) | |
100 | #define savestack_ix (curinterp->Tsavestack_ix) | |
101 | #define savestack_max (curinterp->Tsavestack_max) | |
102 | #define scopestack (curinterp->Tscopestack) | |
103 | #define scopestack_ix (curinterp->Tscopestack_ix) | |
104 | #define scopestack_max (curinterp->Tscopestack_max) | |
5c0ca799 GS |
105 | #define screamfirst (curinterp->Tscreamfirst) |
106 | #define screamnext (curinterp->Tscreamnext) | |
107 | #define secondgv (curinterp->Tsecondgv) | |
108 | #define seen_evals (curinterp->Tseen_evals) | |
109 | #define seen_zerolen (curinterp->Tseen_zerolen) | |
110 | #define sortcop (curinterp->Tsortcop) | |
111 | #define sortcxix (curinterp->Tsortcxix) | |
112 | #define sortstash (curinterp->Tsortstash) | |
d4cce5f1 NIS |
113 | #define stack_base (curinterp->Tstack_base) |
114 | #define stack_max (curinterp->Tstack_max) | |
115 | #define stack_sp (curinterp->Tstack_sp) | |
116 | #define start_env (curinterp->Tstart_env) | |
117 | #define statbuf (curinterp->Tstatbuf) | |
5c0ca799 GS |
118 | #define statcache (curinterp->Tstatcache) |
119 | #define statgv (curinterp->Tstatgv) | |
120 | #define statname (curinterp->Tstatname) | |
d4cce5f1 NIS |
121 | #define tainted (curinterp->Ttainted) |
122 | #define timesbuf (curinterp->Ttimesbuf) | |
123 | #define tmps_floor (curinterp->Ttmps_floor) | |
124 | #define tmps_ix (curinterp->Ttmps_ix) | |
125 | #define tmps_max (curinterp->Ttmps_max) | |
126 | #define tmps_stack (curinterp->Ttmps_stack) | |
127 | #define top_env (curinterp->Ttop_env) | |
128 | #define toptarget (curinterp->Ttoptarget) | |
129 | ||
130 | #endif /* !USE_THREADS */ | |
131 | ||
132 | /* These are always per-interpreter if there is more than one */ | |
133 | ||
134 | #define Argv (curinterp->IArgv) | |
135 | #define Cmd (curinterp->ICmd) | |
7fae4e64 | 136 | #define DBcv (curinterp->IDBcv) |
d4cce5f1 NIS |
137 | #define DBgv (curinterp->IDBgv) |
138 | #define DBline (curinterp->IDBline) | |
139 | #define DBsignal (curinterp->IDBsignal) | |
140 | #define DBsingle (curinterp->IDBsingle) | |
141 | #define DBsub (curinterp->IDBsub) | |
142 | #define DBtrace (curinterp->IDBtrace) | |
143 | #define ampergv (curinterp->Iampergv) | |
7fae4e64 | 144 | #define archpat_auto (curinterp->Iarchpat_auto) |
d4cce5f1 NIS |
145 | #define argvgv (curinterp->Iargvgv) |
146 | #define argvoutgv (curinterp->Iargvoutgv) | |
147 | #define basetime (curinterp->Ibasetime) | |
148 | #define beginav (curinterp->Ibeginav) | |
149 | #define cddir (curinterp->Icddir) | |
cb68f92d GS |
150 | #define compcv (curinterp->Icompcv) |
151 | #define compiling (curinterp->Icompiling) | |
152 | #define comppad (curinterp->Icomppad) | |
153 | #define comppad_name (curinterp->Icomppad_name) | |
154 | #define comppad_name_fill (curinterp->Icomppad_name_fill) | |
155 | #define comppad_name_floor (curinterp->Icomppad_name_floor) | |
d4cce5f1 NIS |
156 | #define copline (curinterp->Icopline) |
157 | #define curcopdb (curinterp->Icurcopdb) | |
158 | #define curstname (curinterp->Icurstname) | |
159 | #define dbargs (curinterp->Idbargs) | |
160 | #define debdelim (curinterp->Idebdelim) | |
161 | #define debname (curinterp->Idebname) | |
162 | #define debstash (curinterp->Idebstash) | |
163 | #define defgv (curinterp->Idefgv) | |
164 | #define diehook (curinterp->Idiehook) | |
165 | #define dlevel (curinterp->Idlevel) | |
166 | #define dlmax (curinterp->Idlmax) | |
167 | #define doextract (curinterp->Idoextract) | |
168 | #define doswitches (curinterp->Idoswitches) | |
169 | #define dowarn (curinterp->Idowarn) | |
170 | #define dumplvl (curinterp->Idumplvl) | |
afe37c7d | 171 | #define e_script (curinterp->Ie_script) |
d4cce5f1 NIS |
172 | #define endav (curinterp->Iendav) |
173 | #define envgv (curinterp->Ienvgv) | |
174 | #define errgv (curinterp->Ierrgv) | |
175 | #define eval_root (curinterp->Ieval_root) | |
176 | #define eval_start (curinterp->Ieval_start) | |
4b556e6c JD |
177 | #define exitlist (curinterp->Iexitlist) |
178 | #define exitlistlen (curinterp->Iexitlistlen) | |
d4cce5f1 NIS |
179 | #define fdpid (curinterp->Ifdpid) |
180 | #define filemode (curinterp->Ifilemode) | |
d4cce5f1 NIS |
181 | #define forkprocess (curinterp->Iforkprocess) |
182 | #define formfeed (curinterp->Iformfeed) | |
7fae4e64 | 183 | #define generation (curinterp->Igeneration) |
d4cce5f1 NIS |
184 | #define gensym (curinterp->Igensym) |
185 | #define globalstash (curinterp->Iglobalstash) | |
b3ac6de7 | 186 | #define hintgv (curinterp->Ihintgv) |
7fae4e64 GS |
187 | #define in_clean_all (curinterp->Iin_clean_all) |
188 | #define in_clean_objs (curinterp->Iin_clean_objs) | |
d4cce5f1 NIS |
189 | #define incgv (curinterp->Iincgv) |
190 | #define initav (curinterp->Iinitav) | |
191 | #define inplace (curinterp->Iinplace) | |
2a841d13 | 192 | #define last_proto (curinterp->Ilast_proto) |
d4cce5f1 | 193 | #define lastfd (curinterp->Ilastfd) |
d4cce5f1 NIS |
194 | #define lastsize (curinterp->Ilastsize) |
195 | #define lastspbase (curinterp->Ilastspbase) | |
196 | #define laststatval (curinterp->Ilaststatval) | |
197 | #define laststype (curinterp->Ilaststype) | |
198 | #define leftgv (curinterp->Ileftgv) | |
199 | #define lineary (curinterp->Ilineary) | |
7fae4e64 | 200 | #define linestart (curinterp->Ilinestart) |
d4cce5f1 NIS |
201 | #define localpatches (curinterp->Ilocalpatches) |
202 | #define main_cv (curinterp->Imain_cv) | |
203 | #define main_root (curinterp->Imain_root) | |
204 | #define main_start (curinterp->Imain_start) | |
d4cce5f1 NIS |
205 | #define maxsysfd (curinterp->Imaxsysfd) |
206 | #define mess_sv (curinterp->Imess_sv) | |
207 | #define minus_F (curinterp->Iminus_F) | |
208 | #define minus_a (curinterp->Iminus_a) | |
209 | #define minus_c (curinterp->Iminus_c) | |
210 | #define minus_l (curinterp->Iminus_l) | |
211 | #define minus_n (curinterp->Iminus_n) | |
212 | #define minus_p (curinterp->Iminus_p) | |
4b556e6c | 213 | #define modglobal (curinterp->Imodglobal) |
d4cce5f1 NIS |
214 | #define multiline (curinterp->Imultiline) |
215 | #define mystrk (curinterp->Imystrk) | |
216 | #define ofmt (curinterp->Iofmt) | |
217 | #define oldlastpm (curinterp->Ioldlastpm) | |
218 | #define oldname (curinterp->Ioldname) | |
219 | #define op_mask (curinterp->Iop_mask) | |
220 | #define origargc (curinterp->Iorigargc) | |
221 | #define origargv (curinterp->Iorigargv) | |
222 | #define origfilename (curinterp->Iorigfilename) | |
223 | #define ors (curinterp->Iors) | |
224 | #define orslen (curinterp->Iorslen) | |
225 | #define parsehook (curinterp->Iparsehook) | |
226 | #define patchlevel (curinterp->Ipatchlevel) | |
7fae4e64 | 227 | #define pending_ident (curinterp->Ipending_ident) |
d4cce5f1 NIS |
228 | #define perl_destruct_level (curinterp->Iperl_destruct_level) |
229 | #define perldb (curinterp->Iperldb) | |
230 | #define preambleav (curinterp->Ipreambleav) | |
231 | #define preambled (curinterp->Ipreambled) | |
232 | #define preprocess (curinterp->Ipreprocess) | |
cb68f92d | 233 | #define profiledata (curinterp->Iprofiledata) |
0230bf3c | 234 | #define replgv (curinterp->Ireplgv) |
d4cce5f1 | 235 | #define rightgv (curinterp->Irightgv) |
cb68f92d GS |
236 | #define rsfp (curinterp->Irsfp) |
237 | #define rsfp_filters (curinterp->Irsfp_filters) | |
d4cce5f1 NIS |
238 | #define sawampersand (curinterp->Isawampersand) |
239 | #define sawstudy (curinterp->Isawstudy) | |
240 | #define sawvec (curinterp->Isawvec) | |
d4cce5f1 | 241 | #define siggv (curinterp->Isiggv) |
d4cce5f1 | 242 | #define splitstr (curinterp->Isplitstr) |
d4cce5f1 NIS |
243 | #define statusvalue (curinterp->Istatusvalue) |
244 | #define statusvalue_vms (curinterp->Istatusvalue_vms) | |
245 | #define stdingv (curinterp->Istdingv) | |
246 | #define strchop (curinterp->Istrchop) | |
247 | #define strtab (curinterp->Istrtab) | |
005a453c | 248 | #define sub_generation (curinterp->Isub_generation) |
7fae4e64 | 249 | #define sublex_info (curinterp->Isublex_info) |
d4cce5f1 NIS |
250 | #define sv_arenaroot (curinterp->Isv_arenaroot) |
251 | #define sv_count (curinterp->Isv_count) | |
252 | #define sv_objcount (curinterp->Isv_objcount) | |
253 | #define sv_root (curinterp->Isv_root) | |
48c036b1 | 254 | #define sys_intern (curinterp->Isys_intern) |
d4cce5f1 | 255 | #define tainting (curinterp->Itainting) |
940cb80d | 256 | #define threadnum (curinterp->Ithreadnum) |
d4cce5f1 NIS |
257 | #define thrsv (curinterp->Ithrsv) |
258 | #define unsafe (curinterp->Iunsafe) | |
259 | #define warnhook (curinterp->Iwarnhook) | |
260 | ||
261 | #else /* !MULTIPLICITY */ | |
262 | ||
263 | #define IArgv Argv | |
264 | #define ICmd Cmd | |
7fae4e64 | 265 | #define IDBcv DBcv |
d4cce5f1 NIS |
266 | #define IDBgv DBgv |
267 | #define IDBline DBline | |
268 | #define IDBsignal DBsignal | |
269 | #define IDBsingle DBsingle | |
270 | #define IDBsub DBsub | |
271 | #define IDBtrace DBtrace | |
272 | #define Iampergv ampergv | |
7fae4e64 | 273 | #define Iarchpat_auto archpat_auto |
d4cce5f1 NIS |
274 | #define Iargvgv argvgv |
275 | #define Iargvoutgv argvoutgv | |
276 | #define Ibasetime basetime | |
277 | #define Ibeginav beginav | |
278 | #define Icddir cddir | |
cb68f92d GS |
279 | #define Icompcv compcv |
280 | #define Icompiling compiling | |
281 | #define Icomppad comppad | |
282 | #define Icomppad_name comppad_name | |
283 | #define Icomppad_name_fill comppad_name_fill | |
284 | #define Icomppad_name_floor comppad_name_floor | |
d4cce5f1 NIS |
285 | #define Icopline copline |
286 | #define Icurcopdb curcopdb | |
287 | #define Icurstname curstname | |
288 | #define Idbargs dbargs | |
289 | #define Idebdelim debdelim | |
290 | #define Idebname debname | |
291 | #define Idebstash debstash | |
292 | #define Idefgv defgv | |
293 | #define Idiehook diehook | |
294 | #define Idlevel dlevel | |
295 | #define Idlmax dlmax | |
296 | #define Idoextract doextract | |
297 | #define Idoswitches doswitches | |
298 | #define Idowarn dowarn | |
299 | #define Idumplvl dumplvl | |
afe37c7d | 300 | #define Ie_script e_script |
d4cce5f1 NIS |
301 | #define Iendav endav |
302 | #define Ienvgv envgv | |
303 | #define Ierrgv errgv | |
304 | #define Ieval_root eval_root | |
305 | #define Ieval_start eval_start | |
4b556e6c JD |
306 | #define Iexitlist exitlist |
307 | #define Iexitlistlen exitlistlen | |
d4cce5f1 NIS |
308 | #define Ifdpid fdpid |
309 | #define Ifilemode filemode | |
d4cce5f1 NIS |
310 | #define Iforkprocess forkprocess |
311 | #define Iformfeed formfeed | |
7fae4e64 | 312 | #define Igeneration generation |
d4cce5f1 NIS |
313 | #define Igensym gensym |
314 | #define Iglobalstash globalstash | |
b3ac6de7 | 315 | #define Ihintgv hintgv |
7fae4e64 GS |
316 | #define Iin_clean_all in_clean_all |
317 | #define Iin_clean_objs in_clean_objs | |
d4cce5f1 NIS |
318 | #define Iincgv incgv |
319 | #define Iinitav initav | |
320 | #define Iinplace inplace | |
2a841d13 | 321 | #define Ilast_proto last_proto |
d4cce5f1 | 322 | #define Ilastfd lastfd |
d4cce5f1 NIS |
323 | #define Ilastsize lastsize |
324 | #define Ilastspbase lastspbase | |
325 | #define Ilaststatval laststatval | |
326 | #define Ilaststype laststype | |
327 | #define Ileftgv leftgv | |
328 | #define Ilineary lineary | |
7fae4e64 | 329 | #define Ilinestart linestart |
d4cce5f1 NIS |
330 | #define Ilocalpatches localpatches |
331 | #define Imain_cv main_cv | |
332 | #define Imain_root main_root | |
333 | #define Imain_start main_start | |
d4cce5f1 NIS |
334 | #define Imaxsysfd maxsysfd |
335 | #define Imess_sv mess_sv | |
336 | #define Iminus_F minus_F | |
337 | #define Iminus_a minus_a | |
338 | #define Iminus_c minus_c | |
339 | #define Iminus_l minus_l | |
340 | #define Iminus_n minus_n | |
341 | #define Iminus_p minus_p | |
4b556e6c | 342 | #define Imodglobal modglobal |
d4cce5f1 NIS |
343 | #define Imultiline multiline |
344 | #define Imystrk mystrk | |
345 | #define Iofmt ofmt | |
346 | #define Ioldlastpm oldlastpm | |
347 | #define Ioldname oldname | |
348 | #define Iop_mask op_mask | |
349 | #define Iorigargc origargc | |
350 | #define Iorigargv origargv | |
351 | #define Iorigfilename origfilename | |
352 | #define Iors ors | |
353 | #define Iorslen orslen | |
354 | #define Iparsehook parsehook | |
355 | #define Ipatchlevel patchlevel | |
7fae4e64 | 356 | #define Ipending_ident pending_ident |
d4cce5f1 NIS |
357 | #define Iperl_destruct_level perl_destruct_level |
358 | #define Iperldb perldb | |
359 | #define Ipreambleav preambleav | |
360 | #define Ipreambled preambled | |
361 | #define Ipreprocess preprocess | |
cb68f92d | 362 | #define Iprofiledata profiledata |
0230bf3c | 363 | #define Ireplgv replgv |
d4cce5f1 | 364 | #define Irightgv rightgv |
cb68f92d GS |
365 | #define Irsfp rsfp |
366 | #define Irsfp_filters rsfp_filters | |
d4cce5f1 NIS |
367 | #define Isawampersand sawampersand |
368 | #define Isawstudy sawstudy | |
369 | #define Isawvec sawvec | |
d4cce5f1 | 370 | #define Isiggv siggv |
d4cce5f1 | 371 | #define Isplitstr splitstr |
d4cce5f1 NIS |
372 | #define Istatusvalue statusvalue |
373 | #define Istatusvalue_vms statusvalue_vms | |
374 | #define Istdingv stdingv | |
375 | #define Istrchop strchop | |
376 | #define Istrtab strtab | |
005a453c | 377 | #define Isub_generation sub_generation |
7fae4e64 | 378 | #define Isublex_info sublex_info |
d4cce5f1 NIS |
379 | #define Isv_arenaroot sv_arenaroot |
380 | #define Isv_count sv_count | |
381 | #define Isv_objcount sv_objcount | |
382 | #define Isv_root sv_root | |
48c036b1 | 383 | #define Isys_intern sys_intern |
d4cce5f1 | 384 | #define Itainting tainting |
940cb80d | 385 | #define Ithreadnum threadnum |
d4cce5f1 NIS |
386 | #define Ithrsv thrsv |
387 | #define Iunsafe unsafe | |
388 | #define Iwarnhook warnhook | |
389 | ||
390 | #ifndef USE_THREADS | |
391 | ||
392 | #define TSv Sv | |
393 | #define TXpv Xpv | |
4e4c362e | 394 | #define Tav_fetch_sv av_fetch_sv |
d4cce5f1 | 395 | #define Tbodytarget bodytarget |
5c0ca799 | 396 | #define Tbostr bostr |
d4cce5f1 | 397 | #define Tchopset chopset |
5c0ca799 GS |
398 | #define Tcolors colors |
399 | #define Tcolorset colorset | |
d4cce5f1 NIS |
400 | #define Tcurcop curcop |
401 | #define Tcurpad curpad | |
402 | #define Tcurpm curpm | |
403 | #define Tcurstack curstack | |
e336de0d | 404 | #define Tcurstackinfo curstackinfo |
d4cce5f1 | 405 | #define Tcurstash curstash |
d4cce5f1 NIS |
406 | #define Tdefoutgv defoutgv |
407 | #define Tdefstash defstash | |
408 | #define Tdelaymagic delaymagic | |
409 | #define Tdirty dirty | |
5c0ca799 GS |
410 | #define Textralen extralen |
411 | #define Tfirstgv firstgv | |
d4cce5f1 | 412 | #define Tformtarget formtarget |
4e4c362e GS |
413 | #define Thv_fetch_ent_mh hv_fetch_ent_mh |
414 | #define Thv_fetch_sv hv_fetch_sv | |
d4cce5f1 NIS |
415 | #define Tin_eval in_eval |
416 | #define Tlast_in_gv last_in_gv | |
5c0ca799 GS |
417 | #define Tlastgotoprobe lastgotoprobe |
418 | #define Tlastscream lastscream | |
d4cce5f1 NIS |
419 | #define Tlocalizing localizing |
420 | #define Tmainstack mainstack | |
421 | #define Tmarkstack markstack | |
422 | #define Tmarkstack_max markstack_max | |
423 | #define Tmarkstack_ptr markstack_ptr | |
5c0ca799 | 424 | #define Tmaxscream maxscream |
48c036b1 | 425 | #define Tmodcount modcount |
d4cce5f1 NIS |
426 | #define Tnrs nrs |
427 | #define Tofs ofs | |
428 | #define Tofslen ofslen | |
429 | #define Top op | |
430 | #define Topsave opsave | |
5c0ca799 GS |
431 | #define Treg_eval_set reg_eval_set |
432 | #define Treg_flags reg_flags | |
433 | #define Treg_start_tmp reg_start_tmp | |
434 | #define Treg_start_tmpl reg_start_tmpl | |
435 | #define Tregbol regbol | |
436 | #define Tregcc regcc | |
437 | #define Tregcode regcode | |
438 | #define Tregcomp_parse regcomp_parse | |
439 | #define Tregcomp_rx regcomp_rx | |
440 | #define Tregcompp regcompp | |
441 | #define Tregdata regdata | |
442 | #define Tregdummy regdummy | |
443 | #define Tregendp regendp | |
444 | #define Tregeol regeol | |
445 | #define Tregexecp regexecp | |
446 | #define Tregflags regflags | |
447 | #define Tregindent regindent | |
448 | #define Treginput reginput | |
449 | #define Treginterp_cnt reginterp_cnt | |
450 | #define Treglastparen reglastparen | |
451 | #define Tregnarrate regnarrate | |
452 | #define Tregnaughty regnaughty | |
453 | #define Tregnpar regnpar | |
454 | #define Tregprecomp regprecomp | |
455 | #define Tregprev regprev | |
456 | #define Tregprogram regprogram | |
457 | #define Tregsawback regsawback | |
458 | #define Tregseen regseen | |
459 | #define Tregsize regsize | |
460 | #define Tregstartp regstartp | |
461 | #define Tregtill regtill | |
462 | #define Tregxend regxend | |
d4cce5f1 NIS |
463 | #define Trestartop restartop |
464 | #define Tretstack retstack | |
465 | #define Tretstack_ix retstack_ix | |
466 | #define Tretstack_max retstack_max | |
467 | #define Trs rs | |
468 | #define Tsavestack savestack | |
469 | #define Tsavestack_ix savestack_ix | |
470 | #define Tsavestack_max savestack_max | |
471 | #define Tscopestack scopestack | |
472 | #define Tscopestack_ix scopestack_ix | |
473 | #define Tscopestack_max scopestack_max | |
5c0ca799 GS |
474 | #define Tscreamfirst screamfirst |
475 | #define Tscreamnext screamnext | |
476 | #define Tsecondgv secondgv | |
477 | #define Tseen_evals seen_evals | |
478 | #define Tseen_zerolen seen_zerolen | |
479 | #define Tsortcop sortcop | |
480 | #define Tsortcxix sortcxix | |
481 | #define Tsortstash sortstash | |
d4cce5f1 NIS |
482 | #define Tstack_base stack_base |
483 | #define Tstack_max stack_max | |
484 | #define Tstack_sp stack_sp | |
485 | #define Tstart_env start_env | |
486 | #define Tstatbuf statbuf | |
5c0ca799 GS |
487 | #define Tstatcache statcache |
488 | #define Tstatgv statgv | |
489 | #define Tstatname statname | |
d4cce5f1 NIS |
490 | #define Ttainted tainted |
491 | #define Ttimesbuf timesbuf | |
492 | #define Ttmps_floor tmps_floor | |
493 | #define Ttmps_ix tmps_ix | |
494 | #define Ttmps_max tmps_max | |
495 | #define Ttmps_stack tmps_stack | |
496 | #define Ttop_env top_env | |
497 | #define Ttoptarget toptarget | |
498 | ||
499 | #endif /* USE_THREADS */ | |
500 | ||
501 | /* Hide what would have been interpreter-specific symbols? */ | |
502 | ||
503 | #ifdef EMBED | |
504 | ||
505 | #define Argv Perl_Argv | |
506 | #define Cmd Perl_Cmd | |
7fae4e64 | 507 | #define DBcv Perl_DBcv |
d4cce5f1 NIS |
508 | #define DBgv Perl_DBgv |
509 | #define DBline Perl_DBline | |
510 | #define DBsignal Perl_DBsignal | |
511 | #define DBsingle Perl_DBsingle | |
512 | #define DBsub Perl_DBsub | |
513 | #define DBtrace Perl_DBtrace | |
514 | #define ampergv Perl_ampergv | |
7fae4e64 | 515 | #define archpat_auto Perl_archpat_auto |
d4cce5f1 NIS |
516 | #define argvgv Perl_argvgv |
517 | #define argvoutgv Perl_argvoutgv | |
518 | #define basetime Perl_basetime | |
519 | #define beginav Perl_beginav | |
520 | #define cddir Perl_cddir | |
cb68f92d GS |
521 | #define compcv Perl_compcv |
522 | #define compiling Perl_compiling | |
523 | #define comppad Perl_comppad | |
524 | #define comppad_name Perl_comppad_name | |
525 | #define comppad_name_fill Perl_comppad_name_fill | |
526 | #define comppad_name_floor Perl_comppad_name_floor | |
d4cce5f1 NIS |
527 | #define copline Perl_copline |
528 | #define curcopdb Perl_curcopdb | |
529 | #define curstname Perl_curstname | |
530 | #define dbargs Perl_dbargs | |
531 | #define debdelim Perl_debdelim | |
532 | #define debname Perl_debname | |
533 | #define debstash Perl_debstash | |
534 | #define defgv Perl_defgv | |
535 | #define diehook Perl_diehook | |
536 | #define dlevel Perl_dlevel | |
537 | #define dlmax Perl_dlmax | |
538 | #define doextract Perl_doextract | |
539 | #define doswitches Perl_doswitches | |
540 | #define dowarn Perl_dowarn | |
541 | #define dumplvl Perl_dumplvl | |
afe37c7d | 542 | #define e_script Perl_e_script |
d4cce5f1 NIS |
543 | #define endav Perl_endav |
544 | #define envgv Perl_envgv | |
545 | #define errgv Perl_errgv | |
546 | #define eval_root Perl_eval_root | |
547 | #define eval_start Perl_eval_start | |
4b556e6c JD |
548 | #define exitlist Perl_exitlist |
549 | #define exitlistlen Perl_exitlistlen | |
d4cce5f1 NIS |
550 | #define fdpid Perl_fdpid |
551 | #define filemode Perl_filemode | |
d4cce5f1 NIS |
552 | #define forkprocess Perl_forkprocess |
553 | #define formfeed Perl_formfeed | |
7fae4e64 | 554 | #define generation Perl_generation |
d4cce5f1 NIS |
555 | #define gensym Perl_gensym |
556 | #define globalstash Perl_globalstash | |
b3ac6de7 | 557 | #define hintgv Perl_hintgv |
7fae4e64 GS |
558 | #define in_clean_all Perl_in_clean_all |
559 | #define in_clean_objs Perl_in_clean_objs | |
d4cce5f1 NIS |
560 | #define incgv Perl_incgv |
561 | #define initav Perl_initav | |
562 | #define inplace Perl_inplace | |
2a841d13 | 563 | #define last_proto Perl_last_proto |
d4cce5f1 | 564 | #define lastfd Perl_lastfd |
d4cce5f1 NIS |
565 | #define lastsize Perl_lastsize |
566 | #define lastspbase Perl_lastspbase | |
567 | #define laststatval Perl_laststatval | |
568 | #define laststype Perl_laststype | |
569 | #define leftgv Perl_leftgv | |
570 | #define lineary Perl_lineary | |
7fae4e64 | 571 | #define linestart Perl_linestart |
d4cce5f1 NIS |
572 | #define localpatches Perl_localpatches |
573 | #define main_cv Perl_main_cv | |
574 | #define main_root Perl_main_root | |
575 | #define main_start Perl_main_start | |
d4cce5f1 NIS |
576 | #define maxsysfd Perl_maxsysfd |
577 | #define mess_sv Perl_mess_sv | |
578 | #define minus_F Perl_minus_F | |
579 | #define minus_a Perl_minus_a | |
580 | #define minus_c Perl_minus_c | |
581 | #define minus_l Perl_minus_l | |
582 | #define minus_n Perl_minus_n | |
583 | #define minus_p Perl_minus_p | |
4b556e6c | 584 | #define modglobal Perl_modglobal |
d4cce5f1 NIS |
585 | #define multiline Perl_multiline |
586 | #define mystrk Perl_mystrk | |
587 | #define ofmt Perl_ofmt | |
588 | #define oldlastpm Perl_oldlastpm | |
589 | #define oldname Perl_oldname | |
590 | #define op_mask Perl_op_mask | |
591 | #define origargc Perl_origargc | |
592 | #define origargv Perl_origargv | |
593 | #define origfilename Perl_origfilename | |
594 | #define ors Perl_ors | |
595 | #define orslen Perl_orslen | |
596 | #define parsehook Perl_parsehook | |
597 | #define patchlevel Perl_patchlevel | |
7fae4e64 | 598 | #define pending_ident Perl_pending_ident |
d4cce5f1 NIS |
599 | #define perl_destruct_level Perl_perl_destruct_level |
600 | #define perldb Perl_perldb | |
601 | #define preambleav Perl_preambleav | |
602 | #define preambled Perl_preambled | |
603 | #define preprocess Perl_preprocess | |
cb68f92d | 604 | #define profiledata Perl_profiledata |
0230bf3c | 605 | #define replgv Perl_replgv |
d4cce5f1 | 606 | #define rightgv Perl_rightgv |
cb68f92d GS |
607 | #define rsfp Perl_rsfp |
608 | #define rsfp_filters Perl_rsfp_filters | |
d4cce5f1 NIS |
609 | #define sawampersand Perl_sawampersand |
610 | #define sawstudy Perl_sawstudy | |
611 | #define sawvec Perl_sawvec | |
d4cce5f1 | 612 | #define siggv Perl_siggv |
d4cce5f1 | 613 | #define splitstr Perl_splitstr |
d4cce5f1 NIS |
614 | #define statusvalue Perl_statusvalue |
615 | #define statusvalue_vms Perl_statusvalue_vms | |
616 | #define stdingv Perl_stdingv | |
617 | #define strchop Perl_strchop | |
618 | #define strtab Perl_strtab | |
005a453c | 619 | #define sub_generation Perl_sub_generation |
7fae4e64 | 620 | #define sublex_info Perl_sublex_info |
d4cce5f1 NIS |
621 | #define sv_arenaroot Perl_sv_arenaroot |
622 | #define sv_count Perl_sv_count | |
623 | #define sv_objcount Perl_sv_objcount | |
624 | #define sv_root Perl_sv_root | |
48c036b1 | 625 | #define sys_intern Perl_sys_intern |
d4cce5f1 | 626 | #define tainting Perl_tainting |
940cb80d | 627 | #define threadnum Perl_threadnum |
d4cce5f1 NIS |
628 | #define thrsv Perl_thrsv |
629 | #define unsafe Perl_unsafe | |
630 | #define warnhook Perl_warnhook | |
631 | ||
632 | #ifndef USE_THREADS | |
633 | ||
634 | #define Sv Perl_Sv | |
635 | #define Xpv Perl_Xpv | |
4e4c362e | 636 | #define av_fetch_sv Perl_av_fetch_sv |
d4cce5f1 | 637 | #define bodytarget Perl_bodytarget |
5c0ca799 | 638 | #define bostr Perl_bostr |
d4cce5f1 | 639 | #define chopset Perl_chopset |
5c0ca799 GS |
640 | #define colors Perl_colors |
641 | #define colorset Perl_colorset | |
d4cce5f1 NIS |
642 | #define curcop Perl_curcop |
643 | #define curpad Perl_curpad | |
644 | #define curpm Perl_curpm | |
645 | #define curstack Perl_curstack | |
e336de0d | 646 | #define curstackinfo Perl_curstackinfo |
d4cce5f1 | 647 | #define curstash Perl_curstash |
d4cce5f1 NIS |
648 | #define defoutgv Perl_defoutgv |
649 | #define defstash Perl_defstash | |
650 | #define delaymagic Perl_delaymagic | |
651 | #define dirty Perl_dirty | |
5c0ca799 GS |
652 | #define extralen Perl_extralen |
653 | #define firstgv Perl_firstgv | |
d4cce5f1 | 654 | #define formtarget Perl_formtarget |
4e4c362e GS |
655 | #define hv_fetch_ent_mh Perl_hv_fetch_ent_mh |
656 | #define hv_fetch_sv Perl_hv_fetch_sv | |
d4cce5f1 NIS |
657 | #define in_eval Perl_in_eval |
658 | #define last_in_gv Perl_last_in_gv | |
5c0ca799 GS |
659 | #define lastgotoprobe Perl_lastgotoprobe |
660 | #define lastscream Perl_lastscream | |
d4cce5f1 NIS |
661 | #define localizing Perl_localizing |
662 | #define mainstack Perl_mainstack | |
663 | #define markstack Perl_markstack | |
664 | #define markstack_max Perl_markstack_max | |
665 | #define markstack_ptr Perl_markstack_ptr | |
5c0ca799 | 666 | #define maxscream Perl_maxscream |
48c036b1 | 667 | #define modcount Perl_modcount |
d4cce5f1 NIS |
668 | #define nrs Perl_nrs |
669 | #define ofs Perl_ofs | |
670 | #define ofslen Perl_ofslen | |
671 | #define op Perl_op | |
672 | #define opsave Perl_opsave | |
5c0ca799 GS |
673 | #define reg_eval_set Perl_reg_eval_set |
674 | #define reg_flags Perl_reg_flags | |
675 | #define reg_start_tmp Perl_reg_start_tmp | |
676 | #define reg_start_tmpl Perl_reg_start_tmpl | |
677 | #define regbol Perl_regbol | |
678 | #define regcc Perl_regcc | |
679 | #define regcode Perl_regcode | |
680 | #define regcomp_parse Perl_regcomp_parse | |
681 | #define regcomp_rx Perl_regcomp_rx | |
682 | #define regcompp Perl_regcompp | |
683 | #define regdata Perl_regdata | |
684 | #define regdummy Perl_regdummy | |
685 | #define regendp Perl_regendp | |
686 | #define regeol Perl_regeol | |
687 | #define regexecp Perl_regexecp | |
688 | #define regflags Perl_regflags | |
689 | #define regindent Perl_regindent | |
690 | #define reginput Perl_reginput | |
691 | #define reginterp_cnt Perl_reginterp_cnt | |
692 | #define reglastparen Perl_reglastparen | |
693 | #define regnarrate Perl_regnarrate | |
694 | #define regnaughty Perl_regnaughty | |
695 | #define regnpar Perl_regnpar | |
696 | #define regprecomp Perl_regprecomp | |
697 | #define regprev Perl_regprev | |
698 | #define regprogram Perl_regprogram | |
699 | #define regsawback Perl_regsawback | |
700 | #define regseen Perl_regseen | |
701 | #define regsize Perl_regsize | |
702 | #define regstartp Perl_regstartp | |
703 | #define regtill Perl_regtill | |
704 | #define regxend Perl_regxend | |
d4cce5f1 NIS |
705 | #define restartop Perl_restartop |
706 | #define retstack Perl_retstack | |
707 | #define retstack_ix Perl_retstack_ix | |
708 | #define retstack_max Perl_retstack_max | |
709 | #define rs Perl_rs | |
710 | #define savestack Perl_savestack | |
711 | #define savestack_ix Perl_savestack_ix | |
712 | #define savestack_max Perl_savestack_max | |
713 | #define scopestack Perl_scopestack | |
714 | #define scopestack_ix Perl_scopestack_ix | |
715 | #define scopestack_max Perl_scopestack_max | |
5c0ca799 GS |
716 | #define screamfirst Perl_screamfirst |
717 | #define screamnext Perl_screamnext | |
718 | #define secondgv Perl_secondgv | |
719 | #define seen_evals Perl_seen_evals | |
720 | #define seen_zerolen Perl_seen_zerolen | |
721 | #define sortcop Perl_sortcop | |
722 | #define sortcxix Perl_sortcxix | |
723 | #define sortstash Perl_sortstash | |
d4cce5f1 NIS |
724 | #define stack_base Perl_stack_base |
725 | #define stack_max Perl_stack_max | |
726 | #define stack_sp Perl_stack_sp | |
727 | #define start_env Perl_start_env | |
728 | #define statbuf Perl_statbuf | |
5c0ca799 GS |
729 | #define statcache Perl_statcache |
730 | #define statgv Perl_statgv | |
731 | #define statname Perl_statname | |
d4cce5f1 NIS |
732 | #define tainted Perl_tainted |
733 | #define timesbuf Perl_timesbuf | |
734 | #define tmps_floor Perl_tmps_floor | |
735 | #define tmps_ix Perl_tmps_ix | |
736 | #define tmps_max Perl_tmps_max | |
737 | #define tmps_stack Perl_tmps_stack | |
738 | #define top_env Perl_top_env | |
739 | #define toptarget Perl_toptarget | |
740 | ||
741 | #endif /* USE_THREADS */ | |
742 | #endif /* EMBED */ | |
743 | #endif /* MULTIPLICITY */ | |
744 | ||
745 | /* Now same trickey for per-thread variables */ | |
746 | ||
747 | #ifdef USE_THREADS | |
748 | ||
749 | #define Sv (thr->TSv) | |
750 | #define Xpv (thr->TXpv) | |
4e4c362e | 751 | #define av_fetch_sv (thr->Tav_fetch_sv) |
d4cce5f1 | 752 | #define bodytarget (thr->Tbodytarget) |
5c0ca799 | 753 | #define bostr (thr->Tbostr) |
d4cce5f1 | 754 | #define chopset (thr->Tchopset) |
5c0ca799 GS |
755 | #define colors (thr->Tcolors) |
756 | #define colorset (thr->Tcolorset) | |
d4cce5f1 NIS |
757 | #define curcop (thr->Tcurcop) |
758 | #define curpad (thr->Tcurpad) | |
759 | #define curpm (thr->Tcurpm) | |
760 | #define curstack (thr->Tcurstack) | |
e336de0d | 761 | #define curstackinfo (thr->Tcurstackinfo) |
d4cce5f1 | 762 | #define curstash (thr->Tcurstash) |
d4cce5f1 NIS |
763 | #define defoutgv (thr->Tdefoutgv) |
764 | #define defstash (thr->Tdefstash) | |
765 | #define delaymagic (thr->Tdelaymagic) | |
766 | #define dirty (thr->Tdirty) | |
5c0ca799 GS |
767 | #define extralen (thr->Textralen) |
768 | #define firstgv (thr->Tfirstgv) | |
d4cce5f1 | 769 | #define formtarget (thr->Tformtarget) |
4e4c362e GS |
770 | #define hv_fetch_ent_mh (thr->Thv_fetch_ent_mh) |
771 | #define hv_fetch_sv (thr->Thv_fetch_sv) | |
d4cce5f1 NIS |
772 | #define in_eval (thr->Tin_eval) |
773 | #define last_in_gv (thr->Tlast_in_gv) | |
5c0ca799 GS |
774 | #define lastgotoprobe (thr->Tlastgotoprobe) |
775 | #define lastscream (thr->Tlastscream) | |
d4cce5f1 NIS |
776 | #define localizing (thr->Tlocalizing) |
777 | #define mainstack (thr->Tmainstack) | |
778 | #define markstack (thr->Tmarkstack) | |
779 | #define markstack_max (thr->Tmarkstack_max) | |
780 | #define markstack_ptr (thr->Tmarkstack_ptr) | |
5c0ca799 | 781 | #define maxscream (thr->Tmaxscream) |
48c036b1 | 782 | #define modcount (thr->Tmodcount) |
d4cce5f1 NIS |
783 | #define nrs (thr->Tnrs) |
784 | #define ofs (thr->Tofs) | |
785 | #define ofslen (thr->Tofslen) | |
786 | #define op (thr->Top) | |
787 | #define opsave (thr->Topsave) | |
5c0ca799 GS |
788 | #define reg_eval_set (thr->Treg_eval_set) |
789 | #define reg_flags (thr->Treg_flags) | |
790 | #define reg_start_tmp (thr->Treg_start_tmp) | |
791 | #define reg_start_tmpl (thr->Treg_start_tmpl) | |
792 | #define regbol (thr->Tregbol) | |
793 | #define regcc (thr->Tregcc) | |
794 | #define regcode (thr->Tregcode) | |
795 | #define regcomp_parse (thr->Tregcomp_parse) | |
796 | #define regcomp_rx (thr->Tregcomp_rx) | |
797 | #define regcompp (thr->Tregcompp) | |
798 | #define regdata (thr->Tregdata) | |
799 | #define regdummy (thr->Tregdummy) | |
800 | #define regendp (thr->Tregendp) | |
801 | #define regeol (thr->Tregeol) | |
802 | #define regexecp (thr->Tregexecp) | |
803 | #define regflags (thr->Tregflags) | |
804 | #define regindent (thr->Tregindent) | |
805 | #define reginput (thr->Treginput) | |
806 | #define reginterp_cnt (thr->Treginterp_cnt) | |
807 | #define reglastparen (thr->Treglastparen) | |
808 | #define regnarrate (thr->Tregnarrate) | |
809 | #define regnaughty (thr->Tregnaughty) | |
810 | #define regnpar (thr->Tregnpar) | |
811 | #define regprecomp (thr->Tregprecomp) | |
812 | #define regprev (thr->Tregprev) | |
813 | #define regprogram (thr->Tregprogram) | |
814 | #define regsawback (thr->Tregsawback) | |
815 | #define regseen (thr->Tregseen) | |
816 | #define regsize (thr->Tregsize) | |
817 | #define regstartp (thr->Tregstartp) | |
818 | #define regtill (thr->Tregtill) | |
819 | #define regxend (thr->Tregxend) | |
d4cce5f1 NIS |
820 | #define restartop (thr->Trestartop) |
821 | #define retstack (thr->Tretstack) | |
822 | #define retstack_ix (thr->Tretstack_ix) | |
823 | #define retstack_max (thr->Tretstack_max) | |
824 | #define rs (thr->Trs) | |
825 | #define savestack (thr->Tsavestack) | |
826 | #define savestack_ix (thr->Tsavestack_ix) | |
827 | #define savestack_max (thr->Tsavestack_max) | |
828 | #define scopestack (thr->Tscopestack) | |
829 | #define scopestack_ix (thr->Tscopestack_ix) | |
830 | #define scopestack_max (thr->Tscopestack_max) | |
5c0ca799 GS |
831 | #define screamfirst (thr->Tscreamfirst) |
832 | #define screamnext (thr->Tscreamnext) | |
833 | #define secondgv (thr->Tsecondgv) | |
834 | #define seen_evals (thr->Tseen_evals) | |
835 | #define seen_zerolen (thr->Tseen_zerolen) | |
836 | #define sortcop (thr->Tsortcop) | |
837 | #define sortcxix (thr->Tsortcxix) | |
838 | #define sortstash (thr->Tsortstash) | |
d4cce5f1 NIS |
839 | #define stack_base (thr->Tstack_base) |
840 | #define stack_max (thr->Tstack_max) | |
841 | #define stack_sp (thr->Tstack_sp) | |
842 | #define start_env (thr->Tstart_env) | |
843 | #define statbuf (thr->Tstatbuf) | |
5c0ca799 GS |
844 | #define statcache (thr->Tstatcache) |
845 | #define statgv (thr->Tstatgv) | |
846 | #define statname (thr->Tstatname) | |
d4cce5f1 NIS |
847 | #define tainted (thr->Ttainted) |
848 | #define timesbuf (thr->Ttimesbuf) | |
849 | #define tmps_floor (thr->Ttmps_floor) | |
850 | #define tmps_ix (thr->Ttmps_ix) | |
851 | #define tmps_max (thr->Ttmps_max) | |
852 | #define tmps_stack (thr->Ttmps_stack) | |
853 | #define top_env (thr->Ttop_env) | |
854 | #define toptarget (thr->Ttoptarget) | |
855 | ||
856 | #endif /* USE_THREADS */ | |
857 | ||
22239a37 NIS |
858 | #ifdef PERL_GLOBAL_STRUCT |
859 | ||
3fe35a81 GS |
860 | #define No (Perl_Vars.GNo) |
861 | #define Yes (Perl_Vars.GYes) | |
22239a37 NIS |
862 | #define amagic_generation (Perl_Vars.Gamagic_generation) |
863 | #define an (Perl_Vars.Gan) | |
864 | #define bufend (Perl_Vars.Gbufend) | |
865 | #define bufptr (Perl_Vars.Gbufptr) | |
866 | #define collation_ix (Perl_Vars.Gcollation_ix) | |
867 | #define collation_name (Perl_Vars.Gcollation_name) | |
868 | #define collation_standard (Perl_Vars.Gcollation_standard) | |
869 | #define collxfrm_base (Perl_Vars.Gcollxfrm_base) | |
870 | #define collxfrm_mult (Perl_Vars.Gcollxfrm_mult) | |
22239a37 NIS |
871 | #define cop_seqmax (Perl_Vars.Gcop_seqmax) |
872 | #define cryptseen (Perl_Vars.Gcryptseen) | |
873 | #define cshlen (Perl_Vars.Gcshlen) | |
874 | #define cshname (Perl_Vars.Gcshname) | |
875 | #define curinterp (Perl_Vars.Gcurinterp) | |
876 | #define curthr (Perl_Vars.Gcurthr) | |
877 | #define debug (Perl_Vars.Gdebug) | |
878 | #define do_undump (Perl_Vars.Gdo_undump) | |
879 | #define egid (Perl_Vars.Gegid) | |
880 | #define error_count (Perl_Vars.Gerror_count) | |
881 | #define euid (Perl_Vars.Geuid) | |
882 | #define eval_cond (Perl_Vars.Geval_cond) | |
883 | #define eval_mutex (Perl_Vars.Geval_mutex) | |
884 | #define eval_owner (Perl_Vars.Geval_owner) | |
885 | #define evalseq (Perl_Vars.Gevalseq) | |
886 | #define expect (Perl_Vars.Gexpect) | |
887 | #define gid (Perl_Vars.Ggid) | |
888 | #define he_root (Perl_Vars.Ghe_root) | |
3fe35a81 | 889 | #define hexdigit (Perl_Vars.Ghexdigit) |
22239a37 NIS |
890 | #define hints (Perl_Vars.Ghints) |
891 | #define in_my (Perl_Vars.Gin_my) | |
892 | #define in_my_stash (Perl_Vars.Gin_my_stash) | |
893 | #define last_lop (Perl_Vars.Glast_lop) | |
894 | #define last_lop_op (Perl_Vars.Glast_lop_op) | |
895 | #define last_uni (Perl_Vars.Glast_uni) | |
896 | #define lex_brackets (Perl_Vars.Glex_brackets) | |
897 | #define lex_brackstack (Perl_Vars.Glex_brackstack) | |
898 | #define lex_casemods (Perl_Vars.Glex_casemods) | |
899 | #define lex_casestack (Perl_Vars.Glex_casestack) | |
900 | #define lex_defer (Perl_Vars.Glex_defer) | |
901 | #define lex_dojoin (Perl_Vars.Glex_dojoin) | |
902 | #define lex_expect (Perl_Vars.Glex_expect) | |
903 | #define lex_fakebrack (Perl_Vars.Glex_fakebrack) | |
904 | #define lex_formbrack (Perl_Vars.Glex_formbrack) | |
905 | #define lex_inpat (Perl_Vars.Glex_inpat) | |
906 | #define lex_inwhat (Perl_Vars.Glex_inwhat) | |
907 | #define lex_op (Perl_Vars.Glex_op) | |
908 | #define lex_repl (Perl_Vars.Glex_repl) | |
909 | #define lex_starts (Perl_Vars.Glex_starts) | |
910 | #define lex_state (Perl_Vars.Glex_state) | |
911 | #define lex_stuff (Perl_Vars.Glex_stuff) | |
912 | #define linestr (Perl_Vars.Glinestr) | |
913 | #define malloc_mutex (Perl_Vars.Gmalloc_mutex) | |
914 | #define max_intro_pending (Perl_Vars.Gmax_intro_pending) | |
915 | #define maxo (Perl_Vars.Gmaxo) | |
916 | #define min_intro_pending (Perl_Vars.Gmin_intro_pending) | |
917 | #define multi_close (Perl_Vars.Gmulti_close) | |
918 | #define multi_end (Perl_Vars.Gmulti_end) | |
919 | #define multi_open (Perl_Vars.Gmulti_open) | |
920 | #define multi_start (Perl_Vars.Gmulti_start) | |
921 | #define na (Perl_Vars.Gna) | |
922 | #define nexttoke (Perl_Vars.Gnexttoke) | |
923 | #define nexttype (Perl_Vars.Gnexttype) | |
924 | #define nextval (Perl_Vars.Gnextval) | |
925 | #define nice_chunk (Perl_Vars.Gnice_chunk) | |
926 | #define nice_chunk_size (Perl_Vars.Gnice_chunk_size) | |
cb68f92d | 927 | #define ninterps (Perl_Vars.Gninterps) |
22239a37 NIS |
928 | #define nomemok (Perl_Vars.Gnomemok) |
929 | #define nthreads (Perl_Vars.Gnthreads) | |
930 | #define nthreads_cond (Perl_Vars.Gnthreads_cond) | |
931 | #define numeric_local (Perl_Vars.Gnumeric_local) | |
932 | #define numeric_name (Perl_Vars.Gnumeric_name) | |
933 | #define numeric_standard (Perl_Vars.Gnumeric_standard) | |
934 | #define oldbufptr (Perl_Vars.Goldbufptr) | |
935 | #define oldoldbufptr (Perl_Vars.Goldoldbufptr) | |
936 | #define op_seqmax (Perl_Vars.Gop_seqmax) | |
937 | #define origalen (Perl_Vars.Gorigalen) | |
938 | #define origenviron (Perl_Vars.Gorigenviron) | |
939 | #define osname (Perl_Vars.Gosname) | |
940 | #define pad_reset_pending (Perl_Vars.Gpad_reset_pending) | |
941 | #define padix (Perl_Vars.Gpadix) | |
942 | #define padix_floor (Perl_Vars.Gpadix_floor) | |
3fe35a81 | 943 | #define patleave (Perl_Vars.Gpatleave) |
22239a37 | 944 | #define pidstatus (Perl_Vars.Gpidstatus) |
22239a37 | 945 | #define runops (Perl_Vars.Grunops) |
22239a37 NIS |
946 | #define sh_path (Perl_Vars.Gsh_path) |
947 | #define sighandlerp (Perl_Vars.Gsighandlerp) | |
e2d46a1d | 948 | #define specialsv_list (Perl_Vars.Gspecialsv_list) |
22239a37 NIS |
949 | #define subline (Perl_Vars.Gsubline) |
950 | #define subname (Perl_Vars.Gsubname) | |
951 | #define sv_mutex (Perl_Vars.Gsv_mutex) | |
952 | #define sv_no (Perl_Vars.Gsv_no) | |
953 | #define sv_undef (Perl_Vars.Gsv_undef) | |
954 | #define sv_yes (Perl_Vars.Gsv_yes) | |
0bfcb09d | 955 | #define svref_mutex (Perl_Vars.Gsvref_mutex) |
22239a37 NIS |
956 | #define thisexpr (Perl_Vars.Gthisexpr) |
957 | #define thr_key (Perl_Vars.Gthr_key) | |
958 | #define threads_mutex (Perl_Vars.Gthreads_mutex) | |
959 | #define threadsv_names (Perl_Vars.Gthreadsv_names) | |
960 | #define tokenbuf (Perl_Vars.Gtokenbuf) | |
961 | #define uid (Perl_Vars.Guid) | |
962 | #define xiv_arenaroot (Perl_Vars.Gxiv_arenaroot) | |
963 | #define xiv_root (Perl_Vars.Gxiv_root) | |
964 | #define xnv_root (Perl_Vars.Gxnv_root) | |
965 | #define xpv_root (Perl_Vars.Gxpv_root) | |
966 | #define xrv_root (Perl_Vars.Gxrv_root) | |
967 | ||
968 | #else /* !PERL_GLOBAL_STRUCT */ | |
969 | ||
3fe35a81 GS |
970 | #define GNo No |
971 | #define GYes Yes | |
22239a37 NIS |
972 | #define Gamagic_generation amagic_generation |
973 | #define Gan an | |
974 | #define Gbufend bufend | |
975 | #define Gbufptr bufptr | |
976 | #define Gcollation_ix collation_ix | |
977 | #define Gcollation_name collation_name | |
978 | #define Gcollation_standard collation_standard | |
979 | #define Gcollxfrm_base collxfrm_base | |
980 | #define Gcollxfrm_mult collxfrm_mult | |
22239a37 NIS |
981 | #define Gcop_seqmax cop_seqmax |
982 | #define Gcryptseen cryptseen | |
983 | #define Gcshlen cshlen | |
984 | #define Gcshname cshname | |
985 | #define Gcurinterp curinterp | |
986 | #define Gcurthr curthr | |
987 | #define Gdebug debug | |
988 | #define Gdo_undump do_undump | |
989 | #define Gegid egid | |
990 | #define Gerror_count error_count | |
991 | #define Geuid euid | |
992 | #define Geval_cond eval_cond | |
993 | #define Geval_mutex eval_mutex | |
994 | #define Geval_owner eval_owner | |
995 | #define Gevalseq evalseq | |
996 | #define Gexpect expect | |
997 | #define Ggid gid | |
998 | #define Ghe_root he_root | |
3fe35a81 | 999 | #define Ghexdigit hexdigit |
22239a37 NIS |
1000 | #define Ghints hints |
1001 | #define Gin_my in_my | |
1002 | #define Gin_my_stash in_my_stash | |
1003 | #define Glast_lop last_lop | |
1004 | #define Glast_lop_op last_lop_op | |
1005 | #define Glast_uni last_uni | |
1006 | #define Glex_brackets lex_brackets | |
1007 | #define Glex_brackstack lex_brackstack | |
1008 | #define Glex_casemods lex_casemods | |
1009 | #define Glex_casestack lex_casestack | |
1010 | #define Glex_defer lex_defer | |
1011 | #define Glex_dojoin lex_dojoin | |
1012 | #define Glex_expect lex_expect | |
1013 | #define Glex_fakebrack lex_fakebrack | |
1014 | #define Glex_formbrack lex_formbrack | |
1015 | #define Glex_inpat lex_inpat | |
1016 | #define Glex_inwhat lex_inwhat | |
1017 | #define Glex_op lex_op | |
1018 | #define Glex_repl lex_repl | |
1019 | #define Glex_starts lex_starts | |
1020 | #define Glex_state lex_state | |
1021 | #define Glex_stuff lex_stuff | |
1022 | #define Glinestr linestr | |
1023 | #define Gmalloc_mutex malloc_mutex | |
1024 | #define Gmax_intro_pending max_intro_pending | |
1025 | #define Gmaxo maxo | |
1026 | #define Gmin_intro_pending min_intro_pending | |
1027 | #define Gmulti_close multi_close | |
1028 | #define Gmulti_end multi_end | |
1029 | #define Gmulti_open multi_open | |
1030 | #define Gmulti_start multi_start | |
1031 | #define Gna na | |
1032 | #define Gnexttoke nexttoke | |
1033 | #define Gnexttype nexttype | |
1034 | #define Gnextval nextval | |
1035 | #define Gnice_chunk nice_chunk | |
1036 | #define Gnice_chunk_size nice_chunk_size | |
cb68f92d | 1037 | #define Gninterps ninterps |
22239a37 NIS |
1038 | #define Gnomemok nomemok |
1039 | #define Gnthreads nthreads | |
1040 | #define Gnthreads_cond nthreads_cond | |
1041 | #define Gnumeric_local numeric_local | |
1042 | #define Gnumeric_name numeric_name | |
1043 | #define Gnumeric_standard numeric_standard | |
1044 | #define Goldbufptr oldbufptr | |
1045 | #define Goldoldbufptr oldoldbufptr | |
1046 | #define Gop_seqmax op_seqmax | |
1047 | #define Gorigalen origalen | |
1048 | #define Gorigenviron origenviron | |
1049 | #define Gosname osname | |
1050 | #define Gpad_reset_pending pad_reset_pending | |
1051 | #define Gpadix padix | |
1052 | #define Gpadix_floor padix_floor | |
3fe35a81 | 1053 | #define Gpatleave patleave |
22239a37 | 1054 | #define Gpidstatus pidstatus |
22239a37 | 1055 | #define Grunops runops |
22239a37 NIS |
1056 | #define Gsh_path sh_path |
1057 | #define Gsighandlerp sighandlerp | |
e2d46a1d | 1058 | #define Gspecialsv_list specialsv_list |
22239a37 NIS |
1059 | #define Gsubline subline |
1060 | #define Gsubname subname | |
1061 | #define Gsv_mutex sv_mutex | |
1062 | #define Gsv_no sv_no | |
1063 | #define Gsv_undef sv_undef | |
1064 | #define Gsv_yes sv_yes | |
0bfcb09d | 1065 | #define Gsvref_mutex svref_mutex |
22239a37 NIS |
1066 | #define Gthisexpr thisexpr |
1067 | #define Gthr_key thr_key | |
1068 | #define Gthreads_mutex threads_mutex | |
1069 | #define Gthreadsv_names threadsv_names | |
1070 | #define Gtokenbuf tokenbuf | |
1071 | #define Guid uid | |
1072 | #define Gxiv_arenaroot xiv_arenaroot | |
1073 | #define Gxiv_root xiv_root | |
1074 | #define Gxnv_root xnv_root | |
1075 | #define Gxpv_root xpv_root | |
1076 | #define Gxrv_root xrv_root | |
1077 | ||
1078 | #ifdef EMBED | |
1079 | ||
3fe35a81 GS |
1080 | #define No Perl_No |
1081 | #define Yes Perl_Yes | |
22239a37 NIS |
1082 | #define amagic_generation Perl_amagic_generation |
1083 | #define an Perl_an | |
1084 | #define bufend Perl_bufend | |
1085 | #define bufptr Perl_bufptr | |
1086 | #define collation_ix Perl_collation_ix | |
1087 | #define collation_name Perl_collation_name | |
1088 | #define collation_standard Perl_collation_standard | |
1089 | #define collxfrm_base Perl_collxfrm_base | |
1090 | #define collxfrm_mult Perl_collxfrm_mult | |
22239a37 NIS |
1091 | #define cop_seqmax Perl_cop_seqmax |
1092 | #define cryptseen Perl_cryptseen | |
1093 | #define cshlen Perl_cshlen | |
1094 | #define cshname Perl_cshname | |
1095 | #define curinterp Perl_curinterp | |
1096 | #define curthr Perl_curthr | |
1097 | #define debug Perl_debug | |
1098 | #define do_undump Perl_do_undump | |
1099 | #define egid Perl_egid | |
1100 | #define error_count Perl_error_count | |
1101 | #define euid Perl_euid | |
1102 | #define eval_cond Perl_eval_cond | |
1103 | #define eval_mutex Perl_eval_mutex | |
1104 | #define eval_owner Perl_eval_owner | |
1105 | #define evalseq Perl_evalseq | |
1106 | #define expect Perl_expect | |
1107 | #define gid Perl_gid | |
1108 | #define he_root Perl_he_root | |
3fe35a81 | 1109 | #define hexdigit Perl_hexdigit |
22239a37 NIS |
1110 | #define hints Perl_hints |
1111 | #define in_my Perl_in_my | |
1112 | #define in_my_stash Perl_in_my_stash | |
1113 | #define last_lop Perl_last_lop | |
1114 | #define last_lop_op Perl_last_lop_op | |
1115 | #define last_uni Perl_last_uni | |
1116 | #define lex_brackets Perl_lex_brackets | |
1117 | #define lex_brackstack Perl_lex_brackstack | |
1118 | #define lex_casemods Perl_lex_casemods | |
1119 | #define lex_casestack Perl_lex_casestack | |
1120 | #define lex_defer Perl_lex_defer | |
1121 | #define lex_dojoin Perl_lex_dojoin | |
1122 | #define lex_expect Perl_lex_expect | |
1123 | #define lex_fakebrack Perl_lex_fakebrack | |
1124 | #define lex_formbrack Perl_lex_formbrack | |
1125 | #define lex_inpat Perl_lex_inpat | |
1126 | #define lex_inwhat Perl_lex_inwhat | |
1127 | #define lex_op Perl_lex_op | |
1128 | #define lex_repl Perl_lex_repl | |
1129 | #define lex_starts Perl_lex_starts | |
1130 | #define lex_state Perl_lex_state | |
1131 | #define lex_stuff Perl_lex_stuff | |
1132 | #define linestr Perl_linestr | |
1133 | #define malloc_mutex Perl_malloc_mutex | |
1134 | #define max_intro_pending Perl_max_intro_pending | |
1135 | #define maxo Perl_maxo | |
1136 | #define min_intro_pending Perl_min_intro_pending | |
1137 | #define multi_close Perl_multi_close | |
1138 | #define multi_end Perl_multi_end | |
1139 | #define multi_open Perl_multi_open | |
1140 | #define multi_start Perl_multi_start | |
1141 | #define na Perl_na | |
1142 | #define nexttoke Perl_nexttoke | |
1143 | #define nexttype Perl_nexttype | |
1144 | #define nextval Perl_nextval | |
1145 | #define nice_chunk Perl_nice_chunk | |
1146 | #define nice_chunk_size Perl_nice_chunk_size | |
cb68f92d | 1147 | #define ninterps Perl_ninterps |
22239a37 NIS |
1148 | #define nomemok Perl_nomemok |
1149 | #define nthreads Perl_nthreads | |
1150 | #define nthreads_cond Perl_nthreads_cond | |
1151 | #define numeric_local Perl_numeric_local | |
1152 | #define numeric_name Perl_numeric_name | |
1153 | #define numeric_standard Perl_numeric_standard | |
1154 | #define oldbufptr Perl_oldbufptr | |
1155 | #define oldoldbufptr Perl_oldoldbufptr | |
1156 | #define op_seqmax Perl_op_seqmax | |
1157 | #define origalen Perl_origalen | |
1158 | #define origenviron Perl_origenviron | |
1159 | #define osname Perl_osname | |
1160 | #define pad_reset_pending Perl_pad_reset_pending | |
1161 | #define padix Perl_padix | |
1162 | #define padix_floor Perl_padix_floor | |
3fe35a81 | 1163 | #define patleave Perl_patleave |
22239a37 | 1164 | #define pidstatus Perl_pidstatus |
22239a37 | 1165 | #define runops Perl_runops |
22239a37 NIS |
1166 | #define sh_path Perl_sh_path |
1167 | #define sighandlerp Perl_sighandlerp | |
e2d46a1d | 1168 | #define specialsv_list Perl_specialsv_list |
22239a37 NIS |
1169 | #define subline Perl_subline |
1170 | #define subname Perl_subname | |
1171 | #define sv_mutex Perl_sv_mutex | |
1172 | #define sv_no Perl_sv_no | |
1173 | #define sv_undef Perl_sv_undef | |
1174 | #define sv_yes Perl_sv_yes | |
0bfcb09d | 1175 | #define svref_mutex Perl_svref_mutex |
22239a37 NIS |
1176 | #define thisexpr Perl_thisexpr |
1177 | #define thr_key Perl_thr_key | |
1178 | #define threads_mutex Perl_threads_mutex | |
1179 | #define threadsv_names Perl_threadsv_names | |
1180 | #define tokenbuf Perl_tokenbuf | |
1181 | #define uid Perl_uid | |
1182 | #define xiv_arenaroot Perl_xiv_arenaroot | |
1183 | #define xiv_root Perl_xiv_root | |
1184 | #define xnv_root Perl_xnv_root | |
1185 | #define xpv_root Perl_xpv_root | |
1186 | #define xrv_root Perl_xrv_root | |
1187 | ||
1188 | #endif /* EMBED */ | |
1189 | #endif /* PERL_GLOBAL_STRUCT */ | |
1190 |