X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=d21cc3b8326102596fc562b0f3830d59cd0d4537;hb=a07564da6e950450ea09426c273257a48fb8ba9a;hp=d6aca6dc609275c00a5ac3a123a9ebbf273b6f04;hpb=3967c732803d47eb9e3dd99812f099d7f15ec379;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index d6aca6d..d21cc3b 100644 --- a/embed.h +++ b/embed.h @@ -49,9 +49,6 @@ #define cast_iv Perl_cast_iv #define cast_ulong Perl_cast_ulong #define cast_uv Perl_cast_uv -#define check_uni Perl_check_uni -#define checkcomma Perl_checkcomma -#define ck_aelem Perl_ck_aelem #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -152,18 +149,13 @@ #define dump_sub Perl_dump_sub #define fbm_compile Perl_fbm_compile #define fbm_instr Perl_fbm_instr -#define fetch_gv Perl_fetch_gv -#define fetch_io Perl_fetch_io #define filter_add Perl_filter_add #define filter_del Perl_filter_del #define filter_read Perl_filter_read #define find_script Perl_find_script #define find_threadsv Perl_find_threadsv #define fold_constants Perl_fold_constants -#define force_ident Perl_force_ident #define force_list Perl_force_list -#define force_next Perl_force_next -#define force_word Perl_force_word #define form Perl_form #define free_tmps Perl_free_tmps #define gen_constant_list Perl_gen_constant_list @@ -222,7 +214,6 @@ #define init_thread_intern Perl_init_thread_intern #define instr Perl_instr #define intro_my Perl_intro_my -#define intuit_more Perl_intuit_more #define invert Perl_invert #define io_close Perl_io_close #define is_uni_alnum Perl_is_uni_alnum @@ -322,9 +313,7 @@ #define mg_set Perl_mg_set #define mg_size Perl_mg_size #define mod Perl_mod -#define modkids Perl_modkids #define moreswitches Perl_moreswitches -#define mstats Perl_mstats #define my Perl_my #define my_bcopy Perl_my_bcopy #define my_bzero Perl_my_bzero @@ -389,13 +378,10 @@ #define newUNOP Perl_newUNOP #define newWHILEOP Perl_newWHILEOP #define newXS Perl_newXS -#define newXSUB Perl_newXSUB #define new_stackinfo Perl_new_stackinfo #define new_struct_thread Perl_new_struct_thread #define nextargv Perl_nextargv #define ninstr Perl_ninstr -#define no_fh_allowed Perl_no_fh_allowed -#define no_op Perl_no_op #define oopsAV Perl_oopsAV #define oopsCV Perl_oopsCV #define oopsHV Perl_oopsHV @@ -774,6 +760,7 @@ #define refkids Perl_refkids #define regdump Perl_regdump #define regexec_flags Perl_regexec_flags +#define reginitcolors Perl_reginitcolors #define regnext Perl_regnext #define regprop Perl_regprop #define repeatcpy Perl_repeatcpy @@ -787,10 +774,10 @@ #define rxres_free Perl_rxres_free #define rxres_restore Perl_rxres_restore #define rxres_save Perl_rxres_save -#define safecalloc Perl_safecalloc -#define safefree Perl_safefree -#define safemalloc Perl_safemalloc -#define saferealloc Perl_saferealloc +#define safesyscalloc Perl_safesyscalloc +#define safesysfree Perl_safesysfree +#define safesysmalloc Perl_safesysmalloc +#define safesysrealloc Perl_safesysrealloc #define safexcalloc Perl_safexcalloc #define safexfree Perl_safexfree #define safexmalloc Perl_safexmalloc @@ -835,20 +822,10 @@ #define scalarkids Perl_scalarkids #define scalarseq Perl_scalarseq #define scalarvoid Perl_scalarvoid -#define scan_const Perl_scan_const -#define scan_formline Perl_scan_formline -#define scan_heredoc Perl_scan_heredoc +#define scan_bin Perl_scan_bin #define scan_hex Perl_scan_hex -#define scan_ident Perl_scan_ident -#define scan_inputsymbol Perl_scan_inputsymbol #define scan_num Perl_scan_num #define scan_oct Perl_scan_oct -#define scan_pat Perl_scan_pat -#define scan_prefix Perl_scan_prefix -#define scan_str Perl_scan_str -#define scan_subst Perl_scan_subst -#define scan_trans Perl_scan_trans -#define scan_word Perl_scan_word #define scope Perl_scope #define screaminstr Perl_screaminstr #define setdefout Perl_setdefout @@ -856,7 +833,6 @@ #define share_hek Perl_share_hek #define sharepvn Perl_sharepvn #define sighandler Perl_sighandler -#define skipspace Perl_skipspace #define stack_grow Perl_stack_grow #define start_subparse Perl_start_subparse #define sub_crush_depth Perl_sub_crush_depth @@ -867,6 +843,7 @@ #define sv_2mortal Perl_sv_2mortal #define sv_2nv Perl_sv_2nv #define sv_2pv Perl_sv_2pv +#define sv_2pv_nolen Perl_sv_2pv_nolen #define sv_2uv Perl_sv_2uv #define sv_add_arena Perl_sv_add_arena #define sv_backoff Perl_sv_backoff @@ -910,9 +887,9 @@ #define sv_peek Perl_sv_peek #define sv_pos_b2u Perl_sv_pos_b2u #define sv_pos_u2b Perl_sv_pos_u2b +#define sv_pv Perl_sv_pv #define sv_pvn Perl_sv_pvn #define sv_pvn_force Perl_sv_pvn_force -#define sv_ref Perl_sv_ref #define sv_reftype Perl_sv_reftype #define sv_replace Perl_sv_replace #define sv_report_used Perl_sv_report_used @@ -921,7 +898,6 @@ #define sv_setiv_mg Perl_sv_setiv_mg #define sv_setnv Perl_sv_setnv #define sv_setnv_mg Perl_sv_setnv_mg -#define sv_setptrobj Perl_sv_setptrobj #define sv_setpv Perl_sv_setpv #define sv_setpv_mg Perl_sv_setpv_mg #define sv_setpvf Perl_sv_setpvf @@ -963,8 +939,6 @@ #define to_utf8_lower Perl_to_utf8_lower #define to_utf8_title Perl_to_utf8_title #define to_utf8_upper Perl_to_utf8_upper -#define too_few_arguments Perl_too_few_arguments -#define too_many_arguments Perl_too_many_arguments #define unlnk Perl_unlnk #define unlock_condpair Perl_unlock_condpair #define unshare_hek Perl_unshare_hek @@ -996,6 +970,8 @@ #define amagic_call CPerlObj::Perl_amagic_call #define amagic_cmp CPerlObj::Perl_amagic_cmp #define amagic_cmp_locale CPerlObj::Perl_amagic_cmp_locale +#define amagic_i_ncmp CPerlObj::Perl_amagic_i_ncmp +#define amagic_ncmp CPerlObj::Perl_amagic_ncmp #define ao CPerlObj::Perl_ao #define append_elem CPerlObj::Perl_append_elem #define append_list CPerlObj::Perl_append_list @@ -1040,10 +1016,7 @@ #define cast_ulong CPerlObj::Perl_cast_ulong #define cast_uv CPerlObj::Perl_cast_uv #define check_uni CPerlObj::Perl_check_uni -#define check_uni CPerlObj::Perl_check_uni -#define checkcomma CPerlObj::Perl_checkcomma #define checkcomma CPerlObj::Perl_checkcomma -#define ck_aelem CPerlObj::Perl_ck_aelem #define ck_anoncode CPerlObj::Perl_ck_anoncode #define ck_bitop CPerlObj::Perl_ck_bitop #define ck_concat CPerlObj::Perl_ck_concat @@ -1076,6 +1049,7 @@ #define ck_subr CPerlObj::Perl_ck_subr #define ck_svconst CPerlObj::Perl_ck_svconst #define ck_trunc CPerlObj::Perl_ck_trunc +#define clear_re CPerlObj::Perl_clear_re #define condpair_magic CPerlObj::Perl_condpair_magic #define convert CPerlObj::Perl_convert #define croak CPerlObj::Perl_croak @@ -1183,8 +1157,6 @@ #define emulate_eaccess CPerlObj::Perl_emulate_eaccess #define fbm_compile CPerlObj::Perl_fbm_compile #define fbm_instr CPerlObj::Perl_fbm_instr -#define fetch_gv CPerlObj::Perl_fetch_gv -#define fetch_io CPerlObj::Perl_fetch_io #define filter_add CPerlObj::Perl_filter_add #define filter_del CPerlObj::Perl_filter_del #define filter_gets CPerlObj::Perl_filter_gets @@ -1195,13 +1167,10 @@ #define fold_constants CPerlObj::Perl_fold_constants #define forbid_setid CPerlObj::Perl_forbid_setid #define force_ident CPerlObj::Perl_force_ident -#define force_ident CPerlObj::Perl_force_ident #define force_list CPerlObj::Perl_force_list #define force_next CPerlObj::Perl_force_next -#define force_next CPerlObj::Perl_force_next #define force_version CPerlObj::Perl_force_version #define force_word CPerlObj::Perl_force_word -#define force_word CPerlObj::Perl_force_word #define form CPerlObj::Perl_form #define fprintf CPerlObj::Perl_fprintf #define free_tmps CPerlObj::Perl_free_tmps @@ -1279,10 +1248,10 @@ #define intro_my CPerlObj::Perl_intro_my #define intuit_method CPerlObj::Perl_intuit_method #define intuit_more CPerlObj::Perl_intuit_more -#define intuit_more CPerlObj::Perl_intuit_more #define invert CPerlObj::Perl_invert #define io_close CPerlObj::Perl_io_close #define is_an_int CPerlObj::Perl_is_an_int +#define is_handle_constructor CPerlObj::Perl_is_handle_constructor #define is_uni_alnum CPerlObj::Perl_is_uni_alnum #define is_uni_alnum_lc CPerlObj::Perl_is_uni_alnum_lc #define is_uni_alpha CPerlObj::Perl_is_uni_alpha @@ -1389,7 +1358,6 @@ #define missingterm CPerlObj::Perl_missingterm #define mod CPerlObj::Perl_mod #define modkids CPerlObj::Perl_modkids -#define modkids CPerlObj::Perl_modkids #define more_he CPerlObj::Perl_more_he #define more_sv CPerlObj::Perl_more_sv #define more_xiv CPerlObj::Perl_more_xiv @@ -1397,7 +1365,6 @@ #define more_xpv CPerlObj::Perl_more_xpv #define more_xrv CPerlObj::Perl_more_xrv #define moreswitches CPerlObj::Perl_moreswitches -#define mstats CPerlObj::Perl_mstats #define mul128 CPerlObj::Perl_mul128 #define my CPerlObj::Perl_my #define my_bcopy CPerlObj::Perl_my_bcopy @@ -1466,7 +1433,6 @@ #define newUNOP CPerlObj::Perl_newUNOP #define newWHILEOP CPerlObj::Perl_newWHILEOP #define newXS CPerlObj::Perl_newXS -#define newXSUB CPerlObj::Perl_newXSUB #define new_constant CPerlObj::Perl_new_constant #define new_he CPerlObj::Perl_new_he #define new_logop CPerlObj::Perl_new_logop @@ -1480,8 +1446,6 @@ #define nextchar CPerlObj::Perl_nextchar #define ninstr CPerlObj::Perl_ninstr #define no_fh_allowed CPerlObj::Perl_no_fh_allowed -#define no_fh_allowed CPerlObj::Perl_no_fh_allowed -#define no_op CPerlObj::Perl_no_op #define no_op CPerlObj::Perl_no_op #define not_a_number CPerlObj::Perl_not_a_number #define nuke_stacks CPerlObj::Perl_nuke_stacks @@ -1909,11 +1873,13 @@ #define reghopmaybe CPerlObj::Perl_reghopmaybe #define reginclass CPerlObj::Perl_reginclass #define reginclassutf8 CPerlObj::Perl_reginclassutf8 +#define reginitcolors CPerlObj::Perl_reginitcolors #define reginsert CPerlObj::Perl_reginsert #define regmatch CPerlObj::Perl_regmatch #define regnext CPerlObj::Perl_regnext #define regoptail CPerlObj::Perl_regoptail #define regpiece CPerlObj::Perl_regpiece +#define regpposixcc CPerlObj::Perl_regpposixcc #define regprop CPerlObj::Perl_regprop #define regrepeat CPerlObj::Perl_regrepeat #define regrepeat_hard CPerlObj::Perl_regrepeat_hard @@ -1926,6 +1892,7 @@ #define restore_expect CPerlObj::Perl_restore_expect #define restore_lex_expect CPerlObj::Perl_restore_lex_expect #define restore_magic CPerlObj::Perl_restore_magic +#define restore_pos CPerlObj::Perl_restore_pos #define restore_rsfp CPerlObj::Perl_restore_rsfp #define rninstr CPerlObj::Perl_rninstr #define rsignal CPerlObj::Perl_rsignal @@ -1939,10 +1906,10 @@ #define rxres_free CPerlObj::Perl_rxres_free #define rxres_restore CPerlObj::Perl_rxres_restore #define rxres_save CPerlObj::Perl_rxres_save -#define safecalloc CPerlObj::Perl_safecalloc -#define safefree CPerlObj::Perl_safefree -#define safemalloc CPerlObj::Perl_safemalloc -#define saferealloc CPerlObj::Perl_saferealloc +#define safesyscalloc CPerlObj::Perl_safesyscalloc +#define safesysfree CPerlObj::Perl_safesysfree +#define safesysmalloc CPerlObj::Perl_safesysmalloc +#define safesysrealloc CPerlObj::Perl_safesysrealloc #define safexcalloc CPerlObj::Perl_safexcalloc #define safexfree CPerlObj::Perl_safexfree #define safexmalloc CPerlObj::Perl_safexmalloc @@ -1992,30 +1959,20 @@ #define scalarkids CPerlObj::Perl_scalarkids #define scalarseq CPerlObj::Perl_scalarseq #define scalarvoid CPerlObj::Perl_scalarvoid +#define scan_bin CPerlObj::Perl_scan_bin #define scan_commit CPerlObj::Perl_scan_commit #define scan_const CPerlObj::Perl_scan_const -#define scan_const CPerlObj::Perl_scan_const -#define scan_formline CPerlObj::Perl_scan_formline #define scan_formline CPerlObj::Perl_scan_formline #define scan_heredoc CPerlObj::Perl_scan_heredoc -#define scan_heredoc CPerlObj::Perl_scan_heredoc #define scan_hex CPerlObj::Perl_scan_hex #define scan_ident CPerlObj::Perl_scan_ident -#define scan_ident CPerlObj::Perl_scan_ident -#define scan_inputsymbol CPerlObj::Perl_scan_inputsymbol #define scan_inputsymbol CPerlObj::Perl_scan_inputsymbol #define scan_num CPerlObj::Perl_scan_num #define scan_oct CPerlObj::Perl_scan_oct #define scan_pat CPerlObj::Perl_scan_pat -#define scan_pat CPerlObj::Perl_scan_pat -#define scan_prefix CPerlObj::Perl_scan_prefix #define scan_str CPerlObj::Perl_scan_str -#define scan_str CPerlObj::Perl_scan_str -#define scan_subst CPerlObj::Perl_scan_subst #define scan_subst CPerlObj::Perl_scan_subst #define scan_trans CPerlObj::Perl_scan_trans -#define scan_trans CPerlObj::Perl_scan_trans -#define scan_word CPerlObj::Perl_scan_word #define scan_word CPerlObj::Perl_scan_word #define scope CPerlObj::Perl_scope #define screaminstr CPerlObj::Perl_screaminstr @@ -2026,7 +1983,7 @@ #define share_hek CPerlObj::Perl_share_hek #define sharepvn CPerlObj::Perl_sharepvn #define sighandler CPerlObj::Perl_sighandler -#define skipspace CPerlObj::Perl_skipspace +#define simplify_sort CPerlObj::Perl_simplify_sort #define skipspace CPerlObj::Perl_skipspace #define sortcv CPerlObj::Perl_sortcv #define stack_grow CPerlObj::Perl_stack_grow @@ -2043,6 +2000,7 @@ #define sv_2mortal CPerlObj::Perl_sv_2mortal #define sv_2nv CPerlObj::Perl_sv_2nv #define sv_2pv CPerlObj::Perl_sv_2pv +#define sv_2pv_nolen CPerlObj::Perl_sv_2pv_nolen #define sv_2uv CPerlObj::Perl_sv_2uv #define sv_add_arena CPerlObj::Perl_sv_add_arena #define sv_backoff CPerlObj::Perl_sv_backoff @@ -2072,6 +2030,7 @@ #define sv_free_arenas CPerlObj::Perl_sv_free_arenas #define sv_gets CPerlObj::Perl_sv_gets #define sv_grow CPerlObj::Perl_sv_grow +#define sv_i_ncmp CPerlObj::Perl_sv_i_ncmp #define sv_inc CPerlObj::Perl_sv_inc #define sv_insert CPerlObj::Perl_sv_insert #define sv_isa CPerlObj::Perl_sv_isa @@ -2082,15 +2041,16 @@ #define sv_magic CPerlObj::Perl_sv_magic #define sv_mortalcopy CPerlObj::Perl_sv_mortalcopy #define sv_mortalgrow CPerlObj::Perl_sv_mortalgrow +#define sv_ncmp CPerlObj::Perl_sv_ncmp #define sv_newmortal CPerlObj::Perl_sv_newmortal #define sv_newref CPerlObj::Perl_sv_newref #define sv_nv CPerlObj::Perl_sv_nv #define sv_peek CPerlObj::Perl_sv_peek #define sv_pos_b2u CPerlObj::Perl_sv_pos_b2u #define sv_pos_u2b CPerlObj::Perl_sv_pos_u2b +#define sv_pv CPerlObj::Perl_sv_pv #define sv_pvn CPerlObj::Perl_sv_pvn #define sv_pvn_force CPerlObj::Perl_sv_pvn_force -#define sv_ref CPerlObj::Perl_sv_ref #define sv_reftype CPerlObj::Perl_sv_reftype #define sv_replace CPerlObj::Perl_sv_replace #define sv_report_used CPerlObj::Perl_sv_report_used @@ -2099,7 +2059,6 @@ #define sv_setiv_mg CPerlObj::Perl_sv_setiv_mg #define sv_setnv CPerlObj::Perl_sv_setnv #define sv_setnv_mg CPerlObj::Perl_sv_setnv_mg -#define sv_setptrobj CPerlObj::Perl_sv_setptrobj #define sv_setpv CPerlObj::Perl_sv_setpv #define sv_setpv_mg CPerlObj::Perl_sv_setpv_mg #define sv_setpvf CPerlObj::Perl_sv_setpvf @@ -2144,8 +2103,6 @@ #define to_utf8_upper CPerlObj::Perl_to_utf8_upper #define tokeq CPerlObj::Perl_tokeq #define too_few_arguments CPerlObj::Perl_too_few_arguments -#define too_few_arguments CPerlObj::Perl_too_few_arguments -#define too_many_arguments CPerlObj::Perl_too_many_arguments #define too_many_arguments CPerlObj::Perl_too_many_arguments #define uni CPerlObj::Perl_uni #define unlnk CPerlObj::Perl_unlnk @@ -2180,3 +2137,8 @@ #endif /* PERL_OBJECT */ +/* compatibility stubs */ + +#define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr) +#define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr) +