Context Navigation

proto.h @ 20075

Visit:

Revision 20075, 72.5 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.

Rev	Line
[14544]	1	/*
[18449]	2	* proto.h
	3	*
[20074]	4	* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
	5	* 2000, 2001, 2002, 2003, by Larry Wall and others
[18449]	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	*
[14544]	10	* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
[20074]	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.
[14544]	16	*/
	17
	18	START_EXTERN_C
	19
	20	#if defined(PERL_IMPLICIT_SYS)
	21	PERL_CALLCONV PerlInterpreter* perl_alloc_using(struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p);
[10723]	22	#endif
[14544]	23	PERL_CALLCONV PerlInterpreter* perl_alloc(void);
	24	PERL_CALLCONV void perl_construct(PerlInterpreter* interp);
[18449]	25	PERL_CALLCONV int perl_destruct(PerlInterpreter* interp);
[14544]	26	PERL_CALLCONV void perl_free(PerlInterpreter* interp);
	27	PERL_CALLCONV int perl_run(PerlInterpreter* interp);
	28	PERL_CALLCONV int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char argv, char env);
[20074]	29	PERL_CALLCONV bool Perl_doing_taint(int argc, char argv, char env);
[14544]	30	#if defined(USE_ITHREADS)
	31	PERL_CALLCONV PerlInterpreter* perl_clone(PerlInterpreter* interp, UV flags);
	32	# if defined(PERL_IMPLICIT_SYS)
	33	PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter interp, UV flags, struct IPerlMem m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p);
	34	# endif
[10723]	35	#endif
[14544]	36
	37	PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes);
	38	PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size);
	39	PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes);
	40	PERL_CALLCONV Free_t Perl_mfree(Malloc_t where);
[18449]	41	#if defined(MYMALLOC)
[14544]	42	PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p);
[10723]	43	#endif
[14544]	44
	45	PERL_CALLCONV void* Perl_get_context(void);
	46	PERL_CALLCONV void Perl_set_context(void *thx);
	47
	48	END_EXTERN_C
	49
	50	/* functions with flag 'n' should come before here */
	51	START_EXTERN_C
	52	# include "pp_proto.h"
	53	PERL_CALLCONV SV* Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir);
	54	PERL_CALLCONV bool Perl_Gv_AMupdate(pTHX_ HV* stash);
[18449]	55	PERL_CALLCONV CV* Perl_gv_handler(pTHX_ HV* stash, I32 id);
[14544]	56	PERL_CALLCONV OP* Perl_append_elem(pTHX_ I32 optype, OP* head, OP* tail);
	57	PERL_CALLCONV OP* Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last);
	58	PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV mark, SV sp);
[17034]	59	PERL_CALLCONV void Perl_apply_attrs_string(pTHX_ char stashpv, CV cv, char *attrstr, STRLEN len);
[14544]	60	PERL_CALLCONV SV* Perl_avhv_delete_ent(pTHX_ AV ar, SV keysv, I32 flags, U32 hash);
	61	PERL_CALLCONV bool Perl_avhv_exists_ent(pTHX_ AV ar, SV keysv, U32 hash);
	62	PERL_CALLCONV SV** Perl_avhv_fetch_ent(pTHX_ AV ar, SV keysv, I32 lval, U32 hash);
	63	PERL_CALLCONV SV** Perl_avhv_store_ent(pTHX_ AV ar, SV keysv, SV* val, U32 hash);
	64	PERL_CALLCONV HE* Perl_avhv_iternext(pTHX_ AV *ar);
	65	PERL_CALLCONV SV* Perl_avhv_iterval(pTHX_ AV ar, HE entry);
	66	PERL_CALLCONV HV* Perl_avhv_keys(pTHX_ AV *ar);
	67	PERL_CALLCONV void Perl_av_clear(pTHX_ AV* ar);
	68	PERL_CALLCONV SV* Perl_av_delete(pTHX_ AV* ar, I32 key, I32 flags);
	69	PERL_CALLCONV bool Perl_av_exists(pTHX_ AV* ar, I32 key);
	70	PERL_CALLCONV void Perl_av_extend(pTHX_ AV* ar, I32 key);
	71	PERL_CALLCONV AV* Perl_av_fake(pTHX_ I32 size, SV** svp);
	72	PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV* ar, I32 key, I32 lval);
	73	PERL_CALLCONV void Perl_av_fill(pTHX_ AV* ar, I32 fill);
	74	PERL_CALLCONV I32 Perl_av_len(pTHX_ AV* ar);
	75	PERL_CALLCONV AV* Perl_av_make(pTHX_ I32 size, SV** svp);
	76	PERL_CALLCONV SV* Perl_av_pop(pTHX_ AV* ar);
	77	PERL_CALLCONV void Perl_av_push(pTHX_ AV* ar, SV* val);
	78	PERL_CALLCONV void Perl_av_reify(pTHX_ AV* ar);
	79	PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV* ar);
	80	PERL_CALLCONV SV** Perl_av_store(pTHX_ AV* ar, I32 key, SV* val);
	81	PERL_CALLCONV void Perl_av_undef(pTHX_ AV* ar);
	82	PERL_CALLCONV void Perl_av_unshift(pTHX_ AV* ar, I32 num);
	83	PERL_CALLCONV OP* Perl_bind_match(pTHX_ I32 type, OP* left, OP* pat);
	84	PERL_CALLCONV OP* Perl_block_end(pTHX_ I32 floor, OP* seq);
	85	PERL_CALLCONV I32 Perl_block_gimme(pTHX);
	86	PERL_CALLCONV int Perl_block_start(pTHX_ int full);
	87	PERL_CALLCONV void Perl_boot_core_UNIVERSAL(pTHX);
[18449]	88	PERL_CALLCONV void Perl_boot_core_PerlIO(pTHX);
[14544]	89	PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
	90	PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp);
	91	PERL_CALLCONV U32 Perl_cast_ulong(pTHX_ NV f);
	92	PERL_CALLCONV I32 Perl_cast_i32(pTHX_ NV f);
	93	PERL_CALLCONV IV Perl_cast_iv(pTHX_ NV f);
	94	PERL_CALLCONV UV Perl_cast_uv(pTHX_ NV f);
[10723]	95	#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
[14544]	96	PERL_CALLCONV I32 Perl_my_chsize(pTHX_ int fd, Off_t length);
[10723]	97	#endif
[18449]	98	#if defined(USE_5005THREADS)
[14544]	99	PERL_CALLCONV MAGIC* Perl_condpair_magic(pTHX_ SV *sv);
[10723]	100	#endif
[14544]	101	PERL_CALLCONV OP* Perl_convert(pTHX_ I32 optype, I32 flags, OP* o);
	102	PERL_CALLCONV void Perl_croak(pTHX_ const char* pat, ...) __attribute__((noreturn))
[20074]	103	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	104	PERL_CALLCONV void Perl_vcroak(pTHX_ const char* pat, va_list* args) __attribute__((noreturn));
	105	#if defined(PERL_IMPLICIT_CONTEXT)
	106	PERL_CALLCONV void Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn))
[20074]	107	__attribute__format__(__printf__,1,2);
[14544]	108	PERL_CALLCONV OP* Perl_die_nocontext(const char* pat, ...)
[20074]	109	__attribute__format__(__printf__,1,2);
[14544]	110	PERL_CALLCONV void Perl_deb_nocontext(const char* pat, ...)
[20074]	111	__attribute__format__(__printf__,1,2);
[14544]	112	PERL_CALLCONV char* Perl_form_nocontext(const char* pat, ...)
[20074]	113	__attribute__format__(__printf__,1,2);
[17034]	114	PERL_CALLCONV void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...);
[14544]	115	PERL_CALLCONV SV* Perl_mess_nocontext(const char* pat, ...)
[20074]	116	__attribute__format__(__printf__,1,2);
[14544]	117	PERL_CALLCONV void Perl_warn_nocontext(const char* pat, ...)
[20074]	118	__attribute__format__(__printf__,1,2);
[14544]	119	PERL_CALLCONV void Perl_warner_nocontext(U32 err, const char* pat, ...)
[20074]	120	__attribute__format__(__printf__,2,3);
[14544]	121	PERL_CALLCONV SV* Perl_newSVpvf_nocontext(const char* pat, ...)
[20074]	122	__attribute__format__(__printf__,1,2);
[14544]	123	PERL_CALLCONV void Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
[20074]	124	__attribute__format__(__printf__,2,3);
[14544]	125	PERL_CALLCONV void Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
[20074]	126	__attribute__format__(__printf__,2,3);
[14544]	127	PERL_CALLCONV void Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
[20074]	128	__attribute__format__(__printf__,2,3);
[14544]	129	PERL_CALLCONV void Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
[20074]	130	__attribute__format__(__printf__,2,3);
[14544]	131	PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...)
[20074]	132	__attribute__format__(__printf__,2,3);
[17034]	133	PERL_CALLCONV int Perl_printf_nocontext(const char* fmt, ...)
[20074]	134	__attribute__format__(__printf__,1,2);
[14544]	135	#endif
	136	PERL_CALLCONV void Perl_cv_ckproto(pTHX_ CV* cv, GV* gv, char* p);
	137	PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto);
	138	PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ CV* cv);
	139	PERL_CALLCONV SV* Perl_op_const_sv(pTHX_ OP* o, CV* cv);
	140	PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv);
	141	PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cs);
	142	PERL_CALLCONV SV* Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
	143	PERL_CALLCONV void Perl_filter_del(pTHX_ filter_t funcp);
	144	PERL_CALLCONV I32 Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen);
	145	PERL_CALLCONV char** Perl_get_op_descs(pTHX);
	146	PERL_CALLCONV char** Perl_get_op_names(pTHX);
	147	PERL_CALLCONV char* Perl_get_no_modify(pTHX);
	148	PERL_CALLCONV U32* Perl_get_opargs(pTHX);
	149	PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX);
	150	PERL_CALLCONV I32 Perl_cxinc(pTHX);
	151	PERL_CALLCONV void Perl_deb(pTHX_ const char* pat, ...)
[20074]	152	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	153	PERL_CALLCONV void Perl_vdeb(pTHX_ const char* pat, va_list* args);
	154	PERL_CALLCONV void Perl_debprofdump(pTHX);
	155	PERL_CALLCONV I32 Perl_debop(pTHX_ OP* o);
	156	PERL_CALLCONV I32 Perl_debstack(pTHX);
	157	PERL_CALLCONV I32 Perl_debstackptrs(pTHX);
	158	PERL_CALLCONV char* Perl_delimcpy(pTHX_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
	159	PERL_CALLCONV void Perl_deprecate(pTHX_ char* s);
[18449]	160	PERL_CALLCONV void Perl_deprecate_old(pTHX_ char* s);
[14544]	161	PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...)
[20074]	162	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	163	PERL_CALLCONV OP* Perl_vdie(pTHX_ const char* pat, va_list* args);
	164	PERL_CALLCONV OP* Perl_die_where(pTHX_ char* message, STRLEN msglen);
	165	PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix);
	166	PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV mark, SV sp);
	167	PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV mark, SV sp, int fd, int flag);
[17034]	168	PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode);
[14544]	169	PERL_CALLCONV void Perl_do_chop(pTHX_ SV* asv, SV* sv);
	170	PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit);
	171	PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv);
	172	PERL_CALLCONV bool Perl_do_exec(pTHX_ char* cmd);
