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