X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=fce8a2ee02961b0768d48a558243897719569d7b;hb=36bad43a54a7c90a90f0ef3c464b4224dbc21068;hp=a101d236f853ffb15fd039844fc69e757ff05464;hpb=4030fe4ad6ddcf55e0341ef163ebb1419014d565;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index a101d23..fce8a2e 100644 --- a/embed.h +++ b/embed.h @@ -131,6 +131,7 @@ #define sv_catpvf_mg_nocontext Perl_sv_catpvf_mg_nocontext #define sv_setpvf_mg_nocontext Perl_sv_setpvf_mg_nocontext #define fprintf_nocontext Perl_fprintf_nocontext +#define printf_nocontext Perl_printf_nocontext #endif #define cv_ckproto Perl_cv_ckproto #define cv_clone Perl_cv_clone @@ -270,6 +271,7 @@ #define ingroup Perl_ingroup #define init_debugger Perl_init_debugger #define init_stacks Perl_init_stacks +#define init_tm Perl_init_tm #define intro_my Perl_intro_my #define instr Perl_instr #define io_close Perl_io_close @@ -332,6 +334,8 @@ #define leave_scope Perl_leave_scope #define lex_end Perl_lex_end #define lex_start Perl_lex_start +#define op_null Perl_op_null +#define op_clear Perl_op_clear #define linklist Perl_linklist #define list Perl_list #define listkids Perl_listkids @@ -408,6 +412,7 @@ #define mg_magical Perl_mg_magical #define mg_set Perl_mg_set #define mg_size Perl_mg_size +#define mini_mktime Perl_mini_mktime #define mod Perl_mod #define mode_from_discipline Perl_mode_from_discipline #define moreswitches Perl_moreswitches @@ -432,9 +437,11 @@ #if !defined(PERL_OBJECT) #define my_pclose Perl_my_pclose #define my_popen Perl_my_popen +#define my_popen_list Perl_my_popen_list #endif #define my_setenv Perl_my_setenv #define my_stat Perl_my_stat +#define my_strftime Perl_my_strftime #if defined(MYSWAP) #define my_swap Perl_my_swap #define my_htonl Perl_my_htonl @@ -597,6 +604,7 @@ #define save_iv Perl_save_iv #define save_list Perl_save_list #define save_long Perl_save_long +#define save_mortalizesv Perl_save_mortalizesv #define save_nogv Perl_save_nogv #define save_op Perl_save_op #define save_scalar Perl_save_scalar @@ -740,9 +748,12 @@ #define utf8_to_bytes Perl_utf8_to_bytes #define bytes_from_utf8 Perl_bytes_from_utf8 #define bytes_to_utf8 Perl_bytes_to_utf8 -#define utf8_to_uv_simple Perl_utf8_to_uv_simple -#define utf8_to_uv Perl_utf8_to_uv -#define uv_to_utf8 Perl_uv_to_utf8 +#define utf8_to_uvchr Perl_utf8_to_uvchr +#define utf8_to_uvuni Perl_utf8_to_uvuni +#define utf8n_to_uvchr Perl_utf8n_to_uvchr +#define utf8n_to_uvuni Perl_utf8n_to_uvuni +#define uvchr_to_utf8 Perl_uvchr_to_utf8 +#define uvuni_to_utf8 Perl_uvuni_to_utf8 #define vivify_defelem Perl_vivify_defelem #define vivify_ref Perl_vivify_ref #define wait4pid Perl_wait4pid @@ -878,6 +889,7 @@ #endif #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) #define gv_init_sv S_gv_init_sv +#define require_errno S_require_errno #endif #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) #define hsplit S_hsplit @@ -903,9 +915,6 @@ #define scalarboolean S_scalarboolean #define too_few_arguments S_too_few_arguments #define too_many_arguments S_too_many_arguments -#define trlist_upgrade S_trlist_upgrade -#define op_clear S_op_clear -#define null S_null #define pad_addlex S_pad_addlex #define pad_findlex S_pad_findlex #define newDEFSVOP S_newDEFSVOP @@ -979,7 +988,6 @@ #define dopoptoloop S_dopoptoloop #define dopoptosub S_dopoptosub #define dopoptosub_at S_dopoptosub_at -#define free_closures S_free_closures #define save_lines S_save_lines #define doeval S_doeval #define doopen_pmc S_doopen_pmc @@ -1045,6 +1053,7 @@ #define find_byclass S_find_byclass #endif #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +#define deb_curcv S_deb_curcv #define debprof S_debprof #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) @@ -1164,9 +1173,6 @@ # if defined(LEAKTEST) #define xstat S_xstat # endif -# if defined(EBCDIC) -#define ebcdic_control Perl_ebcdic_control -# endif #endif #if defined(PERL_OBJECT) #endif @@ -1764,6 +1770,7 @@ #define ingroup(a,b) Perl_ingroup(aTHX_ a,b) #define init_debugger() Perl_init_debugger(aTHX) #define init_stacks() Perl_init_stacks(aTHX) +#define init_tm(a) Perl_init_tm(aTHX_ a) #define intro_my() Perl_intro_my(aTHX) #define instr(a,b) Perl_instr(aTHX_ a,b) #define io_close(a,b) Perl_io_close(aTHX_ a,b) @@ -1826,6 +1833,8 @@ #define leave_scope(a) Perl_leave_scope(aTHX_ a) #define lex_end() Perl_lex_end(aTHX) #define lex_start(a) Perl_lex_start(aTHX_ a) +#define op_null(a) Perl_op_null(aTHX_ a) +#define op_clear(a) Perl_op_clear(aTHX_ a) #define linklist(a) Perl_linklist(aTHX_ a) #define list(a) Perl_list(aTHX_ a) #define listkids(a) Perl_listkids(aTHX_ a) @@ -1900,6 +1909,7 @@ #define mg_magical(a) Perl_mg_magical(aTHX_ a) #define mg_set(a) Perl_mg_set(aTHX_ a) #define mg_size(a) Perl_mg_size(aTHX_ a) +#define mini_mktime(a) Perl_mini_mktime(aTHX_ a) #define mod(a,b) Perl_mod(aTHX_ a,b) #define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a) #define moreswitches(a) Perl_moreswitches(aTHX_ a) @@ -1924,9 +1934,11 @@ #if !defined(PERL_OBJECT) #define my_pclose(a) Perl_my_pclose(aTHX_ a) #define my_popen(a,b) Perl_my_popen(aTHX_ a,b) +#define my_popen_list(a,b,c) Perl_my_popen_list(aTHX_ a,b,c) #endif #define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) #define my_stat() Perl_my_stat(aTHX) +#define my_strftime(a,b,c,d,e,f,g,h,i,j) Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j) #if defined(MYSWAP) #define my_swap(a) Perl_my_swap(aTHX_ a) #define my_htonl(a) Perl_my_htonl(aTHX_ a) @@ -2088,6 +2100,7 @@ #define save_iv(a) Perl_save_iv(aTHX_ a) #define save_list(a,b) Perl_save_list(aTHX_ a,b) #define save_long(a) Perl_save_long(aTHX_ a) +#define save_mortalizesv(a) Perl_save_mortalizesv(aTHX_ a) #define save_nogv(a) Perl_save_nogv(aTHX_ a) #define save_op() Perl_save_op(aTHX) #define save_scalar(a) Perl_save_scalar(aTHX_ a) @@ -2206,7 +2219,7 @@ #define sv_vsetpvfn(a,b,c,d,e,f,g) Perl_sv_vsetpvfn(aTHX_ a,b,c,d,e,f,g) #define str_to_version(a) Perl_str_to_version(aTHX_ a) #define swash_init(a,b,c,d,e) Perl_swash_init(aTHX_ a,b,c,d,e) -#define swash_fetch(a,b) Perl_swash_fetch(aTHX_ a,b) +#define swash_fetch(a,b,c) Perl_swash_fetch(aTHX_ a,b,c) #define taint_env() Perl_taint_env(aTHX) #define taint_proper(a,b) Perl_taint_proper(aTHX_ a,b) #define to_utf8_lower(a) Perl_to_utf8_lower(aTHX_ a) @@ -2229,9 +2242,12 @@ #define utf8_to_bytes(a,b) Perl_utf8_to_bytes(aTHX_ a,b) #define bytes_from_utf8(a,b,c) Perl_bytes_from_utf8(aTHX_ a,b,c) #define bytes_to_utf8(a,b) Perl_bytes_to_utf8(aTHX_ a,b) -#define utf8_to_uv_simple(a,b) Perl_utf8_to_uv_simple(aTHX_ a,b) -#define utf8_to_uv(a,b,c,d) Perl_utf8_to_uv(aTHX_ a,b,c,d) -#define uv_to_utf8(a,b) Perl_uv_to_utf8(aTHX_ a,b) +#define utf8_to_uvchr(a,b) Perl_utf8_to_uvchr(aTHX_ a,b) +#define utf8_to_uvuni(a,b) Perl_utf8_to_uvuni(aTHX_ a,b) +#define utf8n_to_uvchr(a,b,c,d) Perl_utf8n_to_uvchr(aTHX_ a,b,c,d) +#define utf8n_to_uvuni(a,b,c,d) Perl_utf8n_to_uvuni(aTHX_ a,b,c,d) +#define uvchr_to_utf8(a,b) Perl_uvchr_to_utf8(aTHX_ a,b) +#define uvuni_to_utf8(a,b) Perl_uvuni_to_utf8(aTHX_ a,b) #define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a) #define vivify_ref(a,b) Perl_vivify_ref(aTHX_ a,b) #define wait4pid(a,b,c) Perl_wait4pid(aTHX_ a,b,c) @@ -2361,6 +2377,7 @@ #endif #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) #define gv_init_sv(a,b) S_gv_init_sv(aTHX_ a,b) +#define require_errno(a) S_require_errno(aTHX_ a) #endif #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) #define hsplit(a) S_hsplit(aTHX_ a) @@ -2386,9 +2403,6 @@ #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 trlist_upgrade(a,b) S_trlist_upgrade(aTHX_ a,b) -#define op_clear(a) S_op_clear(aTHX_ a) -#define null(a) S_null(aTHX_ a) #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) @@ -2462,7 +2476,6 @@ #define dopoptoloop(a) S_dopoptoloop(aTHX_ a) #define dopoptosub(a) S_dopoptosub(aTHX_ a) #define dopoptosub_at(a,b) S_dopoptosub_at(aTHX_ a,b) -#define free_closures() S_free_closures(aTHX) #define save_lines(a,b) S_save_lines(aTHX_ a,b) #define doeval(a,b) S_doeval(aTHX_ a,b) #define doopen_pmc(a,b) S_doopen_pmc(aTHX_ a,b) @@ -2527,6 +2540,7 @@ #define find_byclass(a,b,c,d,e,f) S_find_byclass(aTHX_ a,b,c,d,e,f) #endif #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +#define deb_curcv(a) S_deb_curcv(aTHX_ a) #define debprof(a) S_debprof(aTHX_ a) #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) @@ -2646,9 +2660,6 @@ # if defined(LEAKTEST) #define xstat(a) S_xstat(aTHX_ a) # endif -# if defined(EBCDIC) -#define ebcdic_control(a) Perl_ebcdic_control(aTHX_ a) -# endif #endif #if defined(PERL_OBJECT) #endif @@ -3190,6 +3201,8 @@ #define sv_setpvf_mg_nocontext Perl_sv_setpvf_mg_nocontext #define Perl_fprintf_nocontext CPerlObj::Perl_fprintf_nocontext #define fprintf_nocontext Perl_fprintf_nocontext +#define Perl_printf_nocontext CPerlObj::Perl_printf_nocontext +#define printf_nocontext Perl_printf_nocontext #endif #define Perl_cv_ckproto CPerlObj::Perl_cv_ckproto #define cv_ckproto Perl_cv_ckproto @@ -3457,6 +3470,8 @@ #define init_debugger Perl_init_debugger #define Perl_init_stacks CPerlObj::Perl_init_stacks #define init_stacks Perl_init_stacks +#define Perl_init_tm CPerlObj::Perl_init_tm +#define init_tm Perl_init_tm #define Perl_intro_my CPerlObj::Perl_intro_my #define intro_my Perl_intro_my #define Perl_instr CPerlObj::Perl_instr @@ -3581,6 +3596,10 @@ #define lex_end Perl_lex_end #define Perl_lex_start CPerlObj::Perl_lex_start #define lex_start Perl_lex_start +#define Perl_op_null CPerlObj::Perl_op_null +#define op_null Perl_op_null +#define Perl_op_clear CPerlObj::Perl_op_clear +#define op_clear Perl_op_clear #define Perl_linklist CPerlObj::Perl_linklist #define linklist Perl_linklist #define Perl_list CPerlObj::Perl_list @@ -3727,6 +3746,8 @@ #define mg_set Perl_mg_set #define Perl_mg_size CPerlObj::Perl_mg_size #define mg_size Perl_mg_size +#define Perl_mini_mktime CPerlObj::Perl_mini_mktime +#define mini_mktime Perl_mini_mktime #define Perl_mod CPerlObj::Perl_mod #define mod Perl_mod #define Perl_mode_from_discipline CPerlObj::Perl_mode_from_discipline @@ -3766,11 +3787,15 @@ #define my_pclose Perl_my_pclose #define Perl_my_popen CPerlObj::Perl_my_popen #define my_popen Perl_my_popen +#define Perl_my_popen_list CPerlObj::Perl_my_popen_list +#define my_popen_list Perl_my_popen_list #endif #define Perl_my_setenv CPerlObj::Perl_my_setenv #define my_setenv Perl_my_setenv #define Perl_my_stat CPerlObj::Perl_my_stat #define my_stat Perl_my_stat +#define Perl_my_strftime CPerlObj::Perl_my_strftime +#define my_strftime Perl_my_strftime #if defined(MYSWAP) #define Perl_my_swap CPerlObj::Perl_my_swap #define my_swap Perl_my_swap @@ -4094,6 +4119,8 @@ #define save_list Perl_save_list #define Perl_save_long CPerlObj::Perl_save_long #define save_long Perl_save_long +#define Perl_save_mortalizesv CPerlObj::Perl_save_mortalizesv +#define save_mortalizesv Perl_save_mortalizesv #define Perl_save_nogv CPerlObj::Perl_save_nogv #define save_nogv Perl_save_nogv #define Perl_save_op CPerlObj::Perl_save_op @@ -4372,12 +4399,18 @@ #define bytes_from_utf8 Perl_bytes_from_utf8 #define Perl_bytes_to_utf8 CPerlObj::Perl_bytes_to_utf8 #define bytes_to_utf8 Perl_bytes_to_utf8 -#define Perl_utf8_to_uv_simple CPerlObj::Perl_utf8_to_uv_simple -#define utf8_to_uv_simple Perl_utf8_to_uv_simple -#define Perl_utf8_to_uv CPerlObj::Perl_utf8_to_uv -#define utf8_to_uv Perl_utf8_to_uv -#define Perl_uv_to_utf8 CPerlObj::Perl_uv_to_utf8 -#define uv_to_utf8 Perl_uv_to_utf8 +#define Perl_utf8_to_uvchr CPerlObj::Perl_utf8_to_uvchr +#define utf8_to_uvchr Perl_utf8_to_uvchr +#define Perl_utf8_to_uvuni CPerlObj::Perl_utf8_to_uvuni +#define utf8_to_uvuni Perl_utf8_to_uvuni +#define Perl_utf8n_to_uvchr CPerlObj::Perl_utf8n_to_uvchr +#define utf8n_to_uvchr Perl_utf8n_to_uvchr +#define Perl_utf8n_to_uvuni CPerlObj::Perl_utf8n_to_uvuni +#define utf8n_to_uvuni Perl_utf8n_to_uvuni +#define Perl_uvchr_to_utf8 CPerlObj::Perl_uvchr_to_utf8 +#define uvchr_to_utf8 Perl_uvchr_to_utf8 +#define Perl_uvuni_to_utf8 CPerlObj::Perl_uvuni_to_utf8 +#define uvuni_to_utf8 Perl_uvuni_to_utf8 #define Perl_vivify_defelem CPerlObj::Perl_vivify_defelem #define vivify_defelem Perl_vivify_defelem #define Perl_vivify_ref CPerlObj::Perl_vivify_ref @@ -4622,6 +4655,8 @@ #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) #define S_gv_init_sv CPerlObj::S_gv_init_sv #define gv_init_sv S_gv_init_sv +#define S_require_errno CPerlObj::S_require_errno +#define require_errno S_require_errno #endif #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) #define S_hsplit CPerlObj::S_hsplit @@ -4666,12 +4701,6 @@ #define too_few_arguments S_too_few_arguments #define S_too_many_arguments CPerlObj::S_too_many_arguments #define too_many_arguments S_too_many_arguments -#define S_trlist_upgrade CPerlObj::S_trlist_upgrade -#define trlist_upgrade S_trlist_upgrade -#define S_op_clear CPerlObj::S_op_clear -#define op_clear S_op_clear -#define S_null CPerlObj::S_null -#define null S_null #define S_pad_addlex CPerlObj::S_pad_addlex #define pad_addlex S_pad_addlex #define S_pad_findlex CPerlObj::S_pad_findlex @@ -4800,8 +4829,6 @@ #define dopoptosub S_dopoptosub #define S_dopoptosub_at CPerlObj::S_dopoptosub_at #define dopoptosub_at S_dopoptosub_at -#define S_free_closures CPerlObj::S_free_closures -#define free_closures S_free_closures #define S_save_lines CPerlObj::S_save_lines #define save_lines S_save_lines #define S_doeval CPerlObj::S_doeval @@ -4920,6 +4947,8 @@ #define find_byclass S_find_byclass #endif #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +#define S_deb_curcv CPerlObj::S_deb_curcv +#define deb_curcv S_deb_curcv #define S_debprof CPerlObj::S_debprof #define debprof S_debprof #endif @@ -5134,10 +5163,6 @@ #define S_xstat CPerlObj::S_xstat #define xstat S_xstat # endif -# if defined(EBCDIC) -#define Perl_ebcdic_control CPerlObj::Perl_ebcdic_control -#define ebcdic_control Perl_ebcdic_control -# endif #endif #if defined(PERL_OBJECT) #endif