X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=2f7cb140d522d2583e38c1265939ced7f7bd4efb;hb=8c7d55fc02cca4e0edf1324c36f667376289f8d2;hp=969427f4d064d30016c1d905dca21d3bea1ac605;hpb=5302ffd479952aac7b09adb0db5642b6376ad312;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 969427f..2f7cb14 100644 --- a/embed.h +++ b/embed.h @@ -64,7 +64,7 @@ #define av_make Perl_av_make #define av_pop Perl_av_pop #define av_push Perl_av_push -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify Perl_av_reify #endif #define av_shift Perl_av_shift @@ -266,6 +266,7 @@ #define gv_efullname Perl_gv_efullname #define gv_efullname4 Perl_gv_efullname4 #define gv_fetchfile Perl_gv_fetchfile +#define gv_fetchfile_flags Perl_gv_fetchfile_flags #define gv_fetchmeth Perl_gv_fetchmeth #define gv_fetchmeth_autoload Perl_gv_fetchmeth_autoload #define gv_fetchmethod_autoload Perl_gv_fetchmethod_autoload @@ -376,12 +377,14 @@ #define keyword Perl_keyword #endif #define leave_scope Perl_leave_scope -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end Perl_lex_end +#endif +#ifdef PERL_CORE #define lex_start Perl_lex_start #endif #define op_null Perl_op_null -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear Perl_op_clear #endif #define op_refcnt_lock Perl_op_refcnt_lock @@ -464,7 +467,7 @@ #endif #define mess Perl_mess #define vmess Perl_vmess -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror Perl_qerror #endif #define sortsv Perl_sortsv @@ -482,8 +485,10 @@ #define mg_set Perl_mg_set #define mg_size Perl_mg_size #define mini_mktime Perl_mini_mktime -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod Perl_mod +#endif +#ifdef PERL_CORE #define mode_from_discipline Perl_mode_from_discipline #endif #define moreswitches Perl_moreswitches @@ -561,7 +566,9 @@ #define newHVhv Perl_newHVhv #define newIO Perl_newIO #define newLISTOP Perl_newLISTOP +#ifdef USE_ITHREADS #define newPADOP Perl_newPADOP +#endif #define newPMOP Perl_newPMOP #define newPVOP Perl_newPVOP #define newRV Perl_newRV @@ -580,6 +587,7 @@ #define vnewSVpvf Perl_vnewSVpvf #define newSVrv Perl_newSVrv #define newSVsv Perl_newSVsv +#define newSV_type Perl_newSV_type #define newUNOP Perl_newUNOP #define newWHENOP Perl_newWHENOP #define newWHILEOP Perl_newWHILEOP @@ -681,6 +689,9 @@ #define regclass_swash Perl_regclass_swash #define pregexec Perl_pregexec #define pregfree Perl_pregfree +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_temp_copy Perl_reg_temp_copy +#endif #define regfree_internal Perl_regfree_internal #define reg_stringify Perl_reg_stringify #if defined(USE_ITHREADS) @@ -695,6 +706,8 @@ #if defined(PERL_CORE) || defined(PERL_EXT) #define reg_named_buff_get Perl_reg_named_buff_get #define reg_numbered_buff_get Perl_reg_numbered_buff_get +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define regprop Perl_regprop #endif #define repeatcpy Perl_repeatcpy @@ -718,6 +731,7 @@ #define savepv Perl_savepv #define savepvn Perl_savepvn #define savesharedpv Perl_savesharedpv +#define savesharedpvn Perl_savesharedpvn #define savesvpv Perl_savesvpv #define savestack_grow Perl_savestack_grow #define savestack_grow_cnt Perl_savestack_grow_cnt @@ -783,7 +797,7 @@ #define setenv_getix Perl_setenv_getix #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout Perl_setdefout #endif #define share_hek Perl_share_hek @@ -918,7 +932,7 @@ #define unpack_str Perl_unpack_str #define unpackstring Perl_unpackstring #define unsharepvn Perl_unsharepvn -#if defined(PERL_CORE) || defined(PERL_EXT) +#ifdef PERL_CORE #define unshare_hek Perl_unshare_hek #endif #ifdef PERL_MAD @@ -953,8 +967,10 @@ #define uvuni_to_utf8_flags Perl_uvuni_to_utf8_flags #define pv_uni_display Perl_pv_uni_display #define sv_uni_display Perl_sv_uni_display -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem Perl_vivify_defelem +#endif +#ifdef PERL_CORE #define vivify_ref Perl_vivify_ref #define wait4pid Perl_wait4pid #define parse_unicode_opts Perl_parse_unicode_opts @@ -976,7 +992,11 @@ #ifdef PERL_CORE #define write_to_stderr Perl_write_to_stderr #define yyerror Perl_yyerror +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex Perl_yylex +#endif +#ifdef PERL_CORE #define yyparse Perl_yyparse #define parser_free Perl_parser_free #define yywarn Perl_yywarn @@ -1151,6 +1171,7 @@ #define ck_method Perl_ck_method #define ck_null Perl_ck_null #define ck_open Perl_ck_open +#define ck_readline Perl_ck_readline #define ck_repeat Perl_ck_repeat #define ck_require Perl_ck_require #define ck_retarget Perl_ck_retarget @@ -1190,6 +1211,7 @@ #define looks_like_bool S_looks_like_bool #define newGIVWHENOP S_newGIVWHENOP #define ref_array_or_hash S_ref_array_or_hash +#define process_special_blocks S_process_special_blocks #endif #endif #if defined(PL_OP_SLAB_ALLOC) @@ -1230,6 +1252,8 @@ #define refto S_refto #endif #endif +#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) +#endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define unpack_rec S_unpack_rec @@ -1326,6 +1350,7 @@ #define join_exact S_join_exact #define regwhite S_regwhite #define nextchar S_nextchar +#define reg_skipcomment S_reg_skipcomment #define scan_commit S_scan_commit #define cl_anything S_cl_anything #define cl_is_anything S_cl_is_anything @@ -1374,6 +1399,7 @@ #if defined(PERL_CORE) || defined(PERL_EXT) #define reghopmaybe3 S_reghopmaybe3 #define find_byclass S_find_byclass +#define swap_match_buff S_swap_match_buff #define to_utf8_substr S_to_utf8_substr #define to_byte_substr S_to_byte_substr #define reg_check_named_buff_matched S_reg_check_named_buff_matched @@ -1843,6 +1869,8 @@ #define madparse Perl_madparse #endif #endif +#if !defined(HAS_SIGNBIT) +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_chdir Perl_ck_chdir @@ -1868,6 +1896,7 @@ #define ck_method Perl_ck_method #define ck_null Perl_ck_null #define ck_open Perl_ck_open +#define ck_readline Perl_ck_readline #define ck_repeat Perl_ck_repeat #define ck_require Perl_ck_require #define ck_return Perl_ck_return @@ -2280,7 +2309,7 @@ #define av_make(a,b) Perl_av_make(aTHX_ a,b) #define av_pop(a) Perl_av_pop(aTHX_ a) #define av_push(a,b) Perl_av_push(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify(a) Perl_av_reify(aTHX_ a) #endif #define av_shift(a) Perl_av_shift(aTHX_ a) @@ -2467,6 +2496,7 @@ #define gv_efullname(a,b) Perl_gv_efullname(aTHX_ a,b) #define gv_efullname4(a,b,c,d) Perl_gv_efullname4(aTHX_ a,b,c,d) #define gv_fetchfile(a) Perl_gv_fetchfile(aTHX_ a) +#define gv_fetchfile_flags(a,b,c) Perl_gv_fetchfile_flags(aTHX_ a,b,c) #define gv_fetchmeth(a,b,c,d) Perl_gv_fetchmeth(aTHX_ a,b,c,d) #define gv_fetchmeth_autoload(a,b,c,d) Perl_gv_fetchmeth_autoload(aTHX_ a,b,c,d) #define gv_fetchmethod_autoload(a,b,c) Perl_gv_fetchmethod_autoload(aTHX_ a,b,c) @@ -2587,12 +2617,14 @@ #define keyword(a,b,c) Perl_keyword(aTHX_ a,b,c) #endif #define leave_scope(a) Perl_leave_scope(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end() Perl_lex_end(aTHX) +#endif +#ifdef PERL_CORE #define lex_start(a) Perl_lex_start(aTHX_ a) #endif #define op_null(a) Perl_op_null(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear(a) Perl_op_clear(aTHX_ a) #endif #define op_refcnt_lock() Perl_op_refcnt_lock(aTHX) @@ -2673,7 +2705,7 @@ #endif #endif #define vmess(a,b) Perl_vmess(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror(a) Perl_qerror(aTHX_ a) #endif #define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c) @@ -2691,8 +2723,10 @@ #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) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod(a,b) Perl_mod(aTHX_ a,b) +#endif +#ifdef PERL_CORE #define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a) #endif #define moreswitches(a) Perl_moreswitches(aTHX_ a) @@ -2770,7 +2804,9 @@ #define newHVhv(a) Perl_newHVhv(aTHX_ a) #define newIO() Perl_newIO(aTHX) #define newLISTOP(a,b,c,d) Perl_newLISTOP(aTHX_ a,b,c,d) +#ifdef USE_ITHREADS #define newPADOP(a,b,c) Perl_newPADOP(aTHX_ a,b,c) +#endif #define newPMOP(a,b) Perl_newPMOP(aTHX_ a,b) #define newPVOP(a,b,c) Perl_newPVOP(aTHX_ a,b,c) #define newRV(a) Perl_newRV(aTHX_ a) @@ -2788,6 +2824,7 @@ #define vnewSVpvf(a,b) Perl_vnewSVpvf(aTHX_ a,b) #define newSVrv(a,b) Perl_newSVrv(aTHX_ a,b) #define newSVsv(a) Perl_newSVsv(aTHX_ a) +#define newSV_type(a) Perl_newSV_type(aTHX_ a) #define newUNOP(a,b,c) Perl_newUNOP(aTHX_ a,b,c) #define newWHENOP(a,b) Perl_newWHENOP(aTHX_ a,b) #define newWHILEOP(a,b,c,d,e,f,g,h) Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g,h) @@ -2795,7 +2832,7 @@ #define scan_vstring(a,b) Perl_scan_vstring(aTHX_ a,b) #define scan_version(a,b,c) Perl_scan_version(aTHX_ a,b,c) #define new_version(a) Perl_new_version(aTHX_ a) -#define upg_version(a) Perl_upg_version(aTHX_ a) +#define upg_version(a,b) Perl_upg_version(aTHX_ a,b) #define vverify(a) Perl_vverify(aTHX_ a) #define vnumify(a) Perl_vnumify(aTHX_ a) #define vnormal(a) Perl_vnormal(aTHX_ a) @@ -2888,6 +2925,9 @@ #define regclass_swash(a,b,c,d,e) Perl_regclass_swash(aTHX_ a,b,c,d,e) #define pregexec(a,b,c,d,e,f,g) Perl_pregexec(aTHX_ a,b,c,d,e,f,g) #define pregfree(a) Perl_pregfree(aTHX_ a) +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_temp_copy(a) Perl_reg_temp_copy(aTHX_ a) +#endif #define regfree_internal(a) Perl_regfree_internal(aTHX_ a) #define reg_stringify(a,b,c,d) Perl_reg_stringify(aTHX_ a,b,c,d) #if defined(USE_ITHREADS) @@ -2901,7 +2941,9 @@ #define regnext(a) Perl_regnext(aTHX_ a) #if defined(PERL_CORE) || defined(PERL_EXT) #define reg_named_buff_get(a,b,c) Perl_reg_named_buff_get(aTHX_ a,b,c) -#define reg_numbered_buff_get(a,b,c,d) Perl_reg_numbered_buff_get(aTHX_ a,b,c,d) +#define reg_numbered_buff_get(a,b,c) Perl_reg_numbered_buff_get(aTHX_ a,b,c) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define regprop(a,b,c) Perl_regprop(aTHX_ a,b,c) #endif #define repeatcpy(a,b,c,d) Perl_repeatcpy(aTHX_ a,b,c,d) @@ -2925,6 +2967,7 @@ #define savepv(a) Perl_savepv(aTHX_ a) #define savepvn(a,b) Perl_savepvn(aTHX_ a,b) #define savesharedpv(a) Perl_savesharedpv(aTHX_ a) +#define savesharedpvn(a,b) Perl_savesharedpvn(aTHX_ a,b) #define savesvpv(a) Perl_savesvpv(aTHX_ a) #define savestack_grow() Perl_savestack_grow(aTHX) #define savestack_grow_cnt(a) Perl_savestack_grow_cnt(aTHX_ a) @@ -2990,7 +3033,7 @@ #define setenv_getix(a) Perl_setenv_getix(aTHX_ a) #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout(a) Perl_setdefout(aTHX_ a) #endif #define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c) @@ -3121,7 +3164,7 @@ #define unpack_str(a,b,c,d,e,f,g,h) Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h) #define unpackstring(a,b,c,d,e) Perl_unpackstring(aTHX_ a,b,c,d,e) #define unsharepvn(a,b,c) Perl_unsharepvn(aTHX_ a,b,c) -#if defined(PERL_CORE) || defined(PERL_EXT) +#ifdef PERL_CORE #define unshare_hek(a) Perl_unshare_hek(aTHX_ a) #endif #ifdef PERL_MAD @@ -3156,8 +3199,10 @@ #define uvuni_to_utf8_flags(a,b,c) Perl_uvuni_to_utf8_flags(aTHX_ a,b,c) #define pv_uni_display(a,b,c,d,e) Perl_pv_uni_display(aTHX_ a,b,c,d,e) #define sv_uni_display(a,b,c,d) Perl_sv_uni_display(aTHX_ a,b,c,d) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a) +#endif +#ifdef PERL_CORE #define vivify_ref(a,b) Perl_vivify_ref(aTHX_ a,b) #define wait4pid(a,b,c) Perl_wait4pid(aTHX_ a,b,c) #define parse_unicode_opts(a) Perl_parse_unicode_opts(aTHX_ a) @@ -3177,7 +3222,11 @@ #ifdef PERL_CORE #define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b) #define yyerror(a) Perl_yyerror(aTHX_ a) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex() Perl_yylex(aTHX) +#endif +#ifdef PERL_CORE #define yyparse() Perl_yyparse(aTHX) #define parser_free(a) Perl_parser_free(aTHX_ a) #define yywarn(a) Perl_yywarn(aTHX_ a) @@ -3351,6 +3400,7 @@ #define ck_method(a) Perl_ck_method(aTHX_ a) #define ck_null(a) Perl_ck_null(aTHX_ a) #define ck_open(a) Perl_ck_open(aTHX_ a) +#define ck_readline(a) Perl_ck_readline(aTHX_ a) #define ck_repeat(a) Perl_ck_repeat(aTHX_ a) #define ck_require(a) Perl_ck_require(aTHX_ a) #define ck_retarget(a) Perl_ck_retarget(aTHX_ a) @@ -3390,6 +3440,7 @@ #define looks_like_bool(a) S_looks_like_bool(aTHX_ a) #define newGIVWHENOP(a,b,c,d,e) S_newGIVWHENOP(aTHX_ a,b,c,d,e) #define ref_array_or_hash(a) S_ref_array_or_hash(aTHX_ a) +#define process_special_blocks(a,b,c) S_process_special_blocks(aTHX_ a,b,c) #endif #endif #if defined(PL_OP_SLAB_ALLOC) @@ -3430,6 +3481,10 @@ #define refto(a) S_refto(aTHX_ a) #endif #endif +#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#endif +#endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define unpack_rec(a,b,c,d,e) S_unpack_rec(aTHX_ a,b,c,d,e) @@ -3526,6 +3581,7 @@ #define join_exact(a,b,c,d,e,f) S_join_exact(aTHX_ a,b,c,d,e,f) #define regwhite S_regwhite #define nextchar(a) S_nextchar(aTHX_ a) +#define reg_skipcomment(a) S_reg_skipcomment(aTHX_ a) #define scan_commit(a,b,c,d) S_scan_commit(aTHX_ a,b,c,d) #define cl_anything S_cl_anything #define cl_is_anything S_cl_is_anything @@ -3573,6 +3629,7 @@ #if defined(PERL_CORE) || defined(PERL_EXT) #define reghopmaybe3 S_reghopmaybe3 #define find_byclass(a,b,c,d,e) S_find_byclass(aTHX_ a,b,c,d,e) +#define swap_match_buff(a) S_swap_match_buff(aTHX_ a) #define to_utf8_substr(a) S_to_utf8_substr(aTHX_ a) #define to_byte_substr(a) S_to_byte_substr(aTHX_ a) #define reg_check_named_buff_matched(a,b) S_reg_check_named_buff_matched(aTHX_ a,b) @@ -4050,6 +4107,10 @@ #define madparse() Perl_madparse(aTHX) #endif #endif +#if !defined(HAS_SIGNBIT) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_chdir(a) Perl_ck_chdir(aTHX_ a) @@ -4075,6 +4136,7 @@ #define ck_method(a) Perl_ck_method(aTHX_ a) #define ck_null(a) Perl_ck_null(aTHX_ a) #define ck_open(a) Perl_ck_open(aTHX_ a) +#define ck_readline(a) Perl_ck_readline(aTHX_ a) #define ck_repeat(a) Perl_ck_repeat(aTHX_ a) #define ck_require(a) Perl_ck_require(aTHX_ a) #define ck_return(a) Perl_ck_return(aTHX_ a)