X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0f194c83b0f19f7917e6f8b1218d49858220cda6..700d83cbd674f0eb339b4139e07ec834d710490d:/proto.h diff --git a/proto.h b/proto.h index 9359016..fffad8f 100644 --- a/proto.h +++ b/proto.h @@ -143,6 +143,11 @@ PERL_CALLCONV UV Perl__to_utf8_title_flags(pTHX_ const U8 *p, const U8* e, U8* u PERL_CALLCONV UV Perl__to_utf8_upper_flags(pTHX_ const U8 *p, const U8 *e, U8* ustrp, STRLEN *lenp, bool flags, const char * const file, const int line); #define PERL_ARGS_ASSERT__TO_UTF8_UPPER_FLAGS \ assert(p); assert(ustrp); assert(file) +#ifndef PERL_NO_INLINE_FUNCTIONS +PERL_STATIC_INLINE UV S__utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen); +#define PERL_ARGS_ASSERT__UTF8_TO_UVCHR_BUF \ + assert(s); assert(send) +#endif PERL_CALLCONV UV Perl__utf8n_to_uvchr_msgs_helper(const U8 *s, STRLEN curlen, STRLEN *retlen, const U32 flags, U32 * errors, AV ** msgs); #define PERL_ARGS_ASSERT__UTF8N_TO_UVCHR_MSGS_HELPER \ assert(s) @@ -243,7 +248,7 @@ PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV *av) PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val); #define PERL_ARGS_ASSERT_AV_STORE \ assert(av) -/* PERL_CALLCONV SSize_t Perl_av_tindex(pTHX_ AV *av) +/* PERL_CALLCONV SSize_t av_tindex(pTHX_ AV *av) __attribute__warn_unused_result__; */ #ifndef PERL_NO_INLINE_FUNCTIONS @@ -644,6 +649,7 @@ PERL_CALLCONV_NO_RET void Perl_croak_xs_usage(const CV *const cv, const char *co PERL_CALLCONV regexp_engine const * Perl_current_re_engine(pTHX); #ifndef NO_MATHOMS PERL_CALLCONV const char * Perl_custom_op_desc(pTHX_ const OP *o) + __attribute__deprecated__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_CUSTOM_OP_DESC \ assert(o) @@ -656,6 +662,7 @@ PERL_CALLCONV XOPRETANY Perl_custom_op_get_field(pTHX_ const OP *o, const xop_fl #ifndef NO_MATHOMS PERL_CALLCONV const char * Perl_custom_op_name(pTHX_ const OP *o) + __attribute__deprecated__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_CUSTOM_OP_NAME \ assert(o) @@ -765,10 +772,12 @@ PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, #define PERL_ARGS_ASSERT_DO_AEXEC5 \ assert(mark); assert(sp) #ifndef NO_MATHOMS -PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode); +PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_DO_BINMODE \ assert(fp) #endif + PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit); PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full); #define PERL_ARGS_ASSERT_DO_DUMP_PAD \ @@ -808,10 +817,12 @@ PERL_CALLCONV bool Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len, Pe #define PERL_ARGS_ASSERT_DO_OPEN6 \ assert(gv); assert(oname) #ifndef NO_MATHOMS -PERL_CALLCONV bool Perl_do_open9(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num); +PERL_CALLCONV bool Perl_do_open9(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_DO_OPEN9 \ assert(gv); assert(name); assert(svs) #endif + PERL_CALLCONV bool Perl_do_open_raw(pTHX_ GV *gv, const char *oname, STRLEN len, int rawmode, int rawperm, Stat_t *statbufp); #define PERL_ARGS_ASSERT_DO_OPEN_RAW \ assert(gv); assert(oname) @@ -1094,10 +1105,12 @@ PERL_CALLCONV SV* Perl_gv_const_sv(pTHX_ GV* gv) PERL_CALLCONV void Perl_gv_dump(pTHX_ GV* gv); #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, const GV* gv); +PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, const GV* gv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_GV_EFULLNAME \ assert(sv); assert(gv) #endif + #ifndef NO_MATHOMS PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); #define PERL_ARGS_ASSERT_GV_EFULLNAME3 \ @@ -1159,10 +1172,12 @@ PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_typ #define PERL_ARGS_ASSERT_GV_FETCHSV \ assert(name) #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, const GV* gv); +PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, const GV* gv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_GV_FULLNAME \ assert(sv); assert(gv) #endif + #ifndef NO_MATHOMS PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); #define PERL_ARGS_ASSERT_GV_FULLNAME3 \ @@ -1387,8 +1402,10 @@ PERL_CALLCONV void Perl_init_dbargs(pTHX); PERL_CALLCONV void Perl_init_debugger(pTHX); PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn); #ifndef NO_MATHOMS -PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn); +PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn) + __attribute__deprecated__; #endif + PERL_CALLCONV void Perl_init_named_cv(pTHX_ CV *cv, OP *nameop); #define PERL_ARGS_ASSERT_INIT_NAMED_CV \ assert(cv); assert(nameop) @@ -1449,11 +1466,11 @@ PERL_STATIC_INLINE Size_t S_isUTF8_CHAR(const U8 * const s0, const U8 * const e) assert(s0); assert(e) #endif -/* PERL_CALLCONV bool Perl_is_ascii_string(const U8* const s, STRLEN len) +/* PERL_CALLCONV bool is_ascii_string(const U8* const s, STRLEN len) __attribute__warn_unused_result__ __attribute__pure__; */ -/* PERL_CALLCONV bool Perl_is_c9strict_utf8_string(const U8 *s, STRLEN len) +/* PERL_CALLCONV bool is_c9strict_utf8_string(const U8 *s, STRLEN len) __attribute__warn_unused_result__; */ /* PERL_CALLCONV bool is_c9strict_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep); */ @@ -1462,7 +1479,7 @@ PERL_STATIC_INLINE bool S_is_c9strict_utf8_string_loclen(const U8 *s, STRLEN len #define PERL_ARGS_ASSERT_IS_C9STRICT_UTF8_STRING_LOCLEN \ assert(s) #endif -/* PERL_CALLCONV bool Perl_is_invariant_string(const U8* const s, STRLEN len) +/* PERL_CALLCONV bool is_invariant_string(const U8* const s, STRLEN len) __attribute__warn_unused_result__ __attribute__pure__; */ @@ -1476,7 +1493,7 @@ PERL_STATIC_INLINE bool S_is_safe_syscall(pTHX_ const char *pv, STRLEN len, cons assert(pv); assert(what); assert(op_name) #endif -/* PERL_CALLCONV bool Perl_is_strict_utf8_string(const U8 *s, STRLEN len) +/* PERL_CALLCONV bool is_strict_utf8_string(const U8 *s, STRLEN len) __attribute__warn_unused_result__; */ /* PERL_CALLCONV bool is_strict_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep); */ @@ -1848,7 +1865,7 @@ PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p) assert(p) #endif -/* PERL_CALLCONV bool Perl_is_utf8_string(const U8 *s, STRLEN len) +/* PERL_CALLCONV bool is_utf8_string(const U8 *s, STRLEN len) __attribute__warn_unused_result__; */ #ifndef PERL_NO_INLINE_FUNCTIONS @@ -2270,6 +2287,11 @@ PERL_CALLCONV Pid_t Perl_my_fork(void); PERL_CALLCONV I32 Perl_my_lstat(pTHX); #endif PERL_CALLCONV I32 Perl_my_lstat_flags(pTHX_ const U32 flags); +PERL_CALLCONV int Perl_my_mkostemp_cloexec(char *templte, int flags) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_MY_MKOSTEMP_CLOEXEC \ + assert(templte) + PERL_CALLCONV int Perl_my_mkstemp_cloexec(char *templte) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_MY_MKSTEMP_CLOEXEC \ @@ -2535,7 +2557,7 @@ PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV *const old) PERL_CALLCONV SV* Perl_newSVsv_flags(pTHX_ SV *const old, I32 flags) __attribute__warn_unused_result__; -/* PERL_CALLCONV SV* Perl_newSVsv_nomg(pTHX_ SV *const old) +/* PERL_CALLCONV SV* newSVsv_nomg(pTHX_ SV *const old) __attribute__warn_unused_result__; */ PERL_CALLCONV SV* Perl_newSVuv(pTHX_ const UV u) @@ -2724,6 +2746,7 @@ PERL_CALLCONV OP* Perl_parse_fullstmt(pTHX_ U32 flags); PERL_CALLCONV SV* Perl_parse_label(pTHX_ U32 flags); PERL_CALLCONV OP* Perl_parse_listexpr(pTHX_ U32 flags); PERL_CALLCONV OP* Perl_parse_stmtseq(pTHX_ U32 flags); +PERL_CALLCONV OP* Perl_parse_subsignature(pTHX_ U32 flags); PERL_CALLCONV OP* Perl_parse_termexpr(pTHX_ U32 flags); PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ const char **popt); #define PERL_ARGS_ASSERT_PARSE_UNICODE_OPTS \ @@ -3020,25 +3043,31 @@ PERL_CALLCONV void Perl_save_iv(pTHX_ IV *ivp); #define PERL_ARGS_ASSERT_SAVE_IV \ assert(ivp) #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg); +PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SAVE_LIST \ assert(sarg) #endif + #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_save_long(pTHX_ long* longp); +PERL_CALLCONV void Perl_save_long(pTHX_ long* longp) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SAVE_LONG \ assert(longp) #endif + #ifndef NO_MATHOMS PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv); #define PERL_ARGS_ASSERT_SAVE_MORTALIZESV \ assert(sv) #endif #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv); +PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SAVE_NOGV \ assert(gv) #endif + #ifndef NO_MATHOMS PERL_CALLCONV void Perl_save_op(pTHX); #endif @@ -3221,9 +3250,14 @@ PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv) assert(sv) #endif +#ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *sv, STRLEN *const lp); #define PERL_ARGS_ASSERT_SV_2PVBYTE \ assert(sv) +#endif +PERL_CALLCONV char* Perl_sv_2pvbyte_flags(pTHX_ SV *sv, STRLEN *const lp, const U32 flags); +#define PERL_ARGS_ASSERT_SV_2PVBYTE_FLAGS \ + assert(sv) #ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv) __attribute__warn_unused_result__; @@ -3231,9 +3265,14 @@ PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv) assert(sv) #endif +#ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *sv, STRLEN *const lp); #define PERL_ARGS_ASSERT_SV_2PVUTF8 \ assert(sv) +#endif +PERL_CALLCONV char* Perl_sv_2pvutf8_flags(pTHX_ SV *sv, STRLEN *const lp, const U32 flags); +#define PERL_ARGS_ASSERT_SV_2PVUTF8_FLAGS \ + assert(sv) #ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv) __attribute__warn_unused_result__; @@ -3412,10 +3451,12 @@ PERL_CALLCONV int Perl_sv_isa(pTHX_ SV* sv, const char *const name); assert(name) PERL_CALLCONV int Perl_sv_isobject(pTHX_ SV* sv); #ifndef NO_MATHOMS -PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv); +PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_IV \ assert(sv) #endif + PERL_CALLCONV STRLEN Perl_sv_len(pTHX_ SV *const sv); PERL_CALLCONV STRLEN Perl_sv_len_utf8(pTHX_ SV *const sv); PERL_CALLCONV STRLEN Perl_sv_len_utf8_nomg(pTHX_ SV *const sv); @@ -3443,17 +3484,25 @@ PERL_CALLCONV SV* Perl_sv_newmortal(pTHX) PERL_CALLCONV SV* Perl_sv_newref(pTHX_ SV *const sv); #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv); +PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv) + __attribute__deprecated__; #endif -PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *sv); + +PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *sv) + __attribute__deprecated__; + #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv); +PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv) + __attribute__deprecated__; #endif + #ifndef NO_MATHOMS -PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv); +PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_NV \ assert(sv) #endif + #ifndef PERL_NO_INLINE_FUNCTIONS PERL_STATIC_INLINE bool S_sv_only_taint_gmagic(SV *sv); #define PERL_ARGS_ASSERT_SV_ONLY_TAINT_GMAGIC \ @@ -3487,18 +3536,22 @@ PERL_CALLCONV char* Perl_sv_pvbyte(pTHX_ SV *sv) #endif #ifndef NO_MATHOMS -PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp); +PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_PVBYTEN \ assert(sv); assert(lp) #endif + PERL_CALLCONV char* Perl_sv_pvbyten_force(pTHX_ SV *const sv, STRLEN *const lp); #define PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE \ assert(sv) #ifndef NO_MATHOMS -PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp); +PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_PVN \ assert(sv); assert(lp) #endif + #ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp); #define PERL_ARGS_ASSERT_SV_PVN_FORCE \ @@ -3508,10 +3561,12 @@ PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV *const sv, STRLEN *const lp #define PERL_ARGS_ASSERT_SV_PVN_FORCE_FLAGS \ assert(sv) #ifndef NO_MATHOMS -PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp); +PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_PVN_NOMG \ assert(sv) #endif + #ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_pvutf8(pTHX_ SV *sv) __attribute__warn_unused_result__; @@ -3520,10 +3575,12 @@ PERL_CALLCONV char* Perl_sv_pvutf8(pTHX_ SV *sv) #endif #ifndef NO_MATHOMS -PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp); +PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_PVUTF8N \ assert(sv); assert(lp) #endif + PERL_CALLCONV char* Perl_sv_pvutf8n_force(pTHX_ SV *const sv, STRLEN *const lp); #define PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE \ assert(sv) @@ -3590,15 +3647,19 @@ PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV *const sv, const char *const pat, assert(sv); assert(pat) #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV *const sv, const IV num); +PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV *const sv, const IV num) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_SETPVIV \ assert(sv) #endif + #ifndef NO_MATHOMS -PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv); +PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_SETPVIV_MG \ assert(sv) #endif + PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV *const sv, const char *const ptr, const STRLEN len); #define PERL_ARGS_ASSERT_SV_SETPVN \ assert(sv) @@ -3690,9 +3751,15 @@ PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len); PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *const sv); #define PERL_ARGS_ASSERT_SV_UTF8_DECODE \ assert(sv) +#ifndef NO_MATHOMS PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *const sv, const bool fail_ok); #define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE \ assert(sv) +#endif +PERL_CALLCONV bool Perl_sv_utf8_downgrade_flags(pTHX_ SV *const sv, const bool fail_ok, const U32 flags); +#define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE_FLAGS \ + assert(sv) +/* PERL_CALLCONV bool sv_utf8_downgrade_nomg(pTHX_ SV *const sv, const bool fail_ok); */ PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *const sv); #define PERL_ARGS_ASSERT_SV_UTF8_ENCODE \ assert(sv) @@ -3701,16 +3768,18 @@ PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade(pTHX_ SV *sv); #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE \ assert(sv) #endif -/* PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *const sv, const I32 flags); */ +/* PERL_CALLCONV STRLEN sv_utf8_upgrade_flags(pTHX_ SV *const sv, const I32 flags); */ PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags_grow(pTHX_ SV *const sv, const I32 flags, STRLEN extra); #define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_FLAGS_GROW \ assert(sv) /* PERL_CALLCONV STRLEN sv_utf8_upgrade_nomg(pTHX_ SV *sv); */ #ifndef NO_MATHOMS -PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv); +PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_SV_UV \ assert(sv) #endif + PERL_CALLCONV void Perl_sv_vcatpvf(pTHX_ SV *const sv, const char *const pat, va_list *const args); #define PERL_ARGS_ASSERT_SV_VCATPVF \ assert(sv); assert(pat) @@ -3818,10 +3887,12 @@ PERL_CALLCONV UV Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) PERL_CALLCONV bool Perl_try_amagic_bin(pTHX_ int method, int flags); PERL_CALLCONV bool Perl_try_amagic_un(pTHX_ int method, int flags); #ifndef NO_MATHOMS -PERL_CALLCONV SSize_t Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags); +PERL_CALLCONV SSize_t Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_UNPACK_STR \ assert(pat); assert(patend); assert(s); assert(strend) #endif + PERL_CALLCONV SSize_t Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags); #define PERL_ARGS_ASSERT_UNPACKSTRING \ assert(pat); assert(patend); assert(s); assert(strend) @@ -4450,9 +4521,11 @@ PERL_CALLCONV int Perl_re_indentf(pTHX_ const char *fmt, U32 depth, ...); assert(fmt) STATIC void S_regdump_extflags(pTHX_ const char *lead, const U32 flags); STATIC void S_regdump_intflags(pTHX_ const char *lead, const U32 flags); -STATIC bool S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode_offset p, const regnode_offset val, U32 depth); +STATIC bool S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode_offset p, const regnode_offset val, U32 depth) + __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_REGTAIL_STUDY \ assert(pRExC_state); assert(p); assert(val) + # endif # if defined(PERL_IN_REGEXEC_C) STATIC void S_debug_start_match(pTHX_ const REGEXP *prog, const bool do_utf8, const char *start, const char *end, const char *blurb); @@ -4697,6 +4770,7 @@ PERL_CALLCONV char* Perl_form_nocontext(const char* pat, ...) #ifndef NO_MATHOMS PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) + __attribute__deprecated__ __attribute__format__(__printf__,2,3); #define PERL_ARGS_ASSERT_FPRINTF_NOCONTEXT \ assert(stream); assert(format) @@ -4717,6 +4791,7 @@ PERL_CALLCONV SV* Perl_newSVpvf_nocontext(const char *const pat, ...) #ifndef NO_MATHOMS PERL_CALLCONV int Perl_printf_nocontext(const char *format, ...) + __attribute__deprecated__ __attribute__format__(__printf__,1,2); #define PERL_ARGS_ASSERT_PRINTF_NOCONTEXT \ assert(format) @@ -5584,9 +5659,11 @@ STATIC regnode_offset S_regnode_guts(pTHX_ RExC_state_t *pRExC_state, const U8 o STATIC regnode_offset S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth); #define PERL_ARGS_ASSERT_REGPIECE \ assert(pRExC_state); assert(flagp) -STATIC bool S_regtail(pTHX_ RExC_state_t * pRExC_state, const regnode_offset p, const regnode_offset val, const U32 depth); +STATIC bool S_regtail(pTHX_ RExC_state_t * pRExC_state, const regnode_offset p, const regnode_offset val, const U32 depth) + __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_REGTAIL \ assert(pRExC_state); assert(p); assert(val) + STATIC void S_scan_commit(pTHX_ const RExC_state_t *pRExC_state, struct scan_data_t *data, SSize_t *minlenp, int is_inf); #define PERL_ARGS_ASSERT_SCAN_COMMIT \ assert(pRExC_state); assert(data); assert(minlenp) @@ -6439,10 +6516,12 @@ PERL_CALLCONV int Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg); #define PERL_ARGS_ASSERT_MAGIC_SETCOLLXFRM \ assert(sv); assert(mg) #ifndef NO_MATHOMS -PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* input_string, STRLEN len, STRLEN* xlen); +PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* input_string, STRLEN len, STRLEN* xlen) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_MEM_COLLXFRM \ assert(input_string); assert(xlen) #endif + #ifndef NO_MATHOMS PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp); #define PERL_ARGS_ASSERT_SV_COLLXFRM \