[18449]	173	#if defined(WIN32)
	174	PERL_CALLCONV int Perl_do_aspawn(pTHX_ SV* really, SV mark, SV sp);
	175	PERL_CALLCONV int Perl_do_spawn(pTHX_ char* cmd);
	176	PERL_CALLCONV int Perl_do_spawn_nowait(pTHX_ char* cmd);
	177	#endif
[14544]	178	#if !defined(WIN32)
	179	PERL_CALLCONV bool Perl_do_exec3(pTHX_ char* cmd, int fd, int flag);
	180	#endif
	181	PERL_CALLCONV void Perl_do_execfree(pTHX);
[10723]	182	#if defined(HAS_MSG) \|\| defined(HAS_SEM) \|\| defined(HAS_SHM)
[14544]	183	PERL_CALLCONV I32 Perl_do_ipcctl(pTHX_ I32 optype, SV mark, SV sp);
	184	PERL_CALLCONV I32 Perl_do_ipcget(pTHX_ I32 optype, SV mark, SV sp);
	185	PERL_CALLCONV I32 Perl_do_msgrcv(pTHX_ SV mark, SV sp);
	186	PERL_CALLCONV I32 Perl_do_msgsnd(pTHX_ SV mark, SV sp);
	187	PERL_CALLCONV I32 Perl_do_semop(pTHX_ SV mark, SV sp);
	188	PERL_CALLCONV I32 Perl_do_shmio(pTHX_ I32 optype, SV mark, SV sp);
[10723]	189	#endif
[14544]	190	PERL_CALLCONV void Perl_do_join(pTHX_ SV* sv, SV* del, SV mark, SV sp);
	191	PERL_CALLCONV OP* Perl_do_kv(pTHX);
	192	PERL_CALLCONV bool Perl_do_open(pTHX_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp);
	193	PERL_CALLCONV bool Perl_do_open9(pTHX_ GV gv, char name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO supplied_fp, SV svs, I32 num);
[18449]	194	PERL_CALLCONV bool Perl_do_openn(pTHX_ GV gv, char name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO supplied_fp, SV *svp, I32 num);
[14544]	195	PERL_CALLCONV void Perl_do_pipe(pTHX_ SV* sv, GV* rgv, GV* wgv);
	196	PERL_CALLCONV bool Perl_do_print(pTHX_ SV* sv, PerlIO* fp);
	197	PERL_CALLCONV OP* Perl_do_readline(pTHX);
	198	PERL_CALLCONV I32 Perl_do_chomp(pTHX_ SV* sv);
	199	PERL_CALLCONV bool Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
	200	PERL_CALLCONV void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg);
	201	PERL_CALLCONV Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
	202	PERL_CALLCONV Off_t Perl_do_tell(pTHX_ GV* gv);
	203	PERL_CALLCONV I32 Perl_do_trans(pTHX_ SV* sv);
	204	PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size);
	205	PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv);
	206	PERL_CALLCONV void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
	207	PERL_CALLCONV OP* Perl_dofile(pTHX_ OP* term);
	208	PERL_CALLCONV I32 Perl_dowantarray(pTHX);
	209	PERL_CALLCONV void Perl_dump_all(pTHX);
	210	PERL_CALLCONV void Perl_dump_eval(pTHX);
	211	#if defined(DUMP_FDS)
	212	PERL_CALLCONV void Perl_dump_fds(pTHX_ char* s);
[10723]	213	#endif
[14544]	214	PERL_CALLCONV void Perl_dump_form(pTHX_ GV* gv);
	215	PERL_CALLCONV void Perl_gv_dump(pTHX_ GV* gv);
	216	PERL_CALLCONV void Perl_op_dump(pTHX_ OP* arg);
	217	PERL_CALLCONV void Perl_pmop_dump(pTHX_ PMOP* pm);
	218	PERL_CALLCONV void Perl_dump_packsubs(pTHX_ HV* stash);
	219	PERL_CALLCONV void Perl_dump_sub(pTHX_ GV* gv);
	220	PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
	221	PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
	222	PERL_CALLCONV char* Perl_find_script(pTHX_ char scriptname, bool dosearch, char *search_ext, I32 flags);
[18449]	223	#if defined(USE_5005THREADS)
[14544]	224	PERL_CALLCONV PADOFFSET Perl_find_threadsv(pTHX_ const char *name);
[10723]	225	#endif
[14544]	226	PERL_CALLCONV OP* Perl_force_list(pTHX_ OP* arg);
	227	PERL_CALLCONV OP* Perl_fold_constants(pTHX_ OP* arg);
	228	PERL_CALLCONV char* Perl_form(pTHX_ const char* pat, ...)
[20074]	229	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	230	PERL_CALLCONV char* Perl_vform(pTHX_ const char* pat, va_list* args);
	231	PERL_CALLCONV void Perl_free_tmps(pTHX);
	232	PERL_CALLCONV OP* Perl_gen_constant_list(pTHX_ OP* o);
	233	#if !defined(HAS_GETENV_LEN)
[17034]	234	PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char* key, unsigned long *len);
[10723]	235	#endif
[14544]	236	PERL_CALLCONV void Perl_gp_free(pTHX_ GV* gv);
	237	PERL_CALLCONV GP* Perl_gp_ref(pTHX_ GP* gp);
	238	PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV* gv);
	239	PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV* gv);
	240	PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv);
	241	PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method);
	242	PERL_CALLCONV void Perl_gv_check(pTHX_ HV* stash);
	243	PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, GV* gv);
	244	PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
[17034]	245	PERL_CALLCONV void Perl_gv_efullname4(pTHX_ SV* sv, GV* gv, const char* prefix, bool keepmain);
[14544]	246	PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name);
	247	PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
[18449]	248	PERL_CALLCONV GV* Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
[14544]	249	PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
	250	PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload);
	251	PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type);
	252	PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, GV* gv);
	253	PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
[17034]	254	PERL_CALLCONV void Perl_gv_fullname4(pTHX_ SV* sv, GV* gv, const char* prefix, bool keepmain);
[14544]	255	PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi);
	256	PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 create);
	257	PERL_CALLCONV HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 create);
	258	PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 create);
	259	PERL_CALLCONV void Perl_hv_clear(pTHX_ HV* tb);
	260	PERL_CALLCONV void Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry);
[18449]	261	PERL_CALLCONV SV* Perl_hv_delete(pTHX_ HV* tb, const char* key, I32 klen, I32 flags);
[14544]	262	PERL_CALLCONV SV* Perl_hv_delete_ent(pTHX_ HV* tb, SV* key, I32 flags, U32 hash);
[18449]	263	PERL_CALLCONV bool Perl_hv_exists(pTHX_ HV* tb, const char* key, I32 klen);
[14544]	264	PERL_CALLCONV bool Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash);
[18449]	265	PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV* tb, const char* key, I32 klen, I32 lval);
[14544]	266	PERL_CALLCONV HE* Perl_hv_fetch_ent(pTHX_ HV* tb, SV* key, I32 lval, U32 hash);
	267	PERL_CALLCONV void Perl_hv_free_ent(pTHX_ HV* hv, HE* entry);
	268	PERL_CALLCONV I32 Perl_hv_iterinit(pTHX_ HV* tb);
	269	PERL_CALLCONV char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen);
	270	PERL_CALLCONV SV* Perl_hv_iterkeysv(pTHX_ HE* entry);
	271	PERL_CALLCONV HE* Perl_hv_iternext(pTHX_ HV* tb);
	272	PERL_CALLCONV SV* Perl_hv_iternextsv(pTHX_ HV* hv, char** key, I32* retlen);
[18449]	273	PERL_CALLCONV HE* Perl_hv_iternext_flags(pTHX_ HV* tb, I32 flags);
[14544]	274	PERL_CALLCONV SV* Perl_hv_iterval(pTHX_ HV* tb, HE* entry);
	275	PERL_CALLCONV void Perl_hv_ksplit(pTHX_ HV* hv, IV newmax);
	276	PERL_CALLCONV void Perl_hv_magic(pTHX_ HV* hv, GV* gv, int how);
[18449]	277	PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash);
[14544]	278	PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
[18449]	279	PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags);
[14544]	280	PERL_CALLCONV void Perl_hv_undef(pTHX_ HV* tb);
	281	PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len);
	282	PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len);
[18449]	283	PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char* a, char *pe1, UV l1, bool u1, const char b, char **pe2, UV l2, bool u2);
[14544]	284	PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
[18449]	285	PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int, char **);
[14544]	286	PERL_CALLCONV void Perl_init_debugger(pTHX);
	287	PERL_CALLCONV void Perl_init_stacks(pTHX);
[18449]	288	PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm);
[14544]	289	PERL_CALLCONV U32 Perl_intro_my(pTHX);
	290	PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little);
	291	PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit);
	292	PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd);
[17034]	293	PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags);
	294	PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX);
[14544]	295	PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c);
	296	PERL_CALLCONV U32 Perl_to_uni_title_lc(pTHX_ U32 c);
	297	PERL_CALLCONV U32 Perl_to_uni_lower_lc(pTHX_ U32 c);
[18449]	298	PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c);
	299	PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ UV c);
	300	PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c);
	301	PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ UV c);
	302	PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ UV c);
	303	PERL_CALLCONV bool Perl_is_uni_space(pTHX_ UV c);
	304	PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ UV c);
	305	PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ UV c);
	306	PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ UV c);
	307	PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ UV c);
	308	PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c);
	309	PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c);
	310	PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c);
	311	PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c);
	312	PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 p, STRLEN lenp);
	313	PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 p, STRLEN lenp);
	314	PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 p, STRLEN lenp);
	315	PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 p, STRLEN lenp);
	316	PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c);
	317	PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ UV c);
	318	PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c);
	319	PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ UV c);
	320	PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ UV c);
	321	PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ UV c);
	322	PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ UV c);
	323	PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ UV c);
	324	PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ UV c);
	325	PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ UV c);
	326	PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c);
	327	PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c);
	328	PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c);
	329	PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c);
[17034]	330	PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ U8 *p);
	331	PERL_CALLCONV bool Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len);
[20074]	332	PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ U8 s, STRLEN len, U8 *p);
[14544]	333	PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ U8 *p);
	334	PERL_CALLCONV bool Perl_is_utf8_alnumc(pTHX_ U8 *p);
	335	PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ U8 *p);
[18449]	336	PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ U8 *p);
[14544]	337	PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ U8 *p);
	338	PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ U8 *p);
	339	PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ U8 *p);
	340	PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ U8 *p);
	341	PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ U8 *p);
	342	PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ U8 *p);
	343	PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ U8 *p);
	344	PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ U8 *p);
	345	PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ U8 *p);
	346	PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ U8 *p);
	347	PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ U8 *p);
	348	PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ U8 *p);
	349	PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP* arg);
	350	PERL_CALLCONV I32 Perl_keyword(pTHX_ char* d, I32 len);
	351	PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base);
	352	PERL_CALLCONV void Perl_lex_end(pTHX);
	353	PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line);
[18449]	354	PERL_CALLCONV void Perl_op_null(pTHX_ OP* o);
	355	PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o);
[14544]	356	PERL_CALLCONV OP* Perl_linklist(pTHX_ OP* o);
	357	PERL_CALLCONV OP* Perl_list(pTHX_ OP* o);
	358	PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o);
