1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20#ifndef __perlapi_h__
21#define __perlapi_h__
22
23#if defined (MULTIPLICITY)
24
25START_EXTERN_C
26
27#undef PERLVAR
28#undef PERLVARA
29#undef PERLVARI
30#undef PERLVARIC
31#undef PERLVARISC
32#define PERLVAR(v,t) EXTERN_C t* Perl_##v##_ptr(pTHX);
33#define PERLVARA(v,n,t) typedef t PL_##v##_t[n]; \
34 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHX);
35#define PERLVARI(v,t,i) PERLVAR(v,t)
36#define PERLVARIC(v,t,i) PERLVAR(v, const t)
37#define PERLVARISC(v,i) typedef const char PL_##v##_t[sizeof(i)]; \
38 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHX);
39
40#include "intrpvar.h"
41#include "perlvars.h"
42
43#undef PERLVAR
44#undef PERLVARA
45#undef PERLVARI
46#undef PERLVARIC
47#undef PERLVARISC
48
49#ifndef PERL_GLOBAL_STRUCT
50EXTERN_C Perl_ppaddr_t** Perl_Gppaddr_ptr(pTHX);
51EXTERN_C Perl_check_t** Perl_Gcheck_ptr(pTHX);
52EXTERN_C unsigned char** Perl_Gfold_locale_ptr(pTHX);
53#define Perl_ppaddr_ptr Perl_Gppaddr_ptr
54#define Perl_check_ptr Perl_Gcheck_ptr
55#define Perl_fold_locale_ptr Perl_Gfold_locale_ptr
56#endif
57
58END_EXTERN_C
59
60#if defined(PERL_CORE)
61
62
63
64
65
66
67#ifndef PERL_NO_FORCE_LINK
68
69START_EXTERN_C
70
71#ifndef DOINIT
72EXTCONST void * const PL_force_link_funcs[];
73#else
74EXTCONST void * const PL_force_link_funcs[] = {
75#undef PERLVAR
76#undef PERLVARA
77#undef PERLVARI
78#undef PERLVARIC
79#define PERLVAR(v,t) (void*)Perl_##v##_ptr,
80#define PERLVARA(v,n,t) PERLVAR(v,t)
81#define PERLVARI(v,t,i) PERLVAR(v,t)
82#define PERLVARIC(v,t,i) PERLVAR(v,t)
83#define PERLVARISC(v,i) PERLVAR(v,char)
84
85
86
87
88
89
90
91
92
93#if defined(__DECC) && defined(__osf__)
94#pragma message save
95#pragma message disable (nonstandcast)
96#endif
97
98#include "intrpvar.h"
99#include "perlvars.h"
100
101#if defined(__DECC) && defined(__osf__)
102#pragma message restore
103#endif
104
105#undef PERLVAR
106#undef PERLVARA
107#undef PERLVARI
108#undef PERLVARIC
109#undef PERLVARISC
110};
111#endif
112
113END_EXTERN_C
114
115#endif
116
117#else
118
119#undef PL_Argv
120#define PL_Argv (*Perl_IArgv_ptr(aTHX))
121#undef PL_Cmd
122#define PL_Cmd (*Perl_ICmd_ptr(aTHX))
123#undef PL_DBcv
124#define PL_DBcv (*Perl_IDBcv_ptr(aTHX))
125#undef PL_DBgv
126#define PL_DBgv (*Perl_IDBgv_ptr(aTHX))
127#undef PL_DBline
128#define PL_DBline (*Perl_IDBline_ptr(aTHX))
129#undef PL_DBsignal
130#define PL_DBsignal (*Perl_IDBsignal_ptr(aTHX))
131#undef PL_DBsingle
132#define PL_DBsingle (*Perl_IDBsingle_ptr(aTHX))
133#undef PL_DBsub
134#define PL_DBsub (*Perl_IDBsub_ptr(aTHX))
135#undef PL_DBtrace
136#define PL_DBtrace (*Perl_IDBtrace_ptr(aTHX))
137#undef PL_Dir
138#define PL_Dir (*Perl_IDir_ptr(aTHX))
139#undef PL_Env
140#define PL_Env (*Perl_IEnv_ptr(aTHX))
141#undef PL_LIO
142#define PL_LIO (*Perl_ILIO_ptr(aTHX))
143#undef PL_Mem
144#define PL_Mem (*Perl_IMem_ptr(aTHX))
145#undef PL_MemParse
146#define PL_MemParse (*Perl_IMemParse_ptr(aTHX))
147#undef PL_MemShared
148#define PL_MemShared (*Perl_IMemShared_ptr(aTHX))
149#undef PL_OpPtr
150#define PL_OpPtr (*Perl_IOpPtr_ptr(aTHX))
151#undef PL_OpSlab
152#define PL_OpSlab (*Perl_IOpSlab_ptr(aTHX))
153#undef PL_OpSpace
154#define PL_OpSpace (*Perl_IOpSpace_ptr(aTHX))
155#undef PL_Proc
156#define PL_Proc (*Perl_IProc_ptr(aTHX))
157#undef PL_Sock
158#define PL_Sock (*Perl_ISock_ptr(aTHX))
159#undef PL_StdIO
160#define PL_StdIO (*Perl_IStdIO_ptr(aTHX))
161#undef PL_Sv
162#define PL_Sv (*Perl_ISv_ptr(aTHX))
163#undef PL_Xpv
164#define PL_Xpv (*Perl_IXpv_ptr(aTHX))
165#undef PL_amagic_generation
166#define PL_amagic_generation (*Perl_Iamagic_generation_ptr(aTHX))
167#undef PL_an
168#define PL_an (*Perl_Ian_ptr(aTHX))
169#undef PL_argvgv
170#define PL_argvgv (*Perl_Iargvgv_ptr(aTHX))
171#undef PL_argvout_stack
172#define PL_argvout_stack (*Perl_Iargvout_stack_ptr(aTHX))
173#undef PL_argvoutgv
174#define PL_argvoutgv (*Perl_Iargvoutgv_ptr(aTHX))
175#undef PL_basetime
176#define PL_basetime (*Perl_Ibasetime_ptr(aTHX))
177#undef PL_beginav
178#define PL_beginav (*Perl_Ibeginav_ptr(aTHX))
179#undef PL_beginav_save
180#define PL_beginav_save (*Perl_Ibeginav_save_ptr(aTHX))
181#undef PL_bitcount
182#define PL_bitcount (*Perl_Ibitcount_ptr(aTHX))
183#undef PL_body_arenas
184#define PL_body_arenas (*Perl_Ibody_arenas_ptr(aTHX))
185#undef PL_body_roots
186#define PL_body_roots (*Perl_Ibody_roots_ptr(aTHX))
187#undef PL_bodytarget
188#define PL_bodytarget (*Perl_Ibodytarget_ptr(aTHX))
189#undef PL_checkav
190#define PL_checkav (*Perl_Icheckav_ptr(aTHX))
191#undef PL_checkav_save
192#define PL_checkav_save (*Perl_Icheckav_save_ptr(aTHX))
193#undef PL_chopset
194#define PL_chopset (*Perl_Ichopset_ptr(aTHX))
195#undef PL_clocktick
196#define PL_clocktick (*Perl_Iclocktick_ptr(aTHX))
197#undef PL_collation_ix
198#define PL_collation_ix (*Perl_Icollation_ix_ptr(aTHX))
199#undef PL_collation_name
200#define PL_collation_name (*Perl_Icollation_name_ptr(aTHX))
201#undef PL_collation_standard
202#define PL_collation_standard (*Perl_Icollation_standard_ptr(aTHX))
203#undef PL_collxfrm_base
204#define PL_collxfrm_base (*Perl_Icollxfrm_base_ptr(aTHX))
205#undef PL_collxfrm_mult
206#define PL_collxfrm_mult (*Perl_Icollxfrm_mult_ptr(aTHX))
207#undef PL_colors
208#define PL_colors (*Perl_Icolors_ptr(aTHX))
209#undef PL_colorset
210#define PL_colorset (*Perl_Icolorset_ptr(aTHX))
211#undef PL_compcv
212#define PL_compcv (*Perl_Icompcv_ptr(aTHX))
213#undef PL_compiling
214#define PL_compiling (*Perl_Icompiling_ptr(aTHX))
215#undef PL_comppad
216#define PL_comppad (*Perl_Icomppad_ptr(aTHX))
217#undef PL_comppad_name
218#define PL_comppad_name (*Perl_Icomppad_name_ptr(aTHX))
219#undef PL_comppad_name_fill
220#define PL_comppad_name_fill (*Perl_Icomppad_name_fill_ptr(aTHX))
221#undef PL_comppad_name_floor
222#define PL_comppad_name_floor (*Perl_Icomppad_name_floor_ptr(aTHX))
223#undef PL_cop_seqmax
224#define PL_cop_seqmax (*Perl_Icop_seqmax_ptr(aTHX))
225#undef PL_cryptseen
226#define PL_cryptseen (*Perl_Icryptseen_ptr(aTHX))
227#undef PL_curcop
228#define PL_curcop (*Perl_Icurcop_ptr(aTHX))
229#undef PL_curcopdb
230#define PL_curcopdb (*Perl_Icurcopdb_ptr(aTHX))
231#undef PL_curpad
232#define PL_curpad (*Perl_Icurpad_ptr(aTHX))
233#undef PL_curpm
234#define PL_curpm (*Perl_Icurpm_ptr(aTHX))
235#undef PL_curstack
236#define PL_curstack (*Perl_Icurstack_ptr(aTHX))
237#undef PL_curstackinfo
238#define PL_curstackinfo (*Perl_Icurstackinfo_ptr(aTHX))
239#undef PL_curstash
240#define PL_curstash (*Perl_Icurstash_ptr(aTHX))
241#undef PL_curstname
242#define PL_curstname (*Perl_Icurstname_ptr(aTHX))
243#undef PL_custom_op_descs
244#define PL_custom_op_descs (*Perl_Icustom_op_descs_ptr(aTHX))
245#undef PL_custom_op_names
246#define PL_custom_op_names (*Perl_Icustom_op_names_ptr(aTHX))
247#undef PL_cv_has_eval
248#define PL_cv_has_eval (*Perl_Icv_has_eval_ptr(aTHX))
249#undef PL_dbargs
250#define PL_dbargs (*Perl_Idbargs_ptr(aTHX))
251#undef PL_debstash
252#define PL_debstash (*Perl_Idebstash_ptr(aTHX))
253#undef PL_debug
254#define PL_debug (*Perl_Idebug_ptr(aTHX))
255#undef PL_debug_pad
256#define PL_debug_pad (*Perl_Idebug_pad_ptr(aTHX))
257#undef PL_def_layerlist
258#define PL_def_layerlist (*Perl_Idef_layerlist_ptr(aTHX))
259#undef PL_defgv
260#define PL_defgv (*Perl_Idefgv_ptr(aTHX))
261#undef PL_defoutgv
262#define PL_defoutgv (*Perl_Idefoutgv_ptr(aTHX))
263#undef PL_defstash
264#define PL_defstash (*Perl_Idefstash_ptr(aTHX))
265#undef PL_delaymagic
266#define PL_delaymagic (*Perl_Idelaymagic_ptr(aTHX))
267#undef PL_destroyhook
268#define PL_destroyhook (*Perl_Idestroyhook_ptr(aTHX))
269#undef PL_diehook
270#define PL_diehook (*Perl_Idiehook_ptr(aTHX))
271#undef PL_dirty
272#define PL_dirty (*Perl_Idirty_ptr(aTHX))
273#undef PL_doextract
274#define PL_doextract (*Perl_Idoextract_ptr(aTHX))
275#undef PL_doswitches
276#define PL_doswitches (*Perl_Idoswitches_ptr(aTHX))
277#undef PL_dowarn
278#define PL_dowarn (*Perl_Idowarn_ptr(aTHX))
279#undef PL_dumper_fd
280#define PL_dumper_fd (*Perl_Idumper_fd_ptr(aTHX))
281#undef PL_dumpindent
282#define PL_dumpindent (*Perl_Idumpindent_ptr(aTHX))
283#undef PL_e_script
284#define PL_e_script (*Perl_Ie_script_ptr(aTHX))
285#undef PL_efloatbuf
286#define PL_efloatbuf (*Perl_Iefloatbuf_ptr(aTHX))
287#undef PL_efloatsize
288#define PL_efloatsize (*Perl_Iefloatsize_ptr(aTHX))
289#undef PL_egid
290#define PL_egid (*Perl_Iegid_ptr(aTHX))
291#undef PL_encoding
292#define PL_encoding (*Perl_Iencoding_ptr(aTHX))
293#undef PL_endav
294#define PL_endav (*Perl_Iendav_ptr(aTHX))
295#undef PL_envgv
296#define PL_envgv (*Perl_Ienvgv_ptr(aTHX))
297#undef PL_errgv
298#define PL_errgv (*Perl_Ierrgv_ptr(aTHX))
299#undef PL_errors
300#define PL_errors (*Perl_Ierrors_ptr(aTHX))
301#undef PL_euid
302#define PL_euid (*Perl_Ieuid_ptr(aTHX))
303#undef PL_eval_root
304#define PL_eval_root (*Perl_Ieval_root_ptr(aTHX))
305#undef PL_eval_start
306#define PL_eval_start (*Perl_Ieval_start_ptr(aTHX))
307#undef PL_evalseq
308#define PL_evalseq (*Perl_Ievalseq_ptr(aTHX))
309#undef PL_exit_flags
310#define PL_exit_flags (*Perl_Iexit_flags_ptr(aTHX))
311#undef PL_exitlist
312#define PL_exitlist (*Perl_Iexitlist_ptr(aTHX))
313#undef PL_exitlistlen
314#define PL_exitlistlen (*Perl_Iexitlistlen_ptr(aTHX))
315#undef PL_fdpid
316#define PL_fdpid (*Perl_Ifdpid_ptr(aTHX))
317#undef PL_filemode
318#define PL_filemode (*Perl_Ifilemode_ptr(aTHX))
319#undef PL_firstgv
320#define PL_firstgv (*Perl_Ifirstgv_ptr(aTHX))
321#undef PL_forkprocess
322#define PL_forkprocess (*Perl_Iforkprocess_ptr(aTHX))
323#undef PL_formfeed
324#define PL_formfeed (*Perl_Iformfeed_ptr(aTHX))
325#undef PL_formtarget
326#define PL_formtarget (*Perl_Iformtarget_ptr(aTHX))
327#undef PL_generation
328#define PL_generation (*Perl_Igeneration_ptr(aTHX))
329#undef PL_gensym
330#define PL_gensym (*Perl_Igensym_ptr(aTHX))
331#undef PL_gid
332#define PL_gid (*Perl_Igid_ptr(aTHX))
333#undef PL_glob_index
334#define PL_glob_index (*Perl_Iglob_index_ptr(aTHX))
335#undef PL_globalstash
336#define PL_globalstash (*Perl_Iglobalstash_ptr(aTHX))
337#undef PL_hash_seed
338#define PL_hash_seed (*Perl_Ihash_seed_ptr(aTHX))
339#undef PL_hintgv
340#define PL_hintgv (*Perl_Ihintgv_ptr(aTHX))
341#undef PL_hints
342#define PL_hints (*Perl_Ihints_ptr(aTHX))
343#undef PL_hv_fetch_ent_mh
344#define PL_hv_fetch_ent_mh (*Perl_Ihv_fetch_ent_mh_ptr(aTHX))
345#undef PL_in_clean_all
346#define PL_in_clean_all (*Perl_Iin_clean_all_ptr(aTHX))
347#undef PL_in_clean_objs
348#define PL_in_clean_objs (*Perl_Iin_clean_objs_ptr(aTHX))
349#undef PL_in_eval
350#define PL_in_eval (*Perl_Iin_eval_ptr(aTHX))
351#undef PL_in_load_module
352#define PL_in_load_module (*Perl_Iin_load_module_ptr(aTHX))
353#undef PL_incgv
354#define PL_incgv (*Perl_Iincgv_ptr(aTHX))
355#undef PL_initav
356#define PL_initav (*Perl_Iinitav_ptr(aTHX))
357#undef PL_inplace
358#define PL_inplace (*Perl_Iinplace_ptr(aTHX))
359#undef PL_isarev
360#define PL_isarev (*Perl_Iisarev_ptr(aTHX))
361#undef PL_known_layers
362#define PL_known_layers (*Perl_Iknown_layers_ptr(aTHX))
363#undef PL_last_in_gv
364#define PL_last_in_gv (*Perl_Ilast_in_gv_ptr(aTHX))
365#undef PL_last_swash_hv
366#define PL_last_swash_hv (*Perl_Ilast_swash_hv_ptr(aTHX))
367#undef PL_last_swash_key
368#define PL_last_swash_key (*Perl_Ilast_swash_key_ptr(aTHX))
369#undef PL_last_swash_klen
370#define PL_last_swash_klen (*Perl_Ilast_swash_klen_ptr(aTHX))
371#undef PL_last_swash_slen
372#define PL_last_swash_slen (*Perl_Ilast_swash_slen_ptr(aTHX))
373#undef PL_last_swash_tmps
374#define PL_last_swash_tmps (*Perl_Ilast_swash_tmps_ptr(aTHX))
375#undef PL_lastfd
376#define PL_lastfd (*Perl_Ilastfd_ptr(aTHX))
377#undef PL_lastgotoprobe
378#define PL_lastgotoprobe (*Perl_Ilastgotoprobe_ptr(aTHX))
379#undef PL_lastscream
380#define PL_lastscream (*Perl_Ilastscream_ptr(aTHX))
381#undef PL_laststatval
382#define PL_laststatval (*Perl_Ilaststatval_ptr(aTHX))
383#undef PL_laststype
384#define PL_laststype (*Perl_Ilaststype_ptr(aTHX))
385#undef PL_localizing
386#define PL_localizing (*Perl_Ilocalizing_ptr(aTHX))
387#undef PL_localpatches
388#define PL_localpatches (*Perl_Ilocalpatches_ptr(aTHX))
389#undef PL_lockhook
390#define PL_lockhook (*Perl_Ilockhook_ptr(aTHX))
391#undef PL_madskills
392#define PL_madskills (*Perl_Imadskills_ptr(aTHX))
393#undef PL_main_cv
394#define PL_main_cv (*Perl_Imain_cv_ptr(aTHX))
395#undef PL_main_root
396#define PL_main_root (*Perl_Imain_root_ptr(aTHX))
397#undef PL_main_start
398#define PL_main_start (*Perl_Imain_start_ptr(aTHX))
399#undef PL_mainstack
400#define PL_mainstack (*Perl_Imainstack_ptr(aTHX))
401#undef PL_markstack
402#define PL_markstack (*Perl_Imarkstack_ptr(aTHX))
403#undef PL_markstack_max
404#define PL_markstack_max (*Perl_Imarkstack_max_ptr(aTHX))
405#undef PL_markstack_ptr
406#define PL_markstack_ptr (*Perl_Imarkstack_ptr_ptr(aTHX))
407#undef PL_max_intro_pending
408#define PL_max_intro_pending (*Perl_Imax_intro_pending_ptr(aTHX))
409#undef PL_maxo
410#define PL_maxo (*Perl_Imaxo_ptr(aTHX))
411#undef PL_maxscream
412#define PL_maxscream (*Perl_Imaxscream_ptr(aTHX))
413#undef PL_maxsysfd
414#define PL_maxsysfd (*Perl_Imaxsysfd_ptr(aTHX))
415#undef PL_memory_debug_header
416#define PL_memory_debug_header (*Perl_Imemory_debug_header_ptr(aTHX))
417#undef PL_mess_sv
418#define PL_mess_sv (*Perl_Imess_sv_ptr(aTHX))
419#undef PL_min_intro_pending
420#define PL_min_intro_pending (*Perl_Imin_intro_pending_ptr(aTHX))
421#undef PL_minus_E
422#define PL_minus_E (*Perl_Iminus_E_ptr(aTHX))
423#undef PL_minus_F
424#define PL_minus_F (*Perl_Iminus_F_ptr(aTHX))
425#undef PL_minus_a
426#define PL_minus_a (*Perl_Iminus_a_ptr(aTHX))
427#undef PL_minus_c
428#define PL_minus_c (*Perl_Iminus_c_ptr(aTHX))
429#undef PL_minus_l
430#define PL_minus_l (*Perl_Iminus_l_ptr(aTHX))
431#undef PL_minus_n
432#define PL_minus_n (*Perl_Iminus_n_ptr(aTHX))
433#undef PL_minus_p
434#define PL_minus_p (*Perl_Iminus_p_ptr(aTHX))
435#undef PL_modcount
436#define PL_modcount (*Perl_Imodcount_ptr(aTHX))
437#undef PL_modglobal
438#define PL_modglobal (*Perl_Imodglobal_ptr(aTHX))
439#undef PL_my_cxt_keys
440#define PL_my_cxt_keys (*Perl_Imy_cxt_keys_ptr(aTHX))
441#undef PL_my_cxt_list
442#define PL_my_cxt_list (*Perl_Imy_cxt_list_ptr(aTHX))
443#undef PL_my_cxt_size
444#define PL_my_cxt_size (*Perl_Imy_cxt_size_ptr(aTHX))
445#undef PL_na
446#define PL_na (*Perl_Ina_ptr(aTHX))
447#undef PL_nice_chunk
448#define PL_nice_chunk (*Perl_Inice_chunk_ptr(aTHX))
449#undef PL_nice_chunk_size
450#define PL_nice_chunk_size (*Perl_Inice_chunk_size_ptr(aTHX))
451#undef PL_nomemok
452#define PL_nomemok (*Perl_Inomemok_ptr(aTHX))
453#undef PL_numeric_local
454#define PL_numeric_local (*Perl_Inumeric_local_ptr(aTHX))
455#undef PL_numeric_name
456#define PL_numeric_name (*Perl_Inumeric_name_ptr(aTHX))
457#undef PL_numeric_radix_sv
458#define PL_numeric_radix_sv (*Perl_Inumeric_radix_sv_ptr(aTHX))
459#undef PL_numeric_standard
460#define PL_numeric_standard (*Perl_Inumeric_standard_ptr(aTHX))
461#undef PL_ofs_sv
462#define PL_ofs_sv (*Perl_Iofs_sv_ptr(aTHX))
463#undef PL_oldname
464#define PL_oldname (*Perl_Ioldname_ptr(aTHX))
465#undef PL_op
466#define PL_op (*Perl_Iop_ptr(aTHX))
467#undef PL_op_mask
468#define PL_op_mask (*Perl_Iop_mask_ptr(aTHX))
469#undef PL_opsave
470#define PL_opsave (*Perl_Iopsave_ptr(aTHX))
471#undef PL_origalen
472#define PL_origalen (*Perl_Iorigalen_ptr(aTHX))
473#undef PL_origargc
474#define PL_origargc (*Perl_Iorigargc_ptr(aTHX))
475#undef PL_origargv
476#define PL_origargv (*Perl_Iorigargv_ptr(aTHX))
477#undef PL_origenviron
478#define PL_origenviron (*Perl_Iorigenviron_ptr(aTHX))
479#undef PL_origfilename
480#define PL_origfilename (*Perl_Iorigfilename_ptr(aTHX))
481#undef PL_ors_sv
482#define PL_ors_sv (*Perl_Iors_sv_ptr(aTHX))
483#undef PL_osname
484#define PL_osname (*Perl_Iosname_ptr(aTHX))
485#undef PL_pad_reset_pending
486#define PL_pad_reset_pending (*Perl_Ipad_reset_pending_ptr(aTHX))
487#undef PL_padix
488#define PL_padix (*Perl_Ipadix_ptr(aTHX))
489#undef PL_padix_floor
490#define PL_padix_floor (*Perl_Ipadix_floor_ptr(aTHX))
491#undef PL_parser
492#define PL_parser (*Perl_Iparser_ptr(aTHX))
493#undef PL_patchlevel
494#define PL_patchlevel (*Perl_Ipatchlevel_ptr(aTHX))
495#undef PL_peepp
496#define PL_peepp (*Perl_Ipeepp_ptr(aTHX))
497#undef PL_perl_destruct_level
498#define PL_perl_destruct_level (*Perl_Iperl_destruct_level_ptr(aTHX))
499#undef PL_perldb
500#define PL_perldb (*Perl_Iperldb_ptr(aTHX))
501#undef PL_perlio
502#define PL_perlio (*Perl_Iperlio_ptr(aTHX))
503#undef PL_pidstatus
504#define PL_pidstatus (*Perl_Ipidstatus_ptr(aTHX))
505#undef PL_ppid
506#define PL_ppid (*Perl_Ippid_ptr(aTHX))
507#undef PL_preambleav
508#define PL_preambleav (*Perl_Ipreambleav_ptr(aTHX))
509#undef PL_preprocess
510#define PL_preprocess (*Perl_Ipreprocess_ptr(aTHX))
511#undef PL_profiledata
512#define PL_profiledata (*Perl_Iprofiledata_ptr(aTHX))
513#undef PL_psig_name
514#define PL_psig_name (*Perl_Ipsig_name_ptr(aTHX))
515#undef PL_psig_pend
516#define PL_psig_pend (*Perl_Ipsig_pend_ptr(aTHX))
517#undef PL_psig_ptr
518#define PL_psig_ptr (*Perl_Ipsig_ptr_ptr(aTHX))
519#undef PL_ptr_table
520#define PL_ptr_table (*Perl_Iptr_table_ptr(aTHX))
521#undef PL_reentrant_buffer
522#define PL_reentrant_buffer (*Perl_Ireentrant_buffer_ptr(aTHX))
523#undef PL_reentrant_retint
524#define PL_reentrant_retint (*Perl_Ireentrant_retint_ptr(aTHX))
525#undef PL_reg_state
526#define PL_reg_state (*Perl_Ireg_state_ptr(aTHX))
527#undef PL_regdummy
528#define PL_regdummy (*Perl_Iregdummy_ptr(aTHX))
529#undef PL_regex_pad
530#define PL_regex_pad (*Perl_Iregex_pad_ptr(aTHX))
531#undef PL_regex_padav
532#define PL_regex_padav (*Perl_Iregex_padav_ptr(aTHX))
533#undef PL_reginterp_cnt
534#define PL_reginterp_cnt (*Perl_Ireginterp_cnt_ptr(aTHX))
535#undef PL_regmatch_slab
536#define PL_regmatch_slab (*Perl_Iregmatch_slab_ptr(aTHX))
537#undef PL_regmatch_state
538#define PL_regmatch_state (*Perl_Iregmatch_state_ptr(aTHX))
539#undef PL_rehash_seed
540#define PL_rehash_seed (*Perl_Irehash_seed_ptr(aTHX))
541#undef PL_rehash_seed_set
542#define PL_rehash_seed_set (*Perl_Irehash_seed_set_ptr(aTHX))
543#undef PL_replgv
544#define PL_replgv (*Perl_Ireplgv_ptr(aTHX))
545#undef PL_restartop
546#define PL_restartop (*Perl_Irestartop_ptr(aTHX))
547#undef PL_rs
548#define PL_rs (*Perl_Irs_ptr(aTHX))
549#undef PL_runops
550#define PL_runops (*Perl_Irunops_ptr(aTHX))
551#undef PL_savebegin
552#define PL_savebegin (*Perl_Isavebegin_ptr(aTHX))
553#undef PL_savestack
554#define PL_savestack (*Perl_Isavestack_ptr(aTHX))
555#undef PL_savestack_ix
556#define PL_savestack_ix (*Perl_Isavestack_ix_ptr(aTHX))
557#undef PL_savestack_max
558#define PL_savestack_max (*Perl_Isavestack_max_ptr(aTHX))
559#undef PL_sawampersand
560#define PL_sawampersand (*Perl_Isawampersand_ptr(aTHX))
561#undef PL_scopestack
562#define PL_scopestack (*Perl_Iscopestack_ptr(aTHX))
563#undef PL_scopestack_ix
564#define PL_scopestack_ix (*Perl_Iscopestack_ix_ptr(aTHX))
565#undef PL_scopestack_max
566#define PL_scopestack_max (*Perl_Iscopestack_max_ptr(aTHX))
567#undef PL_screamfirst
568#define PL_screamfirst (*Perl_Iscreamfirst_ptr(aTHX))
569#undef PL_screamnext
570#define PL_screamnext (*Perl_Iscreamnext_ptr(aTHX))
571#undef PL_secondgv
572#define PL_secondgv (*Perl_Isecondgv_ptr(aTHX))
573#undef PL_sharehook
574#define PL_sharehook (*Perl_Isharehook_ptr(aTHX))
575#undef PL_sig_pending
576#define PL_sig_pending (*Perl_Isig_pending_ptr(aTHX))
577#undef PL_sighandlerp
578#define PL_sighandlerp (*Perl_Isighandlerp_ptr(aTHX))
579#undef PL_signals
580#define PL_signals (*Perl_Isignals_ptr(aTHX))
581#undef PL_slab_count
582#define PL_slab_count (*Perl_Islab_count_ptr(aTHX))
583#undef PL_slabs
584#define PL_slabs (*Perl_Islabs_ptr(aTHX))
585#undef PL_sort_RealCmp
586#define PL_sort_RealCmp (*Perl_Isort_RealCmp_ptr(aTHX))
587#undef PL_sortcop
588#define PL_sortcop (*Perl_Isortcop_ptr(aTHX))
589#undef PL_sortstash
590#define PL_sortstash (*Perl_Isortstash_ptr(aTHX))
591#undef PL_splitstr
592#define PL_splitstr (*Perl_Isplitstr_ptr(aTHX))
593#undef PL_srand_called
594#define PL_srand_called (*Perl_Isrand_called_ptr(aTHX))
595#undef PL_stack_base
596#define PL_stack_base (*Perl_Istack_base_ptr(aTHX))
597#undef PL_stack_max
598#define PL_stack_max (*Perl_Istack_max_ptr(aTHX))
599#undef PL_stack_sp
600#define PL_stack_sp (*Perl_Istack_sp_ptr(aTHX))
601#undef PL_start_env
602#define PL_start_env (*Perl_Istart_env_ptr(aTHX))
603#undef PL_stashcache
604#define PL_stashcache (*Perl_Istashcache_ptr(aTHX))
605#undef PL_statbuf
606#define PL_statbuf (*Perl_Istatbuf_ptr(aTHX))
607#undef PL_statcache
608#define PL_statcache (*Perl_Istatcache_ptr(aTHX))
609#undef PL_statgv
610#define PL_statgv (*Perl_Istatgv_ptr(aTHX))
611#undef PL_statname
612#define PL_statname (*Perl_Istatname_ptr(aTHX))
613#undef PL_statusvalue
614#define PL_statusvalue (*Perl_Istatusvalue_ptr(aTHX))
615#undef PL_statusvalue_posix
616#define PL_statusvalue_posix (*Perl_Istatusvalue_posix_ptr(aTHX))
617#undef PL_statusvalue_vms
618#define PL_statusvalue_vms (*Perl_Istatusvalue_vms_ptr(aTHX))
619#undef PL_stderrgv
620#define PL_stderrgv (*Perl_Istderrgv_ptr(aTHX))
621#undef PL_stdingv
622#define PL_stdingv (*Perl_Istdingv_ptr(aTHX))
623#undef PL_strtab
624#define PL_strtab (*Perl_Istrtab_ptr(aTHX))
625#undef PL_sub_generation
626#define PL_sub_generation (*Perl_Isub_generation_ptr(aTHX))
627#undef PL_subline
628#define PL_subline (*Perl_Isubline_ptr(aTHX))
629#undef PL_subname
630#define PL_subname (*Perl_Isubname_ptr(aTHX))
631#undef PL_sv_arenaroot
632#define PL_sv_arenaroot (*Perl_Isv_arenaroot_ptr(aTHX))
633#undef PL_sv_count
634#define PL_sv_count (*Perl_Isv_count_ptr(aTHX))
635#undef PL_sv_no
636#define PL_sv_no (*Perl_Isv_no_ptr(aTHX))
637#undef PL_sv_objcount
638#define PL_sv_objcount (*Perl_Isv_objcount_ptr(aTHX))
639#undef PL_sv_root
640#define PL_sv_root (*Perl_Isv_root_ptr(aTHX))
641#undef PL_sv_undef
642#define PL_sv_undef (*Perl_Isv_undef_ptr(aTHX))
643#undef PL_sv_yes
644#define PL_sv_yes (*Perl_Isv_yes_ptr(aTHX))
645#undef PL_sys_intern
646#define PL_sys_intern (*Perl_Isys_intern_ptr(aTHX))
647#undef PL_taint_warn
648#define PL_taint_warn (*Perl_Itaint_warn_ptr(aTHX))
649#undef PL_tainted
650#define PL_tainted (*Perl_Itainted_ptr(aTHX))
651#undef PL_tainting
652#define PL_tainting (*Perl_Itainting_ptr(aTHX))
653#undef PL_threadhook
654#define PL_threadhook (*Perl_Ithreadhook_ptr(aTHX))
655#undef PL_timesbuf
656#define PL_timesbuf (*Perl_Itimesbuf_ptr(aTHX))
657#undef PL_tmps_floor
658#define PL_tmps_floor (*Perl_Itmps_floor_ptr(aTHX))
659#undef PL_tmps_ix
660#define PL_tmps_ix (*Perl_Itmps_ix_ptr(aTHX))
661#undef PL_tmps_max
662#define PL_tmps_max (*Perl_Itmps_max_ptr(aTHX))
663#undef PL_tmps_stack
664#define PL_tmps_stack (*Perl_Itmps_stack_ptr(aTHX))
665#undef PL_top_env
666#define PL_top_env (*Perl_Itop_env_ptr(aTHX))
667#undef PL_toptarget
668#define PL_toptarget (*Perl_Itoptarget_ptr(aTHX))
669#undef PL_uid
670#define PL_uid (*Perl_Iuid_ptr(aTHX))
671#undef PL_unicode
672#define PL_unicode (*Perl_Iunicode_ptr(aTHX))
673#undef PL_unitcheckav
674#define PL_unitcheckav (*Perl_Iunitcheckav_ptr(aTHX))
675#undef PL_unitcheckav_save
676#define PL_unitcheckav_save (*Perl_Iunitcheckav_save_ptr(aTHX))
677#undef PL_unlockhook
678#define PL_unlockhook (*Perl_Iunlockhook_ptr(aTHX))
679#undef PL_unsafe
680#define PL_unsafe (*Perl_Iunsafe_ptr(aTHX))
681#undef PL_utf8_alnum
682#define PL_utf8_alnum (*Perl_Iutf8_alnum_ptr(aTHX))
683#undef PL_utf8_alnumc
684#define PL_utf8_alnumc (*Perl_Iutf8_alnumc_ptr(aTHX))
685#undef PL_utf8_alpha
686#define PL_utf8_alpha (*Perl_Iutf8_alpha_ptr(aTHX))
687#undef PL_utf8_ascii
688#define PL_utf8_ascii (*Perl_Iutf8_ascii_ptr(aTHX))
689#undef PL_utf8_cntrl
690#define PL_utf8_cntrl (*Perl_Iutf8_cntrl_ptr(aTHX))
691#undef PL_utf8_digit
692#define PL_utf8_digit (*Perl_Iutf8_digit_ptr(aTHX))
693#undef PL_utf8_graph
694#define PL_utf8_graph (*Perl_Iutf8_graph_ptr(aTHX))
695#undef PL_utf8_idcont
696#define PL_utf8_idcont (*Perl_Iutf8_idcont_ptr(aTHX))
697#undef PL_utf8_idstart
698#define PL_utf8_idstart (*Perl_Iutf8_idstart_ptr(aTHX))
699#undef PL_utf8_lower
700#define PL_utf8_lower (*Perl_Iutf8_lower_ptr(aTHX))
701#undef PL_utf8_mark
702#define PL_utf8_mark (*Perl_Iutf8_mark_ptr(aTHX))
703#undef PL_utf8_print
704#define PL_utf8_print (*Perl_Iutf8_print_ptr(aTHX))
705#undef PL_utf8_punct
706#define PL_utf8_punct (*Perl_Iutf8_punct_ptr(aTHX))
707#undef PL_utf8_space
708#define PL_utf8_space (*Perl_Iutf8_space_ptr(aTHX))
709#undef PL_utf8_tofold
710#define PL_utf8_tofold (*Perl_Iutf8_tofold_ptr(aTHX))
711#undef PL_utf8_tolower
712#define PL_utf8_tolower (*Perl_Iutf8_tolower_ptr(aTHX))
713#undef PL_utf8_totitle
714#define PL_utf8_totitle (*Perl_Iutf8_totitle_ptr(aTHX))
715#undef PL_utf8_toupper
716#define PL_utf8_toupper (*Perl_Iutf8_toupper_ptr(aTHX))
717#undef PL_utf8_upper
718#define PL_utf8_upper (*Perl_Iutf8_upper_ptr(aTHX))
719#undef PL_utf8_xdigit
720#define PL_utf8_xdigit (*Perl_Iutf8_xdigit_ptr(aTHX))
721#undef PL_utf8cache
722#define PL_utf8cache (*Perl_Iutf8cache_ptr(aTHX))
723#undef PL_utf8locale
724#define PL_utf8locale (*Perl_Iutf8locale_ptr(aTHX))
725#undef PL_warnhook
726#define PL_warnhook (*Perl_Iwarnhook_ptr(aTHX))
727#undef PL_watchaddr
728#define PL_watchaddr (*Perl_Iwatchaddr_ptr(aTHX))
729#undef PL_watchok
730#define PL_watchok (*Perl_Iwatchok_ptr(aTHX))
731#undef PL_xmlfp
732#define PL_xmlfp (*Perl_Ixmlfp_ptr(aTHX))
733#undef PL_No
734#define PL_No (*Perl_GNo_ptr(NULL))
735#undef PL_Yes
736#define PL_Yes (*Perl_GYes_ptr(NULL))
737#undef PL_appctx
738#define PL_appctx (*Perl_Gappctx_ptr(NULL))
739#undef PL_check
740#define PL_check (*Perl_Gcheck_ptr(NULL))
741#undef PL_csighandlerp
742#define PL_csighandlerp (*Perl_Gcsighandlerp_ptr(NULL))
743#undef PL_curinterp
744#define PL_curinterp (*Perl_Gcurinterp_ptr(NULL))
745#undef PL_do_undump
746#define PL_do_undump (*Perl_Gdo_undump_ptr(NULL))
747#undef PL_dollarzero_mutex
748#define PL_dollarzero_mutex (*Perl_Gdollarzero_mutex_ptr(NULL))
749#undef PL_fold_locale
750#define PL_fold_locale (*Perl_Gfold_locale_ptr(NULL))
751#undef PL_global_struct_size
752#define PL_global_struct_size (*Perl_Gglobal_struct_size_ptr(NULL))
753#undef PL_hexdigit
754#define PL_hexdigit (*Perl_Ghexdigit_ptr(NULL))
755#undef PL_hints_mutex
756#define PL_hints_mutex (*Perl_Ghints_mutex_ptr(NULL))
757#undef PL_interp_size
758#define PL_interp_size (*Perl_Ginterp_size_ptr(NULL))
759#undef PL_interp_size_5_10_0
760#define PL_interp_size_5_10_0 (*Perl_Ginterp_size_5_10_0_ptr(NULL))
761#undef PL_malloc_mutex
762#define PL_malloc_mutex (*Perl_Gmalloc_mutex_ptr(NULL))
763#undef PL_mmap_page_size
764#define PL_mmap_page_size (*Perl_Gmmap_page_size_ptr(NULL))
765#undef PL_my_ctx_mutex
766#define PL_my_ctx_mutex (*Perl_Gmy_ctx_mutex_ptr(NULL))
767#undef PL_my_cxt_index
768#define PL_my_cxt_index (*Perl_Gmy_cxt_index_ptr(NULL))
769#undef PL_op_mutex
770#define PL_op_mutex (*Perl_Gop_mutex_ptr(NULL))
771#undef PL_op_seq
772#define PL_op_seq (*Perl_Gop_seq_ptr(NULL))
773#undef PL_op_sequence
774#define PL_op_sequence (*Perl_Gop_sequence_ptr(NULL))
775#undef PL_patleave
776#define PL_patleave (*Perl_Gpatleave_ptr(NULL))
777#undef PL_perlio_debug_fd
778#define PL_perlio_debug_fd (*Perl_Gperlio_debug_fd_ptr(NULL))
779#undef PL_perlio_fd_refcnt
780#define PL_perlio_fd_refcnt (*Perl_Gperlio_fd_refcnt_ptr(NULL))
781#undef PL_perlio_fd_refcnt_size
782#define PL_perlio_fd_refcnt_size (*Perl_Gperlio_fd_refcnt_size_ptr(NULL))
783#undef PL_perlio_mutex
784#define PL_perlio_mutex (*Perl_Gperlio_mutex_ptr(NULL))
785#undef PL_ppaddr
786#define PL_ppaddr (*Perl_Gppaddr_ptr(NULL))
787#undef PL_revision
788#define PL_revision (*Perl_Grevision_ptr(NULL))
789#undef PL_runops_dbg
790#define PL_runops_dbg (*Perl_Grunops_dbg_ptr(NULL))
791#undef PL_runops_std
792#define PL_runops_std (*Perl_Grunops_std_ptr(NULL))
793#undef PL_sh_path
794#define PL_sh_path (*Perl_Gsh_path_ptr(NULL))
795#undef PL_sig_defaulting
796#define PL_sig_defaulting (*Perl_Gsig_defaulting_ptr(NULL))
797#undef PL_sig_handlers_initted
798#define PL_sig_handlers_initted (*Perl_Gsig_handlers_initted_ptr(NULL))
799#undef PL_sig_ignoring
800#define PL_sig_ignoring (*Perl_Gsig_ignoring_ptr(NULL))
801#undef PL_sig_sv
802#define PL_sig_sv (*Perl_Gsig_sv_ptr(NULL))
803#undef PL_sig_trapped
804#define PL_sig_trapped (*Perl_Gsig_trapped_ptr(NULL))
805#undef PL_sigfpe_saved
806#define PL_sigfpe_saved (*Perl_Gsigfpe_saved_ptr(NULL))
807#undef PL_subversion
808#define PL_subversion (*Perl_Gsubversion_ptr(NULL))
809#undef PL_sv_placeholder
810#define PL_sv_placeholder (*Perl_Gsv_placeholder_ptr(NULL))
811#undef PL_thr_key
812#define PL_thr_key (*Perl_Gthr_key_ptr(NULL))
813#undef PL_timesbase
814#define PL_timesbase (*Perl_Gtimesbase_ptr(NULL))
815#undef PL_use_safe_putenv
816#define PL_use_safe_putenv (*Perl_Guse_safe_putenv_ptr(NULL))
817#undef PL_version
818#define PL_version (*Perl_Gversion_ptr(NULL))
819#undef PL_veto_cleanup
820#define PL_veto_cleanup (*Perl_Gveto_cleanup_ptr(NULL))
821#undef PL_watch_pvx
822#define PL_watch_pvx (*Perl_Gwatch_pvx_ptr(NULL))
823
824#endif
825#endif
826
827#endif
828
829
830
