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
Update DB_File to CPAN version 1.828
[perl5.git] / embed.fnc
diff --git a/embed.fnc b/embed.fnc
index ecdde73..0e2d854 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -39,7 +39,7 @@
 :
 :         proto.h: add __attribute__deprecated__
 :
-:   d  Function has documentation in the source:
+:   d  Function has documentation (somewhere) in the source:
 :
 :         enables 'no docs for foo" warning in autodoc.pl
 :
@@ -633,7 +633,7 @@ iDMPR       |bool   |isALNUM_lazy   |NN const char* p
 sR     |U8     |to_lower_latin1|const U8 c|NULLOK U8 *p|NULLOK STRLEN *lenp
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-EXp        |UV        |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const bool flags
+EXp        |UV        |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const unsigned int flags
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C)
 p      |UV     |_to_upper_title_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const char S_or_s
@@ -888,11 +888,6 @@ Ap |void   |my_setenv      |NULLOK const char* nam|NULLOK const char* val
 Apmb   |I32    |my_stat
 pX     |I32    |my_stat_flags  |NULLOK const U32 flags
 Ap     |char * |my_strftime    |NN const char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
-#if defined(MYSWAP)
-ApPR   |short  |my_swap        |short s
-ApPR   |long   |my_htonl       |long l
-ApPR   |long   |my_ntohl       |long l
-#endif
 : Used in pp_ctl.c
 p      |void   |my_unexec
 Apa    |OP*    |newANONLIST    |NULLOK OP* o
@@ -1556,7 +1551,7 @@ p |I32    |wait4pid       |Pid_t pid|NN int* statusp|int flags
 p      |U32    |parse_unicode_opts|NN const char **popt
 Ap     |U32    |seed
 : Only used in perl.c
-p        |void        |get_hash_seed        |NN unsigned char *seed_buffer
+p        |void        |get_hash_seed        |NN unsigned char * const seed_buffer
 : Used in doio.c, pp_hot.c, pp_sys.c
 p      |void   |report_evil_fh |NULLOK const GV *gv
 : Used in doio.c, pp_hot.c, pp_sys.c
@@ -1902,7 +1897,8 @@ sR        |const char *|get_num   |NN const char *patptr|NN I32 *lenptr
 ns     |bool   |need_utf8      |NN const char *pat|NN const char *patend
 ns     |char   |first_symbol   |NN const char *pat|NN const char *patend
 sR     |char * |sv_exp_grow    |NN SV *sv|STRLEN needed
-snR    |char * |bytes_to_uni   |NN const U8 *start|STRLEN len|NN char *dest
+snR    |char * |bytes_to_uni   |NN const U8 *start|STRLEN len|NN char *dest \
+                               |const bool needs_swap
 #endif
 
 #if defined(PERL_IN_PP_CTL_C)
@@ -2435,6 +2431,7 @@ ApoR      |I32*   |hv_riter_p     |NN HV *hv
 ApoR   |HE**   |hv_eiter_p     |NN HV *hv
 Apo    |void   |hv_riter_set   |NN HV *hv|I32 riter
 Apo    |void   |hv_eiter_set   |NN HV *hv|NULLOK HE *eiter
+Ap      |void   |hv_rand_set    |NN HV *hv|U32 new_xhv_rand
 Ap     |void   |hv_name_set    |NN HV *hv|NULLOK const char *name|U32 len|U32 flags
 p      |void   |hv_ename_add   |NN HV *hv|NN const char *name|U32 len \
                                |U32 flags
@@ -2462,84 +2459,6 @@ sMd      |SV*    |find_uninit_var|NULLOK const OP *const obase \
                |NULLOK const SV *const uninit_sv|bool top
 #endif
 
-#ifdef PERL_NEED_MY_HTOLE16
-np     |U16    |my_htole16     |U16 n
-#endif
-#ifdef PERL_NEED_MY_LETOH16
-np     |U16    |my_letoh16     |U16 n
-#endif
-#ifdef PERL_NEED_MY_HTOBE16
-np     |U16    |my_htobe16     |U16 n
-#endif
-#ifdef PERL_NEED_MY_BETOH16
-np     |U16    |my_betoh16     |U16 n
-#endif
-#ifdef PERL_NEED_MY_HTOLE32
-np     |U32    |my_htole32     |U32 n
-#endif
-#ifdef PERL_NEED_MY_LETOH32
-np     |U32    |my_letoh32     |U32 n
-#endif
-#ifdef PERL_NEED_MY_HTOBE32
-np     |U32    |my_htobe32     |U32 n
-#endif
-#ifdef PERL_NEED_MY_BETOH32
-np     |U32    |my_betoh32     |U32 n
-#endif
-#ifdef PERL_NEED_MY_HTOLE64
-np     |U64    |my_htole64     |U64 n
-#endif
-#ifdef PERL_NEED_MY_LETOH64
-np     |U64    |my_letoh64     |U64 n
-#endif
-#ifdef PERL_NEED_MY_HTOBE64
-np     |U64    |my_htobe64     |U64 n
-#endif
-#ifdef PERL_NEED_MY_BETOH64
-np     |U64    |my_betoh64     |U64 n
-#endif
-
-#ifdef PERL_NEED_MY_HTOLES
-np     |short  |my_htoles      |short n
-#endif
-#ifdef PERL_NEED_MY_LETOHS
-np     |short  |my_letohs      |short n
-#endif
-#ifdef PERL_NEED_MY_HTOBES
-np     |short  |my_htobes      |short n
-#endif
-#ifdef PERL_NEED_MY_BETOHS
-np     |short  |my_betohs      |short n
-#endif
-#ifdef PERL_NEED_MY_HTOLEI
-np     |int    |my_htolei      |int n
-#endif
-#ifdef PERL_NEED_MY_LETOHI
-np     |int    |my_letohi      |int n
-#endif
-#ifdef PERL_NEED_MY_HTOBEI
-np     |int    |my_htobei      |int n
-#endif
-#ifdef PERL_NEED_MY_BETOHI
-np     |int    |my_betohi      |int n
-#endif
-#ifdef PERL_NEED_MY_HTOLEL
-np     |long   |my_htolel      |long n
-#endif
-#ifdef PERL_NEED_MY_LETOHL
-np     |long   |my_letohl      |long n
-#endif
-#ifdef PERL_NEED_MY_HTOBEL
-np     |long   |my_htobel      |long n
-#endif
-#ifdef PERL_NEED_MY_BETOHL
-np     |long   |my_betohl      |long n
-#endif
-
-: I think that these are only used by the above, which are macros, and in turn
-: currently they are only used in pp_pack.c, but this is in util.c
-np     |void   |my_swabn       |NN void* ptr|int n
-
 Ap     |GV*    |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|const svtype sv_type
 Ap     |GV*    |gv_fetchsv|NN SV *name|I32 flags|const svtype sv_type
 
Unnamed repository; edit this file 'description' to name the repository.