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