Context Navigation

embed.h @ 20075

Visit:

Revision 20075, 155.4 KB checked in by zacheiss, 21 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r20074, which included commits to RCS files with non-trunk default branches.

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

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: trunk/third/perl/embed.h @ 20075

Download in other formats: