This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Specifying when the trimmed down Win64 compiler works.
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 9938096..663cb6b 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -43,6 +43,9 @@
 #endif
 #define get_context            Perl_get_context
 #define set_context            Perl_set_context
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define regcurly               Perl_regcurly
+#endif
 #define amagic_call            Perl_amagic_call
 #define Gv_AMupdate            Perl_Gv_AMupdate
 #define gv_handler             Perl_gv_handler
 #define gv_fullname4           Perl_gv_fullname4
 #define gv_init                        Perl_gv_init
 #define gv_name_set            Perl_gv_name_set
+#ifdef PERL_CORE
 #define gv_try_downgrade       Perl_gv_try_downgrade
+#endif
 #define gv_stashpv             Perl_gv_stashpv
 #define gv_stashpvn            Perl_gv_stashpvn
 #define gv_stashsv             Perl_gv_stashsv
 #define is_utf8_punct          Perl_is_utf8_punct
 #define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define is_utf8_mark           Perl_is_utf8_mark
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define is_utf8_X_begin                Perl_is_utf8_X_begin
+#define is_utf8_X_extend       Perl_is_utf8_X_extend
+#define is_utf8_X_prepend      Perl_is_utf8_X_prepend
+#define is_utf8_X_non_hangul   Perl_is_utf8_X_non_hangul
+#define is_utf8_X_L            Perl_is_utf8_X_L
+#define is_utf8_X_LV           Perl_is_utf8_X_LV
+#define is_utf8_X_LVT          Perl_is_utf8_X_LVT
+#define is_utf8_X_LV_LVT_V     Perl_is_utf8_X_LV_LVT_V
+#define is_utf8_X_T            Perl_is_utf8_X_T
+#define is_utf8_X_V            Perl_is_utf8_X_V
+#endif
 #ifdef PERL_CORE
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define opt_scalarhv           S_opt_scalarhv
+#define is_inplace_av          S_is_inplace_av
 #endif
 #endif
 #define leave_scope            Perl_leave_scope
 #ifdef PERL_CORE
 #define lex_start              Perl_lex_start
 #endif
+#define lex_bufutf8            Perl_lex_bufutf8
+#define lex_grow_linestr       Perl_lex_grow_linestr
+#define lex_stuff_pvn          Perl_lex_stuff_pvn
+#define lex_stuff_sv           Perl_lex_stuff_sv
+#define lex_unstuff            Perl_lex_unstuff
+#define lex_read_to            Perl_lex_read_to
+#define lex_discard_to         Perl_lex_discard_to
+#define lex_next_chunk         Perl_lex_next_chunk
+#define lex_peek_unichar       Perl_lex_peek_unichar
+#define lex_read_unichar       Perl_lex_read_unichar
+#define lex_read_space         Perl_lex_read_space
 #define op_null                        Perl_op_null
 #if defined(PERL_CORE) || defined(PERL_EXT)
 #define op_clear               Perl_op_clear
 #define new_stackinfo          Perl_new_stackinfo
 #define scan_vstring           Perl_scan_vstring
 #define scan_version           Perl_scan_version
+#define prescan_version                Perl_prescan_version
 #define new_version            Perl_new_version
 #define upg_version            Perl_upg_version
 #define vverify                        Perl_vverify
 #define oopsHV                 Perl_oopsHV
 #define pad_leavemy            Perl_pad_leavemy
 #endif
+#ifdef DEBUGGING
 #define pad_sv                 Perl_pad_sv
+#endif
 #ifdef PERL_CORE
 #define pad_free               Perl_pad_free
 #endif
 #define sv_newref              Perl_sv_newref
 #define sv_peek                        Perl_sv_peek
 #define sv_pos_u2b             Perl_sv_pos_u2b
+#define sv_pos_u2b_flags       Perl_sv_pos_u2b_flags
 #define sv_pos_b2u             Perl_sv_pos_b2u
 #define sv_pvutf8n_force       Perl_sv_pvutf8n_force
 #define sv_pvbyten_force       Perl_sv_pvbyten_force
 #define regbranch              S_regbranch
 #define reguni                 S_reguni
 #define regclass               S_regclass
-#define regcurly               S_regcurly
 #define reg_node               S_reg_node
 #define reg_recode             S_reg_recode
 #define regpiece               S_regpiece
 #define check_uni              S_check_uni
 #define force_next             S_force_next
 #define force_version          S_force_version
