* 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.) */
#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
#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
#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
#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 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
#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
#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
#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
#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
# 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
#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)
#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)
#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)
#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,b) Perl_vnumify(aTHX_ a,b)
-#define vstringify(a,b) Perl_vstringify(aTHX_ a,b)
+#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 pad_reset() Perl_pad_reset(aTHX)
#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)
#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)
#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)
#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)
#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)
#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)
#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
#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,b) Perl_pad_undef(aTHX_ a,b)
+#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)
#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,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
+#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)