home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / embed.h < prev    next >
C/C++ Source or Header  |  2003-11-07  |  158KB  |  5,146 lines

  1. /*
  2.  *    embed.h
  3.  *
  4.  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
  5.  *    2000, 2001, 2002, 2003, by Larry Wall and others
  6.  *
  7.  *    You may distribute under the terms of either the GNU General Public
  8.  *    License or the Artistic License, as specified in the README file.
  9.  *
  10.  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  11.  * This file is built by embed.pl from data in embed.fnc, embed.pl,
  12.  * pp.sym, intrpvar.h, perlvars.h and thrdvar.h.
  13.  * Any changes made here will be lost!
  14.  *
  15.  * Edit those files and run 'make regen_headers' to effect changes.
  16.  */
  17.  
  18. /* (Doing namespace management portably in C is really gross.) */
  19.  
  20. /* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms
  21.  * (like warn instead of Perl_warn) for the API are not defined.
  22.  * Not defining the short forms is a good thing for cleaner embedding. */
  23.  
  24. #ifndef PERL_NO_SHORT_NAMES
  25.  
  26. /* Hide global symbols */
  27.  
  28. #if !defined(PERL_IMPLICIT_CONTEXT)
  29.  
  30. #if defined(PERL_IMPLICIT_SYS)
  31. #endif
  32. #define doing_taint        Perl_doing_taint
  33. #if defined(USE_ITHREADS)
  34. #  if defined(PERL_IMPLICIT_SYS)
  35. #  endif
  36. #endif
  37. #if defined(MYMALLOC)
  38. #ifdef PERL_CORE
  39. #define malloced_size        Perl_malloced_size
  40. #endif
  41. #endif
  42. #define get_context        Perl_get_context
  43. #define set_context        Perl_set_context
  44. #define amagic_call        Perl_amagic_call
  45. #define Gv_AMupdate        Perl_Gv_AMupdate
  46. #define gv_handler        Perl_gv_handler
  47. #ifdef PERL_CORE
  48. #define append_elem        Perl_append_elem
  49. #endif
  50. #ifdef PERL_CORE
  51. #define append_list        Perl_append_list
  52. #endif
  53. #ifdef PERL_CORE
  54. #define apply            Perl_apply
  55. #endif
  56. #define apply_attrs_string    Perl_apply_attrs_string
  57. #define avhv_delete_ent        Perl_avhv_delete_ent
  58. #define avhv_exists_ent        Perl_avhv_exists_ent
  59. #define avhv_fetch_ent        Perl_avhv_fetch_ent
  60. #define avhv_store_ent        Perl_avhv_store_ent
  61. #define avhv_iternext        Perl_avhv_iternext
  62. #define avhv_iterval        Perl_avhv_iterval
  63. #define avhv_keys        Perl_avhv_keys
  64. #define av_clear        Perl_av_clear
  65. #define av_delete        Perl_av_delete
  66. #define av_exists        Perl_av_exists
  67. #define av_extend        Perl_av_extend
  68. #ifdef PERL_CORE
  69. #define av_fake            Perl_av_fake
  70. #endif
  71. #define av_fetch        Perl_av_fetch
  72. #define av_fill            Perl_av_fill
  73. #define av_len            Perl_av_len
  74. #define av_make            Perl_av_make
  75. #define av_pop            Perl_av_pop
  76. #define av_push            Perl_av_push
  77. #ifdef PERL_CORE
  78. #define av_reify        Perl_av_reify
  79. #endif
  80. #define av_shift        Perl_av_shift
  81. #define av_store        Perl_av_store
  82. #define av_undef        Perl_av_undef
  83. #define av_unshift        Perl_av_unshift
  84. #ifdef PERL_CORE
  85. #define bind_match        Perl_bind_match
  86. #endif
  87. #ifdef PERL_CORE
  88. #define block_end        Perl_block_end
  89. #endif
  90. #define block_gimme        Perl_block_gimme
  91. #ifdef PERL_CORE
  92. #define block_start        Perl_block_start
  93. #endif
  94. #ifdef PERL_CORE
  95. #define boot_core_UNIVERSAL    Perl_boot_core_UNIVERSAL
  96. #endif
  97. #ifdef PERL_CORE
  98. #define boot_core_PerlIO    Perl_boot_core_PerlIO
  99. #endif
  100. #define call_list        Perl_call_list
  101. #ifdef PERL_CORE
  102. #define cando            Perl_cando
  103. #endif
  104. #define cast_ulong        Perl_cast_ulong
  105. #define cast_i32        Perl_cast_i32
  106. #define cast_iv            Perl_cast_iv
  107. #define cast_uv            Perl_cast_uv
  108. #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
  109. #define my_chsize        Perl_my_chsize
  110. #endif
  111. #if defined(USE_5005THREADS)
  112. #define condpair_magic        Perl_condpair_magic
  113. #endif
  114. #ifdef PERL_CORE
  115. #define convert            Perl_convert
  116. #endif
  117. #define croak            Perl_croak
  118. #define vcroak            Perl_vcroak
  119. #if defined(PERL_IMPLICIT_CONTEXT)
  120. #define croak_nocontext        Perl_croak_nocontext
  121. #define die_nocontext        Perl_die_nocontext
  122. #define deb_nocontext        Perl_deb_nocontext
  123. #define form_nocontext        Perl_form_nocontext
  124. #define load_module_nocontext    Perl_load_module_nocontext
  125. #define mess_nocontext        Perl_mess_nocontext
  126. #define warn_nocontext        Perl_warn_nocontext
  127. #define warner_nocontext    Perl_warner_nocontext
  128. #define newSVpvf_nocontext    Perl_newSVpvf_nocontext
  129. #define sv_catpvf_nocontext    Perl_sv_catpvf_nocontext
  130. #define sv_setpvf_nocontext    Perl_sv_setpvf_nocontext
  131. #define sv_catpvf_mg_nocontext    Perl_sv_catpvf_mg_nocontext
  132. #define sv_setpvf_mg_nocontext    Perl_sv_setpvf_mg_nocontext
  133. #define fprintf_nocontext    Perl_fprintf_nocontext
  134. #define printf_nocontext    Perl_printf_nocontext
  135. #endif
  136. #ifdef PERL_CORE
  137. #define cv_ckproto        Perl_cv_ckproto
  138. #endif
  139. #ifdef PERL_CORE
  140. #define cv_clone        Perl_cv_clone
  141. #endif
  142. #define cv_const_sv        Perl_cv_const_sv
  143. #ifdef PERL_CORE
  144. #define op_const_sv        Perl_op_const_sv
  145. #endif
  146. #define cv_undef        Perl_cv_undef
  147. #define cx_dump            Perl_cx_dump
  148. #define filter_add        Perl_filter_add
  149. #define filter_del        Perl_filter_del
  150. #define filter_read        Perl_filter_read
  151. #define get_op_descs        Perl_get_op_descs
  152. #define get_op_names        Perl_get_op_names
  153. #ifdef PERL_CORE
  154. #define get_no_modify        Perl_get_no_modify
  155. #endif
  156. #ifdef PERL_CORE
  157. #define get_opargs        Perl_get_opargs
  158. #endif
  159. #define get_ppaddr        Perl_get_ppaddr
  160. #if defined(PERL_CORE) || defined(PERL_EXT)
  161. #define cxinc            Perl_cxinc
  162. #endif
  163. #define deb            Perl_deb
  164. #define vdeb            Perl_vdeb
  165. #define debprofdump        Perl_debprofdump
  166. #define debop            Perl_debop
  167. #define debstack        Perl_debstack
  168. #define debstackptrs        Perl_debstackptrs
  169. #define delimcpy        Perl_delimcpy
  170. #ifdef PERL_CORE
  171. #define deprecate        Perl_deprecate
  172. #endif
  173. #ifdef PERL_CORE
  174. #define deprecate_old        Perl_deprecate_old
  175. #endif
  176. #define die            Perl_die
  177. #ifdef PERL_CORE
  178. #define vdie            Perl_vdie
  179. #endif
  180. #ifdef PERL_CORE
  181. #define die_where        Perl_die_where
  182. #endif
  183. #define dounwind        Perl_dounwind
  184. #ifdef PERL_CORE
  185. #define do_aexec        Perl_do_aexec
  186. #endif
  187. #ifdef PERL_CORE
  188. #define do_aexec5        Perl_do_aexec5
  189. #endif
  190. #define do_binmode        Perl_do_binmode
  191. #ifdef PERL_CORE
  192. #define do_chop            Perl_do_chop
  193. #endif
  194. #define do_close        Perl_do_close
  195. #ifdef PERL_CORE
  196. #define do_eof            Perl_do_eof
  197. #endif
  198. #ifdef PERL_CORE
  199. #define do_exec            Perl_do_exec
  200. #endif
  201. #if defined(WIN32)
  202. #define do_aspawn        Perl_do_aspawn
  203. #define do_spawn        Perl_do_spawn
  204. #define do_spawn_nowait        Perl_do_spawn_nowait
  205. #endif
  206. #if !defined(WIN32)
  207. #ifdef PERL_CORE
  208. #define do_exec3        Perl_do_exec3
  209. #endif
  210. #endif
  211. #ifdef PERL_CORE
  212. #define do_execfree        Perl_do_execfree
  213. #endif
  214. #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
  215. #ifdef PERL_CORE
  216. #define do_ipcctl        Perl_do_ipcctl
  217. #endif
  218. #ifdef PERL_CORE
  219. #define do_ipcget        Perl_do_ipcget
  220. #endif
  221. #ifdef PERL_CORE
  222. #define do_msgrcv        Perl_do_msgrcv
  223. #endif
  224. #ifdef PERL_CORE
  225. #define do_msgsnd        Perl_do_msgsnd
  226. #endif
  227. #ifdef PERL_CORE
  228. #define do_semop        Perl_do_semop
  229. #endif
  230. #ifdef PERL_CORE
  231. #define do_shmio        Perl_do_shmio
  232. #endif
  233. #endif
  234. #define do_join            Perl_do_join
  235. #ifdef PERL_CORE
  236. #define do_kv            Perl_do_kv
  237. #endif
  238. #define do_open            Perl_do_open
  239. #define do_open9        Perl_do_open9
  240. #define do_openn        Perl_do_openn
  241. #ifdef PERL_CORE
  242. #define do_pipe            Perl_do_pipe
  243. #endif
  244. #ifdef PERL_CORE
  245. #define do_print        Perl_do_print
  246. #endif
  247. #ifdef PERL_CORE
  248. #define do_readline        Perl_do_readline
  249. #endif
  250. #ifdef PERL_CORE
  251. #define do_chomp        Perl_do_chomp
  252. #endif
  253. #ifdef PERL_CORE
  254. #define do_seek            Perl_do_seek
  255. #endif
  256. #define do_sprintf        Perl_do_sprintf
  257. #ifdef PERL_CORE
  258. #define do_sysseek        Perl_do_sysseek
  259. #endif
  260. #ifdef PERL_CORE
  261. #define do_tell            Perl_do_tell
  262. #endif
  263. #ifdef PERL_CORE
  264. #define do_trans        Perl_do_trans
  265. #endif
  266. #ifdef PERL_CORE
  267. #define do_vecget        Perl_do_vecget
  268. #endif
  269. #ifdef PERL_CORE
  270. #define do_vecset        Perl_do_vecset
  271. #endif
  272. #ifdef PERL_CORE
  273. #define do_vop            Perl_do_vop
  274. #endif
  275. #ifdef PERL_CORE
  276. #define dofile            Perl_dofile
  277. #endif
  278. #define dowantarray        Perl_dowantarray
  279. #define dump_all        Perl_dump_all
  280. #define dump_eval        Perl_dump_eval
  281. #if defined(DUMP_FDS)
  282. #define dump_fds        Perl_dump_fds
  283. #endif
  284. #define dump_form        Perl_dump_form
  285. #define gv_dump            Perl_gv_dump
  286. #define op_dump            Perl_op_dump
  287. #define pmop_dump        Perl_pmop_dump
  288. #define dump_packsubs        Perl_dump_packsubs
  289. #define dump_sub        Perl_dump_sub
  290. #define fbm_compile        Perl_fbm_compile
  291. #define fbm_instr        Perl_fbm_instr
  292. #ifdef PERL_CORE
  293. #define find_script        Perl_find_script
  294. #endif
  295. #if defined(USE_5005THREADS)
  296. #ifdef PERL_CORE
  297. #define find_threadsv        Perl_find_threadsv
  298. #endif
  299. #endif
  300. #ifdef PERL_CORE
  301. #define force_list        Perl_force_list
  302. #endif
  303. #ifdef PERL_CORE
  304. #define fold_constants        Perl_fold_constants
  305. #endif
  306. #define form            Perl_form
  307. #define vform            Perl_vform
  308. #define free_tmps        Perl_free_tmps
  309. #ifdef PERL_CORE
  310. #define gen_constant_list    Perl_gen_constant_list
  311. #endif
  312. #if !defined(HAS_GETENV_LEN)
  313. #ifdef PERL_CORE
  314. #define getenv_len        Perl_getenv_len
  315. #endif
  316. #endif
  317. #define gp_free            Perl_gp_free
  318. #define gp_ref            Perl_gp_ref
  319. #define gv_AVadd        Perl_gv_AVadd
  320. #define gv_HVadd        Perl_gv_HVadd
  321. #define gv_IOadd        Perl_gv_IOadd
  322. #define gv_autoload4        Perl_gv_autoload4
  323. #define gv_check        Perl_gv_check
  324. #define gv_efullname        Perl_gv_efullname
  325. #define gv_efullname3        Perl_gv_efullname3
  326. #define gv_efullname4        Perl_gv_efullname4
  327. #define gv_fetchfile        Perl_gv_fetchfile
  328. #define gv_fetchmeth        Perl_gv_fetchmeth
  329. #define gv_fetchmeth_autoload    Perl_gv_fetchmeth_autoload
  330. #define gv_fetchmethod        Perl_gv_fetchmethod
  331. #define gv_fetchmethod_autoload    Perl_gv_fetchmethod_autoload
  332. #define gv_fetchpv        Perl_gv_fetchpv
  333. #define gv_fullname        Perl_gv_fullname
  334. #define gv_fullname3        Perl_gv_fullname3
  335. #define gv_fullname4        Perl_gv_fullname4
  336. #define gv_init            Perl_gv_init
  337. #define gv_stashpv        Perl_gv_stashpv
  338. #define gv_stashpvn        Perl_gv_stashpvn
  339. #define gv_stashsv        Perl_gv_stashsv
  340. #define hv_clear        Perl_hv_clear
  341. #define hv_delayfree_ent    Perl_hv_delayfree_ent
  342. #define hv_delete        Perl_hv_delete
  343. #define hv_delete_ent        Perl_hv_delete_ent
  344. #define hv_exists        Perl_hv_exists
  345. #define hv_exists_ent        Perl_hv_exists_ent
  346. #define hv_fetch        Perl_hv_fetch
  347. #define hv_fetch_ent        Perl_hv_fetch_ent
  348. #define hv_free_ent        Perl_hv_free_ent
  349. #define hv_iterinit        Perl_hv_iterinit
  350. #define hv_iterkey        Perl_hv_iterkey
  351. #define hv_iterkeysv        Perl_hv_iterkeysv
  352. #define hv_iternext        Perl_hv_iternext
  353. #define hv_iternextsv        Perl_hv_iternextsv
  354. #define hv_iternext_flags    Perl_hv_iternext_flags
  355. #define hv_iterval        Perl_hv_iterval
  356. #define hv_ksplit        Perl_hv_ksplit
  357. #define hv_magic        Perl_hv_magic
  358. #define hv_store        Perl_hv_store
  359. #define hv_store_ent        Perl_hv_store_ent
  360. #define hv_store_flags        Perl_hv_store_flags
  361. #define hv_undef        Perl_hv_undef
  362. #define ibcmp            Perl_ibcmp
  363. #define ibcmp_locale        Perl_ibcmp_locale
  364. #define ibcmp_utf8        Perl_ibcmp_utf8
  365. #ifdef PERL_CORE
  366. #define ingroup            Perl_ingroup
  367. #endif
  368. #ifdef PERL_CORE
  369. #define init_argv_symbols    Perl_init_argv_symbols
  370. #endif
  371. #ifdef PERL_CORE
  372. #define init_debugger        Perl_init_debugger
  373. #endif
  374. #define init_stacks        Perl_init_stacks
  375. #define init_tm            Perl_init_tm
  376. #ifdef PERL_CORE
  377. #define intro_my        Perl_intro_my
  378. #endif
  379. #define instr            Perl_instr
  380. #ifdef PERL_CORE
  381. #define io_close        Perl_io_close
  382. #endif
  383. #ifdef PERL_CORE
  384. #define invert            Perl_invert
  385. #endif
  386. #ifdef PERL_CORE
  387. #define is_gv_magical        Perl_is_gv_magical
  388. #endif
  389. #define is_lvalue_sub        Perl_is_lvalue_sub
  390. #define to_uni_upper_lc        Perl_to_uni_upper_lc
  391. #define to_uni_title_lc        Perl_to_uni_title_lc
  392. #define to_uni_lower_lc        Perl_to_uni_lower_lc
  393. #define is_uni_alnum        Perl_is_uni_alnum
  394. #define is_uni_alnumc        Perl_is_uni_alnumc
  395. #define is_uni_idfirst        Perl_is_uni_idfirst
  396. #define is_uni_alpha        Perl_is_uni_alpha
  397. #define is_uni_ascii        Perl_is_uni_ascii
  398. #define is_uni_space        Perl_is_uni_space
  399. #define is_uni_cntrl        Perl_is_uni_cntrl
  400. #define is_uni_graph        Perl_is_uni_graph
  401. #define is_uni_digit        Perl_is_uni_digit
  402. #define is_uni_upper        Perl_is_uni_upper
  403. #define is_uni_lower        Perl_is_uni_lower
  404. #define is_uni_print        Perl_is_uni_print
  405. #define is_uni_punct        Perl_is_uni_punct
  406. #define is_uni_xdigit        Perl_is_uni_xdigit
  407. #define to_uni_upper        Perl_to_uni_upper
  408. #define to_uni_title        Perl_to_uni_title
  409. #define to_uni_lower        Perl_to_uni_lower
  410. #define to_uni_fold        Perl_to_uni_fold
  411. #define is_uni_alnum_lc        Perl_is_uni_alnum_lc
  412. #define is_uni_alnumc_lc    Perl_is_uni_alnumc_lc
  413. #define is_uni_idfirst_lc    Perl_is_uni_idfirst_lc
  414. #define is_uni_alpha_lc        Perl_is_uni_alpha_lc
  415. #define is_uni_ascii_lc        Perl_is_uni_ascii_lc
  416. #define is_uni_space_lc        Perl_is_uni_space_lc
  417. #define is_uni_cntrl_lc        Perl_is_uni_cntrl_lc
  418. #define is_uni_graph_lc        Perl_is_uni_graph_lc
  419. #define is_uni_digit_lc        Perl_is_uni_digit_lc
  420. #define is_uni_upper_lc        Perl_is_uni_upper_lc
  421. #define is_uni_lower_lc        Perl_is_uni_lower_lc
  422. #define is_uni_print_lc        Perl_is_uni_print_lc
  423. #define is_uni_punct_lc        Perl_is_uni_punct_lc
  424. #define is_uni_xdigit_lc    Perl_is_uni_xdigit_lc
  425. #define is_utf8_char        Perl_is_utf8_char
  426. #define is_utf8_string        Perl_is_utf8_string
  427. #define is_utf8_string_loc    Perl_is_utf8_string_loc
  428. #define is_utf8_alnum        Perl_is_utf8_alnum
  429. #define is_utf8_alnumc        Perl_is_utf8_alnumc
  430. #define is_utf8_idfirst        Perl_is_utf8_idfirst
  431. #define is_utf8_idcont        Perl_is_utf8_idcont
  432. #define is_utf8_alpha        Perl_is_utf8_alpha
  433. #define is_utf8_ascii        Perl_is_utf8_ascii
  434. #define is_utf8_space        Perl_is_utf8_space
  435. #define is_utf8_cntrl        Perl_is_utf8_cntrl
  436. #define is_utf8_digit        Perl_is_utf8_digit
  437. #define is_utf8_graph        Perl_is_utf8_graph
  438. #define is_utf8_upper        Perl_is_utf8_upper
  439. #define is_utf8_lower        Perl_is_utf8_lower
  440. #define is_utf8_print        Perl_is_utf8_print
  441. #define is_utf8_punct        Perl_is_utf8_punct
  442. #define is_utf8_xdigit        Perl_is_utf8_xdigit
  443. #define is_utf8_mark        Perl_is_utf8_mark
  444. #ifdef PERL_CORE
  445. #define jmaybe            Perl_jmaybe
  446. #endif
  447. #ifdef PERL_CORE
  448. #define keyword            Perl_keyword
  449. #endif
  450. #define leave_scope        Perl_leave_scope
  451. #ifdef PERL_CORE
  452. #define lex_end            Perl_lex_end
  453. #endif
  454. #ifdef PERL_CORE
  455. #define lex_start        Perl_lex_start
  456. #endif
  457. #define op_null            Perl_op_null
  458. #ifdef PERL_CORE
  459. #define op_clear        Perl_op_clear
  460. #endif
  461. #ifdef PERL_CORE
  462. #define linklist        Perl_linklist
  463. #endif
  464. #ifdef PERL_CORE
  465. #define list            Perl_list
  466. #endif
  467. #ifdef PERL_CORE
  468. #define listkids        Perl_listkids
  469. #endif
  470. #define load_module        Perl_load_module
  471. #define vload_module        Perl_vload_module
  472. #ifdef PERL_CORE
  473. #define localize        Perl_localize
  474. #endif
  475. #define looks_like_number    Perl_looks_like_number
  476. #define grok_bin        Perl_grok_bin
  477. #define grok_hex        Perl_grok_hex
  478. #define grok_number        Perl_grok_number
  479. #define grok_numeric_radix    Perl_grok_numeric_radix
  480. #define grok_oct        Perl_grok_oct
  481. #ifdef PERL_CORE
  482. #define magic_clearenv        Perl_magic_clearenv
  483. #endif
  484. #ifdef PERL_CORE
  485. #define magic_clear_all_env    Perl_magic_clear_all_env
  486. #endif
  487. #ifdef PERL_CORE
  488. #define magic_clearpack        Perl_magic_clearpack
  489. #endif
  490. #ifdef PERL_CORE
  491. #define magic_clearsig        Perl_magic_clearsig
  492. #endif
  493. #ifdef PERL_CORE
  494. #define magic_existspack    Perl_magic_existspack
  495. #endif
  496. #ifdef PERL_CORE
  497. #define magic_freeregexp    Perl_magic_freeregexp
  498. #endif
  499. #ifdef PERL_CORE
  500. #define magic_freeovrld        Perl_magic_freeovrld
  501. #endif
  502. #ifdef PERL_CORE
  503. #define magic_get        Perl_magic_get
  504. #endif
  505. #ifdef PERL_CORE
  506. #define magic_getarylen        Perl_magic_getarylen
  507. #endif
  508. #ifdef PERL_CORE
  509. #define magic_getdefelem    Perl_magic_getdefelem
  510. #endif
  511. #ifdef PERL_CORE
  512. #define magic_getglob        Perl_magic_getglob
  513. #endif
  514. #ifdef PERL_CORE
  515. #define magic_getnkeys        Perl_magic_getnkeys
  516. #endif
  517. #ifdef PERL_CORE
  518. #define magic_getpack        Perl_magic_getpack
  519. #endif
  520. #ifdef PERL_CORE
  521. #define magic_getpos        Perl_magic_getpos
  522. #endif
  523. #ifdef PERL_CORE
  524. #define magic_getsig        Perl_magic_getsig
  525. #endif
  526. #ifdef PERL_CORE
  527. #define magic_getsubstr        Perl_magic_getsubstr
  528. #endif
  529. #ifdef PERL_CORE
  530. #define magic_gettaint        Perl_magic_gettaint
  531. #endif
  532. #ifdef PERL_CORE
  533. #define magic_getuvar        Perl_magic_getuvar
  534. #endif
  535. #ifdef PERL_CORE
  536. #define magic_getvec        Perl_magic_getvec
  537. #endif
  538. #ifdef PERL_CORE
  539. #define magic_len        Perl_magic_len
  540. #endif
  541. #if defined(USE_5005THREADS)
  542. #ifdef PERL_CORE
  543. #define magic_mutexfree        Perl_magic_mutexfree
  544. #endif
  545. #endif
  546. #ifdef PERL_CORE
  547. #define magic_nextpack        Perl_magic_nextpack
  548. #endif
  549. #ifdef PERL_CORE
  550. #define magic_regdata_cnt    Perl_magic_regdata_cnt
  551. #endif
  552. #ifdef PERL_CORE
  553. #define magic_regdatum_get    Perl_magic_regdatum_get
  554. #endif
  555. #ifdef PERL_CORE
  556. #define magic_regdatum_set    Perl_magic_regdatum_set
  557. #endif
  558. #ifdef PERL_CORE
  559. #define magic_set        Perl_magic_set
  560. #endif
  561. #ifdef PERL_CORE
  562. #define magic_setamagic        Perl_magic_setamagic
  563. #endif
  564. #ifdef PERL_CORE
  565. #define magic_setarylen        Perl_magic_setarylen
  566. #endif
  567. #ifdef PERL_CORE
  568. #define magic_setbm        Perl_magic_setbm
  569. #endif
  570. #ifdef PERL_CORE
  571. #define magic_setdbline        Perl_magic_setdbline
  572. #endif
  573. #if defined(USE_LOCALE_COLLATE)
  574. #ifdef PERL_CORE
  575. #define magic_setcollxfrm    Perl_magic_setcollxfrm
  576. #endif
  577. #endif
  578. #ifdef PERL_CORE
  579. #define magic_setdefelem    Perl_magic_setdefelem
  580. #endif
  581. #ifdef PERL_CORE
  582. #define magic_setenv        Perl_magic_setenv
  583. #endif
  584. #ifdef PERL_CORE
  585. #define magic_setfm        Perl_magic_setfm
  586. #endif
  587. #ifdef PERL_CORE
  588. #define magic_setisa        Perl_magic_setisa
  589. #endif
  590. #ifdef PERL_CORE
  591. #define magic_setglob        Perl_magic_setglob
  592. #endif
  593. #ifdef PERL_CORE
  594. #define magic_setmglob        Perl_magic_setmglob
  595. #endif
  596. #ifdef PERL_CORE
  597. #define magic_setnkeys        Perl_magic_setnkeys
  598. #endif
  599. #ifdef PERL_CORE
  600. #define magic_setpack        Perl_magic_setpack
  601. #endif
  602. #ifdef PERL_CORE
  603. #define magic_setpos        Perl_magic_setpos
  604. #endif
  605. #ifdef PERL_CORE
  606. #define magic_setregexp        Perl_magic_setregexp
  607. #endif
  608. #ifdef PERL_CORE
  609. #define magic_setsig        Perl_magic_setsig
  610. #endif
  611. #ifdef PERL_CORE
  612. #define magic_setsubstr        Perl_magic_setsubstr
  613. #endif
  614. #ifdef PERL_CORE
  615. #define magic_settaint        Perl_magic_settaint
  616. #endif
  617. #ifdef PERL_CORE
  618. #define magic_setuvar        Perl_magic_setuvar
  619. #endif
  620. #ifdef PERL_CORE
  621. #define magic_setvec        Perl_magic_setvec
  622. #endif
  623. #ifdef PERL_CORE
  624. #define magic_setutf8        Perl_magic_setutf8
  625. #endif
  626. #ifdef PERL_CORE
  627. #define magic_set_all_env    Perl_magic_set_all_env
  628. #endif
  629. #ifdef PERL_CORE
  630. #define magic_sizepack        Perl_magic_sizepack
  631. #endif
  632. #ifdef PERL_CORE
  633. #define magic_wipepack        Perl_magic_wipepack
  634. #endif
  635. #ifdef PERL_CORE
  636. #define magicname        Perl_magicname
  637. #endif
  638. #define markstack_grow        Perl_markstack_grow
  639. #if defined(USE_LOCALE_COLLATE)
  640. #ifdef PERL_CORE
  641. #define mem_collxfrm        Perl_mem_collxfrm
  642. #endif
  643. #endif
  644. #define mess            Perl_mess
  645. #define vmess            Perl_vmess
  646. #ifdef PERL_CORE
  647. #define qerror            Perl_qerror
  648. #endif
  649. #define sortsv            Perl_sortsv
  650. #define mg_clear        Perl_mg_clear
  651. #define mg_copy            Perl_mg_copy
  652. #define mg_find            Perl_mg_find
  653. #define mg_free            Perl_mg_free
  654. #define mg_get            Perl_mg_get
  655. #define mg_length        Perl_mg_length
  656. #define mg_magical        Perl_mg_magical
  657. #define mg_set            Perl_mg_set
  658. #define mg_size            Perl_mg_size
  659. #define mini_mktime        Perl_mini_mktime
  660. #ifdef PERL_CORE
  661. #define mod            Perl_mod
  662. #endif
  663. #ifdef PERL_CORE
  664. #define mode_from_discipline    Perl_mode_from_discipline
  665. #endif
  666. #define moreswitches        Perl_moreswitches
  667. #ifdef PERL_CORE
  668. #define my            Perl_my
  669. #endif
  670. #define my_atof            Perl_my_atof
  671. #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
  672. #define my_bcopy        Perl_my_bcopy
  673. #endif
  674. #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
  675. #define my_bzero        Perl_my_bzero
  676. #endif
  677. #define my_exit            Perl_my_exit
  678. #define my_failure_exit        Perl_my_failure_exit
  679. #define my_fflush_all        Perl_my_fflush_all
  680. #define my_fork            Perl_my_fork
  681. #define atfork_lock        Perl_atfork_lock
  682. #define atfork_unlock        Perl_atfork_unlock
  683. #define my_lstat        Perl_my_lstat
  684. #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
  685. #define my_memcmp        Perl_my_memcmp
  686. #endif
  687. #if !defined(HAS_MEMSET)
  688. #define my_memset        Perl_my_memset
  689. #endif
  690. #define my_pclose        Perl_my_pclose
  691. #define my_popen        Perl_my_popen
  692. #define my_popen_list        Perl_my_popen_list
  693. #define my_setenv        Perl_my_setenv
  694. #define my_stat            Perl_my_stat
  695. #define my_strftime        Perl_my_strftime
  696. #if defined(MYSWAP)
  697. #define my_swap            Perl_my_swap
  698. #define my_htonl        Perl_my_htonl
  699. #define my_ntohl        Perl_my_ntohl
  700. #endif
  701. #ifdef PERL_CORE
  702. #define my_unexec        Perl_my_unexec
  703. #endif
  704. #define newANONLIST        Perl_newANONLIST
  705. #define newANONHASH        Perl_newANONHASH
  706. #define newANONSUB        Perl_newANONSUB
  707. #define newASSIGNOP        Perl_newASSIGNOP
  708. #define newCONDOP        Perl_newCONDOP
  709. #define newCONSTSUB        Perl_newCONSTSUB
  710. #define newFORM            Perl_newFORM
  711. #define newFOROP        Perl_newFOROP
  712. #define newLOGOP        Perl_newLOGOP
  713. #define newLOOPEX        Perl_newLOOPEX
  714. #define newLOOPOP        Perl_newLOOPOP
  715. #define newNULLLIST        Perl_newNULLLIST
  716. #define newOP            Perl_newOP
  717. #define newPROG            Perl_newPROG
  718. #define newRANGE        Perl_newRANGE
  719. #define newSLICEOP        Perl_newSLICEOP
  720. #define newSTATEOP        Perl_newSTATEOP
  721. #define newSUB            Perl_newSUB
  722. #define newXS            Perl_newXS
  723. #define newAV            Perl_newAV
  724. #define newAVREF        Perl_newAVREF
  725. #define newBINOP        Perl_newBINOP
  726. #define newCVREF        Perl_newCVREF
  727. #define newGVOP            Perl_newGVOP
  728. #define newGVgen        Perl_newGVgen
  729. #define newGVREF        Perl_newGVREF
  730. #define newHVREF        Perl_newHVREF
  731. #define newHV            Perl_newHV
  732. #define newHVhv            Perl_newHVhv
  733. #define newIO            Perl_newIO
  734. #define newLISTOP        Perl_newLISTOP
  735. #define newPADOP        Perl_newPADOP
  736. #define newPMOP            Perl_newPMOP
  737. #define newPVOP            Perl_newPVOP
  738. #define newRV            Perl_newRV
  739. #define newRV_noinc        Perl_newRV_noinc
  740. #define newSV            Perl_newSV
  741. #define newSVREF        Perl_newSVREF
  742. #define newSVOP            Perl_newSVOP
  743. #define newSViv            Perl_newSViv
  744. #define newSVuv            Perl_newSVuv
  745. #define newSVnv            Perl_newSVnv
  746. #define newSVpv            Perl_newSVpv
  747. #define newSVpvn        Perl_newSVpvn
  748. #define newSVpvn_share        Perl_newSVpvn_share
  749. #define newSVpvf        Perl_newSVpvf
  750. #define vnewSVpvf        Perl_vnewSVpvf
  751. #define newSVrv            Perl_newSVrv
  752. #define newSVsv            Perl_newSVsv
  753. #define newUNOP            Perl_newUNOP
  754. #define newWHILEOP        Perl_newWHILEOP
  755. #define new_stackinfo        Perl_new_stackinfo
  756. #define scan_vstring        Perl_scan_vstring
  757. #ifdef PERL_CORE
  758. #define nextargv        Perl_nextargv
  759. #endif
  760. #define ninstr            Perl_ninstr
  761. #ifdef PERL_CORE
  762. #define oopsCV            Perl_oopsCV
  763. #endif
  764. #define op_free            Perl_op_free
  765. #ifdef PERL_CORE
  766. #define package            Perl_package
  767. #endif
  768. #ifdef PERL_CORE
  769. #define pad_alloc        Perl_pad_alloc
  770. #endif
  771. #ifdef PERL_CORE
  772. #define allocmy            Perl_allocmy
  773. #endif
  774. #ifdef PERL_CORE
  775. #define pad_findmy        Perl_pad_findmy
  776. #endif
  777. #ifdef PERL_CORE
  778. #define oopsAV            Perl_oopsAV
  779. #endif
  780. #ifdef PERL_CORE
  781. #define oopsHV            Perl_oopsHV
  782. #endif
  783. #ifdef PERL_CORE
  784. #define pad_leavemy        Perl_pad_leavemy
  785. #endif
  786. #define pad_sv            Perl_pad_sv
  787. #ifdef PERL_CORE
  788. #define pad_free        Perl_pad_free
  789. #endif
  790. #ifdef PERL_CORE
  791. #define pad_reset        Perl_pad_reset
  792. #endif
  793. #ifdef PERL_CORE
  794. #define pad_swipe        Perl_pad_swipe
  795. #endif
  796. #ifdef PERL_CORE
  797. #define peep            Perl_peep
  798. #endif
  799. #if defined(USE_5005THREADS)
  800. #define new_struct_thread    Perl_new_struct_thread
  801. #endif
  802. #if defined(USE_REENTRANT_API)
  803. #define reentrant_size        Perl_reentrant_size
  804. #define reentrant_init        Perl_reentrant_init
  805. #define reentrant_free        Perl_reentrant_free
  806. #define reentrant_retry        Perl_reentrant_retry
  807. #endif
  808. #define call_atexit        Perl_call_atexit
  809. #define call_argv        Perl_call_argv
  810. #define call_method        Perl_call_method
  811. #define call_pv            Perl_call_pv
  812. #define call_sv            Perl_call_sv
  813. #define despatch_signals    Perl_despatch_signals
  814. #define eval_pv            Perl_eval_pv
  815. #define eval_sv            Perl_eval_sv
  816. #define get_sv            Perl_get_sv
  817. #define get_av            Perl_get_av
  818. #define get_hv            Perl_get_hv
  819. #define get_cv            Perl_get_cv
  820. #define init_i18nl10n        Perl_init_i18nl10n
  821. #define init_i18nl14n        Perl_init_i18nl14n
  822. #define new_collate        Perl_new_collate
  823. #define new_ctype        Perl_new_ctype
  824. #define new_numeric        Perl_new_numeric
  825. #define set_numeric_local    Perl_set_numeric_local
  826. #define set_numeric_radix    Perl_set_numeric_radix
  827. #define set_numeric_standard    Perl_set_numeric_standard
  828. #define require_pv        Perl_require_pv
  829. #define pack_cat        Perl_pack_cat
  830. #define packlist        Perl_packlist
  831. #ifdef PERL_CORE
  832. #define pidgone            Perl_pidgone
  833. #endif
  834. #define pmflag            Perl_pmflag
  835. #ifdef PERL_CORE
  836. #define pmruntime        Perl_pmruntime
  837. #endif
  838. #ifdef PERL_CORE
  839. #define pmtrans            Perl_pmtrans
  840. #endif
  841. #ifdef PERL_CORE
  842. #define pop_return        Perl_pop_return
  843. #endif
  844. #define pop_scope        Perl_pop_scope
  845. #ifdef PERL_CORE
  846. #define prepend_elem        Perl_prepend_elem
  847. #endif
  848. #ifdef PERL_CORE
  849. #define push_return        Perl_push_return
  850. #endif
  851. #define push_scope        Perl_push_scope
  852. #ifdef PERL_CORE
  853. #define ref            Perl_ref
  854. #endif
  855. #ifdef PERL_CORE
  856. #define refkids            Perl_refkids
  857. #endif
  858. #define regdump            Perl_regdump
  859. #define regclass_swash        Perl_regclass_swash
  860. #define pregexec        Perl_pregexec
  861. #define pregfree        Perl_pregfree
  862. #define pregcomp        Perl_pregcomp
  863. #define re_intuit_start        Perl_re_intuit_start
  864. #define re_intuit_string    Perl_re_intuit_string
  865. #define regexec_flags        Perl_regexec_flags
  866. #define regnext            Perl_regnext
  867. #if defined(PERL_CORE) || defined(PERL_EXT)
  868. #define regprop            Perl_regprop
  869. #endif
  870. #define repeatcpy        Perl_repeatcpy
  871. #define rninstr            Perl_rninstr
  872. #define rsignal            Perl_rsignal
  873. #ifdef PERL_CORE
  874. #define rsignal_restore        Perl_rsignal_restore
  875. #endif
  876. #ifdef PERL_CORE
  877. #define rsignal_save        Perl_rsignal_save
  878. #endif
  879. #define rsignal_state        Perl_rsignal_state
  880. #ifdef PERL_CORE
  881. #define rxres_free        Perl_rxres_free
  882. #endif
  883. #ifdef PERL_CORE
  884. #define rxres_restore        Perl_rxres_restore
  885. #endif
  886. #ifdef PERL_CORE
  887. #define rxres_save        Perl_rxres_save
  888. #endif
  889. #if !defined(HAS_RENAME)
  890. #ifdef PERL_CORE
  891. #define same_dirent        Perl_same_dirent
  892. #endif
  893. #endif
  894. #define savepv            Perl_savepv
  895. #define savesharedpv        Perl_savesharedpv
  896. #define savepvn            Perl_savepvn
  897. #define savestack_grow        Perl_savestack_grow
  898. #define savestack_grow_cnt    Perl_savestack_grow_cnt
  899. #define save_aelem        Perl_save_aelem
  900. #define save_alloc        Perl_save_alloc
  901. #define save_aptr        Perl_save_aptr
  902. #define save_ary        Perl_save_ary
  903. #define save_bool        Perl_save_bool
  904. #define save_clearsv        Perl_save_clearsv
  905. #define save_delete        Perl_save_delete
  906. #define save_destructor        Perl_save_destructor
  907. #define save_destructor_x    Perl_save_destructor_x
  908. #define save_freesv        Perl_save_freesv
  909. #ifdef PERL_CORE
  910. #define save_freeop        Perl_save_freeop
  911. #endif
  912. #define save_freepv        Perl_save_freepv
  913. #define save_generic_svref    Perl_save_generic_svref
  914. #define save_generic_pvref    Perl_save_generic_pvref
  915. #define save_shared_pvref    Perl_save_shared_pvref
  916. #define save_gp            Perl_save_gp
  917. #define save_hash        Perl_save_hash
  918. #define save_helem        Perl_save_helem
  919. #define save_hints        Perl_save_hints
  920. #define save_hptr        Perl_save_hptr
  921. #define save_I16        Perl_save_I16
  922. #define save_I32        Perl_save_I32
  923. #define save_I8            Perl_save_I8
  924. #define save_int        Perl_save_int
  925. #define save_item        Perl_save_item
  926. #define save_iv            Perl_save_iv
  927. #define save_list        Perl_save_list
  928. #define save_long        Perl_save_long
  929. #define save_mortalizesv    Perl_save_mortalizesv
  930. #define save_nogv        Perl_save_nogv
  931. #ifdef PERL_CORE
  932. #define save_op            Perl_save_op
  933. #endif
  934. #define save_scalar        Perl_save_scalar
  935. #define save_pptr        Perl_save_pptr
  936. #define save_vptr        Perl_save_vptr
  937. #define save_re_context        Perl_save_re_context
  938. #define save_padsv        Perl_save_padsv
  939. #define save_sptr        Perl_save_sptr
  940. #define save_svref        Perl_save_svref
  941. #define save_threadsv        Perl_save_threadsv
  942. #ifdef PERL_CORE
  943. #define sawparens        Perl_sawparens
  944. #endif
  945. #ifdef PERL_CORE
  946. #define scalar            Perl_scalar
  947. #endif
  948. #ifdef PERL_CORE
  949. #define scalarkids        Perl_scalarkids
  950. #endif
  951. #ifdef PERL_CORE
  952. #define scalarseq        Perl_scalarseq
  953. #endif
  954. #ifdef PERL_CORE
  955. #define scalarvoid        Perl_scalarvoid
  956. #endif
  957. #define scan_bin        Perl_scan_bin
  958. #define scan_hex        Perl_scan_hex
  959. #define scan_num        Perl_scan_num
  960. #define scan_oct        Perl_scan_oct
  961. #ifdef PERL_CORE
  962. #define scope            Perl_scope
  963. #endif
  964. #define screaminstr        Perl_screaminstr
  965. #if !defined(VMS)
  966. #ifdef PERL_CORE
  967. #define setenv_getix        Perl_setenv_getix
  968. #endif
  969. #endif
  970. #ifdef PERL_CORE
  971. #define setdefout        Perl_setdefout
  972. #endif
  973. #ifdef PERL_CORE
  974. #define share_hek        Perl_share_hek
  975. #endif
  976. #ifdef PERL_CORE
  977. #define sighandler        Perl_sighandler
  978. #endif
  979. #define csighandler        Perl_csighandler
  980. #define stack_grow        Perl_stack_grow
  981. #define start_subparse        Perl_start_subparse
  982. #ifdef PERL_CORE
  983. #define sub_crush_depth        Perl_sub_crush_depth
  984. #endif
  985. #define sv_2bool        Perl_sv_2bool
  986. #define sv_2cv            Perl_sv_2cv
  987. #define sv_2io            Perl_sv_2io
  988. #define sv_2iv            Perl_sv_2iv
  989. #define sv_2mortal        Perl_sv_2mortal
  990. #define sv_2nv            Perl_sv_2nv
  991. #define sv_2pvutf8        Perl_sv_2pvutf8
  992. #define sv_2pvbyte        Perl_sv_2pvbyte
  993. #define sv_pvn_nomg        Perl_sv_pvn_nomg
  994. #define sv_2uv            Perl_sv_2uv
  995. #define sv_iv            Perl_sv_iv
  996. #define sv_uv            Perl_sv_uv
  997. #define sv_nv            Perl_sv_nv
  998. #define sv_pvn            Perl_sv_pvn
  999. #define sv_pvutf8n        Perl_sv_pvutf8n
  1000. #define sv_pvbyten        Perl_sv_pvbyten
  1001. #define sv_true            Perl_sv_true
  1002. #ifdef PERL_CORE
  1003. #define sv_add_arena        Perl_sv_add_arena
  1004. #endif
  1005. #define sv_backoff        Perl_sv_backoff
  1006. #define sv_bless        Perl_sv_bless
  1007. #define sv_catpvf        Perl_sv_catpvf
  1008. #define sv_vcatpvf        Perl_sv_vcatpvf
  1009. #define sv_catpv        Perl_sv_catpv
  1010. #define sv_chop            Perl_sv_chop
  1011. #ifdef PERL_CORE
  1012. #define sv_clean_all        Perl_sv_clean_all
  1013. #endif
  1014. #ifdef PERL_CORE
  1015. #define sv_clean_objs        Perl_sv_clean_objs
  1016. #endif
  1017. #define sv_clear        Perl_sv_clear
  1018. #define sv_cmp            Perl_sv_cmp
  1019. #define sv_cmp_locale        Perl_sv_cmp_locale
  1020. #if defined(USE_LOCALE_COLLATE)
  1021. #define sv_collxfrm        Perl_sv_collxfrm
  1022. #endif
  1023. #define sv_compile_2op        Perl_sv_compile_2op
  1024. #define getcwd_sv        Perl_getcwd_sv
  1025. #define sv_dec            Perl_sv_dec
  1026. #define sv_dump            Perl_sv_dump
  1027. #define sv_derived_from        Perl_sv_derived_from
  1028. #define sv_eq            Perl_sv_eq
  1029. #define sv_free            Perl_sv_free
  1030. #ifdef PERL_CORE
  1031. #define sv_free_arenas        Perl_sv_free_arenas
  1032. #endif
  1033. #define sv_gets            Perl_sv_gets
  1034. #define sv_grow            Perl_sv_grow
  1035. #define sv_inc            Perl_sv_inc
  1036. #define sv_insert        Perl_sv_insert
  1037. #define sv_isa            Perl_sv_isa
  1038. #define sv_isobject        Perl_sv_isobject
  1039. #define sv_len            Perl_sv_len
  1040. #define sv_len_utf8        Perl_sv_len_utf8
  1041. #define sv_magic        Perl_sv_magic
  1042. #define sv_magicext        Perl_sv_magicext
  1043. #define sv_mortalcopy        Perl_sv_mortalcopy
  1044. #define sv_newmortal        Perl_sv_newmortal
  1045. #define sv_newref        Perl_sv_newref
  1046. #define sv_peek            Perl_sv_peek
  1047. #define sv_pos_u2b        Perl_sv_pos_u2b
  1048. #define sv_pos_b2u        Perl_sv_pos_b2u
  1049. #define sv_pvutf8n_force    Perl_sv_pvutf8n_force
  1050. #define sv_pvbyten_force    Perl_sv_pvbyten_force
  1051. #define sv_recode_to_utf8    Perl_sv_recode_to_utf8
  1052. #define sv_cat_decode        Perl_sv_cat_decode
  1053. #define sv_reftype        Perl_sv_reftype
  1054. #define sv_replace        Perl_sv_replace
  1055. #define sv_report_used        Perl_sv_report_used
  1056. #define sv_reset        Perl_sv_reset
  1057. #define sv_setpvf        Perl_sv_setpvf
  1058. #define sv_vsetpvf        Perl_sv_vsetpvf
  1059. #define sv_setiv        Perl_sv_setiv
  1060. #define sv_setpviv        Perl_sv_setpviv
  1061. #define sv_setuv        Perl_sv_setuv
  1062. #define sv_setnv        Perl_sv_setnv
  1063. #define sv_setref_iv        Perl_sv_setref_iv
  1064. #define sv_setref_uv        Perl_sv_setref_uv
  1065. #define sv_setref_nv        Perl_sv_setref_nv
  1066. #define sv_setref_pv        Perl_sv_setref_pv
  1067. #define sv_setref_pvn        Perl_sv_setref_pvn
  1068. #define sv_setpv        Perl_sv_setpv
  1069. #define sv_setpvn        Perl_sv_setpvn
  1070. #define sv_taint        Perl_sv_taint
  1071. #define sv_tainted        Perl_sv_tainted
  1072. #define sv_unmagic        Perl_sv_unmagic
  1073. #define sv_unref        Perl_sv_unref
  1074. #define sv_unref_flags        Perl_sv_unref_flags
  1075. #define sv_untaint        Perl_sv_untaint
  1076. #define sv_upgrade        Perl_sv_upgrade
  1077. #define sv_usepvn        Perl_sv_usepvn
  1078. #define sv_vcatpvfn        Perl_sv_vcatpvfn
  1079. #define sv_vsetpvfn        Perl_sv_vsetpvfn
  1080. #define str_to_version        Perl_str_to_version
  1081. #define swash_init        Perl_swash_init
  1082. #define swash_fetch        Perl_swash_fetch
  1083. #define taint_env        Perl_taint_env
  1084. #define taint_proper        Perl_taint_proper
  1085. #define to_utf8_case        Perl_to_utf8_case
  1086. #define to_utf8_lower        Perl_to_utf8_lower
  1087. #define to_utf8_upper        Perl_to_utf8_upper
  1088. #define to_utf8_title        Perl_to_utf8_title
  1089. #define to_utf8_fold        Perl_to_utf8_fold
  1090. #if defined(UNLINK_ALL_VERSIONS)
  1091. #define unlnk            Perl_unlnk
  1092. #endif
  1093. #if defined(USE_5005THREADS)
  1094. #define unlock_condpair        Perl_unlock_condpair
  1095. #endif
  1096. #define unpack_str        Perl_unpack_str
  1097. #define unpackstring        Perl_unpackstring
  1098. #define unsharepvn        Perl_unsharepvn
  1099. #ifdef PERL_CORE
  1100. #define unshare_hek        Perl_unshare_hek
  1101. #endif
  1102. #ifdef PERL_CORE
  1103. #define utilize            Perl_utilize
  1104. #endif
  1105. #define utf16_to_utf8        Perl_utf16_to_utf8
  1106. #define utf16_to_utf8_reversed    Perl_utf16_to_utf8_reversed
  1107. #define utf8_length        Perl_utf8_length
  1108. #define utf8_distance        Perl_utf8_distance
  1109. #define utf8_hop        Perl_utf8_hop
  1110. #define utf8_to_bytes        Perl_utf8_to_bytes
  1111. #define bytes_from_utf8        Perl_bytes_from_utf8
  1112. #define bytes_to_utf8        Perl_bytes_to_utf8
  1113. #define utf8_to_uvchr        Perl_utf8_to_uvchr
  1114. #define utf8_to_uvuni        Perl_utf8_to_uvuni
  1115. #define utf8n_to_uvchr        Perl_utf8n_to_uvchr
  1116. #define utf8n_to_uvuni        Perl_utf8n_to_uvuni
  1117. #define uvchr_to_utf8        Perl_uvchr_to_utf8
  1118. #define uvuni_to_utf8        Perl_uvuni_to_utf8
  1119. #define uvchr_to_utf8_flags    Perl_uvchr_to_utf8_flags
  1120. #define uvuni_to_utf8_flags    Perl_uvuni_to_utf8_flags
  1121. #define pv_uni_display        Perl_pv_uni_display
  1122. #define sv_uni_display        Perl_sv_uni_display
  1123. #ifdef PERL_CORE
  1124. #define vivify_defelem        Perl_vivify_defelem
  1125. #endif
  1126. #ifdef PERL_CORE
  1127. #define vivify_ref        Perl_vivify_ref
  1128. #endif
  1129. #ifdef PERL_CORE
  1130. #define wait4pid        Perl_wait4pid
  1131. #endif
  1132. #ifdef PERL_CORE
  1133. #define parse_unicode_opts    Perl_parse_unicode_opts
  1134. #endif
  1135. #ifdef PERL_CORE
  1136. #define seed            Perl_seed
  1137. #endif
  1138. #ifdef PERL_CORE
  1139. #define get_hash_seed        Perl_get_hash_seed
  1140. #endif
  1141. #ifdef PERL_CORE
  1142. #define report_evil_fh        Perl_report_evil_fh
  1143. #endif
  1144. #ifdef PERL_CORE
  1145. #define report_uninit        Perl_report_uninit
  1146. #endif
  1147. #define warn            Perl_warn
  1148. #define vwarn            Perl_vwarn
  1149. #define warner            Perl_warner
  1150. #define vwarner            Perl_vwarner
  1151. #ifdef PERL_CORE
  1152. #define watch            Perl_watch
  1153. #endif
  1154. #define whichsig        Perl_whichsig
  1155. #ifdef PERL_CORE
  1156. #define write_to_stderr        Perl_write_to_stderr
  1157. #endif
  1158. #ifdef PERL_CORE
  1159. #define yyerror            Perl_yyerror
  1160. #endif
  1161. #ifdef USE_PURE_BISON
  1162. #ifdef PERL_CORE
  1163. #define yylex_r            Perl_yylex_r
  1164. #endif
  1165. #endif
  1166. #ifdef PERL_CORE
  1167. #define yylex            Perl_yylex
  1168. #endif
  1169. #ifdef PERL_CORE
  1170. #define yyparse            Perl_yyparse
  1171. #endif
  1172. #ifdef PERL_CORE
  1173. #define yywarn            Perl_yywarn
  1174. #endif
  1175. #if defined(MYMALLOC)
  1176. #define dump_mstats        Perl_dump_mstats
  1177. #define get_mstats        Perl_get_mstats
  1178. #endif
  1179. #define safesysmalloc        Perl_safesysmalloc
  1180. #define safesyscalloc        Perl_safesyscalloc
  1181. #define safesysrealloc        Perl_safesysrealloc
  1182. #define safesysfree        Perl_safesysfree
  1183. #if defined(PERL_GLOBAL_STRUCT)
  1184. #define GetVars            Perl_GetVars
  1185. #endif
  1186. #define runops_standard        Perl_runops_standard
  1187. #define runops_debug        Perl_runops_debug
  1188. #if defined(USE_5005THREADS)
  1189. #define sv_lock            Perl_sv_lock
  1190. #endif
  1191. #define sv_catpvf_mg        Perl_sv_catpvf_mg
  1192. #define sv_vcatpvf_mg        Perl_sv_vcatpvf_mg
  1193. #define sv_catpv_mg        Perl_sv_catpv_mg
  1194. #define sv_catpvn_mg        Perl_sv_catpvn_mg
  1195. #define sv_catsv_mg        Perl_sv_catsv_mg
  1196. #define sv_setpvf_mg        Perl_sv_setpvf_mg
  1197. #define sv_vsetpvf_mg        Perl_sv_vsetpvf_mg
  1198. #define sv_setiv_mg        Perl_sv_setiv_mg
  1199. #define sv_setpviv_mg        Perl_sv_setpviv_mg
  1200. #define sv_setuv_mg        Perl_sv_setuv_mg
  1201. #define sv_setnv_mg        Perl_sv_setnv_mg
  1202. #define sv_setpv_mg        Perl_sv_setpv_mg
  1203. #define sv_setpvn_mg        Perl_sv_setpvn_mg
  1204. #define sv_setsv_mg        Perl_sv_setsv_mg
  1205. #define sv_usepvn_mg        Perl_sv_usepvn_mg
  1206. #define get_vtbl        Perl_get_vtbl
  1207. #define pv_display        Perl_pv_display
  1208. #define dump_indent        Perl_dump_indent
  1209. #define dump_vindent        Perl_dump_vindent
  1210. #define do_gv_dump        Perl_do_gv_dump
  1211. #define do_gvgv_dump        Perl_do_gvgv_dump
  1212. #define do_hv_dump        Perl_do_hv_dump
  1213. #define do_magic_dump        Perl_do_magic_dump
  1214. #define do_op_dump        Perl_do_op_dump
  1215. #define do_pmop_dump        Perl_do_pmop_dump
  1216. #define do_sv_dump        Perl_do_sv_dump
  1217. #define magic_dump        Perl_magic_dump
  1218. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  1219. #define default_protect        Perl_default_protect
  1220. #define vdefault_protect    Perl_vdefault_protect
  1221. #endif
  1222. #define reginitcolors        Perl_reginitcolors
  1223. #define sv_2pv_nolen        Perl_sv_2pv_nolen
  1224. #define sv_2pvutf8_nolen    Perl_sv_2pvutf8_nolen
  1225. #define sv_2pvbyte_nolen    Perl_sv_2pvbyte_nolen
  1226. #define sv_utf8_downgrade    Perl_sv_utf8_downgrade
  1227. #define sv_utf8_encode        Perl_sv_utf8_encode
  1228. #define sv_utf8_decode        Perl_sv_utf8_decode
  1229. #define sv_force_normal        Perl_sv_force_normal
  1230. #define sv_force_normal_flags    Perl_sv_force_normal_flags
  1231. #define tmps_grow        Perl_tmps_grow
  1232. #define sv_rvweaken        Perl_sv_rvweaken
  1233. #ifdef PERL_CORE
  1234. #define magic_killbackrefs    Perl_magic_killbackrefs
  1235. #endif
  1236. #define newANONATTRSUB        Perl_newANONATTRSUB
  1237. #define newATTRSUB        Perl_newATTRSUB
  1238. #define newMYSUB        Perl_newMYSUB
  1239. #ifdef PERL_CORE
  1240. #define my_attrs        Perl_my_attrs
  1241. #endif
  1242. #ifdef PERL_CORE
  1243. #define boot_core_xsutils    Perl_boot_core_xsutils
  1244. #endif
  1245. #if defined(USE_ITHREADS)
  1246. #define cx_dup            Perl_cx_dup
  1247. #define si_dup            Perl_si_dup
  1248. #define ss_dup            Perl_ss_dup
  1249. #define any_dup            Perl_any_dup
  1250. #define he_dup            Perl_he_dup
  1251. #define re_dup            Perl_re_dup
  1252. #define fp_dup            Perl_fp_dup
  1253. #define dirp_dup        Perl_dirp_dup
  1254. #define gp_dup            Perl_gp_dup
  1255. #define mg_dup            Perl_mg_dup
  1256. #define sv_dup            Perl_sv_dup
  1257. #if defined(HAVE_INTERP_INTERN)
  1258. #define sys_intern_dup        Perl_sys_intern_dup
  1259. #endif
  1260. #define ptr_table_new        Perl_ptr_table_new
  1261. #define ptr_table_fetch        Perl_ptr_table_fetch
  1262. #define ptr_table_store        Perl_ptr_table_store
  1263. #define ptr_table_split        Perl_ptr_table_split
  1264. #define ptr_table_clear        Perl_ptr_table_clear
  1265. #define ptr_table_free        Perl_ptr_table_free
  1266. #endif
  1267. #if defined(HAVE_INTERP_INTERN)
  1268. #define sys_intern_clear    Perl_sys_intern_clear
  1269. #define sys_intern_init        Perl_sys_intern_init
  1270. #endif
  1271. #define custom_op_name        Perl_custom_op_name
  1272. #define custom_op_desc        Perl_custom_op_desc
  1273. #define sv_nosharing        Perl_sv_nosharing
  1274. #define sv_nolocking        Perl_sv_nolocking
  1275. #define sv_nounlocking        Perl_sv_nounlocking
  1276. #define nothreadhook        Perl_nothreadhook
  1277. #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
  1278. #ifdef PERL_CORE
  1279. #define avhv_index_sv        S_avhv_index_sv
  1280. #endif
  1281. #ifdef PERL_CORE
  1282. #define avhv_index        S_avhv_index
  1283. #endif
  1284. #endif
  1285. #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
  1286. #ifdef PERL_CORE
  1287. #define do_trans_simple        S_do_trans_simple
  1288. #endif
  1289. #ifdef PERL_CORE
  1290. #define do_trans_count        S_do_trans_count
  1291. #endif
  1292. #ifdef PERL_CORE
  1293. #define do_trans_complex    S_do_trans_complex
  1294. #endif
  1295. #ifdef PERL_CORE
  1296. #define do_trans_simple_utf8    S_do_trans_simple_utf8
  1297. #endif
  1298. #ifdef PERL_CORE
  1299. #define do_trans_count_utf8    S_do_trans_count_utf8
  1300. #endif
  1301. #ifdef PERL_CORE
  1302. #define do_trans_complex_utf8    S_do_trans_complex_utf8
  1303. #endif
  1304. #endif
  1305. #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
  1306. #ifdef PERL_CORE
  1307. #define gv_init_sv        S_gv_init_sv
  1308. #endif
  1309. #ifdef PERL_CORE
  1310. #define require_errno        S_require_errno
  1311. #endif
  1312. #endif
  1313. #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
  1314. #ifdef PERL_CORE
  1315. #define hsplit            S_hsplit
  1316. #endif
  1317. #ifdef PERL_CORE
  1318. #define hfreeentries        S_hfreeentries
  1319. #endif
  1320. #ifdef PERL_CORE
  1321. #define more_he            S_more_he
  1322. #endif
  1323. #ifdef PERL_CORE
  1324. #define new_he            S_new_he
  1325. #endif
  1326. #ifdef PERL_CORE
  1327. #define del_he            S_del_he
  1328. #endif
  1329. #ifdef PERL_CORE
  1330. #define save_hek_flags        S_save_hek_flags
  1331. #endif
  1332. #ifdef PERL_CORE
  1333. #define hv_magic_check        S_hv_magic_check
  1334. #endif
  1335. #ifdef PERL_CORE
  1336. #define unshare_hek_or_pvn    S_unshare_hek_or_pvn
  1337. #endif
  1338. #ifdef PERL_CORE
  1339. #define share_hek_flags        S_share_hek_flags
  1340. #endif
  1341. #ifdef PERL_CORE
  1342. #define hv_fetch_flags        S_hv_fetch_flags
  1343. #endif
  1344. #ifdef PERL_CORE
  1345. #define hv_notallowed        S_hv_notallowed
  1346. #endif
  1347. #endif
  1348. #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
  1349. #ifdef PERL_CORE
  1350. #define save_magic        S_save_magic
  1351. #endif
  1352. #ifdef PERL_CORE
  1353. #define magic_methpack        S_magic_methpack
  1354. #endif
  1355. #ifdef PERL_CORE
  1356. #define magic_methcall        S_magic_methcall
  1357. #endif
  1358. #endif
  1359. #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
  1360. #ifdef PERL_CORE
  1361. #define list_assignment        S_list_assignment
  1362. #endif
  1363. #ifdef PERL_CORE
  1364. #define bad_type        S_bad_type
  1365. #endif
  1366. #ifdef PERL_CORE
  1367. #define cop_free        S_cop_free
  1368. #endif
  1369. #ifdef PERL_CORE
  1370. #define modkids            S_modkids
  1371. #endif
  1372. #ifdef PERL_CORE
  1373. #define no_bareword_allowed    S_no_bareword_allowed
  1374. #endif
  1375. #ifdef PERL_CORE
  1376. #define no_fh_allowed        S_no_fh_allowed
  1377. #endif
  1378. #ifdef PERL_CORE
  1379. #define scalarboolean        S_scalarboolean
  1380. #endif
  1381. #ifdef PERL_CORE
  1382. #define too_few_arguments    S_too_few_arguments
  1383. #endif
  1384. #ifdef PERL_CORE
  1385. #define too_many_arguments    S_too_many_arguments
  1386. #endif
  1387. #ifdef PERL_CORE
  1388. #define newDEFSVOP        S_newDEFSVOP
  1389. #endif
  1390. #ifdef PERL_CORE
  1391. #define new_logop        S_new_logop
  1392. #endif
  1393. #ifdef PERL_CORE
  1394. #define simplify_sort        S_simplify_sort
  1395. #endif
  1396. #ifdef PERL_CORE
  1397. #define is_handle_constructor    S_is_handle_constructor
  1398. #endif
  1399. #ifdef PERL_CORE
  1400. #define gv_ename        S_gv_ename
  1401. #endif
  1402. #ifdef PERL_CORE
  1403. #define scalar_mod_type        S_scalar_mod_type
  1404. #endif
  1405. #ifdef PERL_CORE
  1406. #define my_kid            S_my_kid
  1407. #endif
  1408. #ifdef PERL_CORE
  1409. #define dup_attrlist        S_dup_attrlist
  1410. #endif
  1411. #ifdef PERL_CORE
  1412. #define apply_attrs        S_apply_attrs
  1413. #endif
  1414. #ifdef PERL_CORE
  1415. #define apply_attrs_my        S_apply_attrs_my
  1416. #endif
  1417. #endif
  1418. #if defined(PL_OP_SLAB_ALLOC)
  1419. #define Slab_Alloc        Perl_Slab_Alloc
  1420. #define Slab_Free        Perl_Slab_Free
  1421. #endif
  1422. #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
  1423. #ifdef PERL_CORE
  1424. #define find_beginning        S_find_beginning
  1425. #endif
  1426. #ifdef PERL_CORE
  1427. #define forbid_setid        S_forbid_setid
  1428. #endif
  1429. #ifdef PERL_CORE
  1430. #define incpush            S_incpush
  1431. #endif
  1432. #ifdef PERL_CORE
  1433. #define init_interp        S_init_interp
  1434. #endif
  1435. #ifdef PERL_CORE
  1436. #define init_ids        S_init_ids
  1437. #endif
  1438. #ifdef PERL_CORE
  1439. #define init_lexer        S_init_lexer
  1440. #endif
  1441. #ifdef PERL_CORE
  1442. #define init_main_stash        S_init_main_stash
  1443. #endif
  1444. #ifdef PERL_CORE
  1445. #define init_perllib        S_init_perllib
  1446. #endif
  1447. #ifdef PERL_CORE
  1448. #define init_postdump_symbols    S_init_postdump_symbols
  1449. #endif
  1450. #ifdef PERL_CORE
  1451. #define init_predump_symbols    S_init_predump_symbols
  1452. #endif
  1453. #ifdef PERL_CORE
  1454. #define my_exit_jump        S_my_exit_jump
  1455. #endif
  1456. #ifdef PERL_CORE
  1457. #define nuke_stacks        S_nuke_stacks
  1458. #endif
  1459. #ifdef PERL_CORE
  1460. #define open_script        S_open_script
  1461. #endif
  1462. #ifdef PERL_CORE
  1463. #define usage            S_usage
  1464. #endif
  1465. #ifdef PERL_CORE
  1466. #define validate_suid        S_validate_suid
  1467. #endif
  1468. #  if defined(IAMSUID)
  1469. #ifdef PERL_CORE
  1470. #define fd_on_nosuid_fs        S_fd_on_nosuid_fs
  1471. #endif
  1472. #  endif
  1473. #ifdef PERL_CORE
  1474. #define parse_body        S_parse_body
  1475. #endif
  1476. #ifdef PERL_CORE
  1477. #define run_body        S_run_body
  1478. #endif
  1479. #ifdef PERL_CORE
  1480. #define call_body        S_call_body
  1481. #endif
  1482. #ifdef PERL_CORE
  1483. #define call_list_body        S_call_list_body
  1484. #endif
  1485. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  1486. #ifdef PERL_CORE
  1487. #define vparse_body        S_vparse_body
  1488. #endif
  1489. #ifdef PERL_CORE
  1490. #define vrun_body        S_vrun_body
  1491. #endif
  1492. #ifdef PERL_CORE
  1493. #define vcall_body        S_vcall_body
  1494. #endif
  1495. #ifdef PERL_CORE
  1496. #define vcall_list_body        S_vcall_list_body
  1497. #endif
  1498. #endif
  1499. #  if defined(USE_5005THREADS)
  1500. #ifdef PERL_CORE
  1501. #define init_main_thread    S_init_main_thread
  1502. #endif
  1503. #  endif
  1504. #endif
  1505. #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
  1506. #ifdef PERL_CORE
  1507. #define refto            S_refto
  1508. #endif
  1509. #endif
  1510. #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
  1511. #ifdef PERL_CORE
  1512. #define unpack_rec        S_unpack_rec
  1513. #endif
  1514. #ifdef PERL_CORE
  1515. #define pack_rec        S_pack_rec
  1516. #endif
  1517. #ifdef PERL_CORE
  1518. #define mul128            S_mul128
  1519. #endif
  1520. #ifdef PERL_CORE
  1521. #define measure_struct        S_measure_struct
  1522. #endif
  1523. #ifdef PERL_CORE
  1524. #define group_end        S_group_end
  1525. #endif
  1526. #ifdef PERL_CORE
  1527. #define get_num            S_get_num
  1528. #endif
  1529. #ifdef PERL_CORE
  1530. #define next_symbol        S_next_symbol
  1531. #endif
  1532. #ifdef PERL_CORE
  1533. #define doencodes        S_doencodes
  1534. #endif
  1535. #ifdef PERL_CORE
  1536. #define is_an_int        S_is_an_int
  1537. #endif
  1538. #ifdef PERL_CORE
  1539. #define div128            S_div128
  1540. #endif
  1541. #endif
  1542. #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
  1543. #ifdef PERL_CORE
  1544. #define docatch            S_docatch
  1545. #endif
  1546. #ifdef PERL_CORE
  1547. #define docatch_body        S_docatch_body
  1548. #endif
  1549. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  1550. #ifdef PERL_CORE
  1551. #define vdocatch_body        S_vdocatch_body
  1552. #endif
  1553. #endif
  1554. #ifdef PERL_CORE
  1555. #define dofindlabel        S_dofindlabel
  1556. #endif
  1557. #ifdef PERL_CORE
  1558. #define doparseform        S_doparseform
  1559. #endif
  1560. #ifdef PERL_CORE
  1561. #define dopoptoeval        S_dopoptoeval
  1562. #endif
  1563. #ifdef PERL_CORE
  1564. #define dopoptolabel        S_dopoptolabel
  1565. #endif
  1566. #ifdef PERL_CORE
  1567. #define dopoptoloop        S_dopoptoloop
  1568. #endif
  1569. #ifdef PERL_CORE
  1570. #define dopoptosub        S_dopoptosub
  1571. #endif
  1572. #ifdef PERL_CORE
  1573. #define dopoptosub_at        S_dopoptosub_at
  1574. #endif
  1575. #ifdef PERL_CORE
  1576. #define save_lines        S_save_lines
  1577. #endif
  1578. #ifdef PERL_CORE
  1579. #define doeval            S_doeval
  1580. #endif
  1581. #ifdef PERL_CORE
  1582. #define doopen_pm        S_doopen_pm
  1583. #endif
  1584. #ifdef PERL_CORE
  1585. #define path_is_absolute    S_path_is_absolute
  1586. #endif
  1587. #endif
  1588. #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
  1589. #ifdef PERL_CORE
  1590. #define do_maybe_phash        S_do_maybe_phash
  1591. #endif
  1592. #ifdef PERL_CORE
  1593. #define do_oddball        S_do_oddball
  1594. #endif
  1595. #ifdef PERL_CORE
  1596. #define get_db_sub        S_get_db_sub
  1597. #endif
  1598. #ifdef PERL_CORE
  1599. #define method_common        S_method_common
  1600. #endif
  1601. #endif
  1602. #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
  1603. #ifdef PERL_CORE
  1604. #define doform            S_doform
  1605. #endif
  1606. #ifdef PERL_CORE
  1607. #define emulate_eaccess        S_emulate_eaccess
  1608. #endif
  1609. #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
  1610. #ifdef PERL_CORE
  1611. #define dooneliner        S_dooneliner
  1612. #endif
  1613. #  endif
  1614. #endif
  1615. #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
  1616. #if defined(PERL_CORE) || defined(PERL_EXT)
  1617. #define reg            S_reg
  1618. #endif
  1619. #if defined(PERL_CORE) || defined(PERL_EXT)
  1620. #define reganode        S_reganode
  1621. #endif
  1622. #if defined(PERL_CORE) || defined(PERL_EXT)
  1623. #define regatom            S_regatom
  1624. #endif
  1625. #if defined(PERL_CORE) || defined(PERL_EXT)
  1626. #define regbranch        S_regbranch
  1627. #endif
  1628. #if defined(PERL_CORE) || defined(PERL_EXT)
  1629. #define reguni            S_reguni
  1630. #endif
  1631. #if defined(PERL_CORE) || defined(PERL_EXT)
  1632. #define regclass        S_regclass
  1633. #endif
  1634. #if defined(PERL_CORE) || defined(PERL_EXT)
  1635. #define regcurly        S_regcurly
  1636. #endif
  1637. #if defined(PERL_CORE) || defined(PERL_EXT)
  1638. #define reg_node        S_reg_node
  1639. #endif
  1640. #if defined(PERL_CORE) || defined(PERL_EXT)
  1641. #define regpiece        S_regpiece
  1642. #endif
  1643. #if defined(PERL_CORE) || defined(PERL_EXT)
  1644. #define reginsert        S_reginsert
  1645. #endif
  1646. #if defined(PERL_CORE) || defined(PERL_EXT)
  1647. #define regoptail        S_regoptail
  1648. #endif
  1649. #if defined(PERL_CORE) || defined(PERL_EXT)
  1650. #define regtail            S_regtail
  1651. #endif
  1652. #if defined(PERL_CORE) || defined(PERL_EXT)
  1653. #define regwhite        S_regwhite
  1654. #endif
  1655. #if defined(PERL_CORE) || defined(PERL_EXT)
  1656. #define nextchar        S_nextchar
  1657. #endif
  1658. #  ifdef DEBUGGING
  1659. #if defined(PERL_CORE) || defined(PERL_EXT)
  1660. #define dumpuntil        S_dumpuntil
  1661. #endif
  1662. #if defined(PERL_CORE) || defined(PERL_EXT)
  1663. #define put_byte        S_put_byte
  1664. #endif
  1665. #  endif
  1666. #if defined(PERL_CORE) || defined(PERL_EXT)
  1667. #define scan_commit        S_scan_commit
  1668. #endif
  1669. #if defined(PERL_CORE) || defined(PERL_EXT)
  1670. #define cl_anything        S_cl_anything
  1671. #endif
  1672. #if defined(PERL_CORE) || defined(PERL_EXT)
  1673. #define cl_is_anything        S_cl_is_anything
  1674. #endif
  1675. #if defined(PERL_CORE) || defined(PERL_EXT)
  1676. #define cl_init            S_cl_init
  1677. #endif
  1678. #if defined(PERL_CORE) || defined(PERL_EXT)
  1679. #define cl_init_zero        S_cl_init_zero
  1680. #endif
  1681. #if defined(PERL_CORE) || defined(PERL_EXT)
  1682. #define cl_and            S_cl_and
  1683. #endif
  1684. #if defined(PERL_CORE) || defined(PERL_EXT)
  1685. #define cl_or            S_cl_or
  1686. #endif
  1687. #if defined(PERL_CORE) || defined(PERL_EXT)
  1688. #define study_chunk        S_study_chunk
  1689. #endif
  1690. #if defined(PERL_CORE) || defined(PERL_EXT)
  1691. #define add_data        S_add_data
  1692. #endif
  1693. #ifdef PERL_CORE
  1694. #define re_croak2        S_re_croak2
  1695. #endif
  1696. #if defined(PERL_CORE) || defined(PERL_EXT)
  1697. #define regpposixcc        S_regpposixcc
  1698. #endif
  1699. #if defined(PERL_CORE) || defined(PERL_EXT)
  1700. #define checkposixcc        S_checkposixcc
  1701. #endif
  1702. #endif
  1703. #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
  1704. #if defined(PERL_CORE) || defined(PERL_EXT)
  1705. #define regmatch        S_regmatch
  1706. #endif
  1707. #if defined(PERL_CORE) || defined(PERL_EXT)
  1708. #define regrepeat        S_regrepeat
  1709. #endif
  1710. #if defined(PERL_CORE) || defined(PERL_EXT)
  1711. #define regrepeat_hard        S_regrepeat_hard
  1712. #endif
  1713. #if defined(PERL_CORE) || defined(PERL_EXT)
  1714. #define regtry            S_regtry
  1715. #endif
  1716. #if defined(PERL_CORE) || defined(PERL_EXT)
  1717. #define reginclass        S_reginclass
  1718. #endif
  1719. #if defined(PERL_CORE) || defined(PERL_EXT)
  1720. #define regcppush        S_regcppush
  1721. #endif
  1722. #if defined(PERL_CORE) || defined(PERL_EXT)
  1723. #define regcppop        S_regcppop
  1724. #endif
  1725. #if defined(PERL_CORE) || defined(PERL_EXT)
  1726. #define regcp_set_to        S_regcp_set_to
  1727. #endif
  1728. #if defined(PERL_CORE) || defined(PERL_EXT)
  1729. #define cache_re        S_cache_re
  1730. #endif
  1731. #if defined(PERL_CORE) || defined(PERL_EXT)
  1732. #define reghop            S_reghop
  1733. #endif
  1734. #if defined(PERL_CORE) || defined(PERL_EXT)
  1735. #define reghop3            S_reghop3
  1736. #endif
  1737. #if defined(PERL_CORE) || defined(PERL_EXT)
  1738. #define reghopmaybe        S_reghopmaybe
  1739. #endif
  1740. #if defined(PERL_CORE) || defined(PERL_EXT)
  1741. #define reghopmaybe3        S_reghopmaybe3
  1742. #endif
  1743. #if defined(PERL_CORE) || defined(PERL_EXT)
  1744. #define find_byclass        S_find_byclass
  1745. #endif
  1746. #if defined(PERL_CORE) || defined(PERL_EXT)
  1747. #define to_utf8_substr        S_to_utf8_substr
  1748. #endif
  1749. #if defined(PERL_CORE) || defined(PERL_EXT)
  1750. #define to_byte_substr        S_to_byte_substr
  1751. #endif
  1752. #endif
  1753. #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
  1754. #ifdef PERL_CORE
  1755. #define deb_curcv        S_deb_curcv
  1756. #endif
  1757. #ifdef PERL_CORE
  1758. #define debprof            S_debprof
  1759. #endif
  1760. #endif
  1761. #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
  1762. #ifdef PERL_CORE
  1763. #define save_scalar_at        S_save_scalar_at
  1764. #endif
  1765. #endif
  1766. #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
  1767. #ifdef PERL_CORE
  1768. #define asIV            S_asIV
  1769. #endif
  1770. #ifdef PERL_CORE
  1771. #define asUV            S_asUV
  1772. #endif
  1773. #ifdef PERL_CORE
  1774. #define more_sv            S_more_sv
  1775. #endif
  1776. #ifdef PERL_CORE
  1777. #define more_xiv        S_more_xiv
  1778. #endif
  1779. #ifdef PERL_CORE
  1780. #define more_xnv        S_more_xnv
  1781. #endif
  1782. #ifdef PERL_CORE
  1783. #define more_xpv        S_more_xpv
  1784. #endif
  1785. #ifdef PERL_CORE
  1786. #define more_xpviv        S_more_xpviv
  1787. #endif
  1788. #ifdef PERL_CORE
  1789. #define more_xpvnv        S_more_xpvnv
  1790. #endif
  1791. #ifdef PERL_CORE
  1792. #define more_xpvcv        S_more_xpvcv
  1793. #endif
  1794. #ifdef PERL_CORE
  1795. #define more_xpvav        S_more_xpvav
  1796. #endif
  1797. #ifdef PERL_CORE
  1798. #define more_xpvhv        S_more_xpvhv
  1799. #endif
  1800. #ifdef PERL_CORE
  1801. #define more_xpvmg        S_more_xpvmg
  1802. #endif
  1803. #ifdef PERL_CORE
  1804. #define more_xpvlv        S_more_xpvlv
  1805. #endif
  1806. #ifdef PERL_CORE
  1807. #define more_xpvbm        S_more_xpvbm
  1808. #endif
  1809. #ifdef PERL_CORE
  1810. #define more_xrv        S_more_xrv
  1811. #endif
  1812. #ifdef PERL_CORE
  1813. #define new_xiv            S_new_xiv
  1814. #endif
  1815. #ifdef PERL_CORE
  1816. #define new_xnv            S_new_xnv
  1817. #endif
  1818. #ifdef PERL_CORE
  1819. #define new_xpv            S_new_xpv
  1820. #endif
  1821. #ifdef PERL_CORE
  1822. #define new_xpviv        S_new_xpviv
  1823. #endif
  1824. #ifdef PERL_CORE
  1825. #define new_xpvnv        S_new_xpvnv
  1826. #endif
  1827. #ifdef PERL_CORE
  1828. #define new_xpvcv        S_new_xpvcv
  1829. #endif
  1830. #ifdef PERL_CORE
  1831. #define new_xpvav        S_new_xpvav
  1832. #endif
  1833. #ifdef PERL_CORE
  1834. #define new_xpvhv        S_new_xpvhv
  1835. #endif
  1836. #ifdef PERL_CORE
  1837. #define new_xpvmg        S_new_xpvmg
  1838. #endif
  1839. #ifdef PERL_CORE
  1840. #define new_xpvlv        S_new_xpvlv
  1841. #endif
  1842. #ifdef PERL_CORE
  1843. #define new_xpvbm        S_new_xpvbm
  1844. #endif
  1845. #ifdef PERL_CORE
  1846. #define new_xrv            S_new_xrv
  1847. #endif
  1848. #ifdef PERL_CORE
  1849. #define del_xiv            S_del_xiv
  1850. #endif
  1851. #ifdef PERL_CORE
  1852. #define del_xnv            S_del_xnv
  1853. #endif
  1854. #ifdef PERL_CORE
  1855. #define del_xpv            S_del_xpv
  1856. #endif
  1857. #ifdef PERL_CORE
  1858. #define del_xpviv        S_del_xpviv
  1859. #endif
  1860. #ifdef PERL_CORE
  1861. #define del_xpvnv        S_del_xpvnv
  1862. #endif
  1863. #ifdef PERL_CORE
  1864. #define del_xpvcv        S_del_xpvcv
  1865. #endif
  1866. #ifdef PERL_CORE
  1867. #define del_xpvav        S_del_xpvav
  1868. #endif
  1869. #ifdef PERL_CORE
  1870. #define del_xpvhv        S_del_xpvhv
  1871. #endif
  1872. #ifdef PERL_CORE
  1873. #define del_xpvmg        S_del_xpvmg
  1874. #endif
  1875. #ifdef PERL_CORE
  1876. #define del_xpvlv        S_del_xpvlv
  1877. #endif
  1878. #ifdef PERL_CORE
  1879. #define del_xpvbm        S_del_xpvbm
  1880. #endif
  1881. #ifdef PERL_CORE
  1882. #define del_xrv            S_del_xrv
  1883. #endif
  1884. #ifdef PERL_CORE
  1885. #define sv_unglob        S_sv_unglob
  1886. #endif
  1887. #ifdef PERL_CORE
  1888. #define not_a_number        S_not_a_number
  1889. #endif
  1890. #ifdef PERL_CORE
  1891. #define visit            S_visit
  1892. #endif
  1893. #ifdef PERL_CORE
  1894. #define sv_add_backref        S_sv_add_backref
  1895. #endif
  1896. #ifdef PERL_CORE
  1897. #define sv_del_backref        S_sv_del_backref
  1898. #endif
  1899. #  ifdef DEBUGGING
  1900. #ifdef PERL_CORE
  1901. #define del_sv            S_del_sv
  1902. #endif
  1903. #  endif
  1904. #  if !defined(NV_PRESERVES_UV)
  1905. #ifdef PERL_CORE
  1906. #define sv_2iuv_non_preserve    S_sv_2iuv_non_preserve
  1907. #endif
  1908. #  endif
  1909. #ifdef PERL_CORE
  1910. #define expect_number        S_expect_number
  1911. #endif
  1912. #  if defined(USE_ITHREADS)
  1913. #ifdef PERL_CORE
  1914. #define gv_share        S_gv_share
  1915. #endif
  1916. #  endif
  1917. #ifdef PERL_CORE
  1918. #define utf8_mg_pos        S_utf8_mg_pos
  1919. #endif
  1920. #ifdef PERL_CORE
  1921. #define utf8_mg_pos_init    S_utf8_mg_pos_init
  1922. #endif
  1923. #endif
  1924. #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
  1925. #ifdef PERL_CORE
  1926. #define check_uni        S_check_uni
  1927. #endif
  1928. #ifdef PERL_CORE
  1929. #define force_next        S_force_next
  1930. #endif
  1931. #ifdef PERL_CORE
  1932. #define force_version        S_force_version
  1933. #endif
  1934. #ifdef PERL_CORE
  1935. #define force_word        S_force_word
  1936. #endif
  1937. #ifdef PERL_CORE
  1938. #define tokeq            S_tokeq
  1939. #endif
  1940. #ifdef PERL_CORE
  1941. #define pending_ident        S_pending_ident
  1942. #endif
  1943. #ifdef PERL_CORE
  1944. #define scan_const        S_scan_const
  1945. #endif
  1946. #ifdef PERL_CORE
  1947. #define scan_formline        S_scan_formline
  1948. #endif
  1949. #ifdef PERL_CORE
  1950. #define scan_heredoc        S_scan_heredoc
  1951. #endif
  1952. #ifdef PERL_CORE
  1953. #define scan_ident        S_scan_ident
  1954. #endif
  1955. #ifdef PERL_CORE
  1956. #define scan_inputsymbol    S_scan_inputsymbol
  1957. #endif
  1958. #ifdef PERL_CORE
  1959. #define scan_pat        S_scan_pat
  1960. #endif
  1961. #ifdef PERL_CORE
  1962. #define scan_str        S_scan_str
  1963. #endif
  1964. #ifdef PERL_CORE
  1965. #define scan_subst        S_scan_subst
  1966. #endif
  1967. #ifdef PERL_CORE
  1968. #define scan_trans        S_scan_trans
  1969. #endif
  1970. #ifdef PERL_CORE
  1971. #define scan_word        S_scan_word
  1972. #endif
  1973. #ifdef PERL_CORE
  1974. #define skipspace        S_skipspace
  1975. #endif
  1976. #ifdef PERL_CORE
  1977. #define swallow_bom        S_swallow_bom
  1978. #endif
  1979. #ifdef PERL_CORE
  1980. #define checkcomma        S_checkcomma
  1981. #endif
  1982. #ifdef PERL_CORE
  1983. #define force_ident        S_force_ident
  1984. #endif
  1985. #ifdef PERL_CORE
  1986. #define incline            S_incline
  1987. #endif
  1988. #ifdef PERL_CORE
  1989. #define intuit_method        S_intuit_method
  1990. #endif
  1991. #ifdef PERL_CORE
  1992. #define intuit_more        S_intuit_more
  1993. #endif
  1994. #ifdef PERL_CORE
  1995. #define lop            S_lop
  1996. #endif
  1997. #ifdef PERL_CORE
  1998. #define missingterm        S_missingterm
  1999. #endif
  2000. #ifdef PERL_CORE
  2001. #define no_op            S_no_op
  2002. #endif
  2003. #ifdef PERL_CORE
  2004. #define set_csh            S_set_csh
  2005. #endif
  2006. #ifdef PERL_CORE
  2007. #define sublex_done        S_sublex_done
  2008. #endif
  2009. #ifdef PERL_CORE
  2010. #define sublex_push        S_sublex_push
  2011. #endif
  2012. #ifdef PERL_CORE
  2013. #define sublex_start        S_sublex_start
  2014. #endif
  2015. #ifdef PERL_CORE
  2016. #define filter_gets        S_filter_gets
  2017. #endif
  2018. #ifdef PERL_CORE
  2019. #define find_in_my_stash    S_find_in_my_stash
  2020. #endif
  2021. #ifdef PERL_CORE
  2022. #define new_constant        S_new_constant
  2023. #endif
  2024. #  if defined(DEBUGGING)
  2025. #ifdef PERL_CORE
  2026. #define tokereport        S_tokereport
  2027. #endif
  2028. #  endif
  2029. #ifdef PERL_CORE
  2030. #define ao            S_ao
  2031. #endif
  2032. #ifdef PERL_CORE
  2033. #define depcom            S_depcom
  2034. #endif
  2035. #ifdef PERL_CORE
  2036. #define incl_perldb        S_incl_perldb
  2037. #endif
  2038. #if 0
  2039. #ifdef PERL_CORE
  2040. #define utf16_textfilter    S_utf16_textfilter
  2041. #endif
  2042. #ifdef PERL_CORE
  2043. #define utf16rev_textfilter    S_utf16rev_textfilter
  2044. #endif
  2045. #endif
  2046. #  if defined(PERL_CR_FILTER)
  2047. #ifdef PERL_CORE
  2048. #define cr_textfilter        S_cr_textfilter
  2049. #endif
  2050. #  endif
  2051. #endif
  2052. #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
  2053. #ifdef PERL_CORE
  2054. #define isa_lookup        S_isa_lookup
  2055. #endif
  2056. #endif
  2057. #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
  2058. #ifdef PERL_CORE
  2059. #define stdize_locale        S_stdize_locale
  2060. #endif
  2061. #endif
  2062. #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
  2063. #ifdef PERL_CORE
  2064. #define closest_cop        S_closest_cop
  2065. #endif
  2066. #ifdef PERL_CORE
  2067. #define mess_alloc        S_mess_alloc
  2068. #endif
  2069. #endif
  2070. #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
  2071. #ifdef PERL_CORE
  2072. #define mulexp10        S_mulexp10
  2073. #endif
  2074. #endif
  2075. #define sv_setsv_flags        Perl_sv_setsv_flags
  2076. #define sv_catpvn_flags        Perl_sv_catpvn_flags
  2077. #define sv_catsv_flags        Perl_sv_catsv_flags
  2078. #define sv_utf8_upgrade_flags    Perl_sv_utf8_upgrade_flags
  2079. #define sv_pvn_force_flags    Perl_sv_pvn_force_flags
  2080. #define sv_2pv_flags        Perl_sv_2pv_flags
  2081. #define sv_copypv        Perl_sv_copypv
  2082. #define my_atof2        Perl_my_atof2
  2083. #define my_socketpair        Perl_my_socketpair
  2084. #if defined(USE_PERLIO) && !defined(USE_SFIO)
  2085. #define PerlIO_close        Perl_PerlIO_close
  2086. #define PerlIO_fill        Perl_PerlIO_fill
  2087. #define PerlIO_fileno        Perl_PerlIO_fileno
  2088. #define PerlIO_eof        Perl_PerlIO_eof
  2089. #define PerlIO_error        Perl_PerlIO_error
  2090. #define PerlIO_flush        Perl_PerlIO_flush
  2091. #define PerlIO_clearerr        Perl_PerlIO_clearerr
  2092. #define PerlIO_set_cnt        Perl_PerlIO_set_cnt
  2093. #define PerlIO_set_ptrcnt    Perl_PerlIO_set_ptrcnt
  2094. #define PerlIO_setlinebuf    Perl_PerlIO_setlinebuf
  2095. #define PerlIO_read        Perl_PerlIO_read
  2096. #define PerlIO_write        Perl_PerlIO_write
  2097. #define PerlIO_unread        Perl_PerlIO_unread
  2098. #define PerlIO_tell        Perl_PerlIO_tell
  2099. #define PerlIO_seek        Perl_PerlIO_seek
  2100. #define PerlIO_get_base        Perl_PerlIO_get_base
  2101. #define PerlIO_get_ptr        Perl_PerlIO_get_ptr
  2102. #define PerlIO_get_bufsiz    Perl_PerlIO_get_bufsiz
  2103. #define PerlIO_get_cnt        Perl_PerlIO_get_cnt
  2104. #define PerlIO_stdin        Perl_PerlIO_stdin
  2105. #define PerlIO_stdout        Perl_PerlIO_stdout
  2106. #define PerlIO_stderr        Perl_PerlIO_stderr
  2107. #endif /* PERLIO_LAYERS */
  2108. #ifdef PERL_CORE
  2109. #define deb_stack_all        Perl_deb_stack_all
  2110. #endif
  2111. #ifdef PERL_IN_DEB_C
  2112. #ifdef PERL_CORE
  2113. #define deb_stack_n        S_deb_stack_n
  2114. #endif
  2115. #endif
  2116. #ifdef PERL_CORE
  2117. #define pad_new            Perl_pad_new
  2118. #endif
  2119. #ifdef PERL_CORE
  2120. #define pad_undef        Perl_pad_undef
  2121. #endif
  2122. #ifdef PERL_CORE
  2123. #define pad_add_name        Perl_pad_add_name
  2124. #endif
  2125. #ifdef PERL_CORE
  2126. #define pad_add_anon        Perl_pad_add_anon
  2127. #endif
  2128. #ifdef PERL_CORE
  2129. #define pad_check_dup        Perl_pad_check_dup
  2130. #endif
  2131. #ifdef DEBUGGING
  2132. #ifdef PERL_CORE
  2133. #define pad_setsv        Perl_pad_setsv
  2134. #endif
  2135. #endif
  2136. #ifdef PERL_CORE
  2137. #define pad_block_start        Perl_pad_block_start
  2138. #endif
  2139. #ifdef PERL_CORE
  2140. #define pad_tidy        Perl_pad_tidy
  2141. #endif
  2142. #ifdef PERL_CORE
  2143. #define do_dump_pad        Perl_do_dump_pad
  2144. #endif
  2145. #ifdef PERL_CORE
  2146. #define pad_fixup_inner_anons    Perl_pad_fixup_inner_anons
  2147. #endif
  2148. #ifdef PERL_CORE
  2149. #define pad_push        Perl_pad_push
  2150. #endif
  2151. #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
  2152. #ifdef PERL_CORE
  2153. #define pad_findlex        S_pad_findlex
  2154. #endif
  2155. #  if defined(DEBUGGING)
  2156. #ifdef PERL_CORE
  2157. #define cv_dump            S_cv_dump
  2158. #endif
  2159. #  endif
  2160. #ifdef PERL_CORE
  2161. #define cv_clone2        S_cv_clone2
  2162. #endif
  2163. #endif
  2164. #ifdef PERL_CORE
  2165. #define find_runcv        Perl_find_runcv
  2166. #endif
  2167. #ifdef PERL_CORE
  2168. #define free_tied_hv_pool    Perl_free_tied_hv_pool
  2169. #endif
  2170. #if defined(DEBUGGING)
  2171. #ifdef PERL_CORE
  2172. #define get_debug_opts        Perl_get_debug_opts
  2173. #endif
  2174. #endif
  2175. #define ck_anoncode        Perl_ck_anoncode
  2176. #define ck_bitop        Perl_ck_bitop
  2177. #define ck_concat        Perl_ck_concat
  2178. #define ck_defined        Perl_ck_defined
  2179. #define ck_delete        Perl_ck_delete
  2180. #define ck_die            Perl_ck_die
  2181. #define ck_eof            Perl_ck_eof
  2182. #define ck_eval            Perl_ck_eval
  2183. #define ck_exec            Perl_ck_exec
  2184. #define ck_exists        Perl_ck_exists
  2185. #define ck_exit            Perl_ck_exit
  2186. #define ck_ftst            Perl_ck_ftst
  2187. #define ck_fun            Perl_ck_fun
  2188. #define ck_glob            Perl_ck_glob
  2189. #define ck_grep            Perl_ck_grep
  2190. #define ck_index        Perl_ck_index
  2191. #define ck_join            Perl_ck_join
  2192. #define ck_lengthconst        Perl_ck_lengthconst
  2193. #define ck_lfun            Perl_ck_lfun
  2194. #define ck_listiob        Perl_ck_listiob
  2195. #define ck_match        Perl_ck_match
  2196. #define ck_method        Perl_ck_method
  2197. #define ck_null            Perl_ck_null
  2198. #define ck_open            Perl_ck_open
  2199. #define ck_repeat        Perl_ck_repeat
  2200. #define ck_require        Perl_ck_require
  2201. #define ck_return        Perl_ck_return
  2202. #define ck_rfun            Perl_ck_rfun
  2203. #define ck_rvconst        Perl_ck_rvconst
  2204. #define ck_sassign        Perl_ck_sassign
  2205. #define ck_select        Perl_ck_select
  2206. #define ck_shift        Perl_ck_shift
  2207. #define ck_sort            Perl_ck_sort
  2208. #define ck_spair        Perl_ck_spair
  2209. #define ck_split        Perl_ck_split
  2210. #define ck_subr            Perl_ck_subr
  2211. #define ck_substr        Perl_ck_substr
  2212. #define ck_svconst        Perl_ck_svconst
  2213. #define ck_trunc        Perl_ck_trunc
  2214. #define pp_aassign        Perl_pp_aassign
  2215. #define pp_abs            Perl_pp_abs
  2216. #define pp_accept        Perl_pp_accept
  2217. #define pp_add            Perl_pp_add
  2218. #define pp_aelem        Perl_pp_aelem
  2219. #define pp_aelemfast        Perl_pp_aelemfast
  2220. #define pp_alarm        Perl_pp_alarm
  2221. #define pp_and            Perl_pp_and
  2222. #define pp_andassign        Perl_pp_andassign
  2223. #define pp_anoncode        Perl_pp_anoncode
  2224. #define pp_anonhash        Perl_pp_anonhash
  2225. #define pp_anonlist        Perl_pp_anonlist
  2226. #define pp_aslice        Perl_pp_aslice
  2227. #define pp_atan2        Perl_pp_atan2
  2228. #define pp_av2arylen        Perl_pp_av2arylen
  2229. #define pp_backtick        Perl_pp_backtick
  2230. #define pp_bind            Perl_pp_bind
  2231. #define pp_binmode        Perl_pp_binmode
  2232. #define pp_bit_and        Perl_pp_bit_and
  2233. #define pp_bit_or        Perl_pp_bit_or
  2234. #define pp_bit_xor        Perl_pp_bit_xor
  2235. #define pp_bless        Perl_pp_bless
  2236. #define pp_caller        Perl_pp_caller
  2237. #define pp_chdir        Perl_pp_chdir
  2238. #define pp_chmod        Perl_pp_chmod
  2239. #define pp_chomp        Perl_pp_chomp
  2240. #define pp_chop            Perl_pp_chop
  2241. #define pp_chown        Perl_pp_chown
  2242. #define pp_chr            Perl_pp_chr
  2243. #define pp_chroot        Perl_pp_chroot
  2244. #define pp_close        Perl_pp_close
  2245. #define pp_closedir        Perl_pp_closedir
  2246. #define pp_complement        Perl_pp_complement
  2247. #define pp_concat        Perl_pp_concat
  2248. #define pp_cond_expr        Perl_pp_cond_expr
  2249. #define pp_connect        Perl_pp_connect
  2250. #define pp_const        Perl_pp_const
  2251. #define pp_cos            Perl_pp_cos
  2252. #define pp_crypt        Perl_pp_crypt
  2253. #define pp_dbmclose        Perl_pp_dbmclose
  2254. #define pp_dbmopen        Perl_pp_dbmopen
  2255. #define pp_dbstate        Perl_pp_dbstate
  2256. #define pp_defined        Perl_pp_defined
  2257. #define pp_delete        Perl_pp_delete
  2258. #define pp_die            Perl_pp_die
  2259. #define pp_divide        Perl_pp_divide
  2260. #define pp_dofile        Perl_pp_dofile
  2261. #define pp_dump            Perl_pp_dump
  2262. #define pp_each            Perl_pp_each
  2263. #define pp_egrent        Perl_pp_egrent
  2264. #define pp_ehostent        Perl_pp_ehostent
  2265. #define pp_enetent        Perl_pp_enetent
  2266. #define pp_enter        Perl_pp_enter
  2267. #define pp_entereval        Perl_pp_entereval
  2268. #define pp_enteriter        Perl_pp_enteriter
  2269. #define pp_enterloop        Perl_pp_enterloop
  2270. #define pp_entersub        Perl_pp_entersub
  2271. #define pp_entertry        Perl_pp_entertry
  2272. #define pp_enterwrite        Perl_pp_enterwrite
  2273. #define pp_eof            Perl_pp_eof
  2274. #define pp_eprotoent        Perl_pp_eprotoent
  2275. #define pp_epwent        Perl_pp_epwent
  2276. #define pp_eq            Perl_pp_eq
  2277. #define pp_eservent        Perl_pp_eservent
  2278. #define pp_exec            Perl_pp_exec
  2279. #define pp_exists        Perl_pp_exists
  2280. #define pp_exit            Perl_pp_exit
  2281. #define pp_exp            Perl_pp_exp
  2282. #define pp_fcntl        Perl_pp_fcntl
  2283. #define pp_fileno        Perl_pp_fileno
  2284. #define pp_flip            Perl_pp_flip
  2285. #define pp_flock        Perl_pp_flock
  2286. #define pp_flop            Perl_pp_flop
  2287. #define pp_fork            Perl_pp_fork
  2288. #define pp_formline        Perl_pp_formline
  2289. #define pp_ftatime        Perl_pp_ftatime
  2290. #define pp_ftbinary        Perl_pp_ftbinary
  2291. #define pp_ftblk        Perl_pp_ftblk
  2292. #define pp_ftchr        Perl_pp_ftchr
  2293. #define pp_ftctime        Perl_pp_ftctime
  2294. #define pp_ftdir        Perl_pp_ftdir
  2295. #define pp_fteexec        Perl_pp_fteexec
  2296. #define pp_fteowned        Perl_pp_fteowned
  2297. #define pp_fteread        Perl_pp_fteread
  2298. #define pp_ftewrite        Perl_pp_ftewrite
  2299. #define pp_ftfile        Perl_pp_ftfile
  2300. #define pp_ftis            Perl_pp_ftis
  2301. #define pp_ftlink        Perl_pp_ftlink
  2302. #define pp_ftmtime        Perl_pp_ftmtime
  2303. #define pp_ftpipe        Perl_pp_ftpipe
  2304. #define pp_ftrexec        Perl_pp_ftrexec
  2305. #define pp_ftrowned        Perl_pp_ftrowned
  2306. #define pp_ftrread        Perl_pp_ftrread
  2307. #define pp_ftrwrite        Perl_pp_ftrwrite
  2308. #define pp_ftsgid        Perl_pp_ftsgid
  2309. #define pp_ftsize        Perl_pp_ftsize
  2310. #define pp_ftsock        Perl_pp_ftsock
  2311. #define pp_ftsuid        Perl_pp_ftsuid
  2312. #define pp_ftsvtx        Perl_pp_ftsvtx
  2313. #define pp_fttext        Perl_pp_fttext
  2314. #define pp_fttty        Perl_pp_fttty
  2315. #define pp_ftzero        Perl_pp_ftzero
  2316. #define pp_ge            Perl_pp_ge
  2317. #define pp_gelem        Perl_pp_gelem
  2318. #define pp_getc            Perl_pp_getc
  2319. #define pp_getlogin        Perl_pp_getlogin
  2320. #define pp_getpeername        Perl_pp_getpeername
  2321. #define pp_getpgrp        Perl_pp_getpgrp
  2322. #define pp_getppid        Perl_pp_getppid
  2323. #define pp_getpriority        Perl_pp_getpriority
  2324. #define pp_getsockname        Perl_pp_getsockname
  2325. #define pp_ggrent        Perl_pp_ggrent
  2326. #define pp_ggrgid        Perl_pp_ggrgid
  2327. #define pp_ggrnam        Perl_pp_ggrnam
  2328. #define pp_ghbyaddr        Perl_pp_ghbyaddr
  2329. #define pp_ghbyname        Perl_pp_ghbyname
  2330. #define pp_ghostent        Perl_pp_ghostent
  2331. #define pp_glob            Perl_pp_glob
  2332. #define pp_gmtime        Perl_pp_gmtime
  2333. #define pp_gnbyaddr        Perl_pp_gnbyaddr
  2334. #define pp_gnbyname        Perl_pp_gnbyname
  2335. #define pp_gnetent        Perl_pp_gnetent
  2336. #define pp_goto            Perl_pp_goto
  2337. #define pp_gpbyname        Perl_pp_gpbyname
  2338. #define pp_gpbynumber        Perl_pp_gpbynumber
  2339. #define pp_gprotoent        Perl_pp_gprotoent
  2340. #define pp_gpwent        Perl_pp_gpwent
  2341. #define pp_gpwnam        Perl_pp_gpwnam
  2342. #define pp_gpwuid        Perl_pp_gpwuid
  2343. #define pp_grepstart        Perl_pp_grepstart
  2344. #define pp_grepwhile        Perl_pp_grepwhile
  2345. #define pp_gsbyname        Perl_pp_gsbyname
  2346. #define pp_gsbyport        Perl_pp_gsbyport
  2347. #define pp_gservent        Perl_pp_gservent
  2348. #define pp_gsockopt        Perl_pp_gsockopt
  2349. #define pp_gt            Perl_pp_gt
  2350. #define pp_gv            Perl_pp_gv
  2351. #define pp_gvsv            Perl_pp_gvsv
  2352. #define pp_helem        Perl_pp_helem
  2353. #define pp_hex            Perl_pp_hex
  2354. #define pp_hslice        Perl_pp_hslice
  2355. #define pp_i_add        Perl_pp_i_add
  2356. #define pp_i_divide        Perl_pp_i_divide
  2357. #define pp_i_eq            Perl_pp_i_eq
  2358. #define pp_i_ge            Perl_pp_i_ge
  2359. #define pp_i_gt            Perl_pp_i_gt
  2360. #define pp_i_le            Perl_pp_i_le
  2361. #define pp_i_lt            Perl_pp_i_lt
  2362. #define pp_i_modulo        Perl_pp_i_modulo
  2363. #define pp_i_multiply        Perl_pp_i_multiply
  2364. #define pp_i_ncmp        Perl_pp_i_ncmp
  2365. #define pp_i_ne            Perl_pp_i_ne
  2366. #define pp_i_negate        Perl_pp_i_negate
  2367. #define pp_i_subtract        Perl_pp_i_subtract
  2368. #define pp_index        Perl_pp_index
  2369. #define pp_int            Perl_pp_int
  2370. #define pp_ioctl        Perl_pp_ioctl
  2371. #define pp_iter            Perl_pp_iter
  2372. #define pp_join            Perl_pp_join
  2373. #define pp_keys            Perl_pp_keys
  2374. #define pp_kill            Perl_pp_kill
  2375. #define pp_last            Perl_pp_last
  2376. #define pp_lc            Perl_pp_lc
  2377. #define pp_lcfirst        Perl_pp_lcfirst
  2378. #define pp_le            Perl_pp_le
  2379. #define pp_leave        Perl_pp_leave
  2380. #define pp_leaveeval        Perl_pp_leaveeval
  2381. #define pp_leaveloop        Perl_pp_leaveloop
  2382. #define pp_leavesub        Perl_pp_leavesub
  2383. #define pp_leavesublv        Perl_pp_leavesublv
  2384. #define pp_leavetry        Perl_pp_leavetry
  2385. #define pp_leavewrite        Perl_pp_leavewrite
  2386. #define pp_left_shift        Perl_pp_left_shift
  2387. #define pp_length        Perl_pp_length
  2388. #define pp_lineseq        Perl_pp_lineseq
  2389. #define pp_link            Perl_pp_link
  2390. #define pp_list            Perl_pp_list
  2391. #define pp_listen        Perl_pp_listen
  2392. #define pp_localtime        Perl_pp_localtime
  2393. #define pp_lock            Perl_pp_lock
  2394. #define pp_log            Perl_pp_log
  2395. #define pp_lslice        Perl_pp_lslice
  2396. #define pp_lstat        Perl_pp_lstat
  2397. #define pp_lt            Perl_pp_lt
  2398. #define pp_mapstart        Perl_pp_mapstart
  2399. #define pp_mapwhile        Perl_pp_mapwhile
  2400. #define pp_match        Perl_pp_match
  2401. #define pp_method        Perl_pp_method
  2402. #define pp_method_named        Perl_pp_method_named
  2403. #define pp_mkdir        Perl_pp_mkdir
  2404. #define pp_modulo        Perl_pp_modulo
  2405. #define pp_msgctl        Perl_pp_msgctl
  2406. #define pp_msgget        Perl_pp_msgget
  2407. #define pp_msgrcv        Perl_pp_msgrcv
  2408. #define pp_msgsnd        Perl_pp_msgsnd
  2409. #define pp_multiply        Perl_pp_multiply
  2410. #define pp_ncmp            Perl_pp_ncmp
  2411. #define pp_ne            Perl_pp_ne
  2412. #define pp_negate        Perl_pp_negate
  2413. #define pp_next            Perl_pp_next
  2414. #define pp_nextstate        Perl_pp_nextstate
  2415. #define pp_not            Perl_pp_not
  2416. #define pp_null            Perl_pp_null
  2417. #define pp_oct            Perl_pp_oct
  2418. #define pp_open            Perl_pp_open
  2419. #define pp_open_dir        Perl_pp_open_dir
  2420. #define pp_or            Perl_pp_or
  2421. #define pp_orassign        Perl_pp_orassign
  2422. #define pp_ord            Perl_pp_ord
  2423. #define pp_pack            Perl_pp_pack
  2424. #define pp_padany        Perl_pp_padany
  2425. #define pp_padav        Perl_pp_padav
  2426. #define pp_padhv        Perl_pp_padhv
  2427. #define pp_padsv        Perl_pp_padsv
  2428. #define pp_pipe_op        Perl_pp_pipe_op
  2429. #define pp_pop            Perl_pp_pop
  2430. #define pp_pos            Perl_pp_pos
  2431. #define pp_postdec        Perl_pp_postdec
  2432. #define pp_postinc        Perl_pp_postinc
  2433. #define pp_pow            Perl_pp_pow
  2434. #define pp_predec        Perl_pp_predec
  2435. #define pp_preinc        Perl_pp_preinc
  2436. #define pp_print        Perl_pp_print
  2437. #define pp_prototype        Perl_pp_prototype
  2438. #define pp_prtf            Perl_pp_prtf
  2439. #define pp_push            Perl_pp_push
  2440. #define pp_pushmark        Perl_pp_pushmark
  2441. #define pp_pushre        Perl_pp_pushre
  2442. #define pp_qr            Perl_pp_qr
  2443. #define pp_quotemeta        Perl_pp_quotemeta
  2444. #define pp_rand            Perl_pp_rand
  2445. #define pp_range        Perl_pp_range
  2446. #define pp_rcatline        Perl_pp_rcatline
  2447. #define pp_read            Perl_pp_read
  2448. #define pp_readdir        Perl_pp_readdir
  2449. #define pp_readline        Perl_pp_readline
  2450. #define pp_readlink        Perl_pp_readlink
  2451. #define pp_recv            Perl_pp_recv
  2452. #define pp_redo            Perl_pp_redo
  2453. #define pp_ref            Perl_pp_ref
  2454. #define pp_refgen        Perl_pp_refgen
  2455. #define pp_regcmaybe        Perl_pp_regcmaybe
  2456. #define pp_regcomp        Perl_pp_regcomp
  2457. #define pp_regcreset        Perl_pp_regcreset
  2458. #define pp_rename        Perl_pp_rename
  2459. #define pp_repeat        Perl_pp_repeat
  2460. #define pp_require        Perl_pp_require
  2461. #define pp_reset        Perl_pp_reset
  2462. #define pp_return        Perl_pp_return
  2463. #define pp_reverse        Perl_pp_reverse
  2464. #define pp_rewinddir        Perl_pp_rewinddir
  2465. #define pp_right_shift        Perl_pp_right_shift
  2466. #define pp_rindex        Perl_pp_rindex
  2467. #define pp_rmdir        Perl_pp_rmdir
  2468. #define pp_rv2av        Perl_pp_rv2av
  2469. #define pp_rv2cv        Perl_pp_rv2cv
  2470. #define pp_rv2gv        Perl_pp_rv2gv
  2471. #define pp_rv2hv        Perl_pp_rv2hv
  2472. #define pp_rv2sv        Perl_pp_rv2sv
  2473. #define pp_sassign        Perl_pp_sassign
  2474. #define pp_scalar        Perl_pp_scalar
  2475. #define pp_schomp        Perl_pp_schomp
  2476. #define pp_schop        Perl_pp_schop
  2477. #define pp_scmp            Perl_pp_scmp
  2478. #define pp_scope        Perl_pp_scope
  2479. #define pp_seek            Perl_pp_seek
  2480. #define pp_seekdir        Perl_pp_seekdir
  2481. #define pp_select        Perl_pp_select
  2482. #define pp_semctl        Perl_pp_semctl
  2483. #define pp_semget        Perl_pp_semget
  2484. #define pp_semop        Perl_pp_semop
  2485. #define pp_send            Perl_pp_send
  2486. #define pp_seq            Perl_pp_seq
  2487. #define pp_setpgrp        Perl_pp_setpgrp
  2488. #define pp_setpriority        Perl_pp_setpriority
  2489. #define pp_setstate        Perl_pp_setstate
  2490. #define pp_sge            Perl_pp_sge
  2491. #define pp_sgrent        Perl_pp_sgrent
  2492. #define pp_sgt            Perl_pp_sgt
  2493. #define pp_shift        Perl_pp_shift
  2494. #define pp_shmctl        Perl_pp_shmctl
  2495. #define pp_shmget        Perl_pp_shmget
  2496. #define pp_shmread        Perl_pp_shmread
  2497. #define pp_shmwrite        Perl_pp_shmwrite
  2498. #define pp_shostent        Perl_pp_shostent
  2499. #define pp_shutdown        Perl_pp_shutdown
  2500. #define pp_sin            Perl_pp_sin
  2501. #define pp_sle            Perl_pp_sle
  2502. #define pp_sleep        Perl_pp_sleep
  2503. #define pp_slt            Perl_pp_slt
  2504. #define pp_sne            Perl_pp_sne
  2505. #define pp_snetent        Perl_pp_snetent
  2506. #define pp_socket        Perl_pp_socket
  2507. #define pp_sockpair        Perl_pp_sockpair
  2508. #define pp_sort            Perl_pp_sort
  2509. #define pp_splice        Perl_pp_splice
  2510. #define pp_split        Perl_pp_split
  2511. #define pp_sprintf        Perl_pp_sprintf
  2512. #define pp_sprotoent        Perl_pp_sprotoent
  2513. #define pp_spwent        Perl_pp_spwent
  2514. #define pp_sqrt            Perl_pp_sqrt
  2515. #define pp_srand        Perl_pp_srand
  2516. #define pp_srefgen        Perl_pp_srefgen
  2517. #define pp_sselect        Perl_pp_sselect
  2518. #define pp_sservent        Perl_pp_sservent
  2519. #define pp_ssockopt        Perl_pp_ssockopt
  2520. #define pp_stat            Perl_pp_stat
  2521. #define pp_stringify        Perl_pp_stringify
  2522. #define pp_stub            Perl_pp_stub
  2523. #define pp_study        Perl_pp_study
  2524. #define pp_subst        Perl_pp_subst
  2525. #define pp_substcont        Perl_pp_substcont
  2526. #define pp_substr        Perl_pp_substr
  2527. #define pp_subtract        Perl_pp_subtract
  2528. #define pp_symlink        Perl_pp_symlink
  2529. #define pp_syscall        Perl_pp_syscall
  2530. #define pp_sysopen        Perl_pp_sysopen
  2531. #define pp_sysread        Perl_pp_sysread
  2532. #define pp_sysseek        Perl_pp_sysseek
  2533. #define pp_system        Perl_pp_system
  2534. #define pp_syswrite        Perl_pp_syswrite
  2535. #define pp_tell            Perl_pp_tell
  2536. #define pp_telldir        Perl_pp_telldir
  2537. #define pp_threadsv        Perl_pp_threadsv
  2538. #define pp_tie            Perl_pp_tie
  2539. #define pp_tied            Perl_pp_tied
  2540. #define pp_time            Perl_pp_time
  2541. #define pp_tms            Perl_pp_tms
  2542. #define pp_trans        Perl_pp_trans
  2543. #define pp_truncate        Perl_pp_truncate
  2544. #define pp_uc            Perl_pp_uc
  2545. #define pp_ucfirst        Perl_pp_ucfirst
  2546. #define pp_umask        Perl_pp_umask
  2547. #define pp_undef        Perl_pp_undef
  2548. #define pp_unlink        Perl_pp_unlink
  2549. #define pp_unpack        Perl_pp_unpack
  2550. #define pp_unshift        Perl_pp_unshift
  2551. #define pp_unstack        Perl_pp_unstack
  2552. #define pp_untie        Perl_pp_untie
  2553. #define pp_utime        Perl_pp_utime
  2554. #define pp_values        Perl_pp_values
  2555. #define pp_vec            Perl_pp_vec
  2556. #define pp_wait            Perl_pp_wait
  2557. #define pp_waitpid        Perl_pp_waitpid
  2558. #define pp_wantarray        Perl_pp_wantarray
  2559. #define pp_warn            Perl_pp_warn
  2560. #define pp_xor            Perl_pp_xor
  2561.  
  2562. #else    /* PERL_IMPLICIT_CONTEXT */
  2563.  
  2564. #if defined(PERL_IMPLICIT_SYS)
  2565. #endif
  2566. #define doing_taint        Perl_doing_taint
  2567. #if defined(USE_ITHREADS)
  2568. #  if defined(PERL_IMPLICIT_SYS)
  2569. #  endif
  2570. #endif
  2571. #if defined(MYMALLOC)
  2572. #ifdef PERL_CORE
  2573. #define malloced_size        Perl_malloced_size
  2574. #endif
  2575. #endif
  2576. #define get_context        Perl_get_context
  2577. #define set_context        Perl_set_context
  2578. #define amagic_call(a,b,c,d)    Perl_amagic_call(aTHX_ a,b,c,d)
  2579. #define Gv_AMupdate(a)        Perl_Gv_AMupdate(aTHX_ a)
  2580. #define gv_handler(a,b)        Perl_gv_handler(aTHX_ a,b)
  2581. #ifdef PERL_CORE
  2582. #define append_elem(a,b,c)    Perl_append_elem(aTHX_ a,b,c)
  2583. #endif
  2584. #ifdef PERL_CORE
  2585. #define append_list(a,b,c)    Perl_append_list(aTHX_ a,b,c)
  2586. #endif
  2587. #ifdef PERL_CORE
  2588. #define apply(a,b,c)        Perl_apply(aTHX_ a,b,c)
  2589. #endif
  2590. #define apply_attrs_string(a,b,c,d)    Perl_apply_attrs_string(aTHX_ a,b,c,d)
  2591. #define avhv_delete_ent(a,b,c,d)    Perl_avhv_delete_ent(aTHX_ a,b,c,d)
  2592. #define avhv_exists_ent(a,b,c)    Perl_avhv_exists_ent(aTHX_ a,b,c)
  2593. #define avhv_fetch_ent(a,b,c,d)    Perl_avhv_fetch_ent(aTHX_ a,b,c,d)
  2594. #define avhv_store_ent(a,b,c,d)    Perl_avhv_store_ent(aTHX_ a,b,c,d)
  2595. #define avhv_iternext(a)    Perl_avhv_iternext(aTHX_ a)
  2596. #define avhv_iterval(a,b)    Perl_avhv_iterval(aTHX_ a,b)
  2597. #define avhv_keys(a)        Perl_avhv_keys(aTHX_ a)
  2598. #define av_clear(a)        Perl_av_clear(aTHX_ a)
  2599. #define av_delete(a,b,c)    Perl_av_delete(aTHX_ a,b,c)
  2600. #define av_exists(a,b)        Perl_av_exists(aTHX_ a,b)
  2601. #define av_extend(a,b)        Perl_av_extend(aTHX_ a,b)
  2602. #ifdef PERL_CORE
  2603. #define av_fake(a,b)        Perl_av_fake(aTHX_ a,b)
  2604. #endif
  2605. #define av_fetch(a,b,c)        Perl_av_fetch(aTHX_ a,b,c)
  2606. #define av_fill(a,b)        Perl_av_fill(aTHX_ a,b)
  2607. #define av_len(a)        Perl_av_len(aTHX_ a)
  2608. #define av_make(a,b)        Perl_av_make(aTHX_ a,b)
  2609. #define av_pop(a)        Perl_av_pop(aTHX_ a)
  2610. #define av_push(a,b)        Perl_av_push(aTHX_ a,b)
  2611. #ifdef PERL_CORE
  2612. #define av_reify(a)        Perl_av_reify(aTHX_ a)
  2613. #endif
  2614. #define av_shift(a)        Perl_av_shift(aTHX_ a)
  2615. #define av_store(a,b,c)        Perl_av_store(aTHX_ a,b,c)
  2616. #define av_undef(a)        Perl_av_undef(aTHX_ a)
  2617. #define av_unshift(a,b)        Perl_av_unshift(aTHX_ a,b)
  2618. #ifdef PERL_CORE
  2619. #define bind_match(a,b,c)    Perl_bind_match(aTHX_ a,b,c)
  2620. #endif
  2621. #ifdef PERL_CORE
  2622. #define block_end(a,b)        Perl_block_end(aTHX_ a,b)
  2623. #endif
  2624. #define block_gimme()        Perl_block_gimme(aTHX)
  2625. #ifdef PERL_CORE
  2626. #define block_start(a)        Perl_block_start(aTHX_ a)
  2627. #endif
  2628. #ifdef PERL_CORE
  2629. #define boot_core_UNIVERSAL()    Perl_boot_core_UNIVERSAL(aTHX)
  2630. #endif
  2631. #ifdef PERL_CORE
  2632. #define boot_core_PerlIO()    Perl_boot_core_PerlIO(aTHX)
  2633. #endif
  2634. #define call_list(a,b)        Perl_call_list(aTHX_ a,b)
  2635. #ifdef PERL_CORE
  2636. #define cando(a,b,c)        Perl_cando(aTHX_ a,b,c)
  2637. #endif
  2638. #define cast_ulong(a)        Perl_cast_ulong(aTHX_ a)
  2639. #define cast_i32(a)        Perl_cast_i32(aTHX_ a)
  2640. #define cast_iv(a)        Perl_cast_iv(aTHX_ a)
  2641. #define cast_uv(a)        Perl_cast_uv(aTHX_ a)
  2642. #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
  2643. #define my_chsize(a,b)        Perl_my_chsize(aTHX_ a,b)
  2644. #endif
  2645. #if defined(USE_5005THREADS)
  2646. #define condpair_magic(a)    Perl_condpair_magic(aTHX_ a)
  2647. #endif
  2648. #ifdef PERL_CORE
  2649. #define convert(a,b,c)        Perl_convert(aTHX_ a,b,c)
  2650. #endif
  2651. #define vcroak(a,b)        Perl_vcroak(aTHX_ a,b)
  2652. #if defined(PERL_IMPLICIT_CONTEXT)
  2653. #endif
  2654. #ifdef PERL_CORE
  2655. #define cv_ckproto(a,b,c)    Perl_cv_ckproto(aTHX_ a,b,c)
  2656. #endif
  2657. #ifdef PERL_CORE
  2658. #define cv_clone(a)        Perl_cv_clone(aTHX_ a)
  2659. #endif
  2660. #define cv_const_sv(a)        Perl_cv_const_sv(aTHX_ a)
  2661. #ifdef PERL_CORE
  2662. #define op_const_sv(a,b)    Perl_op_const_sv(aTHX_ a,b)
  2663. #endif
  2664. #define cv_undef(a)        Perl_cv_undef(aTHX_ a)
  2665. #define cx_dump(a)        Perl_cx_dump(aTHX_ a)
  2666. #define filter_add(a,b)        Perl_filter_add(aTHX_ a,b)
  2667. #define filter_del(a)        Perl_filter_del(aTHX_ a)
  2668. #define filter_read(a,b,c)    Perl_filter_read(aTHX_ a,b,c)
  2669. #define get_op_descs()        Perl_get_op_descs(aTHX)
  2670. #define get_op_names()        Perl_get_op_names(aTHX)
  2671. #ifdef PERL_CORE
  2672. #define get_no_modify()        Perl_get_no_modify(aTHX)
  2673. #endif
  2674. #ifdef PERL_CORE
  2675. #define get_opargs()        Perl_get_opargs(aTHX)
  2676. #endif
  2677. #define get_ppaddr()        Perl_get_ppaddr(aTHX)
  2678. #if defined(PERL_CORE) || defined(PERL_EXT)
  2679. #define cxinc()            Perl_cxinc(aTHX)
  2680. #endif
  2681. #define vdeb(a,b)        Perl_vdeb(aTHX_ a,b)
  2682. #define debprofdump()        Perl_debprofdump(aTHX)
  2683. #define debop(a)        Perl_debop(aTHX_ a)
  2684. #define debstack()        Perl_debstack(aTHX)
  2685. #define debstackptrs()        Perl_debstackptrs(aTHX)
  2686. #define delimcpy(a,b,c,d,e,f)    Perl_delimcpy(aTHX_ a,b,c,d,e,f)
  2687. #ifdef PERL_CORE
  2688. #define deprecate(a)        Perl_deprecate(aTHX_ a)
  2689. #endif
  2690. #ifdef PERL_CORE
  2691. #define deprecate_old(a)    Perl_deprecate_old(aTHX_ a)
  2692. #endif
  2693. #ifdef PERL_CORE
  2694. #define vdie(a,b)        Perl_vdie(aTHX_ a,b)
  2695. #endif
  2696. #ifdef PERL_CORE
  2697. #define die_where(a,b)        Perl_die_where(aTHX_ a,b)
  2698. #endif
  2699. #define dounwind(a)        Perl_dounwind(aTHX_ a)
  2700. #ifdef PERL_CORE
  2701. #define do_aexec(a,b,c)        Perl_do_aexec(aTHX_ a,b,c)
  2702. #endif
  2703. #ifdef PERL_CORE
  2704. #define do_aexec5(a,b,c,d,e)    Perl_do_aexec5(aTHX_ a,b,c,d,e)
  2705. #endif
  2706. #define do_binmode(a,b,c)    Perl_do_binmode(aTHX_ a,b,c)
  2707. #ifdef PERL_CORE
  2708. #define do_chop(a,b)        Perl_do_chop(aTHX_ a,b)
  2709. #endif
  2710. #define do_close(a,b)        Perl_do_close(aTHX_ a,b)
  2711. #ifdef PERL_CORE
  2712. #define do_eof(a)        Perl_do_eof(aTHX_ a)
  2713. #endif
  2714. #ifdef PERL_CORE
  2715. #define do_exec(a)        Perl_do_exec(aTHX_ a)
  2716. #endif
  2717. #if defined(WIN32)
  2718. #define do_aspawn(a,b,c)    Perl_do_aspawn(aTHX_ a,b,c)
  2719. #define do_spawn(a)        Perl_do_spawn(aTHX_ a)
  2720. #define do_spawn_nowait(a)    Perl_do_spawn_nowait(aTHX_ a)
  2721. #endif
  2722. #if !defined(WIN32)
  2723. #ifdef PERL_CORE
  2724. #define do_exec3(a,b,c)        Perl_do_exec3(aTHX_ a,b,c)
  2725. #endif
  2726. #endif
  2727. #ifdef PERL_CORE
  2728. #define do_execfree()        Perl_do_execfree(aTHX)
  2729. #endif
  2730. #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
  2731. #ifdef PERL_CORE
  2732. #define do_ipcctl(a,b,c)    Perl_do_ipcctl(aTHX_ a,b,c)
  2733. #endif
  2734. #ifdef PERL_CORE
  2735. #define do_ipcget(a,b,c)    Perl_do_ipcget(aTHX_ a,b,c)
  2736. #endif
  2737. #ifdef PERL_CORE
  2738. #define do_msgrcv(a,b)        Perl_do_msgrcv(aTHX_ a,b)
  2739. #endif
  2740. #ifdef PERL_CORE
  2741. #define do_msgsnd(a,b)        Perl_do_msgsnd(aTHX_ a,b)
  2742. #endif
  2743. #ifdef PERL_CORE
  2744. #define do_semop(a,b)        Perl_do_semop(aTHX_ a,b)
  2745. #endif
  2746. #ifdef PERL_CORE
  2747. #define do_shmio(a,b,c)        Perl_do_shmio(aTHX_ a,b,c)
  2748. #endif
  2749. #endif
  2750. #define do_join(a,b,c,d)    Perl_do_join(aTHX_ a,b,c,d)
  2751. #ifdef PERL_CORE
  2752. #define do_kv()            Perl_do_kv(aTHX)
  2753. #endif
  2754. #define do_open(a,b,c,d,e,f,g)    Perl_do_open(aTHX_ a,b,c,d,e,f,g)
  2755. #define do_open9(a,b,c,d,e,f,g,h,i)    Perl_do_open9(aTHX_ a,b,c,d,e,f,g,h,i)
  2756. #define do_openn(a,b,c,d,e,f,g,h,i)    Perl_do_openn(aTHX_ a,b,c,d,e,f,g,h,i)
  2757. #ifdef PERL_CORE
  2758. #define do_pipe(a,b,c)        Perl_do_pipe(aTHX_ a,b,c)
  2759. #endif
  2760. #ifdef PERL_CORE
  2761. #define do_print(a,b)        Perl_do_print(aTHX_ a,b)
  2762. #endif
  2763. #ifdef PERL_CORE
  2764. #define do_readline()        Perl_do_readline(aTHX)
  2765. #endif
  2766. #ifdef PERL_CORE
  2767. #define do_chomp(a)        Perl_do_chomp(aTHX_ a)
  2768. #endif
  2769. #ifdef PERL_CORE
  2770. #define do_seek(a,b,c)        Perl_do_seek(aTHX_ a,b,c)
  2771. #endif
  2772. #define do_sprintf(a,b,c)    Perl_do_sprintf(aTHX_ a,b,c)
  2773. #ifdef PERL_CORE
  2774. #define do_sysseek(a,b,c)    Perl_do_sysseek(aTHX_ a,b,c)
  2775. #endif
  2776. #ifdef PERL_CORE
  2777. #define do_tell(a)        Perl_do_tell(aTHX_ a)
  2778. #endif
  2779. #ifdef PERL_CORE
  2780. #define do_trans(a)        Perl_do_trans(aTHX_ a)
  2781. #endif
  2782. #ifdef PERL_CORE
  2783. #define do_vecget(a,b,c)    Perl_do_vecget(aTHX_ a,b,c)
  2784. #endif
  2785. #ifdef PERL_CORE
  2786. #define do_vecset(a)        Perl_do_vecset(aTHX_ a)
  2787. #endif
  2788. #ifdef PERL_CORE
  2789. #define do_vop(a,b,c,d)        Perl_do_vop(aTHX_ a,b,c,d)
  2790. #endif
  2791. #ifdef PERL_CORE
  2792. #define dofile(a)        Perl_dofile(aTHX_ a)
  2793. #endif
  2794. #define dowantarray()        Perl_dowantarray(aTHX)
  2795. #define dump_all()        Perl_dump_all(aTHX)
  2796. #define dump_eval()        Perl_dump_eval(aTHX)
  2797. #if defined(DUMP_FDS)
  2798. #define dump_fds(a)        Perl_dump_fds(aTHX_ a)
  2799. #endif
  2800. #define dump_form(a)        Perl_dump_form(aTHX_ a)
  2801. #define gv_dump(a)        Perl_gv_dump(aTHX_ a)
  2802. #define op_dump(a)        Perl_op_dump(aTHX_ a)
  2803. #define pmop_dump(a)        Perl_pmop_dump(aTHX_ a)
  2804. #define dump_packsubs(a)    Perl_dump_packsubs(aTHX_ a)
  2805. #define dump_sub(a)        Perl_dump_sub(aTHX_ a)
  2806. #define fbm_compile(a,b)    Perl_fbm_compile(aTHX_ a,b)
  2807. #define fbm_instr(a,b,c,d)    Perl_fbm_instr(aTHX_ a,b,c,d)
  2808. #ifdef PERL_CORE
  2809. #define find_script(a,b,c,d)    Perl_find_script(aTHX_ a,b,c,d)
  2810. #endif
  2811. #if defined(USE_5005THREADS)
  2812. #ifdef PERL_CORE
  2813. #define find_threadsv(a)    Perl_find_threadsv(aTHX_ a)
  2814. #endif
  2815. #endif
  2816. #ifdef PERL_CORE
  2817. #define force_list(a)        Perl_force_list(aTHX_ a)
  2818. #endif
  2819. #ifdef PERL_CORE
  2820. #define fold_constants(a)    Perl_fold_constants(aTHX_ a)
  2821. #endif
  2822. #define vform(a,b)        Perl_vform(aTHX_ a,b)
  2823. #define free_tmps()        Perl_free_tmps(aTHX)
  2824. #ifdef PERL_CORE
  2825. #define gen_constant_list(a)    Perl_gen_constant_list(aTHX_ a)
  2826. #endif
  2827. #if !defined(HAS_GETENV_LEN)
  2828. #ifdef PERL_CORE
  2829. #define getenv_len(a,b)        Perl_getenv_len(aTHX_ a,b)
  2830. #endif
  2831. #endif
  2832. #define gp_free(a)        Perl_gp_free(aTHX_ a)
  2833. #define gp_ref(a)        Perl_gp_ref(aTHX_ a)
  2834. #define gv_AVadd(a)        Perl_gv_AVadd(aTHX_ a)
  2835. #define gv_HVadd(a)        Perl_gv_HVadd(aTHX_ a)
  2836. #define gv_IOadd(a)        Perl_gv_IOadd(aTHX_ a)
  2837. #define gv_autoload4(a,b,c,d)    Perl_gv_autoload4(aTHX_ a,b,c,d)
  2838. #define gv_check(a)        Perl_gv_check(aTHX_ a)
  2839. #define gv_efullname(a,b)    Perl_gv_efullname(aTHX_ a,b)
  2840. #define gv_efullname3(a,b,c)    Perl_gv_efullname3(aTHX_ a,b,c)
  2841. #define gv_efullname4(a,b,c,d)    Perl_gv_efullname4(aTHX_ a,b,c,d)
  2842. #define gv_fetchfile(a)        Perl_gv_fetchfile(aTHX_ a)
  2843. #define gv_fetchmeth(a,b,c,d)    Perl_gv_fetchmeth(aTHX_ a,b,c,d)
  2844. #define gv_fetchmeth_autoload(a,b,c,d)    Perl_gv_fetchmeth_autoload(aTHX_ a,b,c,d)
  2845. #define gv_fetchmethod(a,b)    Perl_gv_fetchmethod(aTHX_ a,b)
  2846. #define gv_fetchmethod_autoload(a,b,c)    Perl_gv_fetchmethod_autoload(aTHX_ a,b,c)
  2847. #define gv_fetchpv(a,b,c)    Perl_gv_fetchpv(aTHX_ a,b,c)
  2848. #define gv_fullname(a,b)    Perl_gv_fullname(aTHX_ a,b)
  2849. #define gv_fullname3(a,b,c)    Perl_gv_fullname3(aTHX_ a,b,c)
  2850. #define gv_fullname4(a,b,c,d)    Perl_gv_fullname4(aTHX_ a,b,c,d)
  2851. #define gv_init(a,b,c,d,e)    Perl_gv_init(aTHX_ a,b,c,d,e)
  2852. #define gv_stashpv(a,b)        Perl_gv_stashpv(aTHX_ a,b)
  2853. #define gv_stashpvn(a,b,c)    Perl_gv_stashpvn(aTHX_ a,b,c)
  2854. #define gv_stashsv(a,b)        Perl_gv_stashsv(aTHX_ a,b)
  2855. #define hv_clear(a)        Perl_hv_clear(aTHX_ a)
  2856. #define hv_delayfree_ent(a,b)    Perl_hv_delayfree_ent(aTHX_ a,b)
  2857. #define hv_delete(a,b,c,d)    Perl_hv_delete(aTHX_ a,b,c,d)
  2858. #define hv_delete_ent(a,b,c,d)    Perl_hv_delete_ent(aTHX_ a,b,c,d)
  2859. #define hv_exists(a,b,c)    Perl_hv_exists(aTHX_ a,b,c)
  2860. #define hv_exists_ent(a,b,c)    Perl_hv_exists_ent(aTHX_ a,b,c)
  2861. #define hv_fetch(a,b,c,d)    Perl_hv_fetch(aTHX_ a,b,c,d)
  2862. #define hv_fetch_ent(a,b,c,d)    Perl_hv_fetch_ent(aTHX_ a,b,c,d)
  2863. #define hv_free_ent(a,b)    Perl_hv_free_ent(aTHX_ a,b)
  2864. #define hv_iterinit(a)        Perl_hv_iterinit(aTHX_ a)
  2865. #define hv_iterkey(a,b)        Perl_hv_iterkey(aTHX_ a,b)
  2866. #define hv_iterkeysv(a)        Perl_hv_iterkeysv(aTHX_ a)
  2867. #define hv_iternext(a)        Perl_hv_iternext(aTHX_ a)
  2868. #define hv_iternextsv(a,b,c)    Perl_hv_iternextsv(aTHX_ a,b,c)
  2869. #define hv_iternext_flags(a,b)    Perl_hv_iternext_flags(aTHX_ a,b)
  2870. #define hv_iterval(a,b)        Perl_hv_iterval(aTHX_ a,b)
  2871. #define hv_ksplit(a,b)        Perl_hv_ksplit(aTHX_ a,b)
  2872. #define hv_magic(a,b,c)        Perl_hv_magic(aTHX_ a,b,c)
  2873. #define hv_store(a,b,c,d,e)    Perl_hv_store(aTHX_ a,b,c,d,e)
  2874. #define hv_store_ent(a,b,c,d)    Perl_hv_store_ent(aTHX_ a,b,c,d)
  2875. #define hv_store_flags(a,b,c,d,e,f)    Perl_hv_store_flags(aTHX_ a,b,c,d,e,f)
  2876. #define hv_undef(a)        Perl_hv_undef(aTHX_ a)
  2877. #define ibcmp(a,b,c)        Perl_ibcmp(aTHX_ a,b,c)
  2878. #define ibcmp_locale(a,b,c)    Perl_ibcmp_locale(aTHX_ a,b,c)
  2879. #define ibcmp_utf8(a,b,c,d,e,f,g,h)    Perl_ibcmp_utf8(aTHX_ a,b,c,d,e,f,g,h)
  2880. #ifdef PERL_CORE
  2881. #define ingroup(a,b)        Perl_ingroup(aTHX_ a,b)
  2882. #endif
  2883. #ifdef PERL_CORE
  2884. #define init_argv_symbols(a,b)    Perl_init_argv_symbols(aTHX_ a,b)
  2885. #endif
  2886. #ifdef PERL_CORE
  2887. #define init_debugger()        Perl_init_debugger(aTHX)
  2888. #endif
  2889. #define init_stacks()        Perl_init_stacks(aTHX)
  2890. #define init_tm(a)        Perl_init_tm(aTHX_ a)
  2891. #ifdef PERL_CORE
  2892. #define intro_my()        Perl_intro_my(aTHX)
  2893. #endif
  2894. #define instr(a,b)        Perl_instr(aTHX_ a,b)
  2895. #ifdef PERL_CORE
  2896. #define io_close(a,b)        Perl_io_close(aTHX_ a,b)
  2897. #endif
  2898. #ifdef PERL_CORE
  2899. #define invert(a)        Perl_invert(aTHX_ a)
  2900. #endif
  2901. #ifdef PERL_CORE
  2902. #define is_gv_magical(a,b,c)    Perl_is_gv_magical(aTHX_ a,b,c)
  2903. #endif
  2904. #define is_lvalue_sub()        Perl_is_lvalue_sub(aTHX)
  2905. #define to_uni_upper_lc(a)    Perl_to_uni_upper_lc(aTHX_ a)
  2906. #define to_uni_title_lc(a)    Perl_to_uni_title_lc(aTHX_ a)
  2907. #define to_uni_lower_lc(a)    Perl_to_uni_lower_lc(aTHX_ a)
  2908. #define is_uni_alnum(a)        Perl_is_uni_alnum(aTHX_ a)
  2909. #define is_uni_alnumc(a)    Perl_is_uni_alnumc(aTHX_ a)
  2910. #define is_uni_idfirst(a)    Perl_is_uni_idfirst(aTHX_ a)
  2911. #define is_uni_alpha(a)        Perl_is_uni_alpha(aTHX_ a)
  2912. #define is_uni_ascii(a)        Perl_is_uni_ascii(aTHX_ a)
  2913. #define is_uni_space(a)        Perl_is_uni_space(aTHX_ a)
  2914. #define is_uni_cntrl(a)        Perl_is_uni_cntrl(aTHX_ a)
  2915. #define is_uni_graph(a)        Perl_is_uni_graph(aTHX_ a)
  2916. #define is_uni_digit(a)        Perl_is_uni_digit(aTHX_ a)
  2917. #define is_uni_upper(a)        Perl_is_uni_upper(aTHX_ a)
  2918. #define is_uni_lower(a)        Perl_is_uni_lower(aTHX_ a)
  2919. #define is_uni_print(a)        Perl_is_uni_print(aTHX_ a)
  2920. #define is_uni_punct(a)        Perl_is_uni_punct(aTHX_ a)
  2921. #define is_uni_xdigit(a)    Perl_is_uni_xdigit(aTHX_ a)
  2922. #define to_uni_upper(a,b,c)    Perl_to_uni_upper(aTHX_ a,b,c)
  2923. #define to_uni_title(a,b,c)    Perl_to_uni_title(aTHX_ a,b,c)
  2924. #define to_uni_lower(a,b,c)    Perl_to_uni_lower(aTHX_ a,b,c)
  2925. #define to_uni_fold(a,b,c)    Perl_to_uni_fold(aTHX_ a,b,c)
  2926. #define is_uni_alnum_lc(a)    Perl_is_uni_alnum_lc(aTHX_ a)
  2927. #define is_uni_alnumc_lc(a)    Perl_is_uni_alnumc_lc(aTHX_ a)
  2928. #define is_uni_idfirst_lc(a)    Perl_is_uni_idfirst_lc(aTHX_ a)
  2929. #define is_uni_alpha_lc(a)    Perl_is_uni_alpha_lc(aTHX_ a)
  2930. #define is_uni_ascii_lc(a)    Perl_is_uni_ascii_lc(aTHX_ a)
  2931. #define is_uni_space_lc(a)    Perl_is_uni_space_lc(aTHX_ a)
  2932. #define is_uni_cntrl_lc(a)    Perl_is_uni_cntrl_lc(aTHX_ a)
  2933. #define is_uni_graph_lc(a)    Perl_is_uni_graph_lc(aTHX_ a)
  2934. #define is_uni_digit_lc(a)    Perl_is_uni_digit_lc(aTHX_ a)
  2935. #define is_uni_upper_lc(a)    Perl_is_uni_upper_lc(aTHX_ a)
  2936. #define is_uni_lower_lc(a)    Perl_is_uni_lower_lc(aTHX_ a)
  2937. #define is_uni_print_lc(a)    Perl_is_uni_print_lc(aTHX_ a)
  2938. #define is_uni_punct_lc(a)    Perl_is_uni_punct_lc(aTHX_ a)
  2939. #define is_uni_xdigit_lc(a)    Perl_is_uni_xdigit_lc(aTHX_ a)
  2940. #define is_utf8_char(a)        Perl_is_utf8_char(aTHX_ a)
  2941. #define is_utf8_string(a,b)    Perl_is_utf8_string(aTHX_ a,b)
  2942. #define is_utf8_string_loc(a,b,c)    Perl_is_utf8_string_loc(aTHX_ a,b,c)
  2943. #define is_utf8_alnum(a)    Perl_is_utf8_alnum(aTHX_ a)
  2944. #define is_utf8_alnumc(a)    Perl_is_utf8_alnumc(aTHX_ a)
  2945. #define is_utf8_idfirst(a)    Perl_is_utf8_idfirst(aTHX_ a)
  2946. #define is_utf8_idcont(a)    Perl_is_utf8_idcont(aTHX_ a)
  2947. #define is_utf8_alpha(a)    Perl_is_utf8_alpha(aTHX_ a)
  2948. #define is_utf8_ascii(a)    Perl_is_utf8_ascii(aTHX_ a)
  2949. #define is_utf8_space(a)    Perl_is_utf8_space(aTHX_ a)
  2950. #define is_utf8_cntrl(a)    Perl_is_utf8_cntrl(aTHX_ a)
  2951. #define is_utf8_digit(a)    Perl_is_utf8_digit(aTHX_ a)
  2952. #define is_utf8_graph(a)    Perl_is_utf8_graph(aTHX_ a)
  2953. #define is_utf8_upper(a)    Perl_is_utf8_upper(aTHX_ a)
  2954. #define is_utf8_lower(a)    Perl_is_utf8_lower(aTHX_ a)
  2955. #define is_utf8_print(a)    Perl_is_utf8_print(aTHX_ a)
  2956. #define is_utf8_punct(a)    Perl_is_utf8_punct(aTHX_ a)
  2957. #define is_utf8_xdigit(a)    Perl_is_utf8_xdigit(aTHX_ a)
  2958. #define is_utf8_mark(a)        Perl_is_utf8_mark(aTHX_ a)
  2959. #ifdef PERL_CORE
  2960. #define jmaybe(a)        Perl_jmaybe(aTHX_ a)
  2961. #endif
  2962. #ifdef PERL_CORE
  2963. #define keyword(a,b)        Perl_keyword(aTHX_ a,b)
  2964. #endif
  2965. #define leave_scope(a)        Perl_leave_scope(aTHX_ a)
  2966. #ifdef PERL_CORE
  2967. #define lex_end()        Perl_lex_end(aTHX)
  2968. #endif
  2969. #ifdef PERL_CORE
  2970. #define lex_start(a)        Perl_lex_start(aTHX_ a)
  2971. #endif
  2972. #define op_null(a)        Perl_op_null(aTHX_ a)
  2973. #ifdef PERL_CORE
  2974. #define op_clear(a)        Perl_op_clear(aTHX_ a)
  2975. #endif
  2976. #ifdef PERL_CORE
  2977. #define linklist(a)        Perl_linklist(aTHX_ a)
  2978. #endif
  2979. #ifdef PERL_CORE
  2980. #define list(a)            Perl_list(aTHX_ a)
  2981. #endif
  2982. #ifdef PERL_CORE
  2983. #define listkids(a)        Perl_listkids(aTHX_ a)
  2984. #endif
  2985. #define vload_module(a,b,c,d)    Perl_vload_module(aTHX_ a,b,c,d)
  2986. #ifdef PERL_CORE
  2987. #define localize(a,b)        Perl_localize(aTHX_ a,b)
  2988. #endif
  2989. #define looks_like_number(a)    Perl_looks_like_number(aTHX_ a)
  2990. #define grok_bin(a,b,c,d)    Perl_grok_bin(aTHX_ a,b,c,d)
  2991. #define grok_hex(a,b,c,d)    Perl_grok_hex(aTHX_ a,b,c,d)
  2992. #define grok_number(a,b,c)    Perl_grok_number(aTHX_ a,b,c)
  2993. #define grok_numeric_radix(a,b)    Perl_grok_numeric_radix(aTHX_ a,b)
  2994. #define grok_oct(a,b,c,d)    Perl_grok_oct(aTHX_ a,b,c,d)
  2995. #ifdef PERL_CORE
  2996. #define magic_clearenv(a,b)    Perl_magic_clearenv(aTHX_ a,b)
  2997. #endif
  2998. #ifdef PERL_CORE
  2999. #define magic_clear_all_env(a,b)    Perl_magic_clear_all_env(aTHX_ a,b)
  3000. #endif
  3001. #ifdef PERL_CORE
  3002. #define magic_clearpack(a,b)    Perl_magic_clearpack(aTHX_ a,b)
  3003. #endif
  3004. #ifdef PERL_CORE
  3005. #define magic_clearsig(a,b)    Perl_magic_clearsig(aTHX_ a,b)
  3006. #endif
  3007. #ifdef PERL_CORE
  3008. #define magic_existspack(a,b)    Perl_magic_existspack(aTHX_ a,b)
  3009. #endif
  3010. #ifdef PERL_CORE
  3011. #define magic_freeregexp(a,b)    Perl_magic_freeregexp(aTHX_ a,b)
  3012. #endif
  3013. #ifdef PERL_CORE
  3014. #define magic_freeovrld(a,b)    Perl_magic_freeovrld(aTHX_ a,b)
  3015. #endif
  3016. #ifdef PERL_CORE
  3017. #define magic_get(a,b)        Perl_magic_get(aTHX_ a,b)
  3018. #endif
  3019. #ifdef PERL_CORE
  3020. #define magic_getarylen(a,b)    Perl_magic_getarylen(aTHX_ a,b)
  3021. #endif
  3022. #ifdef PERL_CORE
  3023. #define magic_getdefelem(a,b)    Perl_magic_getdefelem(aTHX_ a,b)
  3024. #endif
  3025. #ifdef PERL_CORE
  3026. #define magic_getglob(a,b)    Perl_magic_getglob(aTHX_ a,b)
  3027. #endif
  3028. #ifdef PERL_CORE
  3029. #define magic_getnkeys(a,b)    Perl_magic_getnkeys(aTHX_ a,b)
  3030. #endif
  3031. #ifdef PERL_CORE
  3032. #define magic_getpack(a,b)    Perl_magic_getpack(aTHX_ a,b)
  3033. #endif
  3034. #ifdef PERL_CORE
  3035. #define magic_getpos(a,b)    Perl_magic_getpos(aTHX_ a,b)
  3036. #endif
  3037. #ifdef PERL_CORE
  3038. #define magic_getsig(a,b)    Perl_magic_getsig(aTHX_ a,b)
  3039. #endif
  3040. #ifdef PERL_CORE
  3041. #define magic_getsubstr(a,b)    Perl_magic_getsubstr(aTHX_ a,b)
  3042. #endif
  3043. #ifdef PERL_CORE
  3044. #define magic_gettaint(a,b)    Perl_magic_gettaint(aTHX_ a,b)
  3045. #endif
  3046. #ifdef PERL_CORE
  3047. #define magic_getuvar(a,b)    Perl_magic_getuvar(aTHX_ a,b)
  3048. #endif
  3049. #ifdef PERL_CORE
  3050. #define magic_getvec(a,b)    Perl_magic_getvec(aTHX_ a,b)
  3051. #endif
  3052. #ifdef PERL_CORE
  3053. #define magic_len(a,b)        Perl_magic_len(aTHX_ a,b)
  3054. #endif
  3055. #if defined(USE_5005THREADS)
  3056. #ifdef PERL_CORE
  3057. #define magic_mutexfree(a,b)    Perl_magic_mutexfree(aTHX_ a,b)
  3058. #endif
  3059. #endif
  3060. #ifdef PERL_CORE
  3061. #define magic_nextpack(a,b,c)    Perl_magic_nextpack(aTHX_ a,b,c)
  3062. #endif
  3063. #ifdef PERL_CORE
  3064. #define magic_regdata_cnt(a,b)    Perl_magic_regdata_cnt(aTHX_ a,b)
  3065. #endif
  3066. #ifdef PERL_CORE
  3067. #define magic_regdatum_get(a,b)    Perl_magic_regdatum_get(aTHX_ a,b)
  3068. #endif
  3069. #ifdef PERL_CORE
  3070. #define magic_regdatum_set(a,b)    Perl_magic_regdatum_set(aTHX_ a,b)
  3071. #endif
  3072. #ifdef PERL_CORE
  3073. #define magic_set(a,b)        Perl_magic_set(aTHX_ a,b)
  3074. #endif
  3075. #ifdef PERL_CORE
  3076. #define magic_setamagic(a,b)    Perl_magic_setamagic(aTHX_ a,b)
  3077. #endif
  3078. #ifdef PERL_CORE
  3079. #define magic_setarylen(a,b)    Perl_magic_setarylen(aTHX_ a,b)
  3080. #endif
  3081. #ifdef PERL_CORE
  3082. #define magic_setbm(a,b)    Perl_magic_setbm(aTHX_ a,b)
  3083. #endif
  3084. #ifdef PERL_CORE
  3085. #define magic_setdbline(a,b)    Perl_magic_setdbline(aTHX_ a,b)
  3086. #endif
  3087. #if defined(USE_LOCALE_COLLATE)
  3088. #ifdef PERL_CORE
  3089. #define magic_setcollxfrm(a,b)    Perl_magic_setcollxfrm(aTHX_ a,b)
  3090. #endif
  3091. #endif
  3092. #ifdef PERL_CORE
  3093. #define magic_setdefelem(a,b)    Perl_magic_setdefelem(aTHX_ a,b)
  3094. #endif
  3095. #ifdef PERL_CORE
  3096. #define magic_setenv(a,b)    Perl_magic_setenv(aTHX_ a,b)
  3097. #endif
  3098. #ifdef PERL_CORE
  3099. #define magic_setfm(a,b)    Perl_magic_setfm(aTHX_ a,b)
  3100. #endif
  3101. #ifdef PERL_CORE
  3102. #define magic_setisa(a,b)    Perl_magic_setisa(aTHX_ a,b)
  3103. #endif
  3104. #ifdef PERL_CORE
  3105. #define magic_setglob(a,b)    Perl_magic_setglob(aTHX_ a,b)
  3106. #endif
  3107. #ifdef PERL_CORE
  3108. #define magic_setmglob(a,b)    Perl_magic_setmglob(aTHX_ a,b)
  3109. #endif
  3110. #ifdef PERL_CORE
  3111. #define magic_setnkeys(a,b)    Perl_magic_setnkeys(aTHX_ a,b)
  3112. #endif
  3113. #ifdef PERL_CORE
  3114. #define magic_setpack(a,b)    Perl_magic_setpack(aTHX_ a,b)
  3115. #endif
  3116. #ifdef PERL_CORE
  3117. #define magic_setpos(a,b)    Perl_magic_setpos(aTHX_ a,b)
  3118. #endif
  3119. #ifdef PERL_CORE
  3120. #define magic_setregexp(a,b)    Perl_magic_setregexp(aTHX_ a,b)
  3121. #endif
  3122. #ifdef PERL_CORE
  3123. #define magic_setsig(a,b)    Perl_magic_setsig(aTHX_ a,b)
  3124. #endif
  3125. #ifdef PERL_CORE
  3126. #define magic_setsubstr(a,b)    Perl_magic_setsubstr(aTHX_ a,b)
  3127. #endif
  3128. #ifdef PERL_CORE
  3129. #define magic_settaint(a,b)    Perl_magic_settaint(aTHX_ a,b)
  3130. #endif
  3131. #ifdef PERL_CORE
  3132. #define magic_setuvar(a,b)    Perl_magic_setuvar(aTHX_ a,b)
  3133. #endif
  3134. #ifdef PERL_CORE
  3135. #define magic_setvec(a,b)    Perl_magic_setvec(aTHX_ a,b)
  3136. #endif
  3137. #ifdef PERL_CORE
  3138. #define magic_setutf8(a,b)    Perl_magic_setutf8(aTHX_ a,b)
  3139. #endif
  3140. #ifdef PERL_CORE
  3141. #define magic_set_all_env(a,b)    Perl_magic_set_all_env(aTHX_ a,b)
  3142. #endif
  3143. #ifdef PERL_CORE
  3144. #define magic_sizepack(a,b)    Perl_magic_sizepack(aTHX_ a,b)
  3145. #endif
  3146. #ifdef PERL_CORE
  3147. #define magic_wipepack(a,b)    Perl_magic_wipepack(aTHX_ a,b)
  3148. #endif
  3149. #ifdef PERL_CORE
  3150. #define magicname(a,b,c)    Perl_magicname(aTHX_ a,b,c)
  3151. #endif
  3152. #define markstack_grow()    Perl_markstack_grow(aTHX)
  3153. #if defined(USE_LOCALE_COLLATE)
  3154. #ifdef PERL_CORE
  3155. #define mem_collxfrm(a,b,c)    Perl_mem_collxfrm(aTHX_ a,b,c)
  3156. #endif
  3157. #endif
  3158. #define vmess(a,b)        Perl_vmess(aTHX_ a,b)
  3159. #ifdef PERL_CORE
  3160. #define qerror(a)        Perl_qerror(aTHX_ a)
  3161. #endif
  3162. #define sortsv(a,b,c)        Perl_sortsv(aTHX_ a,b,c)
  3163. #define mg_clear(a)        Perl_mg_clear(aTHX_ a)
  3164. #define mg_copy(a,b,c,d)    Perl_mg_copy(aTHX_ a,b,c,d)
  3165. #define mg_find(a,b)        Perl_mg_find(aTHX_ a,b)
  3166. #define mg_free(a)        Perl_mg_free(aTHX_ a)
  3167. #define mg_get(a)        Perl_mg_get(aTHX_ a)
  3168. #define mg_length(a)        Perl_mg_length(aTHX_ a)
  3169. #define mg_magical(a)        Perl_mg_magical(aTHX_ a)
  3170. #define mg_set(a)        Perl_mg_set(aTHX_ a)
  3171. #define mg_size(a)        Perl_mg_size(aTHX_ a)
  3172. #define mini_mktime(a)        Perl_mini_mktime(aTHX_ a)
  3173. #ifdef PERL_CORE
  3174. #define mod(a,b)        Perl_mod(aTHX_ a,b)
  3175. #endif
  3176. #ifdef PERL_CORE
  3177. #define mode_from_discipline(a)    Perl_mode_from_discipline(aTHX_ a)
  3178. #endif
  3179. #define moreswitches(a)        Perl_moreswitches(aTHX_ a)
  3180. #ifdef PERL_CORE
  3181. #define my(a)            Perl_my(aTHX_ a)
  3182. #endif
  3183. #define my_atof(a)        Perl_my_atof(aTHX_ a)
  3184. #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
  3185. #define my_bcopy        Perl_my_bcopy
  3186. #endif
  3187. #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
  3188. #define my_bzero        Perl_my_bzero
  3189. #endif
  3190. #define my_exit(a)        Perl_my_exit(aTHX_ a)
  3191. #define my_failure_exit()    Perl_my_failure_exit(aTHX)
  3192. #define my_fflush_all()        Perl_my_fflush_all(aTHX)
  3193. #define my_fork            Perl_my_fork
  3194. #define atfork_lock        Perl_atfork_lock
  3195. #define atfork_unlock        Perl_atfork_unlock
  3196. #define my_lstat()        Perl_my_lstat(aTHX)
  3197. #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
  3198. #define my_memcmp        Perl_my_memcmp
  3199. #endif
  3200. #if !defined(HAS_MEMSET)
  3201. #define my_memset        Perl_my_memset
  3202. #endif
  3203. #define my_pclose(a)        Perl_my_pclose(aTHX_ a)
  3204. #define my_popen(a,b)        Perl_my_popen(aTHX_ a,b)
  3205. #define my_popen_list(a,b,c)    Perl_my_popen_list(aTHX_ a,b,c)
  3206. #define my_setenv(a,b)        Perl_my_setenv(aTHX_ a,b)
  3207. #define my_stat()        Perl_my_stat(aTHX)
  3208. #define my_strftime(a,b,c,d,e,f,g,h,i,j)    Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j)
  3209. #if defined(MYSWAP)
  3210. #define my_swap(a)        Perl_my_swap(aTHX_ a)
  3211. #define my_htonl(a)        Perl_my_htonl(aTHX_ a)
  3212. #define my_ntohl(a)        Perl_my_ntohl(aTHX_ a)
  3213. #endif
  3214. #ifdef PERL_CORE
  3215. #define my_unexec()        Perl_my_unexec(aTHX)
  3216. #endif
  3217. #define newANONLIST(a)        Perl_newANONLIST(aTHX_ a)
  3218. #define newANONHASH(a)        Perl_newANONHASH(aTHX_ a)
  3219. #define newANONSUB(a,b,c)    Perl_newANONSUB(aTHX_ a,b,c)
  3220. #define newASSIGNOP(a,b,c,d)    Perl_newASSIGNOP(aTHX_ a,b,c,d)
  3221. #define newCONDOP(a,b,c,d)    Perl_newCONDOP(aTHX_ a,b,c,d)
  3222. #define newCONSTSUB(a,b,c)    Perl_newCONSTSUB(aTHX_ a,b,c)
  3223. #define newFORM(a,b,c)        Perl_newFORM(aTHX_ a,b,c)
  3224. #define newFOROP(a,b,c,d,e,f,g)    Perl_newFOROP(aTHX_ a,b,c,d,e,f,g)
  3225. #define newLOGOP(a,b,c,d)    Perl_newLOGOP(aTHX_ a,b,c,d)
  3226. #define newLOOPEX(a,b)        Perl_newLOOPEX(aTHX_ a,b)
  3227. #define newLOOPOP(a,b,c,d)    Perl_newLOOPOP(aTHX_ a,b,c,d)
  3228. #define newNULLLIST()        Perl_newNULLLIST(aTHX)
  3229. #define newOP(a,b)        Perl_newOP(aTHX_ a,b)
  3230. #define newPROG(a)        Perl_newPROG(aTHX_ a)
  3231. #define newRANGE(a,b,c)        Perl_newRANGE(aTHX_ a,b,c)
  3232. #define newSLICEOP(a,b,c)    Perl_newSLICEOP(aTHX_ a,b,c)
  3233. #define newSTATEOP(a,b,c)    Perl_newSTATEOP(aTHX_ a,b,c)
  3234. #define newSUB(a,b,c,d)        Perl_newSUB(aTHX_ a,b,c,d)
  3235. #define newXS(a,b,c)        Perl_newXS(aTHX_ a,b,c)
  3236. #define newAV()            Perl_newAV(aTHX)
  3237. #define newAVREF(a)        Perl_newAVREF(aTHX_ a)
  3238. #define newBINOP(a,b,c,d)    Perl_newBINOP(aTHX_ a,b,c,d)
  3239. #define newCVREF(a,b)        Perl_newCVREF(aTHX_ a,b)
  3240. #define newGVOP(a,b,c)        Perl_newGVOP(aTHX_ a,b,c)
  3241. #define newGVgen(a)        Perl_newGVgen(aTHX_ a)
  3242. #define newGVREF(a,b)        Perl_newGVREF(aTHX_ a,b)
  3243. #define newHVREF(a)        Perl_newHVREF(aTHX_ a)
  3244. #define newHV()            Perl_newHV(aTHX)
  3245. #define newHVhv(a)        Perl_newHVhv(aTHX_ a)
  3246. #define newIO()            Perl_newIO(aTHX)
  3247. #define newLISTOP(a,b,c,d)    Perl_newLISTOP(aTHX_ a,b,c,d)
  3248. #define newPADOP(a,b,c)        Perl_newPADOP(aTHX_ a,b,c)
  3249. #define newPMOP(a,b)        Perl_newPMOP(aTHX_ a,b)
  3250. #define newPVOP(a,b,c)        Perl_newPVOP(aTHX_ a,b,c)
  3251. #define newRV(a)        Perl_newRV(aTHX_ a)
  3252. #define newRV_noinc(a)        Perl_newRV_noinc(aTHX_ a)
  3253. #define newSV(a)        Perl_newSV(aTHX_ a)
  3254. #define newSVREF(a)        Perl_newSVREF(aTHX_ a)
  3255. #define newSVOP(a,b,c)        Perl_newSVOP(aTHX_ a,b,c)
  3256. #define newSViv(a)        Perl_newSViv(aTHX_ a)
  3257. #define newSVuv(a)        Perl_newSVuv(aTHX_ a)
  3258. #define newSVnv(a)        Perl_newSVnv(aTHX_ a)
  3259. #define newSVpv(a,b)        Perl_newSVpv(aTHX_ a,b)
  3260. #define newSVpvn(a,b)        Perl_newSVpvn(aTHX_ a,b)
  3261. #define newSVpvn_share(a,b,c)    Perl_newSVpvn_share(aTHX_ a,b,c)
  3262. #define vnewSVpvf(a,b)        Perl_vnewSVpvf(aTHX_ a,b)
  3263. #define newSVrv(a,b)        Perl_newSVrv(aTHX_ a,b)
  3264. #define newSVsv(a)        Perl_newSVsv(aTHX_ a)
  3265. #define newUNOP(a,b,c)        Perl_newUNOP(aTHX_ a,b,c)
  3266. #define newWHILEOP(a,b,c,d,e,f,g)    Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g)
  3267. #define new_stackinfo(a,b)    Perl_new_stackinfo(aTHX_ a,b)
  3268. #define scan_vstring(a,b)    Perl_scan_vstring(aTHX_ a,b)
  3269. #ifdef PERL_CORE
  3270. #define nextargv(a)        Perl_nextargv(aTHX_ a)
  3271. #endif
  3272. #define ninstr(a,b,c,d)        Perl_ninstr(aTHX_ a,b,c,d)
  3273. #ifdef PERL_CORE
  3274. #define oopsCV(a)        Perl_oopsCV(aTHX_ a)
  3275. #endif
  3276. #define op_free(a)        Perl_op_free(aTHX_ a)
  3277. #ifdef PERL_CORE
  3278. #define package(a)        Perl_package(aTHX_ a)
  3279. #endif
  3280. #ifdef PERL_CORE
  3281. #define pad_alloc(a,b)        Perl_pad_alloc(aTHX_ a,b)
  3282. #endif
  3283. #ifdef PERL_CORE
  3284. #define allocmy(a)        Perl_allocmy(aTHX_ a)
  3285. #endif
  3286. #ifdef PERL_CORE
  3287. #define pad_findmy(a)        Perl_pad_findmy(aTHX_ a)
  3288. #endif
  3289. #ifdef PERL_CORE
  3290. #define oopsAV(a)        Perl_oopsAV(aTHX_ a)
  3291. #endif
  3292. #ifdef PERL_CORE
  3293. #define oopsHV(a)        Perl_oopsHV(aTHX_ a)
  3294. #endif
  3295. #ifdef PERL_CORE
  3296. #define pad_leavemy()        Perl_pad_leavemy(aTHX)
  3297. #endif
  3298. #define pad_sv(a)        Perl_pad_sv(aTHX_ a)
  3299. #ifdef PERL_CORE
  3300. #define pad_free(a)        Perl_pad_free(aTHX_ a)
  3301. #endif
  3302. #ifdef PERL_CORE
  3303. #define pad_reset()        Perl_pad_reset(aTHX)
  3304. #endif
  3305. #ifdef PERL_CORE
  3306. #define pad_swipe(a,b)        Perl_pad_swipe(aTHX_ a,b)
  3307. #endif
  3308. #ifdef PERL_CORE
  3309. #define peep(a)            Perl_peep(aTHX_ a)
  3310. #endif
  3311. #ifdef PERL_CORE
  3312. #endif
  3313. #if defined(USE_5005THREADS)
  3314. #define new_struct_thread(a)    Perl_new_struct_thread(aTHX_ a)
  3315. #endif
  3316. #if defined(USE_REENTRANT_API)
  3317. #define reentrant_size()    Perl_reentrant_size(aTHX)
  3318. #define reentrant_init()    Perl_reentrant_init(aTHX)
  3319. #define reentrant_free()    Perl_reentrant_free(aTHX)
  3320. #endif
  3321. #define call_atexit(a,b)    Perl_call_atexit(aTHX_ a,b)
  3322. #define call_argv(a,b,c)    Perl_call_argv(aTHX_ a,b,c)
  3323. #define call_method(a,b)    Perl_call_method(aTHX_ a,b)
  3324. #define call_pv(a,b)        Perl_call_pv(aTHX_ a,b)
  3325. #define call_sv(a,b)        Perl_call_sv(aTHX_ a,b)
  3326. #define despatch_signals()    Perl_despatch_signals(aTHX)
  3327. #define eval_pv(a,b)        Perl_eval_pv(aTHX_ a,b)
  3328. #define eval_sv(a,b)        Perl_eval_sv(aTHX_ a,b)
  3329. #define get_sv(a,b)        Perl_get_sv(aTHX_ a,b)
  3330. #define get_av(a,b)        Perl_get_av(aTHX_ a,b)
  3331. #define get_hv(a,b)        Perl_get_hv(aTHX_ a,b)
  3332. #define get_cv(a,b)        Perl_get_cv(aTHX_ a,b)
  3333. #define init_i18nl10n(a)    Perl_init_i18nl10n(aTHX_ a)
  3334. #define init_i18nl14n(a)    Perl_init_i18nl14n(aTHX_ a)
  3335. #define new_collate(a)        Perl_new_collate(aTHX_ a)
  3336. #define new_ctype(a)        Perl_new_ctype(aTHX_ a)
  3337. #define new_numeric(a)        Perl_new_numeric(aTHX_ a)
  3338. #define set_numeric_local()    Perl_set_numeric_local(aTHX)
  3339. #define set_numeric_radix()    Perl_set_numeric_radix(aTHX)
  3340. #define set_numeric_standard()    Perl_set_numeric_standard(aTHX)
  3341. #define require_pv(a)        Perl_require_pv(aTHX_ a)
  3342. #define pack_cat(a,b,c,d,e,f,g)    Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
  3343. #define packlist(a,b,c,d,e)    Perl_packlist(aTHX_ a,b,c,d,e)
  3344. #ifdef PERL_CORE
  3345. #define pidgone(a,b)        Perl_pidgone(aTHX_ a,b)
  3346. #endif
  3347. #define pmflag(a,b)        Perl_pmflag(aTHX_ a,b)
  3348. #ifdef PERL_CORE
  3349. #define pmruntime(a,b,c)    Perl_pmruntime(aTHX_ a,b,c)
  3350. #endif
  3351. #ifdef PERL_CORE
  3352. #define pmtrans(a,b,c)        Perl_pmtrans(aTHX_ a,b,c)
  3353. #endif
  3354. #ifdef PERL_CORE
  3355. #define pop_return()        Perl_pop_return(aTHX)
  3356. #endif
  3357. #define pop_scope()        Perl_pop_scope(aTHX)
  3358. #ifdef PERL_CORE
  3359. #define prepend_elem(a,b,c)    Perl_prepend_elem(aTHX_ a,b,c)
  3360. #endif
  3361. #ifdef PERL_CORE
  3362. #define push_return(a)        Perl_push_return(aTHX_ a)
  3363. #endif
  3364. #define push_scope()        Perl_push_scope(aTHX)
  3365. #ifdef PERL_CORE
  3366. #define ref(a,b)        Perl_ref(aTHX_ a,b)
  3367. #endif
  3368. #ifdef PERL_CORE
  3369. #define refkids(a,b)        Perl_refkids(aTHX_ a,b)
  3370. #endif
  3371. #define regdump(a)        Perl_regdump(aTHX_ a)
  3372. #define regclass_swash(a,b,c,d)    Perl_regclass_swash(aTHX_ a,b,c,d)
  3373. #define pregexec(a,b,c,d,e,f,g)    Perl_pregexec(aTHX_ a,b,c,d,e,f,g)
  3374. #define pregfree(a)        Perl_pregfree(aTHX_ a)
  3375. #define pregcomp(a,b,c)        Perl_pregcomp(aTHX_ a,b,c)
  3376. #define re_intuit_start(a,b,c,d,e,f)    Perl_re_intuit_start(aTHX_ a,b,c,d,e,f)
  3377. #define re_intuit_string(a)    Perl_re_intuit_string(aTHX_ a)
  3378. #define regexec_flags(a,b,c,d,e,f,g,h)    Perl_regexec_flags(aTHX_ a,b,c,d,e,f,g,h)
  3379. #define regnext(a)        Perl_regnext(aTHX_ a)
  3380. #if defined(PERL_CORE) || defined(PERL_EXT)
  3381. #define regprop(a,b)        Perl_regprop(aTHX_ a,b)
  3382. #endif
  3383. #define repeatcpy(a,b,c,d)    Perl_repeatcpy(aTHX_ a,b,c,d)
  3384. #define rninstr(a,b,c,d)    Perl_rninstr(aTHX_ a,b,c,d)
  3385. #define rsignal(a,b)        Perl_rsignal(aTHX_ a,b)
  3386. #ifdef PERL_CORE
  3387. #define rsignal_restore(a,b)    Perl_rsignal_restore(aTHX_ a,b)
  3388. #endif
  3389. #ifdef PERL_CORE
  3390. #define rsignal_save(a,b,c)    Perl_rsignal_save(aTHX_ a,b,c)
  3391. #endif
  3392. #define rsignal_state(a)    Perl_rsignal_state(aTHX_ a)
  3393. #ifdef PERL_CORE
  3394. #define rxres_free(a)        Perl_rxres_free(aTHX_ a)
  3395. #endif
  3396. #ifdef PERL_CORE
  3397. #define rxres_restore(a,b)    Perl_rxres_restore(aTHX_ a,b)
  3398. #endif
  3399. #ifdef PERL_CORE
  3400. #define rxres_save(a,b)        Perl_rxres_save(aTHX_ a,b)
  3401. #endif
  3402. #if !defined(HAS_RENAME)
  3403. #ifdef PERL_CORE
  3404. #define same_dirent(a,b)    Perl_same_dirent(aTHX_ a,b)
  3405. #endif
  3406. #endif
  3407. #define savepv(a)        Perl_savepv(aTHX_ a)
  3408. #define savesharedpv(a)        Perl_savesharedpv(aTHX_ a)
  3409. #define savepvn(a,b)        Perl_savepvn(aTHX_ a,b)
  3410. #define savestack_grow()    Perl_savestack_grow(aTHX)
  3411. #define savestack_grow_cnt(a)    Perl_savestack_grow_cnt(aTHX_ a)
  3412. #define save_aelem(a,b,c)    Perl_save_aelem(aTHX_ a,b,c)
  3413. #define save_alloc(a,b)        Perl_save_alloc(aTHX_ a,b)
  3414. #define save_aptr(a)        Perl_save_aptr(aTHX_ a)
  3415. #define save_ary(a)        Perl_save_ary(aTHX_ a)
  3416. #define save_bool(a)        Perl_save_bool(aTHX_ a)
  3417. #define save_clearsv(a)        Perl_save_clearsv(aTHX_ a)
  3418. #define save_delete(a,b,c)    Perl_save_delete(aTHX_ a,b,c)
  3419. #define save_destructor(a,b)    Perl_save_destructor(aTHX_ a,b)
  3420. #define save_destructor_x(a,b)    Perl_save_destructor_x(aTHX_ a,b)
  3421. #define save_freesv(a)        Perl_save_freesv(aTHX_ a)
  3422. #ifdef PERL_CORE
  3423. #define save_freeop(a)        Perl_save_freeop(aTHX_ a)
  3424. #endif
  3425. #define save_freepv(a)        Perl_save_freepv(aTHX_ a)
  3426. #define save_generic_svref(a)    Perl_save_generic_svref(aTHX_ a)
  3427. #define save_generic_pvref(a)    Perl_save_generic_pvref(aTHX_ a)
  3428. #define save_shared_pvref(a)    Perl_save_shared_pvref(aTHX_ a)
  3429. #define save_gp(a,b)        Perl_save_gp(aTHX_ a,b)
  3430. #define save_hash(a)        Perl_save_hash(aTHX_ a)
  3431. #define save_helem(a,b,c)    Perl_save_helem(aTHX_ a,b,c)
  3432. #define save_hints()        Perl_save_hints(aTHX)
  3433. #define save_hptr(a)        Perl_save_hptr(aTHX_ a)
  3434. #define save_I16(a)        Perl_save_I16(aTHX_ a)
  3435. #define save_I32(a)        Perl_save_I32(aTHX_ a)
  3436. #define save_I8(a)        Perl_save_I8(aTHX_ a)
  3437. #define save_int(a)        Perl_save_int(aTHX_ a)
  3438. #define save_item(a)        Perl_save_item(aTHX_ a)
  3439. #define save_iv(a)        Perl_save_iv(aTHX_ a)
  3440. #define save_list(a,b)        Perl_save_list(aTHX_ a,b)
  3441. #define save_long(a)        Perl_save_long(aTHX_ a)
  3442. #define save_mortalizesv(a)    Perl_save_mortalizesv(aTHX_ a)
  3443. #define save_nogv(a)        Perl_save_nogv(aTHX_ a)
  3444. #ifdef PERL_CORE
  3445. #define save_op()        Perl_save_op(aTHX)
  3446. #endif
  3447. #define save_scalar(a)        Perl_save_scalar(aTHX_ a)
  3448. #define save_pptr(a)        Perl_save_pptr(aTHX_ a)
  3449. #define save_vptr(a)        Perl_save_vptr(aTHX_ a)
  3450. #define save_re_context()    Perl_save_re_context(aTHX)
  3451. #define save_padsv(a)        Perl_save_padsv(aTHX_ a)
  3452. #define save_sptr(a)        Perl_save_sptr(aTHX_ a)
  3453. #define save_svref(a)        Perl_save_svref(aTHX_ a)
  3454. #define save_threadsv(a)    Perl_save_threadsv(aTHX_ a)
  3455. #ifdef PERL_CORE
  3456. #define sawparens(a)        Perl_sawparens(aTHX_ a)
  3457. #endif
  3458. #ifdef PERL_CORE
  3459. #define scalar(a)        Perl_scalar(aTHX_ a)
  3460. #endif
  3461. #ifdef PERL_CORE
  3462. #define scalarkids(a)        Perl_scalarkids(aTHX_ a)
  3463. #endif
  3464. #ifdef PERL_CORE
  3465. #define scalarseq(a)        Perl_scalarseq(aTHX_ a)
  3466. #endif
  3467. #ifdef PERL_CORE
  3468. #define scalarvoid(a)        Perl_scalarvoid(aTHX_ a)
  3469. #endif
  3470. #define scan_bin(a,b,c)        Perl_scan_bin(aTHX_ a,b,c)
  3471. #define scan_hex(a,b,c)        Perl_scan_hex(aTHX_ a,b,c)
  3472. #define scan_num(a,b)        Perl_scan_num(aTHX_ a,b)
  3473. #define scan_oct(a,b,c)        Perl_scan_oct(aTHX_ a,b,c)
  3474. #ifdef PERL_CORE
  3475. #define scope(a)        Perl_scope(aTHX_ a)
  3476. #endif
  3477. #define screaminstr(a,b,c,d,e,f)    Perl_screaminstr(aTHX_ a,b,c,d,e,f)
  3478. #if !defined(VMS)
  3479. #ifdef PERL_CORE
  3480. #define setenv_getix(a)        Perl_setenv_getix(aTHX_ a)
  3481. #endif
  3482. #endif
  3483. #ifdef PERL_CORE
  3484. #define setdefout(a)        Perl_setdefout(aTHX_ a)
  3485. #endif
  3486. #ifdef PERL_CORE
  3487. #define share_hek(a,b,c)    Perl_share_hek(aTHX_ a,b,c)
  3488. #endif
  3489. #ifdef PERL_CORE
  3490. #define sighandler        Perl_sighandler
  3491. #endif
  3492. #define csighandler        Perl_csighandler
  3493. #define stack_grow(a,b,c)    Perl_stack_grow(aTHX_ a,b,c)
  3494. #define start_subparse(a,b)    Perl_start_subparse(aTHX_ a,b)
  3495. #ifdef PERL_CORE
  3496. #define sub_crush_depth(a)    Perl_sub_crush_depth(aTHX_ a)
  3497. #endif
  3498. #define sv_2bool(a)        Perl_sv_2bool(aTHX_ a)
  3499. #define sv_2cv(a,b,c,d)        Perl_sv_2cv(aTHX_ a,b,c,d)
  3500. #define sv_2io(a)        Perl_sv_2io(aTHX_ a)
  3501. #define sv_2iv(a)        Perl_sv_2iv(aTHX_ a)
  3502. #define sv_2mortal(a)        Perl_sv_2mortal(aTHX_ a)
  3503. #define sv_2nv(a)        Perl_sv_2nv(aTHX_ a)
  3504. #define sv_2pvutf8(a,b)        Perl_sv_2pvutf8(aTHX_ a,b)
  3505. #define sv_2pvbyte(a,b)        Perl_sv_2pvbyte(aTHX_ a,b)
  3506. #define sv_pvn_nomg(a,b)    Perl_sv_pvn_nomg(aTHX_ a,b)
  3507. #define sv_2uv(a)        Perl_sv_2uv(aTHX_ a)
  3508. #define sv_iv(a)        Perl_sv_iv(aTHX_ a)
  3509. #define sv_uv(a)        Perl_sv_uv(aTHX_ a)
  3510. #define sv_nv(a)        Perl_sv_nv(aTHX_ a)
  3511. #define sv_pvn(a,b)        Perl_sv_pvn(aTHX_ a,b)
  3512. #define sv_pvutf8n(a,b)        Perl_sv_pvutf8n(aTHX_ a,b)
  3513. #define sv_pvbyten(a,b)        Perl_sv_pvbyten(aTHX_ a,b)
  3514. #define sv_true(a)        Perl_sv_true(aTHX_ a)
  3515. #ifdef PERL_CORE
  3516. #define sv_add_arena(a,b,c)    Perl_sv_add_arena(aTHX_ a,b,c)
  3517. #endif
  3518. #define sv_backoff(a)        Perl_sv_backoff(aTHX_ a)
  3519. #define sv_bless(a,b)        Perl_sv_bless(aTHX_ a,b)
  3520. #define sv_vcatpvf(a,b,c)    Perl_sv_vcatpvf(aTHX_ a,b,c)
  3521. #define sv_catpv(a,b)        Perl_sv_catpv(aTHX_ a,b)
  3522. #define sv_chop(a,b)        Perl_sv_chop(aTHX_ a,b)
  3523. #ifdef PERL_CORE
  3524. #define sv_clean_all()        Perl_sv_clean_all(aTHX)
  3525. #endif
  3526. #ifdef PERL_CORE
  3527. #define sv_clean_objs()        Perl_sv_clean_objs(aTHX)
  3528. #endif
  3529. #define sv_clear(a)        Perl_sv_clear(aTHX_ a)
  3530. #define sv_cmp(a,b)        Perl_sv_cmp(aTHX_ a,b)
  3531. #define sv_cmp_locale(a,b)    Perl_sv_cmp_locale(aTHX_ a,b)
  3532. #if defined(USE_LOCALE_COLLATE)
  3533. #define sv_collxfrm(a,b)    Perl_sv_collxfrm(aTHX_ a,b)
  3534. #endif
  3535. #define sv_compile_2op(a,b,c,d)    Perl_sv_compile_2op(aTHX_ a,b,c,d)
  3536. #define getcwd_sv(a)        Perl_getcwd_sv(aTHX_ a)
  3537. #define sv_dec(a)        Perl_sv_dec(aTHX_ a)
  3538. #define sv_dump(a)        Perl_sv_dump(aTHX_ a)
  3539. #define sv_derived_from(a,b)    Perl_sv_derived_from(aTHX_ a,b)
  3540. #define sv_eq(a,b)        Perl_sv_eq(aTHX_ a,b)
  3541. #define sv_free(a)        Perl_sv_free(aTHX_ a)
  3542. #ifdef PERL_CORE
  3543. #define sv_free_arenas()    Perl_sv_free_arenas(aTHX)
  3544. #endif
  3545. #define sv_gets(a,b,c)        Perl_sv_gets(aTHX_ a,b,c)
  3546. #define sv_grow(a,b)        Perl_sv_grow(aTHX_ a,b)
  3547. #define sv_inc(a)        Perl_sv_inc(aTHX_ a)
  3548. #define sv_insert(a,b,c,d,e)    Perl_sv_insert(aTHX_ a,b,c,d,e)
  3549. #define sv_isa(a,b)        Perl_sv_isa(aTHX_ a,b)
  3550. #define sv_isobject(a)        Perl_sv_isobject(aTHX_ a)
  3551. #define sv_len(a)        Perl_sv_len(aTHX_ a)
  3552. #define sv_len_utf8(a)        Perl_sv_len_utf8(aTHX_ a)
  3553. #define sv_magic(a,b,c,d,e)    Perl_sv_magic(aTHX_ a,b,c,d,e)
  3554. #define sv_magicext(a,b,c,d,e,f)    Perl_sv_magicext(aTHX_ a,b,c,d,e,f)
  3555. #define sv_mortalcopy(a)    Perl_sv_mortalcopy(aTHX_ a)
  3556. #define sv_newmortal()        Perl_sv_newmortal(aTHX)
  3557. #define sv_newref(a)        Perl_sv_newref(aTHX_ a)
  3558. #define sv_peek(a)        Perl_sv_peek(aTHX_ a)
  3559. #define sv_pos_u2b(a,b,c)    Perl_sv_pos_u2b(aTHX_ a,b,c)
  3560. #define sv_pos_b2u(a,b)        Perl_sv_pos_b2u(aTHX_ a,b)
  3561. #define sv_pvutf8n_force(a,b)    Perl_sv_pvutf8n_force(aTHX_ a,b)
  3562. #define sv_pvbyten_force(a,b)    Perl_sv_pvbyten_force(aTHX_ a,b)
  3563. #define sv_recode_to_utf8(a,b)    Perl_sv_recode_to_utf8(aTHX_ a,b)
  3564. #define sv_cat_decode(a,b,c,d,e,f)    Perl_sv_cat_decode(aTHX_ a,b,c,d,e,f)
  3565. #define sv_reftype(a,b)        Perl_sv_reftype(aTHX_ a,b)
  3566. #define sv_replace(a,b)        Perl_sv_replace(aTHX_ a,b)
  3567. #define sv_report_used()    Perl_sv_report_used(aTHX)
  3568. #define sv_reset(a,b)        Perl_sv_reset(aTHX_ a,b)
  3569. #define sv_vsetpvf(a,b,c)    Perl_sv_vsetpvf(aTHX_ a,b,c)
  3570. #define sv_setiv(a,b)        Perl_sv_setiv(aTHX_ a,b)
  3571. #define sv_setpviv(a,b)        Perl_sv_setpviv(aTHX_ a,b)
  3572. #define sv_setuv(a,b)        Perl_sv_setuv(aTHX_ a,b)
  3573. #define sv_setnv(a,b)        Perl_sv_setnv(aTHX_ a,b)
  3574. #define sv_setref_iv(a,b,c)    Perl_sv_setref_iv(aTHX_ a,b,c)
  3575. #define sv_setref_uv(a,b,c)    Perl_sv_setref_uv(aTHX_ a,b,c)
  3576. #define sv_setref_nv(a,b,c)    Perl_sv_setref_nv(aTHX_ a,b,c)
  3577. #define sv_setref_pv(a,b,c)    Perl_sv_setref_pv(aTHX_ a,b,c)
  3578. #define sv_setref_pvn(a,b,c,d)    Perl_sv_setref_pvn(aTHX_ a,b,c,d)
  3579. #define sv_setpv(a,b)        Perl_sv_setpv(aTHX_ a,b)
  3580. #define sv_setpvn(a,b,c)    Perl_sv_setpvn(aTHX_ a,b,c)
  3581. #define sv_taint(a)        Perl_sv_taint(aTHX_ a)
  3582. #define sv_tainted(a)        Perl_sv_tainted(aTHX_ a)
  3583. #define sv_unmagic(a,b)        Perl_sv_unmagic(aTHX_ a,b)
  3584. #define sv_unref(a)        Perl_sv_unref(aTHX_ a)
  3585. #define sv_unref_flags(a,b)    Perl_sv_unref_flags(aTHX_ a,b)
  3586. #define sv_untaint(a)        Perl_sv_untaint(aTHX_ a)
  3587. #define sv_upgrade(a,b)        Perl_sv_upgrade(aTHX_ a,b)
  3588. #define sv_usepvn(a,b,c)    Perl_sv_usepvn(aTHX_ a,b,c)
  3589. #define sv_vcatpvfn(a,b,c,d,e,f,g)    Perl_sv_vcatpvfn(aTHX_ a,b,c,d,e,f,g)
  3590. #define sv_vsetpvfn(a,b,c,d,e,f,g)    Perl_sv_vsetpvfn(aTHX_ a,b,c,d,e,f,g)
  3591. #define str_to_version(a)    Perl_str_to_version(aTHX_ a)
  3592. #define swash_init(a,b,c,d,e)    Perl_swash_init(aTHX_ a,b,c,d,e)
  3593. #define swash_fetch(a,b,c)    Perl_swash_fetch(aTHX_ a,b,c)
  3594. #define taint_env()        Perl_taint_env(aTHX)
  3595. #define taint_proper(a,b)    Perl_taint_proper(aTHX_ a,b)
  3596. #define to_utf8_case(a,b,c,d,e,f)    Perl_to_utf8_case(aTHX_ a,b,c,d,e,f)
  3597. #define to_utf8_lower(a,b,c)    Perl_to_utf8_lower(aTHX_ a,b,c)
  3598. #define to_utf8_upper(a,b,c)    Perl_to_utf8_upper(aTHX_ a,b,c)
  3599. #define to_utf8_title(a,b,c)    Perl_to_utf8_title(aTHX_ a,b,c)
  3600. #define to_utf8_fold(a,b,c)    Perl_to_utf8_fold(aTHX_ a,b,c)
  3601. #if defined(UNLINK_ALL_VERSIONS)
  3602. #define unlnk(a)        Perl_unlnk(aTHX_ a)
  3603. #endif
  3604. #if defined(USE_5005THREADS)
  3605. #define unlock_condpair(a)    Perl_unlock_condpair(aTHX_ a)
  3606. #endif
  3607. #define unpack_str(a,b,c,d,e,f,g,h)    Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
  3608. #define unpackstring(a,b,c,d,e)    Perl_unpackstring(aTHX_ a,b,c,d,e)
  3609. #define unsharepvn(a,b,c)    Perl_unsharepvn(aTHX_ a,b,c)
  3610. #ifdef PERL_CORE
  3611. #define unshare_hek(a)        Perl_unshare_hek(aTHX_ a)
  3612. #endif
  3613. #ifdef PERL_CORE
  3614. #define utilize(a,b,c,d,e)    Perl_utilize(aTHX_ a,b,c,d,e)
  3615. #endif
  3616. #define utf16_to_utf8(a,b,c,d)    Perl_utf16_to_utf8(aTHX_ a,b,c,d)
  3617. #define utf16_to_utf8_reversed(a,b,c,d)    Perl_utf16_to_utf8_reversed(aTHX_ a,b,c,d)
  3618. #define utf8_length(a,b)    Perl_utf8_length(aTHX_ a,b)
  3619. #define utf8_distance(a,b)    Perl_utf8_distance(aTHX_ a,b)
  3620. #define utf8_hop(a,b)        Perl_utf8_hop(aTHX_ a,b)
  3621. #define utf8_to_bytes(a,b)    Perl_utf8_to_bytes(aTHX_ a,b)
  3622. #define bytes_from_utf8(a,b,c)    Perl_bytes_from_utf8(aTHX_ a,b,c)
  3623. #define bytes_to_utf8(a,b)    Perl_bytes_to_utf8(aTHX_ a,b)
  3624. #define utf8_to_uvchr(a,b)    Perl_utf8_to_uvchr(aTHX_ a,b)
  3625. #define utf8_to_uvuni(a,b)    Perl_utf8_to_uvuni(aTHX_ a,b)
  3626. #define utf8n_to_uvchr(a,b,c,d)    Perl_utf8n_to_uvchr(aTHX_ a,b,c,d)
  3627. #define utf8n_to_uvuni(a,b,c,d)    Perl_utf8n_to_uvuni(aTHX_ a,b,c,d)
  3628. #define uvchr_to_utf8(a,b)    Perl_uvchr_to_utf8(aTHX_ a,b)
  3629. #define uvuni_to_utf8(a,b)    Perl_uvuni_to_utf8(aTHX_ a,b)
  3630. #define uvchr_to_utf8_flags(a,b,c)    Perl_uvchr_to_utf8_flags(aTHX_ a,b,c)
  3631. #define uvuni_to_utf8_flags(a,b,c)    Perl_uvuni_to_utf8_flags(aTHX_ a,b,c)
  3632. #define pv_uni_display(a,b,c,d,e)    Perl_pv_uni_display(aTHX_ a,b,c,d,e)
  3633. #define sv_uni_display(a,b,c,d)    Perl_sv_uni_display(aTHX_ a,b,c,d)
  3634. #ifdef PERL_CORE
  3635. #define vivify_defelem(a)    Perl_vivify_defelem(aTHX_ a)
  3636. #endif
  3637. #ifdef PERL_CORE
  3638. #define vivify_ref(a,b)        Perl_vivify_ref(aTHX_ a,b)
  3639. #endif
  3640. #ifdef PERL_CORE
  3641. #define wait4pid(a,b,c)        Perl_wait4pid(aTHX_ a,b,c)
  3642. #endif
  3643. #ifdef PERL_CORE
  3644. #define parse_unicode_opts(a)    Perl_parse_unicode_opts(aTHX_ a)
  3645. #endif
  3646. #ifdef PERL_CORE
  3647. #define seed()            Perl_seed(aTHX)
  3648. #endif
  3649. #ifdef PERL_CORE
  3650. #define get_hash_seed()        Perl_get_hash_seed(aTHX)
  3651. #endif
  3652. #ifdef PERL_CORE
  3653. #define report_evil_fh(a,b,c)    Perl_report_evil_fh(aTHX_ a,b,c)
  3654. #endif
  3655. #ifdef PERL_CORE
  3656. #define report_uninit()        Perl_report_uninit(aTHX)
  3657. #endif
  3658. #define vwarn(a,b)        Perl_vwarn(aTHX_ a,b)
  3659. #define vwarner(a,b,c)        Perl_vwarner(aTHX_ a,b,c)
  3660. #ifdef PERL_CORE
  3661. #define watch(a)        Perl_watch(aTHX_ a)
  3662. #endif
  3663. #define whichsig(a)        Perl_whichsig(aTHX_ a)
  3664. #ifdef PERL_CORE
  3665. #define write_to_stderr(a,b)    Perl_write_to_stderr(aTHX_ a,b)
  3666. #endif
  3667. #ifdef PERL_CORE
  3668. #define yyerror(a)        Perl_yyerror(aTHX_ a)
  3669. #endif
  3670. #ifdef USE_PURE_BISON
  3671. #ifdef PERL_CORE
  3672. #define yylex_r(a,b)        Perl_yylex_r(aTHX_ a,b)
  3673. #endif
  3674. #endif
  3675. #ifdef PERL_CORE
  3676. #define yylex()            Perl_yylex(aTHX)
  3677. #endif
  3678. #ifdef PERL_CORE
  3679. #define yyparse()        Perl_yyparse(aTHX)
  3680. #endif
  3681. #ifdef PERL_CORE
  3682. #define yywarn(a)        Perl_yywarn(aTHX_ a)
  3683. #endif
  3684. #if defined(MYMALLOC)
  3685. #define dump_mstats(a)        Perl_dump_mstats(aTHX_ a)
  3686. #define get_mstats(a,b,c)    Perl_get_mstats(aTHX_ a,b,c)
  3687. #endif
  3688. #define safesysmalloc        Perl_safesysmalloc
  3689. #define safesyscalloc        Perl_safesyscalloc
  3690. #define safesysrealloc        Perl_safesysrealloc
  3691. #define safesysfree        Perl_safesysfree
  3692. #if defined(PERL_GLOBAL_STRUCT)
  3693. #define GetVars()        Perl_GetVars(aTHX)
  3694. #endif
  3695. #define runops_standard()    Perl_runops_standard(aTHX)
  3696. #define runops_debug()        Perl_runops_debug(aTHX)
  3697. #if defined(USE_5005THREADS)
  3698. #define sv_lock(a)        Perl_sv_lock(aTHX_ a)
  3699. #endif
  3700. #define sv_vcatpvf_mg(a,b,c)    Perl_sv_vcatpvf_mg(aTHX_ a,b,c)
  3701. #define sv_catpv_mg(a,b)    Perl_sv_catpv_mg(aTHX_ a,b)
  3702. #define sv_catpvn_mg(a,b,c)    Perl_sv_catpvn_mg(aTHX_ a,b,c)
  3703. #define sv_catsv_mg(a,b)    Perl_sv_catsv_mg(aTHX_ a,b)
  3704. #define sv_vsetpvf_mg(a,b,c)    Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
  3705. #define sv_setiv_mg(a,b)    Perl_sv_setiv_mg(aTHX_ a,b)
  3706. #define sv_setpviv_mg(a,b)    Perl_sv_setpviv_mg(aTHX_ a,b)
  3707. #define sv_setuv_mg(a,b)    Perl_sv_setuv_mg(aTHX_ a,b)
  3708. #define sv_setnv_mg(a,b)    Perl_sv_setnv_mg(aTHX_ a,b)
  3709. #define sv_setpv_mg(a,b)    Perl_sv_setpv_mg(aTHX_ a,b)
  3710. #define sv_setpvn_mg(a,b,c)    Perl_sv_setpvn_mg(aTHX_ a,b,c)
  3711. #define sv_setsv_mg(a,b)    Perl_sv_setsv_mg(aTHX_ a,b)
  3712. #define sv_usepvn_mg(a,b,c)    Perl_sv_usepvn_mg(aTHX_ a,b,c)
  3713. #define get_vtbl(a)        Perl_get_vtbl(aTHX_ a)
  3714. #define pv_display(a,b,c,d,e)    Perl_pv_display(aTHX_ a,b,c,d,e)
  3715. #define dump_vindent(a,b,c,d)    Perl_dump_vindent(aTHX_ a,b,c,d)
  3716. #define do_gv_dump(a,b,c,d)    Perl_do_gv_dump(aTHX_ a,b,c,d)
  3717. #define do_gvgv_dump(a,b,c,d)    Perl_do_gvgv_dump(aTHX_ a,b,c,d)
  3718. #define do_hv_dump(a,b,c,d)    Perl_do_hv_dump(aTHX_ a,b,c,d)
  3719. #define do_magic_dump(a,b,c,d,e,f,g)    Perl_do_magic_dump(aTHX_ a,b,c,d,e,f,g)
  3720. #define do_op_dump(a,b,c)    Perl_do_op_dump(aTHX_ a,b,c)
  3721. #define do_pmop_dump(a,b,c)    Perl_do_pmop_dump(aTHX_ a,b,c)
  3722. #define do_sv_dump(a,b,c,d,e,f,g)    Perl_do_sv_dump(aTHX_ a,b,c,d,e,f,g)
  3723. #define magic_dump(a)        Perl_magic_dump(aTHX_ a)
  3724. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  3725. #define vdefault_protect(a,b,c,d)    Perl_vdefault_protect(aTHX_ a,b,c,d)
  3726. #endif
  3727. #define reginitcolors()        Perl_reginitcolors(aTHX)
  3728. #define sv_2pv_nolen(a)        Perl_sv_2pv_nolen(aTHX_ a)
  3729. #define sv_2pvutf8_nolen(a)    Perl_sv_2pvutf8_nolen(aTHX_ a)
  3730. #define sv_2pvbyte_nolen(a)    Perl_sv_2pvbyte_nolen(aTHX_ a)
  3731. #define sv_utf8_downgrade(a,b)    Perl_sv_utf8_downgrade(aTHX_ a,b)
  3732. #define sv_utf8_encode(a)    Perl_sv_utf8_encode(aTHX_ a)
  3733. #define sv_utf8_decode(a)    Perl_sv_utf8_decode(aTHX_ a)
  3734. #define sv_force_normal(a)    Perl_sv_force_normal(aTHX_ a)
  3735. #define sv_force_normal_flags(a,b)    Perl_sv_force_normal_flags(aTHX_ a,b)
  3736. #define tmps_grow(a)        Perl_tmps_grow(aTHX_ a)
  3737. #define sv_rvweaken(a)        Perl_sv_rvweaken(aTHX_ a)
  3738. #ifdef PERL_CORE
  3739. #define magic_killbackrefs(a,b)    Perl_magic_killbackrefs(aTHX_ a,b)
  3740. #endif
  3741. #define newANONATTRSUB(a,b,c,d)    Perl_newANONATTRSUB(aTHX_ a,b,c,d)
  3742. #define newATTRSUB(a,b,c,d,e)    Perl_newATTRSUB(aTHX_ a,b,c,d,e)
  3743. #define newMYSUB(a,b,c,d,e)    Perl_newMYSUB(aTHX_ a,b,c,d,e)
  3744. #ifdef PERL_CORE
  3745. #define my_attrs(a,b)        Perl_my_attrs(aTHX_ a,b)
  3746. #endif
  3747. #ifdef PERL_CORE
  3748. #define boot_core_xsutils()    Perl_boot_core_xsutils(aTHX)
  3749. #endif
  3750. #if defined(USE_ITHREADS)
  3751. #define cx_dup(a,b,c,d)        Perl_cx_dup(aTHX_ a,b,c,d)
  3752. #define si_dup(a,b)        Perl_si_dup(aTHX_ a,b)
  3753. #define ss_dup(a,b)        Perl_ss_dup(aTHX_ a,b)
  3754. #define any_dup(a,b)        Perl_any_dup(aTHX_ a,b)
  3755. #define he_dup(a,b,c)        Perl_he_dup(aTHX_ a,b,c)
  3756. #define re_dup(a,b)        Perl_re_dup(aTHX_ a,b)
  3757. #define fp_dup(a,b,c)        Perl_fp_dup(aTHX_ a,b,c)
  3758. #define dirp_dup(a)        Perl_dirp_dup(aTHX_ a)
  3759. #define gp_dup(a,b)        Perl_gp_dup(aTHX_ a,b)
  3760. #define mg_dup(a,b)        Perl_mg_dup(aTHX_ a,b)
  3761. #define sv_dup(a,b)        Perl_sv_dup(aTHX_ a,b)
  3762. #if defined(HAVE_INTERP_INTERN)
  3763. #define sys_intern_dup(a,b)    Perl_sys_intern_dup(aTHX_ a,b)
  3764. #endif
  3765. #define ptr_table_new()        Perl_ptr_table_new(aTHX)
  3766. #define ptr_table_fetch(a,b)    Perl_ptr_table_fetch(aTHX_ a,b)
  3767. #define ptr_table_store(a,b,c)    Perl_ptr_table_store(aTHX_ a,b,c)
  3768. #define ptr_table_split(a)    Perl_ptr_table_split(aTHX_ a)
  3769. #define ptr_table_clear(a)    Perl_ptr_table_clear(aTHX_ a)
  3770. #define ptr_table_free(a)    Perl_ptr_table_free(aTHX_ a)
  3771. #endif
  3772. #if defined(HAVE_INTERP_INTERN)
  3773. #define sys_intern_clear()    Perl_sys_intern_clear(aTHX)
  3774. #define sys_intern_init()    Perl_sys_intern_init(aTHX)
  3775. #endif
  3776. #define custom_op_name(a)    Perl_custom_op_name(aTHX_ a)
  3777. #define custom_op_desc(a)    Perl_custom_op_desc(aTHX_ a)
  3778. #define sv_nosharing(a)        Perl_sv_nosharing(aTHX_ a)
  3779. #define sv_nolocking(a)        Perl_sv_nolocking(aTHX_ a)
  3780. #define sv_nounlocking(a)    Perl_sv_nounlocking(aTHX_ a)
  3781. #define nothreadhook()        Perl_nothreadhook(aTHX)
  3782. #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
  3783. #ifdef PERL_CORE
  3784. #define avhv_index_sv(a)    S_avhv_index_sv(aTHX_ a)
  3785. #endif
  3786. #ifdef PERL_CORE
  3787. #define avhv_index(a,b,c)    S_avhv_index(aTHX_ a,b,c)
  3788. #endif
  3789. #endif
  3790. #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
  3791. #ifdef PERL_CORE
  3792. #define do_trans_simple(a)    S_do_trans_simple(aTHX_ a)
  3793. #endif
  3794. #ifdef PERL_CORE
  3795. #define do_trans_count(a)    S_do_trans_count(aTHX_ a)
  3796. #endif
  3797. #ifdef PERL_CORE
  3798. #define do_trans_complex(a)    S_do_trans_complex(aTHX_ a)
  3799. #endif
  3800. #ifdef PERL_CORE
  3801. #define do_trans_simple_utf8(a)    S_do_trans_simple_utf8(aTHX_ a)
  3802. #endif
  3803. #ifdef PERL_CORE
  3804. #define do_trans_count_utf8(a)    S_do_trans_count_utf8(aTHX_ a)
  3805. #endif
  3806. #ifdef PERL_CORE
  3807. #define do_trans_complex_utf8(a)    S_do_trans_complex_utf8(aTHX_ a)
  3808. #endif
  3809. #endif
  3810. #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
  3811. #ifdef PERL_CORE
  3812. #define gv_init_sv(a,b)        S_gv_init_sv(aTHX_ a,b)
  3813. #endif
  3814. #ifdef PERL_CORE
  3815. #define require_errno(a)    S_require_errno(aTHX_ a)
  3816. #endif
  3817. #endif
  3818. #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
  3819. #ifdef PERL_CORE
  3820. #define hsplit(a)        S_hsplit(aTHX_ a)
  3821. #endif
  3822. #ifdef PERL_CORE
  3823. #define hfreeentries(a)        S_hfreeentries(aTHX_ a)
  3824. #endif
  3825. #ifdef PERL_CORE
  3826. #define more_he()        S_more_he(aTHX)
  3827. #endif
  3828. #ifdef PERL_CORE
  3829. #define new_he()        S_new_he(aTHX)
  3830. #endif
  3831. #ifdef PERL_CORE
  3832. #define del_he(a)        S_del_he(aTHX_ a)
  3833. #endif
  3834. #ifdef PERL_CORE
  3835. #define save_hek_flags(a,b,c,d)    S_save_hek_flags(aTHX_ a,b,c,d)
  3836. #endif
  3837. #ifdef PERL_CORE
  3838. #define hv_magic_check(a,b,c)    S_hv_magic_check(aTHX_ a,b,c)
  3839. #endif
  3840. #ifdef PERL_CORE
  3841. #define unshare_hek_or_pvn(a,b,c,d)    S_unshare_hek_or_pvn(aTHX_ a,b,c,d)
  3842. #endif
  3843. #ifdef PERL_CORE
  3844. #define share_hek_flags(a,b,c,d)    S_share_hek_flags(aTHX_ a,b,c,d)
  3845. #endif
  3846. #ifdef PERL_CORE
  3847. #define hv_fetch_flags(a,b,c,d,e)    S_hv_fetch_flags(aTHX_ a,b,c,d,e)
  3848. #endif
  3849. #ifdef PERL_CORE
  3850. #define hv_notallowed(a,b,c,d)    S_hv_notallowed(aTHX_ a,b,c,d)
  3851. #endif
  3852. #endif
  3853. #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
  3854. #ifdef PERL_CORE
  3855. #define save_magic(a,b)        S_save_magic(aTHX_ a,b)
  3856. #endif
  3857. #ifdef PERL_CORE
  3858. #define magic_methpack(a,b,c)    S_magic_methpack(aTHX_ a,b,c)
  3859. #endif
  3860. #ifdef PERL_CORE
  3861. #define magic_methcall(a,b,c,d,e,f)    S_magic_methcall(aTHX_ a,b,c,d,e,f)
  3862. #endif
  3863. #endif
  3864. #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
  3865. #ifdef PERL_CORE
  3866. #define list_assignment(a)    S_list_assignment(aTHX_ a)
  3867. #endif
  3868. #ifdef PERL_CORE
  3869. #define bad_type(a,b,c,d)    S_bad_type(aTHX_ a,b,c,d)
  3870. #endif
  3871. #ifdef PERL_CORE
  3872. #define cop_free(a)        S_cop_free(aTHX_ a)
  3873. #endif
  3874. #ifdef PERL_CORE
  3875. #define modkids(a,b)        S_modkids(aTHX_ a,b)
  3876. #endif
  3877. #ifdef PERL_CORE
  3878. #define no_bareword_allowed(a)    S_no_bareword_allowed(aTHX_ a)
  3879. #endif
  3880. #ifdef PERL_CORE
  3881. #define no_fh_allowed(a)    S_no_fh_allowed(aTHX_ a)
  3882. #endif
  3883. #ifdef PERL_CORE
  3884. #define scalarboolean(a)    S_scalarboolean(aTHX_ a)
  3885. #endif
  3886. #ifdef PERL_CORE
  3887. #define too_few_arguments(a,b)    S_too_few_arguments(aTHX_ a,b)
  3888. #endif
  3889. #ifdef PERL_CORE
  3890. #define too_many_arguments(a,b)    S_too_many_arguments(aTHX_ a,b)
  3891. #endif
  3892. #ifdef PERL_CORE
  3893. #define newDEFSVOP()        S_newDEFSVOP(aTHX)
  3894. #endif
  3895. #ifdef PERL_CORE
  3896. #define new_logop(a,b,c,d)    S_new_logop(aTHX_ a,b,c,d)
  3897. #endif
  3898. #ifdef PERL_CORE
  3899. #define simplify_sort(a)    S_simplify_sort(aTHX_ a)
  3900. #endif
  3901. #ifdef PERL_CORE
  3902. #define is_handle_constructor(a,b)    S_is_handle_constructor(aTHX_ a,b)
  3903. #endif
  3904. #ifdef PERL_CORE
  3905. #define gv_ename(a)        S_gv_ename(aTHX_ a)
  3906. #endif
  3907. #ifdef PERL_CORE
  3908. #define scalar_mod_type(a,b)    S_scalar_mod_type(aTHX_ a,b)
  3909. #endif
  3910. #ifdef PERL_CORE
  3911. #define my_kid(a,b,c)        S_my_kid(aTHX_ a,b,c)
  3912. #endif
  3913. #ifdef PERL_CORE
  3914. #define dup_attrlist(a)        S_dup_attrlist(aTHX_ a)
  3915. #endif
  3916. #ifdef PERL_CORE
  3917. #define apply_attrs(a,b,c,d)    S_apply_attrs(aTHX_ a,b,c,d)
  3918. #endif
  3919. #ifdef PERL_CORE
  3920. #define apply_attrs_my(a,b,c,d)    S_apply_attrs_my(aTHX_ a,b,c,d)
  3921. #endif
  3922. #endif
  3923. #if defined(PL_OP_SLAB_ALLOC)
  3924. #define Slab_Alloc(a,b)        Perl_Slab_Alloc(aTHX_ a,b)
  3925. #define Slab_Free(a)        Perl_Slab_Free(aTHX_ a)
  3926. #endif
  3927. #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
  3928. #ifdef PERL_CORE
  3929. #define find_beginning()    S_find_beginning(aTHX)
  3930. #endif
  3931. #ifdef PERL_CORE
  3932. #define forbid_setid(a)        S_forbid_setid(aTHX_ a)
  3933. #endif
  3934. #ifdef PERL_CORE
  3935. #define incpush(a,b,c,d)    S_incpush(aTHX_ a,b,c,d)
  3936. #endif
  3937. #ifdef PERL_CORE
  3938. #define init_interp()        S_init_interp(aTHX)
  3939. #endif
  3940. #ifdef PERL_CORE
  3941. #define init_ids()        S_init_ids(aTHX)
  3942. #endif
  3943. #ifdef PERL_CORE
  3944. #define init_lexer()        S_init_lexer(aTHX)
  3945. #endif
  3946. #ifdef PERL_CORE
  3947. #define init_main_stash()    S_init_main_stash(aTHX)
  3948. #endif
  3949. #ifdef PERL_CORE
  3950. #define init_perllib()        S_init_perllib(aTHX)
  3951. #endif
  3952. #ifdef PERL_CORE
  3953. #define init_postdump_symbols(a,b,c)    S_init_postdump_symbols(aTHX_ a,b,c)
  3954. #endif
  3955. #ifdef PERL_CORE
  3956. #define init_predump_symbols()    S_init_predump_symbols(aTHX)
  3957. #endif
  3958. #ifdef PERL_CORE
  3959. #define my_exit_jump()        S_my_exit_jump(aTHX)
  3960. #endif
  3961. #ifdef PERL_CORE
  3962. #define nuke_stacks()        S_nuke_stacks(aTHX)
  3963. #endif
  3964. #ifdef PERL_CORE
  3965. #define open_script(a,b,c,d)    S_open_script(aTHX_ a,b,c,d)
  3966. #endif
  3967. #ifdef PERL_CORE
  3968. #define usage(a)        S_usage(aTHX_ a)
  3969. #endif
  3970. #ifdef PERL_CORE
  3971. #define validate_suid(a,b,c)    S_validate_suid(aTHX_ a,b,c)
  3972. #endif
  3973. #  if defined(IAMSUID)
  3974. #ifdef PERL_CORE
  3975. #define fd_on_nosuid_fs(a)    S_fd_on_nosuid_fs(aTHX_ a)
  3976. #endif
  3977. #  endif
  3978. #ifdef PERL_CORE
  3979. #define parse_body(a,b)        S_parse_body(aTHX_ a,b)
  3980. #endif
  3981. #ifdef PERL_CORE
  3982. #define run_body(a)        S_run_body(aTHX_ a)
  3983. #endif
  3984. #ifdef PERL_CORE
  3985. #define call_body(a,b)        S_call_body(aTHX_ a,b)
  3986. #endif
  3987. #ifdef PERL_CORE
  3988. #define call_list_body(a)    S_call_list_body(aTHX_ a)
  3989. #endif
  3990. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  3991. #ifdef PERL_CORE
  3992. #define vparse_body(a)        S_vparse_body(aTHX_ a)
  3993. #endif
  3994. #ifdef PERL_CORE
  3995. #define vrun_body(a)        S_vrun_body(aTHX_ a)
  3996. #endif
  3997. #ifdef PERL_CORE
  3998. #define vcall_body(a)        S_vcall_body(aTHX_ a)
  3999. #endif
  4000. #ifdef PERL_CORE
  4001. #define vcall_list_body(a)    S_vcall_list_body(aTHX_ a)
  4002. #endif
  4003. #endif
  4004. #  if defined(USE_5005THREADS)
  4005. #ifdef PERL_CORE
  4006. #define init_main_thread()    S_init_main_thread(aTHX)
  4007. #endif
  4008. #  endif
  4009. #endif
  4010. #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
  4011. #ifdef PERL_CORE
  4012. #define refto(a)        S_refto(aTHX_ a)
  4013. #endif
  4014. #endif
  4015. #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
  4016. #ifdef PERL_CORE
  4017. #define unpack_rec(a,b,c,d,e)    S_unpack_rec(aTHX_ a,b,c,d,e)
  4018. #endif
  4019. #ifdef PERL_CORE
  4020. #define pack_rec(a,b,c,d)    S_pack_rec(aTHX_ a,b,c,d)
  4021. #endif
  4022. #ifdef PERL_CORE
  4023. #define mul128(a,b)        S_mul128(aTHX_ a,b)
  4024. #endif
  4025. #ifdef PERL_CORE
  4026. #define measure_struct(a)    S_measure_struct(aTHX_ a)
  4027. #endif
  4028. #ifdef PERL_CORE
  4029. #define group_end(a,b,c)    S_group_end(aTHX_ a,b,c)
  4030. #endif
  4031. #ifdef PERL_CORE
  4032. #define get_num(a,b)        S_get_num(aTHX_ a,b)
  4033. #endif
  4034. #ifdef PERL_CORE
  4035. #define next_symbol(a)        S_next_symbol(aTHX_ a)
  4036. #endif
  4037. #ifdef PERL_CORE
  4038. #define doencodes(a,b,c)    S_doencodes(aTHX_ a,b,c)
  4039. #endif
  4040. #ifdef PERL_CORE
  4041. #define is_an_int(a,b)        S_is_an_int(aTHX_ a,b)
  4042. #endif
  4043. #ifdef PERL_CORE
  4044. #define div128(a,b)        S_div128(aTHX_ a,b)
  4045. #endif
  4046. #endif
  4047. #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
  4048. #ifdef PERL_CORE
  4049. #define docatch(a)        S_docatch(aTHX_ a)
  4050. #endif
  4051. #ifdef PERL_CORE
  4052. #define docatch_body()        S_docatch_body(aTHX)
  4053. #endif
  4054. #if defined(PERL_FLEXIBLE_EXCEPTIONS)
  4055. #ifdef PERL_CORE
  4056. #define vdocatch_body(a)    S_vdocatch_body(aTHX_ a)
  4057. #endif
  4058. #endif
  4059. #ifdef PERL_CORE
  4060. #define dofindlabel(a,b,c,d)    S_dofindlabel(aTHX_ a,b,c,d)
  4061. #endif
  4062. #ifdef PERL_CORE
  4063. #define doparseform(a)        S_doparseform(aTHX_ a)
  4064. #endif
  4065. #ifdef PERL_CORE
  4066. #define dopoptoeval(a)        S_dopoptoeval(aTHX_ a)
  4067. #endif
  4068. #ifdef PERL_CORE
  4069. #define dopoptolabel(a)        S_dopoptolabel(aTHX_ a)
  4070. #endif
  4071. #ifdef PERL_CORE
  4072. #define dopoptoloop(a)        S_dopoptoloop(aTHX_ a)
  4073. #endif
  4074. #ifdef PERL_CORE
  4075. #define dopoptosub(a)        S_dopoptosub(aTHX_ a)
  4076. #endif
  4077. #ifdef PERL_CORE
  4078. #define dopoptosub_at(a,b)    S_dopoptosub_at(aTHX_ a,b)
  4079. #endif
  4080. #ifdef PERL_CORE
  4081. #define save_lines(a,b)        S_save_lines(aTHX_ a,b)
  4082. #endif
  4083. #ifdef PERL_CORE
  4084. #define doeval(a,b,c,d)        S_doeval(aTHX_ a,b,c,d)
  4085. #endif
  4086. #ifdef PERL_CORE
  4087. #define doopen_pm(a,b)        S_doopen_pm(aTHX_ a,b)
  4088. #endif
  4089. #ifdef PERL_CORE
  4090. #define path_is_absolute(a)    S_path_is_absolute(aTHX_ a)
  4091. #endif
  4092. #endif
  4093. #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
  4094. #ifdef PERL_CORE
  4095. #define do_maybe_phash(a,b,c,d,e)    S_do_maybe_phash(aTHX_ a,b,c,d,e)
  4096. #endif
  4097. #ifdef PERL_CORE
  4098. #define do_oddball(a,b,c)    S_do_oddball(aTHX_ a,b,c)
  4099. #endif
  4100. #ifdef PERL_CORE
  4101. #define get_db_sub(a,b)        S_get_db_sub(aTHX_ a,b)
  4102. #endif
  4103. #ifdef PERL_CORE
  4104. #define method_common(a,b)    S_method_common(aTHX_ a,b)
  4105. #endif
  4106. #endif
  4107. #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
  4108. #ifdef PERL_CORE
  4109. #define doform(a,b,c)        S_doform(aTHX_ a,b,c)
  4110. #endif
  4111. #ifdef PERL_CORE
  4112. #define emulate_eaccess(a,b)    S_emulate_eaccess(aTHX_ a,b)
  4113. #endif
  4114. #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
  4115. #ifdef PERL_CORE
  4116. #define dooneliner(a,b)        S_dooneliner(aTHX_ a,b)
  4117. #endif
  4118. #  endif
  4119. #endif
  4120. #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
  4121. #if defined(PERL_CORE) || defined(PERL_EXT)
  4122. #define reg(a,b,c)        S_reg(aTHX_ a,b,c)
  4123. #endif
  4124. #if defined(PERL_CORE) || defined(PERL_EXT)
  4125. #define reganode(a,b,c)        S_reganode(aTHX_ a,b,c)
  4126. #endif
  4127. #if defined(PERL_CORE) || defined(PERL_EXT)
  4128. #define regatom(a,b)        S_regatom(aTHX_ a,b)
  4129. #endif
  4130. #if defined(PERL_CORE) || defined(PERL_EXT)
  4131. #define regbranch(a,b,c)    S_regbranch(aTHX_ a,b,c)
  4132. #endif
  4133. #if defined(PERL_CORE) || defined(PERL_EXT)
  4134. #define reguni(a,b,c,d)        S_reguni(aTHX_ a,b,c,d)
  4135. #endif
  4136. #if defined(PERL_CORE) || defined(PERL_EXT)
  4137. #define regclass(a)        S_regclass(aTHX_ a)
  4138. #endif
  4139. #if defined(PERL_CORE) || defined(PERL_EXT)
  4140. #define regcurly(a)        S_regcurly(aTHX_ a)
  4141. #endif
  4142. #if defined(PERL_CORE) || defined(PERL_EXT)
  4143. #define reg_node(a,b)        S_reg_node(aTHX_ a,b)
  4144. #endif
  4145. #if defined(PERL_CORE) || defined(PERL_EXT)
  4146. #define regpiece(a,b)        S_regpiece(aTHX_ a,b)
  4147. #endif
  4148. #if defined(PERL_CORE) || defined(PERL_EXT)
  4149. #define reginsert(a,b,c)    S_reginsert(aTHX_ a,b,c)
  4150. #endif
  4151. #if defined(PERL_CORE) || defined(PERL_EXT)
  4152. #define regoptail(a,b,c)    S_regoptail(aTHX_ a,b,c)
  4153. #endif
  4154. #if defined(PERL_CORE) || defined(PERL_EXT)
  4155. #define regtail(a,b,c)        S_regtail(aTHX_ a,b,c)
  4156. #endif
  4157. #if defined(PERL_CORE) || defined(PERL_EXT)
  4158. #define regwhite(a,b)        S_regwhite(aTHX_ a,b)
  4159. #endif
  4160. #if defined(PERL_CORE) || defined(PERL_EXT)
  4161. #define nextchar(a)        S_nextchar(aTHX_ a)
  4162. #endif
  4163. #  ifdef DEBUGGING
  4164. #if defined(PERL_CORE) || defined(PERL_EXT)
  4165. #define dumpuntil(a,b,c,d,e)    S_dumpuntil(aTHX_ a,b,c,d,e)
  4166. #endif
  4167. #if defined(PERL_CORE) || defined(PERL_EXT)
  4168. #define put_byte(a,b)        S_put_byte(aTHX_ a,b)
  4169. #endif
  4170. #  endif
  4171. #if defined(PERL_CORE) || defined(PERL_EXT)
  4172. #define scan_commit(a,b)    S_scan_commit(aTHX_ a,b)
  4173. #endif
  4174. #if defined(PERL_CORE) || defined(PERL_EXT)
  4175. #define cl_anything(a,b)    S_cl_anything(aTHX_ a,b)
  4176. #endif
  4177. #if defined(PERL_CORE) || defined(PERL_EXT)
  4178. #define cl_is_anything(a)    S_cl_is_anything(aTHX_ a)
  4179. #endif
  4180. #if defined(PERL_CORE) || defined(PERL_EXT)
  4181. #define cl_init(a,b)        S_cl_init(aTHX_ a,b)
  4182. #endif
  4183. #if defined(PERL_CORE) || defined(PERL_EXT)
  4184. #define cl_init_zero(a,b)    S_cl_init_zero(aTHX_ a,b)
  4185. #endif
  4186. #if defined(PERL_CORE) || defined(PERL_EXT)
  4187. #define cl_and(a,b)        S_cl_and(aTHX_ a,b)
  4188. #endif
  4189. #if defined(PERL_CORE) || defined(PERL_EXT)
  4190. #define cl_or(a,b,c)        S_cl_or(aTHX_ a,b,c)
  4191. #endif
  4192. #if defined(PERL_CORE) || defined(PERL_EXT)
  4193. #define study_chunk(a,b,c,d,e,f)    S_study_chunk(aTHX_ a,b,c,d,e,f)
  4194. #endif
  4195. #if defined(PERL_CORE) || defined(PERL_EXT)
  4196. #define add_data(a,b,c)        S_add_data(aTHX_ a,b,c)
  4197. #endif
  4198. #ifdef PERL_CORE
  4199. #endif
  4200. #if defined(PERL_CORE) || defined(PERL_EXT)
  4201. #define regpposixcc(a,b)    S_regpposixcc(aTHX_ a,b)
  4202. #endif
  4203. #if defined(PERL_CORE) || defined(PERL_EXT)
  4204. #define checkposixcc(a)        S_checkposixcc(aTHX_ a)
  4205. #endif
  4206. #endif
  4207. #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
  4208. #if defined(PERL_CORE) || defined(PERL_EXT)
  4209. #define regmatch(a)        S_regmatch(aTHX_ a)
  4210. #endif
  4211. #if defined(PERL_CORE) || defined(PERL_EXT)
  4212. #define regrepeat(a,b)        S_regrepeat(aTHX_ a,b)
  4213. #endif
  4214. #if defined(PERL_CORE) || defined(PERL_EXT)
  4215. #define regrepeat_hard(a,b,c)    S_regrepeat_hard(aTHX_ a,b,c)
  4216. #endif
  4217. #if defined(PERL_CORE) || defined(PERL_EXT)
  4218. #define regtry(a,b)        S_regtry(aTHX_ a,b)
  4219. #endif
  4220. #if defined(PERL_CORE) || defined(PERL_EXT)
  4221. #define reginclass(a,b,c,d)    S_reginclass(aTHX_ a,b,c,d)
  4222. #endif
  4223. #if defined(PERL_CORE) || defined(PERL_EXT)
  4224. #define regcppush(a)        S_regcppush(aTHX_ a)
  4225. #endif
  4226. #if defined(PERL_CORE) || defined(PERL_EXT)
  4227. #define regcppop()        S_regcppop(aTHX)
  4228. #endif
  4229. #if defined(PERL_CORE) || defined(PERL_EXT)
  4230. #define regcp_set_to(a)        S_regcp_set_to(aTHX_ a)
  4231. #endif
  4232. #if defined(PERL_CORE) || defined(PERL_EXT)
  4233. #define cache_re(a)        S_cache_re(aTHX_ a)
  4234. #endif
  4235. #if defined(PERL_CORE) || defined(PERL_EXT)
  4236. #define reghop(a,b)        S_reghop(aTHX_ a,b)
  4237. #endif
  4238. #if defined(PERL_CORE) || defined(PERL_EXT)
  4239. #define reghop3(a,b,c)        S_reghop3(aTHX_ a,b,c)
  4240. #endif
  4241. #if defined(PERL_CORE) || defined(PERL_EXT)
  4242. #define reghopmaybe(a,b)    S_reghopmaybe(aTHX_ a,b)
  4243. #endif
  4244. #if defined(PERL_CORE) || defined(PERL_EXT)
  4245. #define reghopmaybe3(a,b,c)    S_reghopmaybe3(aTHX_ a,b,c)
  4246. #endif
  4247. #if defined(PERL_CORE) || defined(PERL_EXT)
  4248. #define find_byclass(a,b,c,d,e,f)    S_find_byclass(aTHX_ a,b,c,d,e,f)
  4249. #endif
  4250. #if defined(PERL_CORE) || defined(PERL_EXT)
  4251. #define to_utf8_substr(a)    S_to_utf8_substr(aTHX_ a)
  4252. #endif
  4253. #if defined(PERL_CORE) || defined(PERL_EXT)
  4254. #define to_byte_substr(a)    S_to_byte_substr(aTHX_ a)
  4255. #endif
  4256. #endif
  4257. #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
  4258. #ifdef PERL_CORE
  4259. #define deb_curcv(a)        S_deb_curcv(aTHX_ a)
  4260. #endif
  4261. #ifdef PERL_CORE
  4262. #define debprof(a)        S_debprof(aTHX_ a)
  4263. #endif
  4264. #endif
  4265. #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
  4266. #ifdef PERL_CORE
  4267. #define save_scalar_at(a)    S_save_scalar_at(aTHX_ a)
  4268. #endif
  4269. #endif
  4270. #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
  4271. #ifdef PERL_CORE
  4272. #define asIV(a)            S_asIV(aTHX_ a)
  4273. #endif
  4274. #ifdef PERL_CORE
  4275. #define asUV(a)            S_asUV(aTHX_ a)
  4276. #endif
  4277. #ifdef PERL_CORE
  4278. #define more_sv()        S_more_sv(aTHX)
  4279. #endif
  4280. #ifdef PERL_CORE
  4281. #define more_xiv()        S_more_xiv(aTHX)
  4282. #endif
  4283. #ifdef PERL_CORE
  4284. #define more_xnv()        S_more_xnv(aTHX)
  4285. #endif
  4286. #ifdef PERL_CORE
  4287. #define more_xpv()        S_more_xpv(aTHX)
  4288. #endif
  4289. #ifdef PERL_CORE
  4290. #define more_xpviv()        S_more_xpviv(aTHX)
  4291. #endif
  4292. #ifdef PERL_CORE
  4293. #define more_xpvnv()        S_more_xpvnv(aTHX)
  4294. #endif
  4295. #ifdef PERL_CORE
  4296. #define more_xpvcv()        S_more_xpvcv(aTHX)
  4297. #endif
  4298. #ifdef PERL_CORE
  4299. #define more_xpvav()        S_more_xpvav(aTHX)
  4300. #endif
  4301. #ifdef PERL_CORE
  4302. #define more_xpvhv()        S_more_xpvhv(aTHX)
  4303. #endif
  4304. #ifdef PERL_CORE
  4305. #define more_xpvmg()        S_more_xpvmg(aTHX)
  4306. #endif
  4307. #ifdef PERL_CORE
  4308. #define more_xpvlv()        S_more_xpvlv(aTHX)
  4309. #endif
  4310. #ifdef PERL_CORE
  4311. #define more_xpvbm()        S_more_xpvbm(aTHX)
  4312. #endif
  4313. #ifdef PERL_CORE
  4314. #define more_xrv()        S_more_xrv(aTHX)
  4315. #endif
  4316. #ifdef PERL_CORE
  4317. #define new_xiv()        S_new_xiv(aTHX)
  4318. #endif
  4319. #ifdef PERL_CORE
  4320. #define new_xnv()        S_new_xnv(aTHX)
  4321. #endif
  4322. #ifdef PERL_CORE
  4323. #define new_xpv()        S_new_xpv(aTHX)
  4324. #endif
  4325. #ifdef PERL_CORE
  4326. #define new_xpviv()        S_new_xpviv(aTHX)
  4327. #endif
  4328. #ifdef PERL_CORE
  4329. #define new_xpvnv()        S_new_xpvnv(aTHX)
  4330. #endif
  4331. #ifdef PERL_CORE
  4332. #define new_xpvcv()        S_new_xpvcv(aTHX)
  4333. #endif
  4334. #ifdef PERL_CORE
  4335. #define new_xpvav()        S_new_xpvav(aTHX)
  4336. #endif
  4337. #ifdef PERL_CORE
  4338. #define new_xpvhv()        S_new_xpvhv(aTHX)
  4339. #endif
  4340. #ifdef PERL_CORE
  4341. #define new_xpvmg()        S_new_xpvmg(aTHX)
  4342. #endif
  4343. #ifdef PERL_CORE
  4344. #define new_xpvlv()        S_new_xpvlv(aTHX)
  4345. #endif
  4346. #ifdef PERL_CORE
  4347. #define new_xpvbm()        S_new_xpvbm(aTHX)
  4348. #endif
  4349. #ifdef PERL_CORE
  4350. #define new_xrv()        S_new_xrv(aTHX)
  4351. #endif
  4352. #ifdef PERL_CORE
  4353. #define del_xiv(a)        S_del_xiv(aTHX_ a)
  4354. #endif
  4355. #ifdef PERL_CORE
  4356. #define del_xnv(a)        S_del_xnv(aTHX_ a)
  4357. #endif
  4358. #ifdef PERL_CORE
  4359. #define del_xpv(a)        S_del_xpv(aTHX_ a)
  4360. #endif
  4361. #ifdef PERL_CORE
  4362. #define del_xpviv(a)        S_del_xpviv(aTHX_ a)
  4363. #endif
  4364. #ifdef PERL_CORE
  4365. #define del_xpvnv(a)        S_del_xpvnv(aTHX_ a)
  4366. #endif
  4367. #ifdef PERL_CORE
  4368. #define del_xpvcv(a)        S_del_xpvcv(aTHX_ a)
  4369. #endif
  4370. #ifdef PERL_CORE
  4371. #define del_xpvav(a)        S_del_xpvav(aTHX_ a)
  4372. #endif
  4373. #ifdef PERL_CORE
  4374. #define del_xpvhv(a)        S_del_xpvhv(aTHX_ a)
  4375. #endif
  4376. #ifdef PERL_CORE
  4377. #define del_xpvmg(a)        S_del_xpvmg(aTHX_ a)
  4378. #endif
  4379. #ifdef PERL_CORE
  4380. #define del_xpvlv(a)        S_del_xpvlv(aTHX_ a)
  4381. #endif
  4382. #ifdef PERL_CORE
  4383. #define del_xpvbm(a)        S_del_xpvbm(aTHX_ a)
  4384. #endif
  4385. #ifdef PERL_CORE
  4386. #define del_xrv(a)        S_del_xrv(aTHX_ a)
  4387. #endif
  4388. #ifdef PERL_CORE
  4389. #define sv_unglob(a)        S_sv_unglob(aTHX_ a)
  4390. #endif
  4391. #ifdef PERL_CORE
  4392. #define not_a_number(a)        S_not_a_number(aTHX_ a)
  4393. #endif
  4394. #ifdef PERL_CORE
  4395. #define visit(a)        S_visit(aTHX_ a)
  4396. #endif
  4397. #ifdef PERL_CORE
  4398. #define sv_add_backref(a,b)    S_sv_add_backref(aTHX_ a,b)
  4399. #endif
  4400. #ifdef PERL_CORE
  4401. #define sv_del_backref(a)    S_sv_del_backref(aTHX_ a)
  4402. #endif
  4403. #  ifdef DEBUGGING
  4404. #ifdef PERL_CORE
  4405. #define del_sv(a)        S_del_sv(aTHX_ a)
  4406. #endif
  4407. #  endif
  4408. #  if !defined(NV_PRESERVES_UV)
  4409. #ifdef PERL_CORE
  4410. #define sv_2iuv_non_preserve(a,b)    S_sv_2iuv_non_preserve(aTHX_ a,b)
  4411. #endif
  4412. #  endif
  4413. #ifdef PERL_CORE
  4414. #define expect_number(a)    S_expect_number(aTHX_ a)
  4415. #endif
  4416. #  if defined(USE_ITHREADS)
  4417. #ifdef PERL_CORE
  4418. #define gv_share(a,b)        S_gv_share(aTHX_ a,b)
  4419. #endif
  4420. #  endif
  4421. #ifdef PERL_CORE
  4422. #define utf8_mg_pos(a,b,c,d,e,f,g,h,i)    S_utf8_mg_pos(aTHX_ a,b,c,d,e,f,g,h,i)
  4423. #endif
  4424. #ifdef PERL_CORE
  4425. #define utf8_mg_pos_init(a,b,c,d,e,f,g)    S_utf8_mg_pos_init(aTHX_ a,b,c,d,e,f,g)
  4426. #endif
  4427. #endif
  4428. #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
  4429. #ifdef PERL_CORE
  4430. #define check_uni()        S_check_uni(aTHX)
  4431. #endif
  4432. #ifdef PERL_CORE
  4433. #define force_next(a)        S_force_next(aTHX_ a)
  4434. #endif
  4435. #ifdef PERL_CORE
  4436. #define force_version(a,b)    S_force_version(aTHX_ a,b)
  4437. #endif
  4438. #ifdef PERL_CORE
  4439. #define force_word(a,b,c,d,e)    S_force_word(aTHX_ a,b,c,d,e)
  4440. #endif
  4441. #ifdef PERL_CORE
  4442. #define tokeq(a)        S_tokeq(aTHX_ a)
  4443. #endif
  4444. #ifdef PERL_CORE
  4445. #define pending_ident()        S_pending_ident(aTHX)
  4446. #endif
  4447. #ifdef PERL_CORE
  4448. #define scan_const(a)        S_scan_const(aTHX_ a)
  4449. #endif
  4450. #ifdef PERL_CORE
  4451. #define scan_formline(a)    S_scan_formline(aTHX_ a)
  4452. #endif
  4453. #ifdef PERL_CORE
  4454. #define scan_heredoc(a)        S_scan_heredoc(aTHX_ a)
  4455. #endif
  4456. #ifdef PERL_CORE
  4457. #define scan_ident(a,b,c,d,e)    S_scan_ident(aTHX_ a,b,c,d,e)
  4458. #endif
  4459. #ifdef PERL_CORE
  4460. #define scan_inputsymbol(a)    S_scan_inputsymbol(aTHX_ a)
  4461. #endif
  4462. #ifdef PERL_CORE
  4463. #define scan_pat(a,b)        S_scan_pat(aTHX_ a,b)
  4464. #endif
  4465. #ifdef PERL_CORE
  4466. #define scan_str(a,b,c)        S_scan_str(aTHX_ a,b,c)
  4467. #endif
  4468. #ifdef PERL_CORE
  4469. #define scan_subst(a)        S_scan_subst(aTHX_ a)
  4470. #endif
  4471. #ifdef PERL_CORE
  4472. #define scan_trans(a)        S_scan_trans(aTHX_ a)
  4473. #endif
  4474. #ifdef PERL_CORE
  4475. #define scan_word(a,b,c,d,e)    S_scan_word(aTHX_ a,b,c,d,e)
  4476. #endif
  4477. #ifdef PERL_CORE
  4478. #define skipspace(a)        S_skipspace(aTHX_ a)
  4479. #endif
  4480. #ifdef PERL_CORE
  4481. #define swallow_bom(a)        S_swallow_bom(aTHX_ a)
  4482. #endif
  4483. #ifdef PERL_CORE
  4484. #define checkcomma(a,b,c)    S_checkcomma(aTHX_ a,b,c)
  4485. #endif
  4486. #ifdef PERL_CORE
  4487. #define force_ident(a,b)    S_force_ident(aTHX_ a,b)
  4488. #endif
  4489. #ifdef PERL_CORE
  4490. #define incline(a)        S_incline(aTHX_ a)
  4491. #endif
  4492. #ifdef PERL_CORE
  4493. #define intuit_method(a,b)    S_intuit_method(aTHX_ a,b)
  4494. #endif
  4495. #ifdef PERL_CORE
  4496. #define intuit_more(a)        S_intuit_more(aTHX_ a)
  4497. #endif
  4498. #ifdef PERL_CORE
  4499. #define lop(a,b,c)        S_lop(aTHX_ a,b,c)
  4500. #endif
  4501. #ifdef PERL_CORE
  4502. #define missingterm(a)        S_missingterm(aTHX_ a)
  4503. #endif
  4504. #ifdef PERL_CORE
  4505. #define no_op(a,b)        S_no_op(aTHX_ a,b)
  4506. #endif
  4507. #ifdef PERL_CORE
  4508. #define set_csh()        S_set_csh(aTHX)
  4509. #endif
  4510. #ifdef PERL_CORE
  4511. #define sublex_done()        S_sublex_done(aTHX)
  4512. #endif
  4513. #ifdef PERL_CORE
  4514. #define sublex_push()        S_sublex_push(aTHX)
  4515. #endif
  4516. #ifdef PERL_CORE
  4517. #define sublex_start()        S_sublex_start(aTHX)
  4518. #endif
  4519. #ifdef PERL_CORE
  4520. #define filter_gets(a,b,c)    S_filter_gets(aTHX_ a,b,c)
  4521. #endif
  4522. #ifdef PERL_CORE
  4523. #define find_in_my_stash(a,b)    S_find_in_my_stash(aTHX_ a,b)
  4524. #endif
  4525. #ifdef PERL_CORE
  4526. #define new_constant(a,b,c,d,e,f)    S_new_constant(aTHX_ a,b,c,d,e,f)
  4527. #endif
  4528. #  if defined(DEBUGGING)
  4529. #ifdef PERL_CORE
  4530. #define tokereport(a,b,c)    S_tokereport(aTHX_ a,b,c)
  4531. #endif
  4532. #  endif
  4533. #ifdef PERL_CORE
  4534. #define ao(a)            S_ao(aTHX_ a)
  4535. #endif
  4536. #ifdef PERL_CORE
  4537. #define depcom()        S_depcom(aTHX)
  4538. #endif
  4539. #ifdef PERL_CORE
  4540. #define incl_perldb()        S_incl_perldb(aTHX)
  4541. #endif
  4542. #if 0
  4543. #ifdef PERL_CORE
  4544. #define utf16_textfilter(a,b,c)    S_utf16_textfilter(aTHX_ a,b,c)
  4545. #endif
  4546. #ifdef PERL_CORE
  4547. #define utf16rev_textfilter(a,b,c)    S_utf16rev_textfilter(aTHX_ a,b,c)
  4548. #endif
  4549. #endif
  4550. #  if defined(PERL_CR_FILTER)
  4551. #ifdef PERL_CORE
  4552. #define cr_textfilter(a,b,c)    S_cr_textfilter(aTHX_ a,b,c)
  4553. #endif
  4554. #  endif
  4555. #endif
  4556. #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
  4557. #ifdef PERL_CORE
  4558. #define isa_lookup(a,b,c,d,e)    S_isa_lookup(aTHX_ a,b,c,d,e)
  4559. #endif
  4560. #endif
  4561. #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
  4562. #ifdef PERL_CORE
  4563. #define stdize_locale(a)    S_stdize_locale(aTHX_ a)
  4564. #endif
  4565. #endif
  4566. #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
  4567. #ifdef PERL_CORE
  4568. #define closest_cop(a,b)    S_closest_cop(aTHX_ a,b)
  4569. #endif
  4570. #ifdef PERL_CORE
  4571. #define mess_alloc()        S_mess_alloc(aTHX)
  4572. #endif
  4573. #endif
  4574. #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
  4575. #ifdef PERL_CORE
  4576. #define mulexp10        S_mulexp10
  4577. #endif
  4578. #endif
  4579. #define sv_setsv_flags(a,b,c)    Perl_sv_setsv_flags(aTHX_ a,b,c)
  4580. #define sv_catpvn_flags(a,b,c,d)    Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
  4581. #define sv_catsv_flags(a,b,c)    Perl_sv_catsv_flags(aTHX_ a,b,c)
  4582. #define sv_utf8_upgrade_flags(a,b)    Perl_sv_utf8_upgrade_flags(aTHX_ a,b)
  4583. #define sv_pvn_force_flags(a,b,c)    Perl_sv_pvn_force_flags(aTHX_ a,b,c)
  4584. #define sv_2pv_flags(a,b,c)    Perl_sv_2pv_flags(aTHX_ a,b,c)
  4585. #define sv_copypv(a,b)        Perl_sv_copypv(aTHX_ a,b)
  4586. #define my_atof2(a,b)        Perl_my_atof2(aTHX_ a,b)
  4587. #define my_socketpair        Perl_my_socketpair
  4588. #if defined(USE_PERLIO) && !defined(USE_SFIO)
  4589. #define PerlIO_close(a)        Perl_PerlIO_close(aTHX_ a)
  4590. #define PerlIO_fill(a)        Perl_PerlIO_fill(aTHX_ a)
  4591. #define PerlIO_fileno(a)    Perl_PerlIO_fileno(aTHX_ a)
  4592. #define PerlIO_eof(a)        Perl_PerlIO_eof(aTHX_ a)
  4593. #define PerlIO_error(a)        Perl_PerlIO_error(aTHX_ a)
  4594. #define PerlIO_flush(a)        Perl_PerlIO_flush(aTHX_ a)
  4595. #define PerlIO_clearerr(a)    Perl_PerlIO_clearerr(aTHX_ a)
  4596. #define PerlIO_set_cnt(a,b)    Perl_PerlIO_set_cnt(aTHX_ a,b)
  4597. #define PerlIO_set_ptrcnt(a,b,c)    Perl_PerlIO_set_ptrcnt(aTHX_ a,b,c)
  4598. #define PerlIO_setlinebuf(a)    Perl_PerlIO_setlinebuf(aTHX_ a)
  4599. #define PerlIO_read(a,b,c)    Perl_PerlIO_read(aTHX_ a,b,c)
  4600. #define PerlIO_write(a,b,c)    Perl_PerlIO_write(aTHX_ a,b,c)
  4601. #define PerlIO_unread(a,b,c)    Perl_PerlIO_unread(aTHX_ a,b,c)
  4602. #define PerlIO_tell(a)        Perl_PerlIO_tell(aTHX_ a)
  4603. #define PerlIO_seek(a,b,c)    Perl_PerlIO_seek(aTHX_ a,b,c)
  4604. #define PerlIO_get_base(a)    Perl_PerlIO_get_base(aTHX_ a)
  4605. #define PerlIO_get_ptr(a)    Perl_PerlIO_get_ptr(aTHX_ a)
  4606. #define PerlIO_get_bufsiz(a)    Perl_PerlIO_get_bufsiz(aTHX_ a)
  4607. #define PerlIO_get_cnt(a)    Perl_PerlIO_get_cnt(aTHX_ a)
  4608. #define PerlIO_stdin()        Perl_PerlIO_stdin(aTHX)
  4609. #define PerlIO_stdout()        Perl_PerlIO_stdout(aTHX)
  4610. #define PerlIO_stderr()        Perl_PerlIO_stderr(aTHX)
  4611. #endif /* PERLIO_LAYERS */
  4612. #ifdef PERL_CORE
  4613. #define deb_stack_all()        Perl_deb_stack_all(aTHX)
  4614. #endif
  4615. #ifdef PERL_IN_DEB_C
  4616. #ifdef PERL_CORE
  4617. #define deb_stack_n(a,b,c,d,e)    S_deb_stack_n(aTHX_ a,b,c,d,e)
  4618. #endif
  4619. #endif
  4620. #ifdef PERL_CORE
  4621. #define pad_new(a)        Perl_pad_new(aTHX_ a)
  4622. #endif
  4623. #ifdef PERL_CORE
  4624. #define pad_undef(a)        Perl_pad_undef(aTHX_ a)
  4625. #endif
  4626. #ifdef PERL_CORE
  4627. #define pad_add_name(a,b,c,d)    Perl_pad_add_name(aTHX_ a,b,c,d)
  4628. #endif
  4629. #ifdef PERL_CORE
  4630. #define pad_add_anon(a,b)    Perl_pad_add_anon(aTHX_ a,b)
  4631. #endif
  4632. #ifdef PERL_CORE
  4633. #define pad_check_dup(a,b,c)    Perl_pad_check_dup(aTHX_ a,b,c)
  4634. #endif
  4635. #ifdef DEBUGGING
  4636. #ifdef PERL_CORE
  4637. #define pad_setsv(a,b)        Perl_pad_setsv(aTHX_ a,b)
  4638. #endif
  4639. #endif
  4640. #ifdef PERL_CORE
  4641. #define pad_block_start(a)    Perl_pad_block_start(aTHX_ a)
  4642. #endif
  4643. #ifdef PERL_CORE
  4644. #define pad_tidy(a)        Perl_pad_tidy(aTHX_ a)
  4645. #endif
  4646. #ifdef PERL_CORE
  4647. #define do_dump_pad(a,b,c,d)    Perl_do_dump_pad(aTHX_ a,b,c,d)
  4648. #endif
  4649. #ifdef PERL_CORE
  4650. #define pad_fixup_inner_anons(a,b,c)    Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
  4651. #endif
  4652. #ifdef PERL_CORE
  4653. #define pad_push(a,b,c)        Perl_pad_push(aTHX_ a,b,c)
  4654. #endif
  4655. #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
  4656. #ifdef PERL_CORE
  4657. #define pad_findlex(a,b,c)    S_pad_findlex(aTHX_ a,b,c)
  4658. #endif
  4659. #  if defined(DEBUGGING)
  4660. #ifdef PERL_CORE
  4661. #define cv_dump(a,b)        S_cv_dump(aTHX_ a,b)
  4662. #endif
  4663. #  endif
  4664. #ifdef PERL_CORE
  4665. #define cv_clone2(a,b)        S_cv_clone2(aTHX_ a,b)
  4666. #endif
  4667. #endif
  4668. #ifdef PERL_CORE
  4669. #define find_runcv(a)        Perl_find_runcv(aTHX_ a)
  4670. #endif
  4671. #ifdef PERL_CORE
  4672. #define free_tied_hv_pool()    Perl_free_tied_hv_pool(aTHX)
  4673. #endif
  4674. #if defined(DEBUGGING)
  4675. #ifdef PERL_CORE
  4676. #define get_debug_opts(a)    Perl_get_debug_opts(aTHX_ a)
  4677. #endif
  4678. #endif
  4679. #define ck_anoncode(a)        Perl_ck_anoncode(aTHX_ a)
  4680. #define ck_bitop(a)        Perl_ck_bitop(aTHX_ a)
  4681. #define ck_concat(a)        Perl_ck_concat(aTHX_ a)
  4682. #define ck_defined(a)        Perl_ck_defined(aTHX_ a)
  4683. #define ck_delete(a)        Perl_ck_delete(aTHX_ a)
  4684. #define ck_die(a)        Perl_ck_die(aTHX_ a)
  4685. #define ck_eof(a)        Perl_ck_eof(aTHX_ a)
  4686. #define ck_eval(a)        Perl_ck_eval(aTHX_ a)
  4687. #define ck_exec(a)        Perl_ck_exec(aTHX_ a)
  4688. #define ck_exists(a)        Perl_ck_exists(aTHX_ a)
  4689. #define ck_exit(a)        Perl_ck_exit(aTHX_ a)
  4690. #define ck_ftst(a)        Perl_ck_ftst(aTHX_ a)
  4691. #define ck_fun(a)        Perl_ck_fun(aTHX_ a)
  4692. #define ck_glob(a)        Perl_ck_glob(aTHX_ a)
  4693. #define ck_grep(a)        Perl_ck_grep(aTHX_ a)
  4694. #define ck_index(a)        Perl_ck_index(aTHX_ a)
  4695. #define ck_join(a)        Perl_ck_join(aTHX_ a)
  4696. #define ck_lengthconst(a)    Perl_ck_lengthconst(aTHX_ a)
  4697. #define ck_lfun(a)        Perl_ck_lfun(aTHX_ a)
  4698. #define ck_listiob(a)        Perl_ck_listiob(aTHX_ a)
  4699. #define ck_match(a)        Perl_ck_match(aTHX_ a)
  4700. #define ck_method(a)        Perl_ck_method(aTHX_ a)
  4701. #define ck_null(a)        Perl_ck_null(aTHX_ a)
  4702. #define ck_open(a)        Perl_ck_open(aTHX_ a)
  4703. #define ck_repeat(a)        Perl_ck_repeat(aTHX_ a)
  4704. #define ck_require(a)        Perl_ck_require(aTHX_ a)
  4705. #define ck_return(a)        Perl_ck_return(aTHX_ a)
  4706. #define ck_rfun(a)        Perl_ck_rfun(aTHX_ a)
  4707. #define ck_rvconst(a)        Perl_ck_rvconst(aTHX_ a)
  4708. #define ck_sassign(a)        Perl_ck_sassign(aTHX_ a)
  4709. #define ck_select(a)        Perl_ck_select(aTHX_ a)
  4710. #define ck_shift(a)        Perl_ck_shift(aTHX_ a)
  4711. #define ck_sort(a)        Perl_ck_sort(aTHX_ a)
  4712. #define ck_spair(a)        Perl_ck_spair(aTHX_ a)
  4713. #define ck_split(a)        Perl_ck_split(aTHX_ a)
  4714. #define ck_subr(a)        Perl_ck_subr(aTHX_ a)
  4715. #define ck_substr(a)        Perl_ck_substr(aTHX_ a)
  4716. #define ck_svconst(a)        Perl_ck_svconst(aTHX_ a)
  4717. #define ck_trunc(a)        Perl_ck_trunc(aTHX_ a)
  4718. #define pp_aassign()        Perl_pp_aassign(aTHX)
  4719. #define pp_abs()        Perl_pp_abs(aTHX)
  4720. #define pp_accept()        Perl_pp_accept(aTHX)
  4721. #define pp_add()        Perl_pp_add(aTHX)
  4722. #define pp_aelem()        Perl_pp_aelem(aTHX)
  4723. #define pp_aelemfast()        Perl_pp_aelemfast(aTHX)
  4724. #define pp_alarm()        Perl_pp_alarm(aTHX)
  4725. #define pp_and()        Perl_pp_and(aTHX)
  4726. #define pp_andassign()        Perl_pp_andassign(aTHX)
  4727. #define pp_anoncode()        Perl_pp_anoncode(aTHX)
  4728. #define pp_anonhash()        Perl_pp_anonhash(aTHX)
  4729. #define pp_anonlist()        Perl_pp_anonlist(aTHX)
  4730. #define pp_aslice()        Perl_pp_aslice(aTHX)
  4731. #define pp_atan2()        Perl_pp_atan2(aTHX)
  4732. #define pp_av2arylen()        Perl_pp_av2arylen(aTHX)
  4733. #define pp_backtick()        Perl_pp_backtick(aTHX)
  4734. #define pp_bind()        Perl_pp_bind(aTHX)
  4735. #define pp_binmode()        Perl_pp_binmode(aTHX)
  4736. #define pp_bit_and()        Perl_pp_bit_and(aTHX)
  4737. #define pp_bit_or()        Perl_pp_bit_or(aTHX)
  4738. #define pp_bit_xor()        Perl_pp_bit_xor(aTHX)
  4739. #define pp_bless()        Perl_pp_bless(aTHX)
  4740. #define pp_caller()        Perl_pp_caller(aTHX)
  4741. #define pp_chdir()        Perl_pp_chdir(aTHX)
  4742. #define pp_chmod()        Perl_pp_chmod(aTHX)
  4743. #define pp_chomp()        Perl_pp_chomp(aTHX)
  4744. #define pp_chop()        Perl_pp_chop(aTHX)
  4745. #define pp_chown()        Perl_pp_chown(aTHX)
  4746. #define pp_chr()        Perl_pp_chr(aTHX)
  4747. #define pp_chroot()        Perl_pp_chroot(aTHX)
  4748. #define pp_close()        Perl_pp_close(aTHX)
  4749. #define pp_closedir()        Perl_pp_closedir(aTHX)
  4750. #define pp_complement()        Perl_pp_complement(aTHX)
  4751. #define pp_concat()        Perl_pp_concat(aTHX)
  4752. #define pp_cond_expr()        Perl_pp_cond_expr(aTHX)
  4753. #define pp_connect()        Perl_pp_connect(aTHX)
  4754. #define pp_const()        Perl_pp_const(aTHX)
  4755. #define pp_cos()        Perl_pp_cos(aTHX)
  4756. #define pp_crypt()        Perl_pp_crypt(aTHX)
  4757. #define pp_dbmclose()        Perl_pp_dbmclose(aTHX)
  4758. #define pp_dbmopen()        Perl_pp_dbmopen(aTHX)
  4759. #define pp_dbstate()        Perl_pp_dbstate(aTHX)
  4760. #define pp_defined()        Perl_pp_defined(aTHX)
  4761. #define pp_delete()        Perl_pp_delete(aTHX)
  4762. #define pp_die()        Perl_pp_die(aTHX)
  4763. #define pp_divide()        Perl_pp_divide(aTHX)
  4764. #define pp_dofile()        Perl_pp_dofile(aTHX)
  4765. #define pp_dump()        Perl_pp_dump(aTHX)
  4766. #define pp_each()        Perl_pp_each(aTHX)
  4767. #define pp_egrent()        Perl_pp_egrent(aTHX)
  4768. #define pp_ehostent()        Perl_pp_ehostent(aTHX)
  4769. #define pp_enetent()        Perl_pp_enetent(aTHX)
  4770. #define pp_enter()        Perl_pp_enter(aTHX)
  4771. #define pp_entereval()        Perl_pp_entereval(aTHX)
  4772. #define pp_enteriter()        Perl_pp_enteriter(aTHX)
  4773. #define pp_enterloop()        Perl_pp_enterloop(aTHX)
  4774. #define pp_entersub()        Perl_pp_entersub(aTHX)
  4775. #define pp_entertry()        Perl_pp_entertry(aTHX)
  4776. #define pp_enterwrite()        Perl_pp_enterwrite(aTHX)
  4777. #define pp_eof()        Perl_pp_eof(aTHX)
  4778. #define pp_eprotoent()        Perl_pp_eprotoent(aTHX)
  4779. #define pp_epwent()        Perl_pp_epwent(aTHX)
  4780. #define pp_eq()            Perl_pp_eq(aTHX)
  4781. #define pp_eservent()        Perl_pp_eservent(aTHX)
  4782. #define pp_exec()        Perl_pp_exec(aTHX)
  4783. #define pp_exists()        Perl_pp_exists(aTHX)
  4784. #define pp_exit()        Perl_pp_exit(aTHX)
  4785. #define pp_exp()        Perl_pp_exp(aTHX)
  4786. #define pp_fcntl()        Perl_pp_fcntl(aTHX)
  4787. #define pp_fileno()        Perl_pp_fileno(aTHX)
  4788. #define pp_flip()        Perl_pp_flip(aTHX)
  4789. #define pp_flock()        Perl_pp_flock(aTHX)
  4790. #define pp_flop()        Perl_pp_flop(aTHX)
  4791. #define pp_fork()        Perl_pp_fork(aTHX)
  4792. #define pp_formline()        Perl_pp_formline(aTHX)
  4793. #define pp_ftatime()        Perl_pp_ftatime(aTHX)
  4794. #define pp_ftbinary()        Perl_pp_ftbinary(aTHX)
  4795. #define pp_ftblk()        Perl_pp_ftblk(aTHX)
  4796. #define pp_ftchr()        Perl_pp_ftchr(aTHX)
  4797. #define pp_ftctime()        Perl_pp_ftctime(aTHX)
  4798. #define pp_ftdir()        Perl_pp_ftdir(aTHX)
  4799. #define pp_fteexec()        Perl_pp_fteexec(aTHX)
  4800. #define pp_fteowned()        Perl_pp_fteowned(aTHX)
  4801. #define pp_fteread()        Perl_pp_fteread(aTHX)
  4802. #define pp_ftewrite()        Perl_pp_ftewrite(aTHX)
  4803. #define pp_ftfile()        Perl_pp_ftfile(aTHX)
  4804. #define pp_ftis()        Perl_pp_ftis(aTHX)
  4805. #define pp_ftlink()        Perl_pp_ftlink(aTHX)
  4806. #define pp_ftmtime()        Perl_pp_ftmtime(aTHX)
  4807. #define pp_ftpipe()        Perl_pp_ftpipe(aTHX)
  4808. #define pp_ftrexec()        Perl_pp_ftrexec(aTHX)
  4809. #define pp_ftrowned()        Perl_pp_ftrowned(aTHX)
  4810. #define pp_ftrread()        Perl_pp_ftrread(aTHX)
  4811. #define pp_ftrwrite()        Perl_pp_ftrwrite(aTHX)
  4812. #define pp_ftsgid()        Perl_pp_ftsgid(aTHX)
  4813. #define pp_ftsize()        Perl_pp_ftsize(aTHX)
  4814. #define pp_ftsock()        Perl_pp_ftsock(aTHX)
  4815. #define pp_ftsuid()        Perl_pp_ftsuid(aTHX)
  4816. #define pp_ftsvtx()        Perl_pp_ftsvtx(aTHX)
  4817. #define pp_fttext()        Perl_pp_fttext(aTHX)
  4818. #define pp_fttty()        Perl_pp_fttty(aTHX)
  4819. #define pp_ftzero()        Perl_pp_ftzero(aTHX)
  4820. #define pp_ge()            Perl_pp_ge(aTHX)
  4821. #define pp_gelem()        Perl_pp_gelem(aTHX)
  4822. #define pp_getc()        Perl_pp_getc(aTHX)
  4823. #define pp_getlogin()        Perl_pp_getlogin(aTHX)
  4824. #define pp_getpeername()    Perl_pp_getpeername(aTHX)
  4825. #define pp_getpgrp()        Perl_pp_getpgrp(aTHX)
  4826. #define pp_getppid()        Perl_pp_getppid(aTHX)
  4827. #define pp_getpriority()    Perl_pp_getpriority(aTHX)
  4828. #define pp_getsockname()    Perl_pp_getsockname(aTHX)
  4829. #define pp_ggrent()        Perl_pp_ggrent(aTHX)
  4830. #define pp_ggrgid()        Perl_pp_ggrgid(aTHX)
  4831. #define pp_ggrnam()        Perl_pp_ggrnam(aTHX)
  4832. #define pp_ghbyaddr()        Perl_pp_ghbyaddr(aTHX)
  4833. #define pp_ghbyname()        Perl_pp_ghbyname(aTHX)
  4834. #define pp_ghostent()        Perl_pp_ghostent(aTHX)
  4835. #define pp_glob()        Perl_pp_glob(aTHX)
  4836. #define pp_gmtime()        Perl_pp_gmtime(aTHX)
  4837. #define pp_gnbyaddr()        Perl_pp_gnbyaddr(aTHX)
  4838. #define pp_gnbyname()        Perl_pp_gnbyname(aTHX)
  4839. #define pp_gnetent()        Perl_pp_gnetent(aTHX)
  4840. #define pp_goto()        Perl_pp_goto(aTHX)
  4841. #define pp_gpbyname()        Perl_pp_gpbyname(aTHX)
  4842. #define pp_gpbynumber()        Perl_pp_gpbynumber(aTHX)
  4843. #define pp_gprotoent()        Perl_pp_gprotoent(aTHX)
  4844. #define pp_gpwent()        Perl_pp_gpwent(aTHX)
  4845. #define pp_gpwnam()        Perl_pp_gpwnam(aTHX)
  4846. #define pp_gpwuid()        Perl_pp_gpwuid(aTHX)
  4847. #define pp_grepstart()        Perl_pp_grepstart(aTHX)
  4848. #define pp_grepwhile()        Perl_pp_grepwhile(aTHX)
  4849. #define pp_gsbyname()        Perl_pp_gsbyname(aTHX)
  4850. #define pp_gsbyport()        Perl_pp_gsbyport(aTHX)
  4851. #define pp_gservent()        Perl_pp_gservent(aTHX)
  4852. #define pp_gsockopt()        Perl_pp_gsockopt(aTHX)
  4853. #define pp_gt()            Perl_pp_gt(aTHX)
  4854. #define pp_gv()            Perl_pp_gv(aTHX)
  4855. #define pp_gvsv()        Perl_pp_gvsv(aTHX)
  4856. #define pp_helem()        Perl_pp_helem(aTHX)
  4857. #define pp_hex()        Perl_pp_hex(aTHX)
  4858. #define pp_hslice()        Perl_pp_hslice(aTHX)
  4859. #define pp_i_add()        Perl_pp_i_add(aTHX)
  4860. #define pp_i_divide()        Perl_pp_i_divide(aTHX)
  4861. #define pp_i_eq()        Perl_pp_i_eq(aTHX)
  4862. #define pp_i_ge()        Perl_pp_i_ge(aTHX)
  4863. #define pp_i_gt()        Perl_pp_i_gt(aTHX)
  4864. #define pp_i_le()        Perl_pp_i_le(aTHX)
  4865. #define pp_i_lt()        Perl_pp_i_lt(aTHX)
  4866. #define pp_i_modulo()        Perl_pp_i_modulo(aTHX)
  4867. #define pp_i_multiply()        Perl_pp_i_multiply(aTHX)
  4868. #define pp_i_ncmp()        Perl_pp_i_ncmp(aTHX)
  4869. #define pp_i_ne()        Perl_pp_i_ne(aTHX)
  4870. #define pp_i_negate()        Perl_pp_i_negate(aTHX)
  4871. #define pp_i_subtract()        Perl_pp_i_subtract(aTHX)
  4872. #define pp_index()        Perl_pp_index(aTHX)
  4873. #define pp_int()        Perl_pp_int(aTHX)
  4874. #define pp_ioctl()        Perl_pp_ioctl(aTHX)
  4875. #define pp_iter()        Perl_pp_iter(aTHX)
  4876. #define pp_join()        Perl_pp_join(aTHX)
  4877. #define pp_keys()        Perl_pp_keys(aTHX)
  4878. #define pp_kill()        Perl_pp_kill(aTHX)
  4879. #define pp_last()        Perl_pp_last(aTHX)
  4880. #define pp_lc()            Perl_pp_lc(aTHX)
  4881. #define pp_lcfirst()        Perl_pp_lcfirst(aTHX)
  4882. #define pp_le()            Perl_pp_le(aTHX)
  4883. #define pp_leave()        Perl_pp_leave(aTHX)
  4884. #define pp_leaveeval()        Perl_pp_leaveeval(aTHX)
  4885. #define pp_leaveloop()        Perl_pp_leaveloop(aTHX)
  4886. #define pp_leavesub()        Perl_pp_leavesub(aTHX)
  4887. #define pp_leavesublv()        Perl_pp_leavesublv(aTHX)
  4888. #define pp_leavetry()        Perl_pp_leavetry(aTHX)
  4889. #define pp_leavewrite()        Perl_pp_leavewrite(aTHX)
  4890. #define pp_left_shift()        Perl_pp_left_shift(aTHX)
  4891. #define pp_length()        Perl_pp_length(aTHX)
  4892. #define pp_lineseq()        Perl_pp_lineseq(aTHX)
  4893. #define pp_link()        Perl_pp_link(aTHX)
  4894. #define pp_list()        Perl_pp_list(aTHX)
  4895. #define pp_listen()        Perl_pp_listen(aTHX)
  4896. #define pp_localtime()        Perl_pp_localtime(aTHX)
  4897. #define pp_lock()        Perl_pp_lock(aTHX)
  4898. #define pp_log()        Perl_pp_log(aTHX)
  4899. #define pp_lslice()        Perl_pp_lslice(aTHX)
  4900. #define pp_lstat()        Perl_pp_lstat(aTHX)
  4901. #define pp_lt()            Perl_pp_lt(aTHX)
  4902. #define pp_mapstart()        Perl_pp_mapstart(aTHX)
  4903. #define pp_mapwhile()        Perl_pp_mapwhile(aTHX)
  4904. #define pp_match()        Perl_pp_match(aTHX)
  4905. #define pp_method()        Perl_pp_method(aTHX)
  4906. #define pp_method_named()    Perl_pp_method_named(aTHX)
  4907. #define pp_mkdir()        Perl_pp_mkdir(aTHX)
  4908. #define pp_modulo()        Perl_pp_modulo(aTHX)
  4909. #define pp_msgctl()        Perl_pp_msgctl(aTHX)
  4910. #define pp_msgget()        Perl_pp_msgget(aTHX)
  4911. #define pp_msgrcv()        Perl_pp_msgrcv(aTHX)
  4912. #define pp_msgsnd()        Perl_pp_msgsnd(aTHX)
  4913. #define pp_multiply()        Perl_pp_multiply(aTHX)
  4914. #define pp_ncmp()        Perl_pp_ncmp(aTHX)
  4915. #define pp_ne()            Perl_pp_ne(aTHX)
  4916. #define pp_negate()        Perl_pp_negate(aTHX)
  4917. #define pp_next()        Perl_pp_next(aTHX)
  4918. #define pp_nextstate()        Perl_pp_nextstate(aTHX)
  4919. #define pp_not()        Perl_pp_not(aTHX)
  4920. #define pp_null()        Perl_pp_null(aTHX)
  4921. #define pp_oct()        Perl_pp_oct(aTHX)
  4922. #define pp_open()        Perl_pp_open(aTHX)
  4923. #define pp_open_dir()        Perl_pp_open_dir(aTHX)
  4924. #define pp_or()            Perl_pp_or(aTHX)
  4925. #define pp_orassign()        Perl_pp_orassign(aTHX)
  4926. #define pp_ord()        Perl_pp_ord(aTHX)
  4927. #define pp_pack()        Perl_pp_pack(aTHX)
  4928. #define pp_padany()        Perl_pp_padany(aTHX)
  4929. #define pp_padav()        Perl_pp_padav(aTHX)
  4930. #define pp_padhv()        Perl_pp_padhv(aTHX)
  4931. #define pp_padsv()        Perl_pp_padsv(aTHX)
  4932. #define pp_pipe_op()        Perl_pp_pipe_op(aTHX)
  4933. #define pp_pop()        Perl_pp_pop(aTHX)
  4934. #define pp_pos()        Perl_pp_pos(aTHX)
  4935. #define pp_postdec()        Perl_pp_postdec(aTHX)
  4936. #define pp_postinc()        Perl_pp_postinc(aTHX)
  4937. #define pp_pow()        Perl_pp_pow(aTHX)
  4938. #define pp_predec()        Perl_pp_predec(aTHX)
  4939. #define pp_preinc()        Perl_pp_preinc(aTHX)
  4940. #define pp_print()        Perl_pp_print(aTHX)
  4941. #define pp_prototype()        Perl_pp_prototype(aTHX)
  4942. #define pp_prtf()        Perl_pp_prtf(aTHX)
  4943. #define pp_push()        Perl_pp_push(aTHX)
  4944. #define pp_pushmark()        Perl_pp_pushmark(aTHX)
  4945. #define pp_pushre()        Perl_pp_pushre(aTHX)
  4946. #define pp_qr()            Perl_pp_qr(aTHX)
  4947. #define pp_quotemeta()        Perl_pp_quotemeta(aTHX)
  4948. #define pp_rand()        Perl_pp_rand(aTHX)
  4949. #define pp_range()        Perl_pp_range(aTHX)
  4950. #define pp_rcatline()        Perl_pp_rcatline(aTHX)
  4951. #define pp_read()        Perl_pp_read(aTHX)
  4952. #define pp_readdir()        Perl_pp_readdir(aTHX)
  4953. #define pp_readline()        Perl_pp_readline(aTHX)
  4954. #define pp_readlink()        Perl_pp_readlink(aTHX)
  4955. #define pp_recv()        Perl_pp_recv(aTHX)
  4956. #define pp_redo()        Perl_pp_redo(aTHX)
  4957. #define pp_ref()        Perl_pp_ref(aTHX)
  4958. #define pp_refgen()        Perl_pp_refgen(aTHX)
  4959. #define pp_regcmaybe()        Perl_pp_regcmaybe(aTHX)
  4960. #define pp_regcomp()        Perl_pp_regcomp(aTHX)
  4961. #define pp_regcreset()        Perl_pp_regcreset(aTHX)
  4962. #define pp_rename()        Perl_pp_rename(aTHX)
  4963. #define pp_repeat()        Perl_pp_repeat(aTHX)
  4964. #define pp_require()        Perl_pp_require(aTHX)
  4965. #define pp_reset()        Perl_pp_reset(aTHX)
  4966. #define pp_return()        Perl_pp_return(aTHX)
  4967. #define pp_reverse()        Perl_pp_reverse(aTHX)
  4968. #define pp_rewinddir()        Perl_pp_rewinddir(aTHX)
  4969. #define pp_right_shift()    Perl_pp_right_shift(aTHX)
  4970. #define pp_rindex()        Perl_pp_rindex(aTHX)
  4971. #define pp_rmdir()        Perl_pp_rmdir(aTHX)
  4972. #define pp_rv2av()        Perl_pp_rv2av(aTHX)
  4973. #define pp_rv2cv()        Perl_pp_rv2cv(aTHX)
  4974. #define pp_rv2gv()        Perl_pp_rv2gv(aTHX)
  4975. #define pp_rv2hv()        Perl_pp_rv2hv(aTHX)
  4976. #define pp_rv2sv()        Perl_pp_rv2sv(aTHX)
  4977. #define pp_sassign()        Perl_pp_sassign(aTHX)
  4978. #define pp_scalar()        Perl_pp_scalar(aTHX)
  4979. #define pp_schomp()        Perl_pp_schomp(aTHX)
  4980. #define pp_schop()        Perl_pp_schop(aTHX)
  4981. #define pp_scmp()        Perl_pp_scmp(aTHX)
  4982. #define pp_scope()        Perl_pp_scope(aTHX)
  4983. #define pp_seek()        Perl_pp_seek(aTHX)
  4984. #define pp_seekdir()        Perl_pp_seekdir(aTHX)
  4985. #define pp_select()        Perl_pp_select(aTHX)
  4986. #define pp_semctl()        Perl_pp_semctl(aTHX)
  4987. #define pp_semget()        Perl_pp_semget(aTHX)
  4988. #define pp_semop()        Perl_pp_semop(aTHX)
  4989. #define pp_send()        Perl_pp_send(aTHX)
  4990. #define pp_seq()        Perl_pp_seq(aTHX)
  4991. #define pp_setpgrp()        Perl_pp_setpgrp(aTHX)
  4992. #define pp_setpriority()    Perl_pp_setpriority(aTHX)
  4993. #define pp_setstate()        Perl_pp_setstate(aTHX)
  4994. #define pp_sge()        Perl_pp_sge(aTHX)
  4995. #define pp_sgrent()        Perl_pp_sgrent(aTHX)
  4996. #define pp_sgt()        Perl_pp_sgt(aTHX)
  4997. #define pp_shift()        Perl_pp_shift(aTHX)
  4998. #define pp_shmctl()        Perl_pp_shmctl(aTHX)
  4999. #define pp_shmget()        Perl_pp_shmget(aTHX)
  5000. #define pp_shmread()        Perl_pp_shmread(aTHX)
  5001. #define pp_shmwrite()        Perl_pp_shmwrite(aTHX)
  5002. #define pp_shostent()        Perl_pp_shostent(aTHX)
  5003. #define pp_shutdown()        Perl_pp_shutdown(aTHX)
  5004. #define pp_sin()        Perl_pp_sin(aTHX)
  5005. #define pp_sle()        Perl_pp_sle(aTHX)
  5006. #define pp_sleep()        Perl_pp_sleep(aTHX)
  5007. #define pp_slt()        Perl_pp_slt(aTHX)
  5008. #define pp_sne()        Perl_pp_sne(aTHX)
  5009. #define pp_snetent()        Perl_pp_snetent(aTHX)
  5010. #define pp_socket()        Perl_pp_socket(aTHX)
  5011. #define pp_sockpair()        Perl_pp_sockpair(aTHX)
  5012. #define pp_sort()        Perl_pp_sort(aTHX)
  5013. #define pp_splice()        Perl_pp_splice(aTHX)
  5014. #define pp_split()        Perl_pp_split(aTHX)
  5015. #define pp_sprintf()        Perl_pp_sprintf(aTHX)
  5016. #define pp_sprotoent()        Perl_pp_sprotoent(aTHX)
  5017. #define pp_spwent()        Perl_pp_spwent(aTHX)
  5018. #define pp_sqrt()        Perl_pp_sqrt(aTHX)
  5019. #define pp_srand()        Perl_pp_srand(aTHX)
  5020. #define pp_srefgen()        Perl_pp_srefgen(aTHX)
  5021. #define pp_sselect()        Perl_pp_sselect(aTHX)
  5022. #define pp_sservent()        Perl_pp_sservent(aTHX)
  5023. #define pp_ssockopt()        Perl_pp_ssockopt(aTHX)
  5024. #define pp_stat()        Perl_pp_stat(aTHX)
  5025. #define pp_stringify()        Perl_pp_stringify(aTHX)
  5026. #define pp_stub()        Perl_pp_stub(aTHX)
  5027. #define pp_study()        Perl_pp_study(aTHX)
  5028. #define pp_subst()        Perl_pp_subst(aTHX)
  5029. #define pp_substcont()        Perl_pp_substcont(aTHX)
  5030. #define pp_substr()        Perl_pp_substr(aTHX)
  5031. #define pp_subtract()        Perl_pp_subtract(aTHX)
  5032. #define pp_symlink()        Perl_pp_symlink(aTHX)
  5033. #define pp_syscall()        Perl_pp_syscall(aTHX)
  5034. #define pp_sysopen()        Perl_pp_sysopen(aTHX)
  5035. #define pp_sysread()        Perl_pp_sysread(aTHX)
  5036. #define pp_sysseek()        Perl_pp_sysseek(aTHX)
  5037. #define pp_system()        Perl_pp_system(aTHX)
  5038. #define pp_syswrite()        Perl_pp_syswrite(aTHX)
  5039. #define pp_tell()        Perl_pp_tell(aTHX)
  5040. #define pp_telldir()        Perl_pp_telldir(aTHX)
  5041. #define pp_threadsv()        Perl_pp_threadsv(aTHX)
  5042. #define pp_tie()        Perl_pp_tie(aTHX)
  5043. #define pp_tied()        Perl_pp_tied(aTHX)
  5044. #define pp_time()        Perl_pp_time(aTHX)
  5045. #define pp_tms()        Perl_pp_tms(aTHX)
  5046. #define pp_trans()        Perl_pp_trans(aTHX)
  5047. #define pp_truncate()        Perl_pp_truncate(aTHX)
  5048. #define pp_uc()            Perl_pp_uc(aTHX)
  5049. #define pp_ucfirst()        Perl_pp_ucfirst(aTHX)
  5050. #define pp_umask()        Perl_pp_umask(aTHX)
  5051. #define pp_undef()        Perl_pp_undef(aTHX)
  5052. #define pp_unlink()        Perl_pp_unlink(aTHX)
  5053. #define pp_unpack()        Perl_pp_unpack(aTHX)
  5054. #define pp_unshift()        Perl_pp_unshift(aTHX)
  5055. #define pp_unstack()        Perl_pp_unstack(aTHX)
  5056. #define pp_untie()        Perl_pp_untie(aTHX)
  5057. #define pp_utime()        Perl_pp_utime(aTHX)
  5058. #define pp_values()        Perl_pp_values(aTHX)
  5059. #define pp_vec()        Perl_pp_vec(aTHX)
  5060. #define pp_wait()        Perl_pp_wait(aTHX)
  5061. #define pp_waitpid()        Perl_pp_waitpid(aTHX)
  5062. #define pp_wantarray()        Perl_pp_wantarray(aTHX)
  5063. #define pp_warn()        Perl_pp_warn(aTHX)
  5064. #define pp_xor()        Perl_pp_xor(aTHX)
  5065.  
  5066. #endif    /* PERL_IMPLICIT_CONTEXT */
  5067.  
  5068. #endif    /* #ifndef PERL_NO_SHORT_NAMES */
  5069.  
  5070.  
  5071. /* Compatibility stubs.  Compile extensions with -DPERL_NOCOMPAT to
  5072.    disable them.
  5073.  */
  5074.  
  5075. #if !defined(PERL_CORE)
  5076. #  define sv_setptrobj(rv,ptr,name)    sv_setref_iv(rv,name,PTR2IV(ptr))
  5077. #  define sv_setptrref(rv,ptr)        sv_setref_iv(rv,Nullch,PTR2IV(ptr))
  5078. #endif
  5079.  
  5080. #if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
  5081.  
  5082. /* Compatibility for various misnamed functions.  All functions
  5083.    in the API that begin with "perl_" (not "Perl_") take an explicit
  5084.    interpreter context pointer.
  5085.    The following are not like that, but since they had a "perl_"
  5086.    prefix in previous versions, we provide compatibility macros.
  5087.  */
  5088. #  define perl_atexit(a,b)        call_atexit(a,b)
  5089. #  define perl_call_argv(a,b,c)        call_argv(a,b,c)
  5090. #  define perl_call_pv(a,b)        call_pv(a,b)
  5091. #  define perl_call_method(a,b)        call_method(a,b)
  5092. #  define perl_call_sv(a,b)        call_sv(a,b)
  5093. #  define perl_eval_sv(a,b)        eval_sv(a,b)
  5094. #  define perl_eval_pv(a,b)        eval_pv(a,b)
  5095. #  define perl_require_pv(a)        require_pv(a)
  5096. #  define perl_get_sv(a,b)        get_sv(a,b)
  5097. #  define perl_get_av(a,b)        get_av(a,b)
  5098. #  define perl_get_hv(a,b)        get_hv(a,b)
  5099. #  define perl_get_cv(a,b)        get_cv(a,b)
  5100. #  define perl_init_i18nl10n(a)        init_i18nl10n(a)
  5101. #  define perl_init_i18nl14n(a)        init_i18nl14n(a)
  5102. #  define perl_new_ctype(a)        new_ctype(a)
  5103. #  define perl_new_collate(a)        new_collate(a)
  5104. #  define perl_new_numeric(a)        new_numeric(a)
  5105.  
  5106. /* varargs functions can't be handled with CPP macros. :-(
  5107.    This provides a set of compatibility functions that don't take
  5108.    an extra argument but grab the context pointer using the macro
  5109.    dTHX.
  5110.  */
  5111. #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES)
  5112. #  define croak                Perl_croak_nocontext
  5113. #  define deb                Perl_deb_nocontext
  5114. #  define die                Perl_die_nocontext
  5115. #  define form                Perl_form_nocontext
  5116. #  define load_module            Perl_load_module_nocontext
  5117. #  define mess                Perl_mess_nocontext
  5118. #  define newSVpvf            Perl_newSVpvf_nocontext
  5119. #  define sv_catpvf            Perl_sv_catpvf_nocontext
  5120. #  define sv_setpvf            Perl_sv_setpvf_nocontext
  5121. #  define warn                Perl_warn_nocontext
  5122. #  define warner            Perl_warner_nocontext
  5123. #  define sv_catpvf_mg            Perl_sv_catpvf_mg_nocontext
  5124. #  define sv_setpvf_mg            Perl_sv_setpvf_mg_nocontext
  5125. #endif
  5126.  
  5127. #endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
  5128.  
  5129. #if !defined(PERL_IMPLICIT_CONTEXT)
  5130. /* undefined symbols, point them back at the usual ones */
  5131. #  define Perl_croak_nocontext        Perl_croak
  5132. #  define Perl_die_nocontext        Perl_die
  5133. #  define Perl_deb_nocontext        Perl_deb
  5134. #  define Perl_form_nocontext        Perl_form
  5135. #  define Perl_load_module_nocontext    Perl_load_module
  5136. #  define Perl_mess_nocontext        Perl_mess
  5137. #  define Perl_newSVpvf_nocontext    Perl_newSVpvf
  5138. #  define Perl_sv_catpvf_nocontext    Perl_sv_catpvf
  5139. #  define Perl_sv_setpvf_nocontext    Perl_sv_setpvf
  5140. #  define Perl_warn_nocontext        Perl_warn
  5141. #  define Perl_warner_nocontext        Perl_warner
  5142. #  define Perl_sv_catpvf_mg_nocontext    Perl_sv_catpvf_mg
  5143. #  define Perl_sv_setpvf_mg_nocontext    Perl_sv_setpvf_mg
  5144. #endif
  5145.  
  5146.