Specifying when the trimmed down Win64 compiler works.

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 2af070d..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
@@ -291,7 +294,9 @@
 #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
@@ -391,6 +396,18 @@
 #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
@@ -626,6 +643,7 @@
 #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
@@ -956,6 +974,7 @@
 #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
@@ -1435,7 +1454,6 @@
 #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
@@ -1581,6 +1599,7 @@
 #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
@@ -2441,6 +2460,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(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)
@@ -2676,7 +2698,9 @@
 #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)
@@ -2784,6 +2808,18 @@
 #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)
@@ -3016,6 +3052,7 @@
 #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)
@@ -3348,6 +3385,7 @@
 #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)
@@ -3831,7 +3869,6 @@
 #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)
@@ -3980,6 +4017,7 @@
 #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)