This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate cfgperl contents into mainline
[perl5.git] / perlapi.h
CommitLineData
51371543
GS
1/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
3 perlvars.h and thrdvar.h. Any changes made here will be lost!
4*/
5
51371543 6/* declare accessor functions for Perl variables */
6f4183fe
GS
7#ifndef __perlapi_h__
8#define __perlapi_h__
51371543 9
6f4183fe 10#if defined(PERL_OBJECT) || defined (MULTIPLICITY)
c5be433b
GS
11
12#if defined(PERL_OBJECT)
13# undef aTHXo
14# define aTHXo pPerl
15# undef aTHXo_
16# define aTHXo_ aTHXo,
c5be433b
GS
17#endif /* PERL_OBJECT */
18
51371543
GS
19START_EXTERN_C
20
21#undef PERLVAR
22#undef PERLVARA
23#undef PERLVARI
24#undef PERLVARIC
c5be433b 25#define PERLVAR(v,t) EXTERN_C t* Perl_##v##_ptr(pTHXo);
51371543 26#define PERLVARA(v,n,t) typedef t PL_##v##_t[n]; \
c5be433b 27 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHXo);
51371543 28#define PERLVARI(v,t,i) PERLVAR(v,t)
c5be433b 29#define PERLVARIC(v,t,i) PERLVAR(v, const t)
51371543
GS
30
31#include "thrdvar.h"
32#include "intrpvar.h"
33#include "perlvars.h"
34
35#undef PERLVAR
36#undef PERLVARA
37#undef PERLVARI
38#undef PERLVARIC
39
40END_EXTERN_C
41
682fc664 42#if defined(PERL_CORE)
6f4183fe 43
682fc664
GS
44/* accessor functions for Perl variables (provide binary compatibility) */
45
46/* these need to be mentioned here, or most linkers won't put them in
47 the perl executable */
48
49#ifndef PERL_NO_FORCE_LINK
50
51START_EXTERN_C
52
53#ifndef DOINIT
54EXT void *PL_force_link_funcs[];
55#else
56EXT void *PL_force_link_funcs[] = {
57#undef PERLVAR
58#undef PERLVARA
59#undef PERLVARI
60#undef PERLVARIC
ea1f607c 61#define PERLVAR(v,t) (void*)Perl_##v##_ptr,
682fc664
GS
62#define PERLVARA(v,n,t) PERLVAR(v,t)
63#define PERLVARI(v,t,i) PERLVAR(v,t)
64#define PERLVARIC(v,t,i) PERLVAR(v,t)
65
66#include "thrdvar.h"
67#include "intrpvar.h"
68#include "perlvars.h"
69
70#undef PERLVAR
71#undef PERLVARA
72#undef PERLVARI
73#undef PERLVARIC
74};
75#endif /* DOINIT */
76
77START_EXTERN_C
78
79#endif /* PERL_NO_FORCE_LINK */
80
81#else /* !PERL_CORE */
6f4183fe
GS
82
83#undef PL_Argv
84#define PL_Argv (*Perl_IArgv_ptr(aTHXo))
85#undef PL_Cmd
86#define PL_Cmd (*Perl_ICmd_ptr(aTHXo))
87#undef PL_DBcv
88#define PL_DBcv (*Perl_IDBcv_ptr(aTHXo))
89#undef PL_DBgv
90#define PL_DBgv (*Perl_IDBgv_ptr(aTHXo))
91#undef PL_DBline
92#define PL_DBline (*Perl_IDBline_ptr(aTHXo))
93#undef PL_DBsignal
94#define PL_DBsignal (*Perl_IDBsignal_ptr(aTHXo))
95#undef PL_DBsingle
96#define PL_DBsingle (*Perl_IDBsingle_ptr(aTHXo))
97#undef PL_DBsub
98#define PL_DBsub (*Perl_IDBsub_ptr(aTHXo))
99#undef PL_DBtrace
100#define PL_DBtrace (*Perl_IDBtrace_ptr(aTHXo))
101#undef PL_Dir
102#define PL_Dir (*Perl_IDir_ptr(aTHXo))
103#undef PL_Env
104#define PL_Env (*Perl_IEnv_ptr(aTHXo))
105#undef PL_LIO
106#define PL_LIO (*Perl_ILIO_ptr(aTHXo))
107#undef PL_Mem
108#define PL_Mem (*Perl_IMem_ptr(aTHXo))
109#undef PL_MemParse
110#define PL_MemParse (*Perl_IMemParse_ptr(aTHXo))
111#undef PL_MemShared
112#define PL_MemShared (*Perl_IMemShared_ptr(aTHXo))
113#undef PL_Proc
114#define PL_Proc (*Perl_IProc_ptr(aTHXo))
115#undef PL_Sock
116#define PL_Sock (*Perl_ISock_ptr(aTHXo))
117#undef PL_StdIO
118#define PL_StdIO (*Perl_IStdIO_ptr(aTHXo))
119#undef PL_amagic_generation
120#define PL_amagic_generation (*Perl_Iamagic_generation_ptr(aTHXo))
121#undef PL_an
122#define PL_an (*Perl_Ian_ptr(aTHXo))
123#undef PL_argvgv
124#define PL_argvgv (*Perl_Iargvgv_ptr(aTHXo))
125#undef PL_argvout_stack
126#define PL_argvout_stack (*Perl_Iargvout_stack_ptr(aTHXo))
127#undef PL_argvoutgv
128#define PL_argvoutgv (*Perl_Iargvoutgv_ptr(aTHXo))
129#undef PL_basetime
130#define PL_basetime (*Perl_Ibasetime_ptr(aTHXo))
131#undef PL_beginav
132#define PL_beginav (*Perl_Ibeginav_ptr(aTHXo))
133#undef PL_bitcount
134#define PL_bitcount (*Perl_Ibitcount_ptr(aTHXo))
135#undef PL_bufend
136#define PL_bufend (*Perl_Ibufend_ptr(aTHXo))
137#undef PL_bufptr
138#define PL_bufptr (*Perl_Ibufptr_ptr(aTHXo))
7d30b5c4
GS
139#undef PL_checkav
140#define PL_checkav (*Perl_Icheckav_ptr(aTHXo))
6f4183fe
GS
141#undef PL_collation_ix
142#define PL_collation_ix (*Perl_Icollation_ix_ptr(aTHXo))
143#undef PL_collation_name
144#define PL_collation_name (*Perl_Icollation_name_ptr(aTHXo))
145#undef PL_collation_standard
146#define PL_collation_standard (*Perl_Icollation_standard_ptr(aTHXo))
147#undef PL_collxfrm_base
148#define PL_collxfrm_base (*Perl_Icollxfrm_base_ptr(aTHXo))
149#undef PL_collxfrm_mult
150#define PL_collxfrm_mult (*Perl_Icollxfrm_mult_ptr(aTHXo))
151#undef PL_compcv
152#define PL_compcv (*Perl_Icompcv_ptr(aTHXo))
153#undef PL_compiling
154#define PL_compiling (*Perl_Icompiling_ptr(aTHXo))
155#undef PL_comppad
156#define PL_comppad (*Perl_Icomppad_ptr(aTHXo))
157#undef PL_comppad_name
158#define PL_comppad_name (*Perl_Icomppad_name_ptr(aTHXo))
159#undef PL_comppad_name_fill
160#define PL_comppad_name_fill (*Perl_Icomppad_name_fill_ptr(aTHXo))
161#undef PL_comppad_name_floor
162#define PL_comppad_name_floor (*Perl_Icomppad_name_floor_ptr(aTHXo))
163#undef PL_cop_seqmax
164#define PL_cop_seqmax (*Perl_Icop_seqmax_ptr(aTHXo))
165#undef PL_copline
166#define PL_copline (*Perl_Icopline_ptr(aTHXo))
167#undef PL_cred_mutex
168#define PL_cred_mutex (*Perl_Icred_mutex_ptr(aTHXo))
169#undef PL_cryptseen
170#define PL_cryptseen (*Perl_Icryptseen_ptr(aTHXo))
171#undef PL_cshlen
172#define PL_cshlen (*Perl_Icshlen_ptr(aTHXo))
173#undef PL_cshname
174#define PL_cshname (*Perl_Icshname_ptr(aTHXo))
175#undef PL_curcopdb
176#define PL_curcopdb (*Perl_Icurcopdb_ptr(aTHXo))
177#undef PL_curstname
178#define PL_curstname (*Perl_Icurstname_ptr(aTHXo))
179#undef PL_curthr
180#define PL_curthr (*Perl_Icurthr_ptr(aTHXo))
181#undef PL_dbargs
182#define PL_dbargs (*Perl_Idbargs_ptr(aTHXo))
183#undef PL_debstash
184#define PL_debstash (*Perl_Idebstash_ptr(aTHXo))
185#undef PL_debug
186#define PL_debug (*Perl_Idebug_ptr(aTHXo))
187#undef PL_defgv
188#define PL_defgv (*Perl_Idefgv_ptr(aTHXo))
189#undef PL_diehook
190#define PL_diehook (*Perl_Idiehook_ptr(aTHXo))
191#undef PL_doextract
192#define PL_doextract (*Perl_Idoextract_ptr(aTHXo))
193#undef PL_doswitches
194#define PL_doswitches (*Perl_Idoswitches_ptr(aTHXo))
195#undef PL_dowarn
196#define PL_dowarn (*Perl_Idowarn_ptr(aTHXo))
197#undef PL_e_script
198#define PL_e_script (*Perl_Ie_script_ptr(aTHXo))
199#undef PL_egid
200#define PL_egid (*Perl_Iegid_ptr(aTHXo))
201#undef PL_endav
202#define PL_endav (*Perl_Iendav_ptr(aTHXo))
203#undef PL_envgv
204#define PL_envgv (*Perl_Ienvgv_ptr(aTHXo))
205#undef PL_errgv
206#define PL_errgv (*Perl_Ierrgv_ptr(aTHXo))
207#undef PL_error_count
208#define PL_error_count (*Perl_Ierror_count_ptr(aTHXo))
209#undef PL_euid
210#define PL_euid (*Perl_Ieuid_ptr(aTHXo))
211#undef PL_eval_cond
212#define PL_eval_cond (*Perl_Ieval_cond_ptr(aTHXo))
213#undef PL_eval_mutex
214#define PL_eval_mutex (*Perl_Ieval_mutex_ptr(aTHXo))
215#undef PL_eval_owner
216#define PL_eval_owner (*Perl_Ieval_owner_ptr(aTHXo))
217#undef PL_eval_root
218#define PL_eval_root (*Perl_Ieval_root_ptr(aTHXo))
219#undef PL_eval_start
220#define PL_eval_start (*Perl_Ieval_start_ptr(aTHXo))
221#undef PL_evalseq
222#define PL_evalseq (*Perl_Ievalseq_ptr(aTHXo))
223#undef PL_exit_flags
224#define PL_exit_flags (*Perl_Iexit_flags_ptr(aTHXo))
225#undef PL_exitlist
226#define PL_exitlist (*Perl_Iexitlist_ptr(aTHXo))
227#undef PL_exitlistlen
228#define PL_exitlistlen (*Perl_Iexitlistlen_ptr(aTHXo))
229#undef PL_expect
230#define PL_expect (*Perl_Iexpect_ptr(aTHXo))
231#undef PL_fdpid
232#define PL_fdpid (*Perl_Ifdpid_ptr(aTHXo))
233#undef PL_filemode
234#define PL_filemode (*Perl_Ifilemode_ptr(aTHXo))
235#undef PL_forkprocess
236#define PL_forkprocess (*Perl_Iforkprocess_ptr(aTHXo))
237#undef PL_formfeed
238#define PL_formfeed (*Perl_Iformfeed_ptr(aTHXo))
239#undef PL_generation
240#define PL_generation (*Perl_Igeneration_ptr(aTHXo))
241#undef PL_gensym
242#define PL_gensym (*Perl_Igensym_ptr(aTHXo))
243#undef PL_gid
244#define PL_gid (*Perl_Igid_ptr(aTHXo))
245#undef PL_glob_index
246#define PL_glob_index (*Perl_Iglob_index_ptr(aTHXo))
247#undef PL_globalstash
248#define PL_globalstash (*Perl_Iglobalstash_ptr(aTHXo))
249#undef PL_he_root
250#define PL_he_root (*Perl_Ihe_root_ptr(aTHXo))
251#undef PL_hintgv
252#define PL_hintgv (*Perl_Ihintgv_ptr(aTHXo))
253#undef PL_hints
254#define PL_hints (*Perl_Ihints_ptr(aTHXo))
255#undef PL_in_clean_all
256#define PL_in_clean_all (*Perl_Iin_clean_all_ptr(aTHXo))
257#undef PL_in_clean_objs
258#define PL_in_clean_objs (*Perl_Iin_clean_objs_ptr(aTHXo))
259#undef PL_in_my
260#define PL_in_my (*Perl_Iin_my_ptr(aTHXo))
261#undef PL_in_my_stash
262#define PL_in_my_stash (*Perl_Iin_my_stash_ptr(aTHXo))
263#undef PL_incgv
264#define PL_incgv (*Perl_Iincgv_ptr(aTHXo))
265#undef PL_initav
266#define PL_initav (*Perl_Iinitav_ptr(aTHXo))
267#undef PL_inplace
268#define PL_inplace (*Perl_Iinplace_ptr(aTHXo))
269#undef PL_last_lop
270#define PL_last_lop (*Perl_Ilast_lop_ptr(aTHXo))
271#undef PL_last_lop_op
272#define PL_last_lop_op (*Perl_Ilast_lop_op_ptr(aTHXo))
273#undef PL_last_swash_hv
274#define PL_last_swash_hv (*Perl_Ilast_swash_hv_ptr(aTHXo))
275#undef PL_last_swash_key
276#define PL_last_swash_key (*Perl_Ilast_swash_key_ptr(aTHXo))
277#undef PL_last_swash_klen
278#define PL_last_swash_klen (*Perl_Ilast_swash_klen_ptr(aTHXo))
279#undef PL_last_swash_slen
280#define PL_last_swash_slen (*Perl_Ilast_swash_slen_ptr(aTHXo))
281#undef PL_last_swash_tmps
282#define PL_last_swash_tmps (*Perl_Ilast_swash_tmps_ptr(aTHXo))
283#undef PL_last_uni
284#define PL_last_uni (*Perl_Ilast_uni_ptr(aTHXo))
285#undef PL_lastfd
286#define PL_lastfd (*Perl_Ilastfd_ptr(aTHXo))
287#undef PL_laststatval
288#define PL_laststatval (*Perl_Ilaststatval_ptr(aTHXo))
289#undef PL_laststype
290#define PL_laststype (*Perl_Ilaststype_ptr(aTHXo))
291#undef PL_lex_brackets
292#define PL_lex_brackets (*Perl_Ilex_brackets_ptr(aTHXo))
293#undef PL_lex_brackstack
294#define PL_lex_brackstack (*Perl_Ilex_brackstack_ptr(aTHXo))
295#undef PL_lex_casemods
296#define PL_lex_casemods (*Perl_Ilex_casemods_ptr(aTHXo))
297#undef PL_lex_casestack
298#define PL_lex_casestack (*Perl_Ilex_casestack_ptr(aTHXo))
299#undef PL_lex_defer
300#define PL_lex_defer (*Perl_Ilex_defer_ptr(aTHXo))
301#undef PL_lex_dojoin
302#define PL_lex_dojoin (*Perl_Ilex_dojoin_ptr(aTHXo))
303#undef PL_lex_expect
304#define PL_lex_expect (*Perl_Ilex_expect_ptr(aTHXo))
305#undef PL_lex_formbrack
306#define PL_lex_formbrack (*Perl_Ilex_formbrack_ptr(aTHXo))
307#undef PL_lex_inpat
308#define PL_lex_inpat (*Perl_Ilex_inpat_ptr(aTHXo))
309#undef PL_lex_inwhat
310#define PL_lex_inwhat (*Perl_Ilex_inwhat_ptr(aTHXo))
311#undef PL_lex_op
312#define PL_lex_op (*Perl_Ilex_op_ptr(aTHXo))
313#undef PL_lex_repl
314#define PL_lex_repl (*Perl_Ilex_repl_ptr(aTHXo))
315#undef PL_lex_starts
316#define PL_lex_starts (*Perl_Ilex_starts_ptr(aTHXo))
317#undef PL_lex_state
318#define PL_lex_state (*Perl_Ilex_state_ptr(aTHXo))
319#undef PL_lex_stuff
320#define PL_lex_stuff (*Perl_Ilex_stuff_ptr(aTHXo))
321#undef PL_lineary
322#define PL_lineary (*Perl_Ilineary_ptr(aTHXo))
323#undef PL_linestart
324#define PL_linestart (*Perl_Ilinestart_ptr(aTHXo))
325#undef PL_linestr
326#define PL_linestr (*Perl_Ilinestr_ptr(aTHXo))
327#undef PL_localpatches
328#define PL_localpatches (*Perl_Ilocalpatches_ptr(aTHXo))
329#undef PL_main_cv
330#define PL_main_cv (*Perl_Imain_cv_ptr(aTHXo))
331#undef PL_main_root
332#define PL_main_root (*Perl_Imain_root_ptr(aTHXo))
333#undef PL_main_start
334#define PL_main_start (*Perl_Imain_start_ptr(aTHXo))
335#undef PL_max_intro_pending
336#define PL_max_intro_pending (*Perl_Imax_intro_pending_ptr(aTHXo))
337#undef PL_maxo
338#define PL_maxo (*Perl_Imaxo_ptr(aTHXo))
339#undef PL_maxsysfd
340#define PL_maxsysfd (*Perl_Imaxsysfd_ptr(aTHXo))
341#undef PL_mess_sv
342#define PL_mess_sv (*Perl_Imess_sv_ptr(aTHXo))
343#undef PL_min_intro_pending
344#define PL_min_intro_pending (*Perl_Imin_intro_pending_ptr(aTHXo))
345#undef PL_minus_F
346#define PL_minus_F (*Perl_Iminus_F_ptr(aTHXo))
347#undef PL_minus_a
348#define PL_minus_a (*Perl_Iminus_a_ptr(aTHXo))
349#undef PL_minus_c
350#define PL_minus_c (*Perl_Iminus_c_ptr(aTHXo))
351#undef PL_minus_l
352#define PL_minus_l (*Perl_Iminus_l_ptr(aTHXo))
353#undef PL_minus_n
354#define PL_minus_n (*Perl_Iminus_n_ptr(aTHXo))
355#undef PL_minus_p
356#define PL_minus_p (*Perl_Iminus_p_ptr(aTHXo))
357#undef PL_modglobal
358#define PL_modglobal (*Perl_Imodglobal_ptr(aTHXo))
359#undef PL_multi_close
360#define PL_multi_close (*Perl_Imulti_close_ptr(aTHXo))
361#undef PL_multi_end
362#define PL_multi_end (*Perl_Imulti_end_ptr(aTHXo))
363#undef PL_multi_open
364#define PL_multi_open (*Perl_Imulti_open_ptr(aTHXo))
365#undef PL_multi_start
366#define PL_multi_start (*Perl_Imulti_start_ptr(aTHXo))
367#undef PL_multiline
368#define PL_multiline (*Perl_Imultiline_ptr(aTHXo))
369#undef PL_nexttoke
370#define PL_nexttoke (*Perl_Inexttoke_ptr(aTHXo))
371#undef PL_nexttype
372#define PL_nexttype (*Perl_Inexttype_ptr(aTHXo))
373#undef PL_nextval
374#define PL_nextval (*Perl_Inextval_ptr(aTHXo))
375#undef PL_nice_chunk
376#define PL_nice_chunk (*Perl_Inice_chunk_ptr(aTHXo))
377#undef PL_nice_chunk_size
378#define PL_nice_chunk_size (*Perl_Inice_chunk_size_ptr(aTHXo))
379#undef PL_nomemok
380#define PL_nomemok (*Perl_Inomemok_ptr(aTHXo))
381#undef PL_nthreads
382#define PL_nthreads (*Perl_Inthreads_ptr(aTHXo))
383#undef PL_nthreads_cond
384#define PL_nthreads_cond (*Perl_Inthreads_cond_ptr(aTHXo))
f180df80
GS
385#undef PL_nullstash
386#define PL_nullstash (*Perl_Inullstash_ptr(aTHXo))
6f4183fe
GS
387#undef PL_numeric_local
388#define PL_numeric_local (*Perl_Inumeric_local_ptr(aTHXo))
389#undef PL_numeric_name
390#define PL_numeric_name (*Perl_Inumeric_name_ptr(aTHXo))
391#undef PL_numeric_radix
392#define PL_numeric_radix (*Perl_Inumeric_radix_ptr(aTHXo))
393#undef PL_numeric_standard
394#define PL_numeric_standard (*Perl_Inumeric_standard_ptr(aTHXo))
395#undef PL_ofmt
396#define PL_ofmt (*Perl_Iofmt_ptr(aTHXo))
397#undef PL_oldbufptr
398#define PL_oldbufptr (*Perl_Ioldbufptr_ptr(aTHXo))
399#undef PL_oldname
400#define PL_oldname (*Perl_Ioldname_ptr(aTHXo))
401#undef PL_oldoldbufptr
402#define PL_oldoldbufptr (*Perl_Ioldoldbufptr_ptr(aTHXo))
403#undef PL_op_mask
404#define PL_op_mask (*Perl_Iop_mask_ptr(aTHXo))
405#undef PL_op_seqmax
406#define PL_op_seqmax (*Perl_Iop_seqmax_ptr(aTHXo))
407#undef PL_origalen
408#define PL_origalen (*Perl_Iorigalen_ptr(aTHXo))
409#undef PL_origargc
410#define PL_origargc (*Perl_Iorigargc_ptr(aTHXo))
411#undef PL_origargv
412#define PL_origargv (*Perl_Iorigargv_ptr(aTHXo))
413#undef PL_origenviron
414#define PL_origenviron (*Perl_Iorigenviron_ptr(aTHXo))
415#undef PL_origfilename
416#define PL_origfilename (*Perl_Iorigfilename_ptr(aTHXo))
417#undef PL_ors
418#define PL_ors (*Perl_Iors_ptr(aTHXo))
419#undef PL_orslen
420#define PL_orslen (*Perl_Iorslen_ptr(aTHXo))
421#undef PL_osname
422#define PL_osname (*Perl_Iosname_ptr(aTHXo))
423#undef PL_pad_reset_pending
424#define PL_pad_reset_pending (*Perl_Ipad_reset_pending_ptr(aTHXo))
425#undef PL_padix
426#define PL_padix (*Perl_Ipadix_ptr(aTHXo))
427#undef PL_padix_floor
428#define PL_padix_floor (*Perl_Ipadix_floor_ptr(aTHXo))
429#undef PL_patchlevel
430#define PL_patchlevel (*Perl_Ipatchlevel_ptr(aTHXo))
431#undef PL_pending_ident
432#define PL_pending_ident (*Perl_Ipending_ident_ptr(aTHXo))
433#undef PL_perl_destruct_level
434#define PL_perl_destruct_level (*Perl_Iperl_destruct_level_ptr(aTHXo))
435#undef PL_perldb
436#define PL_perldb (*Perl_Iperldb_ptr(aTHXo))
437#undef PL_pidstatus
438#define PL_pidstatus (*Perl_Ipidstatus_ptr(aTHXo))
439#undef PL_preambleav
440#define PL_preambleav (*Perl_Ipreambleav_ptr(aTHXo))
441#undef PL_preambled
442#define PL_preambled (*Perl_Ipreambled_ptr(aTHXo))
443#undef PL_preprocess
444#define PL_preprocess (*Perl_Ipreprocess_ptr(aTHXo))
445#undef PL_profiledata
446#define PL_profiledata (*Perl_Iprofiledata_ptr(aTHXo))
447#undef PL_psig_name
448#define PL_psig_name (*Perl_Ipsig_name_ptr(aTHXo))
449#undef PL_psig_ptr
450#define PL_psig_ptr (*Perl_Ipsig_ptr_ptr(aTHXo))
451#undef PL_ptr_table
452#define PL_ptr_table (*Perl_Iptr_table_ptr(aTHXo))
453#undef PL_replgv
454#define PL_replgv (*Perl_Ireplgv_ptr(aTHXo))
455#undef PL_rsfp
456#define PL_rsfp (*Perl_Irsfp_ptr(aTHXo))
457#undef PL_rsfp_filters
458#define PL_rsfp_filters (*Perl_Irsfp_filters_ptr(aTHXo))
459#undef PL_runops
460#define PL_runops (*Perl_Irunops_ptr(aTHXo))
461#undef PL_sawampersand
462#define PL_sawampersand (*Perl_Isawampersand_ptr(aTHXo))
463#undef PL_sh_path
464#define PL_sh_path (*Perl_Ish_path_ptr(aTHXo))
465#undef PL_sighandlerp
466#define PL_sighandlerp (*Perl_Isighandlerp_ptr(aTHXo))
467#undef PL_splitstr
468#define PL_splitstr (*Perl_Isplitstr_ptr(aTHXo))
469#undef PL_srand_called
470#define PL_srand_called (*Perl_Isrand_called_ptr(aTHXo))
471#undef PL_statusvalue
472#define PL_statusvalue (*Perl_Istatusvalue_ptr(aTHXo))
473#undef PL_statusvalue_vms
474#define PL_statusvalue_vms (*Perl_Istatusvalue_vms_ptr(aTHXo))
475#undef PL_stderrgv
476#define PL_stderrgv (*Perl_Istderrgv_ptr(aTHXo))
477#undef PL_stdingv
478#define PL_stdingv (*Perl_Istdingv_ptr(aTHXo))
6f4183fe
GS
479#undef PL_strtab
480#define PL_strtab (*Perl_Istrtab_ptr(aTHXo))
481#undef PL_strtab_mutex
482#define PL_strtab_mutex (*Perl_Istrtab_mutex_ptr(aTHXo))
483#undef PL_sub_generation
484#define PL_sub_generation (*Perl_Isub_generation_ptr(aTHXo))
485#undef PL_sublex_info
486#define PL_sublex_info (*Perl_Isublex_info_ptr(aTHXo))
487#undef PL_subline
488#define PL_subline (*Perl_Isubline_ptr(aTHXo))
489#undef PL_subname
490#define PL_subname (*Perl_Isubname_ptr(aTHXo))
491#undef PL_sv_arenaroot
492#define PL_sv_arenaroot (*Perl_Isv_arenaroot_ptr(aTHXo))
493#undef PL_sv_count
494#define PL_sv_count (*Perl_Isv_count_ptr(aTHXo))
495#undef PL_sv_mutex
496#define PL_sv_mutex (*Perl_Isv_mutex_ptr(aTHXo))
497#undef PL_sv_no
498#define PL_sv_no (*Perl_Isv_no_ptr(aTHXo))
499#undef PL_sv_objcount
500#define PL_sv_objcount (*Perl_Isv_objcount_ptr(aTHXo))
501#undef PL_sv_root
502#define PL_sv_root (*Perl_Isv_root_ptr(aTHXo))
503#undef PL_sv_undef
504#define PL_sv_undef (*Perl_Isv_undef_ptr(aTHXo))
505#undef PL_sv_yes
506#define PL_sv_yes (*Perl_Isv_yes_ptr(aTHXo))
507#undef PL_svref_mutex
508#define PL_svref_mutex (*Perl_Isvref_mutex_ptr(aTHXo))
509#undef PL_sys_intern
510#define PL_sys_intern (*Perl_Isys_intern_ptr(aTHXo))
511#undef PL_tainting
512#define PL_tainting (*Perl_Itainting_ptr(aTHXo))
6f4183fe
GS
513#undef PL_threadnum
514#define PL_threadnum (*Perl_Ithreadnum_ptr(aTHXo))
515#undef PL_threads_mutex
516#define PL_threads_mutex (*Perl_Ithreads_mutex_ptr(aTHXo))
517#undef PL_threadsv_names
518#define PL_threadsv_names (*Perl_Ithreadsv_names_ptr(aTHXo))
519#undef PL_thrsv
520#define PL_thrsv (*Perl_Ithrsv_ptr(aTHXo))
521#undef PL_tokenbuf
522#define PL_tokenbuf (*Perl_Itokenbuf_ptr(aTHXo))
523#undef PL_uid
524#define PL_uid (*Perl_Iuid_ptr(aTHXo))
525#undef PL_unsafe
526#define PL_unsafe (*Perl_Iunsafe_ptr(aTHXo))
527#undef PL_utf8_alnum
528#define PL_utf8_alnum (*Perl_Iutf8_alnum_ptr(aTHXo))
529#undef PL_utf8_alnumc
530#define PL_utf8_alnumc (*Perl_Iutf8_alnumc_ptr(aTHXo))
531#undef PL_utf8_alpha
532#define PL_utf8_alpha (*Perl_Iutf8_alpha_ptr(aTHXo))
533#undef PL_utf8_ascii
534#define PL_utf8_ascii (*Perl_Iutf8_ascii_ptr(aTHXo))
535#undef PL_utf8_cntrl
536#define PL_utf8_cntrl (*Perl_Iutf8_cntrl_ptr(aTHXo))
537#undef PL_utf8_digit
538#define PL_utf8_digit (*Perl_Iutf8_digit_ptr(aTHXo))
539#undef PL_utf8_graph
540#define PL_utf8_graph (*Perl_Iutf8_graph_ptr(aTHXo))
541#undef PL_utf8_lower
542#define PL_utf8_lower (*Perl_Iutf8_lower_ptr(aTHXo))
543#undef PL_utf8_mark
544#define PL_utf8_mark (*Perl_Iutf8_mark_ptr(aTHXo))
545#undef PL_utf8_print
546#define PL_utf8_print (*Perl_Iutf8_print_ptr(aTHXo))
547#undef PL_utf8_punct
548#define PL_utf8_punct (*Perl_Iutf8_punct_ptr(aTHXo))
549#undef PL_utf8_space
550#define PL_utf8_space (*Perl_Iutf8_space_ptr(aTHXo))
551#undef PL_utf8_tolower
552#define PL_utf8_tolower (*Perl_Iutf8_tolower_ptr(aTHXo))
553#undef PL_utf8_totitle
554#define PL_utf8_totitle (*Perl_Iutf8_totitle_ptr(aTHXo))
555#undef PL_utf8_toupper
556#define PL_utf8_toupper (*Perl_Iutf8_toupper_ptr(aTHXo))
557#undef PL_utf8_upper
558#define PL_utf8_upper (*Perl_Iutf8_upper_ptr(aTHXo))
559#undef PL_utf8_xdigit
560#define PL_utf8_xdigit (*Perl_Iutf8_xdigit_ptr(aTHXo))
561#undef PL_uudmap
562#define PL_uudmap (*Perl_Iuudmap_ptr(aTHXo))
563#undef PL_warnhook
564#define PL_warnhook (*Perl_Iwarnhook_ptr(aTHXo))
46487f74
GS
565#undef PL_widesyscalls
566#define PL_widesyscalls (*Perl_Iwidesyscalls_ptr(aTHXo))
6f4183fe
GS
567#undef PL_xiv_arenaroot
568#define PL_xiv_arenaroot (*Perl_Ixiv_arenaroot_ptr(aTHXo))
569#undef PL_xiv_root
570#define PL_xiv_root (*Perl_Ixiv_root_ptr(aTHXo))
571#undef PL_xnv_root
572#define PL_xnv_root (*Perl_Ixnv_root_ptr(aTHXo))
573#undef PL_xpv_root
574#define PL_xpv_root (*Perl_Ixpv_root_ptr(aTHXo))
575#undef PL_xpvav_root
576#define PL_xpvav_root (*Perl_Ixpvav_root_ptr(aTHXo))
577#undef PL_xpvbm_root
578#define PL_xpvbm_root (*Perl_Ixpvbm_root_ptr(aTHXo))
579#undef PL_xpvcv_root
580#define PL_xpvcv_root (*Perl_Ixpvcv_root_ptr(aTHXo))
581#undef PL_xpvhv_root
582#define PL_xpvhv_root (*Perl_Ixpvhv_root_ptr(aTHXo))
583#undef PL_xpviv_root
584#define PL_xpviv_root (*Perl_Ixpviv_root_ptr(aTHXo))
585#undef PL_xpvlv_root
586#define PL_xpvlv_root (*Perl_Ixpvlv_root_ptr(aTHXo))
587#undef PL_xpvmg_root
588#define PL_xpvmg_root (*Perl_Ixpvmg_root_ptr(aTHXo))
589#undef PL_xpvnv_root
590#define PL_xpvnv_root (*Perl_Ixpvnv_root_ptr(aTHXo))
591#undef PL_xrv_root
592#define PL_xrv_root (*Perl_Ixrv_root_ptr(aTHXo))
593#undef PL_yychar
594#define PL_yychar (*Perl_Iyychar_ptr(aTHXo))
595#undef PL_yydebug
596#define PL_yydebug (*Perl_Iyydebug_ptr(aTHXo))
597#undef PL_yyerrflag
598#define PL_yyerrflag (*Perl_Iyyerrflag_ptr(aTHXo))
599#undef PL_yylval
600#define PL_yylval (*Perl_Iyylval_ptr(aTHXo))
601#undef PL_yynerrs
602#define PL_yynerrs (*Perl_Iyynerrs_ptr(aTHXo))
603#undef PL_yyval
604#define PL_yyval (*Perl_Iyyval_ptr(aTHXo))
605#undef PL_Sv
606#define PL_Sv (*Perl_TSv_ptr(aTHXo))
607#undef PL_Xpv
608#define PL_Xpv (*Perl_TXpv_ptr(aTHXo))
609#undef PL_av_fetch_sv
610#define PL_av_fetch_sv (*Perl_Tav_fetch_sv_ptr(aTHXo))
611#undef PL_bodytarget
612#define PL_bodytarget (*Perl_Tbodytarget_ptr(aTHXo))
613#undef PL_bostr
614#define PL_bostr (*Perl_Tbostr_ptr(aTHXo))
615#undef PL_chopset
616#define PL_chopset (*Perl_Tchopset_ptr(aTHXo))
617#undef PL_colors
618#define PL_colors (*Perl_Tcolors_ptr(aTHXo))
619#undef PL_colorset
620#define PL_colorset (*Perl_Tcolorset_ptr(aTHXo))
621#undef PL_curcop
622#define PL_curcop (*Perl_Tcurcop_ptr(aTHXo))
623#undef PL_curpad
624#define PL_curpad (*Perl_Tcurpad_ptr(aTHXo))
625#undef PL_curpm
626#define PL_curpm (*Perl_Tcurpm_ptr(aTHXo))
627#undef PL_curstack
628#define PL_curstack (*Perl_Tcurstack_ptr(aTHXo))
629#undef PL_curstackinfo
630#define PL_curstackinfo (*Perl_Tcurstackinfo_ptr(aTHXo))
631#undef PL_curstash
632#define PL_curstash (*Perl_Tcurstash_ptr(aTHXo))
633#undef PL_defoutgv
634#define PL_defoutgv (*Perl_Tdefoutgv_ptr(aTHXo))
635#undef PL_defstash
636#define PL_defstash (*Perl_Tdefstash_ptr(aTHXo))
637#undef PL_delaymagic
638#define PL_delaymagic (*Perl_Tdelaymagic_ptr(aTHXo))
639#undef PL_dirty
640#define PL_dirty (*Perl_Tdirty_ptr(aTHXo))
641#undef PL_dumpindent
642#define PL_dumpindent (*Perl_Tdumpindent_ptr(aTHXo))
643#undef PL_efloatbuf
644#define PL_efloatbuf (*Perl_Tefloatbuf_ptr(aTHXo))
645#undef PL_efloatsize
646#define PL_efloatsize (*Perl_Tefloatsize_ptr(aTHXo))
647#undef PL_errors
648#define PL_errors (*Perl_Terrors_ptr(aTHXo))
649#undef PL_extralen
650#define PL_extralen (*Perl_Textralen_ptr(aTHXo))
651#undef PL_firstgv
652#define PL_firstgv (*Perl_Tfirstgv_ptr(aTHXo))
653#undef PL_formtarget
654#define PL_formtarget (*Perl_Tformtarget_ptr(aTHXo))
655#undef PL_hv_fetch_ent_mh
656#define PL_hv_fetch_ent_mh (*Perl_Thv_fetch_ent_mh_ptr(aTHXo))
657#undef PL_hv_fetch_sv
658#define PL_hv_fetch_sv (*Perl_Thv_fetch_sv_ptr(aTHXo))
659#undef PL_in_eval
660#define PL_in_eval (*Perl_Tin_eval_ptr(aTHXo))
661#undef PL_last_in_gv
662#define PL_last_in_gv (*Perl_Tlast_in_gv_ptr(aTHXo))
663#undef PL_lastgotoprobe
664#define PL_lastgotoprobe (*Perl_Tlastgotoprobe_ptr(aTHXo))
665#undef PL_lastscream
666#define PL_lastscream (*Perl_Tlastscream_ptr(aTHXo))
667#undef PL_localizing
668#define PL_localizing (*Perl_Tlocalizing_ptr(aTHXo))
669#undef PL_mainstack
670#define PL_mainstack (*Perl_Tmainstack_ptr(aTHXo))
671#undef PL_markstack
672#define PL_markstack (*Perl_Tmarkstack_ptr(aTHXo))
673#undef PL_markstack_max
674#define PL_markstack_max (*Perl_Tmarkstack_max_ptr(aTHXo))
675#undef PL_markstack_ptr
676#define PL_markstack_ptr (*Perl_Tmarkstack_ptr_ptr(aTHXo))
677#undef PL_maxscream
678#define PL_maxscream (*Perl_Tmaxscream_ptr(aTHXo))
679#undef PL_modcount
680#define PL_modcount (*Perl_Tmodcount_ptr(aTHXo))
681#undef PL_na
682#define PL_na (*Perl_Tna_ptr(aTHXo))
683#undef PL_nrs
684#define PL_nrs (*Perl_Tnrs_ptr(aTHXo))
685#undef PL_ofs
686#define PL_ofs (*Perl_Tofs_ptr(aTHXo))
687#undef PL_ofslen
688#define PL_ofslen (*Perl_Tofslen_ptr(aTHXo))
689#undef PL_op
690#define PL_op (*Perl_Top_ptr(aTHXo))
691#undef PL_opsave
692#define PL_opsave (*Perl_Topsave_ptr(aTHXo))
693#undef PL_protect
694#define PL_protect (*Perl_Tprotect_ptr(aTHXo))
695#undef PL_reg_call_cc
696#define PL_reg_call_cc (*Perl_Treg_call_cc_ptr(aTHXo))
697#undef PL_reg_curpm
698#define PL_reg_curpm (*Perl_Treg_curpm_ptr(aTHXo))
699#undef PL_reg_eval_set
700#define PL_reg_eval_set (*Perl_Treg_eval_set_ptr(aTHXo))
701#undef PL_reg_flags
702#define PL_reg_flags (*Perl_Treg_flags_ptr(aTHXo))
703#undef PL_reg_ganch
704#define PL_reg_ganch (*Perl_Treg_ganch_ptr(aTHXo))
705#undef PL_reg_leftiter
706#define PL_reg_leftiter (*Perl_Treg_leftiter_ptr(aTHXo))
707#undef PL_reg_magic
708#define PL_reg_magic (*Perl_Treg_magic_ptr(aTHXo))
709#undef PL_reg_maxiter
710#define PL_reg_maxiter (*Perl_Treg_maxiter_ptr(aTHXo))
711#undef PL_reg_oldcurpm
712#define PL_reg_oldcurpm (*Perl_Treg_oldcurpm_ptr(aTHXo))
713#undef PL_reg_oldpos
714#define PL_reg_oldpos (*Perl_Treg_oldpos_ptr(aTHXo))
715#undef PL_reg_oldsaved
716#define PL_reg_oldsaved (*Perl_Treg_oldsaved_ptr(aTHXo))
717#undef PL_reg_oldsavedlen
718#define PL_reg_oldsavedlen (*Perl_Treg_oldsavedlen_ptr(aTHXo))
719#undef PL_reg_poscache
720#define PL_reg_poscache (*Perl_Treg_poscache_ptr(aTHXo))
721#undef PL_reg_poscache_size
722#define PL_reg_poscache_size (*Perl_Treg_poscache_size_ptr(aTHXo))
723#undef PL_reg_re
724#define PL_reg_re (*Perl_Treg_re_ptr(aTHXo))
725#undef PL_reg_start_tmp
726#define PL_reg_start_tmp (*Perl_Treg_start_tmp_ptr(aTHXo))
727#undef PL_reg_start_tmpl
728#define PL_reg_start_tmpl (*Perl_Treg_start_tmpl_ptr(aTHXo))
729#undef PL_reg_starttry
730#define PL_reg_starttry (*Perl_Treg_starttry_ptr(aTHXo))
731#undef PL_reg_sv
732#define PL_reg_sv (*Perl_Treg_sv_ptr(aTHXo))
733#undef PL_reg_whilem_seen
734#define PL_reg_whilem_seen (*Perl_Treg_whilem_seen_ptr(aTHXo))
735#undef PL_regbol
736#define PL_regbol (*Perl_Tregbol_ptr(aTHXo))
737#undef PL_regcc
738#define PL_regcc (*Perl_Tregcc_ptr(aTHXo))
739#undef PL_regcode
740#define PL_regcode (*Perl_Tregcode_ptr(aTHXo))
741#undef PL_regcomp_parse
742#define PL_regcomp_parse (*Perl_Tregcomp_parse_ptr(aTHXo))
743#undef PL_regcomp_rx
744#define PL_regcomp_rx (*Perl_Tregcomp_rx_ptr(aTHXo))
745#undef PL_regcompp
746#define PL_regcompp (*Perl_Tregcompp_ptr(aTHXo))
747#undef PL_regdata
748#define PL_regdata (*Perl_Tregdata_ptr(aTHXo))
749#undef PL_regdummy
750#define PL_regdummy (*Perl_Tregdummy_ptr(aTHXo))
751#undef PL_regendp
752#define PL_regendp (*Perl_Tregendp_ptr(aTHXo))
753#undef PL_regeol
754#define PL_regeol (*Perl_Tregeol_ptr(aTHXo))
755#undef PL_regexecp
756#define PL_regexecp (*Perl_Tregexecp_ptr(aTHXo))
757#undef PL_regflags
758#define PL_regflags (*Perl_Tregflags_ptr(aTHXo))
759#undef PL_regfree
760#define PL_regfree (*Perl_Tregfree_ptr(aTHXo))
761#undef PL_regindent
762#define PL_regindent (*Perl_Tregindent_ptr(aTHXo))
763#undef PL_reginput
764#define PL_reginput (*Perl_Treginput_ptr(aTHXo))
765#undef PL_regint_start
766#define PL_regint_start (*Perl_Tregint_start_ptr(aTHXo))
767#undef PL_regint_string
768#define PL_regint_string (*Perl_Tregint_string_ptr(aTHXo))
769#undef PL_reginterp_cnt
770#define PL_reginterp_cnt (*Perl_Treginterp_cnt_ptr(aTHXo))
771#undef PL_reglastparen
772#define PL_reglastparen (*Perl_Treglastparen_ptr(aTHXo))
773#undef PL_regnarrate
774#define PL_regnarrate (*Perl_Tregnarrate_ptr(aTHXo))
775#undef PL_regnaughty
776#define PL_regnaughty (*Perl_Tregnaughty_ptr(aTHXo))
777#undef PL_regnpar
778#define PL_regnpar (*Perl_Tregnpar_ptr(aTHXo))
779#undef PL_regprecomp
780#define PL_regprecomp (*Perl_Tregprecomp_ptr(aTHXo))
781#undef PL_regprev
782#define PL_regprev (*Perl_Tregprev_ptr(aTHXo))
783#undef PL_regprogram
784#define PL_regprogram (*Perl_Tregprogram_ptr(aTHXo))
785#undef PL_regsawback
786#define PL_regsawback (*Perl_Tregsawback_ptr(aTHXo))
787#undef PL_regseen
788#define PL_regseen (*Perl_Tregseen_ptr(aTHXo))
789#undef PL_regsize
790#define PL_regsize (*Perl_Tregsize_ptr(aTHXo))
791#undef PL_regstartp
792#define PL_regstartp (*Perl_Tregstartp_ptr(aTHXo))
793#undef PL_regtill
794#define PL_regtill (*Perl_Tregtill_ptr(aTHXo))
795#undef PL_regxend
796#define PL_regxend (*Perl_Tregxend_ptr(aTHXo))
797#undef PL_restartop
798#define PL_restartop (*Perl_Trestartop_ptr(aTHXo))
799#undef PL_retstack
800#define PL_retstack (*Perl_Tretstack_ptr(aTHXo))
801#undef PL_retstack_ix
802#define PL_retstack_ix (*Perl_Tretstack_ix_ptr(aTHXo))
803#undef PL_retstack_max
804#define PL_retstack_max (*Perl_Tretstack_max_ptr(aTHXo))
805#undef PL_rs
806#define PL_rs (*Perl_Trs_ptr(aTHXo))
807#undef PL_savestack
808#define PL_savestack (*Perl_Tsavestack_ptr(aTHXo))
809#undef PL_savestack_ix
810#define PL_savestack_ix (*Perl_Tsavestack_ix_ptr(aTHXo))
811#undef PL_savestack_max
812#define PL_savestack_max (*Perl_Tsavestack_max_ptr(aTHXo))
813#undef PL_scopestack
814#define PL_scopestack (*Perl_Tscopestack_ptr(aTHXo))
815#undef PL_scopestack_ix
816#define PL_scopestack_ix (*Perl_Tscopestack_ix_ptr(aTHXo))
817#undef PL_scopestack_max
818#define PL_scopestack_max (*Perl_Tscopestack_max_ptr(aTHXo))
819#undef PL_screamfirst
820#define PL_screamfirst (*Perl_Tscreamfirst_ptr(aTHXo))
821#undef PL_screamnext
822#define PL_screamnext (*Perl_Tscreamnext_ptr(aTHXo))
823#undef PL_secondgv
824#define PL_secondgv (*Perl_Tsecondgv_ptr(aTHXo))
825#undef PL_seen_evals
826#define PL_seen_evals (*Perl_Tseen_evals_ptr(aTHXo))
827#undef PL_seen_zerolen
828#define PL_seen_zerolen (*Perl_Tseen_zerolen_ptr(aTHXo))
829#undef PL_sortcop
830#define PL_sortcop (*Perl_Tsortcop_ptr(aTHXo))
831#undef PL_sortcxix
832#define PL_sortcxix (*Perl_Tsortcxix_ptr(aTHXo))
833#undef PL_sortstash
834#define PL_sortstash (*Perl_Tsortstash_ptr(aTHXo))
835#undef PL_stack_base
836#define PL_stack_base (*Perl_Tstack_base_ptr(aTHXo))
837#undef PL_stack_max
838#define PL_stack_max (*Perl_Tstack_max_ptr(aTHXo))
839#undef PL_stack_sp
840#define PL_stack_sp (*Perl_Tstack_sp_ptr(aTHXo))
841#undef PL_start_env
842#define PL_start_env (*Perl_Tstart_env_ptr(aTHXo))
843#undef PL_statbuf
844#define PL_statbuf (*Perl_Tstatbuf_ptr(aTHXo))
845#undef PL_statcache
846#define PL_statcache (*Perl_Tstatcache_ptr(aTHXo))
847#undef PL_statgv
848#define PL_statgv (*Perl_Tstatgv_ptr(aTHXo))
849#undef PL_statname
850#define PL_statname (*Perl_Tstatname_ptr(aTHXo))
851#undef PL_tainted
852#define PL_tainted (*Perl_Ttainted_ptr(aTHXo))
853#undef PL_timesbuf
854#define PL_timesbuf (*Perl_Ttimesbuf_ptr(aTHXo))
855#undef PL_tmps_floor
856#define PL_tmps_floor (*Perl_Ttmps_floor_ptr(aTHXo))
857#undef PL_tmps_ix
858#define PL_tmps_ix (*Perl_Ttmps_ix_ptr(aTHXo))
859#undef PL_tmps_max
860#define PL_tmps_max (*Perl_Ttmps_max_ptr(aTHXo))
861#undef PL_tmps_stack
862#define PL_tmps_stack (*Perl_Ttmps_stack_ptr(aTHXo))
863#undef PL_top_env
864#define PL_top_env (*Perl_Ttop_env_ptr(aTHXo))
865#undef PL_toptarget
866#define PL_toptarget (*Perl_Ttoptarget_ptr(aTHXo))
867#undef PL_watchaddr
868#define PL_watchaddr (*Perl_Twatchaddr_ptr(aTHXo))
869#undef PL_watchok
870#define PL_watchok (*Perl_Twatchok_ptr(aTHXo))
871#undef PL_No
872#define PL_No (*Perl_GNo_ptr(NULL))
873#undef PL_Yes
874#define PL_Yes (*Perl_GYes_ptr(NULL))
875#undef PL_curinterp
876#define PL_curinterp (*Perl_Gcurinterp_ptr(NULL))
877#undef PL_do_undump
878#define PL_do_undump (*Perl_Gdo_undump_ptr(NULL))
879#undef PL_hexdigit
880#define PL_hexdigit (*Perl_Ghexdigit_ptr(NULL))
881#undef PL_malloc_mutex
882#define PL_malloc_mutex (*Perl_Gmalloc_mutex_ptr(NULL))
534825c4
GS
883#undef PL_op_mutex
884#define PL_op_mutex (*Perl_Gop_mutex_ptr(NULL))
6f4183fe
GS
885#undef PL_patleave
886#define PL_patleave (*Perl_Gpatleave_ptr(NULL))
ba869deb
GS
887#undef PL_thr_key
888#define PL_thr_key (*Perl_Gthr_key_ptr(NULL))
6f4183fe
GS
889
890#endif /* !PERL_CORE */
891#endif /* PERL_OBJECT || MULTIPLICITY */
892
893#endif /* __perlapi_h__ */
51371543 894