This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We no longer need PL_shared_hek_table
[perl5.git] / perlapi.h
CommitLineData
37442d52
RGS
1/* -*- buffer-read-only: t -*-
2 *
eb1102fc
NIS
3 * perlapi.h
4 *
2419183b
RGS
5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
6 * 2000, 2001, 2002, 2003, 2004, 2005, 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
RGS
12 * This file is built by embed.pl from data in embed.fnc, embed.pl,
13 * pp.sym, intrpvar.h, perlvars.h and thrdvar.h.
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
GS
39
40#include "thrdvar.h"
41#include "intrpvar.h"
42#include "perlvars.h"
43
44#undef PERLVAR
45#undef PERLVARA
46#undef PERLVARI
47#undef PERLVARIC
27da23d5
JH
48#undef PERLVARISC
49
50#ifndef PERL_GLOBAL_STRUCT
51EXTERN_C Perl_ppaddr_t** Perl_Gppaddr_ptr(pTHX);
52EXTERN_C Perl_check_t** Perl_Gcheck_ptr(pTHX);
53EXTERN_C unsigned char** Perl_Gfold_locale_ptr(pTHX);
54#define Perl_ppaddr_ptr Perl_Gppaddr_ptr
55#define Perl_check_ptr Perl_Gcheck_ptr
56#define Perl_fold_locale_ptr Perl_Gfold_locale_ptr
57#endif
51371543
GS
58
59END_EXTERN_C
60
682fc664 61#if defined(PERL_CORE)
6f4183fe 62
682fc664
GS
63/* accessor functions for Perl variables (provide binary compatibility) */
64
65/* these need to be mentioned here, or most linkers won't put them in
66 the perl executable */
67
68#ifndef PERL_NO_FORCE_LINK
69
70START_EXTERN_C
71
72#ifndef DOINIT
27da23d5 73EXTCONST void * const PL_force_link_funcs[];
682fc664 74#else
27da23d5 75EXTCONST void * const PL_force_link_funcs[] = {
682fc664
GS
76#undef PERLVAR
77#undef PERLVARA
78#undef PERLVARI
79#undef PERLVARIC
ea1f607c 80#define PERLVAR(v,t) (void*)Perl_##v##_ptr,
682fc664
GS
81#define PERLVARA(v,n,t) PERLVAR(v,t)
82#define PERLVARI(v,t,i) PERLVAR(v,t)
83#define PERLVARIC(v,t,i) PERLVAR(v,t)
27da23d5 84#define PERLVARISC(v,i) PERLVAR(v,char)
682fc664 85
b6f9b097
MB
86/* In Tru64 (__DEC && __osf__) the cc option -std1 causes that one
87 * cannot cast between void pointers and function pointers without
88 * info level warnings. The PL_force_link_funcs[] would cause a few
89 * hundred of those warnings. In code one can circumnavigate this by using
90 * unions that overlay the different pointers, but in declarations one
91 * cannot use this trick. Therefore we just disable the warning here
92 * for the duration of the PL_force_link_funcs[] declaration. */
93
94#if defined(__DECC) && defined(__osf__)
95#pragma message save
96#pragma message disable (nonstandcast)
97#endif
98
682fc664
GS
99#include "thrdvar.h"
100#include "intrpvar.h"
101#include "perlvars.h"
102
b6f9b097
MB
103#if defined(__DECC) && defined(__osf__)
104#pragma message restore
105#endif
106
682fc664
GS
107#undef PERLVAR
108#undef PERLVARA
109#undef PERLVARI
110#undef PERLVARIC
27da23d5 111#undef PERLVARISC
682fc664
GS
112};
113#endif /* DOINIT */
114
acfe0abc 115END_EXTERN_C
682fc664
GS
116
117#endif /* PERL_NO_FORCE_LINK */
118
119#else /* !PERL_CORE */
6f4183fe
GS
120
121#undef PL_Argv
acfe0abc 122#define PL_Argv (*Perl_IArgv_ptr(aTHX))
6f4183fe 123#undef PL_Cmd
acfe0abc 124#define PL_Cmd (*Perl_ICmd_ptr(aTHX))
06492da6
SF
125#undef PL_DBassertion
126#define PL_DBassertion (*Perl_IDBassertion_ptr(aTHX))
6f4183fe 127#undef PL_DBcv
acfe0abc 128#define PL_DBcv (*Perl_IDBcv_ptr(aTHX))
6f4183fe 129#undef PL_DBgv
acfe0abc 130#define PL_DBgv (*Perl_IDBgv_ptr(aTHX))
6f4183fe 131#undef PL_DBline
acfe0abc 132#define PL_DBline (*Perl_IDBline_ptr(aTHX))
6f4183fe 133#undef PL_DBsignal
acfe0abc 134#define PL_DBsignal (*Perl_IDBsignal_ptr(aTHX))
6f4183fe 135#undef PL_DBsingle
acfe0abc 136#define PL_DBsingle (*Perl_IDBsingle_ptr(aTHX))
6f4183fe 137#undef PL_DBsub
acfe0abc 138#define PL_DBsub (*Perl_IDBsub_ptr(aTHX))
6f4183fe 139#undef PL_DBtrace
acfe0abc 140#define PL_DBtrace (*Perl_IDBtrace_ptr(aTHX))
6f4183fe 141#undef PL_Dir
acfe0abc 142#define PL_Dir (*Perl_IDir_ptr(aTHX))
6f4183fe 143#undef PL_Env
acfe0abc 144#define PL_Env (*Perl_IEnv_ptr(aTHX))
6f4183fe 145#undef PL_LIO
acfe0abc 146#define PL_LIO (*Perl_ILIO_ptr(aTHX))
6f4183fe 147#undef PL_Mem
acfe0abc 148#define PL_Mem (*Perl_IMem_ptr(aTHX))
6f4183fe 149#undef PL_MemParse
acfe0abc 150#define PL_MemParse (*Perl_IMemParse_ptr(aTHX))
6f4183fe 151#undef PL_MemShared
acfe0abc 152#define PL_MemShared (*Perl_IMemShared_ptr(aTHX))
ba979b31
NIS
153#undef PL_OpPtr
154#define PL_OpPtr (*Perl_IOpPtr_ptr(aTHX))
155#undef PL_OpSlab
156#define PL_OpSlab (*Perl_IOpSlab_ptr(aTHX))
157#undef PL_OpSpace
158#define PL_OpSpace (*Perl_IOpSpace_ptr(aTHX))
6f4183fe 159#undef PL_Proc
acfe0abc 160#define PL_Proc (*Perl_IProc_ptr(aTHX))
6f4183fe 161#undef PL_Sock
acfe0abc 162#define PL_Sock (*Perl_ISock_ptr(aTHX))
6f4183fe 163#undef PL_StdIO
acfe0abc 164#define PL_StdIO (*Perl_IStdIO_ptr(aTHX))
6f4183fe 165#undef PL_amagic_generation
acfe0abc 166#define PL_amagic_generation (*Perl_Iamagic_generation_ptr(aTHX))
6f4183fe 167#undef PL_an
acfe0abc 168#define PL_an (*Perl_Ian_ptr(aTHX))
6f4183fe 169#undef PL_argvgv
acfe0abc 170#define PL_argvgv (*Perl_Iargvgv_ptr(aTHX))
6f4183fe 171#undef PL_argvout_stack
acfe0abc 172#define PL_argvout_stack (*Perl_Iargvout_stack_ptr(aTHX))
6f4183fe 173#undef PL_argvoutgv
acfe0abc 174#define PL_argvoutgv (*Perl_Iargvoutgv_ptr(aTHX))
6f4183fe 175#undef PL_basetime
acfe0abc 176#define PL_basetime (*Perl_Ibasetime_ptr(aTHX))
6f4183fe 177#undef PL_beginav
acfe0abc 178#define PL_beginav (*Perl_Ibeginav_ptr(aTHX))
059a8bb7 179#undef PL_beginav_save
acfe0abc 180#define PL_beginav_save (*Perl_Ibeginav_save_ptr(aTHX))
6f4183fe 181#undef PL_bitcount
acfe0abc 182#define PL_bitcount (*Perl_Ibitcount_ptr(aTHX))
6f4183fe 183#undef PL_bufend
acfe0abc 184#define PL_bufend (*Perl_Ibufend_ptr(aTHX))
6f4183fe 185#undef PL_bufptr
acfe0abc 186#define PL_bufptr (*Perl_Ibufptr_ptr(aTHX))
7d30b5c4 187#undef PL_checkav
acfe0abc 188#define PL_checkav (*Perl_Icheckav_ptr(aTHX))
ece599bd
RGS
189#undef PL_checkav_save
190#define PL_checkav_save (*Perl_Icheckav_save_ptr(aTHX))
5311654c
JH
191#undef PL_clocktick
192#define PL_clocktick (*Perl_Iclocktick_ptr(aTHX))
6f4183fe 193#undef PL_collation_ix
acfe0abc 194#define PL_collation_ix (*Perl_Icollation_ix_ptr(aTHX))
6f4183fe 195#undef PL_collation_name
acfe0abc 196#define PL_collation_name (*Perl_Icollation_name_ptr(aTHX))
6f4183fe 197#undef PL_collation_standard
acfe0abc 198#define PL_collation_standard (*Perl_Icollation_standard_ptr(aTHX))
6f4183fe 199#undef PL_collxfrm_base
acfe0abc 200#define PL_collxfrm_base (*Perl_Icollxfrm_base_ptr(aTHX))
6f4183fe 201#undef PL_collxfrm_mult
acfe0abc 202#define PL_collxfrm_mult (*Perl_Icollxfrm_mult_ptr(aTHX))
6f4183fe 203#undef PL_compcv
acfe0abc 204#define PL_compcv (*Perl_Icompcv_ptr(aTHX))
6f4183fe 205#undef PL_compiling
acfe0abc 206#define PL_compiling (*Perl_Icompiling_ptr(aTHX))
6f4183fe 207#undef PL_comppad
acfe0abc 208#define PL_comppad (*Perl_Icomppad_ptr(aTHX))
6f4183fe 209#undef PL_comppad_name
acfe0abc 210#define PL_comppad_name (*Perl_Icomppad_name_ptr(aTHX))
6f4183fe 211#undef PL_comppad_name_fill
acfe0abc 212#define PL_comppad_name_fill (*Perl_Icomppad_name_fill_ptr(aTHX))
6f4183fe 213#undef PL_comppad_name_floor
acfe0abc 214#define PL_comppad_name_floor (*Perl_Icomppad_name_floor_ptr(aTHX))
6f4183fe 215#undef PL_cop_seqmax
acfe0abc 216#define PL_cop_seqmax (*Perl_Icop_seqmax_ptr(aTHX))
6f4183fe 217#undef PL_copline
acfe0abc 218#define PL_copline (*Perl_Icopline_ptr(aTHX))
6f4183fe 219#undef PL_cryptseen
acfe0abc 220#define PL_cryptseen (*Perl_Icryptseen_ptr(aTHX))
6f4183fe 221#undef PL_cshlen
acfe0abc 222#define PL_cshlen (*Perl_Icshlen_ptr(aTHX))
6f4183fe 223#undef PL_cshname
acfe0abc 224#define PL_cshname (*Perl_Icshname_ptr(aTHX))
6f4183fe 225#undef PL_curcopdb
acfe0abc 226#define PL_curcopdb (*Perl_Icurcopdb_ptr(aTHX))
6f4183fe 227#undef PL_curstname
acfe0abc 228#define PL_curstname (*Perl_Icurstname_ptr(aTHX))
438c221d 229#undef PL_custom_op_descs
acfe0abc 230#define PL_custom_op_descs (*Perl_Icustom_op_descs_ptr(aTHX))
438c221d 231#undef PL_custom_op_names
acfe0abc 232#define PL_custom_op_names (*Perl_Icustom_op_names_ptr(aTHX))
b5c19bd7
DM
233#undef PL_cv_has_eval
234#define PL_cv_has_eval (*Perl_Icv_has_eval_ptr(aTHX))
6f4183fe 235#undef PL_dbargs
acfe0abc 236#define PL_dbargs (*Perl_Idbargs_ptr(aTHX))
6f4183fe 237#undef PL_debstash
acfe0abc 238#define PL_debstash (*Perl_Idebstash_ptr(aTHX))
6f4183fe 239#undef PL_debug
acfe0abc 240#define PL_debug (*Perl_Idebug_ptr(aTHX))
ce333219
JH
241#undef PL_debug_pad
242#define PL_debug_pad (*Perl_Idebug_pad_ptr(aTHX))
3a1ee7e8
NIS
243#undef PL_def_layerlist
244#define PL_def_layerlist (*Perl_Idef_layerlist_ptr(aTHX))
6f4183fe 245#undef PL_defgv
acfe0abc 246#define PL_defgv (*Perl_Idefgv_ptr(aTHX))
6f4183fe 247#undef PL_diehook
acfe0abc 248#define PL_diehook (*Perl_Idiehook_ptr(aTHX))
6f4183fe 249#undef PL_doextract
acfe0abc 250#define PL_doextract (*Perl_Idoextract_ptr(aTHX))
6f4183fe 251#undef PL_doswitches
acfe0abc 252#define PL_doswitches (*Perl_Idoswitches_ptr(aTHX))
6f4183fe 253#undef PL_dowarn
acfe0abc 254#define PL_dowarn (*Perl_Idowarn_ptr(aTHX))
6f4183fe 255#undef PL_e_script
acfe0abc 256#define PL_e_script (*Perl_Ie_script_ptr(aTHX))
6f4183fe 257#undef PL_egid
acfe0abc 258#define PL_egid (*Perl_Iegid_ptr(aTHX))
0a378802
JH
259#undef PL_encoding
260#define PL_encoding (*Perl_Iencoding_ptr(aTHX))
6f4183fe 261#undef PL_endav
acfe0abc 262#define PL_endav (*Perl_Iendav_ptr(aTHX))
6f4183fe 263#undef PL_envgv
acfe0abc 264#define PL_envgv (*Perl_Ienvgv_ptr(aTHX))
6f4183fe 265#undef PL_errgv
acfe0abc 266#define PL_errgv (*Perl_Ierrgv_ptr(aTHX))
6f4183fe 267#undef PL_error_count
acfe0abc 268#define PL_error_count (*Perl_Ierror_count_ptr(aTHX))
6f4183fe 269#undef PL_euid
acfe0abc 270#define PL_euid (*Perl_Ieuid_ptr(aTHX))
6f4183fe 271#undef PL_eval_root
acfe0abc 272#define PL_eval_root (*Perl_Ieval_root_ptr(aTHX))
6f4183fe 273#undef PL_eval_start
acfe0abc 274#define PL_eval_start (*Perl_Ieval_start_ptr(aTHX))
6f4183fe 275#undef PL_evalseq
acfe0abc 276#define PL_evalseq (*Perl_Ievalseq_ptr(aTHX))
6f4183fe 277#undef PL_exit_flags
acfe0abc 278#define PL_exit_flags (*Perl_Iexit_flags_ptr(aTHX))
6f4183fe 279#undef PL_exitlist
acfe0abc 280#define PL_exitlist (*Perl_Iexitlist_ptr(aTHX))
6f4183fe 281#undef PL_exitlistlen
acfe0abc 282#define PL_exitlistlen (*Perl_Iexitlistlen_ptr(aTHX))
6f4183fe 283#undef PL_expect
acfe0abc 284#define PL_expect (*Perl_Iexpect_ptr(aTHX))
6f4183fe 285#undef PL_fdpid
acfe0abc 286#define PL_fdpid (*Perl_Ifdpid_ptr(aTHX))
ae3f3efd
PS
287#undef PL_fdscript
288#define PL_fdscript (*Perl_Ifdscript_ptr(aTHX))
6f4183fe 289#undef PL_filemode
acfe0abc 290#define PL_filemode (*Perl_Ifilemode_ptr(aTHX))
6f4183fe 291#undef PL_forkprocess
acfe0abc 292#define PL_forkprocess (*Perl_Iforkprocess_ptr(aTHX))
6f4183fe 293#undef PL_formfeed
acfe0abc 294#define PL_formfeed (*Perl_Iformfeed_ptr(aTHX))
6f4183fe 295#undef PL_generation
acfe0abc 296#define PL_generation (*Perl_Igeneration_ptr(aTHX))
6f4183fe 297#undef PL_gensym
acfe0abc 298#define PL_gensym (*Perl_Igensym_ptr(aTHX))
6f4183fe 299#undef PL_gid
acfe0abc 300#define PL_gid (*Perl_Igid_ptr(aTHX))
6f4183fe 301#undef PL_glob_index
acfe0abc 302#define PL_glob_index (*Perl_Iglob_index_ptr(aTHX))
6f4183fe 303#undef PL_globalstash
acfe0abc 304#define PL_globalstash (*Perl_Iglobalstash_ptr(aTHX))
504f80c1
JH
305#undef PL_hash_seed
306#define PL_hash_seed (*Perl_Ihash_seed_ptr(aTHX))
bed60192
JH
307#undef PL_hash_seed_set
308#define PL_hash_seed_set (*Perl_Ihash_seed_set_ptr(aTHX))
612f20c3 309#undef PL_he_arenaroot
acfe0abc 310#define PL_he_arenaroot (*Perl_Ihe_arenaroot_ptr(aTHX))
6f4183fe 311#undef PL_he_root
acfe0abc 312#define PL_he_root (*Perl_Ihe_root_ptr(aTHX))
6f4183fe 313#undef PL_hintgv
acfe0abc 314#define PL_hintgv (*Perl_Ihintgv_ptr(aTHX))
6f4183fe 315#undef PL_hints
acfe0abc 316#define PL_hints (*Perl_Ihints_ptr(aTHX))
6f4183fe 317#undef PL_in_clean_all
acfe0abc 318#define PL_in_clean_all (*Perl_Iin_clean_all_ptr(aTHX))
6f4183fe 319#undef PL_in_clean_objs
acfe0abc 320#define PL_in_clean_objs (*Perl_Iin_clean_objs_ptr(aTHX))
d7a09b41
SR
321#undef PL_in_load_module
322#define PL_in_load_module (*Perl_Iin_load_module_ptr(aTHX))
6f4183fe 323#undef PL_in_my
acfe0abc 324#define PL_in_my (*Perl_Iin_my_ptr(aTHX))
6f4183fe 325#undef PL_in_my_stash
acfe0abc 326#define PL_in_my_stash (*Perl_Iin_my_stash_ptr(aTHX))
6f4183fe 327#undef PL_incgv
acfe0abc 328#define PL_incgv (*Perl_Iincgv_ptr(aTHX))
6f4183fe 329#undef PL_initav
acfe0abc 330#define PL_initav (*Perl_Iinitav_ptr(aTHX))
6f4183fe 331#undef PL_inplace
acfe0abc 332#define PL_inplace (*Perl_Iinplace_ptr(aTHX))
3a1ee7e8
NIS
333#undef PL_known_layers
334#define PL_known_layers (*Perl_Iknown_layers_ptr(aTHX))
6f4183fe 335#undef PL_last_lop
acfe0abc 336#define PL_last_lop (*Perl_Ilast_lop_ptr(aTHX))
6f4183fe 337#undef PL_last_lop_op
acfe0abc 338#define PL_last_lop_op (*Perl_Ilast_lop_op_ptr(aTHX))
6f4183fe 339#undef PL_last_swash_hv
acfe0abc 340#define PL_last_swash_hv (*Perl_Ilast_swash_hv_ptr(aTHX))
6f4183fe 341#undef PL_last_swash_key
acfe0abc 342#define PL_last_swash_key (*Perl_Ilast_swash_key_ptr(aTHX))
6f4183fe 343#undef PL_last_swash_klen
acfe0abc 344#define PL_last_swash_klen (*Perl_Ilast_swash_klen_ptr(aTHX))
6f4183fe 345#undef PL_last_swash_slen
acfe0abc 346#define PL_last_swash_slen (*Perl_Ilast_swash_slen_ptr(aTHX))
6f4183fe 347#undef PL_last_swash_tmps
acfe0abc 348#define PL_last_swash_tmps (*Perl_Ilast_swash_tmps_ptr(aTHX))
6f4183fe 349#undef PL_last_uni
acfe0abc 350#define PL_last_uni (*Perl_Ilast_uni_ptr(aTHX))
6f4183fe 351#undef PL_lastfd
acfe0abc 352#define PL_lastfd (*Perl_Ilastfd_ptr(aTHX))
6f4183fe 353#undef PL_laststatval
acfe0abc 354#define PL_laststatval (*Perl_Ilaststatval_ptr(aTHX))
6f4183fe 355#undef PL_laststype
acfe0abc 356#define PL_laststype (*Perl_Ilaststype_ptr(aTHX))
6f4183fe 357#undef PL_lex_brackets
acfe0abc 358#define PL_lex_brackets (*Perl_Ilex_brackets_ptr(aTHX))
6f4183fe 359#undef PL_lex_brackstack
acfe0abc 360#define PL_lex_brackstack (*Perl_Ilex_brackstack_ptr(aTHX))
6f4183fe 361#undef PL_lex_casemods
acfe0abc 362#define PL_lex_casemods (*Perl_Ilex_casemods_ptr(aTHX))
6f4183fe 363#undef PL_lex_casestack
acfe0abc 364#define PL_lex_casestack (*Perl_Ilex_casestack_ptr(aTHX))
6f4183fe 365#undef PL_lex_defer
acfe0abc 366#define PL_lex_defer (*Perl_Ilex_defer_ptr(aTHX))
6f4183fe 367#undef PL_lex_dojoin
acfe0abc 368#define PL_lex_dojoin (*Perl_Ilex_dojoin_ptr(aTHX))
6f4183fe 369#undef PL_lex_expect
acfe0abc 370#define PL_lex_expect (*Perl_Ilex_expect_ptr(aTHX))
6f4183fe 371#undef PL_lex_formbrack
acfe0abc 372#define PL_lex_formbrack (*Perl_Ilex_formbrack_ptr(aTHX))
6f4183fe 373#undef PL_lex_inpat
acfe0abc 374#define PL_lex_inpat (*Perl_Ilex_inpat_ptr(aTHX))
6f4183fe 375#undef PL_lex_inwhat
acfe0abc 376#define PL_lex_inwhat (*Perl_Ilex_inwhat_ptr(aTHX))
6f4183fe 377#undef PL_lex_op
acfe0abc 378#define PL_lex_op (*Perl_Ilex_op_ptr(aTHX))
6f4183fe 379#undef PL_lex_repl
acfe0abc 380#define PL_lex_repl (*Perl_Ilex_repl_ptr(aTHX))
6f4183fe 381#undef PL_lex_starts
acfe0abc 382#define PL_lex_starts (*Perl_Ilex_starts_ptr(aTHX))
6f4183fe 383#undef PL_lex_state
acfe0abc 384#define PL_lex_state (*Perl_Ilex_state_ptr(aTHX))
6f4183fe 385#undef PL_lex_stuff
acfe0abc 386#define PL_lex_stuff (*Perl_Ilex_stuff_ptr(aTHX))
6f4183fe 387#undef PL_lineary
acfe0abc 388#define PL_lineary (*Perl_Ilineary_ptr(aTHX))
6f4183fe 389#undef PL_linestart
acfe0abc 390#define PL_linestart (*Perl_Ilinestart_ptr(aTHX))
6f4183fe 391#undef PL_linestr
acfe0abc 392#define PL_linestr (*Perl_Ilinestr_ptr(aTHX))
6f4183fe 393#undef PL_localpatches
acfe0abc 394#define PL_localpatches (*Perl_Ilocalpatches_ptr(aTHX))
15a5279a
JH
395#undef PL_lockhook
396#define PL_lockhook (*Perl_Ilockhook_ptr(aTHX))
6f4183fe 397#undef PL_main_cv
acfe0abc 398#define PL_main_cv (*Perl_Imain_cv_ptr(aTHX))
6f4183fe 399#undef PL_main_root
acfe0abc 400#define PL_main_root (*Perl_Imain_root_ptr(aTHX))
6f4183fe 401#undef PL_main_start
acfe0abc 402#define PL_main_start (*Perl_Imain_start_ptr(aTHX))
6f4183fe 403#undef PL_max_intro_pending
acfe0abc 404#define PL_max_intro_pending (*Perl_Imax_intro_pending_ptr(aTHX))
6f4183fe 405#undef PL_maxo
acfe0abc 406#define PL_maxo (*Perl_Imaxo_ptr(aTHX))
6f4183fe 407#undef PL_maxsysfd
acfe0abc 408#define PL_maxsysfd (*Perl_Imaxsysfd_ptr(aTHX))
6f4183fe 409#undef PL_mess_sv
acfe0abc 410#define PL_mess_sv (*Perl_Imess_sv_ptr(aTHX))
6f4183fe 411#undef PL_min_intro_pending
acfe0abc 412#define PL_min_intro_pending (*Perl_Imin_intro_pending_ptr(aTHX))
6f4183fe 413#undef PL_minus_F
acfe0abc 414#define PL_minus_F (*Perl_Iminus_F_ptr(aTHX))
6f4183fe 415#undef PL_minus_a
acfe0abc 416#define PL_minus_a (*Perl_Iminus_a_ptr(aTHX))
6f4183fe 417#undef PL_minus_c
acfe0abc 418#define PL_minus_c (*Perl_Iminus_c_ptr(aTHX))
6f4183fe 419#undef PL_minus_l
acfe0abc 420#define PL_minus_l (*Perl_Iminus_l_ptr(aTHX))
6f4183fe 421#undef PL_minus_n
acfe0abc 422#define PL_minus_n (*Perl_Iminus_n_ptr(aTHX))
6f4183fe 423#undef PL_minus_p
acfe0abc 424#define PL_minus_p (*Perl_Iminus_p_ptr(aTHX))
6f4183fe 425#undef PL_modglobal
acfe0abc 426#define PL_modglobal (*Perl_Imodglobal_ptr(aTHX))
6f4183fe 427#undef PL_multi_close
acfe0abc 428#define PL_multi_close (*Perl_Imulti_close_ptr(aTHX))
6f4183fe 429#undef PL_multi_end
acfe0abc 430#define PL_multi_end (*Perl_Imulti_end_ptr(aTHX))
6f4183fe 431#undef PL_multi_open
acfe0abc 432#define PL_multi_open (*Perl_Imulti_open_ptr(aTHX))
6f4183fe 433#undef PL_multi_start
acfe0abc 434#define PL_multi_start (*Perl_Imulti_start_ptr(aTHX))
6f4183fe 435#undef PL_multiline
acfe0abc 436#define PL_multiline (*Perl_Imultiline_ptr(aTHX))
6f4183fe 437#undef PL_nexttoke
acfe0abc 438#define PL_nexttoke (*Perl_Inexttoke_ptr(aTHX))
6f4183fe 439#undef PL_nexttype
acfe0abc 440#define PL_nexttype (*Perl_Inexttype_ptr(aTHX))
6f4183fe 441#undef PL_nextval
acfe0abc 442#define PL_nextval (*Perl_Inextval_ptr(aTHX))
6f4183fe 443#undef PL_nice_chunk
acfe0abc 444#define PL_nice_chunk (*Perl_Inice_chunk_ptr(aTHX))
6f4183fe 445#undef PL_nice_chunk_size
acfe0abc 446#define PL_nice_chunk_size (*Perl_Inice_chunk_size_ptr(aTHX))
6f4183fe 447#undef PL_nomemok
acfe0abc 448#define PL_nomemok (*Perl_Inomemok_ptr(aTHX))
a453c169 449#undef PL_numeric_compat1
acfe0abc 450#define PL_numeric_compat1 (*Perl_Inumeric_compat1_ptr(aTHX))
6f4183fe 451#undef PL_numeric_local
acfe0abc 452#define PL_numeric_local (*Perl_Inumeric_local_ptr(aTHX))
6f4183fe 453#undef PL_numeric_name
acfe0abc 454#define PL_numeric_name (*Perl_Inumeric_name_ptr(aTHX))
a453c169 455#undef PL_numeric_radix_sv
acfe0abc 456#define PL_numeric_radix_sv (*Perl_Inumeric_radix_sv_ptr(aTHX))
6f4183fe 457#undef PL_numeric_standard
acfe0abc 458#define PL_numeric_standard (*Perl_Inumeric_standard_ptr(aTHX))
6f4183fe 459#undef PL_ofmt
acfe0abc 460#define PL_ofmt (*Perl_Iofmt_ptr(aTHX))
6f4183fe 461#undef PL_oldbufptr
acfe0abc 462#define PL_oldbufptr (*Perl_Ioldbufptr_ptr(aTHX))
6f4183fe 463#undef PL_oldname
acfe0abc 464#define PL_oldname (*Perl_Ioldname_ptr(aTHX))
6f4183fe 465#undef PL_oldoldbufptr
acfe0abc 466#define PL_oldoldbufptr (*Perl_Ioldoldbufptr_ptr(aTHX))
6f4183fe 467#undef PL_op_mask
acfe0abc 468#define PL_op_mask (*Perl_Iop_mask_ptr(aTHX))
6f4183fe 469#undef PL_origalen
acfe0abc 470#define PL_origalen (*Perl_Iorigalen_ptr(aTHX))
6f4183fe 471#undef PL_origargc
acfe0abc 472#define PL_origargc (*Perl_Iorigargc_ptr(aTHX))
6f4183fe 473#undef PL_origargv
acfe0abc 474#define PL_origargv (*Perl_Iorigargv_ptr(aTHX))
6f4183fe 475#undef PL_origenviron
acfe0abc 476#define PL_origenviron (*Perl_Iorigenviron_ptr(aTHX))
6f4183fe 477#undef PL_origfilename
acfe0abc 478#define PL_origfilename (*Perl_Iorigfilename_ptr(aTHX))
7889fe52 479#undef PL_ors_sv
acfe0abc 480#define PL_ors_sv (*Perl_Iors_sv_ptr(aTHX))
6f4183fe 481#undef PL_osname
acfe0abc 482#define PL_osname (*Perl_Iosname_ptr(aTHX))
6f4183fe 483#undef PL_pad_reset_pending
acfe0abc 484#define PL_pad_reset_pending (*Perl_Ipad_reset_pending_ptr(aTHX))
6f4183fe 485#undef PL_padix
acfe0abc 486#define PL_padix (*Perl_Ipadix_ptr(aTHX))
6f4183fe 487#undef PL_padix_floor
acfe0abc 488#define PL_padix_floor (*Perl_Ipadix_floor_ptr(aTHX))
6f4183fe 489#undef PL_patchlevel
acfe0abc 490#define PL_patchlevel (*Perl_Ipatchlevel_ptr(aTHX))
6f4183fe 491#undef PL_pending_ident
acfe0abc 492#define PL_pending_ident (*Perl_Ipending_ident_ptr(aTHX))
6f4183fe 493#undef PL_perl_destruct_level
acfe0abc 494#define PL_perl_destruct_level (*Perl_Iperl_destruct_level_ptr(aTHX))
6f4183fe 495#undef PL_perldb
acfe0abc 496#define PL_perldb (*Perl_Iperldb_ptr(aTHX))
a1ea730d
NIS
497#undef PL_perlio
498#define PL_perlio (*Perl_Iperlio_ptr(aTHX))
6f4183fe 499#undef PL_pidstatus
acfe0abc 500#define PL_pidstatus (*Perl_Ipidstatus_ptr(aTHX))
bce260cd
JH
501#undef PL_ppid
502#define PL_ppid (*Perl_Ippid_ptr(aTHX))
6f4183fe 503#undef PL_preambleav
acfe0abc 504#define PL_preambleav (*Perl_Ipreambleav_ptr(aTHX))
6f4183fe 505#undef PL_preambled
acfe0abc 506#define PL_preambled (*Perl_Ipreambled_ptr(aTHX))
6f4183fe 507#undef PL_preprocess
acfe0abc 508#define PL_preprocess (*Perl_Ipreprocess_ptr(aTHX))
6f4183fe 509#undef PL_profiledata
acfe0abc 510#define PL_profiledata (*Perl_Iprofiledata_ptr(aTHX))
6f4183fe 511#undef PL_psig_name
acfe0abc 512#define PL_psig_name (*Perl_Ipsig_name_ptr(aTHX))
ce08f86c 513#undef PL_psig_pend
acfe0abc 514#define PL_psig_pend (*Perl_Ipsig_pend_ptr(aTHX))
6f4183fe 515#undef PL_psig_ptr
acfe0abc 516#define PL_psig_ptr (*Perl_Ipsig_ptr_ptr(aTHX))
32e691d0
NC
517#undef PL_pte_arenaroot
518#define PL_pte_arenaroot (*Perl_Ipte_arenaroot_ptr(aTHX))
519#undef PL_pte_root
520#define PL_pte_root (*Perl_Ipte_root_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))
1fcf4c12 527#undef PL_regex_pad
acfe0abc 528#define PL_regex_pad (*Perl_Iregex_pad_ptr(aTHX))
1fcf4c12 529#undef PL_regex_padav
acfe0abc 530#define PL_regex_padav (*Perl_Iregex_padav_ptr(aTHX))
008fb0c0
NC
531#undef PL_rehash_seed
532#define PL_rehash_seed (*Perl_Irehash_seed_ptr(aTHX))
533#undef PL_rehash_seed_set
534#define PL_rehash_seed_set (*Perl_Irehash_seed_set_ptr(aTHX))
6f4183fe 535#undef PL_replgv
acfe0abc 536#define PL_replgv (*Perl_Ireplgv_ptr(aTHX))
6f4183fe 537#undef PL_rsfp
acfe0abc 538#define PL_rsfp (*Perl_Irsfp_ptr(aTHX))
6f4183fe 539#undef PL_rsfp_filters
acfe0abc 540#define PL_rsfp_filters (*Perl_Irsfp_filters_ptr(aTHX))
6f4183fe 541#undef PL_runops
acfe0abc 542#define PL_runops (*Perl_Irunops_ptr(aTHX))
bce260cd
JH
543#undef PL_runops_dbg
544#define PL_runops_dbg (*Perl_Irunops_dbg_ptr(aTHX))
545#undef PL_runops_std
546#define PL_runops_std (*Perl_Irunops_std_ptr(aTHX))
aefff11f 547#undef PL_savebegin
acfe0abc 548#define PL_savebegin (*Perl_Isavebegin_ptr(aTHX))
6f4183fe 549#undef PL_sawampersand
acfe0abc 550#define PL_sawampersand (*Perl_Isawampersand_ptr(aTHX))
5c728af0
IZ
551#undef PL_sh_path_compat
552#define PL_sh_path_compat (*Perl_Ish_path_compat_ptr(aTHX))
15a5279a
JH
553#undef PL_sharehook
554#define PL_sharehook (*Perl_Isharehook_ptr(aTHX))
ce08f86c 555#undef PL_sig_pending
acfe0abc 556#define PL_sig_pending (*Perl_Isig_pending_ptr(aTHX))
6f4183fe 557#undef PL_sighandlerp
acfe0abc 558#define PL_sighandlerp (*Perl_Isighandlerp_ptr(aTHX))
bd5cf849
HS
559#undef PL_signals
560#define PL_signals (*Perl_Isignals_ptr(aTHX))
8ba4b24b
JH
561#undef PL_sort_RealCmp
562#define PL_sort_RealCmp (*Perl_Isort_RealCmp_ptr(aTHX))
6f4183fe 563#undef PL_splitstr
acfe0abc 564#define PL_splitstr (*Perl_Isplitstr_ptr(aTHX))
6f4183fe 565#undef PL_srand_called
acfe0abc 566#define PL_srand_called (*Perl_Isrand_called_ptr(aTHX))
081fc587
AB
567#undef PL_stashcache
568#define PL_stashcache (*Perl_Istashcache_ptr(aTHX))
6f4183fe 569#undef PL_statusvalue
acfe0abc 570#define PL_statusvalue (*Perl_Istatusvalue_ptr(aTHX))
e5218da5
GA
571#undef PL_statusvalue_posix
572#define PL_statusvalue_posix (*Perl_Istatusvalue_posix_ptr(aTHX))
6f4183fe 573#undef PL_statusvalue_vms
acfe0abc 574#define PL_statusvalue_vms (*Perl_Istatusvalue_vms_ptr(aTHX))
6f4183fe 575#undef PL_stderrgv
acfe0abc 576#define PL_stderrgv (*Perl_Istderrgv_ptr(aTHX))
6f4183fe 577#undef PL_stdingv
acfe0abc 578#define PL_stdingv (*Perl_Istdingv_ptr(aTHX))
6f4183fe 579#undef PL_strtab
acfe0abc 580#define PL_strtab (*Perl_Istrtab_ptr(aTHX))
6f4183fe 581#undef PL_sub_generation
acfe0abc 582#define PL_sub_generation (*Perl_Isub_generation_ptr(aTHX))
6f4183fe 583#undef PL_sublex_info
acfe0abc 584#define PL_sublex_info (*Perl_Isublex_info_ptr(aTHX))
6f4183fe 585#undef PL_subline
acfe0abc 586#define PL_subline (*Perl_Isubline_ptr(aTHX))
6f4183fe 587#undef PL_subname
acfe0abc 588#define PL_subname (*Perl_Isubname_ptr(aTHX))
ae3f3efd
PS
589#undef PL_suidscript
590#define PL_suidscript (*Perl_Isuidscript_ptr(aTHX))
6f4183fe 591#undef PL_sv_arenaroot
acfe0abc 592#define PL_sv_arenaroot (*Perl_Isv_arenaroot_ptr(aTHX))
6f4183fe 593#undef PL_sv_count
acfe0abc 594#define PL_sv_count (*Perl_Isv_count_ptr(aTHX))
6f4183fe 595#undef PL_sv_no
acfe0abc 596#define PL_sv_no (*Perl_Isv_no_ptr(aTHX))
6f4183fe 597#undef PL_sv_objcount
acfe0abc 598#define PL_sv_objcount (*Perl_Isv_objcount_ptr(aTHX))
6f4183fe 599#undef PL_sv_root
acfe0abc 600#define PL_sv_root (*Perl_Isv_root_ptr(aTHX))
6f4183fe 601#undef PL_sv_undef
acfe0abc 602#define PL_sv_undef (*Perl_Isv_undef_ptr(aTHX))
6f4183fe 603#undef PL_sv_yes
acfe0abc 604#define PL_sv_yes (*Perl_Isv_yes_ptr(aTHX))
6f4183fe 605#undef PL_sys_intern
acfe0abc 606#define PL_sys_intern (*Perl_Isys_intern_ptr(aTHX))
6537fe72
MS
607#undef PL_taint_warn
608#define PL_taint_warn (*Perl_Itaint_warn_ptr(aTHX))
6f4183fe 609#undef PL_tainting
acfe0abc 610#define PL_tainting (*Perl_Itainting_ptr(aTHX))
15a5279a
JH
611#undef PL_threadhook
612#define PL_threadhook (*Perl_Ithreadhook_ptr(aTHX))
6f4183fe 613#undef PL_tokenbuf
acfe0abc 614#define PL_tokenbuf (*Perl_Itokenbuf_ptr(aTHX))
6f4183fe 615#undef PL_uid
acfe0abc 616#define PL_uid (*Perl_Iuid_ptr(aTHX))
a05d7ebb
JH
617#undef PL_unicode
618#define PL_unicode (*Perl_Iunicode_ptr(aTHX))
15a5279a
JH
619#undef PL_unlockhook
620#define PL_unlockhook (*Perl_Iunlockhook_ptr(aTHX))
6f4183fe 621#undef PL_unsafe
acfe0abc 622#define PL_unsafe (*Perl_Iunsafe_ptr(aTHX))
6f4183fe 623#undef PL_utf8_alnum
acfe0abc 624#define PL_utf8_alnum (*Perl_Iutf8_alnum_ptr(aTHX))
6f4183fe 625#undef PL_utf8_alnumc
acfe0abc 626#define PL_utf8_alnumc (*Perl_Iutf8_alnumc_ptr(aTHX))
6f4183fe 627#undef PL_utf8_alpha
acfe0abc 628#define PL_utf8_alpha (*Perl_Iutf8_alpha_ptr(aTHX))
6f4183fe 629#undef PL_utf8_ascii
acfe0abc 630#define PL_utf8_ascii (*Perl_Iutf8_ascii_ptr(aTHX))
6f4183fe 631#undef PL_utf8_cntrl
acfe0abc 632#define PL_utf8_cntrl (*Perl_Iutf8_cntrl_ptr(aTHX))
6f4183fe 633#undef PL_utf8_digit
acfe0abc 634#define PL_utf8_digit (*Perl_Iutf8_digit_ptr(aTHX))
6f4183fe 635#undef PL_utf8_graph
acfe0abc 636#define PL_utf8_graph (*Perl_Iutf8_graph_ptr(aTHX))
82686b01
JH
637#undef PL_utf8_idcont
638#define PL_utf8_idcont (*Perl_Iutf8_idcont_ptr(aTHX))
639#undef PL_utf8_idstart
640#define PL_utf8_idstart (*Perl_Iutf8_idstart_ptr(aTHX))
6f4183fe 641#undef PL_utf8_lower
acfe0abc 642#define PL_utf8_lower (*Perl_Iutf8_lower_ptr(aTHX))
6f4183fe 643#undef PL_utf8_mark
acfe0abc 644#define PL_utf8_mark (*Perl_Iutf8_mark_ptr(aTHX))
6f4183fe 645#undef PL_utf8_print
acfe0abc 646#define PL_utf8_print (*Perl_Iutf8_print_ptr(aTHX))
6f4183fe 647#undef PL_utf8_punct
acfe0abc 648#define PL_utf8_punct (*Perl_Iutf8_punct_ptr(aTHX))
6f4183fe 649#undef PL_utf8_space
acfe0abc 650#define PL_utf8_space (*Perl_Iutf8_space_ptr(aTHX))
b4e400f9
JH
651#undef PL_utf8_tofold
652#define PL_utf8_tofold (*Perl_Iutf8_tofold_ptr(aTHX))
6f4183fe 653#undef PL_utf8_tolower
acfe0abc 654#define PL_utf8_tolower (*Perl_Iutf8_tolower_ptr(aTHX))
6f4183fe 655#undef PL_utf8_totitle
acfe0abc 656#define PL_utf8_totitle (*Perl_Iutf8_totitle_ptr(aTHX))
6f4183fe 657#undef PL_utf8_toupper
acfe0abc 658#define PL_utf8_toupper (*Perl_Iutf8_toupper_ptr(aTHX))
6f4183fe 659#undef PL_utf8_upper
acfe0abc 660#define PL_utf8_upper (*Perl_Iutf8_upper_ptr(aTHX))
6f4183fe 661#undef PL_utf8_xdigit
acfe0abc 662#define PL_utf8_xdigit (*Perl_Iutf8_xdigit_ptr(aTHX))
fde18df1
JH
663#undef PL_utf8locale
664#define PL_utf8locale (*Perl_Iutf8locale_ptr(aTHX))
6f4183fe 665#undef PL_uudmap
acfe0abc 666#define PL_uudmap (*Perl_Iuudmap_ptr(aTHX))
6f4183fe 667#undef PL_warnhook
acfe0abc 668#define PL_warnhook (*Perl_Iwarnhook_ptr(aTHX))
a05d7ebb
JH
669#undef PL_widesyscalls
670#define PL_widesyscalls (*Perl_Iwidesyscalls_ptr(aTHX))
612f20c3 671#undef PL_xnv_arenaroot
acfe0abc 672#define PL_xnv_arenaroot (*Perl_Ixnv_arenaroot_ptr(aTHX))
6f4183fe 673#undef PL_xnv_root
acfe0abc 674#define PL_xnv_root (*Perl_Ixnv_root_ptr(aTHX))
612f20c3 675#undef PL_xpv_arenaroot
acfe0abc 676#define PL_xpv_arenaroot (*Perl_Ixpv_arenaroot_ptr(aTHX))
6f4183fe 677#undef PL_xpv_root
acfe0abc 678#define PL_xpv_root (*Perl_Ixpv_root_ptr(aTHX))
612f20c3 679#undef PL_xpvav_arenaroot
acfe0abc 680#define PL_xpvav_arenaroot (*Perl_Ixpvav_arenaroot_ptr(aTHX))
6f4183fe 681#undef PL_xpvav_root
acfe0abc 682#define PL_xpvav_root (*Perl_Ixpvav_root_ptr(aTHX))
612f20c3 683#undef PL_xpvbm_arenaroot
acfe0abc 684#define PL_xpvbm_arenaroot (*Perl_Ixpvbm_arenaroot_ptr(aTHX))
6f4183fe 685#undef PL_xpvbm_root
acfe0abc 686#define PL_xpvbm_root (*Perl_Ixpvbm_root_ptr(aTHX))
612f20c3 687#undef PL_xpvcv_arenaroot
acfe0abc 688#define PL_xpvcv_arenaroot (*Perl_Ixpvcv_arenaroot_ptr(aTHX))
6f4183fe 689#undef PL_xpvcv_root
acfe0abc 690#define PL_xpvcv_root (*Perl_Ixpvcv_root_ptr(aTHX))
727879eb
NC
691#undef PL_xpvgv_arenaroot
692#define PL_xpvgv_arenaroot (*Perl_Ixpvgv_arenaroot_ptr(aTHX))
693#undef PL_xpvgv_root
694#define PL_xpvgv_root (*Perl_Ixpvgv_root_ptr(aTHX))
612f20c3 695#undef PL_xpvhv_arenaroot
acfe0abc 696#define PL_xpvhv_arenaroot (*Perl_Ixpvhv_arenaroot_ptr(aTHX))
6f4183fe 697#undef PL_xpvhv_root
acfe0abc 698#define PL_xpvhv_root (*Perl_Ixpvhv_root_ptr(aTHX))
612f20c3 699#undef PL_xpviv_arenaroot
acfe0abc 700#define PL_xpviv_arenaroot (*Perl_Ixpviv_arenaroot_ptr(aTHX))
6f4183fe 701#undef PL_xpviv_root
acfe0abc 702#define PL_xpviv_root (*Perl_Ixpviv_root_ptr(aTHX))
612f20c3 703#undef PL_xpvlv_arenaroot
acfe0abc 704#define PL_xpvlv_arenaroot (*Perl_Ixpvlv_arenaroot_ptr(aTHX))
6f4183fe 705#undef PL_xpvlv_root
acfe0abc 706#define PL_xpvlv_root (*Perl_Ixpvlv_root_ptr(aTHX))
612f20c3 707#undef PL_xpvmg_arenaroot
acfe0abc 708#define PL_xpvmg_arenaroot (*Perl_Ixpvmg_arenaroot_ptr(aTHX))
6f4183fe 709#undef PL_xpvmg_root
acfe0abc 710#define PL_xpvmg_root (*Perl_Ixpvmg_root_ptr(aTHX))
612f20c3 711#undef PL_xpvnv_arenaroot
acfe0abc 712#define PL_xpvnv_arenaroot (*Perl_Ixpvnv_arenaroot_ptr(aTHX))
6f4183fe 713#undef PL_xpvnv_root
acfe0abc 714#define PL_xpvnv_root (*Perl_Ixpvnv_root_ptr(aTHX))
12fbd33b
DM
715#undef PL_yycharp
716#define PL_yycharp (*Perl_Iyycharp_ptr(aTHX))
717#undef PL_yylvalp
718#define PL_yylvalp (*Perl_Iyylvalp_ptr(aTHX))
6f4183fe 719#undef PL_Sv
acfe0abc 720#define PL_Sv (*Perl_TSv_ptr(aTHX))
6f4183fe 721#undef PL_Xpv
acfe0abc 722#define PL_Xpv (*Perl_TXpv_ptr(aTHX))
195c09c3
JH
723#undef PL_av_fetch_sv
724#define PL_av_fetch_sv (*Perl_Tav_fetch_sv_ptr(aTHX))
6f4183fe 725#undef PL_bodytarget
acfe0abc 726#define PL_bodytarget (*Perl_Tbodytarget_ptr(aTHX))
6f4183fe 727#undef PL_bostr
acfe0abc 728#define PL_bostr (*Perl_Tbostr_ptr(aTHX))
6f4183fe 729#undef PL_chopset
acfe0abc 730#define PL_chopset (*Perl_Tchopset_ptr(aTHX))
6f4183fe 731#undef PL_colors
acfe0abc 732#define PL_colors (*Perl_Tcolors_ptr(aTHX))
6f4183fe 733#undef PL_colorset
acfe0abc 734#define PL_colorset (*Perl_Tcolorset_ptr(aTHX))
6f4183fe 735#undef PL_curcop
acfe0abc 736#define PL_curcop (*Perl_Tcurcop_ptr(aTHX))
6f4183fe 737#undef PL_curpad
acfe0abc 738#define PL_curpad (*Perl_Tcurpad_ptr(aTHX))
6f4183fe 739#undef PL_curpm
acfe0abc 740#define PL_curpm (*Perl_Tcurpm_ptr(aTHX))
6f4183fe 741#undef PL_curstack
acfe0abc 742#define PL_curstack (*Perl_Tcurstack_ptr(aTHX))
6f4183fe 743#undef PL_curstackinfo
acfe0abc 744#define PL_curstackinfo (*Perl_Tcurstackinfo_ptr(aTHX))
6f4183fe 745#undef PL_curstash
acfe0abc 746#define PL_curstash (*Perl_Tcurstash_ptr(aTHX))
6f4183fe 747#undef PL_defoutgv
acfe0abc 748#define PL_defoutgv (*Perl_Tdefoutgv_ptr(aTHX))
6f4183fe 749#undef PL_defstash
acfe0abc 750#define PL_defstash (*Perl_Tdefstash_ptr(aTHX))
6f4183fe 751#undef PL_delaymagic
acfe0abc 752#define PL_delaymagic (*Perl_Tdelaymagic_ptr(aTHX))
6f4183fe 753#undef PL_dirty
acfe0abc 754#define PL_dirty (*Perl_Tdirty_ptr(aTHX))
6f4183fe 755#undef PL_dumpindent
acfe0abc 756#define PL_dumpindent (*Perl_Tdumpindent_ptr(aTHX))
6f4183fe 757#undef PL_efloatbuf
acfe0abc 758#define PL_efloatbuf (*Perl_Tefloatbuf_ptr(aTHX))
6f4183fe 759#undef PL_efloatsize
acfe0abc 760#define PL_efloatsize (*Perl_Tefloatsize_ptr(aTHX))
6f4183fe 761#undef PL_errors
acfe0abc 762#define PL_errors (*Perl_Terrors_ptr(aTHX))
6f4183fe 763#undef PL_firstgv
acfe0abc 764#define PL_firstgv (*Perl_Tfirstgv_ptr(aTHX))
6f4183fe 765#undef PL_formtarget
acfe0abc 766#define PL_formtarget (*Perl_Tformtarget_ptr(aTHX))
6f4183fe 767#undef PL_hv_fetch_ent_mh
acfe0abc 768#define PL_hv_fetch_ent_mh (*Perl_Thv_fetch_ent_mh_ptr(aTHX))
195c09c3
JH
769#undef PL_hv_fetch_sv
770#define PL_hv_fetch_sv (*Perl_Thv_fetch_sv_ptr(aTHX))
6f4183fe 771#undef PL_in_eval
acfe0abc 772#define PL_in_eval (*Perl_Tin_eval_ptr(aTHX))
6f4183fe 773#undef PL_last_in_gv
acfe0abc 774#define PL_last_in_gv (*Perl_Tlast_in_gv_ptr(aTHX))
6f4183fe 775#undef PL_lastgotoprobe
acfe0abc 776#define PL_lastgotoprobe (*Perl_Tlastgotoprobe_ptr(aTHX))
6f4183fe 777#undef PL_lastscream
acfe0abc 778#define PL_lastscream (*Perl_Tlastscream_ptr(aTHX))
6f4183fe 779#undef PL_localizing
acfe0abc 780#define PL_localizing (*Perl_Tlocalizing_ptr(aTHX))
6f4183fe 781#undef PL_mainstack
acfe0abc 782#define PL_mainstack (*Perl_Tmainstack_ptr(aTHX))
6f4183fe 783#undef PL_markstack
acfe0abc 784#define PL_markstack (*Perl_Tmarkstack_ptr(aTHX))
6f4183fe 785#undef PL_markstack_max
acfe0abc 786#define PL_markstack_max (*Perl_Tmarkstack_max_ptr(aTHX))
6f4183fe 787#undef PL_markstack_ptr
acfe0abc 788#define PL_markstack_ptr (*Perl_Tmarkstack_ptr_ptr(aTHX))
6f4183fe 789#undef PL_maxscream
acfe0abc 790#define PL_maxscream (*Perl_Tmaxscream_ptr(aTHX))
6f4183fe 791#undef PL_modcount
acfe0abc 792#define PL_modcount (*Perl_Tmodcount_ptr(aTHX))
6f4183fe 793#undef PL_na
acfe0abc 794#define PL_na (*Perl_Tna_ptr(aTHX))
c798bd21
NIS
795#undef PL_nrs
796#define PL_nrs (*Perl_Tnrs_ptr(aTHX))
7889fe52 797#undef PL_ofs_sv
acfe0abc 798#define PL_ofs_sv (*Perl_Tofs_sv_ptr(aTHX))
6f4183fe 799#undef PL_op
acfe0abc 800#define PL_op (*Perl_Top_ptr(aTHX))
6f4183fe 801#undef PL_opsave
acfe0abc 802#define PL_opsave (*Perl_Topsave_ptr(aTHX))
a2efc822 803#undef PL_peepp
acfe0abc 804#define PL_peepp (*Perl_Tpeepp_ptr(aTHX))
6f4183fe 805#undef PL_reg_call_cc
acfe0abc 806#define PL_reg_call_cc (*Perl_Treg_call_cc_ptr(aTHX))
6f4183fe 807#undef PL_reg_curpm
acfe0abc 808#define PL_reg_curpm (*Perl_Treg_curpm_ptr(aTHX))
6f4183fe 809#undef PL_reg_eval_set
acfe0abc 810#define PL_reg_eval_set (*Perl_Treg_eval_set_ptr(aTHX))
6f4183fe 811#undef PL_reg_flags
acfe0abc 812#define PL_reg_flags (*Perl_Treg_flags_ptr(aTHX))
6f4183fe 813#undef PL_reg_ganch
acfe0abc 814#define PL_reg_ganch (*Perl_Treg_ganch_ptr(aTHX))
6f4183fe 815#undef PL_reg_leftiter
acfe0abc 816#define PL_reg_leftiter (*Perl_Treg_leftiter_ptr(aTHX))
6f4183fe 817#undef PL_reg_magic
acfe0abc 818#define PL_reg_magic (*Perl_Treg_magic_ptr(aTHX))
53c4c00c
JH
819#undef PL_reg_match_utf8
820#define PL_reg_match_utf8 (*Perl_Treg_match_utf8_ptr(aTHX))
6f4183fe 821#undef PL_reg_maxiter
acfe0abc 822#define PL_reg_maxiter (*Perl_Treg_maxiter_ptr(aTHX))
6f4183fe 823#undef PL_reg_oldcurpm
acfe0abc 824#define PL_reg_oldcurpm (*Perl_Treg_oldcurpm_ptr(aTHX))
6f4183fe 825#undef PL_reg_oldpos
acfe0abc 826#define PL_reg_oldpos (*Perl_Treg_oldpos_ptr(aTHX))
6f4183fe 827#undef PL_reg_oldsaved
acfe0abc 828#define PL_reg_oldsaved (*Perl_Treg_oldsaved_ptr(aTHX))
6f4183fe 829#undef PL_reg_oldsavedlen
acfe0abc 830#define PL_reg_oldsavedlen (*Perl_Treg_oldsavedlen_ptr(aTHX))
6f4183fe 831#undef PL_reg_poscache
acfe0abc 832#define PL_reg_poscache (*Perl_Treg_poscache_ptr(aTHX))
6f4183fe 833#undef PL_reg_poscache_size
acfe0abc 834#define PL_reg_poscache_size (*Perl_Treg_poscache_size_ptr(aTHX))
6f4183fe 835#undef PL_reg_re
acfe0abc 836#define PL_reg_re (*Perl_Treg_re_ptr(aTHX))
6f4183fe 837#undef PL_reg_start_tmp
acfe0abc 838#define PL_reg_start_tmp (*Perl_Treg_start_tmp_ptr(aTHX))
6f4183fe 839#undef PL_reg_start_tmpl
acfe0abc 840#define PL_reg_start_tmpl (*Perl_Treg_start_tmpl_ptr(aTHX))
6f4183fe 841#undef PL_reg_starttry
acfe0abc 842#define PL_reg_starttry (*Perl_Treg_starttry_ptr(aTHX))
6f4183fe 843#undef PL_reg_sv
acfe0abc 844#define PL_reg_sv (*Perl_Treg_sv_ptr(aTHX))
6f4183fe 845#undef PL_regbol
acfe0abc 846#define PL_regbol (*Perl_Tregbol_ptr(aTHX))
6f4183fe 847#undef PL_regcc
acfe0abc 848#define PL_regcc (*Perl_Tregcc_ptr(aTHX))
6f4183fe 849#undef PL_regcompp
acfe0abc 850#define PL_regcompp (*Perl_Tregcompp_ptr(aTHX))
6f4183fe 851#undef PL_regdata
acfe0abc 852#define PL_regdata (*Perl_Tregdata_ptr(aTHX))
6f4183fe 853#undef PL_regdummy
acfe0abc 854#define PL_regdummy (*Perl_Tregdummy_ptr(aTHX))
6f4183fe 855#undef PL_regendp
acfe0abc 856#define PL_regendp (*Perl_Tregendp_ptr(aTHX))
6f4183fe 857#undef PL_regeol
acfe0abc 858#define PL_regeol (*Perl_Tregeol_ptr(aTHX))
6f4183fe 859#undef PL_regexecp
acfe0abc 860#define PL_regexecp (*Perl_Tregexecp_ptr(aTHX))
6f4183fe 861#undef PL_regfree
acfe0abc 862#define PL_regfree (*Perl_Tregfree_ptr(aTHX))
6f4183fe 863#undef PL_regindent
acfe0abc 864#define PL_regindent (*Perl_Tregindent_ptr(aTHX))
6f4183fe 865#undef PL_reginput
acfe0abc 866#define PL_reginput (*Perl_Treginput_ptr(aTHX))
6f4183fe 867#undef PL_regint_start
acfe0abc 868#define PL_regint_start (*Perl_Tregint_start_ptr(aTHX))
6f4183fe 869#undef PL_regint_string
acfe0abc 870#define PL_regint_string (*Perl_Tregint_string_ptr(aTHX))
6f4183fe 871#undef PL_reginterp_cnt
acfe0abc 872#define PL_reginterp_cnt (*Perl_Treginterp_cnt_ptr(aTHX))
a01268b5 873#undef PL_reglastcloseparen
acfe0abc 874#define PL_reglastcloseparen (*Perl_Treglastcloseparen_ptr(aTHX))
6f4183fe 875#undef PL_reglastparen
acfe0abc 876#define PL_reglastparen (*Perl_Treglastparen_ptr(aTHX))
6f4183fe 877#undef PL_regnarrate
acfe0abc 878#define PL_regnarrate (*Perl_Tregnarrate_ptr(aTHX))
6f4183fe 879#undef PL_regnpar
acfe0abc 880#define PL_regnpar (*Perl_Tregnpar_ptr(aTHX))
6f4183fe 881#undef PL_regprecomp
acfe0abc 882#define PL_regprecomp (*Perl_Tregprecomp_ptr(aTHX))
6f4183fe 883#undef PL_regprogram
acfe0abc 884#define PL_regprogram (*Perl_Tregprogram_ptr(aTHX))
6f4183fe 885#undef PL_regsize
acfe0abc 886#define PL_regsize (*Perl_Tregsize_ptr(aTHX))
6f4183fe 887#undef PL_regstartp
acfe0abc 888#define PL_regstartp (*Perl_Tregstartp_ptr(aTHX))
6f4183fe 889#undef PL_regtill
acfe0abc 890#define PL_regtill (*Perl_Tregtill_ptr(aTHX))
6f4183fe 891#undef PL_restartop
acfe0abc 892#define PL_restartop (*Perl_Trestartop_ptr(aTHX))
6f4183fe 893#undef PL_rs
acfe0abc 894#define PL_rs (*Perl_Trs_ptr(aTHX))
6f4183fe 895#undef PL_savestack
acfe0abc 896#define PL_savestack (*Perl_Tsavestack_ptr(aTHX))
6f4183fe 897#undef PL_savestack_ix
acfe0abc 898#define PL_savestack_ix (*Perl_Tsavestack_ix_ptr(aTHX))
6f4183fe 899#undef PL_savestack_max
acfe0abc 900#define PL_savestack_max (*Perl_Tsavestack_max_ptr(aTHX))
6f4183fe 901#undef PL_scopestack
acfe0abc 902#define PL_scopestack (*Perl_Tscopestack_ptr(aTHX))
6f4183fe 903#undef PL_scopestack_ix
acfe0abc 904#define PL_scopestack_ix (*Perl_Tscopestack_ix_ptr(aTHX))
6f4183fe 905#undef PL_scopestack_max
acfe0abc 906#define PL_scopestack_max (*Perl_Tscopestack_max_ptr(aTHX))
6f4183fe 907#undef PL_screamfirst
acfe0abc 908#define PL_screamfirst (*Perl_Tscreamfirst_ptr(aTHX))
6f4183fe 909#undef PL_screamnext
acfe0abc 910#define PL_screamnext (*Perl_Tscreamnext_ptr(aTHX))
6f4183fe 911#undef PL_secondgv
acfe0abc 912#define PL_secondgv (*Perl_Tsecondgv_ptr(aTHX))
6f4183fe 913#undef PL_sortcop
acfe0abc 914#define PL_sortcop (*Perl_Tsortcop_ptr(aTHX))
6f4183fe 915#undef PL_sortcxix
acfe0abc 916#define PL_sortcxix (*Perl_Tsortcxix_ptr(aTHX))
6f4183fe 917#undef PL_sortstash
acfe0abc 918#define PL_sortstash (*Perl_Tsortstash_ptr(aTHX))
6f4183fe 919#undef PL_stack_base
acfe0abc 920#define PL_stack_base (*Perl_Tstack_base_ptr(aTHX))
6f4183fe 921#undef PL_stack_max
acfe0abc 922#define PL_stack_max (*Perl_Tstack_max_ptr(aTHX))
6f4183fe 923#undef PL_stack_sp
acfe0abc 924#define PL_stack_sp (*Perl_Tstack_sp_ptr(aTHX))
6f4183fe 925#undef PL_start_env
acfe0abc 926#define PL_start_env (*Perl_Tstart_env_ptr(aTHX))
6f4183fe 927#undef PL_statbuf
acfe0abc 928#define PL_statbuf (*Perl_Tstatbuf_ptr(aTHX))
6f4183fe 929#undef PL_statcache
acfe0abc 930#define PL_statcache (*Perl_Tstatcache_ptr(aTHX))
6f4183fe 931#undef PL_statgv
acfe0abc 932#define PL_statgv (*Perl_Tstatgv_ptr(aTHX))
6f4183fe 933#undef PL_statname
acfe0abc 934#define PL_statname (*Perl_Tstatname_ptr(aTHX))
6f4183fe 935#undef PL_tainted
acfe0abc 936#define PL_tainted (*Perl_Ttainted_ptr(aTHX))
6f4183fe 937#undef PL_timesbuf
acfe0abc 938#define PL_timesbuf (*Perl_Ttimesbuf_ptr(aTHX))
6f4183fe 939#undef PL_tmps_floor
acfe0abc 940#define PL_tmps_floor (*Perl_Ttmps_floor_ptr(aTHX))
6f4183fe 941#undef PL_tmps_ix
acfe0abc 942#define PL_tmps_ix (*Perl_Ttmps_ix_ptr(aTHX))
6f4183fe 943#undef PL_tmps_max
acfe0abc 944#define PL_tmps_max (*Perl_Ttmps_max_ptr(aTHX))
6f4183fe 945#undef PL_tmps_stack
acfe0abc 946#define PL_tmps_stack (*Perl_Ttmps_stack_ptr(aTHX))
6f4183fe 947#undef PL_top_env
acfe0abc 948#define PL_top_env (*Perl_Ttop_env_ptr(aTHX))
6f4183fe 949#undef PL_toptarget
acfe0abc 950#define PL_toptarget (*Perl_Ttoptarget_ptr(aTHX))
6f4183fe 951#undef PL_watchaddr
acfe0abc 952#define PL_watchaddr (*Perl_Twatchaddr_ptr(aTHX))
6f4183fe 953#undef PL_watchok
acfe0abc 954#define PL_watchok (*Perl_Twatchok_ptr(aTHX))
6f4183fe
GS
955#undef PL_No
956#define PL_No (*Perl_GNo_ptr(NULL))
957#undef PL_Yes
958#define PL_Yes (*Perl_GYes_ptr(NULL))
27da23d5
JH
959#undef PL_appctx
960#define PL_appctx (*Perl_Gappctx_ptr(NULL))
961#undef PL_check
962#define PL_check (*Perl_Gcheck_ptr(NULL))
5c1546dc
JH
963#undef PL_csighandlerp
964#define PL_csighandlerp (*Perl_Gcsighandlerp_ptr(NULL))
6f4183fe
GS
965#undef PL_curinterp
966#define PL_curinterp (*Perl_Gcurinterp_ptr(NULL))
967#undef PL_do_undump
968#define PL_do_undump (*Perl_Gdo_undump_ptr(NULL))
d90a703e
JH
969#undef PL_dollarzero_mutex
970#define PL_dollarzero_mutex (*Perl_Gdollarzero_mutex_ptr(NULL))
27da23d5
JH
971#undef PL_fold_locale
972#define PL_fold_locale (*Perl_Gfold_locale_ptr(NULL))
6f4183fe
GS
973#undef PL_hexdigit
974#define PL_hexdigit (*Perl_Ghexdigit_ptr(NULL))
975#undef PL_malloc_mutex
976#define PL_malloc_mutex (*Perl_Gmalloc_mutex_ptr(NULL))
27da23d5
JH
977#undef PL_mmap_page_size
978#define PL_mmap_page_size (*Perl_Gmmap_page_size_ptr(NULL))
534825c4
GS
979#undef PL_op_mutex
980#define PL_op_mutex (*Perl_Gop_mutex_ptr(NULL))
27da23d5
JH
981#undef PL_op_seq
982#define PL_op_seq (*Perl_Gop_seq_ptr(NULL))
983#undef PL_op_sequence
984#define PL_op_sequence (*Perl_Gop_sequence_ptr(NULL))
6f4183fe
GS
985#undef PL_patleave
986#define PL_patleave (*Perl_Gpatleave_ptr(NULL))
27da23d5
JH
987#undef PL_perlio_debug_fd
988#define PL_perlio_debug_fd (*Perl_Gperlio_debug_fd_ptr(NULL))
989#undef PL_perlio_fd_refcnt
990#define PL_perlio_fd_refcnt (*Perl_Gperlio_fd_refcnt_ptr(NULL))
991#undef PL_ppaddr
992#define PL_ppaddr (*Perl_Gppaddr_ptr(NULL))
5c728af0
IZ
993#undef PL_sh_path
994#define PL_sh_path (*Perl_Gsh_path_ptr(NULL))
27da23d5
JH
995#undef PL_sig_defaulting
996#define PL_sig_defaulting (*Perl_Gsig_defaulting_ptr(NULL))
997#undef PL_sig_handlers_initted
998#define PL_sig_handlers_initted (*Perl_Gsig_handlers_initted_ptr(NULL))
999#undef PL_sig_ignoring
1000#define PL_sig_ignoring (*Perl_Gsig_ignoring_ptr(NULL))
1001#undef PL_sig_sv
1002#define PL_sig_sv (*Perl_Gsig_sv_ptr(NULL))
1003#undef PL_sig_trapped
1004#define PL_sig_trapped (*Perl_Gsig_trapped_ptr(NULL))
b35112e7
CS
1005#undef PL_sigfpe_saved
1006#define PL_sigfpe_saved (*Perl_Gsigfpe_saved_ptr(NULL))
643157af
JH
1007#undef PL_sv_placeholder
1008#define PL_sv_placeholder (*Perl_Gsv_placeholder_ptr(NULL))
ba869deb
GS
1009#undef PL_thr_key
1010#define PL_thr_key (*Perl_Gthr_key_ptr(NULL))
27da23d5
JH
1011#undef PL_timesbase
1012#define PL_timesbase (*Perl_Gtimesbase_ptr(NULL))
50acdf95
MS
1013#undef PL_use_safe_putenv
1014#define PL_use_safe_putenv (*Perl_Guse_safe_putenv_ptr(NULL))
27da23d5
JH
1015#undef PL_watch_pvx
1016#define PL_watch_pvx (*Perl_Gwatch_pvx_ptr(NULL))
6f4183fe
GS
1017
1018#endif /* !PERL_CORE */
acfe0abc 1019#endif /* MULTIPLICITY */
6f4183fe
GS
1020
1021#endif /* __perlapi_h__ */
51371543 1022
37442d52 1023/* ex: set ro: */