[17034]	359	PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...);
[14544]	360	PERL_CALLCONV void Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args);
	361	PERL_CALLCONV OP* Perl_localize(pTHX_ OP* arg, I32 lexical);
	362	PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV* sv);
[18449]	363	PERL_CALLCONV UV Perl_grok_bin(pTHX_ char* start, STRLEN* len, I32* flags, NV *result);
	364	PERL_CALLCONV UV Perl_grok_hex(pTHX_ char* start, STRLEN* len, I32* flags, NV *result);
	365	PERL_CALLCONV int Perl_grok_number(pTHX_ const char pv, STRLEN len, UV valuep);
	366	PERL_CALLCONV bool Perl_grok_numeric_radix(pTHX_ const char *sp, const char send);
	367	PERL_CALLCONV UV Perl_grok_oct(pTHX_ char* start, STRLEN* len, I32* flags, NV *result);
[14544]	368	PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
	369	PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
	370	PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
	371	PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
	372	PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg);
	373	PERL_CALLCONV int Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg);
[18449]	374	PERL_CALLCONV int Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg);
[14544]	375	PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
	376	PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, MAGIC* mg);
	377	PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
	378	PERL_CALLCONV int Perl_magic_getglob(pTHX_ SV* sv, MAGIC* mg);
	379	PERL_CALLCONV int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg);
	380	PERL_CALLCONV int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg);
	381	PERL_CALLCONV int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg);
	382	PERL_CALLCONV int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg);
	383	PERL_CALLCONV int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg);
	384	PERL_CALLCONV int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg);
	385	PERL_CALLCONV int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg);
	386	PERL_CALLCONV int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg);
	387	PERL_CALLCONV U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg);
[18449]	388	#if defined(USE_5005THREADS)
[14544]	389	PERL_CALLCONV int Perl_magic_mutexfree(pTHX_ SV* sv, MAGIC* mg);
	390	#endif
	391	PERL_CALLCONV int Perl_magic_nextpack(pTHX_ SV* sv, MAGIC* mg, SV* key);
	392	PERL_CALLCONV U32 Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg);
	393	PERL_CALLCONV int Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg);
[17034]	394	PERL_CALLCONV int Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg);
[14544]	395	PERL_CALLCONV int Perl_magic_set(pTHX_ SV* sv, MAGIC* mg);
	396	PERL_CALLCONV int Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg);
	397	PERL_CALLCONV int Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg);
	398	PERL_CALLCONV int Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg);
	399	PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
	400	#if defined(USE_LOCALE_COLLATE)
	401	PERL_CALLCONV int Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
	402	#endif
	403	PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
	404	PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg);
	405	PERL_CALLCONV int Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg);
	406	PERL_CALLCONV int Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg);
	407	PERL_CALLCONV int Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg);
	408	PERL_CALLCONV int Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg);
	409	PERL_CALLCONV int Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg);
	410	PERL_CALLCONV int Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg);
	411	PERL_CALLCONV int Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg);
[20074]	412	PERL_CALLCONV int Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg);
[14544]	413	PERL_CALLCONV int Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg);
	414	PERL_CALLCONV int Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg);
	415	PERL_CALLCONV int Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg);
	416	PERL_CALLCONV int Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg);
	417	PERL_CALLCONV int Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg);
[20074]	418	PERL_CALLCONV int Perl_magic_setutf8(pTHX_ SV* sv, MAGIC* mg);
[14544]	419	PERL_CALLCONV int Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg);
	420	PERL_CALLCONV U32 Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg);
	421	PERL_CALLCONV int Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg);
	422	PERL_CALLCONV void Perl_magicname(pTHX_ char* sym, char* name, I32 namlen);
	423	PERL_CALLCONV void Perl_markstack_grow(pTHX);
	424	#if defined(USE_LOCALE_COLLATE)
	425	PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
	426	#endif
	427	PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...)
[20074]	428	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	429	PERL_CALLCONV SV* Perl_vmess(pTHX_ const char* pat, va_list* args);
	430	PERL_CALLCONV void Perl_qerror(pTHX_ SV* err);
[18449]	431	PERL_CALLCONV void Perl_sortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t cmp);
[14544]	432	PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv);
	433	PERL_CALLCONV int Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen);
	434	PERL_CALLCONV MAGIC* Perl_mg_find(pTHX_ SV* sv, int type);
	435	PERL_CALLCONV int Perl_mg_free(pTHX_ SV* sv);
	436	PERL_CALLCONV int Perl_mg_get(pTHX_ SV* sv);
	437	PERL_CALLCONV U32 Perl_mg_length(pTHX_ SV* sv);
	438	PERL_CALLCONV void Perl_mg_magical(pTHX_ SV* sv);
	439	PERL_CALLCONV int Perl_mg_set(pTHX_ SV* sv);
	440	PERL_CALLCONV I32 Perl_mg_size(pTHX_ SV* sv);
[18449]	441	PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *pm);
[14544]	442	PERL_CALLCONV OP* Perl_mod(pTHX_ OP* o, I32 type);
	443	PERL_CALLCONV int Perl_mode_from_discipline(pTHX_ SV* discp);
	444	PERL_CALLCONV char* Perl_moreswitches(pTHX_ char* s);
	445	PERL_CALLCONV OP* Perl_my(pTHX_ OP* o);
	446	PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s);
[18449]	447	#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) \|\| (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
[14544]	448	PERL_CALLCONV char* Perl_my_bcopy(const char* from, char* to, I32 len);
[10723]	449	#endif
	450	#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
[14544]	451	PERL_CALLCONV char* Perl_my_bzero(char* loc, I32 len);
[10723]	452	#endif
[14544]	453	PERL_CALLCONV void Perl_my_exit(pTHX_ U32 status) __attribute__((noreturn));
	454	PERL_CALLCONV void Perl_my_failure_exit(pTHX) __attribute__((noreturn));
	455	PERL_CALLCONV I32 Perl_my_fflush_all(pTHX);
[18449]	456	PERL_CALLCONV Pid_t Perl_my_fork(void);
	457	PERL_CALLCONV void Perl_atfork_lock(void);
	458	PERL_CALLCONV void Perl_atfork_unlock(void);
[14544]	459	PERL_CALLCONV I32 Perl_my_lstat(pTHX);
[10723]	460	#if !defined(HAS_MEMCMP) \|\| !defined(HAS_SANE_MEMCMP)
[14544]	461	PERL_CALLCONV I32 Perl_my_memcmp(const char* s1, const char* s2, I32 len);
[10723]	462	#endif
	463	#if !defined(HAS_MEMSET)
[14544]	464	PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len);
[10723]	465	#endif
[14544]	466	PERL_CALLCONV I32 Perl_my_pclose(pTHX_ PerlIO* ptr);
	467	PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ char* cmd, char* mode);
[18449]	468	PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ char* mode, int n, SV ** args);
[14544]	469	PERL_CALLCONV void Perl_my_setenv(pTHX_ char* nam, char* val);
	470	PERL_CALLCONV I32 Perl_my_stat(pTHX);
[18449]	471	PERL_CALLCONV char * Perl_my_strftime(pTHX_ char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst);
[14544]	472	#if defined(MYSWAP)
	473	PERL_CALLCONV short Perl_my_swap(pTHX_ short s);
	474	PERL_CALLCONV long Perl_my_htonl(pTHX_ long l);
	475	PERL_CALLCONV long Perl_my_ntohl(pTHX_ long l);
[10723]	476	#endif
[14544]	477	PERL_CALLCONV void Perl_my_unexec(pTHX);
	478	PERL_CALLCONV OP* Perl_newANONLIST(pTHX_ OP* o);
	479	PERL_CALLCONV OP* Perl_newANONHASH(pTHX_ OP* o);
	480	PERL_CALLCONV OP* Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
	481	PERL_CALLCONV OP* Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right);
	482	PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop);
[18449]	483	PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv);
[14544]	484	PERL_CALLCONV void Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
	485	PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OPblock, OPcont);
	486	PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right);
	487	PERL_CALLCONV OP* Perl_newLOOPEX(pTHX_ I32 type, OP* label);
	488	PERL_CALLCONV OP* Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block);
	489	PERL_CALLCONV OP* Perl_newNULLLIST(pTHX);
	490	PERL_CALLCONV OP* Perl_newOP(pTHX_ I32 optype, I32 flags);
	491	PERL_CALLCONV void Perl_newPROG(pTHX_ OP* o);
	492	PERL_CALLCONV OP* Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right);
	493	PERL_CALLCONV OP* Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop);
	494	PERL_CALLCONV OP* Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o);
	495	PERL_CALLCONV CV* Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
	496	PERL_CALLCONV CV* Perl_newXS(pTHX_ char* name, XSUBADDR_t f, char* filename);
	497	PERL_CALLCONV AV* Perl_newAV(pTHX);
	498	PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o);
	499	PERL_CALLCONV OP* Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
	500	PERL_CALLCONV OP* Perl_newCVREF(pTHX_ I32 flags, OP* o);
	501	PERL_CALLCONV OP* Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv);
	502	PERL_CALLCONV GV* Perl_newGVgen(pTHX_ char* pack);
	503	PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o);
	504	PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o);
	505	PERL_CALLCONV HV* Perl_newHV(pTHX);
	506	PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV* hv);
	507	PERL_CALLCONV IO* Perl_newIO(pTHX);
	508	PERL_CALLCONV OP* Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
	509	PERL_CALLCONV OP* Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv);
	510	PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags);
	511	PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv);
	512	PERL_CALLCONV SV* Perl_newRV(pTHX_ SV* pref);
	513	PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *sv);
	514	PERL_CALLCONV SV* Perl_newSV(pTHX_ STRLEN len);
	515	PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o);
	516	PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv);
	517	PERL_CALLCONV SV* Perl_newSViv(pTHX_ IV i);
	518	PERL_CALLCONV SV* Perl_newSVuv(pTHX_ UV u);
	519	PERL_CALLCONV SV* Perl_newSVnv(pTHX_ NV n);
	520	PERL_CALLCONV SV* Perl_newSVpv(pTHX_ const char* s, STRLEN len);
	521	PERL_CALLCONV SV* Perl_newSVpvn(pTHX_ const char* s, STRLEN len);
[18449]	522	PERL_CALLCONV SV* Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash);
[14544]	523	PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char* pat, ...)
[20074]	524	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	525	PERL_CALLCONV SV* Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args);
	526	PERL_CALLCONV SV* Perl_newSVrv(pTHX_ SV* rv, const char* classname);
	527	PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV* old);
	528	PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
	529	PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);
	530
	531	PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
[20074]	532	PERL_CALLCONV char* Perl_scan_vstring(pTHX_ char vstr, SV sv);
[14544]	533	PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv);
	534	PERL_CALLCONV char* Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
	535	PERL_CALLCONV OP* Perl_oopsCV(pTHX_ OP* o);
	536	PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg);
	537	PERL_CALLCONV void Perl_package(pTHX_ OP* o);
	538	PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
[20074]	539	PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ char* name);
[14544]	540	PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ char* name);
	541	PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o);
	542	PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o);
[20074]	543	PERL_CALLCONV void Perl_pad_leavemy(pTHX);
[14544]	544	PERL_CALLCONV SV* Perl_pad_sv(pTHX_ PADOFFSET po);
	545	PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po);
	546	PERL_CALLCONV void Perl_pad_reset(pTHX);
[20074]	547	PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust);
[14544]	548	PERL_CALLCONV void Perl_peep(pTHX_ OP* o);
[18449]	549	PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV* pattern, IO *io);
	550	#if defined(USE_5005THREADS)
