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