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