[14544]	551	PERL_CALLCONV struct perl_thread* Perl_new_struct_thread(pTHX_ struct perl_thread *t);
	552	#endif
[18449]	553	#if defined(USE_REENTRANT_API)
	554	PERL_CALLCONV void Perl_reentrant_size(pTHX);
	555	PERL_CALLCONV void Perl_reentrant_init(pTHX);
	556	PERL_CALLCONV void Perl_reentrant_free(pTHX);
	557	PERL_CALLCONV void* Perl_reentrant_retry(const char*, ...);
	558	#endif
[14544]	559	PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
	560	PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv);
	561	PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags);
	562	PERL_CALLCONV I32 Perl_call_pv(pTHX_ const char* sub_name, I32 flags);
	563	PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, I32 flags);
[18449]	564	PERL_CALLCONV void Perl_despatch_signals(pTHX);
[14544]	565	PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error);
	566	PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags);
	567	PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char* name, I32 create);
	568	PERL_CALLCONV AV* Perl_get_av(pTHX_ const char* name, I32 create);
	569	PERL_CALLCONV HV* Perl_get_hv(pTHX_ const char* name, I32 create);
	570	PERL_CALLCONV CV* Perl_get_cv(pTHX_ const char* name, I32 create);
	571	PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn);
	572	PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn);
[17034]	573	PERL_CALLCONV void Perl_new_collate(pTHX_ char* newcoll);
	574	PERL_CALLCONV void Perl_new_ctype(pTHX_ char* newctype);
	575	PERL_CALLCONV void Perl_new_numeric(pTHX_ char* newcoll);
[14544]	576	PERL_CALLCONV void Perl_set_numeric_local(pTHX);
	577	PERL_CALLCONV void Perl_set_numeric_radix(pTHX);
	578	PERL_CALLCONV void Perl_set_numeric_standard(pTHX);
	579	PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv);
[18449]	580	PERL_CALLCONV void Perl_pack_cat(pTHX_ SV cat, char pat, char patend, SV beglist, SV endlist, SV **next_in_list, U32 flags);
[20074]	581	PERL_CALLCONV void Perl_packlist(pTHX_ SV cat, char pat, char patend, SV beglist, SV *endlist);
[14544]	582	PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status);
[18449]	583	PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch);
[14544]	584	PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
	585	PERL_CALLCONV OP* Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
	586	PERL_CALLCONV OP* Perl_pop_return(pTHX);
	587	PERL_CALLCONV void Perl_pop_scope(pTHX);
	588	PERL_CALLCONV OP* Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
	589	PERL_CALLCONV void Perl_push_return(pTHX_ OP* o);
	590	PERL_CALLCONV void Perl_push_scope(pTHX);
	591	PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type);
	592	PERL_CALLCONV OP* Perl_refkids(pTHX_ OP* o, I32 type);
	593	PERL_CALLCONV void Perl_regdump(pTHX_ regexp* r);
[18449]	594	PERL_CALLCONV SV* Perl_regclass_swash(pTHX_ struct regnode n, bool doinit, SV listsvp, SV *altsvp);
[14544]	595	PERL_CALLCONV I32 Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
	596	PERL_CALLCONV void Perl_pregfree(pTHX_ struct regexp* r);
	597	PERL_CALLCONV regexp* Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm);
	598	PERL_CALLCONV char* Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
	599	PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ regexp* prog);
	600	PERL_CALLCONV I32 Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
	601	PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p);
	602	PERL_CALLCONV void Perl_regprop(pTHX_ SV* sv, regnode* o);
	603	PERL_CALLCONV void Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count);
	604	PERL_CALLCONV char* Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
	605	PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t);
	606	PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
	607	PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2);
	608	PERL_CALLCONV Sighandler_t Perl_rsignal_state(pTHX_ int i);
	609	PERL_CALLCONV void Perl_rxres_free(pTHX_ void** rsp);
	610	PERL_CALLCONV void Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx);
	611	PERL_CALLCONV void Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx);
	612	#if !defined(HAS_RENAME)
	613	PERL_CALLCONV I32 Perl_same_dirent(pTHX_ char* a, char* b);
	614	#endif
[18449]	615	PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv);
	616	PERL_CALLCONV char* Perl_savesharedpv(pTHX_ const char* pv);
	617	PERL_CALLCONV char* Perl_savepvn(pTHX_ const char* pv, I32 len);
[14544]	618	PERL_CALLCONV void Perl_savestack_grow(pTHX);
[20074]	619	PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need);
[14544]	620	PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr);
	621	PERL_CALLCONV I32 Perl_save_alloc(pTHX_ I32 size, I32 pad);
	622	PERL_CALLCONV void Perl_save_aptr(pTHX_ AV** aptr);
	623	PERL_CALLCONV AV* Perl_save_ary(pTHX_ GV* gv);
[20074]	624	PERL_CALLCONV void Perl_save_bool(pTHX_ bool* boolp);
[14544]	625	PERL_CALLCONV void Perl_save_clearsv(pTHX_ SV** svp);
	626	PERL_CALLCONV void Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen);
	627	PERL_CALLCONV void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
	628	PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
	629	PERL_CALLCONV void Perl_save_freesv(pTHX_ SV* sv);
	630	PERL_CALLCONV void Perl_save_freeop(pTHX_ OP* o);
	631	PERL_CALLCONV void Perl_save_freepv(pTHX_ char* pv);
	632	PERL_CALLCONV void Perl_save_generic_svref(pTHX_ SV** sptr);
[17034]	633	PERL_CALLCONV void Perl_save_generic_pvref(pTHX_ char** str);
[18449]	634	PERL_CALLCONV void Perl_save_shared_pvref(pTHX_ char** str);
[14544]	635	PERL_CALLCONV void Perl_save_gp(pTHX_ GV* gv, I32 empty);
	636	PERL_CALLCONV HV* Perl_save_hash(pTHX_ GV* gv);
	637	PERL_CALLCONV void Perl_save_helem(pTHX_ HV* hv, SV key, SV *sptr);
	638	PERL_CALLCONV void Perl_save_hints(pTHX);
	639	PERL_CALLCONV void Perl_save_hptr(pTHX_ HV** hptr);
	640	PERL_CALLCONV void Perl_save_I16(pTHX_ I16* intp);
	641	PERL_CALLCONV void Perl_save_I32(pTHX_ I32* intp);
	642	PERL_CALLCONV void Perl_save_I8(pTHX_ I8* bytep);
	643	PERL_CALLCONV void Perl_save_int(pTHX_ int* intp);
	644	PERL_CALLCONV void Perl_save_item(pTHX_ SV* item);
	645	PERL_CALLCONV void Perl_save_iv(pTHX_ IV* iv);
	646	PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
	647	PERL_CALLCONV void Perl_save_long(pTHX_ long* longp);
[17034]	648	PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv);
[14544]	649	PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv);
	650	PERL_CALLCONV void Perl_save_op(pTHX);
	651	PERL_CALLCONV SV* Perl_save_scalar(pTHX_ GV* gv);
	652	PERL_CALLCONV void Perl_save_pptr(pTHX_ char** pptr);
	653	PERL_CALLCONV void Perl_save_vptr(pTHX_ void* pptr);
	654	PERL_CALLCONV void Perl_save_re_context(pTHX);
[17034]	655	PERL_CALLCONV void Perl_save_padsv(pTHX_ PADOFFSET off);
[14544]	656	PERL_CALLCONV void Perl_save_sptr(pTHX_ SV** sptr);
	657	PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr);
	658	PERL_CALLCONV SV** Perl_save_threadsv(pTHX_ PADOFFSET i);
	659	PERL_CALLCONV OP* Perl_sawparens(pTHX_ OP* o);
	660	PERL_CALLCONV OP* Perl_scalar(pTHX_ OP* o);
	661	PERL_CALLCONV OP* Perl_scalarkids(pTHX_ OP* o);
	662	PERL_CALLCONV OP* Perl_scalarseq(pTHX_ OP* o);
	663	PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o);
[17034]	664	PERL_CALLCONV NV Perl_scan_bin(pTHX_ char* start, STRLEN len, STRLEN* retlen);
	665	PERL_CALLCONV NV Perl_scan_hex(pTHX_ char* start, STRLEN len, STRLEN* retlen);
	666	PERL_CALLCONV char* Perl_scan_num(pTHX_ char* s, YYSTYPE *lvalp);
	667	PERL_CALLCONV NV Perl_scan_oct(pTHX_ char* start, STRLEN len, STRLEN* retlen);
[14544]	668	PERL_CALLCONV OP* Perl_scope(pTHX_ OP* o);
	669	PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);
	670	#if !defined(VMS)
	671	PERL_CALLCONV I32 Perl_setenv_getix(pTHX_ char* nam);
	672	#endif
	673	PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv);
	674	PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
	675	PERL_CALLCONV Signal_t Perl_sighandler(int sig);
[20074]	676	PERL_CALLCONV Signal_t Perl_csighandler(int sig);
[14544]	677	PERL_CALLCONV SV Perl_stack_grow(pTHX_ SV sp, SV**p, int n);
	678	PERL_CALLCONV I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
	679	PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv);
	680	PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV* sv);
	681	PERL_CALLCONV CV* Perl_sv_2cv(pTHX_ SV* sv, HV st, GV gvp, I32 lref);
	682	PERL_CALLCONV IO* Perl_sv_2io(pTHX_ SV* sv);
	683	PERL_CALLCONV IV Perl_sv_2iv(pTHX_ SV* sv);
	684	PERL_CALLCONV SV* Perl_sv_2mortal(pTHX_ SV* sv);
	685	PERL_CALLCONV NV Perl_sv_2nv(pTHX_ SV* sv);
[18449]	686	/* PERL_CALLCONV char* sv_2pv(pTHX_ SV* sv, STRLEN* lp); */
[14544]	687	PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp);
	688	PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp);
[18449]	689	PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp);
[14544]	690	PERL_CALLCONV UV Perl_sv_2uv(pTHX_ SV* sv);
	691	PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv);
	692	PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv);
	693	PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv);
	694	PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV sv, STRLEN len);
	695	PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV sv, STRLEN len);
	696	PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV sv, STRLEN len);
	697	PERL_CALLCONV I32 Perl_sv_true(pTHX_ SV *sv);
	698	PERL_CALLCONV void Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags);
	699	PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV* sv);
	700	PERL_CALLCONV SV* Perl_sv_bless(pTHX_ SV* sv, HV* stash);
	701	PERL_CALLCONV void Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...)
[20074]	702	__attribute__format__(__printf__,pTHX_2,pTHX_3);
[14544]	703	PERL_CALLCONV void Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args);
	704	PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV* sv, const char* ptr);
[18449]	705	/* PERL_CALLCONV void sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len); */
	706	/* PERL_CALLCONV void sv_catsv(pTHX_ SV* dsv, SV* ssv); */
[14544]	707	PERL_CALLCONV void Perl_sv_chop(pTHX_ SV* sv, char* ptr);
[17034]	708	PERL_CALLCONV I32 Perl_sv_clean_all(pTHX);
[14544]	709	PERL_CALLCONV void Perl_sv_clean_objs(pTHX);
	710	PERL_CALLCONV void Perl_sv_clear(pTHX_ SV* sv);
	711	PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2);
	712	PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
	713	#if defined(USE_LOCALE_COLLATE)
	714	PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp);
	715	#endif