+#define force_strict_version   S_force_strict_version
 #define force_word             S_force_word
 #define tokeq                  S_tokeq
 #define readpipe_override      S_readpipe_override
 #define pad_undef              Perl_pad_undef
 #define pad_add_name           Perl_pad_add_name
 #define pad_add_anon           Perl_pad_add_anon
-#define pad_check_dup          Perl_pad_check_dup
+#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define pad_check_dup          S_pad_check_dup
+#endif
 #endif
 #ifdef DEBUGGING
 #ifdef PERL_CORE
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define pad_findlex            S_pad_findlex
+#define pad_add_name_sv                S_pad_add_name_sv
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
 #endif
 #endif
 #define save_set_svflags       Perl_save_set_svflags
+#ifdef DEBUGGING
+#endif
 #define hv_scalar              Perl_hv_scalar
 #define hv_name_set            Perl_hv_name_set
 #if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #endif
 #define get_context            Perl_get_context
 #define set_context            Perl_set_context
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define regcurly               Perl_regcurly
+#endif
 #define amagic_call(a,b,c,d)   Perl_amagic_call(aTHX_ a,b,c,d)
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
 #define gv_handler(a,b)                Perl_gv_handler(aTHX_ a,b)
 #endif
 #define gv_init(a,b,c,d,e)     Perl_gv_init(aTHX_ a,b,c,d,e)
 #define gv_name_set(a,b,c,d)   Perl_gv_name_set(aTHX_ a,b,c,d)
+#ifdef PERL_CORE
 #define gv_try_downgrade(a)    Perl_gv_try_downgrade(aTHX_ a)
+#endif
 #define gv_stashpv(a,b)                Perl_gv_stashpv(aTHX_ a,b)
 #define gv_stashpvn(a,b,c)     Perl_gv_stashpvn(aTHX_ a,b,c)
 #define gv_stashsv(a,b)                Perl_gv_stashsv(aTHX_ a,b)
 #define is_utf8_punct(a)       Perl_is_utf8_punct(aTHX_ a)
 #define is_utf8_xdigit(a)      Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)                Perl_is_utf8_mark(aTHX_ a)
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define is_utf8_X_begin(a)     Perl_is_utf8_X_begin(aTHX_ a)
+#define is_utf8_X_extend(a)    Perl_is_utf8_X_extend(aTHX_ a)
+#define is_utf8_X_prepend(a)   Perl_is_utf8_X_prepend(aTHX_ a)
+#define is_utf8_X_non_hangul(a)        Perl_is_utf8_X_non_hangul(aTHX_ a)
+#define is_utf8_X_L(a)         Perl_is_utf8_X_L(aTHX_ a)
+#define is_utf8_X_LV(a)                Perl_is_utf8_X_LV(aTHX_ a)
+#define is_utf8_X_LVT(a)       Perl_is_utf8_X_LVT(aTHX_ a)
+#define is_utf8_X_LV_LVT_V(a)  Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
+#define is_utf8_X_T(a)         Perl_is_utf8_X_T(aTHX_ a)
+#define is_utf8_X_V(a)         Perl_is_utf8_X_V(aTHX_ a)
+#endif
 #ifdef PERL_CORE
 #define jmaybe(a)              Perl_jmaybe(aTHX_ a)
 #define keyword(a,b,c)         Perl_keyword(aTHX_ a,b,c)
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define opt_scalarhv(a)                S_opt_scalarhv(aTHX_ a)
+#define is_inplace_av(a,b)     S_is_inplace_av(aTHX_ a,b)
 #endif
 #endif
 #define leave_scope(a)         Perl_leave_scope(aTHX_ a)
 #ifdef PERL_CORE
 #define lex_start(a,b,c)       Perl_lex_start(aTHX_ a,b,c)
 #endif
