This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Hack File/Find/find.t to use File::Spec::Unix on Win32.
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 36f2728..fe61bc8 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -101,6 +101,7 @@
 #define block_gimme            Perl_block_gimme
 #define block_start            Perl_block_start
 #define boot_core_UNIVERSAL    Perl_boot_core_UNIVERSAL
+#define boot_core_PerlIO       Perl_boot_core_PerlIO
 #define call_list              Perl_call_list
 #define cando                  Perl_cando
 #define cast_ulong             Perl_cast_ulong
@@ -343,6 +344,8 @@
 #define vload_module           Perl_vload_module
 #define localize               Perl_localize
 #define looks_like_number      Perl_looks_like_number
+#define grok_number            Perl_grok_number
+#define grok_numeric_radix     Perl_grok_numeric_radix
 #define magic_clearenv         Perl_magic_clearenv
 #define magic_clear_all_env    Perl_magic_clear_all_env
 #define magic_clearpack                Perl_magic_clearpack
@@ -418,7 +421,7 @@
 #define moreswitches           Perl_moreswitches
 #define my                     Perl_my
 #define my_atof                        Perl_my_atof
-#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
+#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 #define my_bcopy               Perl_my_bcopy
 #endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
@@ -964,9 +967,11 @@
 #  endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
-#define doencodes              S_doencodes
 #define refto                  S_refto
 #define seed                   S_seed
+#endif
+#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
+#define doencodes              S_doencodes
 #define mul128                 S_mul128
 #define is_an_int              S_is_an_int
 #define div128                 S_div128
@@ -1114,7 +1119,6 @@
 #  if defined(USE_ITHREADS)
 #define gv_share               S_gv_share
 #  endif
-#define grok_number            S_grok_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni              S_check_uni
@@ -1169,8 +1173,10 @@
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 #define isa_lookup             S_isa_lookup
 #endif
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
 #define stdize_locale          S_stdize_locale
+#endif
+#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #define mess_alloc             S_mess_alloc
 #  if defined(LEAKTEST)
 #define xstat                  S_xstat
@@ -1626,6 +1632,7 @@
 #define block_gimme()          Perl_block_gimme(aTHX)
 #define block_start(a)         Perl_block_start(aTHX_ a)
 #define boot_core_UNIVERSAL()  Perl_boot_core_UNIVERSAL(aTHX)
+#define boot_core_PerlIO()     Perl_boot_core_PerlIO(aTHX)
 #define call_list(a,b)         Perl_call_list(aTHX_ a,b)
 #define cando(a,b,c)           Perl_cando(aTHX_ a,b,c)
 #define cast_ulong(a)          Perl_cast_ulong(aTHX_ a)
@@ -1848,6 +1855,8 @@
 #define vload_module(a,b,c,d)  Perl_vload_module(aTHX_ a,b,c,d)
 #define localize(a,b)          Perl_localize(aTHX_ a,b)
 #define looks_like_number(a)   Perl_looks_like_number(aTHX_ a)
+#define grok_number(a,b,c)     Perl_grok_number(aTHX_ a,b,c)
+#define grok_numeric_radix(a,b)        Perl_grok_numeric_radix(aTHX_ a,b)
 #define magic_clearenv(a,b)    Perl_magic_clearenv(aTHX_ a,b)
 #define magic_clear_all_env(a,b)       Perl_magic_clear_all_env(aTHX_ a,b)
 #define magic_clearpack(a,b)   Perl_magic_clearpack(aTHX_ a,b)
@@ -1922,7 +1931,7 @@
 #define moreswitches(a)                Perl_moreswitches(aTHX_ a)
 #define my(a)                  Perl_my(aTHX_ a)
 #define my_atof(a)             Perl_my_atof(aTHX_ a)
-#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
+#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 #define my_bcopy               Perl_my_bcopy
 #endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
@@ -2459,9 +2468,11 @@
 #  endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
-#define doencodes(a,b,c)       S_doencodes(aTHX_ a,b,c)
 #define refto(a)               S_refto(aTHX_ a)
 #define seed()                 S_seed(aTHX)