[20074]	716	PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, char* code, PAD** padp);
[18449]	717	PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv);
[14544]	718	PERL_CALLCONV void Perl_sv_dec(pTHX_ SV* sv);
	719	PERL_CALLCONV void Perl_sv_dump(pTHX_ SV* sv);
	720	PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char* name);
	721	PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2);
	722	PERL_CALLCONV void Perl_sv_free(pTHX_ SV* sv);
	723	PERL_CALLCONV void Perl_sv_free_arenas(pTHX);
	724	PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append);
	725	PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen);
	726	PERL_CALLCONV void Perl_sv_inc(pTHX_ SV* sv);
	727	PERL_CALLCONV void Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
	728	PERL_CALLCONV int Perl_sv_isa(pTHX_ SV* sv, const char* name);
	729	PERL_CALLCONV int Perl_sv_isobject(pTHX_ SV* sv);
	730	PERL_CALLCONV STRLEN Perl_sv_len(pTHX_ SV* sv);
	731	PERL_CALLCONV STRLEN Perl_sv_len_utf8(pTHX_ SV* sv);
	732	PERL_CALLCONV void Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen);
[18449]	733	PERL_CALLCONV MAGIC * Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL vtbl, const char name, I32 namlen );
[14544]	734	PERL_CALLCONV SV* Perl_sv_mortalcopy(pTHX_ SV* oldsv);
	735	PERL_CALLCONV SV* Perl_sv_newmortal(pTHX);
	736	PERL_CALLCONV SV* Perl_sv_newref(pTHX_ SV* sv);
	737	PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv);
	738	PERL_CALLCONV void Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp);
	739	PERL_CALLCONV void Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp);
[18449]	740	/* PERL_CALLCONV char* sv_pvn_force(pTHX_ SV* sv, STRLEN* lp); */
[14544]	741	PERL_CALLCONV char* Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp);
	742	PERL_CALLCONV char* Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp);
[18449]	743	PERL_CALLCONV char* Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding);
[20074]	744	PERL_CALLCONV bool Perl_sv_cat_decode(pTHX_ SV* dsv, SV encoding, SV ssv, int offset, char tstr, int tlen);
[14544]	745	PERL_CALLCONV char* Perl_sv_reftype(pTHX_ SV* sv, int ob);
	746	PERL_CALLCONV void Perl_sv_replace(pTHX_ SV* sv, SV* nsv);
	747	PERL_CALLCONV void Perl_sv_report_used(pTHX);
	748	PERL_CALLCONV void Perl_sv_reset(pTHX_ char* s, HV* stash);
	749	PERL_CALLCONV void Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...)
[20074]	750	__attribute__format__(__printf__,pTHX_2,pTHX_3);
[14544]	751	PERL_CALLCONV void Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args);
	752	PERL_CALLCONV void Perl_sv_setiv(pTHX_ SV* sv, IV num);
[20074]	753	PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV* sv, IV num);
[14544]	754	PERL_CALLCONV void Perl_sv_setuv(pTHX_ SV* sv, UV num);
	755	PERL_CALLCONV void Perl_sv_setnv(pTHX_ SV* sv, NV num);
	756	PERL_CALLCONV SV* Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv);
[18449]	757	PERL_CALLCONV SV* Perl_sv_setref_uv(pTHX_ SV* rv, const char* classname, UV uv);
[14544]	758	PERL_CALLCONV SV* Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv);
	759	PERL_CALLCONV SV* Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv);
	760	PERL_CALLCONV SV* Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n);
	761	PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
	762	PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
[18449]	763	/* PERL_CALLCONV void sv_setsv(pTHX_ SV* dsv, SV* ssv); */
[14544]	764	PERL_CALLCONV void Perl_sv_taint(pTHX_ SV* sv);
	765	PERL_CALLCONV bool Perl_sv_tainted(pTHX_ SV* sv);
	766	PERL_CALLCONV int Perl_sv_unmagic(pTHX_ SV* sv, int type);
	767	PERL_CALLCONV void Perl_sv_unref(pTHX_ SV* sv);
[18449]	768	PERL_CALLCONV void Perl_sv_unref_flags(pTHX_ SV* sv, U32 flags);
[14544]	769	PERL_CALLCONV void Perl_sv_untaint(pTHX_ SV* sv);
	770	PERL_CALLCONV bool Perl_sv_upgrade(pTHX_ SV* sv, U32 mt);
	771	PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len);
	772	PERL_CALLCONV void Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
	773	PERL_CALLCONV void Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
	774	PERL_CALLCONV NV Perl_str_to_version(pTHX_ SV *sv);
	775	PERL_CALLCONV SV* Perl_swash_init(pTHX_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
[18449]	776	PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV sv, U8 ptr, bool do_utf8);
[14544]	777	PERL_CALLCONV void Perl_taint_env(pTHX);
	778	PERL_CALLCONV void Perl_taint_proper(pTHX_ const char* f, const char* s);
[18449]	779	PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ U8 p, U8 ustrp, STRLEN lenp, SV swash, char normal, char *special);
	780	PERL_CALLCONV UV Perl_to_utf8_lower(pTHX_ U8 p, U8 ustrp, STRLEN *lenp);
	781	PERL_CALLCONV UV Perl_to_utf8_upper(pTHX_ U8 p, U8 ustrp, STRLEN *lenp);
	782	PERL_CALLCONV UV Perl_to_utf8_title(pTHX_ U8 p, U8 ustrp, STRLEN *lenp);
	783	PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ U8 p, U8 ustrp, STRLEN *lenp);
[14544]	784	#if defined(UNLINK_ALL_VERSIONS)
	785	PERL_CALLCONV I32 Perl_unlnk(pTHX_ char* f);
	786	#endif
[18449]	787	#if defined(USE_5005THREADS)
[14544]	788	PERL_CALLCONV void Perl_unlock_condpair(pTHX_ void* svv);
	789	#endif
[18449]	790	PERL_CALLCONV I32 Perl_unpack_str(pTHX_ char pat, char patend, char s, char strbeg, char strend, char *new_s, I32 ocnt, U32 flags);
[20074]	791	PERL_CALLCONV I32 Perl_unpackstring(pTHX_ char pat, char patend, char s, char strend, U32 flags);
[14544]	792	PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
	793	PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek);
[20074]	794	PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg);
[17034]	795	PERL_CALLCONV U8* Perl_utf16_to_utf8(pTHX_ U8* p, U8 d, I32 bytelen, I32 newlen);
	796	PERL_CALLCONV U8* Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 d, I32 bytelen, I32 newlen);
	797	PERL_CALLCONV STRLEN Perl_utf8_length(pTHX_ U8* s, U8 *e);
	798	PERL_CALLCONV IV Perl_utf8_distance(pTHX_ U8 a, U8 b);
[14544]	799	PERL_CALLCONV U8* Perl_utf8_hop(pTHX_ U8 *s, I32 off);
[17034]	800	PERL_CALLCONV U8* Perl_utf8_to_bytes(pTHX_ U8 s, STRLEN len);
	801	PERL_CALLCONV U8* Perl_bytes_from_utf8(pTHX_ U8 s, STRLEN len, bool *is_utf8);
	802	PERL_CALLCONV U8* Perl_bytes_to_utf8(pTHX_ U8 s, STRLEN len);
[18449]	803	PERL_CALLCONV UV Perl_utf8_to_uvchr(pTHX_ U8 s, STRLEN retlen);
	804	PERL_CALLCONV UV Perl_utf8_to_uvuni(pTHX_ U8 s, STRLEN retlen);
	805	PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ U8 s, STRLEN curlen, STRLEN retlen, U32 flags);
	806	PERL_CALLCONV UV Perl_utf8n_to_uvuni(pTHX_ U8 s, STRLEN curlen, STRLEN retlen, U32 flags);
	807	PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv);
	808	PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
	809	PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
	810	PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
	811	PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV dsv, U8 spv, STRLEN len, STRLEN pvlim, UV flags);
	812	PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV dsv, SV ssv, STRLEN pvlim, UV flags);
[14544]	813	PERL_CALLCONV void Perl_vivify_defelem(pTHX_ SV* sv);
	814	PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
	815	PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
[20074]	816	PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ char **popt);
	817	PERL_CALLCONV U32 Perl_seed(pTHX);
	818	PERL_CALLCONV UV Perl_get_hash_seed(pTHX);
[17034]	819	PERL_CALLCONV void Perl_report_evil_fh(pTHX_ GV gv, IO io, I32 op);
[14544]	820	PERL_CALLCONV void Perl_report_uninit(pTHX);
	821	PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...)
[20074]	822	__attribute__format__(__printf__,pTHX_1,pTHX_2);
[14544]	823	PERL_CALLCONV void Perl_vwarn(pTHX_ const char* pat, va_list* args);
	824	PERL_CALLCONV void Perl_warner(pTHX_ U32 err, const char* pat, ...)
[20074]	825	__attribute__format__(__printf__,pTHX_2,pTHX_3);
[14544]	826	PERL_CALLCONV void Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
	827	PERL_CALLCONV void Perl_watch(pTHX_ char** addr);
	828	PERL_CALLCONV I32 Perl_whichsig(pTHX_ char* sig);
[20074]	829	PERL_CALLCONV void Perl_write_to_stderr(pTHX_ const char* message, int msglen);
[14544]	830	PERL_CALLCONV int Perl_yyerror(pTHX_ char* s);
[17034]	831	#ifdef USE_PURE_BISON
	832	PERL_CALLCONV int Perl_yylex_r(pTHX_ YYSTYPE lvalp, int lcharp);
	833	#endif
[14544]	834	PERL_CALLCONV int Perl_yylex(pTHX);
	835	PERL_CALLCONV int Perl_yyparse(pTHX);
	836	PERL_CALLCONV int Perl_yywarn(pTHX_ char* s);
	837	#if defined(MYMALLOC)
	838	PERL_CALLCONV void Perl_dump_mstats(pTHX_ char* s);
	839	PERL_CALLCONV int Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level);
[10723]	840	#endif
[14544]	841	PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes);
	842	PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size);
	843	PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes);
	844	PERL_CALLCONV Free_t Perl_safesysfree(Malloc_t where);
	845	#if defined(PERL_GLOBAL_STRUCT)
	846	PERL_CALLCONV struct perl_vars * Perl_GetVars(pTHX);
[10723]	847	#endif
[14544]	848	PERL_CALLCONV int Perl_runops_standard(pTHX);
	849	PERL_CALLCONV int Perl_runops_debug(pTHX);
[18449]	850	#if defined(USE_5005THREADS)
[17034]	851	PERL_CALLCONV SV* Perl_sv_lock(pTHX_ SV *sv);
	852	#endif
[14544]	853	PERL_CALLCONV void Perl_sv_catpvf_mg(pTHX_ SV sv, const char pat, ...)
[20074]	854	__attribute__format__(__printf__,pTHX_2,pTHX_3);
[14544]	855	PERL_CALLCONV void Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
	856	PERL_CALLCONV void Perl_sv_catpv_mg(pTHX_ SV sv, const char ptr);
	857	PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ SV sv, const char ptr, STRLEN len);
	858	PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV dstr, SV sstr);
	859	PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV sv, const char pat, ...)
[20074]	860	__attribute__format__(__printf__,pTHX_2,pTHX_3);
[14544]	861	PERL_CALLCONV void Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
	862	PERL_CALLCONV void Perl_sv_setiv_mg(pTHX_ SV *sv, IV i);
