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