X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=34181b67bd1d3e40b06868b8880efe532c833978;hb=70ee44090a3faf48295f65df1a1fe1c53d04be10;hp=3dc9e1f12a924fa0d7ce0499c56b0ddb5361facf;hpb=2393f1b901d4e694bd945211b6a0392db1b3cf57;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 3dc9e1f..34181b6 100644 --- a/embed.h +++ b/embed.h @@ -6,51 +6,18 @@ * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * - * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - * This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h, - * perlvars.h and thrdvar.h. Any changes made here will be lost! + * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + * This file is built by embed.pl from data in embed.fnc, embed.pl, + * pp.sym, intrpvar.h, perlvars.h and thrdvar.h. + * Any changes made here will be lost! + * + * Edit those files and run 'make regen_headers' to effect changes. */ /* (Doing namespace management portably in C is really gross.) */ /* NO_EMBED is no longer supported. i.e. EMBED is always active. */ -/* provide binary compatible (but inconsistent) names */ -#if defined(PERL_BINCOMPAT_5005) -# define Perl_call_atexit perl_atexit -# define Perl_eval_sv perl_eval_sv -# define Perl_eval_pv perl_eval_pv -# define Perl_call_argv perl_call_argv -# define Perl_call_method perl_call_method -# define Perl_call_pv perl_call_pv -# define Perl_call_sv perl_call_sv -# define Perl_get_av perl_get_av -# define Perl_get_cv perl_get_cv -# define Perl_get_hv perl_get_hv -# define Perl_get_sv perl_get_sv -# define Perl_init_i18nl10n perl_init_i18nl10n -# define Perl_init_i18nl14n perl_init_i18nl14n -# define Perl_new_collate perl_new_collate -# define Perl_new_ctype perl_new_ctype -# define Perl_new_numeric perl_new_numeric -# define Perl_require_pv perl_require_pv -# define Perl_safesyscalloc Perl_safecalloc -# define Perl_safesysfree Perl_safefree -# define Perl_safesysmalloc Perl_safemalloc -# define Perl_safesysrealloc Perl_saferealloc -# define Perl_set_numeric_local perl_set_numeric_local -# define Perl_set_numeric_standard perl_set_numeric_standard -/* malloc() pollution was the default in earlier versions, so enable - * it for bincompat; but not for systems that used to do prevent that, - * or when they ask for {HIDE,EMBED}MYMALLOC */ -# if !defined(EMBEDMYMALLOC) && !defined(HIDEMYMALLOC) -# if !defined(NeXT) && !defined(__NeXT) && !defined(__MACHTEN__) && \ - !defined(__QNX__) -# define PERL_POLLUTE_MALLOC -# endif -# endif -#endif - /* Hide global symbols */ #if !defined(PERL_IMPLICIT_CONTEXT) @@ -73,13 +40,6 @@ #define append_list Perl_append_list #define apply Perl_apply #define apply_attrs_string Perl_apply_attrs_string -#define avhv_delete_ent Perl_avhv_delete_ent -#define avhv_exists_ent Perl_avhv_exists_ent -#define avhv_fetch_ent Perl_avhv_fetch_ent -#define avhv_store_ent Perl_avhv_store_ent -#define avhv_iternext Perl_avhv_iternext -#define avhv_iterval Perl_avhv_iterval -#define avhv_keys Perl_avhv_keys #define av_clear Perl_av_clear #define av_delete Perl_av_delete #define av_exists Perl_av_exists @@ -111,9 +71,6 @@ #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) #define my_chsize Perl_my_chsize #endif -#if defined(USE_5005THREADS) -#define condpair_magic Perl_condpair_magic -#endif #define convert Perl_convert #define croak Perl_croak #define vcroak Perl_vcroak @@ -169,6 +126,11 @@ #define do_close Perl_do_close #define do_eof Perl_do_eof #define do_exec Perl_do_exec +#if defined(WIN32) +#define do_aspawn Perl_do_aspawn +#define do_spawn Perl_do_spawn +#define do_spawn_nowait Perl_do_spawn_nowait +#endif #if !defined(WIN32) #define do_exec3 Perl_do_exec3 #endif @@ -214,9 +176,6 @@ #define fbm_compile Perl_fbm_compile #define fbm_instr Perl_fbm_instr #define find_script Perl_find_script -#if defined(USE_5005THREADS) -#define find_threadsv Perl_find_threadsv -#endif #define force_list Perl_force_list #define fold_constants Perl_fold_constants #define form Perl_form @@ -263,11 +222,13 @@ #define hv_iterkeysv Perl_hv_iterkeysv #define hv_iternext Perl_hv_iternext #define hv_iternextsv Perl_hv_iternextsv +#define hv_iternext_flags Perl_hv_iternext_flags #define hv_iterval Perl_hv_iterval #define hv_ksplit Perl_hv_ksplit #define hv_magic Perl_hv_magic #define hv_store Perl_hv_store #define hv_store_ent Perl_hv_store_ent +#define hv_store_flags Perl_hv_store_flags #define hv_undef Perl_hv_undef #define ibcmp Perl_ibcmp #define ibcmp_locale Perl_ibcmp_locale @@ -323,6 +284,7 @@ #define is_utf8_alnum Perl_is_utf8_alnum #define is_utf8_alnumc Perl_is_utf8_alnumc #define is_utf8_idfirst Perl_is_utf8_idfirst +#define is_utf8_idcont Perl_is_utf8_idcont #define is_utf8_alpha Perl_is_utf8_alpha #define is_utf8_ascii Perl_is_utf8_ascii #define is_utf8_space Perl_is_utf8_space @@ -374,9 +336,6 @@ #define magic_getuvar Perl_magic_getuvar #define magic_getvec Perl_magic_getvec #define magic_len Perl_magic_len -#if defined(USE_5005THREADS) -#define magic_mutexfree Perl_magic_mutexfree -#endif #define magic_nextpack Perl_magic_nextpack #define magic_regdata_cnt Perl_magic_regdata_cnt #define magic_regdatum_get Perl_magic_regdatum_get @@ -513,14 +472,20 @@ #define newUNOP Perl_newUNOP #define newWHILEOP Perl_newWHILEOP #define new_stackinfo Perl_new_stackinfo -#define new_vstring Perl_new_vstring +#define scan_vstring Perl_scan_vstring +#define scan_version Perl_scan_version +#define new_version Perl_new_version +#define upg_version Perl_upg_version +#define vnumify Perl_vnumify +#define vstringify Perl_vstringify +#define vcmp Perl_vcmp #define nextargv Perl_nextargv #define ninstr Perl_ninstr #define oopsCV Perl_oopsCV #define op_free Perl_op_free #define package Perl_package #define pad_alloc Perl_pad_alloc -#define pad_allocmy Perl_pad_allocmy +#define allocmy Perl_allocmy #define pad_findmy Perl_pad_findmy #define oopsAV Perl_oopsAV #define oopsHV Perl_oopsHV @@ -530,9 +495,6 @@ #define pad_reset Perl_pad_reset #define pad_swipe Perl_pad_swipe #define peep Perl_peep -#if defined(USE_5005THREADS) -#define new_struct_thread Perl_new_struct_thread -#endif #if defined(USE_REENTRANT_API) #define reentrant_size Perl_reentrant_size #define reentrant_init Perl_reentrant_init @@ -602,6 +564,7 @@ #define save_alloc Perl_save_alloc #define save_aptr Perl_save_aptr #define save_ary Perl_save_ary +#define save_bool Perl_save_bool #define save_clearsv Perl_save_clearsv #define save_delete Perl_save_delete #define save_destructor Perl_save_destructor @@ -722,7 +685,6 @@ #define sv_setpvf Perl_sv_setpvf #define sv_vsetpvf Perl_sv_vsetpvf #define sv_setiv Perl_sv_setiv -#define sv_setpviv Perl_sv_setpviv #define sv_setuv Perl_sv_setuv #define sv_setnv Perl_sv_setnv #define sv_setref_iv Perl_sv_setref_iv @@ -755,9 +717,6 @@ #if defined(UNLINK_ALL_VERSIONS) #define unlnk Perl_unlnk #endif -#if defined(USE_5005THREADS) -#define unlock_condpair Perl_unlock_condpair -#endif #define unpack_str Perl_unpack_str #define unsharepvn Perl_unsharepvn #define unshare_hek Perl_unshare_hek @@ -806,20 +765,11 @@ #define safesyscalloc Perl_safesyscalloc #define safesysrealloc Perl_safesysrealloc #define safesysfree Perl_safesysfree -#if defined(LEAKTEST) -#define safexmalloc Perl_safexmalloc -#define safexcalloc Perl_safexcalloc -#define safexrealloc Perl_safexrealloc -#define safexfree Perl_safexfree -#endif #if defined(PERL_GLOBAL_STRUCT) #define GetVars Perl_GetVars #endif #define runops_standard Perl_runops_standard #define runops_debug Perl_runops_debug -#if defined(USE_5005THREADS) -#define sv_lock Perl_sv_lock -#endif #define sv_catpvf_mg Perl_sv_catpvf_mg #define sv_vcatpvf_mg Perl_sv_vcatpvf_mg #define sv_catpv_mg Perl_sv_catpv_mg @@ -828,7 +778,6 @@ #define sv_setpvf_mg Perl_sv_setpvf_mg #define sv_vsetpvf_mg Perl_sv_vsetpvf_mg #define sv_setiv_mg Perl_sv_setiv_mg -#define sv_setpviv_mg Perl_sv_setpviv_mg #define sv_setuv_mg Perl_sv_setuv_mg #define sv_setnv_mg Perl_sv_setnv_mg #define sv_setpv_mg Perl_sv_setpv_mg @@ -896,14 +845,13 @@ #endif #define custom_op_name Perl_custom_op_name #define custom_op_desc Perl_custom_op_desc +#if defined(PERL_COPY_ON_WRITE) +#define sv_release_IVX Perl_sv_release_IVX +#endif #define sv_nosharing Perl_sv_nosharing #define sv_nolocking Perl_sv_nolocking #define sv_nounlocking Perl_sv_nounlocking #define nothreadhook Perl_nothreadhook -#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) -#define avhv_index_sv S_avhv_index_sv -#define avhv_index S_avhv_index -#endif #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) #define do_trans_simple S_do_trans_simple #define do_trans_count S_do_trans_count @@ -926,7 +874,6 @@ #define hv_magic_check S_hv_magic_check #define unshare_hek_or_pvn S_unshare_hek_or_pvn #define share_hek_flags S_share_hek_flags -#define hv_store_flags S_hv_store_flags #define hv_fetch_flags S_hv_fetch_flags #define hv_notallowed S_hv_notallowed #endif @@ -945,17 +892,11 @@ #define scalarboolean S_scalarboolean #define too_few_arguments S_too_few_arguments #define too_many_arguments S_too_many_arguments -#define pad_addlex S_pad_addlex -#define pad_findlex S_pad_findlex #define newDEFSVOP S_newDEFSVOP #define new_logop S_new_logop #define simplify_sort S_simplify_sort #define is_handle_constructor S_is_handle_constructor #define gv_ename S_gv_ename -# if defined(DEBUG_CLOSURES) -#define cv_dump S_cv_dump -# endif -#define cv_clone2 S_cv_clone2 #define scalar_mod_type S_scalar_mod_type #define my_kid S_my_kid #define dup_attrlist S_dup_attrlist @@ -995,9 +936,6 @@ #define vcall_body S_vcall_body #define vcall_list_body S_vcall_list_body #endif -# if defined(USE_5005THREADS) -#define init_main_thread S_init_main_thread -# endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) #define refto S_refto @@ -1032,7 +970,6 @@ #define path_is_absolute S_path_is_absolute #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) -#define do_maybe_phash S_do_maybe_phash #define do_oddball S_do_oddball #define get_db_sub S_get_db_sub #define method_common S_method_common @@ -1156,6 +1093,9 @@ # if defined(USE_ITHREADS) #define gv_share S_gv_share # endif +#if defined(PERL_COPY_ON_WRITE) +#define sv_release_COW S_sv_release_COW +#endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #define check_uni S_check_uni @@ -1214,9 +1154,6 @@ #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) #define closest_cop S_closest_cop #define mess_alloc S_mess_alloc -# if defined(LEAKTEST) -#define xstat S_xstat -# endif #endif #define sv_setsv_flags Perl_sv_setsv_flags #define sv_catpvn_flags Perl_sv_catpvn_flags @@ -1251,6 +1188,31 @@ #define PerlIO_stdout Perl_PerlIO_stdout #define PerlIO_stderr Perl_PerlIO_stderr #endif /* PERLIO_LAYERS */ +#define deb_stack_all Perl_deb_stack_all +#ifdef PERL_IN_DEB_C +#define deb_stack_n S_deb_stack_n +#endif +#define pad_new Perl_pad_new +#define pad_undef Perl_pad_undef +#define pad_add_name Perl_pad_add_name +#define pad_add_anon Perl_pad_add_anon +#define pad_check_dup Perl_pad_check_dup +#ifdef DEBUGGING +#define pad_setsv Perl_pad_setsv +#endif +#define pad_block_start Perl_pad_block_start +#define pad_tidy Perl_pad_tidy +#define do_dump_pad Perl_do_dump_pad +#define pad_fixup_inner_anons Perl_pad_fixup_inner_anons +#define pad_push Perl_pad_push +#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) +#define pad_findlex S_pad_findlex +# if defined(DEBUGGING) +#define cv_dump S_cv_dump +# endif +#define cv_clone2 S_cv_clone2 +#endif +#define find_runcv Perl_find_runcv #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -1337,6 +1299,8 @@ #define pp_die Perl_pp_die #define pp_divide Perl_pp_divide #define pp_dofile Perl_pp_dofile +#define pp_dor Perl_pp_dor +#define pp_dorassign Perl_pp_dorassign #define pp_dump Perl_pp_dump #define pp_each Perl_pp_each #define pp_egrent Perl_pp_egrent @@ -1658,13 +1622,6 @@ #define append_list(a,b,c) Perl_append_list(aTHX_ a,b,c) #define apply(a,b,c) Perl_apply(aTHX_ a,b,c) #define apply_attrs_string(a,b,c,d) Perl_apply_attrs_string(aTHX_ a,b,c,d) -#define avhv_delete_ent(a,b,c,d) Perl_avhv_delete_ent(aTHX_ a,b,c,d) -#define avhv_exists_ent(a,b,c) Perl_avhv_exists_ent(aTHX_ a,b,c) -#define avhv_fetch_ent(a,b,c,d) Perl_avhv_fetch_ent(aTHX_ a,b,c,d) -#define avhv_store_ent(a,b,c,d) Perl_avhv_store_ent(aTHX_ a,b,c,d) -#define avhv_iternext(a) Perl_avhv_iternext(aTHX_ a) -#define avhv_iterval(a,b) Perl_avhv_iterval(aTHX_ a,b) -#define avhv_keys(a) Perl_avhv_keys(aTHX_ a) #define av_clear(a) Perl_av_clear(aTHX_ a) #define av_delete(a,b,c) Perl_av_delete(aTHX_ a,b,c) #define av_exists(a,b) Perl_av_exists(aTHX_ a,b) @@ -1696,9 +1653,6 @@ #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) #define my_chsize(a,b) Perl_my_chsize(aTHX_ a,b) #endif -#if defined(USE_5005THREADS) -#define condpair_magic(a) Perl_condpair_magic(aTHX_ a) -#endif #define convert(a,b,c) Perl_convert(aTHX_ a,b,c) #define vcroak(a,b) Perl_vcroak(aTHX_ a,b) #if defined(PERL_IMPLICIT_CONTEXT) @@ -1736,6 +1690,11 @@ #define do_close(a,b) Perl_do_close(aTHX_ a,b) #define do_eof(a) Perl_do_eof(aTHX_ a) #define do_exec(a) Perl_do_exec(aTHX_ a) +#if defined(WIN32) +#define do_aspawn(a,b,c) Perl_do_aspawn(aTHX_ a,b,c) +#define do_spawn(a) Perl_do_spawn(aTHX_ a) +#define do_spawn_nowait(a) Perl_do_spawn_nowait(aTHX_ a) +#endif #if !defined(WIN32) #define do_exec3(a,b,c) Perl_do_exec3(aTHX_ a,b,c) #endif @@ -1781,9 +1740,6 @@ #define fbm_compile(a,b) Perl_fbm_compile(aTHX_ a,b) #define fbm_instr(a,b,c,d) Perl_fbm_instr(aTHX_ a,b,c,d) #define find_script(a,b,c,d) Perl_find_script(aTHX_ a,b,c,d) -#if defined(USE_5005THREADS) -#define find_threadsv(a) Perl_find_threadsv(aTHX_ a) -#endif #define force_list(a) Perl_force_list(aTHX_ a) #define fold_constants(a) Perl_fold_constants(aTHX_ a) #define vform(a,b) Perl_vform(aTHX_ a,b) @@ -1829,11 +1785,13 @@ #define hv_iterkeysv(a) Perl_hv_iterkeysv(aTHX_ a) #define hv_iternext(a) Perl_hv_iternext(aTHX_ a) #define hv_iternextsv(a,b,c) Perl_hv_iternextsv(aTHX_ a,b,c) +#define hv_iternext_flags(a,b) Perl_hv_iternext_flags(aTHX_ a,b) #define hv_iterval(a,b) Perl_hv_iterval(aTHX_ a,b) #define hv_ksplit(a,b) Perl_hv_ksplit(aTHX_ a,b) #define hv_magic(a,b,c) Perl_hv_magic(aTHX_ a,b,c) #define hv_store(a,b,c,d,e) Perl_hv_store(aTHX_ a,b,c,d,e) #define hv_store_ent(a,b,c,d) Perl_hv_store_ent(aTHX_ a,b,c,d) +#define hv_store_flags(a,b,c,d,e,f) Perl_hv_store_flags(aTHX_ a,b,c,d,e,f) #define hv_undef(a) Perl_hv_undef(aTHX_ a) #define ibcmp(a,b,c) Perl_ibcmp(aTHX_ a,b,c) #define ibcmp_locale(a,b,c) Perl_ibcmp_locale(aTHX_ a,b,c) @@ -1889,6 +1847,7 @@ #define is_utf8_alnum(a) Perl_is_utf8_alnum(aTHX_ a) #define is_utf8_alnumc(a) Perl_is_utf8_alnumc(aTHX_ a) #define is_utf8_idfirst(a) Perl_is_utf8_idfirst(aTHX_ a) +#define is_utf8_idcont(a) Perl_is_utf8_idcont(aTHX_ a) #define is_utf8_alpha(a) Perl_is_utf8_alpha(aTHX_ a) #define is_utf8_ascii(a) Perl_is_utf8_ascii(aTHX_ a) #define is_utf8_space(a) Perl_is_utf8_space(aTHX_ a) @@ -1939,9 +1898,6 @@ #define magic_getuvar(a,b) Perl_magic_getuvar(aTHX_ a,b) #define magic_getvec(a,b) Perl_magic_getvec(aTHX_ a,b) #define magic_len(a,b) Perl_magic_len(aTHX_ a,b) -#if defined(USE_5005THREADS) -#define magic_mutexfree(a,b) Perl_magic_mutexfree(aTHX_ a,b) -#endif #define magic_nextpack(a,b,c) Perl_magic_nextpack(aTHX_ a,b,c) #define magic_regdata_cnt(a,b) Perl_magic_regdata_cnt(aTHX_ a,b) #define magic_regdatum_get(a,b) Perl_magic_regdatum_get(aTHX_ a,b) @@ -2076,26 +2032,29 @@ #define newUNOP(a,b,c) Perl_newUNOP(aTHX_ a,b,c) #define newWHILEOP(a,b,c,d,e,f,g) Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g) #define new_stackinfo(a,b) Perl_new_stackinfo(aTHX_ a,b) -#define new_vstring(a,b) Perl_new_vstring(aTHX_ a,b) +#define scan_vstring(a,b) Perl_scan_vstring(aTHX_ a,b) +#define scan_version(a,b) Perl_scan_version(aTHX_ a,b) +#define new_version(a) Perl_new_version(aTHX_ a) +#define upg_version(a) Perl_upg_version(aTHX_ a) +#define vnumify(a) Perl_vnumify(aTHX_ a) +#define vstringify(a) Perl_vstringify(aTHX_ a) +#define vcmp(a,b) Perl_vcmp(aTHX_ a,b) #define nextargv(a) Perl_nextargv(aTHX_ a) #define ninstr(a,b,c,d) Perl_ninstr(aTHX_ a,b,c,d) #define oopsCV(a) Perl_oopsCV(aTHX_ a) #define op_free(a) Perl_op_free(aTHX_ a) #define package(a) Perl_package(aTHX_ a) #define pad_alloc(a,b) Perl_pad_alloc(aTHX_ a,b) -#define pad_allocmy(a) Perl_pad_allocmy(aTHX_ a) +#define allocmy(a) Perl_allocmy(aTHX_ a) #define pad_findmy(a) Perl_pad_findmy(aTHX_ a) #define oopsAV(a) Perl_oopsAV(aTHX_ a) #define oopsHV(a) Perl_oopsHV(aTHX_ a) -#define pad_leavemy(a) Perl_pad_leavemy(aTHX_ a) +#define pad_leavemy() Perl_pad_leavemy(aTHX) #define pad_sv(a) Perl_pad_sv(aTHX_ a) #define pad_free(a) Perl_pad_free(aTHX_ a) #define pad_reset() Perl_pad_reset(aTHX) -#define pad_swipe(a) Perl_pad_swipe(aTHX_ a) +#define pad_swipe(a,b) Perl_pad_swipe(aTHX_ a,b) #define peep(a) Perl_peep(aTHX_ a) -#if defined(USE_5005THREADS) -#define new_struct_thread(a) Perl_new_struct_thread(aTHX_ a) -#endif #if defined(USE_REENTRANT_API) #define reentrant_size() Perl_reentrant_size(aTHX) #define reentrant_init() Perl_reentrant_init(aTHX) @@ -2164,6 +2123,7 @@ #define save_alloc(a,b) Perl_save_alloc(aTHX_ a,b) #define save_aptr(a) Perl_save_aptr(aTHX_ a) #define save_ary(a) Perl_save_ary(aTHX_ a) +#define save_bool(a) Perl_save_bool(aTHX_ a) #define save_clearsv(a) Perl_save_clearsv(aTHX_ a) #define save_delete(a,b,c) Perl_save_delete(aTHX_ a,b,c) #define save_destructor(a,b) Perl_save_destructor(aTHX_ a,b) @@ -2282,7 +2242,6 @@ #define sv_reset(a,b) Perl_sv_reset(aTHX_ a,b) #define sv_vsetpvf(a,b,c) Perl_sv_vsetpvf(aTHX_ a,b,c) #define sv_setiv(a,b) Perl_sv_setiv(aTHX_ a,b) -#define sv_setpviv(a,b) Perl_sv_setpviv(aTHX_ a,b) #define sv_setuv(a,b) Perl_sv_setuv(aTHX_ a,b) #define sv_setnv(a,b) Perl_sv_setnv(aTHX_ a,b) #define sv_setref_iv(a,b,c) Perl_sv_setref_iv(aTHX_ a,b,c) @@ -2315,9 +2274,6 @@ #if defined(UNLINK_ALL_VERSIONS) #define unlnk(a) Perl_unlnk(aTHX_ a) #endif -#if defined(USE_5005THREADS) -#define unlock_condpair(a) Perl_unlock_condpair(aTHX_ a) -#endif #define unpack_str(a,b,c,d,e,f,g,h) Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h) #define unsharepvn(a,b,c) Perl_unsharepvn(aTHX_ a,b,c) #define unshare_hek(a) Perl_unshare_hek(aTHX_ a) @@ -2364,27 +2320,17 @@ #define safesyscalloc Perl_safesyscalloc #define safesysrealloc Perl_safesysrealloc #define safesysfree Perl_safesysfree -#if defined(LEAKTEST) -#define safexmalloc Perl_safexmalloc -#define safexcalloc Perl_safexcalloc -#define safexrealloc Perl_safexrealloc -#define safexfree Perl_safexfree -#endif #if defined(PERL_GLOBAL_STRUCT) #define GetVars() Perl_GetVars(aTHX) #endif #define runops_standard() Perl_runops_standard(aTHX) #define runops_debug() Perl_runops_debug(aTHX) -#if defined(USE_5005THREADS) -#define sv_lock(a) Perl_sv_lock(aTHX_ a) -#endif #define sv_vcatpvf_mg(a,b,c) Perl_sv_vcatpvf_mg(aTHX_ a,b,c) #define sv_catpv_mg(a,b) Perl_sv_catpv_mg(aTHX_ a,b) #define sv_catpvn_mg(a,b,c) Perl_sv_catpvn_mg(aTHX_ a,b,c) #define sv_catsv_mg(a,b) Perl_sv_catsv_mg(aTHX_ a,b) #define sv_vsetpvf_mg(a,b,c) Perl_sv_vsetpvf_mg(aTHX_ a,b,c) #define sv_setiv_mg(a,b) Perl_sv_setiv_mg(aTHX_ a,b) -#define sv_setpviv_mg(a,b) Perl_sv_setpviv_mg(aTHX_ a,b) #define sv_setuv_mg(a,b) Perl_sv_setuv_mg(aTHX_ a,b) #define sv_setnv_mg(a,b) Perl_sv_setnv_mg(aTHX_ a,b) #define sv_setpv_mg(a,b) Perl_sv_setpv_mg(aTHX_ a,b) @@ -2450,14 +2396,13 @@ #endif #define custom_op_name(a) Perl_custom_op_name(aTHX_ a) #define custom_op_desc(a) Perl_custom_op_desc(aTHX_ a) +#if defined(PERL_COPY_ON_WRITE) +#define sv_release_IVX(a) Perl_sv_release_IVX(aTHX_ a) +#endif #define sv_nosharing(a) Perl_sv_nosharing(aTHX_ a) #define sv_nolocking(a) Perl_sv_nolocking(aTHX_ a) #define sv_nounlocking(a) Perl_sv_nounlocking(aTHX_ a) #define nothreadhook() Perl_nothreadhook(aTHX) -#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) -#define avhv_index_sv(a) S_avhv_index_sv(aTHX_ a) -#define avhv_index(a,b,c) S_avhv_index(aTHX_ a,b,c) -#endif #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) #define do_trans_simple(a) S_do_trans_simple(aTHX_ a) #define do_trans_count(a) S_do_trans_count(aTHX_ a) @@ -2480,7 +2425,6 @@ #define hv_magic_check(a,b,c) S_hv_magic_check(aTHX_ a,b,c) #define unshare_hek_or_pvn(a,b,c,d) S_unshare_hek_or_pvn(aTHX_ a,b,c,d) #define share_hek_flags(a,b,c,d) S_share_hek_flags(aTHX_ a,b,c,d) -#define hv_store_flags(a,b,c,d,e,f) S_hv_store_flags(aTHX_ a,b,c,d,e,f) #define hv_fetch_flags(a,b,c,d,e) S_hv_fetch_flags(aTHX_ a,b,c,d,e) #define hv_notallowed(a,b,c,d) S_hv_notallowed(aTHX_ a,b,c,d) #endif @@ -2499,17 +2443,11 @@ #define scalarboolean(a) S_scalarboolean(aTHX_ a) #define too_few_arguments(a,b) S_too_few_arguments(aTHX_ a,b) #define too_many_arguments(a,b) S_too_many_arguments(aTHX_ a,b) -#define pad_addlex(a) S_pad_addlex(aTHX_ a) -#define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g) #define newDEFSVOP() S_newDEFSVOP(aTHX) #define new_logop(a,b,c,d) S_new_logop(aTHX_ a,b,c,d) #define simplify_sort(a) S_simplify_sort(aTHX_ a) #define is_handle_constructor(a,b) S_is_handle_constructor(aTHX_ a,b) #define gv_ename(a) S_gv_ename(aTHX_ a) -# if defined(DEBUG_CLOSURES) -#define cv_dump(a) S_cv_dump(aTHX_ a) -# endif -#define cv_clone2(a,b) S_cv_clone2(aTHX_ a,b) #define scalar_mod_type(a,b) S_scalar_mod_type(aTHX_ a,b) #define my_kid(a,b,c) S_my_kid(aTHX_ a,b,c) #define dup_attrlist(a) S_dup_attrlist(aTHX_ a) @@ -2523,7 +2461,7 @@ #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) #define find_beginning() S_find_beginning(aTHX) #define forbid_setid(a) S_forbid_setid(aTHX_ a) -#define incpush(a,b,c) S_incpush(aTHX_ a,b,c) +#define incpush(a,b,c,d) S_incpush(aTHX_ a,b,c,d) #define init_interp() S_init_interp(aTHX) #define init_ids() S_init_ids(aTHX) #define init_lexer() S_init_lexer(aTHX) @@ -2549,9 +2487,6 @@ #define vcall_body(a) S_vcall_body(aTHX_ a) #define vcall_list_body(a) S_vcall_list_body(aTHX_ a) #endif -# if defined(USE_5005THREADS) -#define init_main_thread() S_init_main_thread(aTHX) -# endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) #define refto(a) S_refto(aTHX_ a) @@ -2581,12 +2516,11 @@ #define dopoptosub(a) S_dopoptosub(aTHX_ a) #define dopoptosub_at(a,b) S_dopoptosub_at(aTHX_ a,b) #define save_lines(a,b) S_save_lines(aTHX_ a,b) -#define doeval(a,b) S_doeval(aTHX_ a,b) +#define doeval(a,b,c,d) S_doeval(aTHX_ a,b,c,d) #define doopen_pmc(a,b) S_doopen_pmc(aTHX_ a,b) #define path_is_absolute(a) S_path_is_absolute(aTHX_ a) #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) -#define do_maybe_phash(a,b,c,d,e) S_do_maybe_phash(aTHX_ a,b,c,d,e) #define do_oddball(a,b,c) S_do_oddball(aTHX_ a,b,c) #define get_db_sub(a,b) S_get_db_sub(aTHX_ a,b) #define method_common(a,b) S_method_common(aTHX_ a,b) @@ -2707,8 +2641,11 @@ # endif #define expect_number(a) S_expect_number(aTHX_ a) # if defined(USE_ITHREADS) -#define gv_share(a) S_gv_share(aTHX_ a) +#define gv_share(a,b) S_gv_share(aTHX_ a,b) # endif +#if defined(PERL_COPY_ON_WRITE) +#define sv_release_COW(a,b,c,d,e,f) S_sv_release_COW(aTHX_ a,b,c,d,e,f) +#endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #define check_uni() S_check_uni(aTHX) @@ -2767,9 +2704,6 @@ #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) #define closest_cop(a,b) S_closest_cop(aTHX_ a,b) #define mess_alloc() S_mess_alloc(aTHX) -# if defined(LEAKTEST) -#define xstat(a) S_xstat(aTHX_ a) -# endif #endif #define sv_setsv_flags(a,b,c) Perl_sv_setsv_flags(aTHX_ a,b,c) #define sv_catpvn_flags(a,b,c,d) Perl_sv_catpvn_flags(aTHX_ a,b,c,d) @@ -2804,6 +2738,31 @@ #define PerlIO_stdout() Perl_PerlIO_stdout(aTHX) #define PerlIO_stderr() Perl_PerlIO_stderr(aTHX) #endif /* PERLIO_LAYERS */ +#define deb_stack_all() Perl_deb_stack_all(aTHX) +#ifdef PERL_IN_DEB_C +#define deb_stack_n(a,b,c,d,e) S_deb_stack_n(aTHX_ a,b,c,d,e) +#endif +#define pad_new(a) Perl_pad_new(aTHX_ a) +#define pad_undef(a) Perl_pad_undef(aTHX_ a) +#define pad_add_name(a,b,c,d) Perl_pad_add_name(aTHX_ a,b,c,d) +#define pad_add_anon(a,b) Perl_pad_add_anon(aTHX_ a,b) +#define pad_check_dup(a,b,c) Perl_pad_check_dup(aTHX_ a,b,c) +#ifdef DEBUGGING +#define pad_setsv(a,b) Perl_pad_setsv(aTHX_ a,b) +#endif +#define pad_block_start(a) Perl_pad_block_start(aTHX_ a) +#define pad_tidy(a) Perl_pad_tidy(aTHX_ a) +#define do_dump_pad(a,b,c,d) Perl_do_dump_pad(aTHX_ a,b,c,d) +#define pad_fixup_inner_anons(a,b,c) Perl_pad_fixup_inner_anons(aTHX_ a,b,c) +#define pad_push(a,b,c) Perl_pad_push(aTHX_ a,b,c) +#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) +#define pad_findlex(a,b,c) S_pad_findlex(aTHX_ a,b,c) +# if defined(DEBUGGING) +#define cv_dump(a,b) S_cv_dump(aTHX_ a,b) +# endif +#define cv_clone2(a,b) S_cv_clone2(aTHX_ a,b) +#endif +#define find_runcv(a) Perl_find_runcv(aTHX_ a) #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) @@ -2890,6 +2849,8 @@ #define pp_die() Perl_pp_die(aTHX) #define pp_divide() Perl_pp_divide(aTHX) #define pp_dofile() Perl_pp_dofile(aTHX) +#define pp_dor() Perl_pp_dor(aTHX) +#define pp_dorassign() Perl_pp_dorassign(aTHX) #define pp_dump() Perl_pp_dump(aTHX) #define pp_each() Perl_pp_each(aTHX) #define pp_egrent() Perl_pp_egrent(aTHX) @@ -3203,7 +3164,7 @@ # define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,PTR2IV(ptr)) #endif -#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) && !defined(PERL_BINCOMPAT_5005) +#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) /* Compatibility for various misnamed functions. All functions in the API that begin with "perl_" (not "Perl_") take an explicit