[20074]	863	PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv);
[14544]	864	PERL_CALLCONV void Perl_sv_setuv_mg(pTHX_ SV *sv, UV u);
	865	PERL_CALLCONV void Perl_sv_setnv_mg(pTHX_ SV *sv, NV num);
	866	PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV sv, const char ptr);
	867	PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV sv, const char ptr, STRLEN len);
	868	PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV dstr, SV sstr);
	869	PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV sv, char ptr, STRLEN len);
	870	PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id);
[18449]	871	PERL_CALLCONV char* Perl_pv_display(pTHX_ SV dsv, char pv, STRLEN cur, STRLEN len, STRLEN pvlim);
[14544]	872	PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO file, const char pat, ...)
[20074]	873	__attribute__format__(__printf__,pTHX_3,pTHX_4);
[14544]	874	PERL_CALLCONV void Perl_dump_vindent(pTHX_ I32 level, PerlIO file, const char pat, va_list *args);
	875	PERL_CALLCONV void Perl_do_gv_dump(pTHX_ I32 level, PerlIO file, char name, GV *sv);
	876	PERL_CALLCONV void Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO file, char name, GV *sv);
	877	PERL_CALLCONV void Perl_do_hv_dump(pTHX_ I32 level, PerlIO file, char name, HV *sv);
	878	PERL_CALLCONV void Perl_do_magic_dump(pTHX_ I32 level, PerlIO file, MAGIC mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
	879	PERL_CALLCONV void Perl_do_op_dump(pTHX_ I32 level, PerlIO file, OP o);
	880	PERL_CALLCONV void Perl_do_pmop_dump(pTHX_ I32 level, PerlIO file, PMOP pm);
	881	PERL_CALLCONV void Perl_do_sv_dump(pTHX_ I32 level, PerlIO file, SV sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
	882	PERL_CALLCONV void Perl_magic_dump(pTHX_ MAGIC *mg);
	883	#if defined(PERL_FLEXIBLE_EXCEPTIONS)
	884	PERL_CALLCONV void* Perl_default_protect(pTHX_ volatile JMPENV je, int excpt, protect_body_t body, ...);
	885	PERL_CALLCONV void* Perl_vdefault_protect(pTHX_ volatile JMPENV je, int excpt, protect_body_t body, va_list *args);
	886	#endif
	887	PERL_CALLCONV void Perl_reginitcolors(pTHX);
	888	PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv);
	889	PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv);
	890	PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv);
