home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / embedvar.h < prev    next >
Text File  |  2000-03-19  |  71KB  |  1,699 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. /* (Doing namespace management portably in C is really gross.) */
  7.  
  8. /*
  9.    The following combinations of MULTIPLICITY, USE_THREADS, PERL_OBJECT
  10.    and PERL_IMPLICIT_CONTEXT are supported:
  11.      1) none
  12.      2) MULTIPLICITY    # supported for compatibility
  13.      3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
  14.      4) USE_THREADS && PERL_IMPLICIT_CONTEXT
  15.      5) MULTIPLICITY && USE_THREADS && PERL_IMPLICIT_CONTEXT
  16.      6) PERL_OBJECT && PERL_IMPLICIT_CONTEXT
  17.  
  18.    All other combinations of these flags are errors.
  19.  
  20.    #3, #4, #5, and #6 are supported directly, while #2 is a special
  21.    case of #3 (supported by redefining vTHX appropriately).
  22. */
  23.  
  24. #if defined(MULTIPLICITY)
  25. /* cases 2, 3 and 5 above */
  26.  
  27. #  if defined(PERL_IMPLICIT_CONTEXT)
  28. #    define vTHX    aTHX
  29. #  else
  30. #    define vTHX    PERL_GET_INTERP
  31. #  endif
  32.  
  33. #define PL_Sv            (vTHX->TSv)
  34. #define PL_Xpv            (vTHX->TXpv)
  35. #define PL_av_fetch_sv        (vTHX->Tav_fetch_sv)
  36. #define PL_bodytarget        (vTHX->Tbodytarget)
  37. #define PL_bostr        (vTHX->Tbostr)
  38. #define PL_chopset        (vTHX->Tchopset)
  39. #define PL_colors        (vTHX->Tcolors)
  40. #define PL_colorset        (vTHX->Tcolorset)
  41. #define PL_curcop        (vTHX->Tcurcop)
  42. #define PL_curpad        (vTHX->Tcurpad)
  43. #define PL_curpm        (vTHX->Tcurpm)
  44. #define PL_curstack        (vTHX->Tcurstack)
  45. #define PL_curstackinfo        (vTHX->Tcurstackinfo)
  46. #define PL_curstash        (vTHX->Tcurstash)
  47. #define PL_defoutgv        (vTHX->Tdefoutgv)
  48. #define PL_defstash        (vTHX->Tdefstash)
  49. #define PL_delaymagic        (vTHX->Tdelaymagic)
  50. #define PL_dirty        (vTHX->Tdirty)
  51. #define PL_dumpindent        (vTHX->Tdumpindent)
  52. #define PL_efloatbuf        (vTHX->Tefloatbuf)
  53. #define PL_efloatsize        (vTHX->Tefloatsize)
  54. #define PL_errors        (vTHX->Terrors)
  55. #define PL_extralen        (vTHX->Textralen)
  56. #define PL_firstgv        (vTHX->Tfirstgv)
  57. #define PL_formtarget        (vTHX->Tformtarget)
  58. #define PL_hv_fetch_ent_mh    (vTHX->Thv_fetch_ent_mh)
  59. #define PL_hv_fetch_sv        (vTHX->Thv_fetch_sv)
  60. #define PL_in_eval        (vTHX->Tin_eval)
  61. #define PL_last_in_gv        (vTHX->Tlast_in_gv)
  62. #define PL_lastgotoprobe    (vTHX->Tlastgotoprobe)
  63. #define PL_lastscream        (vTHX->Tlastscream)
  64. #define PL_localizing        (vTHX->Tlocalizing)
  65. #define PL_mainstack        (vTHX->Tmainstack)
  66. #define PL_markstack        (vTHX->Tmarkstack)
  67. #define PL_markstack_max    (vTHX->Tmarkstack_max)
  68. #define PL_markstack_ptr    (vTHX->Tmarkstack_ptr)
  69. #define PL_maxscream        (vTHX->Tmaxscream)
  70. #define PL_modcount        (vTHX->Tmodcount)
  71. #define PL_na            (vTHX->Tna)
  72. #define PL_nrs            (vTHX->Tnrs)
  73. #define PL_ofs            (vTHX->Tofs)
  74. #define PL_ofslen        (vTHX->Tofslen)
  75. #define PL_op            (vTHX->Top)
  76. #define PL_opsave        (vTHX->Topsave)
  77. #define PL_protect        (vTHX->Tprotect)
  78. #define PL_reg_call_cc        (vTHX->Treg_call_cc)
  79. #define PL_reg_curpm        (vTHX->Treg_curpm)
  80. #define PL_reg_eval_set        (vTHX->Treg_eval_set)
  81. #define PL_reg_flags        (vTHX->Treg_flags)
  82. #define PL_reg_ganch        (vTHX->Treg_ganch)
  83. #define PL_reg_leftiter        (vTHX->Treg_leftiter)
  84. #define PL_reg_magic        (vTHX->Treg_magic)
  85. #define PL_reg_maxiter        (vTHX->Treg_maxiter)
  86. #define PL_reg_oldcurpm        (vTHX->Treg_oldcurpm)
  87. #define PL_reg_oldpos        (vTHX->Treg_oldpos)
  88. #define PL_reg_oldsaved        (vTHX->Treg_oldsaved)
  89. #define PL_reg_oldsavedlen    (vTHX->Treg_oldsavedlen)
  90. #define PL_reg_poscache        (vTHX->Treg_poscache)
  91. #define PL_reg_poscache_size    (vTHX->Treg_poscache_size)
  92. #define PL_reg_re        (vTHX->Treg_re)
  93. #define PL_reg_start_tmp    (vTHX->Treg_start_tmp)
  94. #define PL_reg_start_tmpl    (vTHX->Treg_start_tmpl)
  95. #define PL_reg_starttry        (vTHX->Treg_starttry)
  96. #define PL_reg_sv        (vTHX->Treg_sv)
  97. #define PL_reg_whilem_seen    (vTHX->Treg_whilem_seen)
  98. #define PL_regbol        (vTHX->Tregbol)
  99. #define PL_regcc        (vTHX->Tregcc)
  100. #define PL_regcode        (vTHX->Tregcode)
  101. #define PL_regcomp_parse    (vTHX->Tregcomp_parse)
  102. #define PL_regcomp_rx        (vTHX->Tregcomp_rx)
  103. #define PL_regcompp        (vTHX->Tregcompp)
  104. #define PL_regdata        (vTHX->Tregdata)
  105. #define PL_regdummy        (vTHX->Tregdummy)
  106. #define PL_regendp        (vTHX->Tregendp)
  107. #define PL_regeol        (vTHX->Tregeol)
  108. #define PL_regexecp        (vTHX->Tregexecp)
  109. #define PL_regflags        (vTHX->Tregflags)
  110. #define PL_regfree        (vTHX->Tregfree)
  111. #define PL_regindent        (vTHX->Tregindent)
  112. #define PL_reginput        (vTHX->Treginput)
  113. #define PL_regint_start        (vTHX->Tregint_start)
  114. #define PL_regint_string    (vTHX->Tregint_string)
  115. #define PL_reginterp_cnt    (vTHX->Treginterp_cnt)
  116. #define PL_reglastparen        (vTHX->Treglastparen)
  117. #define PL_regnarrate        (vTHX->Tregnarrate)
  118. #define PL_regnaughty        (vTHX->Tregnaughty)
  119. #define PL_regnpar        (vTHX->Tregnpar)
  120. #define PL_regprecomp        (vTHX->Tregprecomp)
  121. #define PL_regprev        (vTHX->Tregprev)
  122. #define PL_regprogram        (vTHX->Tregprogram)
  123. #define PL_regsawback        (vTHX->Tregsawback)
  124. #define PL_regseen        (vTHX->Tregseen)
  125. #define PL_regsize        (vTHX->Tregsize)
  126. #define PL_regstartp        (vTHX->Tregstartp)
  127. #define PL_regtill        (vTHX->Tregtill)
  128. #define PL_regxend        (vTHX->Tregxend)
  129. #define PL_restartop        (vTHX->Trestartop)
  130. #define PL_retstack        (vTHX->Tretstack)
  131. #define PL_retstack_ix        (vTHX->Tretstack_ix)
  132. #define PL_retstack_max        (vTHX->Tretstack_max)
  133. #define PL_rs            (vTHX->Trs)
  134. #define PL_savestack        (vTHX->Tsavestack)
  135. #define PL_savestack_ix        (vTHX->Tsavestack_ix)
  136. #define PL_savestack_max    (vTHX->Tsavestack_max)
  137. #define PL_scopestack        (vTHX->Tscopestack)
  138. #define PL_scopestack_ix    (vTHX->Tscopestack_ix)
  139. #define PL_scopestack_max    (vTHX->Tscopestack_max)
  140. #define PL_screamfirst        (vTHX->Tscreamfirst)
  141. #define PL_screamnext        (vTHX->Tscreamnext)
  142. #define PL_secondgv        (vTHX->Tsecondgv)
  143. #define PL_seen_evals        (vTHX->Tseen_evals)
  144. #define PL_seen_zerolen        (vTHX->Tseen_zerolen)
  145. #define PL_sortcop        (vTHX->Tsortcop)
  146. #define PL_sortcxix        (vTHX->Tsortcxix)
  147. #define PL_sortstash        (vTHX->Tsortstash)
  148. #define PL_stack_base        (vTHX->Tstack_base)
  149. #define PL_stack_max        (vTHX->Tstack_max)
  150. #define PL_stack_sp        (vTHX->Tstack_sp)
  151. #define PL_start_env        (vTHX->Tstart_env)
  152. #define PL_statbuf        (vTHX->Tstatbuf)
  153. #define PL_statcache        (vTHX->Tstatcache)
  154. #define PL_statgv        (vTHX->Tstatgv)
  155. #define PL_statname        (vTHX->Tstatname)
  156. #define PL_tainted        (vTHX->Ttainted)
  157. #define PL_timesbuf        (vTHX->Ttimesbuf)
  158. #define PL_tmps_floor        (vTHX->Ttmps_floor)
  159. #define PL_tmps_ix        (vTHX->Ttmps_ix)
  160. #define PL_tmps_max        (vTHX->Ttmps_max)
  161. #define PL_tmps_stack        (vTHX->Ttmps_stack)
  162. #define PL_top_env        (vTHX->Ttop_env)
  163. #define PL_toptarget        (vTHX->Ttoptarget)
  164. #define PL_watchaddr        (vTHX->Twatchaddr)
  165. #define PL_watchok        (vTHX->Twatchok)
  166.  
  167. #  if defined(PERL_OBJECT)
  168. #    include "error: PERL_OBJECT + MULTIPLICITY don't go together"
  169. #  endif
  170.  
  171. #  if defined(USE_THREADS)
  172. /* case 5 above */
  173.  
  174. #define PL_Argv            (PERL_GET_INTERP->IArgv)
  175. #define PL_Cmd            (PERL_GET_INTERP->ICmd)
  176. #define PL_DBcv            (PERL_GET_INTERP->IDBcv)
  177. #define PL_DBgv            (PERL_GET_INTERP->IDBgv)
  178. #define PL_DBline        (PERL_GET_INTERP->IDBline)
  179. #define PL_DBsignal        (PERL_GET_INTERP->IDBsignal)
  180. #define PL_DBsingle        (PERL_GET_INTERP->IDBsingle)
  181. #define PL_DBsub        (PERL_GET_INTERP->IDBsub)
  182. #define PL_DBtrace        (PERL_GET_INTERP->IDBtrace)
  183. #define PL_Dir            (PERL_GET_INTERP->IDir)
  184. #define PL_Env            (PERL_GET_INTERP->IEnv)
  185. #define PL_LIO            (PERL_GET_INTERP->ILIO)
  186. #define PL_Mem            (PERL_GET_INTERP->IMem)
  187. #define PL_MemParse        (PERL_GET_INTERP->IMemParse)
  188. #define PL_MemShared        (PERL_GET_INTERP->IMemShared)
  189. #define PL_Proc            (PERL_GET_INTERP->IProc)
  190. #define PL_Sock            (PERL_GET_INTERP->ISock)
  191. #define PL_StdIO        (PERL_GET_INTERP->IStdIO)
  192. #define PL_amagic_generation    (PERL_GET_INTERP->Iamagic_generation)
  193. #define PL_an            (PERL_GET_INTERP->Ian)
  194. #define PL_argvgv        (PERL_GET_INTERP->Iargvgv)
  195. #define PL_argvout_stack    (PERL_GET_INTERP->Iargvout_stack)
  196. #define PL_argvoutgv        (PERL_GET_INTERP->Iargvoutgv)
  197. #define PL_basetime        (PERL_GET_INTERP->Ibasetime)
  198. #define PL_beginav        (PERL_GET_INTERP->Ibeginav)
  199. #define PL_bitcount        (PERL_GET_INTERP->Ibitcount)
  200. #define PL_bufend        (PERL_GET_INTERP->Ibufend)
  201. #define PL_bufptr        (PERL_GET_INTERP->Ibufptr)
  202. #define PL_checkav        (PERL_GET_INTERP->Icheckav)
  203. #define PL_collation_ix        (PERL_GET_INTERP->Icollation_ix)
  204. #define PL_collation_name    (PERL_GET_INTERP->Icollation_name)
  205. #define PL_collation_standard    (PERL_GET_INTERP->Icollation_standard)
  206. #define PL_collxfrm_base    (PERL_GET_INTERP->Icollxfrm_base)
  207. #define PL_collxfrm_mult    (PERL_GET_INTERP->Icollxfrm_mult)
  208. #define PL_compcv        (PERL_GET_INTERP->Icompcv)
  209. #define PL_compiling        (PERL_GET_INTERP->Icompiling)
  210. #define PL_comppad        (PERL_GET_INTERP->Icomppad)
  211. #define PL_comppad_name        (PERL_GET_INTERP->Icomppad_name)
  212. #define PL_comppad_name_fill    (PERL_GET_INTERP->Icomppad_name_fill)
  213. #define PL_comppad_name_floor    (PERL_GET_INTERP->Icomppad_name_floor)
  214. #define PL_cop_seqmax        (PERL_GET_INTERP->Icop_seqmax)
  215. #define PL_copline        (PERL_GET_INTERP->Icopline)
  216. #define PL_cred_mutex        (PERL_GET_INTERP->Icred_mutex)
  217. #define PL_cryptseen        (PERL_GET_INTERP->Icryptseen)
  218. #define PL_cshlen        (PERL_GET_INTERP->Icshlen)
  219. #define PL_cshname        (PERL_GET_INTERP->Icshname)
  220. #define PL_curcopdb        (PERL_GET_INTERP->Icurcopdb)
  221. #define PL_curstname        (PERL_GET_INTERP->Icurstname)
  222. #define PL_curthr        (PERL_GET_INTERP->Icurthr)
  223. #define PL_dbargs        (PERL_GET_INTERP->Idbargs)
  224. #define PL_debstash        (PERL_GET_INTERP->Idebstash)
  225. #define PL_debug        (PERL_GET_INTERP->Idebug)
  226. #define PL_defgv        (PERL_GET_INTERP->Idefgv)
  227. #define PL_diehook        (PERL_GET_INTERP->Idiehook)
  228. #define PL_doextract        (PERL_GET_INTERP->Idoextract)
  229. #define PL_doswitches        (PERL_GET_INTERP->Idoswitches)
  230. #define PL_dowarn        (PERL_GET_INTERP->Idowarn)
  231. #define PL_e_script        (PERL_GET_INTERP->Ie_script)
  232. #define PL_egid            (PERL_GET_INTERP->Iegid)
  233. #define PL_endav        (PERL_GET_INTERP->Iendav)
  234. #define PL_envgv        (PERL_GET_INTERP->Ienvgv)
  235. #define PL_errgv        (PERL_GET_INTERP->Ierrgv)
  236. #define PL_error_count        (PERL_GET_INTERP->Ierror_count)
  237. #define PL_euid            (PERL_GET_INTERP->Ieuid)
  238. #define PL_eval_cond        (PERL_GET_INTERP->Ieval_cond)
  239. #define PL_eval_mutex        (PERL_GET_INTERP->Ieval_mutex)
  240. #define PL_eval_owner        (PERL_GET_INTERP->Ieval_owner)
  241. #define PL_eval_root        (PERL_GET_INTERP->Ieval_root)
  242. #define PL_eval_start        (PERL_GET_INTERP->Ieval_start)
  243. #define PL_evalseq        (PERL_GET_INTERP->Ievalseq)
  244. #define PL_exit_flags        (PERL_GET_INTERP->Iexit_flags)
  245. #define PL_exitlist        (PERL_GET_INTERP->Iexitlist)
  246. #define PL_exitlistlen        (PERL_GET_INTERP->Iexitlistlen)
  247. #define PL_expect        (PERL_GET_INTERP->Iexpect)
  248. #define PL_fdpid        (PERL_GET_INTERP->Ifdpid)
  249. #define PL_filemode        (PERL_GET_INTERP->Ifilemode)
  250. #define PL_forkprocess        (PERL_GET_INTERP->Iforkprocess)
  251. #define PL_formfeed        (PERL_GET_INTERP->Iformfeed)
  252. #define PL_generation        (PERL_GET_INTERP->Igeneration)
  253. #define PL_gensym        (PERL_GET_INTERP->Igensym)
  254. #define PL_gid            (PERL_GET_INTERP->Igid)
  255. #define PL_glob_index        (PERL_GET_INTERP->Iglob_index)
  256. #define PL_globalstash        (PERL_GET_INTERP->Iglobalstash)
  257. #define PL_he_root        (PERL_GET_INTERP->Ihe_root)
  258. #define PL_hintgv        (PERL_GET_INTERP->Ihintgv)
  259. #define PL_hints        (PERL_GET_INTERP->Ihints)
  260. #define PL_in_clean_all        (PERL_GET_INTERP->Iin_clean_all)
  261. #define PL_in_clean_objs    (PERL_GET_INTERP->Iin_clean_objs)
  262. #define PL_in_my        (PERL_GET_INTERP->Iin_my)
  263. #define PL_in_my_stash        (PERL_GET_INTERP->Iin_my_stash)
  264. #define PL_incgv        (PERL_GET_INTERP->Iincgv)
  265. #define PL_initav        (PERL_GET_INTERP->Iinitav)
  266. #define PL_inplace        (PERL_GET_INTERP->Iinplace)
  267. #define PL_last_lop        (PERL_GET_INTERP->Ilast_lop)
  268. #define PL_last_lop_op        (PERL_GET_INTERP->Ilast_lop_op)
  269. #define PL_last_swash_hv    (PERL_GET_INTERP->Ilast_swash_hv)
  270. #define PL_last_swash_key    (PERL_GET_INTERP->Ilast_swash_key)
  271. #define PL_last_swash_klen    (PERL_GET_INTERP->Ilast_swash_klen)
  272. #define PL_last_swash_slen    (PERL_GET_INTERP->Ilast_swash_slen)
  273. #define PL_last_swash_tmps    (PERL_GET_INTERP->Ilast_swash_tmps)
  274. #define PL_last_uni        (PERL_GET_INTERP->Ilast_uni)
  275. #define PL_lastfd        (PERL_GET_INTERP->Ilastfd)
  276. #define PL_laststatval        (PERL_GET_INTERP->Ilaststatval)
  277. #define PL_laststype        (PERL_GET_INTERP->Ilaststype)
  278. #define PL_lex_brackets        (PERL_GET_INTERP->Ilex_brackets)
  279. #define PL_lex_brackstack    (PERL_GET_INTERP->Ilex_brackstack)
  280. #define PL_lex_casemods        (PERL_GET_INTERP->Ilex_casemods)
  281. #define PL_lex_casestack    (PERL_GET_INTERP->Ilex_casestack)
  282. #define PL_lex_defer        (PERL_GET_INTERP->Ilex_defer)
  283. #define PL_lex_dojoin        (PERL_GET_INTERP->Ilex_dojoin)
  284. #define PL_lex_expect        (PERL_GET_INTERP->Ilex_expect)
  285. #define PL_lex_formbrack    (PERL_GET_INTERP->Ilex_formbrack)
  286. #define PL_lex_inpat        (PERL_GET_INTERP->Ilex_inpat)
  287. #define PL_lex_inwhat        (PERL_GET_INTERP->Ilex_inwhat)
  288. #define PL_lex_op        (PERL_GET_INTERP->Ilex_op)
  289. #define PL_lex_repl        (PERL_GET_INTERP->Ilex_repl)
  290. #define PL_lex_starts        (PERL_GET_INTERP->Ilex_starts)
  291. #define PL_lex_state        (PERL_GET_INTERP->Ilex_state)
  292. #define PL_lex_stuff        (PERL_GET_INTERP->Ilex_stuff)
  293. #define PL_lineary        (PERL_GET_INTERP->Ilineary)
  294. #define PL_linestart        (PERL_GET_INTERP->Ilinestart)
  295. #define PL_linestr        (PERL_GET_INTERP->Ilinestr)
  296. #define PL_localpatches        (PERL_GET_INTERP->Ilocalpatches)
  297. #define PL_main_cv        (PERL_GET_INTERP->Imain_cv)
  298. #define PL_main_root        (PERL_GET_INTERP->Imain_root)
  299. #define PL_main_start        (PERL_GET_INTERP->Imain_start)
  300. #define PL_max_intro_pending    (PERL_GET_INTERP->Imax_intro_pending)
  301. #define PL_maxo            (PERL_GET_INTERP->Imaxo)
  302. #define PL_maxsysfd        (PERL_GET_INTERP->Imaxsysfd)
  303. #define PL_mess_sv        (PERL_GET_INTERP->Imess_sv)
  304. #define PL_min_intro_pending    (PERL_GET_INTERP->Imin_intro_pending)
  305. #define PL_minus_F        (PERL_GET_INTERP->Iminus_F)
  306. #define PL_minus_a        (PERL_GET_INTERP->Iminus_a)
  307. #define PL_minus_c        (PERL_GET_INTERP->Iminus_c)
  308. #define PL_minus_l        (PERL_GET_INTERP->Iminus_l)
  309. #define PL_minus_n        (PERL_GET_INTERP->Iminus_n)
  310. #define PL_minus_p        (PERL_GET_INTERP->Iminus_p)
  311. #define PL_modglobal        (PERL_GET_INTERP->Imodglobal)
  312. #define PL_multi_close        (PERL_GET_INTERP->Imulti_close)
  313. #define PL_multi_end        (PERL_GET_INTERP->Imulti_end)
  314. #define PL_multi_open        (PERL_GET_INTERP->Imulti_open)
  315. #define PL_multi_start        (PERL_GET_INTERP->Imulti_start)
  316. #define PL_multiline        (PERL_GET_INTERP->Imultiline)
  317. #define PL_nexttoke        (PERL_GET_INTERP->Inexttoke)
  318. #define PL_nexttype        (PERL_GET_INTERP->Inexttype)
  319. #define PL_nextval        (PERL_GET_INTERP->Inextval)
  320. #define PL_nice_chunk        (PERL_GET_INTERP->Inice_chunk)
  321. #define PL_nice_chunk_size    (PERL_GET_INTERP->Inice_chunk_size)
  322. #define PL_nomemok        (PERL_GET_INTERP->Inomemok)
  323. #define PL_nthreads        (PERL_GET_INTERP->Inthreads)
  324. #define PL_nthreads_cond    (PERL_GET_INTERP->Inthreads_cond)
  325. #define PL_numeric_local    (PERL_GET_INTERP->Inumeric_local)
  326. #define PL_numeric_name        (PERL_GET_INTERP->Inumeric_name)
  327. #define PL_numeric_radix    (PERL_GET_INTERP->Inumeric_radix)
  328. #define PL_numeric_standard    (PERL_GET_INTERP->Inumeric_standard)
  329. #define PL_ofmt            (PERL_GET_INTERP->Iofmt)
  330. #define PL_oldbufptr        (PERL_GET_INTERP->Ioldbufptr)
  331. #define PL_oldname        (PERL_GET_INTERP->Ioldname)
  332. #define PL_oldoldbufptr        (PERL_GET_INTERP->Ioldoldbufptr)
  333. #define PL_op_mask        (PERL_GET_INTERP->Iop_mask)
  334. #define PL_op_seqmax        (PERL_GET_INTERP->Iop_seqmax)
  335. #define PL_origalen        (PERL_GET_INTERP->Iorigalen)
  336. #define PL_origargc        (PERL_GET_INTERP->Iorigargc)
  337. #define PL_origargv        (PERL_GET_INTERP->Iorigargv)
  338. #define PL_origenviron        (PERL_GET_INTERP->Iorigenviron)
  339. #define PL_origfilename        (PERL_GET_INTERP->Iorigfilename)
  340. #define PL_ors            (PERL_GET_INTERP->Iors)
  341. #define PL_orslen        (PERL_GET_INTERP->Iorslen)
  342. #define PL_osname        (PERL_GET_INTERP->Iosname)
  343. #define PL_pad_reset_pending    (PERL_GET_INTERP->Ipad_reset_pending)
  344. #define PL_padix        (PERL_GET_INTERP->Ipadix)
  345. #define PL_padix_floor        (PERL_GET_INTERP->Ipadix_floor)
  346. #define PL_patchlevel        (PERL_GET_INTERP->Ipatchlevel)
  347. #define PL_pending_ident    (PERL_GET_INTERP->Ipending_ident)
  348. #define PL_perl_destruct_level    (PERL_GET_INTERP->Iperl_destruct_level)
  349. #define PL_perldb        (PERL_GET_INTERP->Iperldb)
  350. #define PL_pidstatus        (PERL_GET_INTERP->Ipidstatus)
  351. #define PL_preambleav        (PERL_GET_INTERP->Ipreambleav)
  352. #define PL_preambled        (PERL_GET_INTERP->Ipreambled)
  353. #define PL_preprocess        (PERL_GET_INTERP->Ipreprocess)
  354. #define PL_profiledata        (PERL_GET_INTERP->Iprofiledata)
  355. #define PL_psig_name        (PERL_GET_INTERP->Ipsig_name)
  356. #define PL_psig_ptr        (PERL_GET_INTERP->Ipsig_ptr)
  357. #define PL_ptr_table        (PERL_GET_INTERP->Iptr_table)
  358. #define PL_replgv        (PERL_GET_INTERP->Ireplgv)
  359. #define PL_rsfp            (PERL_GET_INTERP->Irsfp)
  360. #define PL_rsfp_filters        (PERL_GET_INTERP->Irsfp_filters)
  361. #define PL_runops        (PERL_GET_INTERP->Irunops)
  362. #define PL_sawampersand        (PERL_GET_INTERP->Isawampersand)
  363. #define PL_sh_path        (PERL_GET_INTERP->Ish_path)
  364. #define PL_sighandlerp        (PERL_GET_INTERP->Isighandlerp)
  365. #define PL_splitstr        (PERL_GET_INTERP->Isplitstr)
  366. #define PL_srand_called        (PERL_GET_INTERP->Isrand_called)
  367. #define PL_statusvalue        (PERL_GET_INTERP->Istatusvalue)
  368. #define PL_statusvalue_vms    (PERL_GET_INTERP->Istatusvalue_vms)
  369. #define PL_stderrgv        (PERL_GET_INTERP->Istderrgv)
  370. #define PL_stdingv        (PERL_GET_INTERP->Istdingv)
  371. #define PL_strtab        (PERL_GET_INTERP->Istrtab)
  372. #define PL_strtab_mutex        (PERL_GET_INTERP->Istrtab_mutex)
  373. #define PL_sub_generation    (PERL_GET_INTERP->Isub_generation)
  374. #define PL_sublex_info        (PERL_GET_INTERP->Isublex_info)
  375. #define PL_subline        (PERL_GET_INTERP->Isubline)
  376. #define PL_subname        (PERL_GET_INTERP->Isubname)
  377. #define PL_sv_arenaroot        (PERL_GET_INTERP->Isv_arenaroot)
  378. #define PL_sv_count        (PERL_GET_INTERP->Isv_count)
  379. #define PL_sv_mutex        (PERL_GET_INTERP->Isv_mutex)
  380. #define PL_sv_no        (PERL_GET_INTERP->Isv_no)
  381. #define PL_sv_objcount        (PERL_GET_INTERP->Isv_objcount)
  382. #define PL_sv_root        (PERL_GET_INTERP->Isv_root)
  383. #define PL_sv_undef        (PERL_GET_INTERP->Isv_undef)
  384. #define PL_sv_yes        (PERL_GET_INTERP->Isv_yes)
  385. #define PL_svref_mutex        (PERL_GET_INTERP->Isvref_mutex)
  386. #define PL_sys_intern        (PERL_GET_INTERP->Isys_intern)
  387. #define PL_tainting        (PERL_GET_INTERP->Itainting)
  388. #define PL_threadnum        (PERL_GET_INTERP->Ithreadnum)
  389. #define PL_threads_mutex    (PERL_GET_INTERP->Ithreads_mutex)
  390. #define PL_threadsv_names    (PERL_GET_INTERP->Ithreadsv_names)
  391. #define PL_thrsv        (PERL_GET_INTERP->Ithrsv)
  392. #define PL_tokenbuf        (PERL_GET_INTERP->Itokenbuf)
  393. #define PL_uid            (PERL_GET_INTERP->Iuid)
  394. #define PL_unsafe        (PERL_GET_INTERP->Iunsafe)
  395. #define PL_utf8_alnum        (PERL_GET_INTERP->Iutf8_alnum)
  396. #define PL_utf8_alnumc        (PERL_GET_INTERP->Iutf8_alnumc)
  397. #define PL_utf8_alpha        (PERL_GET_INTERP->Iutf8_alpha)
  398. #define PL_utf8_ascii        (PERL_GET_INTERP->Iutf8_ascii)
  399. #define PL_utf8_cntrl        (PERL_GET_INTERP->Iutf8_cntrl)
  400. #define PL_utf8_digit        (PERL_GET_INTERP->Iutf8_digit)
  401. #define PL_utf8_graph        (PERL_GET_INTERP->Iutf8_graph)
  402. #define PL_utf8_lower        (PERL_GET_INTERP->Iutf8_lower)
  403. #define PL_utf8_mark        (PERL_GET_INTERP->Iutf8_mark)
  404. #define PL_utf8_print        (PERL_GET_INTERP->Iutf8_print)
  405. #define PL_utf8_punct        (PERL_GET_INTERP->Iutf8_punct)
  406. #define PL_utf8_space        (PERL_GET_INTERP->Iutf8_space)
  407. #define PL_utf8_tolower        (PERL_GET_INTERP->Iutf8_tolower)
  408. #define PL_utf8_totitle        (PERL_GET_INTERP->Iutf8_totitle)
  409. #define PL_utf8_toupper        (PERL_GET_INTERP->Iutf8_toupper)
  410. #define PL_utf8_upper        (PERL_GET_INTERP->Iutf8_upper)
  411. #define PL_utf8_xdigit        (PERL_GET_INTERP->Iutf8_xdigit)
  412. #define PL_uudmap        (PERL_GET_INTERP->Iuudmap)
  413. #define PL_warnhook        (PERL_GET_INTERP->Iwarnhook)
  414. #define PL_widesyscalls        (PERL_GET_INTERP->Iwidesyscalls)
  415. #define PL_xiv_arenaroot    (PERL_GET_INTERP->Ixiv_arenaroot)
  416. #define PL_xiv_root        (PERL_GET_INTERP->Ixiv_root)
  417. #define PL_xnv_root        (PERL_GET_INTERP->Ixnv_root)
  418. #define PL_xpv_root        (PERL_GET_INTERP->Ixpv_root)
  419. #define PL_xpvav_root        (PERL_GET_INTERP->Ixpvav_root)
  420. #define PL_xpvbm_root        (PERL_GET_INTERP->Ixpvbm_root)
  421. #define PL_xpvcv_root        (PERL_GET_INTERP->Ixpvcv_root)
  422. #define PL_xpvhv_root        (PERL_GET_INTERP->Ixpvhv_root)
  423. #define PL_xpviv_root        (PERL_GET_INTERP->Ixpviv_root)
  424. #define PL_xpvlv_root        (PERL_GET_INTERP->Ixpvlv_root)
  425. #define PL_xpvmg_root        (PERL_GET_INTERP->Ixpvmg_root)
  426. #define PL_xpvnv_root        (PERL_GET_INTERP->Ixpvnv_root)
  427. #define PL_xrv_root        (PERL_GET_INTERP->Ixrv_root)
  428. #define PL_yychar        (PERL_GET_INTERP->Iyychar)
  429. #define PL_yydebug        (PERL_GET_INTERP->Iyydebug)
  430. #define PL_yyerrflag        (PERL_GET_INTERP->Iyyerrflag)
  431. #define PL_yylval        (PERL_GET_INTERP->Iyylval)
  432. #define PL_yynerrs        (PERL_GET_INTERP->Iyynerrs)
  433. #define PL_yyval        (PERL_GET_INTERP->Iyyval)
  434.  
  435. #  else        /* !USE_THREADS */
  436. /* cases 2 and 3 above */
  437.  
  438. #define PL_Argv            (vTHX->IArgv)
  439. #define PL_Cmd            (vTHX->ICmd)
  440. #define PL_DBcv            (vTHX->IDBcv)
  441. #define PL_DBgv            (vTHX->IDBgv)
  442. #define PL_DBline        (vTHX->IDBline)
  443. #define PL_DBsignal        (vTHX->IDBsignal)
  444. #define PL_DBsingle        (vTHX->IDBsingle)
  445. #define PL_DBsub        (vTHX->IDBsub)
  446. #define PL_DBtrace        (vTHX->IDBtrace)
  447. #define PL_Dir            (vTHX->IDir)
  448. #define PL_Env            (vTHX->IEnv)
  449. #define PL_LIO            (vTHX->ILIO)
  450. #define PL_Mem            (vTHX->IMem)
  451. #define PL_MemParse        (vTHX->IMemParse)
  452. #define PL_MemShared        (vTHX->IMemShared)
  453. #define PL_Proc            (vTHX->IProc)
  454. #define PL_Sock            (vTHX->ISock)
  455. #define PL_StdIO        (vTHX->IStdIO)
  456. #define PL_amagic_generation    (vTHX->Iamagic_generation)
  457. #define PL_an            (vTHX->Ian)
  458. #define PL_argvgv        (vTHX->Iargvgv)
  459. #define PL_argvout_stack    (vTHX->Iargvout_stack)
  460. #define PL_argvoutgv        (vTHX->Iargvoutgv)
  461. #define PL_basetime        (vTHX->Ibasetime)
  462. #define PL_beginav        (vTHX->Ibeginav)
  463. #define PL_bitcount        (vTHX->Ibitcount)
  464. #define PL_bufend        (vTHX->Ibufend)
  465. #define PL_bufptr        (vTHX->Ibufptr)
  466. #define PL_checkav        (vTHX->Icheckav)
  467. #define PL_collation_ix        (vTHX->Icollation_ix)
  468. #define PL_collation_name    (vTHX->Icollation_name)
  469. #define PL_collation_standard    (vTHX->Icollation_standard)
  470. #define PL_collxfrm_base    (vTHX->Icollxfrm_base)
  471. #define PL_collxfrm_mult    (vTHX->Icollxfrm_mult)
  472. #define PL_compcv        (vTHX->Icompcv)
  473. #define PL_compiling        (vTHX->Icompiling)
  474. #define PL_comppad        (vTHX->Icomppad)
  475. #define PL_comppad_name        (vTHX->Icomppad_name)
  476. #define PL_comppad_name_fill    (vTHX->Icomppad_name_fill)
  477. #define PL_comppad_name_floor    (vTHX->Icomppad_name_floor)
  478. #define PL_cop_seqmax        (vTHX->Icop_seqmax)
  479. #define PL_copline        (vTHX->Icopline)
  480. #define PL_cred_mutex        (vTHX->Icred_mutex)
  481. #define PL_cryptseen        (vTHX->Icryptseen)
  482. #define PL_cshlen        (vTHX->Icshlen)
  483. #define PL_cshname        (vTHX->Icshname)
  484. #define PL_curcopdb        (vTHX->Icurcopdb)
  485. #define PL_curstname        (vTHX->Icurstname)
  486. #define PL_curthr        (vTHX->Icurthr)
  487. #define PL_dbargs        (vTHX->Idbargs)
  488. #define PL_debstash        (vTHX->Idebstash)
  489. #define PL_debug        (vTHX->Idebug)
  490. #define PL_defgv        (vTHX->Idefgv)
  491. #define PL_diehook        (vTHX->Idiehook)
  492. #define PL_doextract        (vTHX->Idoextract)
  493. #define PL_doswitches        (vTHX->Idoswitches)
  494. #define PL_dowarn        (vTHX->Idowarn)
  495. #define PL_e_script        (vTHX->Ie_script)
  496. #define PL_egid            (vTHX->Iegid)
  497. #define PL_endav        (vTHX->Iendav)
  498. #define PL_envgv        (vTHX->Ienvgv)
  499. #define PL_errgv        (vTHX->Ierrgv)
  500. #define PL_error_count        (vTHX->Ierror_count)
  501. #define PL_euid            (vTHX->Ieuid)
  502. #define PL_eval_cond        (vTHX->Ieval_cond)
  503. #define PL_eval_mutex        (vTHX->Ieval_mutex)
  504. #define PL_eval_owner        (vTHX->Ieval_owner)
  505. #define PL_eval_root        (vTHX->Ieval_root)
  506. #define PL_eval_start        (vTHX->Ieval_start)
  507. #define PL_evalseq        (vTHX->Ievalseq)
  508. #define PL_exit_flags        (vTHX->Iexit_flags)
  509. #define PL_exitlist        (vTHX->Iexitlist)
  510. #define PL_exitlistlen        (vTHX->Iexitlistlen)
  511. #define PL_expect        (vTHX->Iexpect)
  512. #define PL_fdpid        (vTHX->Ifdpid)
  513. #define PL_filemode        (vTHX->Ifilemode)
  514. #define PL_forkprocess        (vTHX->Iforkprocess)
  515. #define PL_formfeed        (vTHX->Iformfeed)
  516. #define PL_generation        (vTHX->Igeneration)
  517. #define PL_gensym        (vTHX->Igensym)
  518. #define PL_gid            (vTHX->Igid)
  519. #define PL_glob_index        (vTHX->Iglob_index)
  520. #define PL_globalstash        (vTHX->Iglobalstash)
  521. #define PL_he_root        (vTHX->Ihe_root)
  522. #define PL_hintgv        (vTHX->Ihintgv)
  523. #define PL_hints        (vTHX->Ihints)
  524. #define PL_in_clean_all        (vTHX->Iin_clean_all)
  525. #define PL_in_clean_objs    (vTHX->Iin_clean_objs)
  526. #define PL_in_my        (vTHX->Iin_my)
  527. #define PL_in_my_stash        (vTHX->Iin_my_stash)
  528. #define PL_incgv        (vTHX->Iincgv)
  529. #define PL_initav        (vTHX->Iinitav)
  530. #define PL_inplace        (vTHX->Iinplace)
  531. #define PL_last_lop        (vTHX->Ilast_lop)
  532. #define PL_last_lop_op        (vTHX->Ilast_lop_op)
  533. #define PL_last_swash_hv    (vTHX->Ilast_swash_hv)
  534. #define PL_last_swash_key    (vTHX->Ilast_swash_key)
  535. #define PL_last_swash_klen    (vTHX->Ilast_swash_klen)
  536. #define PL_last_swash_slen    (vTHX->Ilast_swash_slen)
  537. #define PL_last_swash_tmps    (vTHX->Ilast_swash_tmps)
  538. #define PL_last_uni        (vTHX->Ilast_uni)
  539. #define PL_lastfd        (vTHX->Ilastfd)
  540. #define PL_laststatval        (vTHX->Ilaststatval)
  541. #define PL_laststype        (vTHX->Ilaststype)
  542. #define PL_lex_brackets        (vTHX->Ilex_brackets)
  543. #define PL_lex_brackstack    (vTHX->Ilex_brackstack)
  544. #define PL_lex_casemods        (vTHX->Ilex_casemods)
  545. #define PL_lex_casestack    (vTHX->Ilex_casestack)
  546. #define PL_lex_defer        (vTHX->Ilex_defer)
  547. #define PL_lex_dojoin        (vTHX->Ilex_dojoin)
  548. #define PL_lex_expect        (vTHX->Ilex_expect)
  549. #define PL_lex_formbrack    (vTHX->Ilex_formbrack)
  550. #define PL_lex_inpat        (vTHX->Ilex_inpat)
  551. #define PL_lex_inwhat        (vTHX->Ilex_inwhat)
  552. #define PL_lex_op        (vTHX->Ilex_op)
  553. #define PL_lex_repl        (vTHX->Ilex_repl)
  554. #define PL_lex_starts        (vTHX->Ilex_starts)
  555. #define PL_lex_state        (vTHX->Ilex_state)
  556. #define PL_lex_stuff        (vTHX->Ilex_stuff)
  557. #define PL_lineary        (vTHX->Ilineary)
  558. #define PL_linestart        (vTHX->Ilinestart)
  559. #define PL_linestr        (vTHX->Ilinestr)
  560. #define PL_localpatches        (vTHX->Ilocalpatches)
  561. #define PL_main_cv        (vTHX->Imain_cv)
  562. #define PL_main_root        (vTHX->Imain_root)
  563. #define PL_main_start        (vTHX->Imain_start)
  564. #define PL_max_intro_pending    (vTHX->Imax_intro_pending)
  565. #define PL_maxo            (vTHX->Imaxo)
  566. #define PL_maxsysfd        (vTHX->Imaxsysfd)
  567. #define PL_mess_sv        (vTHX->Imess_sv)
  568. #define PL_min_intro_pending    (vTHX->Imin_intro_pending)
  569. #define PL_minus_F        (vTHX->Iminus_F)
  570. #define PL_minus_a        (vTHX->Iminus_a)
  571. #define PL_minus_c        (vTHX->Iminus_c)
  572. #define PL_minus_l        (vTHX->Iminus_l)
  573. #define PL_minus_n        (vTHX->Iminus_n)
  574. #define PL_minus_p        (vTHX->Iminus_p)
  575. #define PL_modglobal        (vTHX->Imodglobal)
  576. #define PL_multi_close        (vTHX->Imulti_close)
  577. #define PL_multi_end        (vTHX->Imulti_end)
  578. #define PL_multi_open        (vTHX->Imulti_open)
  579. #define PL_multi_start        (vTHX->Imulti_start)
  580. #define PL_multiline        (vTHX->Imultiline)
  581. #define PL_nexttoke        (vTHX->Inexttoke)
  582. #define PL_nexttype        (vTHX->Inexttype)
  583. #define PL_nextval        (vTHX->Inextval)
  584. #define PL_nice_chunk        (vTHX->Inice_chunk)
  585. #define PL_nice_chunk_size    (vTHX->Inice_chunk_size)
  586. #define PL_nomemok        (vTHX->Inomemok)
  587. #define PL_nthreads        (vTHX->Inthreads)
  588. #define PL_nthreads_cond    (vTHX->Inthreads_cond)
  589. #define PL_numeric_local    (vTHX->Inumeric_local)
  590. #define PL_numeric_name        (vTHX->Inumeric_name)
  591. #define PL_numeric_radix    (vTHX->Inumeric_radix)
  592. #define PL_numeric_standard    (vTHX->Inumeric_standard)
  593. #define PL_ofmt            (vTHX->Iofmt)
  594. #define PL_oldbufptr        (vTHX->Ioldbufptr)
  595. #define PL_oldname        (vTHX->Ioldname)
  596. #define PL_oldoldbufptr        (vTHX->Ioldoldbufptr)
  597. #define PL_op_mask        (vTHX->Iop_mask)
  598. #define PL_op_seqmax        (vTHX->Iop_seqmax)
  599. #define PL_origalen        (vTHX->Iorigalen)
  600. #define PL_origargc        (vTHX->Iorigargc)
  601. #define PL_origargv        (vTHX->Iorigargv)
  602. #define PL_origenviron        (vTHX->Iorigenviron)
  603. #define PL_origfilename        (vTHX->Iorigfilename)
  604. #define PL_ors            (vTHX->Iors)
  605. #define PL_orslen        (vTHX->Iorslen)
  606. #define PL_osname        (vTHX->Iosname)
  607. #define PL_pad_reset_pending    (vTHX->Ipad_reset_pending)
  608. #define PL_padix        (vTHX->Ipadix)
  609. #define PL_padix_floor        (vTHX->Ipadix_floor)
  610. #define PL_patchlevel        (vTHX->Ipatchlevel)
  611. #define PL_pending_ident    (vTHX->Ipending_ident)
  612. #define PL_perl_destruct_level    (vTHX->Iperl_destruct_level)
  613. #define PL_perldb        (vTHX->Iperldb)
  614. #define PL_pidstatus        (vTHX->Ipidstatus)
  615. #define PL_preambleav        (vTHX->Ipreambleav)
  616. #define PL_preambled        (vTHX->Ipreambled)
  617. #define PL_preprocess        (vTHX->Ipreprocess)
  618. #define PL_profiledata        (vTHX->Iprofiledata)
  619. #define PL_psig_name        (vTHX->Ipsig_name)
  620. #define PL_psig_ptr        (vTHX->Ipsig_ptr)
  621. #define PL_ptr_table        (vTHX->Iptr_table)
  622. #define PL_replgv        (vTHX->Ireplgv)
  623. #define PL_rsfp            (vTHX->Irsfp)
  624. #define PL_rsfp_filters        (vTHX->Irsfp_filters)
  625. #define PL_runops        (vTHX->Irunops)
  626. #define PL_sawampersand        (vTHX->Isawampersand)
  627. #define PL_sh_path        (vTHX->Ish_path)
  628. #define PL_sighandlerp        (vTHX->Isighandlerp)
  629. #define PL_splitstr        (vTHX->Isplitstr)
  630. #define PL_srand_called        (vTHX->Isrand_called)
  631. #define PL_statusvalue        (vTHX->Istatusvalue)
  632. #define PL_statusvalue_vms    (vTHX->Istatusvalue_vms)
  633. #define PL_stderrgv        (vTHX->Istderrgv)
  634. #define PL_stdingv        (vTHX->Istdingv)
  635. #define PL_strtab        (vTHX->Istrtab)
  636. #define PL_strtab_mutex        (vTHX->Istrtab_mutex)
  637. #define PL_sub_generation    (vTHX->Isub_generation)
  638. #define PL_sublex_info        (vTHX->Isublex_info)
  639. #define PL_subline        (vTHX->Isubline)
  640. #define PL_subname        (vTHX->Isubname)
  641. #define PL_sv_arenaroot        (vTHX->Isv_arenaroot)
  642. #define PL_sv_count        (vTHX->Isv_count)
  643. #define PL_sv_mutex        (vTHX->Isv_mutex)
  644. #define PL_sv_no        (vTHX->Isv_no)
  645. #define PL_sv_objcount        (vTHX->Isv_objcount)
  646. #define PL_sv_root        (vTHX->Isv_root)
  647. #define PL_sv_undef        (vTHX->Isv_undef)
  648. #define PL_sv_yes        (vTHX->Isv_yes)
  649. #define PL_svref_mutex        (vTHX->Isvref_mutex)
  650. #define PL_sys_intern        (vTHX->Isys_intern)
  651. #define PL_tainting        (vTHX->Itainting)
  652. #define PL_threadnum        (vTHX->Ithreadnum)
  653. #define PL_threads_mutex    (vTHX->Ithreads_mutex)
  654. #define PL_threadsv_names    (vTHX->Ithreadsv_names)
  655. #define PL_thrsv        (vTHX->Ithrsv)
  656. #define PL_tokenbuf        (vTHX->Itokenbuf)
  657. #define PL_uid            (vTHX->Iuid)
  658. #define PL_unsafe        (vTHX->Iunsafe)
  659. #define PL_utf8_alnum        (vTHX->Iutf8_alnum)
  660. #define PL_utf8_alnumc        (vTHX->Iutf8_alnumc)
  661. #define PL_utf8_alpha        (vTHX->Iutf8_alpha)
  662. #define PL_utf8_ascii        (vTHX->Iutf8_ascii)
  663. #define PL_utf8_cntrl        (vTHX->Iutf8_cntrl)
  664. #define PL_utf8_digit        (vTHX->Iutf8_digit)
  665. #define PL_utf8_graph        (vTHX->Iutf8_graph)
  666. #define PL_utf8_lower        (vTHX->Iutf8_lower)
  667. #define PL_utf8_mark        (vTHX->Iutf8_mark)
  668. #define PL_utf8_print        (vTHX->Iutf8_print)
  669. #define PL_utf8_punct        (vTHX->Iutf8_punct)
  670. #define PL_utf8_space        (vTHX->Iutf8_space)
  671. #define PL_utf8_tolower        (vTHX->Iutf8_tolower)
  672. #define PL_utf8_totitle        (vTHX->Iutf8_totitle)
  673. #define PL_utf8_toupper        (vTHX->Iutf8_toupper)
  674. #define PL_utf8_upper        (vTHX->Iutf8_upper)
  675. #define PL_utf8_xdigit        (vTHX->Iutf8_xdigit)
  676. #define PL_uudmap        (vTHX->Iuudmap)
  677. #define PL_warnhook        (vTHX->Iwarnhook)
  678. #define PL_widesyscalls        (vTHX->Iwidesyscalls)
  679. #define PL_xiv_arenaroot    (vTHX->Ixiv_arenaroot)
  680. #define PL_xiv_root        (vTHX->Ixiv_root)
  681. #define PL_xnv_root        (vTHX->Ixnv_root)
  682. #define PL_xpv_root        (vTHX->Ixpv_root)
  683. #define PL_xpvav_root        (vTHX->Ixpvav_root)
  684. #define PL_xpvbm_root        (vTHX->Ixpvbm_root)
  685. #define PL_xpvcv_root        (vTHX->Ixpvcv_root)
  686. #define PL_xpvhv_root        (vTHX->Ixpvhv_root)
  687. #define PL_xpviv_root        (vTHX->Ixpviv_root)
  688. #define PL_xpvlv_root        (vTHX->Ixpvlv_root)
  689. #define PL_xpvmg_root        (vTHX->Ixpvmg_root)
  690. #define PL_xpvnv_root        (vTHX->Ixpvnv_root)
  691. #define PL_xrv_root        (vTHX->Ixrv_root)
  692. #define PL_yychar        (vTHX->Iyychar)
  693. #define PL_yydebug        (vTHX->Iyydebug)
  694. #define PL_yyerrflag        (vTHX->Iyyerrflag)
  695. #define PL_yylval        (vTHX->Iyylval)
  696. #define PL_yynerrs        (vTHX->Iyynerrs)
  697. #define PL_yyval        (vTHX->Iyyval)
  698.  
  699. #  endif    /* USE_THREADS */
  700.  
  701. #else    /* !MULTIPLICITY */
  702.  
  703. #  if defined(PERL_OBJECT)
  704. /* case 6 above */
  705.  
  706. #define PL_Sv            (aTHXo->interp.TSv)
  707. #define PL_Xpv            (aTHXo->interp.TXpv)
  708. #define PL_av_fetch_sv        (aTHXo->interp.Tav_fetch_sv)
  709. #define PL_bodytarget        (aTHXo->interp.Tbodytarget)
  710. #define PL_bostr        (aTHXo->interp.Tbostr)
  711. #define PL_chopset        (aTHXo->interp.Tchopset)
  712. #define PL_colors        (aTHXo->interp.Tcolors)
  713. #define PL_colorset        (aTHXo->interp.Tcolorset)
  714. #define PL_curcop        (aTHXo->interp.Tcurcop)
  715. #define PL_curpad        (aTHXo->interp.Tcurpad)
  716. #define PL_curpm        (aTHXo->interp.Tcurpm)
  717. #define PL_curstack        (aTHXo->interp.Tcurstack)
  718. #define PL_curstackinfo        (aTHXo->interp.Tcurstackinfo)
  719. #define PL_curstash        (aTHXo->interp.Tcurstash)
  720. #define PL_defoutgv        (aTHXo->interp.Tdefoutgv)
  721. #define PL_defstash        (aTHXo->interp.Tdefstash)
  722. #define PL_delaymagic        (aTHXo->interp.Tdelaymagic)
  723. #define PL_dirty        (aTHXo->interp.Tdirty)
  724. #define PL_dumpindent        (aTHXo->interp.Tdumpindent)
  725. #define PL_efloatbuf        (aTHXo->interp.Tefloatbuf)
  726. #define PL_efloatsize        (aTHXo->interp.Tefloatsize)
  727. #define PL_errors        (aTHXo->interp.Terrors)
  728. #define PL_extralen        (aTHXo->interp.Textralen)
  729. #define PL_firstgv        (aTHXo->interp.Tfirstgv)
  730. #define PL_formtarget        (aTHXo->interp.Tformtarget)
  731. #define PL_hv_fetch_ent_mh    (aTHXo->interp.Thv_fetch_ent_mh)
  732. #define PL_hv_fetch_sv        (aTHXo->interp.Thv_fetch_sv)
  733. #define PL_in_eval        (aTHXo->interp.Tin_eval)
  734. #define PL_last_in_gv        (aTHXo->interp.Tlast_in_gv)
  735. #define PL_lastgotoprobe    (aTHXo->interp.Tlastgotoprobe)
  736. #define PL_lastscream        (aTHXo->interp.Tlastscream)
  737. #define PL_localizing        (aTHXo->interp.Tlocalizing)
  738. #define PL_mainstack        (aTHXo->interp.Tmainstack)
  739. #define PL_markstack        (aTHXo->interp.Tmarkstack)
  740. #define PL_markstack_max    (aTHXo->interp.Tmarkstack_max)
  741. #define PL_markstack_ptr    (aTHXo->interp.Tmarkstack_ptr)
  742. #define PL_maxscream        (aTHXo->interp.Tmaxscream)
  743. #define PL_modcount        (aTHXo->interp.Tmodcount)
  744. #define PL_na            (aTHXo->interp.Tna)
  745. #define PL_nrs            (aTHXo->interp.Tnrs)
  746. #define PL_ofs            (aTHXo->interp.Tofs)
  747. #define PL_ofslen        (aTHXo->interp.Tofslen)
  748. #define PL_op            (aTHXo->interp.Top)
  749. #define PL_opsave        (aTHXo->interp.Topsave)
  750. #define PL_protect        (aTHXo->interp.Tprotect)
  751. #define PL_reg_call_cc        (aTHXo->interp.Treg_call_cc)
  752. #define PL_reg_curpm        (aTHXo->interp.Treg_curpm)
  753. #define PL_reg_eval_set        (aTHXo->interp.Treg_eval_set)
  754. #define PL_reg_flags        (aTHXo->interp.Treg_flags)
  755. #define PL_reg_ganch        (aTHXo->interp.Treg_ganch)
  756. #define PL_reg_leftiter        (aTHXo->interp.Treg_leftiter)
  757. #define PL_reg_magic        (aTHXo->interp.Treg_magic)
  758. #define PL_reg_maxiter        (aTHXo->interp.Treg_maxiter)
  759. #define PL_reg_oldcurpm        (aTHXo->interp.Treg_oldcurpm)
  760. #define PL_reg_oldpos        (aTHXo->interp.Treg_oldpos)
  761. #define PL_reg_oldsaved        (aTHXo->interp.Treg_oldsaved)
  762. #define PL_reg_oldsavedlen    (aTHXo->interp.Treg_oldsavedlen)
  763. #define PL_reg_poscache        (aTHXo->interp.Treg_poscache)
  764. #define PL_reg_poscache_size    (aTHXo->interp.Treg_poscache_size)
  765. #define PL_reg_re        (aTHXo->interp.Treg_re)
  766. #define PL_reg_start_tmp    (aTHXo->interp.Treg_start_tmp)
  767. #define PL_reg_start_tmpl    (aTHXo->interp.Treg_start_tmpl)
  768. #define PL_reg_starttry        (aTHXo->interp.Treg_starttry)
  769. #define PL_reg_sv        (aTHXo->interp.Treg_sv)
  770. #define PL_reg_whilem_seen    (aTHXo->interp.Treg_whilem_seen)
  771. #define PL_regbol        (aTHXo->interp.Tregbol)
  772. #define PL_regcc        (aTHXo->interp.Tregcc)
  773. #define PL_regcode        (aTHXo->interp.Tregcode)
  774. #define PL_regcomp_parse    (aTHXo->interp.Tregcomp_parse)
  775. #define PL_regcomp_rx        (aTHXo->interp.Tregcomp_rx)
  776. #define PL_regcompp        (aTHXo->interp.Tregcompp)
  777. #define PL_regdata        (aTHXo->interp.Tregdata)
  778. #define PL_regdummy        (aTHXo->interp.Tregdummy)
  779. #define PL_regendp        (aTHXo->interp.Tregendp)
  780. #define PL_regeol        (aTHXo->interp.Tregeol)
  781. #define PL_regexecp        (aTHXo->interp.Tregexecp)
  782. #define PL_regflags        (aTHXo->interp.Tregflags)
  783. #define PL_regfree        (aTHXo->interp.Tregfree)
  784. #define PL_regindent        (aTHXo->interp.Tregindent)
  785. #define PL_reginput        (aTHXo->interp.Treginput)
  786. #define PL_regint_start        (aTHXo->interp.Tregint_start)
  787. #define PL_regint_string    (aTHXo->interp.Tregint_string)
  788. #define PL_reginterp_cnt    (aTHXo->interp.Treginterp_cnt)
  789. #define PL_reglastparen        (aTHXo->interp.Treglastparen)
  790. #define PL_regnarrate        (aTHXo->interp.Tregnarrate)
  791. #define PL_regnaughty        (aTHXo->interp.Tregnaughty)
  792. #define PL_regnpar        (aTHXo->interp.Tregnpar)
  793. #define PL_regprecomp        (aTHXo->interp.Tregprecomp)
  794. #define PL_regprev        (aTHXo->interp.Tregprev)
  795. #define PL_regprogram        (aTHXo->interp.Tregprogram)
  796. #define PL_regsawback        (aTHXo->interp.Tregsawback)
  797. #define PL_regseen        (aTHXo->interp.Tregseen)
  798. #define PL_regsize        (aTHXo->interp.Tregsize)
  799. #define PL_regstartp        (aTHXo->interp.Tregstartp)
  800. #define PL_regtill        (aTHXo->interp.Tregtill)
  801. #define PL_regxend        (aTHXo->interp.Tregxend)
  802. #define PL_restartop        (aTHXo->interp.Trestartop)
  803. #define PL_retstack        (aTHXo->interp.Tretstack)
  804. #define PL_retstack_ix        (aTHXo->interp.Tretstack_ix)
  805. #define PL_retstack_max        (aTHXo->interp.Tretstack_max)
  806. #define PL_rs            (aTHXo->interp.Trs)
  807. #define PL_savestack        (aTHXo->interp.Tsavestack)
  808. #define PL_savestack_ix        (aTHXo->interp.Tsavestack_ix)
  809. #define PL_savestack_max    (aTHXo->interp.Tsavestack_max)
  810. #define PL_scopestack        (aTHXo->interp.Tscopestack)
  811. #define PL_scopestack_ix    (aTHXo->interp.Tscopestack_ix)
  812. #define PL_scopestack_max    (aTHXo->interp.Tscopestack_max)
  813. #define PL_screamfirst        (aTHXo->interp.Tscreamfirst)
  814. #define PL_screamnext        (aTHXo->interp.Tscreamnext)
  815. #define PL_secondgv        (aTHXo->interp.Tsecondgv)
  816. #define PL_seen_evals        (aTHXo->interp.Tseen_evals)
  817. #define PL_seen_zerolen        (aTHXo->interp.Tseen_zerolen)
  818. #define PL_sortcop        (aTHXo->interp.Tsortcop)
  819. #define PL_sortcxix        (aTHXo->interp.Tsortcxix)
  820. #define PL_sortstash        (aTHXo->interp.Tsortstash)
  821. #define PL_stack_base        (aTHXo->interp.Tstack_base)
  822. #define PL_stack_max        (aTHXo->interp.Tstack_max)
  823. #define PL_stack_sp        (aTHXo->interp.Tstack_sp)
  824. #define PL_start_env        (aTHXo->interp.Tstart_env)
  825. #define PL_statbuf        (aTHXo->interp.Tstatbuf)
  826. #define PL_statcache        (aTHXo->interp.Tstatcache)
  827. #define PL_statgv        (aTHXo->interp.Tstatgv)
  828. #define PL_statname        (aTHXo->interp.Tstatname)
  829. #define PL_tainted        (aTHXo->interp.Ttainted)
  830. #define PL_timesbuf        (aTHXo->interp.Ttimesbuf)
  831. #define PL_tmps_floor        (aTHXo->interp.Ttmps_floor)
  832. #define PL_tmps_ix        (aTHXo->interp.Ttmps_ix)
  833. #define PL_tmps_max        (aTHXo->interp.Ttmps_max)
  834. #define PL_tmps_stack        (aTHXo->interp.Ttmps_stack)
  835. #define PL_top_env        (aTHXo->interp.Ttop_env)
  836. #define PL_toptarget        (aTHXo->interp.Ttoptarget)
  837. #define PL_watchaddr        (aTHXo->interp.Twatchaddr)
  838. #define PL_watchok        (aTHXo->interp.Twatchok)
  839. #define PL_Argv            (aTHXo->interp.IArgv)
  840. #define PL_Cmd            (aTHXo->interp.ICmd)
  841. #define PL_DBcv            (aTHXo->interp.IDBcv)
  842. #define PL_DBgv            (aTHXo->interp.IDBgv)
  843. #define PL_DBline        (aTHXo->interp.IDBline)
  844. #define PL_DBsignal        (aTHXo->interp.IDBsignal)
  845. #define PL_DBsingle        (aTHXo->interp.IDBsingle)
  846. #define PL_DBsub        (aTHXo->interp.IDBsub)
  847. #define PL_DBtrace        (aTHXo->interp.IDBtrace)
  848. #define PL_Dir            (aTHXo->interp.IDir)
  849. #define PL_Env            (aTHXo->interp.IEnv)
  850. #define PL_LIO            (aTHXo->interp.ILIO)
  851. #define PL_Mem            (aTHXo->interp.IMem)
  852. #define PL_MemParse        (aTHXo->interp.IMemParse)
  853. #define PL_MemShared        (aTHXo->interp.IMemShared)
  854. #define PL_Proc            (aTHXo->interp.IProc)
  855. #define PL_Sock            (aTHXo->interp.ISock)
  856. #define PL_StdIO        (aTHXo->interp.IStdIO)
  857. #define PL_amagic_generation    (aTHXo->interp.Iamagic_generation)
  858. #define PL_an            (aTHXo->interp.Ian)
  859. #define PL_argvgv        (aTHXo->interp.Iargvgv)
  860. #define PL_argvout_stack    (aTHXo->interp.Iargvout_stack)
  861. #define PL_argvoutgv        (aTHXo->interp.Iargvoutgv)
  862. #define PL_basetime        (aTHXo->interp.Ibasetime)
  863. #define PL_beginav        (aTHXo->interp.Ibeginav)
  864. #define PL_bitcount        (aTHXo->interp.Ibitcount)
  865. #define PL_bufend        (aTHXo->interp.Ibufend)
  866. #define PL_bufptr        (aTHXo->interp.Ibufptr)
  867. #define PL_checkav        (aTHXo->interp.Icheckav)
  868. #define PL_collation_ix        (aTHXo->interp.Icollation_ix)
  869. #define PL_collation_name    (aTHXo->interp.Icollation_name)
  870. #define PL_collation_standard    (aTHXo->interp.Icollation_standard)
  871. #define PL_collxfrm_base    (aTHXo->interp.Icollxfrm_base)
  872. #define PL_collxfrm_mult    (aTHXo->interp.Icollxfrm_mult)
  873. #define PL_compcv        (aTHXo->interp.Icompcv)
  874. #define PL_compiling        (aTHXo->interp.Icompiling)
  875. #define PL_comppad        (aTHXo->interp.Icomppad)
  876. #define PL_comppad_name        (aTHXo->interp.Icomppad_name)
  877. #define PL_comppad_name_fill    (aTHXo->interp.Icomppad_name_fill)
  878. #define PL_comppad_name_floor    (aTHXo->interp.Icomppad_name_floor)
  879. #define PL_cop_seqmax        (aTHXo->interp.Icop_seqmax)
  880. #define PL_copline        (aTHXo->interp.Icopline)
  881. #define PL_cred_mutex        (aTHXo->interp.Icred_mutex)
  882. #define PL_cryptseen        (aTHXo->interp.Icryptseen)
  883. #define PL_cshlen        (aTHXo->interp.Icshlen)
  884. #define PL_cshname        (aTHXo->interp.Icshname)
  885. #define PL_curcopdb        (aTHXo->interp.Icurcopdb)
  886. #define PL_curstname        (aTHXo->interp.Icurstname)
  887. #define PL_curthr        (aTHXo->interp.Icurthr)
  888. #define PL_dbargs        (aTHXo->interp.Idbargs)
  889. #define PL_debstash        (aTHXo->interp.Idebstash)
  890. #define PL_debug        (aTHXo->interp.Idebug)
  891. #define PL_defgv        (aTHXo->interp.Idefgv)
  892. #define PL_diehook        (aTHXo->interp.Idiehook)
  893. #define PL_doextract        (aTHXo->interp.Idoextract)
  894. #define PL_doswitches        (aTHXo->interp.Idoswitches)
  895. #define PL_dowarn        (aTHXo->interp.Idowarn)
  896. #define PL_e_script        (aTHXo->interp.Ie_script)
  897. #define PL_egid            (aTHXo->interp.Iegid)
  898. #define PL_endav        (aTHXo->interp.Iendav)
  899. #define PL_envgv        (aTHXo->interp.Ienvgv)
  900. #define PL_errgv        (aTHXo->interp.Ierrgv)
  901. #define PL_error_count        (aTHXo->interp.Ierror_count)
  902. #define PL_euid            (aTHXo->interp.Ieuid)
  903. #define PL_eval_cond        (aTHXo->interp.Ieval_cond)
  904. #define PL_eval_mutex        (aTHXo->interp.Ieval_mutex)
  905. #define PL_eval_owner        (aTHXo->interp.Ieval_owner)
  906. #define PL_eval_root        (aTHXo->interp.Ieval_root)
  907. #define PL_eval_start        (aTHXo->interp.Ieval_start)
  908. #define PL_evalseq        (aTHXo->interp.Ievalseq)
  909. #define PL_exit_flags        (aTHXo->interp.Iexit_flags)
  910. #define PL_exitlist        (aTHXo->interp.Iexitlist)
  911. #define PL_exitlistlen        (aTHXo->interp.Iexitlistlen)
  912. #define PL_expect        (aTHXo->interp.Iexpect)
  913. #define PL_fdpid        (aTHXo->interp.Ifdpid)
  914. #define PL_filemode        (aTHXo->interp.Ifilemode)
  915. #define PL_forkprocess        (aTHXo->interp.Iforkprocess)
  916. #define PL_formfeed        (aTHXo->interp.Iformfeed)
  917. #define PL_generation        (aTHXo->interp.Igeneration)
  918. #define PL_gensym        (aTHXo->interp.Igensym)
  919. #define PL_gid            (aTHXo->interp.Igid)
  920. #define PL_glob_index        (aTHXo->interp.Iglob_index)
  921. #define PL_globalstash        (aTHXo->interp.Iglobalstash)
  922. #define PL_he_root        (aTHXo->interp.Ihe_root)
  923. #define PL_hintgv        (aTHXo->interp.Ihintgv)
  924. #define PL_hints        (aTHXo->interp.Ihints)
  925. #define PL_in_clean_all        (aTHXo->interp.Iin_clean_all)
  926. #define PL_in_clean_objs    (aTHXo->interp.Iin_clean_objs)
  927. #define PL_in_my        (aTHXo->interp.Iin_my)
  928. #define PL_in_my_stash        (aTHXo->interp.Iin_my_stash)
  929. #define PL_incgv        (aTHXo->interp.Iincgv)
  930. #define PL_initav        (aTHXo->interp.Iinitav)
  931. #define PL_inplace        (aTHXo->interp.Iinplace)
  932. #define PL_last_lop        (aTHXo->interp.Ilast_lop)
  933. #define PL_last_lop_op        (aTHXo->interp.Ilast_lop_op)
  934. #define PL_last_swash_hv    (aTHXo->interp.Ilast_swash_hv)
  935. #define PL_last_swash_key    (aTHXo->interp.Ilast_swash_key)
  936. #define PL_last_swash_klen    (aTHXo->interp.Ilast_swash_klen)
  937. #define PL_last_swash_slen    (aTHXo->interp.Ilast_swash_slen)
  938. #define PL_last_swash_tmps    (aTHXo->interp.Ilast_swash_tmps)
  939. #define PL_last_uni        (aTHXo->interp.Ilast_uni)
  940. #define PL_lastfd        (aTHXo->interp.Ilastfd)
  941. #define PL_laststatval        (aTHXo->interp.Ilaststatval)
  942. #define PL_laststype        (aTHXo->interp.Ilaststype)
  943. #define PL_lex_brackets        (aTHXo->interp.Ilex_brackets)
  944. #define PL_lex_brackstack    (aTHXo->interp.Ilex_brackstack)
  945. #define PL_lex_casemods        (aTHXo->interp.Ilex_casemods)
  946. #define PL_lex_casestack    (aTHXo->interp.Ilex_casestack)
  947. #define PL_lex_defer        (aTHXo->interp.Ilex_defer)
  948. #define PL_lex_dojoin        (aTHXo->interp.Ilex_dojoin)
  949. #define PL_lex_expect        (aTHXo->interp.Ilex_expect)
  950. #define PL_lex_formbrack    (aTHXo->interp.Ilex_formbrack)
  951. #define PL_lex_inpat        (aTHXo->interp.Ilex_inpat)
  952. #define PL_lex_inwhat        (aTHXo->interp.Ilex_inwhat)
  953. #define PL_lex_op        (aTHXo->interp.Ilex_op)
  954. #define PL_lex_repl        (aTHXo->interp.Ilex_repl)
  955. #define PL_lex_starts        (aTHXo->interp.Ilex_starts)
  956. #define PL_lex_state        (aTHXo->interp.Ilex_state)
  957. #define PL_lex_stuff        (aTHXo->interp.Ilex_stuff)
  958. #define PL_lineary        (aTHXo->interp.Ilineary)
  959. #define PL_linestart        (aTHXo->interp.Ilinestart)
  960. #define PL_linestr        (aTHXo->interp.Ilinestr)
  961. #define PL_localpatches        (aTHXo->interp.Ilocalpatches)
  962. #define PL_main_cv        (aTHXo->interp.Imain_cv)
  963. #define PL_main_root        (aTHXo->interp.Imain_root)
  964. #define PL_main_start        (aTHXo->interp.Imain_start)
  965. #define PL_max_intro_pending    (aTHXo->interp.Imax_intro_pending)
  966. #define PL_maxo            (aTHXo->interp.Imaxo)
  967. #define PL_maxsysfd        (aTHXo->interp.Imaxsysfd)
  968. #define PL_mess_sv        (aTHXo->interp.Imess_sv)
  969. #define PL_min_intro_pending    (aTHXo->interp.Imin_intro_pending)
  970. #define PL_minus_F        (aTHXo->interp.Iminus_F)
  971. #define PL_minus_a        (aTHXo->interp.Iminus_a)
  972. #define PL_minus_c        (aTHXo->interp.Iminus_c)
  973. #define PL_minus_l        (aTHXo->interp.Iminus_l)
  974. #define PL_minus_n        (aTHXo->interp.Iminus_n)
  975. #define PL_minus_p        (aTHXo->interp.Iminus_p)
  976. #define PL_modglobal        (aTHXo->interp.Imodglobal)
  977. #define PL_multi_close        (aTHXo->interp.Imulti_close)
  978. #define PL_multi_end        (aTHXo->interp.Imulti_end)
  979. #define PL_multi_open        (aTHXo->interp.Imulti_open)
  980. #define PL_multi_start        (aTHXo->interp.Imulti_start)
  981. #define PL_multiline        (aTHXo->interp.Imultiline)
  982. #define PL_nexttoke        (aTHXo->interp.Inexttoke)
  983. #define PL_nexttype        (aTHXo->interp.Inexttype)
  984. #define PL_nextval        (aTHXo->interp.Inextval)
  985. #define PL_nice_chunk        (aTHXo->interp.Inice_chunk)
  986. #define PL_nice_chunk_size    (aTHXo->interp.Inice_chunk_size)
  987. #define PL_nomemok        (aTHXo->interp.Inomemok)
  988. #define PL_nthreads        (aTHXo->interp.Inthreads)
  989. #define PL_nthreads_cond    (aTHXo->interp.Inthreads_cond)
  990. #define PL_numeric_local    (aTHXo->interp.Inumeric_local)
  991. #define PL_numeric_name        (aTHXo->interp.Inumeric_name)
  992. #define PL_numeric_radix    (aTHXo->interp.Inumeric_radix)
  993. #define PL_numeric_standard    (aTHXo->interp.Inumeric_standard)
  994. #define PL_ofmt            (aTHXo->interp.Iofmt)
  995. #define PL_oldbufptr        (aTHXo->interp.Ioldbufptr)
  996. #define PL_oldname        (aTHXo->interp.Ioldname)
  997. #define PL_oldoldbufptr        (aTHXo->interp.Ioldoldbufptr)
  998. #define PL_op_mask        (aTHXo->interp.Iop_mask)
  999. #define PL_op_seqmax        (aTHXo->interp.Iop_seqmax)
  1000. #define PL_origalen        (aTHXo->interp.Iorigalen)
  1001. #define PL_origargc        (aTHXo->interp.Iorigargc)
  1002. #define PL_origargv        (aTHXo->interp.Iorigargv)
  1003. #define PL_origenviron        (aTHXo->interp.Iorigenviron)
  1004. #define PL_origfilename        (aTHXo->interp.Iorigfilename)
  1005. #define PL_ors            (aTHXo->interp.Iors)
  1006. #define PL_orslen        (aTHXo->interp.Iorslen)
  1007. #define PL_osname        (aTHXo->interp.Iosname)
  1008. #define PL_pad_reset_pending    (aTHXo->interp.Ipad_reset_pending)
  1009. #define PL_padix        (aTHXo->interp.Ipadix)
  1010. #define PL_padix_floor        (aTHXo->interp.Ipadix_floor)
  1011. #define PL_patchlevel        (aTHXo->interp.Ipatchlevel)
  1012. #define PL_pending_ident    (aTHXo->interp.Ipending_ident)
  1013. #define PL_perl_destruct_level    (aTHXo->interp.Iperl_destruct_level)
  1014. #define PL_perldb        (aTHXo->interp.Iperldb)
  1015. #define PL_pidstatus        (aTHXo->interp.Ipidstatus)
  1016. #define PL_preambleav        (aTHXo->interp.Ipreambleav)
  1017. #define PL_preambled        (aTHXo->interp.Ipreambled)
  1018. #define PL_preprocess        (aTHXo->interp.Ipreprocess)
  1019. #define PL_profiledata        (aTHXo->interp.Iprofiledata)
  1020. #define PL_psig_name        (aTHXo->interp.Ipsig_name)
  1021. #define PL_psig_ptr        (aTHXo->interp.Ipsig_ptr)
  1022. #define PL_ptr_table        (aTHXo->interp.Iptr_table)
  1023. #define PL_replgv        (aTHXo->interp.Ireplgv)
  1024. #define PL_rsfp            (aTHXo->interp.Irsfp)
  1025. #define PL_rsfp_filters        (aTHXo->interp.Irsfp_filters)
  1026. #define PL_runops        (aTHXo->interp.Irunops)
  1027. #define PL_sawampersand        (aTHXo->interp.Isawampersand)
  1028. #define PL_sh_path        (aTHXo->interp.Ish_path)
  1029. #define PL_sighandlerp        (aTHXo->interp.Isighandlerp)
  1030. #define PL_splitstr        (aTHXo->interp.Isplitstr)
  1031. #define PL_srand_called        (aTHXo->interp.Isrand_called)
  1032. #define PL_statusvalue        (aTHXo->interp.Istatusvalue)
  1033. #define PL_statusvalue_vms    (aTHXo->interp.Istatusvalue_vms)
  1034. #define PL_stderrgv        (aTHXo->interp.Istderrgv)
  1035. #define PL_stdingv        (aTHXo->interp.Istdingv)
  1036. #define PL_strtab        (aTHXo->interp.Istrtab)
  1037. #define PL_strtab_mutex        (aTHXo->interp.Istrtab_mutex)
  1038. #define PL_sub_generation    (aTHXo->interp.Isub_generation)
  1039. #define PL_sublex_info        (aTHXo->interp.Isublex_info)
  1040. #define PL_subline        (aTHXo->interp.Isubline)
  1041. #define PL_subname        (aTHXo->interp.Isubname)
  1042. #define PL_sv_arenaroot        (aTHXo->interp.Isv_arenaroot)
  1043. #define PL_sv_count        (aTHXo->interp.Isv_count)
  1044. #define PL_sv_mutex        (aTHXo->interp.Isv_mutex)
  1045. #define PL_sv_no        (aTHXo->interp.Isv_no)
  1046. #define PL_sv_objcount        (aTHXo->interp.Isv_objcount)
  1047. #define PL_sv_root        (aTHXo->interp.Isv_root)
  1048. #define PL_sv_undef        (aTHXo->interp.Isv_undef)
  1049. #define PL_sv_yes        (aTHXo->interp.Isv_yes)
  1050. #define PL_svref_mutex        (aTHXo->interp.Isvref_mutex)
  1051. #define PL_sys_intern        (aTHXo->interp.Isys_intern)
  1052. #define PL_tainting        (aTHXo->interp.Itainting)
  1053. #define PL_threadnum        (aTHXo->interp.Ithreadnum)
  1054. #define PL_threads_mutex    (aTHXo->interp.Ithreads_mutex)
  1055. #define PL_threadsv_names    (aTHXo->interp.Ithreadsv_names)
  1056. #define PL_thrsv        (aTHXo->interp.Ithrsv)
  1057. #define PL_tokenbuf        (aTHXo->interp.Itokenbuf)
  1058. #define PL_uid            (aTHXo->interp.Iuid)
  1059. #define PL_unsafe        (aTHXo->interp.Iunsafe)
  1060. #define PL_utf8_alnum        (aTHXo->interp.Iutf8_alnum)
  1061. #define PL_utf8_alnumc        (aTHXo->interp.Iutf8_alnumc)
  1062. #define PL_utf8_alpha        (aTHXo->interp.Iutf8_alpha)
  1063. #define PL_utf8_ascii        (aTHXo->interp.Iutf8_ascii)
  1064. #define PL_utf8_cntrl        (aTHXo->interp.Iutf8_cntrl)
  1065. #define PL_utf8_digit        (aTHXo->interp.Iutf8_digit)
  1066. #define PL_utf8_graph        (aTHXo->interp.Iutf8_graph)
  1067. #define PL_utf8_lower        (aTHXo->interp.Iutf8_lower)
  1068. #define PL_utf8_mark        (aTHXo->interp.Iutf8_mark)
  1069. #define PL_utf8_print        (aTHXo->interp.Iutf8_print)
  1070. #define PL_utf8_punct        (aTHXo->interp.Iutf8_punct)
  1071. #define PL_utf8_space        (aTHXo->interp.Iutf8_space)
  1072. #define PL_utf8_tolower        (aTHXo->interp.Iutf8_tolower)
  1073. #define PL_utf8_totitle        (aTHXo->interp.Iutf8_totitle)
  1074. #define PL_utf8_toupper        (aTHXo->interp.Iutf8_toupper)
  1075. #define PL_utf8_upper        (aTHXo->interp.Iutf8_upper)
  1076. #define PL_utf8_xdigit        (aTHXo->interp.Iutf8_xdigit)
  1077. #define PL_uudmap        (aTHXo->interp.Iuudmap)
  1078. #define PL_warnhook        (aTHXo->interp.Iwarnhook)
  1079. #define PL_widesyscalls        (aTHXo->interp.Iwidesyscalls)
  1080. #define PL_xiv_arenaroot    (aTHXo->interp.Ixiv_arenaroot)
  1081. #define PL_xiv_root        (aTHXo->interp.Ixiv_root)
  1082. #define PL_xnv_root        (aTHXo->interp.Ixnv_root)
  1083. #define PL_xpv_root        (aTHXo->interp.Ixpv_root)
  1084. #define PL_xpvav_root        (aTHXo->interp.Ixpvav_root)
  1085. #define PL_xpvbm_root        (aTHXo->interp.Ixpvbm_root)
  1086. #define PL_xpvcv_root        (aTHXo->interp.Ixpvcv_root)
  1087. #define PL_xpvhv_root        (aTHXo->interp.Ixpvhv_root)
  1088. #define PL_xpviv_root        (aTHXo->interp.Ixpviv_root)
  1089. #define PL_xpvlv_root        (aTHXo->interp.Ixpvlv_root)
  1090. #define PL_xpvmg_root        (aTHXo->interp.Ixpvmg_root)
  1091. #define PL_xpvnv_root        (aTHXo->interp.Ixpvnv_root)
  1092. #define PL_xrv_root        (aTHXo->interp.Ixrv_root)
  1093. #define PL_yychar        (aTHXo->interp.Iyychar)
  1094. #define PL_yydebug        (aTHXo->interp.Iyydebug)
  1095. #define PL_yyerrflag        (aTHXo->interp.Iyyerrflag)
  1096. #define PL_yylval        (aTHXo->interp.Iyylval)
  1097. #define PL_yynerrs        (aTHXo->interp.Iyynerrs)
  1098. #define PL_yyval        (aTHXo->interp.Iyyval)
  1099.  
  1100. #  else    /* !PERL_OBJECT */
  1101.  
  1102. /* cases 1 and 4 above */
  1103.  
  1104. #define PL_IArgv        PL_Argv
  1105. #define PL_ICmd            PL_Cmd
  1106. #define PL_IDBcv        PL_DBcv
  1107. #define PL_IDBgv        PL_DBgv
  1108. #define PL_IDBline        PL_DBline
  1109. #define PL_IDBsignal        PL_DBsignal
  1110. #define PL_IDBsingle        PL_DBsingle
  1111. #define PL_IDBsub        PL_DBsub
  1112. #define PL_IDBtrace        PL_DBtrace
  1113. #define PL_IDir            PL_Dir
  1114. #define PL_IEnv            PL_Env
  1115. #define PL_ILIO            PL_LIO
  1116. #define PL_IMem            PL_Mem
  1117. #define PL_IMemParse        PL_MemParse
  1118. #define PL_IMemShared        PL_MemShared
  1119. #define PL_IProc        PL_Proc
  1120. #define PL_ISock        PL_Sock
  1121. #define PL_IStdIO        PL_StdIO
  1122. #define PL_Iamagic_generation    PL_amagic_generation
  1123. #define PL_Ian            PL_an
  1124. #define PL_Iargvgv        PL_argvgv
  1125. #define PL_Iargvout_stack    PL_argvout_stack
  1126. #define PL_Iargvoutgv        PL_argvoutgv
  1127. #define PL_Ibasetime        PL_basetime
  1128. #define PL_Ibeginav        PL_beginav
  1129. #define PL_Ibitcount        PL_bitcount
  1130. #define PL_Ibufend        PL_bufend
  1131. #define PL_Ibufptr        PL_bufptr
  1132. #define PL_Icheckav        PL_checkav
  1133. #define PL_Icollation_ix    PL_collation_ix
  1134. #define PL_Icollation_name    PL_collation_name
  1135. #define PL_Icollation_standard    PL_collation_standard
  1136. #define PL_Icollxfrm_base    PL_collxfrm_base
  1137. #define PL_Icollxfrm_mult    PL_collxfrm_mult
  1138. #define PL_Icompcv        PL_compcv
  1139. #define PL_Icompiling        PL_compiling
  1140. #define PL_Icomppad        PL_comppad
  1141. #define PL_Icomppad_name    PL_comppad_name
  1142. #define PL_Icomppad_name_fill    PL_comppad_name_fill
  1143. #define PL_Icomppad_name_floor    PL_comppad_name_floor
  1144. #define PL_Icop_seqmax        PL_cop_seqmax
  1145. #define PL_Icopline        PL_copline
  1146. #define PL_Icred_mutex        PL_cred_mutex
  1147. #define PL_Icryptseen        PL_cryptseen
  1148. #define PL_Icshlen        PL_cshlen
  1149. #define PL_Icshname        PL_cshname
  1150. #define PL_Icurcopdb        PL_curcopdb
  1151. #define PL_Icurstname        PL_curstname
  1152. #define PL_Icurthr        PL_curthr
  1153. #define PL_Idbargs        PL_dbargs
  1154. #define PL_Idebstash        PL_debstash
  1155. #define PL_Idebug        PL_debug
  1156. #define PL_Idefgv        PL_defgv
  1157. #define PL_Idiehook        PL_diehook
  1158. #define PL_Idoextract        PL_doextract
  1159. #define PL_Idoswitches        PL_doswitches
  1160. #define PL_Idowarn        PL_dowarn
  1161. #define PL_Ie_script        PL_e_script
  1162. #define PL_Iegid        PL_egid
  1163. #define PL_Iendav        PL_endav
  1164. #define PL_Ienvgv        PL_envgv
  1165. #define PL_Ierrgv        PL_errgv
  1166. #define PL_Ierror_count        PL_error_count
  1167. #define PL_Ieuid        PL_euid
  1168. #define PL_Ieval_cond        PL_eval_cond
  1169. #define PL_Ieval_mutex        PL_eval_mutex
  1170. #define PL_Ieval_owner        PL_eval_owner
  1171. #define PL_Ieval_root        PL_eval_root
  1172. #define PL_Ieval_start        PL_eval_start
  1173. #define PL_Ievalseq        PL_evalseq
  1174. #define PL_Iexit_flags        PL_exit_flags
  1175. #define PL_Iexitlist        PL_exitlist
  1176. #define PL_Iexitlistlen        PL_exitlistlen
  1177. #define PL_Iexpect        PL_expect
  1178. #define PL_Ifdpid        PL_fdpid
  1179. #define PL_Ifilemode        PL_filemode
  1180. #define PL_Iforkprocess        PL_forkprocess
  1181. #define PL_Iformfeed        PL_formfeed
  1182. #define PL_Igeneration        PL_generation
  1183. #define PL_Igensym        PL_gensym
  1184. #define PL_Igid            PL_gid
  1185. #define PL_Iglob_index        PL_glob_index
  1186. #define PL_Iglobalstash        PL_globalstash
  1187. #define PL_Ihe_root        PL_he_root
  1188. #define PL_Ihintgv        PL_hintgv
  1189. #define PL_Ihints        PL_hints
  1190. #define PL_Iin_clean_all    PL_in_clean_all
  1191. #define PL_Iin_clean_objs    PL_in_clean_objs
  1192. #define PL_Iin_my        PL_in_my
  1193. #define PL_Iin_my_stash        PL_in_my_stash
  1194. #define PL_Iincgv        PL_incgv
  1195. #define PL_Iinitav        PL_initav
  1196. #define PL_Iinplace        PL_inplace
  1197. #define PL_Ilast_lop        PL_last_lop
  1198. #define PL_Ilast_lop_op        PL_last_lop_op
  1199. #define PL_Ilast_swash_hv    PL_last_swash_hv
  1200. #define PL_Ilast_swash_key    PL_last_swash_key
  1201. #define PL_Ilast_swash_klen    PL_last_swash_klen
  1202. #define PL_Ilast_swash_slen    PL_last_swash_slen
  1203. #define PL_Ilast_swash_tmps    PL_last_swash_tmps
  1204. #define PL_Ilast_uni        PL_last_uni
  1205. #define PL_Ilastfd        PL_lastfd
  1206. #define PL_Ilaststatval        PL_laststatval
  1207. #define PL_Ilaststype        PL_laststype
  1208. #define PL_Ilex_brackets    PL_lex_brackets
  1209. #define PL_Ilex_brackstack    PL_lex_brackstack
  1210. #define PL_Ilex_casemods    PL_lex_casemods
  1211. #define PL_Ilex_casestack    PL_lex_casestack
  1212. #define PL_Ilex_defer        PL_lex_defer
  1213. #define PL_Ilex_dojoin        PL_lex_dojoin
  1214. #define PL_Ilex_expect        PL_lex_expect
  1215. #define PL_Ilex_formbrack    PL_lex_formbrack
  1216. #define PL_Ilex_inpat        PL_lex_inpat
  1217. #define PL_Ilex_inwhat        PL_lex_inwhat
  1218. #define PL_Ilex_op        PL_lex_op
  1219. #define PL_Ilex_repl        PL_lex_repl
  1220. #define PL_Ilex_starts        PL_lex_starts
  1221. #define PL_Ilex_state        PL_lex_state
  1222. #define PL_Ilex_stuff        PL_lex_stuff
  1223. #define PL_Ilineary        PL_lineary
  1224. #define PL_Ilinestart        PL_linestart
  1225. #define PL_Ilinestr        PL_linestr
  1226. #define PL_Ilocalpatches    PL_localpatches
  1227. #define PL_Imain_cv        PL_main_cv
  1228. #define PL_Imain_root        PL_main_root
  1229. #define PL_Imain_start        PL_main_start
  1230. #define PL_Imax_intro_pending    PL_max_intro_pending
  1231. #define PL_Imaxo        PL_maxo
  1232. #define PL_Imaxsysfd        PL_maxsysfd
  1233. #define PL_Imess_sv        PL_mess_sv
  1234. #define PL_Imin_intro_pending    PL_min_intro_pending
  1235. #define PL_Iminus_F        PL_minus_F
  1236. #define PL_Iminus_a        PL_minus_a
  1237. #define PL_Iminus_c        PL_minus_c
  1238. #define PL_Iminus_l        PL_minus_l
  1239. #define PL_Iminus_n        PL_minus_n
  1240. #define PL_Iminus_p        PL_minus_p
  1241. #define PL_Imodglobal        PL_modglobal
  1242. #define PL_Imulti_close        PL_multi_close
  1243. #define PL_Imulti_end        PL_multi_end
  1244. #define PL_Imulti_open        PL_multi_open
  1245. #define PL_Imulti_start        PL_multi_start
  1246. #define PL_Imultiline        PL_multiline
  1247. #define PL_Inexttoke        PL_nexttoke
  1248. #define PL_Inexttype        PL_nexttype
  1249. #define PL_Inextval        PL_nextval
  1250. #define PL_Inice_chunk        PL_nice_chunk
  1251. #define PL_Inice_chunk_size    PL_nice_chunk_size
  1252. #define PL_Inomemok        PL_nomemok
  1253. #define PL_Inthreads        PL_nthreads
  1254. #define PL_Inthreads_cond    PL_nthreads_cond
  1255. #define PL_Inumeric_local    PL_numeric_local
  1256. #define PL_Inumeric_name    PL_numeric_name
  1257. #define PL_Inumeric_radix    PL_numeric_radix
  1258. #define PL_Inumeric_standard    PL_numeric_standard
  1259. #define PL_Iofmt        PL_ofmt
  1260. #define PL_Ioldbufptr        PL_oldbufptr
  1261. #define PL_Ioldname        PL_oldname
  1262. #define PL_Ioldoldbufptr    PL_oldoldbufptr
  1263. #define PL_Iop_mask        PL_op_mask
  1264. #define PL_Iop_seqmax        PL_op_seqmax
  1265. #define PL_Iorigalen        PL_origalen
  1266. #define PL_Iorigargc        PL_origargc
  1267. #define PL_Iorigargv        PL_origargv
  1268. #define PL_Iorigenviron        PL_origenviron
  1269. #define PL_Iorigfilename    PL_origfilename
  1270. #define PL_Iors            PL_ors
  1271. #define PL_Iorslen        PL_orslen
  1272. #define PL_Iosname        PL_osname
  1273. #define PL_Ipad_reset_pending    PL_pad_reset_pending
  1274. #define PL_Ipadix        PL_padix
  1275. #define PL_Ipadix_floor        PL_padix_floor
  1276. #define PL_Ipatchlevel        PL_patchlevel
  1277. #define PL_Ipending_ident    PL_pending_ident
  1278. #define PL_Iperl_destruct_level    PL_perl_destruct_level
  1279. #define PL_Iperldb        PL_perldb
  1280. #define PL_Ipidstatus        PL_pidstatus
  1281. #define PL_Ipreambleav        PL_preambleav
  1282. #define PL_Ipreambled        PL_preambled
  1283. #define PL_Ipreprocess        PL_preprocess
  1284. #define PL_Iprofiledata        PL_profiledata
  1285. #define PL_Ipsig_name        PL_psig_name
  1286. #define PL_Ipsig_ptr        PL_psig_ptr
  1287. #define PL_Iptr_table        PL_ptr_table
  1288. #define PL_Ireplgv        PL_replgv
  1289. #define PL_Irsfp        PL_rsfp
  1290. #define PL_Irsfp_filters    PL_rsfp_filters
  1291. #define PL_Irunops        PL_runops
  1292. #define PL_Isawampersand    PL_sawampersand
  1293. #define PL_Ish_path        PL_sh_path
  1294. #define PL_Isighandlerp        PL_sighandlerp
  1295. #define PL_Isplitstr        PL_splitstr
  1296. #define PL_Isrand_called    PL_srand_called
  1297. #define PL_Istatusvalue        PL_statusvalue
  1298. #define PL_Istatusvalue_vms    PL_statusvalue_vms
  1299. #define PL_Istderrgv        PL_stderrgv
  1300. #define PL_Istdingv        PL_stdingv
  1301. #define PL_Istrtab        PL_strtab
  1302. #define PL_Istrtab_mutex    PL_strtab_mutex
  1303. #define PL_Isub_generation    PL_sub_generation
  1304. #define PL_Isublex_info        PL_sublex_info
  1305. #define PL_Isubline        PL_subline
  1306. #define PL_Isubname        PL_subname
  1307. #define PL_Isv_arenaroot    PL_sv_arenaroot
  1308. #define PL_Isv_count        PL_sv_count
  1309. #define PL_Isv_mutex        PL_sv_mutex
  1310. #define PL_Isv_no        PL_sv_no
  1311. #define PL_Isv_objcount        PL_sv_objcount
  1312. #define PL_Isv_root        PL_sv_root
  1313. #define PL_Isv_undef        PL_sv_undef
  1314. #define PL_Isv_yes        PL_sv_yes
  1315. #define PL_Isvref_mutex        PL_svref_mutex
  1316. #define PL_Isys_intern        PL_sys_intern
  1317. #define PL_Itainting        PL_tainting
  1318. #define PL_Ithreadnum        PL_threadnum
  1319. #define PL_Ithreads_mutex    PL_threads_mutex
  1320. #define PL_Ithreadsv_names    PL_threadsv_names
  1321. #define PL_Ithrsv        PL_thrsv
  1322. #define PL_Itokenbuf        PL_tokenbuf
  1323. #define PL_Iuid            PL_uid
  1324. #define PL_Iunsafe        PL_unsafe
  1325. #define PL_Iutf8_alnum        PL_utf8_alnum
  1326. #define PL_Iutf8_alnumc        PL_utf8_alnumc
  1327. #define PL_Iutf8_alpha        PL_utf8_alpha
  1328. #define PL_Iutf8_ascii        PL_utf8_ascii
  1329. #define PL_Iutf8_cntrl        PL_utf8_cntrl
  1330. #define PL_Iutf8_digit        PL_utf8_digit
  1331. #define PL_Iutf8_graph        PL_utf8_graph
  1332. #define PL_Iutf8_lower        PL_utf8_lower
  1333. #define PL_Iutf8_mark        PL_utf8_mark
  1334. #define PL_Iutf8_print        PL_utf8_print
  1335. #define PL_Iutf8_punct        PL_utf8_punct
  1336. #define PL_Iutf8_space        PL_utf8_space
  1337. #define PL_Iutf8_tolower    PL_utf8_tolower
  1338. #define PL_Iutf8_totitle    PL_utf8_totitle
  1339. #define PL_Iutf8_toupper    PL_utf8_toupper
  1340. #define PL_Iutf8_upper        PL_utf8_upper
  1341. #define PL_Iutf8_xdigit        PL_utf8_xdigit
  1342. #define PL_Iuudmap        PL_uudmap
  1343. #define PL_Iwarnhook        PL_warnhook
  1344. #define PL_Iwidesyscalls    PL_widesyscalls
  1345. #define PL_Ixiv_arenaroot    PL_xiv_arenaroot
  1346. #define PL_Ixiv_root        PL_xiv_root
  1347. #define PL_Ixnv_root        PL_xnv_root
  1348. #define PL_Ixpv_root        PL_xpv_root
  1349. #define PL_Ixpvav_root        PL_xpvav_root
  1350. #define PL_Ixpvbm_root        PL_xpvbm_root
  1351. #define PL_Ixpvcv_root        PL_xpvcv_root
  1352. #define PL_Ixpvhv_root        PL_xpvhv_root
  1353. #define PL_Ixpviv_root        PL_xpviv_root
  1354. #define PL_Ixpvlv_root        PL_xpvlv_root
  1355. #define PL_Ixpvmg_root        PL_xpvmg_root
  1356. #define PL_Ixpvnv_root        PL_xpvnv_root
  1357. #define PL_Ixrv_root        PL_xrv_root
  1358. #define PL_Iyychar        PL_yychar
  1359. #define PL_Iyydebug        PL_yydebug
  1360. #define PL_Iyyerrflag        PL_yyerrflag
  1361. #define PL_Iyylval        PL_yylval
  1362. #define PL_Iyynerrs        PL_yynerrs
  1363. #define PL_Iyyval        PL_yyval
  1364.  
  1365. #    if defined(USE_THREADS)
  1366. /* case 4 above */
  1367.  
  1368. #define PL_Sv            (aTHX->TSv)
  1369. #define PL_Xpv            (aTHX->TXpv)
  1370. #define PL_av_fetch_sv        (aTHX->Tav_fetch_sv)
  1371. #define PL_bodytarget        (aTHX->Tbodytarget)
  1372. #define PL_bostr        (aTHX->Tbostr)
  1373. #define PL_chopset        (aTHX->Tchopset)
  1374. #define PL_colors        (aTHX->Tcolors)
  1375. #define PL_colorset        (aTHX->Tcolorset)
  1376. #define PL_curcop        (aTHX->Tcurcop)
  1377. #define PL_curpad        (aTHX->Tcurpad)
  1378. #define PL_curpm        (aTHX->Tcurpm)
  1379. #define PL_curstack        (aTHX->Tcurstack)
  1380. #define PL_curstackinfo        (aTHX->Tcurstackinfo)
  1381. #define PL_curstash        (aTHX->Tcurstash)
  1382. #define PL_defoutgv        (aTHX->Tdefoutgv)
  1383. #define PL_defstash        (aTHX->Tdefstash)
  1384. #define PL_delaymagic        (aTHX->Tdelaymagic)
  1385. #define PL_dirty        (aTHX->Tdirty)
  1386. #define PL_dumpindent        (aTHX->Tdumpindent)
  1387. #define PL_efloatbuf        (aTHX->Tefloatbuf)
  1388. #define PL_efloatsize        (aTHX->Tefloatsize)
  1389. #define PL_errors        (aTHX->Terrors)
  1390. #define PL_extralen        (aTHX->Textralen)
  1391. #define PL_firstgv        (aTHX->Tfirstgv)
  1392. #define PL_formtarget        (aTHX->Tformtarget)
  1393. #define PL_hv_fetch_ent_mh    (aTHX->Thv_fetch_ent_mh)
  1394. #define PL_hv_fetch_sv        (aTHX->Thv_fetch_sv)
  1395. #define PL_in_eval        (aTHX->Tin_eval)
  1396. #define PL_last_in_gv        (aTHX->Tlast_in_gv)
  1397. #define PL_lastgotoprobe    (aTHX->Tlastgotoprobe)
  1398. #define PL_lastscream        (aTHX->Tlastscream)
  1399. #define PL_localizing        (aTHX->Tlocalizing)
  1400. #define PL_mainstack        (aTHX->Tmainstack)
  1401. #define PL_markstack        (aTHX->Tmarkstack)
  1402. #define PL_markstack_max    (aTHX->Tmarkstack_max)
  1403. #define PL_markstack_ptr    (aTHX->Tmarkstack_ptr)
  1404. #define PL_maxscream        (aTHX->Tmaxscream)
  1405. #define PL_modcount        (aTHX->Tmodcount)
  1406. #define PL_na            (aTHX->Tna)
  1407. #define PL_nrs            (aTHX->Tnrs)
  1408. #define PL_ofs            (aTHX->Tofs)
  1409. #define PL_ofslen        (aTHX->Tofslen)
  1410. #define PL_op            (aTHX->Top)
  1411. #define PL_opsave        (aTHX->Topsave)
  1412. #define PL_protect        (aTHX->Tprotect)
  1413. #define PL_reg_call_cc        (aTHX->Treg_call_cc)
  1414. #define PL_reg_curpm        (aTHX->Treg_curpm)
  1415. #define PL_reg_eval_set        (aTHX->Treg_eval_set)
  1416. #define PL_reg_flags        (aTHX->Treg_flags)
  1417. #define PL_reg_ganch        (aTHX->Treg_ganch)
  1418. #define PL_reg_leftiter        (aTHX->Treg_leftiter)
  1419. #define PL_reg_magic        (aTHX->Treg_magic)
  1420. #define PL_reg_maxiter        (aTHX->Treg_maxiter)
  1421. #define PL_reg_oldcurpm        (aTHX->Treg_oldcurpm)
  1422. #define PL_reg_oldpos        (aTHX->Treg_oldpos)
  1423. #define PL_reg_oldsaved        (aTHX->Treg_oldsaved)
  1424. #define PL_reg_oldsavedlen    (aTHX->Treg_oldsavedlen)
  1425. #define PL_reg_poscache        (aTHX->Treg_poscache)
  1426. #define PL_reg_poscache_size    (aTHX->Treg_poscache_size)
  1427. #define PL_reg_re        (aTHX->Treg_re)
  1428. #define PL_reg_start_tmp    (aTHX->Treg_start_tmp)
  1429. #define PL_reg_start_tmpl    (aTHX->Treg_start_tmpl)
  1430. #define PL_reg_starttry        (aTHX->Treg_starttry)
  1431. #define PL_reg_sv        (aTHX->Treg_sv)
  1432. #define PL_reg_whilem_seen    (aTHX->Treg_whilem_seen)
  1433. #define PL_regbol        (aTHX->Tregbol)
  1434. #define PL_regcc        (aTHX->Tregcc)
  1435. #define PL_regcode        (aTHX->Tregcode)
  1436. #define PL_regcomp_parse    (aTHX->Tregcomp_parse)
  1437. #define PL_regcomp_rx        (aTHX->Tregcomp_rx)
  1438. #define PL_regcompp        (aTHX->Tregcompp)
  1439. #define PL_regdata        (aTHX->Tregdata)
  1440. #define PL_regdummy        (aTHX->Tregdummy)
  1441. #define PL_regendp        (aTHX->Tregendp)
  1442. #define PL_regeol        (aTHX->Tregeol)
  1443. #define PL_regexecp        (aTHX->Tregexecp)
  1444. #define PL_regflags        (aTHX->Tregflags)
  1445. #define PL_regfree        (aTHX->Tregfree)
  1446. #define PL_regindent        (aTHX->Tregindent)
  1447. #define PL_reginput        (aTHX->Treginput)
  1448. #define PL_regint_start        (aTHX->Tregint_start)
  1449. #define PL_regint_string    (aTHX->Tregint_string)
  1450. #define PL_reginterp_cnt    (aTHX->Treginterp_cnt)
  1451. #define PL_reglastparen        (aTHX->Treglastparen)
  1452. #define PL_regnarrate        (aTHX->Tregnarrate)
  1453. #define PL_regnaughty        (aTHX->Tregnaughty)
  1454. #define PL_regnpar        (aTHX->Tregnpar)
  1455. #define PL_regprecomp        (aTHX->Tregprecomp)
  1456. #define PL_regprev        (aTHX->Tregprev)
  1457. #define PL_regprogram        (aTHX->Tregprogram)
  1458. #define PL_regsawback        (aTHX->Tregsawback)
  1459. #define PL_regseen        (aTHX->Tregseen)
  1460. #define PL_regsize        (aTHX->Tregsize)
  1461. #define PL_regstartp        (aTHX->Tregstartp)
  1462. #define PL_regtill        (aTHX->Tregtill)
  1463. #define PL_regxend        (aTHX->Tregxend)
  1464. #define PL_restartop        (aTHX->Trestartop)
  1465. #define PL_retstack        (aTHX->Tretstack)
  1466. #define PL_retstack_ix        (aTHX->Tretstack_ix)
  1467. #define PL_retstack_max        (aTHX->Tretstack_max)
  1468. #define PL_rs            (aTHX->Trs)
  1469. #define PL_savestack        (aTHX->Tsavestack)
  1470. #define PL_savestack_ix        (aTHX->Tsavestack_ix)
  1471. #define PL_savestack_max    (aTHX->Tsavestack_max)
  1472. #define PL_scopestack        (aTHX->Tscopestack)
  1473. #define PL_scopestack_ix    (aTHX->Tscopestack_ix)
  1474. #define PL_scopestack_max    (aTHX->Tscopestack_max)
  1475. #define PL_screamfirst        (aTHX->Tscreamfirst)
  1476. #define PL_screamnext        (aTHX->Tscreamnext)
  1477. #define PL_secondgv        (aTHX->Tsecondgv)
  1478. #define PL_seen_evals        (aTHX->Tseen_evals)
  1479. #define PL_seen_zerolen        (aTHX->Tseen_zerolen)
  1480. #define PL_sortcop        (aTHX->Tsortcop)
  1481. #define PL_sortcxix        (aTHX->Tsortcxix)
  1482. #define PL_sortstash        (aTHX->Tsortstash)
  1483. #define PL_stack_base        (aTHX->Tstack_base)
  1484. #define PL_stack_max        (aTHX->Tstack_max)
  1485. #define PL_stack_sp        (aTHX->Tstack_sp)
  1486. #define PL_start_env        (aTHX->Tstart_env)
  1487. #define PL_statbuf        (aTHX->Tstatbuf)
  1488. #define PL_statcache        (aTHX->Tstatcache)
  1489. #define PL_statgv        (aTHX->Tstatgv)
  1490. #define PL_statname        (aTHX->Tstatname)
  1491. #define PL_tainted        (aTHX->Ttainted)
  1492. #define PL_timesbuf        (aTHX->Ttimesbuf)
  1493. #define PL_tmps_floor        (aTHX->Ttmps_floor)
  1494. #define PL_tmps_ix        (aTHX->Ttmps_ix)
  1495. #define PL_tmps_max        (aTHX->Ttmps_max)
  1496. #define PL_tmps_stack        (aTHX->Ttmps_stack)
  1497. #define PL_top_env        (aTHX->Ttop_env)
  1498. #define PL_toptarget        (aTHX->Ttoptarget)
  1499. #define PL_watchaddr        (aTHX->Twatchaddr)
  1500. #define PL_watchok        (aTHX->Twatchok)
  1501.  
  1502. #    else    /* !USE_THREADS */
  1503. /* case 1 above */
  1504.  
  1505. #define PL_TSv            PL_Sv
  1506. #define PL_TXpv            PL_Xpv
  1507. #define PL_Tav_fetch_sv        PL_av_fetch_sv
  1508. #define PL_Tbodytarget        PL_bodytarget
  1509. #define PL_Tbostr        PL_bostr
  1510. #define PL_Tchopset        PL_chopset
  1511. #define PL_Tcolors        PL_colors
  1512. #define PL_Tcolorset        PL_colorset
  1513. #define PL_Tcurcop        PL_curcop
  1514. #define PL_Tcurpad        PL_curpad
  1515. #define PL_Tcurpm        PL_curpm
  1516. #define PL_Tcurstack        PL_curstack
  1517. #define PL_Tcurstackinfo    PL_curstackinfo
  1518. #define PL_Tcurstash        PL_curstash
  1519. #define PL_Tdefoutgv        PL_defoutgv
  1520. #define PL_Tdefstash        PL_defstash
  1521. #define PL_Tdelaymagic        PL_delaymagic
  1522. #define PL_Tdirty        PL_dirty
  1523. #define PL_Tdumpindent        PL_dumpindent
  1524. #define PL_Tefloatbuf        PL_efloatbuf
  1525. #define PL_Tefloatsize        PL_efloatsize
  1526. #define PL_Terrors        PL_errors
  1527. #define PL_Textralen        PL_extralen
  1528. #define PL_Tfirstgv        PL_firstgv
  1529. #define PL_Tformtarget        PL_formtarget
  1530. #define PL_Thv_fetch_ent_mh    PL_hv_fetch_ent_mh
  1531. #define PL_Thv_fetch_sv        PL_hv_fetch_sv
  1532. #define PL_Tin_eval        PL_in_eval
  1533. #define PL_Tlast_in_gv        PL_last_in_gv
  1534. #define PL_Tlastgotoprobe    PL_lastgotoprobe
  1535. #define PL_Tlastscream        PL_lastscream
  1536. #define PL_Tlocalizing        PL_localizing
  1537. #define PL_Tmainstack        PL_mainstack
  1538. #define PL_Tmarkstack        PL_markstack
  1539. #define PL_Tmarkstack_max    PL_markstack_max
  1540. #define PL_Tmarkstack_ptr    PL_markstack_ptr
  1541. #define PL_Tmaxscream        PL_maxscream
  1542. #define PL_Tmodcount        PL_modcount
  1543. #define PL_Tna            PL_na
  1544. #define PL_Tnrs            PL_nrs
  1545. #define PL_Tofs            PL_ofs
  1546. #define PL_Tofslen        PL_ofslen
  1547. #define PL_Top            PL_op
  1548. #define PL_Topsave        PL_opsave
  1549. #define PL_Tprotect        PL_protect
  1550. #define PL_Treg_call_cc        PL_reg_call_cc
  1551. #define PL_Treg_curpm        PL_reg_curpm
  1552. #define PL_Treg_eval_set    PL_reg_eval_set
  1553. #define PL_Treg_flags        PL_reg_flags
  1554. #define PL_Treg_ganch        PL_reg_ganch
  1555. #define PL_Treg_leftiter    PL_reg_leftiter
  1556. #define PL_Treg_magic        PL_reg_magic
  1557. #define PL_Treg_maxiter        PL_reg_maxiter
  1558. #define PL_Treg_oldcurpm    PL_reg_oldcurpm
  1559. #define PL_Treg_oldpos        PL_reg_oldpos
  1560. #define PL_Treg_oldsaved    PL_reg_oldsaved
  1561. #define PL_Treg_oldsavedlen    PL_reg_oldsavedlen
  1562. #define PL_Treg_poscache    PL_reg_poscache
  1563. #define PL_Treg_poscache_size    PL_reg_poscache_size
  1564. #define PL_Treg_re        PL_reg_re
  1565. #define PL_Treg_start_tmp    PL_reg_start_tmp
  1566. #define PL_Treg_start_tmpl    PL_reg_start_tmpl
  1567. #define PL_Treg_starttry    PL_reg_starttry
  1568. #define PL_Treg_sv        PL_reg_sv
  1569. #define PL_Treg_whilem_seen    PL_reg_whilem_seen
  1570. #define PL_Tregbol        PL_regbol
  1571. #define PL_Tregcc        PL_regcc
  1572. #define PL_Tregcode        PL_regcode
  1573. #define PL_Tregcomp_parse    PL_regcomp_parse
  1574. #define PL_Tregcomp_rx        PL_regcomp_rx
  1575. #define PL_Tregcompp        PL_regcompp
  1576. #define PL_Tregdata        PL_regdata
  1577. #define PL_Tregdummy        PL_regdummy
  1578. #define PL_Tregendp        PL_regendp
  1579. #define PL_Tregeol        PL_regeol
  1580. #define PL_Tregexecp        PL_regexecp
  1581. #define PL_Tregflags        PL_regflags
  1582. #define PL_Tregfree        PL_regfree
  1583. #define PL_Tregindent        PL_regindent
  1584. #define PL_Treginput        PL_reginput
  1585. #define PL_Tregint_start    PL_regint_start
  1586. #define PL_Tregint_string    PL_regint_string
  1587. #define PL_Treginterp_cnt    PL_reginterp_cnt
  1588. #define PL_Treglastparen    PL_reglastparen
  1589. #define PL_Tregnarrate        PL_regnarrate
  1590. #define PL_Tregnaughty        PL_regnaughty
  1591. #define PL_Tregnpar        PL_regnpar
  1592. #define PL_Tregprecomp        PL_regprecomp
  1593. #define PL_Tregprev        PL_regprev
  1594. #define PL_Tregprogram        PL_regprogram
  1595. #define PL_Tregsawback        PL_regsawback
  1596. #define PL_Tregseen        PL_regseen
  1597. #define PL_Tregsize        PL_regsize
  1598. #define PL_Tregstartp        PL_regstartp
  1599. #define PL_Tregtill        PL_regtill
  1600. #define PL_Tregxend        PL_regxend
  1601. #define PL_Trestartop        PL_restartop
  1602. #define PL_Tretstack        PL_retstack
  1603. #define PL_Tretstack_ix        PL_retstack_ix
  1604. #define PL_Tretstack_max    PL_retstack_max
  1605. #define PL_Trs            PL_rs
  1606. #define PL_Tsavestack        PL_savestack
  1607. #define PL_Tsavestack_ix    PL_savestack_ix
  1608. #define PL_Tsavestack_max    PL_savestack_max
  1609. #define PL_Tscopestack        PL_scopestack
  1610. #define PL_Tscopestack_ix    PL_scopestack_ix
  1611. #define PL_Tscopestack_max    PL_scopestack_max
  1612. #define PL_Tscreamfirst        PL_screamfirst
  1613. #define PL_Tscreamnext        PL_screamnext
  1614. #define PL_Tsecondgv        PL_secondgv
  1615. #define PL_Tseen_evals        PL_seen_evals
  1616. #define PL_Tseen_zerolen    PL_seen_zerolen
  1617. #define PL_Tsortcop        PL_sortcop
  1618. #define PL_Tsortcxix        PL_sortcxix
  1619. #define PL_Tsortstash        PL_sortstash
  1620. #define PL_Tstack_base        PL_stack_base
  1621. #define PL_Tstack_max        PL_stack_max
  1622. #define PL_Tstack_sp        PL_stack_sp
  1623. #define PL_Tstart_env        PL_start_env
  1624. #define PL_Tstatbuf        PL_statbuf
  1625. #define PL_Tstatcache        PL_statcache
  1626. #define PL_Tstatgv        PL_statgv
  1627. #define PL_Tstatname        PL_statname
  1628. #define PL_Ttainted        PL_tainted
  1629. #define PL_Ttimesbuf        PL_timesbuf
  1630. #define PL_Ttmps_floor        PL_tmps_floor
  1631. #define PL_Ttmps_ix        PL_tmps_ix
  1632. #define PL_Ttmps_max        PL_tmps_max
  1633. #define PL_Ttmps_stack        PL_tmps_stack
  1634. #define PL_Ttop_env        PL_top_env
  1635. #define PL_Ttoptarget        PL_toptarget
  1636. #define PL_Twatchaddr        PL_watchaddr
  1637. #define PL_Twatchok        PL_watchok
  1638.  
  1639. #    endif    /* USE_THREADS */
  1640. #  endif    /* PERL_OBJECT */
  1641. #endif    /* MULTIPLICITY */
  1642.  
  1643. #if defined(PERL_GLOBAL_STRUCT)
  1644.  
  1645. #define PL_No            (PL_Vars.GNo)
  1646. #define PL_Yes            (PL_Vars.GYes)
  1647. #define PL_curinterp        (PL_Vars.Gcurinterp)
  1648. #define PL_do_undump        (PL_Vars.Gdo_undump)
  1649. #define PL_hexdigit        (PL_Vars.Ghexdigit)
  1650. #define PL_malloc_mutex        (PL_Vars.Gmalloc_mutex)
  1651. #define PL_op_mutex        (PL_Vars.Gop_mutex)
  1652. #define PL_patleave        (PL_Vars.Gpatleave)
  1653. #define PL_thr_key        (PL_Vars.Gthr_key)
  1654.  
  1655. #else /* !PERL_GLOBAL_STRUCT */
  1656.  
  1657. #define PL_GNo            PL_No
  1658. #define PL_GYes            PL_Yes
  1659. #define PL_Gcurinterp        PL_curinterp
  1660. #define PL_Gdo_undump        PL_do_undump
  1661. #define PL_Ghexdigit        PL_hexdigit
  1662. #define PL_Gmalloc_mutex    PL_malloc_mutex
  1663. #define PL_Gop_mutex        PL_op_mutex
  1664. #define PL_Gpatleave        PL_patleave
  1665. #define PL_Gthr_key        PL_thr_key
  1666.  
  1667. #endif /* PERL_GLOBAL_STRUCT */
  1668.  
  1669. #ifdef PERL_POLLUTE        /* disabled by default in 5.6.0 */
  1670.  
  1671. #define DBsingle        PL_DBsingle
  1672. #define DBsub            PL_DBsub
  1673. #define compiling        PL_compiling
  1674. #define curcop            PL_curcop
  1675. #define curstash        PL_curstash
  1676. #define debstash        PL_debstash
  1677. #define defgv            PL_defgv
  1678. #define diehook            PL_diehook
  1679. #define dirty            PL_dirty
  1680. #define dowarn            PL_dowarn
  1681. #define errgv            PL_errgv
  1682. #define na            PL_na
  1683. #define no_modify        PL_no_modify
  1684. #define perl_destruct_level    PL_perl_destruct_level
  1685. #define perldb            PL_perldb
  1686. #define rsfp            PL_rsfp
  1687. #define rsfp_filters        PL_rsfp_filters
  1688. #define stack_base        PL_stack_base
  1689. #define stack_sp        PL_stack_sp
  1690. #define stdingv            PL_stdingv
  1691. #define sv_arenaroot        PL_sv_arenaroot
  1692. #define sv_no            PL_sv_no
  1693. #define sv_undef        PL_sv_undef
  1694. #define sv_yes            PL_sv_yes
  1695. #define tainted            PL_tainted
  1696. #define tainting        PL_tainting
  1697.  
  1698. #endif /* PERL_POLLUTE */
  1699.