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