[18449]	891	/* PERL_CALLCONV char* sv_pv(pTHX_ SV sv); /
	892	/* PERL_CALLCONV char* sv_pvutf8(pTHX_ SV sv); /
	893	/* PERL_CALLCONV char* sv_pvbyte(pTHX_ SV sv); /
	894	/* PERL_CALLCONV STRLEN sv_utf8_upgrade(pTHX_ SV sv); /
[14544]	895	PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *sv, bool fail_ok);
	896	PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *sv);
	897	PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *sv);
	898	PERL_CALLCONV void Perl_sv_force_normal(pTHX_ SV *sv);
[18449]	899	PERL_CALLCONV void Perl_sv_force_normal_flags(pTHX_ SV *sv, U32 flags);
[14544]	900	PERL_CALLCONV void Perl_tmps_grow(pTHX_ I32 n);
	901	PERL_CALLCONV SV* Perl_sv_rvweaken(pTHX_ SV *sv);
	902	PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV sv, MAGIC mg);
	903	PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP proto, OP attrs, OP *block);
	904	PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP o, OP proto, OP attrs, OP block);
	905	PERL_CALLCONV void Perl_newMYSUB(pTHX_ I32 floor, OP o, OP proto, OP attrs, OP block);
	906	PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP o, OP attrs);
	907	PERL_CALLCONV void Perl_boot_core_xsutils(pTHX);
	908	#if defined(USE_ITHREADS)
[18449]	909	PERL_CALLCONV PERL_CONTEXT* Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param);
	910	PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param);
	911	PERL_CALLCONV ANY* Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param);
[14544]	912	PERL_CALLCONV void* Perl_any_dup(pTHX_ void* v, PerlInterpreter* proto_perl);
[18449]	913	PERL_CALLCONV HE* Perl_he_dup(pTHX_ HE* e, bool shared, CLONE_PARAMS* param);
	914	PERL_CALLCONV REGEXP* Perl_re_dup(pTHX_ REGEXP* r, CLONE_PARAMS* param);
	915	PERL_CALLCONV PerlIO* Perl_fp_dup(pTHX_ PerlIO* fp, char type, CLONE_PARAMS* param);
[14544]	916	PERL_CALLCONV DIR* Perl_dirp_dup(pTHX_ DIR* dp);
[18449]	917	PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP* gp, CLONE_PARAMS* param);
	918	PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC* mg, CLONE_PARAMS* param);
	919	PERL_CALLCONV SV* Perl_sv_dup(pTHX_ SV* sstr, CLONE_PARAMS* param);
[14544]	920	#if defined(HAVE_INTERP_INTERN)
	921	PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst);
	922	#endif
	923	PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX);
	924	PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t tbl, void sv);
	925	PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t tbl, void oldsv, void *newsv);
	926	PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl);
[17034]	927	PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl);
	928	PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl);
[14544]	929	#endif
[17034]	930	#if defined(HAVE_INTERP_INTERN)
	931	PERL_CALLCONV void Perl_sys_intern_clear(pTHX);
	932	PERL_CALLCONV void Perl_sys_intern_init(pTHX);
	933	#endif
[14544]	934
[18449]	935	PERL_CALLCONV char * Perl_custom_op_name(pTHX_ OP* op);
	936	PERL_CALLCONV char * Perl_custom_op_desc(pTHX_ OP* op);
	937
	938	PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *);
	939	PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *);
	940	PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *);
	941	PERL_CALLCONV int Perl_nothreadhook(pTHX);
	942
[14544]	943	END_EXTERN_C
	944
	945	#if defined(PERL_IN_AV_C) \|\| defined(PERL_DECL_PROT)
	946	STATIC I32 S_avhv_index_sv(pTHX_ SV* sv);
	947	STATIC I32 S_avhv_index(pTHX_ AV* av, SV* sv, U32 hash);
[10723]	948	#endif
	949
[14544]	950	#if defined(PERL_IN_DOOP_C) \|\| defined(PERL_DECL_PROT)
[17034]	951	STATIC I32 S_do_trans_simple(pTHX_ SV *sv);
	952	STATIC I32 S_do_trans_count(pTHX_ SV *sv);
	953	STATIC I32 S_do_trans_complex(pTHX_ SV *sv);
	954	STATIC I32 S_do_trans_simple_utf8(pTHX_ SV *sv);
	955	STATIC I32 S_do_trans_count_utf8(pTHX_ SV *sv);
	956	STATIC I32 S_do_trans_complex_utf8(pTHX_ SV *sv);
[10723]	957	#endif
	958
[14544]	959	#if defined(PERL_IN_GV_C) \|\| defined(PERL_DECL_PROT)
	960	STATIC void S_gv_init_sv(pTHX_ GV *gv, I32 sv_type);
[18449]	961	STATIC void S_require_errno(pTHX_ GV *gv);
[10723]	962	#endif
	963
[14544]	964	#if defined(PERL_IN_HV_C) \|\| defined(PERL_DECL_PROT)
	965	STATIC void S_hsplit(pTHX_ HV *hv);
	966	STATIC void S_hfreeentries(pTHX_ HV *hv);
	967	STATIC void S_more_he(pTHX);
	968	STATIC HE* S_new_he(pTHX);
	969	STATIC void S_del_he(pTHX_ HE *p);
[18449]	970	STATIC HEK* S_save_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags);
[14544]	971	STATIC void S_hv_magic_check(pTHX_ HV hv, bool needs_copy, bool *needs_store);
[18449]	972	STATIC void S_unshare_hek_or_pvn(pTHX_ HEK* hek, const char* sv, I32 len, U32 hash);
	973	STATIC HEK* S_share_hek_flags(pTHX_ const char* sv, I32 len, U32 hash, int flags);
	974	STATIC void S_hv_notallowed(pTHX_ int flags, const char key, I32 klen, const char msg);
[10723]	975	#endif
[14544]	976
	977	#if defined(PERL_IN_MG_C) \|\| defined(PERL_DECL_PROT)
	978	STATIC void S_save_magic(pTHX_ I32 mgs_ix, SV *sv);
	979	STATIC int S_magic_methpack(pTHX_ SV sv, MAGIC mg, char *meth);
	980	STATIC int S_magic_methcall(pTHX_ SV sv, MAGIC mg, char meth, I32 f, int n, SV val);
	981	#endif
	982
	983	#if defined(PERL_IN_OP_C) \|\| defined(PERL_DECL_PROT)
	984	STATIC I32 S_list_assignment(pTHX_ OP *o);
	985	STATIC void S_bad_type(pTHX_ I32 n, char t, char name, OP *kid);
	986	STATIC void S_cop_free(pTHX_ COP *cop);
	987	STATIC OP* S_modkids(pTHX_ OP *o, I32 type);
	988	STATIC void S_no_bareword_allowed(pTHX_ OP *o);
	989	STATIC OP* S_no_fh_allowed(pTHX_ OP *o);
	990	STATIC OP* S_scalarboolean(pTHX_ OP *o);
	991	STATIC OP* S_too_few_arguments(pTHX_ OP o, char name);
	992	STATIC OP* S_too_many_arguments(pTHX_ OP o, char name);
	993	STATIC OP* S_newDEFSVOP(pTHX);
	994	STATIC OP* S_new_logop(pTHX_ I32 type, I32 flags, OP firstp, OP otherp);
	995	STATIC void S_simplify_sort(pTHX_ OP *o);
	996	STATIC bool S_is_handle_constructor(pTHX_ OP *o, I32 argnum);
	997	STATIC char* S_gv_ename(pTHX_ GV *gv);
	998	STATIC bool S_scalar_mod_type(pTHX_ OP *o, I32 type);
[18449]	999	STATIC OP * S_my_kid(pTHX_ OP o, OP attrs, OP **imopsp);
[14544]	1000	STATIC OP * S_dup_attrlist(pTHX_ OP *o);
[18449]	1001	STATIC void S_apply_attrs(pTHX_ HV stash, SV target, OP *attrs, bool for_my);
	1002	STATIC void S_apply_attrs_my(pTHX_ HV stash, OP target, OP attrs, OP *imopsp);
[14544]	1003	#endif
[20074]	1004	#if defined(PL_OP_SLAB_ALLOC)
	1005	PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ int m, size_t sz);
	1006	PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op);
	1007	#endif
[14544]	1008
	1009	#if defined(PERL_IN_PERL_C) \|\| defined(PERL_DECL_PROT)
	1010	STATIC void S_find_beginning(pTHX);
	1011	STATIC void S_forbid_setid(pTHX_ char *);
[20074]	1012	STATIC void S_incpush(pTHX_ char *, int, int, int);
[14544]	1013	STATIC void S_init_interp(pTHX);
	1014	STATIC void S_init_ids(pTHX);
	1015	STATIC void S_init_lexer(pTHX);
	1016	STATIC void S_init_main_stash(pTHX);
	1017	STATIC void S_init_perllib(pTHX);
	1018	STATIC void S_init_postdump_symbols(pTHX_ int, char , char );
	1019	STATIC void S_init_predump_symbols(pTHX);
	1020	STATIC void S_my_exit_jump(pTHX) __attribute__((noreturn));
	1021	STATIC void S_nuke_stacks(pTHX);
	1022	STATIC void S_open_script(pTHX_ char , bool, SV , int *fd);
	1023	STATIC void S_usage(pTHX_ char *);
	1024	STATIC void S_validate_suid(pTHX_ char , char, int);
	1025	# if defined(IAMSUID)
	1026	STATIC int S_fd_on_nosuid_fs(pTHX_ int fd);
	1027	# endif
	1028	STATIC void* S_parse_body(pTHX_ char **env, XSINIT_t xsinit);
	1029	STATIC void* S_run_body(pTHX_ I32 oldscope);
	1030	STATIC void S_call_body(pTHX_ OP *myop, int is_eval);
	1031	STATIC void* S_call_list_body(pTHX_ CV *cv);
	1032	#if defined(PERL_FLEXIBLE_EXCEPTIONS)
	1033	STATIC void* S_vparse_body(pTHX_ va_list args);
	1034	STATIC void* S_vrun_body(pTHX_ va_list args);
	1035	STATIC void* S_vcall_body(pTHX_ va_list args);
	1036	STATIC void* S_vcall_list_body(pTHX_ va_list args);
	1037	#endif
[18449]	1038	# if defined(USE_5005THREADS)
[14544]	1039	STATIC struct perl_thread * S_init_main_thread(pTHX);
	1040	# endif
	1041	#endif
	1042
	1043	#if defined(PERL_IN_PP_C) \|\| defined(PERL_DECL_PROT)
	1044	STATIC SV* S_refto(pTHX_ SV* sv);
[18449]	1045	#endif
	1046
	1047	#if defined(PERL_IN_PP_PACK_C) \|\| defined(PERL_DECL_PROT)
[20074]	1048	STATIC I32 S_unpack_rec(pTHX_ tempsym_t* symptr, char s, char strbeg, char strend, char *new_s);
	1049	STATIC SV ** S_pack_rec(pTHX_ SV cat, tempsym_t symptr, SV beglist, SV endlist);
[14544]	1050	STATIC SV* S_mul128(pTHX_ SV *sv, U8 m);
[20074]	1051	STATIC I32 S_measure_struct(pTHX_ tempsym_t* symptr);
	1052	STATIC char * S_group_end(pTHX_ char pat, char patend, char ender);
	1053	STATIC char * S_get_num(pTHX_ char ppat, I32 );
	1054	STATIC bool S_next_symbol(pTHX_ tempsym_t* symptr);
	1055	STATIC void S_doencodes(pTHX_ SV* sv, char* s, I32 len);
[14544]	1056	STATIC SV* S_is_an_int(pTHX_ char *s, STRLEN l);
	1057	STATIC int S_div128(pTHX_ SV pnum, bool done);
	1058	#endif
	1059
	1060	#if defined(PERL_IN_PP_CTL_C) \|\| defined(PERL_DECL_PROT)
	1061	STATIC OP* S_docatch(pTHX_ OP *o);
	1062	STATIC void* S_docatch_body(pTHX);
	1063	#if defined(PERL_FLEXIBLE_EXCEPTIONS)
	1064	STATIC void* S_vdocatch_body(pTHX_ va_list args);
	1065	#endif
	1066	STATIC OP* S_dofindlabel(pTHX_ OP o, char label, OP opstack, OP oplimit);
	1067	STATIC void S_doparseform(pTHX_ SV *sv);
	1068	STATIC I32 S_dopoptoeval(pTHX_ I32 startingblock);
	1069	STATIC I32 S_dopoptolabel(pTHX_ char *label);
	1070	STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock);
	1071	STATIC I32 S_dopoptosub(pTHX_ I32 startingblock);
	1072	STATIC I32 S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock);
	1073	STATIC void S_save_lines(pTHX_ AV array, SV sv);
[20074]	1074	STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq);
	1075	STATIC PerlIO * S_doopen_pm(pTHX_ const char name, const char mode);
[18449]	1076	STATIC bool S_path_is_absolute(pTHX_ char *name);
[14544]	1077	#endif
	1078
	1079	#if defined(PERL_IN_PP_HOT_C) \|\| defined(PERL_DECL_PROT)
	1080	STATIC int S_do_maybe_phash(pTHX_ AV ary, SV lelem, SV firstlelem, SV relem, SV *lastrelem);
	1081	STATIC void S_do_oddball(pTHX_ HV hash, SV relem, SV *firstrelem);
	1082	STATIC CV* S_get_db_sub(pTHX_ SV *svp, CV cv);
	1083	STATIC SV* S_method_common(pTHX_ SV* meth, U32* hashp);
	1084	#endif
	1085
	1086	#if defined(PERL_IN_PP_SYS_C) \|\| defined(PERL_DECL_PROT)
	1087	STATIC OP* S_doform(pTHX_ CV cv, GV gv, OP *retop);
	1088	STATIC int S_emulate_eaccess(pTHX_ const char* path, Mode_t mode);
	1089	# if !defined(HAS_MKDIR) \|\| !defined(HAS_RMDIR)
	1090	STATIC int S_dooneliner(pTHX_ char cmd, char filename);
	1091	# endif
	1092	#endif
	1093
	1094	#if defined(PERL_IN_REGCOMP_C) \|\| defined(PERL_DECL_PROT)
[18449]	1095	STATIC regnode* S_reg(pTHX_ struct RExC_state_t, I32, I32 );
	1096	STATIC regnode* S_reganode(pTHX_ struct RExC_state_t*, U8, U32);
	1097	STATIC regnode* S_regatom(pTHX_ struct RExC_state_t, I32 );
	1098	STATIC regnode* S_regbranch(pTHX_ struct RExC_state_t, I32 , I32);
	1099	STATIC void S_reguni(pTHX_ struct RExC_state_t, UV, char , STRLEN*);
	1100	STATIC regnode* S_regclass(pTHX_ struct RExC_state_t*);
[14544]	1101	STATIC I32 S_regcurly(pTHX_ char *);
[18449]	1102	STATIC regnode* S_reg_node(pTHX_ struct RExC_state_t*, U8);
	1103	STATIC regnode* S_regpiece(pTHX_ struct RExC_state_t, I32 );
	1104	STATIC void S_reginsert(pTHX_ struct RExC_state_t, U8, regnode );
	1105	STATIC void S_regoptail(pTHX_ struct RExC_state_t, regnode , regnode *);
	1106	STATIC void S_regtail(pTHX_ struct RExC_state_t, regnode , regnode *);
[14544]	1107	STATIC char* S_regwhite(pTHX_ char , char );
[18449]	1108	STATIC char* S_nextchar(pTHX_ struct RExC_state_t*);
	1109	# ifdef DEBUGGING
[14544]	1110	STATIC regnode* S_dumpuntil(pTHX_ regnode start, regnode node, regnode last, SV sv, I32 l);
	1111	STATIC void S_put_byte(pTHX_ SV* sv, int c);
[18449]	1112	# endif
	1113	STATIC void S_scan_commit(pTHX_ struct RExC_state_t, struct scan_data_t data);
	1114	STATIC void S_cl_anything(pTHX_ struct RExC_state_t, struct regnode_charclass_class cl);
[14544]	1115	STATIC int S_cl_is_anything(pTHX_ struct regnode_charclass_class *cl);
[18449]	1116	STATIC void S_cl_init(pTHX_ struct RExC_state_t, struct regnode_charclass_class cl);
	1117	STATIC void S_cl_init_zero(pTHX_ struct RExC_state_t, struct regnode_charclass_class cl);
[14544]	1118	STATIC void S_cl_and(pTHX_ struct regnode_charclass_class cl, struct regnode_charclass_class and_with);
[18449]	1119	STATIC void S_cl_or(pTHX_ struct RExC_state_t, struct regnode_charclass_class cl, struct regnode_charclass_class *or_with);
	1120	STATIC I32 S_study_chunk(pTHX_ struct RExC_state_t, regnode scanp, I32 deltap, regnode last, struct scan_data_t data, U32 flags);
	1121	STATIC I32 S_add_data(pTHX_ struct RExC_state_t, I32 n, char s);
[14544]	1122	STATIC void S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...) __attribute__((noreturn));
[18449]	1123	STATIC I32 S_regpposixcc(pTHX_ struct RExC_state_t*, I32 value);
	1124	STATIC void S_checkposixcc(pTHX_ struct RExC_state_t*);
[14544]	1125	#endif
	1126
	1127	#if defined(PERL_IN_REGEXEC_C) \|\| defined(PERL_DECL_PROT)
	1128	STATIC I32 S_regmatch(pTHX_ regnode *prog);
	1129	STATIC I32 S_regrepeat(pTHX_ regnode *p, I32 max);
	1130	STATIC I32 S_regrepeat_hard(pTHX_ regnode p, I32 max, I32 lp);
	1131	STATIC I32 S_regtry(pTHX_ regexp prog, char startpos);
[18449]	1132	STATIC bool S_reginclass(pTHX_ regnode n, U8 p, STRLEN *lenp, bool do_utf8sv_is_utf8);
[14544]	1133	STATIC CHECKPOINT S_regcppush(pTHX_ I32 parenfloor);
	1134	STATIC char* S_regcppop(pTHX);
	1135	STATIC char* S_regcp_set_to(pTHX_ I32 ss);
	1136	STATIC void S_cache_re(pTHX_ regexp *prog);
	1137	STATIC U8* S_reghop(pTHX_ U8 *pos, I32 off);
[18449]	1138	STATIC U8* S_reghop3(pTHX_ U8 pos, I32 off, U8 lim);
[14544]	1139	STATIC U8* S_reghopmaybe(pTHX_ U8 *pos, I32 off);
[18449]	1140	STATIC U8* S_reghopmaybe3(pTHX_ U8 pos, I32 off, U8 lim);
[14544]	1141	STATIC char* S_find_byclass(pTHX_ regexp * prog, regnode c, char s, char strend, char startpos, I32 norun);
[18449]	1142	STATIC void S_to_utf8_substr(pTHX_ regexp * prog);
	1143	STATIC void S_to_byte_substr(pTHX_ regexp * prog);
[14544]	1144	#endif
	1145
[18449]	1146	#if defined(PERL_IN_DUMP_C) \|\| defined(PERL_DECL_PROT)
	1147	STATIC CV* S_deb_curcv(pTHX_ I32 ix);
[14544]	1148	STATIC void S_debprof(pTHX_ OP *o);
	1149	#endif
	1150
	1151	#if defined(PERL_IN_SCOPE_C) \|\| defined(PERL_DECL_PROT)
	1152	STATIC SV* S_save_scalar_at(pTHX_ SV **sptr);
	1153	#endif
	1154
	1155	#if defined(PERL_IN_SV_C) \|\| defined(PERL_DECL_PROT)
	1156	STATIC IV S_asIV(pTHX_ SV* sv);
	1157	STATIC UV S_asUV(pTHX_ SV* sv);
	1158	STATIC SV* S_more_sv(pTHX);
	1159	STATIC void S_more_xiv(pTHX);
	1160	STATIC void S_more_xnv(pTHX);
	1161	STATIC void S_more_xpv(pTHX);
	1162	STATIC void S_more_xpviv(pTHX);
	1163	STATIC void S_more_xpvnv(pTHX);
	1164	STATIC void S_more_xpvcv(pTHX);
	1165	STATIC void S_more_xpvav(pTHX);
	1166	STATIC void S_more_xpvhv(pTHX);
	1167	STATIC void S_more_xpvmg(pTHX);
	1168	STATIC void S_more_xpvlv(pTHX);
	1169	STATIC void S_more_xpvbm(pTHX);
	1170	STATIC void S_more_xrv(pTHX);
	1171	STATIC XPVIV* S_new_xiv(pTHX);
	1172	STATIC XPVNV* S_new_xnv(pTHX);
	1173	STATIC XPV* S_new_xpv(pTHX);
	1174	STATIC XPVIV* S_new_xpviv(pTHX);
	1175	STATIC XPVNV* S_new_xpvnv(pTHX);
	1176	STATIC XPVCV* S_new_xpvcv(pTHX);
	1177	STATIC XPVAV* S_new_xpvav(pTHX);
	1178	STATIC XPVHV* S_new_xpvhv(pTHX);
	1179	STATIC XPVMG* S_new_xpvmg(pTHX);
	1180	STATIC XPVLV* S_new_xpvlv(pTHX);
	1181	STATIC XPVBM* S_new_xpvbm(pTHX);
	1182	STATIC XRV* S_new_xrv(pTHX);
	1183	STATIC void S_del_xiv(pTHX_ XPVIV* p);
	1184	STATIC void S_del_xnv(pTHX_ XPVNV* p);
	1185	STATIC void S_del_xpv(pTHX_ XPV* p);
	1186	STATIC void S_del_xpviv(pTHX_ XPVIV* p);
	1187	STATIC void S_del_xpvnv(pTHX_ XPVNV* p);
	1188	STATIC void S_del_xpvcv(pTHX_ XPVCV* p);
	1189	STATIC void S_del_xpvav(pTHX_ XPVAV* p);
	1190	STATIC void S_del_xpvhv(pTHX_ XPVHV* p);
	1191	STATIC void S_del_xpvmg(pTHX_ XPVMG* p);
	1192	STATIC void S_del_xpvlv(pTHX_ XPVLV* p);
	1193	STATIC void S_del_xpvbm(pTHX_ XPVBM* p);
	1194	STATIC void S_del_xrv(pTHX_ XRV* p);
	1195	STATIC void S_sv_unglob(pTHX_ SV* sv);
	1196	STATIC void S_not_a_number(pTHX_ SV *sv);
[17034]	1197	STATIC I32 S_visit(pTHX_ SVFUNC_t f);
[18449]	1198	STATIC void S_sv_add_backref(pTHX_ SV tsv, SV sv);
	1199	STATIC void S_sv_del_backref(pTHX_ SV *sv);
	1200	# ifdef DEBUGGING
[14544]	1201	STATIC void S_del_sv(pTHX_ SV *p);
	1202	# endif
[18449]	1203	# if !defined(NV_PRESERVES_UV)
	1204	STATIC int S_sv_2iuv_non_preserve(pTHX_ SV *sv, I32 numtype);
	1205	# endif
	1206	STATIC I32 S_expect_number(pTHX_ char** pattern);
	1207	#
	1208	# if defined(USE_ITHREADS)
	1209	STATIC SV* S_gv_share(pTHX_ SV sv, CLONE_PARAMS param);
	1210	# endif
[20074]	1211	STATIC bool S_utf8_mg_pos(pTHX_ SV sv, MAGIC mgp, STRLEN cachep, I32 i, I32 offsetp, I32 uoff, U8 *sp, U8 start, U8 *send);
	1212	STATIC bool S_utf8_mg_pos_init(pTHX_ SV sv, MAGIC mgp, STRLEN cachep, I32 i, I32 offsetp, U8 s, U8 start);
[14544]	1213	#endif
	1214
	1215	#if defined(PERL_IN_TOKE_C) \|\| defined(PERL_DECL_PROT)
	1216	STATIC void S_check_uni(pTHX);
	1217	STATIC void S_force_next(pTHX_ I32 type);
[18449]	1218	STATIC char* S_force_version(pTHX_ char *start, int guessing);
[14544]	1219	STATIC char* S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack, int allow_tick);
	1220	STATIC SV* S_tokeq(pTHX_ SV *sv);
[18449]	1221	STATIC int S_pending_ident(pTHX);
[14544]	1222	STATIC char* S_scan_const(pTHX_ char *start);
	1223	STATIC char* S_scan_formline(pTHX_ char *s);
	1224	STATIC char* S_scan_heredoc(pTHX_ char *s);
	1225	STATIC char* S_scan_ident(pTHX_ char s, char send, char *dest, STRLEN destlen, I32 ck_uni);
	1226	STATIC char* S_scan_inputsymbol(pTHX_ char *start);
	1227	STATIC char* S_scan_pat(pTHX_ char *start, I32 type);
	1228	STATIC char* S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims);
	1229	STATIC char* S_scan_subst(pTHX_ char *start);
	1230	STATIC char* S_scan_trans(pTHX_ char *start);
	1231	STATIC char* S_scan_word(pTHX_ char s, char dest, STRLEN destlen, int allow_package, STRLEN *slp);
	1232	STATIC char* S_skipspace(pTHX_ char *s);
[17034]	1233	STATIC char* S_swallow_bom(pTHX_ U8 *s);
[14544]	1234	STATIC void S_checkcomma(pTHX_ char s, char name, char *what);
	1235	STATIC void S_force_ident(pTHX_ char *s, int kind);
	1236	STATIC void S_incline(pTHX_ char *s);
	1237	STATIC int S_intuit_method(pTHX_ char s, GV gv);
	1238	STATIC int S_intuit_more(pTHX_ char *s);
	1239	STATIC I32 S_lop(pTHX_ I32 f, int x, char *s);
	1240	STATIC void S_missingterm(pTHX_ char *s);
	1241	STATIC void S_no_op(pTHX_ char what, char s);
	1242	STATIC void S_set_csh(pTHX);
	1243	STATIC I32 S_sublex_done(pTHX);
	1244	STATIC I32 S_sublex_push(pTHX);
	1245	STATIC I32 S_sublex_start(pTHX);
	1246	STATIC char * S_filter_gets(pTHX_ SV sv, PerlIO fp, STRLEN append);
[17034]	1247	STATIC HV * S_find_in_my_stash(pTHX_ char *pkgname, I32 len);
[14544]	1248	STATIC SV* S_new_constant(pTHX_ char s, STRLEN len, const char key, SV sv, SV pv, const char *type);
[18449]	1249	# if defined(DEBUGGING)
	1250	STATIC void S_tokereport(pTHX_ char thing, char s, I32 rv);
	1251	# endif
[14544]	1252	STATIC int S_ao(pTHX_ int toketype);
	1253	STATIC void S_depcom(pTHX);
	1254	STATIC char* S_incl_perldb(pTHX);
	1255	#if 0
	1256	STATIC I32 S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen);
	1257	STATIC I32 S_utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen);
	1258	#endif
	1259	# if defined(PERL_CR_FILTER)
	1260	STATIC I32 S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
	1261	# endif
	1262	#endif
	1263
	1264	#if defined(PERL_IN_UNIVERSAL_C) \|\| defined(PERL_DECL_PROT)
[18449]	1265	STATIC SV* S_isa_lookup(pTHX_ HV stash, const char name, HV *name_stash, int len, int level);
[14544]	1266	#endif
	1267
[18449]	1268	#if defined(PERL_IN_LOCALE_C) \|\| defined(PERL_DECL_PROT)
	1269	STATIC char* S_stdize_locale(pTHX_ char* locs);
	1270	#endif
	1271
[14544]	1272	#if defined(PERL_IN_UTIL_C) \|\| defined(PERL_DECL_PROT)
[18449]	1273	STATIC COP* S_closest_cop(pTHX_ COP cop, OP o);
[14544]	1274	STATIC SV* S_mess_alloc(pTHX);
	1275	#endif
	1276
[20074]	1277	#if defined(PERL_IN_NUMERIC_C) \|\| defined(PERL_DECL_PROT)
	1278	STATIC NV S_mulexp10(NV value, I32 exponent);
	1279	#endif
	1280
[18449]	1281	START_EXTERN_C
	1282
	1283	PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
	1284	PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags);
	1285	PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags);
	1286	PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags);
	1287	PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
	1288	PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags);
	1289	PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv);
	1290	PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char s, NV value);
	1291	PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
	1292
	1293	#if defined(USE_PERLIO) && !defined(USE_SFIO)
	1294	PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *);
	1295	PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *);
	1296	PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *);
	1297	PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *);
	1298	PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *);
	1299	PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *);
	1300	PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *);
	1301	PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *, int);
	1302	PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO , STDCHAR , int);
	1303	PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *);
	1304	PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO , void , Size_t);
	1305	PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO , const void , Size_t);
	1306	PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO , const void , Size_t);
	1307	PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *);
	1308	PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *, Off_t, int);
	1309
	1310	PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *);
	1311	PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *);
	1312	PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *);
	1313	PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *);
	1314
	1315	PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX);
	1316	PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX);
	1317	PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX);
	1318	#endif /* PERLIO_LAYERS */
	1319
