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
Re: [PATCH] Re: [perl #32383] DProf breaks List::Util::shuffle
[perl5.git] / embed.fnc
diff --git a/embed.fnc b/embed.fnc
index c8f96ec..5ea795f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -113,13 +113,13 @@ Apd       |void   |av_undef       |NULLOK AV* ar
 Apd    |void   |av_unshift     |NULLOK AV* ar|I32 num
 Apo    |SV**   |av_arylen_p    |NN AV* av
 pR     |OP*    |bind_match     |I32 type|NN OP* left|NN OP* pat
-pR     |OP*    |block_end      |I32 floor|NN OP* seq
+pR     |OP*    |block_end      |I32 floor|NULLOK OP* seq
 ApR    |I32    |block_gimme
 pR     |int    |block_start    |int full
 p      |void   |boot_core_UNIVERSAL
 p      |void   |boot_core_PerlIO
 Ap     |void   |call_list      |I32 oldscope|NN AV* av_list
-pR     |bool   |cando          |Mode_t mode|Uid_t effective|NN const Stat_t* statbufp
+pR     |bool   |cando          |Mode_t mode|bool effective|NN const Stat_t* statbufp
 ApR    |U32    |cast_ulong     |NV f
 ApR    |I32    |cast_i32       |NV f
 ApR    |IV     |cast_iv        |NV f
@@ -128,7 +128,8 @@ ApR |UV     |cast_uv        |NV f
 ApR    |I32    |my_chsize      |int fd|Off_t length
 #endif
 pR     |OP*    |convert        |I32 optype|I32 flags|NULLOK OP* o
-Afprd  |void   |croak          |NN const char* pat|...
+: croak()'s first parm can be NULL.  Otherwise, mod_perl breaks.
+Afprd  |void   |croak          |NULLOK const char* pat|...
 Apr    |void   |vcroak         |NN const char* pat|NULLOK va_list* args
 #if defined(PERL_IMPLICIT_CONTEXT)
 Afnrp  |void   |croak_nocontext|NN const char* pat|...
@@ -174,16 +175,22 @@ p |void   |deprecate      |NN const char* s
 p      |void   |deprecate_old  |NN const char* s
 Afp    |OP*    |die            |NULLOK const char* pat|...
 p      |OP*    |vdie           |NULLOK const char* pat|NULLOK va_list* args
-p      |OP*    |die_where      |NN const char* message|STRLEN msglen
+p      |OP*    |die_where      |NULLOK const char* message|STRLEN msglen
 Ap     |void   |dounwind       |I32 cxix
-p      |bool   |do_aexec       |NULLOK SV* really|NN SV** mark|NN SV** sp
+pmb    |bool   |do_aexec       |NULLOK SV* really|NN SV** mark|NN SV** sp
 p      |bool   |do_aexec5      |NULLOK SV* really|NN SV** mark|NN SV** sp|int fd|int flag
 Ap     |int    |do_binmode     |NN PerlIO *fp|int iotype|int mode
 p      |void   |do_chop        |NN SV* asv|NN SV* sv
 Ap     |bool   |do_close       |NN GV* gv|bool not_implicit
 p      |bool   |do_eof         |NN GV* gv
+
+#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
+pmb    |bool   |do_exec        |NN const char* cmd
+#else
 p      |bool   |do_exec        |NN const char* cmd
-#if defined(WIN32) || defined(SYMBIAN)
+#endif
+
+#if defined(WIN32) || defined(__SYMBIAN32__)
 Ap     |int    |do_aspawn      |NN SV* really|NN SV** mark|NN SV** sp
 Ap     |int    |do_spawn       |NN char* cmd
 Ap     |int    |do_spawn_nowait|NN char* cmd
@@ -202,7 +209,7 @@ p   |I32    |do_shmio       |I32 optype|NN SV** mark|NN SV** sp
 #endif
 Ap     |void   |do_join        |NN SV* sv|NN SV* del|NN SV** mark|NN SV** sp
 p      |OP*    |do_kv
-Ap     |bool   |do_open        |NN GV* gv|NN const char* name|I32 len|int as_raw \
+Apmb   |bool   |do_open        |NN GV* gv|NN const char* name|I32 len|int as_raw \
                                |int rawmode|int rawperm|NULLOK PerlIO* supplied_fp
 Ap     |bool   |do_open9       |NN GV *gv|NN const char *name|I32 len|int as_raw \
                                |int rawmode|int rawperm|NULLOK PerlIO *supplied_fp \
@@ -262,7 +269,7 @@ Ap  |void   |gv_efullname4  |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|boo
 Ap     |GV*    |gv_fetchfile   |NN const char* name
 Apd    |GV*    |gv_fetchmeth   |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
 Apd    |GV*    |gv_fetchmeth_autoload  |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
-Apd    |GV*    |gv_fetchmethod |NULLOK HV* stash|NN const char* name
+Apdmb  |GV*    |gv_fetchmethod |NULLOK HV* stash|NN const char* name
 Apd    |GV*    |gv_fetchmethod_autoload|NULLOK HV* stash|NN const char* name|I32 autoload
 Ap     |GV*    |gv_fetchpv     |NN const char* name|I32 add|I32 sv_type
 Ap     |void   |gv_fullname    |NN SV* sv|NN const GV* gv
@@ -284,12 +291,12 @@ Ap        |void   |hv_free_ent    |NN HV* hv|NULLOK HE* entryK
 Apd    |I32    |hv_iterinit    |NN HV* tb
 ApdR   |char*  |hv_iterkey     |NN HE* entry|NN I32* retlen
 ApdR   |SV*    |hv_iterkeysv   |NN HE* entry
-ApdR   |HE*    |hv_iternext    |NN HV* tb
+ApdRbm |HE*    |hv_iternext    |NN HV* tb
 ApdR   |SV*    |hv_iternextsv  |NN HV* hv|NN char** key|NN I32* retlen
 ApMdR  |HE*    |hv_iternext_flags|NN HV* tb|I32 flags
 ApdR   |SV*    |hv_iterval     |NN HV* tb|NN HE* entry
 Ap     |void   |hv_ksplit      |NN HV* hv|IV newmax
-Apd    |void   |hv_magic       |NN HV* hv|NULLOK GV* gv|int how
+Apdbm  |void   |hv_magic       |NN HV* hv|NULLOK GV* gv|int how
 Apd    |SV**   |hv_store       |NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \
                                |U32 hash
 Apd    |HE*    |hv_store_ent   |NULLOK HV* tb|NULLOK SV* key|NULLOK SV* val|U32 hash
@@ -300,7 +307,7 @@ ApP |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
 ApP    |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
 Apd    |I32    |ibcmp_utf8     |NN const char* a|NULLOK char **pe1|UV l1|bool u1 \
                                |NN const char* b|NULLOK char **pe2|UV l2|bool u2
-pR     |bool   |ingroup        |Gid_t testgid|Uid_t effective
+pR     |bool   |ingroup        |Gid_t testgid|bool effective
 p      |void   |init_argv_symbols|int argc|NN char **argv
 p      |void   |init_debugger
 Ap     |void   |init_stacks
@@ -348,7 +355,7 @@ ApPR        |bool   |is_uni_punct_lc|UV c
 ApPR   |bool   |is_uni_xdigit_lc|UV c
 Apd    |STRLEN |is_utf8_char   |NN const U8 *p
 Apd    |bool   |is_utf8_string |NN const U8 *s|STRLEN len
-Apd    |bool   |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p
+Apdmb  |bool   |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p
 Apd    |bool   |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep|NULLOK STRLEN *el
 ApR    |bool   |is_utf8_alnum  |NN const U8 *p
 ApR    |bool   |is_utf8_alnumc |NN const U8 *p
@@ -562,7 +569,7 @@ p   |PerlIO*|nextargv       |NN GV* gv
 ApP    |char*  |ninstr         |NN const char* big|NN const char* bigend \
                                |NN const char* little|NN const char* lend
 pr     |OP*    |oopsCV         |NN OP* o
-Ap     |void   |op_free        |NN OP* arg
+Ap     |void   |op_free        |NULLOK OP* arg
 p      |void   |package        |NN OP* o
 pd     |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
 p      |PADOFFSET|allocmy      |NN char* name
@@ -589,6 +596,7 @@ Apd |I32    |call_method    |NN const char* methname|I32 flags
 Apd    |I32    |call_pv        |NN const char* sub_name|I32 flags
 Apd    |I32    |call_sv        |NN SV* sv|I32 flags
 Ap     |void   |despatch_signals
+Ap     |OP *   |doref          |NN OP *o|I32 type|bool set_op_ref
 Apd    |SV*    |eval_pv        |NN const char* p|I32 croak_on_error
 Apd    |I32    |eval_sv        |NN SV* sv|I32 flags
 Apd    |SV*    |get_sv         |NN const char* name|I32 create
@@ -607,14 +615,16 @@ Apd       |void   |require_pv     |NN const char* pv
 Apd    |void   |pack_cat       |NN SV *cat|NN const char *pat|NN const char *patend \
                                |NN SV **beglist|NN SV **endlist|NN SV ***next_in_list|U32 flags
 Apd    |void   |packlist       |NN SV *cat|NN const char *pat|NN const char *patend|NN SV **beglist|NN SV **endlist
+#ifdef PERL_USES_PL_PIDSTATUS
 p      |void   |pidgone        |Pid_t pid|int status
+#endif
 Ap     |void   |pmflag         |NN U32* pmfl|int ch
 p      |OP*    |pmruntime      |NN OP* pm|NN OP* expr|bool isreg
 p      |OP*    |pmtrans        |NN OP* o|NN OP* expr|NN OP* repl
 Ap     |void   |pop_scope
 p      |OP*    |prepend_elem   |I32 optype|NULLOK OP* head|NULLOK OP* tail
 Ap     |void   |push_scope
-p      |OP*    |ref            |NULLOK OP* o|I32 type
+Amb    |OP*    |ref            |NULLOK OP* o|I32 type
 p      |OP*    |refkids        |NULLOK OP* o|I32 type
 Ap     |void   |regdump        |NN regexp* r
 Ap     |SV*    |regclass_swash |NN const struct regnode *n|bool doinit|NULLOK SV **listsvp|NULLOK SV **altsvp
@@ -659,7 +669,7 @@ Ap  |void   |save_bool      |NN bool* boolp
 Ap     |void   |save_clearsv   |NN SV** svp
 Ap     |void   |save_delete    |NN HV* hv|NN char* key|I32 klen
 Ap     |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p
-Ap     |void   |save_destructor_x|DESTRUCTORFUNC_t f|NN void* p
+Ap     |void   |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p
 Ap     |void   |save_freesv    |NULLOK SV* sv
 p      |void   |save_freeop    |NULLOK OP* o
 Ap     |void   |save_freepv    |NULLOK char* pv
@@ -715,14 +725,14 @@ np        |Signal_t |sighandler   |int sig
 Anp    |Signal_t |csighandler  |int sig
 #endif
 Ap     |SV**   |stack_grow     |NN SV** sp|NN SV**p|int n
-ApR    |I32    |start_subparse |I32 is_format|U32 flags
+Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|NN CV* cv
 Apd    |bool   |sv_2bool       |NN SV* sv
 Apd    |CV*    |sv_2cv         |NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref
 Apd    |IO*    |sv_2io         |NN SV* sv
 Amb    |IV     |sv_2iv         |NN SV* sv
 Apd    |IV     |sv_2iv_flags   |NN SV* sv|I32 flags
-Apd    |SV*    |sv_2mortal     |NN SV* sv
+Apd    |SV*    |sv_2mortal     |NULLOK SV* sv
 Apd    |NV     |sv_2nv         |NN SV* sv
 Amb    |char*  |sv_2pv         |NN SV* sv|NULLOK STRLEN* lp
 Apd    |char*  |sv_2pv_flags   |NN SV* sv|NULLOK STRLEN* lp|I32 flags
@@ -760,7 +770,7 @@ Apd |int    |getcwd_sv      |NN SV* sv
 Apd    |void   |sv_dec         |NN SV* sv
 Ap     |void   |sv_dump        |NN SV* sv
 ApdR   |bool   |sv_derived_from|NN SV* sv|NN const char* name
-Apd    |I32    |sv_eq          |NN SV* sv1|NN SV* sv2
+Apd    |I32    |sv_eq          |NULLOK SV* sv1|NULLOK SV* sv2
 Apd    |void   |sv_free        |NULLOK SV* sv
 poMX   |void   |sv_free2       |NN SV* sv
 pd     |void   |sv_free_arenas
@@ -807,10 +817,10 @@ Apd       |SV*    |sv_setref_pvn  |NN SV* rv|NULLOK const char* classname|NN const char* p
 Apd    |void   |sv_setpv       |NN SV* sv|NULLOK const char* ptr
 Apd    |void   |sv_setpvn      |NN SV* sv|NULLOK const char* ptr|STRLEN len
 Amdb   |void   |sv_setsv       |NN SV* dsv|NULLOK SV* ssv
-Apd    |void   |sv_taint       |NN SV* sv
+Amdb   |void   |sv_taint       |NN SV* sv
 ApdR   |bool   |sv_tainted     |NN SV* sv
 Apd    |int    |sv_unmagic     |NN SV* sv|int type
-Apd    |void   |sv_unref       |NN SV* sv
+Apdmb  |void   |sv_unref       |NN SV* sv
 Apd    |void   |sv_unref_flags |NN SV* sv|U32 flags
 Apd    |void   |sv_untaint     |NN SV* sv
 Apd    |void   |sv_upgrade     |NN SV* sv|U32 mt
@@ -853,10 +863,22 @@ ApMd      |U8*    |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8
 ApMd   |U8*    |bytes_to_utf8  |NN const U8 *s|NN STRLEN *len
 Apd    |UV     |utf8_to_uvchr  |NN const U8 *s|NULLOK STRLEN *retlen
 Apd    |UV     |utf8_to_uvuni  |NN const U8 *s|NULLOK STRLEN *retlen
+
+#ifdef EBCDIC
 Adp    |UV     |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
+#else
+Adpbm  |UV     |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
+#endif
+
 Adp    |UV     |utf8n_to_uvuni |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
+
+#ifdef EBCDIC
 Apd    |U8*    |uvchr_to_utf8  |NN U8 *d|UV uv
-Ap     |U8*    |uvuni_to_utf8  |NN U8 *d|UV uv
+#else
+Apdbm  |U8*    |uvchr_to_utf8  |NN U8 *d|UV uv
+#endif
+
+Apbm   |U8*    |uvuni_to_utf8  |NN U8 *d|UV uv
 Ap     |U8*    |uvchr_to_utf8_flags    |NN U8 *d|UV uv|UV flags
 Apd    |U8*    |uvuni_to_utf8_flags    |NN U8 *d|UV uv|UV flags
 Apd    |char*  |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN pvlim|UV flags
@@ -898,8 +920,8 @@ Ap  |int    |runops_debug
 Afpd   |void   |sv_catpvf_mg   |NN SV *sv|NN const char* pat|...
 Apd    |void   |sv_vcatpvf_mg  |NN SV* sv|NN const char* pat|NULLOK va_list* args
 Apd    |void   |sv_catpv_mg    |NN SV *sv|NN const char *ptr
-Apd    |void   |sv_catpvn_mg   |NN SV *sv|NN const char *ptr|STRLEN len
-Apd    |void   |sv_catsv_mg    |NN SV *dstr|NULLOK SV *sstr
+Apdbm  |void   |sv_catpvn_mg   |NN SV *sv|NN const char *ptr|STRLEN len
+Apdbm  |void   |sv_catsv_mg    |NN SV *dstr|NULLOK SV *sstr
 Afpd   |void   |sv_setpvf_mg   |NN SV *sv|NN const char* pat|...
 Apd    |void   |sv_vsetpvf_mg  |NN SV* sv|NN const char* pat|NULLOK va_list* args
 Apd    |void   |sv_setiv_mg    |NN SV *sv|IV i
@@ -927,9 +949,9 @@ Ap  |void   |do_sv_dump     |I32 level|NN PerlIO *file|NULLOK SV *sv|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
 Ap     |void   |magic_dump     |NULLOK const MAGIC *mg
 Ap     |void   |reginitcolors
-ApdR   |char*  |sv_2pv_nolen   |NN SV* sv
-ApdR   |char*  |sv_2pvutf8_nolen|NN SV* sv
-ApdR   |char*  |sv_2pvbyte_nolen|NN SV* sv
+ApdRmb |char*  |sv_2pv_nolen   |NN SV* sv
+ApdRmb |char*  |sv_2pvutf8_nolen|NN SV* sv
+ApdRmb |char*  |sv_2pvbyte_nolen|NN SV* sv
 AmdbR  |char*  |sv_pv          |NN SV *sv
 AmdbR  |char*  |sv_pvutf8      |NN SV *sv
 AmdbR  |char*  |sv_pvbyte      |NN SV *sv
@@ -937,7 +959,7 @@ Amdb        |STRLEN |sv_utf8_upgrade|NN SV *sv
 ApdM   |bool   |sv_utf8_downgrade|NN SV *sv|bool fail_ok
 Apd    |void   |sv_utf8_encode |NN SV *sv
 ApdM   |bool   |sv_utf8_decode |NN SV *sv
-Apd    |void   |sv_force_normal|NN SV *sv
+Apdmb  |void   |sv_force_normal|NN SV *sv
 Apd    |void   |sv_force_normal_flags|NN SV *sv|U32 flags
 Ap     |void   |tmps_grow      |I32 n
 Apd    |SV*    |sv_rvweaken    |NN SV *sv
@@ -984,8 +1006,8 @@ pMX        |int    |sv_release_IVX |NN SV *sv
 #endif
 
 Adp    |void   |sv_nosharing   |NULLOK SV *
-Adp    |void   |sv_nolocking   |NULLOK SV *
-Adp    |void   |sv_nounlocking |NULLOK SV *
+Adpbm  |void   |sv_nolocking   |NULLOK SV *
+Adpbm  |void   |sv_nounlocking |NULLOK SV *
 Adp    |int    |nothreadhook
 
 END_EXTERN_C
@@ -1302,7 +1324,7 @@ sR        |char*  |swallow_bom    |NN U8 *s
 s      |void   |checkcomma     |NN char *s|NN const char *name|NN const char *what
 s      |void   |force_ident    |NN const char *s|int kind
 s      |void   |incline        |NN char *s
-s      |int    |intuit_method  |NN char *s|NN GV *gv
+s      |int    |intuit_method  |NN char *s|NULLOK GV *gv
 s      |int    |intuit_more    |NN char *s
 s      |I32    |lop            |I32 f|int x|NN char *s
 rs     |void   |missingterm    |NULLOK char *s
@@ -1317,7 +1339,7 @@ sR        |char * |tokenize_use   |int|NN char*
 s      |SV*    |new_constant   |NULLOK const char *s|STRLEN len|NN const char *key|NN SV *sv \
                                |NULLOK SV *pv|NULLOK const char *type
 #  if defined(DEBUGGING)
-s      |int    |tokereport     |NN const char *s|I32 rv
+s      |int    |tokereport     |I32 rv
 #  endif
 s      |int    |ao             |int toketype
 s      |void   |depcom
@@ -1351,6 +1373,7 @@ sn        |NV|mulexp10    |NV value|I32 exponent
 
 #if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
 s      |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len
+spR    |bool   |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname
 #endif
 
 START_EXTERN_C
@@ -1414,7 +1437,7 @@ pd        |void   |pad_tidy       |padtidy_type type
 pd     |void   |do_dump_pad    |I32 level|NN PerlIO *file|NULLOK PADLIST *padlist|int full
 pd     |void   |pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv
 
-pd     |void   |pad_push       |NN PADLIST *padlist|int depth
+pdX    |void   |pad_push       |NN PADLIST *padlist|int depth
 pR     |HV*    |pad_compname_type|const PADOFFSET po
 
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
@@ -1543,6 +1566,12 @@ Apo      |bool   |ckwarn_d       |U32 w
 
 p      |void   |offer_nice_chunk       |NN void *chunk|U32 chunk_size
 
+#ifndef SPRINTF_RETURNS_STRLEN
+Apnod  |int    |my_sprintf     |NN char *buffer|NN const char *pat|...
+#endif
+
+px     |void   |my_clearenv
+
 END_EXTERN_C
 /*
  * ex: set ts=8 sts=4 sw=4 noet:
Unnamed repository; edit this file 'description' to name the repository.