+#endif
+#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
+#define doencodes(a,b,c)       S_doencodes(aTHX_ a,b,c)
 #define mul128(a,b)            S_mul128(aTHX_ a,b)
 #define is_an_int(a,b)         S_is_an_int(aTHX_ a,b)
 #define div128(a,b)            S_div128(aTHX_ a,b)
@@ -2608,7 +2619,6 @@
 #  if defined(USE_ITHREADS)
 #define gv_share(a)            S_gv_share(aTHX_ a)
 #  endif
-#define grok_number(a,b,c)     S_grok_number(aTHX_ a,b,c)
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni()            S_check_uni(aTHX)
@@ -2663,8 +2673,10 @@
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 #define isa_lookup(a,b,c,d)    S_isa_lookup(aTHX_ a,b,c,d)
 #endif
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
 #define stdize_locale(a)       S_stdize_locale(aTHX_ a)
+#endif
+#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #define mess_alloc()           S_mess_alloc(aTHX)
 #  if defined(LEAKTEST)
 #define xstat(a)               S_xstat(aTHX_ a)
@@ -3160,6 +3172,8 @@
 #define block_start            Perl_block_start
 #define Perl_boot_core_UNIVERSAL       CPerlObj::Perl_boot_core_UNIVERSAL
 #define boot_core_UNIVERSAL    Perl_boot_core_UNIVERSAL
+#define Perl_boot_core_PerlIO  CPerlObj::Perl_boot_core_PerlIO
+#define boot_core_PerlIO       Perl_boot_core_PerlIO
 #define Perl_call_list         CPerlObj::Perl_call_list
 #define call_list              Perl_call_list
 #define Perl_cando             CPerlObj::Perl_cando
@@ -3628,6 +3642,10 @@
 #define localize               Perl_localize
 #define Perl_looks_like_number CPerlObj::Perl_looks_like_number
 #define looks_like_number      Perl_looks_like_number
+#define Perl_grok_number       CPerlObj::Perl_grok_number
+#define grok_number            Perl_grok_number
+#define Perl_grok_numeric_radix        CPerlObj::Perl_grok_numeric_radix
+#define grok_numeric_radix     Perl_grok_numeric_radix
 #define Perl_magic_clearenv    CPerlObj::Perl_magic_clearenv
 #define magic_clearenv         Perl_magic_clearenv
 #define Perl_magic_clear_all_env       CPerlObj::Perl_magic_clear_all_env
@@ -3772,7 +3790,7 @@
 #define my                     Perl_my
 #define Perl_my_atof           CPerlObj::Perl_my_atof
 #define my_atof                        Perl_my_atof
-#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
+#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 #define Perl_my_bcopy          CPerlObj::Perl_my_bcopy
 #define my_bcopy               Perl_my_bcopy
 #endif
@@ -4811,12 +4829,14 @@
 #  endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
-#define S_doencodes            CPerlObj::S_doencodes
-#define doencodes              S_doencodes
 #define S_refto                        CPerlObj::S_refto
 #define refto                  S_refto
 #define S_seed                 CPerlObj::S_seed
 #define seed                   S_seed
+#endif
+#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
+#define S_doencodes            CPerlObj::S_doencodes
+#define doencodes              S_doencodes
 #define S_mul128               CPerlObj::S_mul128
 #define mul128                 S_mul128
 #define S_is_an_int            CPerlObj::S_is_an_int
@@ -5081,8 +5101,6 @@
 #define S_gv_share             CPerlObj::S_gv_share
 #define gv_share               S_gv_share
 #  endif
-#define S_grok_number          CPerlObj::S_grok_number
-#define grok_number            S_grok_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define S_check_uni            CPerlObj::S_check_uni
@@ -5178,9 +5196,11 @@
 #define S_isa_lookup           CPerlObj::S_isa_lookup
 #define isa_lookup             S_isa_lookup
 #endif
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
 #define S_stdize_locale                CPerlObj::S_stdize_locale
 #define stdize_locale          S_stdize_locale
+#endif
+#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #define S_mess_alloc           CPerlObj::S_mess_alloc
 #define mess_alloc             S_mess_alloc
 #  if defined(LEAKTEST)
Unnamed repository; edit this file 'description' to name the repository.