[20074]	1320	PERL_CALLCONV void Perl_deb_stack_all(pTHX);
	1321	#ifdef PERL_IN_DEB_C
	1322	STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max);
	1323	#endif
[18449]	1324
[20074]	1325	PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags);
	1326	PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv);
	1327	PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ char name, HV typestash, HV* ourstash, bool clone);
	1328	PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type);
	1329	PERL_CALLCONV void Perl_pad_check_dup(pTHX_ char* name, bool is_our, HV* ourstash);
	1330	#ifdef DEBUGGING
	1331	PERL_CALLCONV void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv);
	1332	#endif
	1333	PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full);
	1334	PERL_CALLCONV void Perl_pad_tidy(pTHX_ padtidy_type type);
	1335	PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO file, PADLIST padlist, int full);
	1336	PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST padlist, CV old_cv, CV *new_cv);
	1337
	1338	PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args);
	1339
	1340	#if defined(PERL_IN_PAD_C) \|\| defined(PERL_DECL_PROT)
	1341	STATIC PADOFFSET S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, CV* innercv);
	1342	# if defined(DEBUGGING)
	1343	STATIC void S_cv_dump(pTHX_ CV cv, char title);
	1344	# endif
	1345	STATIC CV* S_cv_clone2(pTHX_ CV proto, CV outside);
	1346	#endif
	1347	PERL_CALLCONV CV* Perl_find_runcv(pTHX_ U32 *db_seqp);
	1348	PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX);
	1349	#if defined(DEBUGGING)
	1350	PERL_CALLCONV int Perl_get_debug_opts(pTHX_ char **s);
	1351	#endif
	1352
	1353
	1354
	1355
	1356	PERL_CALLCONV void Perl_hv_clear_placeholders(pTHX_ HV* hb);
	1357
	1358	#if defined(PERL_IN_HV_C) \|\| defined(PERL_DECL_PROT)
	1359	STATIC SV* S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
	1360	STATIC HE* S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash);
	1361	#endif
	1362	PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV* hv);
	1363	PERL_CALLCONV SV* Perl_magic_scalarpack(pTHX_ HV* hv, MAGIC* mg);
	1364
	1365	END_EXTERN_C

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

Context Navigation

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

Download in other formats: