avoid literal 'undef' in $lddlflags under `Configure -Uoptimize`
[p5sagit/p5-mst-13.2.git] / embed.h
diff --git a/embed.h b/embed.h
index d6aca6d..d21cc3b 100644 (file)
--- 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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 #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
 
 #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)
+