+#define lex_bufutf8()          Perl_lex_bufutf8(aTHX)
+#define lex_grow_linestr(a)    Perl_lex_grow_linestr(aTHX_ a)
+#define lex_stuff_pvn(a,b,c)   Perl_lex_stuff_pvn(aTHX_ a,b,c)
+#define lex_stuff_sv(a,b)      Perl_lex_stuff_sv(aTHX_ a,b)
+#define lex_unstuff(a)         Perl_lex_unstuff(aTHX_ a)
+#define lex_read_to(a)         Perl_lex_read_to(aTHX_ a)
+#define lex_discard_to(a)      Perl_lex_discard_to(aTHX_ a)
+#define lex_next_chunk(a)      Perl_lex_next_chunk(aTHX_ a)
+#define lex_peek_unichar(a)    Perl_lex_peek_unichar(aTHX_ a)
+#define lex_read_unichar(a)    Perl_lex_read_unichar(aTHX_ a)
+#define lex_read_space(a)      Perl_lex_read_space(aTHX_ a)
 #define op_null(a)             Perl_op_null(aTHX_ a)
 #if defined(PERL_CORE) || defined(PERL_EXT)
 #define op_clear(a)            Perl_op_clear(aTHX_ a)
 #define new_stackinfo(a,b)     Perl_new_stackinfo(aTHX_ a,b)
 #define scan_vstring(a,b,c)    Perl_scan_vstring(aTHX_ a,b,c)
 #define scan_version(a,b,c)    Perl_scan_version(aTHX_ a,b,c)
+#define prescan_version(a,b,c,d,e,f,g) Perl_prescan_version(aTHX_ a,b,c,d,e,f,g)
 #define new_version(a)         Perl_new_version(aTHX_ a)
 #define upg_version(a,b)       Perl_upg_version(aTHX_ a,b)
 #define vverify(a)             Perl_vverify(aTHX_ a)
 #define oopsHV(a)              Perl_oopsHV(aTHX_ a)
 #define pad_leavemy()          Perl_pad_leavemy(aTHX)
 #endif
+#ifdef DEBUGGING
 #define pad_sv(a)              Perl_pad_sv(aTHX_ a)
+#endif
 #ifdef PERL_CORE
 #define pad_free(a)            Perl_pad_free(aTHX_ a)
 #endif
 #define sv_newref(a)           Perl_sv_newref(aTHX_ a)
 #define sv_peek(a)             Perl_sv_peek(aTHX_ a)
 #define sv_pos_u2b(a,b,c)      Perl_sv_pos_u2b(aTHX_ a,b,c)
+#define sv_pos_u2b_flags(a,b,c,d)      Perl_sv_pos_u2b_flags(aTHX_ a,b,c,d)
 #define sv_pos_b2u(a,b)                Perl_sv_pos_b2u(aTHX_ a,b)
 #define sv_pvutf8n_force(a,b)  Perl_sv_pvutf8n_force(aTHX_ a,b)
 #define sv_pvbyten_force(a,b)  Perl_sv_pvbyten_force(aTHX_ a,b)
 #define regbranch(a,b,c,d)     S_regbranch(aTHX_ a,b,c,d)
 #define reguni(a,b,c)          S_reguni(aTHX_ a,b,c)
 #define regclass(a,b)          S_regclass(aTHX_ a,b)
-#define regcurly               S_regcurly
 #define reg_node(a,b)          S_reg_node(aTHX_ a,b)
 #define reg_recode(a,b)                S_reg_recode(aTHX_ a,b)
 #define regpiece(a,b,c)                S_regpiece(aTHX_ a,b,c)
 #define check_uni()            S_check_uni(aTHX)
 #define force_next(a)          S_force_next(aTHX_ a)
 #define force_version(a,b)     S_force_version(aTHX_ a,b)
+#define force_strict_version(a)        S_force_strict_version(aTHX_ a)
 #define force_word(a,b,c,d,e)  S_force_word(aTHX_ a,b,c,d,e)
 #define tokeq(a)               S_tokeq(aTHX_ a)
 #define readpipe_override()    S_readpipe_override(aTHX)
 #define pad_undef(a)           Perl_pad_undef(aTHX_ a)
 #define pad_add_name(a,b,c,d,e)        Perl_pad_add_name(aTHX_ a,b,c,d,e)
 #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)
+#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define pad_check_dup(a,b,c)   S_pad_check_dup(aTHX_ a,b,c)
+#endif
 #endif
 #ifdef DEBUGGING
 #ifdef PERL_CORE
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define pad_findlex(a,b,c,d,e,f,g)     S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
+#define pad_add_name_sv(a,b,c,d)       S_pad_add_name_sv(aTHX_ a,b,c,d)
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
 #endif
 #endif
 #define save_set_svflags(a,b,c)        Perl_save_set_svflags(aTHX_ a,b,c)
+#ifdef DEBUGGING
+#endif
 #define hv_scalar(a)           Perl_hv_scalar(aTHX_ a)
 #define hv_name_set(a,b,c,d)   Perl_hv_name_set(aTHX_ a,b,c,d)
 #ifdef PERL_CORE