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 / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Convert Perl_sv_dup_inc() from a macro to a real function.
[perl5.git] / proto.h
CommitLineData
37442d52
RGS		 1/* -*- buffer-read-only: t -*-
2 *
f5e3445d
RGS		 3 * proto.h
4 *
4bb101f2 5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
83706693 6 * 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, by Larry Wall and others
f5e3445d
RGS		 7 *
8 * You may distribute under the terms of either the GNU General Public
9 * License or the Artistic License, as specified in the README file.
10 *
11 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
12 * This file is built by embed.pl from data in embed.fnc, embed.pl,
907b3e23 13 * pp.sym, intrpvar.h, and perlvars.h.
f5e3445d
RGS		 14 * Any changes made here will be lost!
15 *
16 * Edit those files and run 'make regen_headers' to effect changes.
17 */
1d7c1841 18
1d7c1841
GS		 19START_EXTERN_C
20
21#if defined(PERL_IMPLICIT_SYS)
16bf6295 22PERL_CALLCONV PerlInterpreter* perl_alloc_using(struct IPerlMem *ipM, struct IPerlMem *ipMS, struct IPerlMem *ipMP, struct IPerlEnv *ipE, struct IPerlStdIO *ipStd, struct IPerlLIO *ipLIO, struct IPerlDir *ipD, struct IPerlSock *ipS, struct IPerlProc *ipP)
fb9bf107
NC		 23 __attribute__nonnull__(1)
24 __attribute__nonnull__(2)
25 __attribute__nonnull__(3)
26 __attribute__nonnull__(4)
27 __attribute__nonnull__(5)
28 __attribute__nonnull__(6)
29 __attribute__nonnull__(7)
30 __attribute__nonnull__(8)
31 __attribute__nonnull__(9);
7918f24d 32#define PERL_ARGS_ASSERT_PERL_ALLOC_USING \
16bf6295 33 assert(ipM); assert(ipMS); assert(ipMP); assert(ipE); assert(ipStd); assert(ipLIO); assert(ipD); assert(ipS); assert(ipP)
fb9bf107 34
1d7c1841 35#endif
b46bc2b6 36PERL_CALLCONV PerlInterpreter* perl_alloc(void);
4048f010 37PERL_CALLCONV void perl_construct(PerlInterpreter *my_perl)
abb2c242 38 __attribute__nonnull__(1);
7918f24d
NC		 39#define PERL_ARGS_ASSERT_PERL_CONSTRUCT \
40 assert(my_perl)
f54cb97a 41
4048f010 42PERL_CALLCONV int perl_destruct(PerlInterpreter *my_perl)
abb2c242 43 __attribute__nonnull__(1);
7918f24d
NC		 44#define PERL_ARGS_ASSERT_PERL_DESTRUCT \
45 assert(my_perl)
f54cb97a 46
4048f010 47PERL_CALLCONV void perl_free(PerlInterpreter *my_perl)
abb2c242 48 __attribute__nonnull__(1);
7918f24d
NC		 49#define PERL_ARGS_ASSERT_PERL_FREE \
50 assert(my_perl)
f54cb97a 51
4048f010 52PERL_CALLCONV int perl_run(PerlInterpreter *my_perl)
abb2c242 53 __attribute__nonnull__(1);
7918f24d
NC		 54#define PERL_ARGS_ASSERT_PERL_RUN \
55 assert(my_perl)
f54cb97a 56
4048f010 57PERL_CALLCONV int perl_parse(PerlInterpreter *my_perl, XSINIT_t xsinit, int argc, char** argv, char** env)
fb9bf107 58 __attribute__nonnull__(1);
7918f24d
NC		 59#define PERL_ARGS_ASSERT_PERL_PARSE \
60 assert(my_perl)
fb9bf107 61
a28509cc
AL		 62PERL_CALLCONV bool Perl_doing_taint(int argc, char** argv, char** env)
63 __attribute__warn_unused_result__;
64
1d7c1841 65#if defined(USE_ITHREADS)
4048f010 66PERL_CALLCONV PerlInterpreter* perl_clone(PerlInterpreter *proto_perl, UV flags)
fb9bf107 67 __attribute__nonnull__(1);
7918f24d
NC		 68#define PERL_ARGS_ASSERT_PERL_CLONE \
69 assert(proto_perl)
fb9bf107 70
1d7c1841 71# if defined(PERL_IMPLICIT_SYS)
589df73b 72PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *proto_perl, UV flags, struct IPerlMem* ipM, struct IPerlMem* ipMS, struct IPerlMem* ipMP, struct IPerlEnv* ipE, struct IPerlStdIO* ipStd, struct IPerlLIO* ipLIO, struct IPerlDir* ipD, struct IPerlSock* ipS, struct IPerlProc* ipP)
fb9bf107
NC		 73 __attribute__nonnull__(1)
74 __attribute__nonnull__(3)
75 __attribute__nonnull__(4)
76 __attribute__nonnull__(5)
77 __attribute__nonnull__(6)
78 __attribute__nonnull__(7)
79 __attribute__nonnull__(8)
80 __attribute__nonnull__(9)
81 __attribute__nonnull__(10)
82 __attribute__nonnull__(11);
7918f24d 83#define PERL_ARGS_ASSERT_PERL_CLONE_USING \
589df73b 84 assert(proto_perl); assert(ipM); assert(ipMS); assert(ipMP); assert(ipE); assert(ipStd); assert(ipLIO); assert(ipD); assert(ipS); assert(ipP)
fb9bf107 85
1d7c1841
GS		 86# endif
87#endif
88
4373e329 89PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes)
abb2c242
JH		 90 __attribute__malloc__
91 __attribute__warn_unused_result__;
f54cb97a 92
4373e329 93PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size)
abb2c242
JH		 94 __attribute__malloc__
95 __attribute__warn_unused_result__;
f54cb97a 96
4373e329 97PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes)
abb2c242
JH		 98 __attribute__malloc__
99 __attribute__warn_unused_result__;
f54cb97a 100
1d7c1841 101PERL_CALLCONV Free_t Perl_mfree(Malloc_t where);
cae6d0e5 102#if defined(MYMALLOC)
b464bac0 103PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p)
fb9bf107
NC		 104 __attribute__warn_unused_result__
105 __attribute__nonnull__(1);
7918f24d
NC		 106#define PERL_ARGS_ASSERT_MALLOCED_SIZE \
107 assert(p)
b464bac0 108
64107180
NC		 109PERL_CALLCONV MEM_SIZE Perl_malloc_good_size(size_t nbytes)
110 __attribute__warn_unused_result__;
111
1d7c1841
GS		 112#endif
113
255164ba
DM		 114PERL_CALLCONV void* Perl_get_context(void)
115 __attribute__warn_unused_result__;
116
9f6cc744 117PERL_CALLCONV void Perl_set_context(void *t)
255164ba 118 __attribute__nonnull__(1);
7918f24d
NC		 119#define PERL_ARGS_ASSERT_SET_CONTEXT \
120 assert(t)
255164ba 121
70a6e658
RGS		 122PERL_CALLCONV I32 Perl_regcurly(const char *s)
123 __attribute__warn_unused_result__
124 __attribute__pure__
125 __attribute__nonnull__(1);
126#define PERL_ARGS_ASSERT_REGCURLY \
127 assert(s)
128
ba869deb 129
1d7c1841
GS		 130END_EXTERN_C
131
132/* functions with flag 'n' should come before here */
1d7c1841 133START_EXTERN_C
1d7c1841 134# include "pp_proto.h"
6f1401dc
DM		 135PERL_CALLCONV bool Perl_try_amagic_bin(pTHX_ int method, int flags);
136PERL_CALLCONV bool Perl_try_amagic_un(pTHX_ int method, int flags);
46c461b5
AL		 137PERL_CALLCONV SV* Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir)
138 __attribute__nonnull__(pTHX_1)
139 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 140#define PERL_ARGS_ASSERT_AMAGIC_CALL \
141 assert(left); assert(right)
46c461b5 142
c3a9a790 143PERL_CALLCONV int Perl_Gv_AMupdate(pTHX_ HV* stash, bool destructing)
255164ba 144 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 145#define PERL_ARGS_ASSERT_GV_AMUPDATE \
146 assert(stash)
255164ba
DM		 147
148PERL_CALLCONV CV* Perl_gv_handler(pTHX_ HV* stash, I32 id)
149 __attribute__warn_unused_result__;
150
151PERL_CALLCONV OP* Perl_append_elem(pTHX_ I32 optype, OP* first, OP* last);
1d7c1841 152PERL_CALLCONV OP* Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last);
255164ba
DM		 153PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV** mark, SV** sp)
154 __attribute__nonnull__(pTHX_2)
155 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 156#define PERL_ARGS_ASSERT_APPLY \
157 assert(mark); assert(sp)
255164ba
DM		 158
159PERL_CALLCONV void Perl_apply_attrs_string(pTHX_ const char *stashpv, CV *cv, const char *attrstr, STRLEN len)
160 __attribute__nonnull__(pTHX_1)
161 __attribute__nonnull__(pTHX_2)
162 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 163#define PERL_ARGS_ASSERT_APPLY_ATTRS_STRING \
164 assert(stashpv); assert(cv); assert(attrstr)
255164ba 165
4048f010 166PERL_CALLCONV void Perl_av_clear(pTHX_ AV *av)
7a5b473e 167 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 168#define PERL_ARGS_ASSERT_AV_CLEAR \
169 assert(av)
7a5b473e 170
4048f010 171PERL_CALLCONV SV* Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags)
7a5b473e 172 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 173#define PERL_ARGS_ASSERT_AV_DELETE \
174 assert(av)
7a5b473e 175
4048f010 176PERL_CALLCONV bool Perl_av_exists(pTHX_ AV *av, I32 key)
7a5b473e
AL		 177 __attribute__warn_unused_result__
178 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 179#define PERL_ARGS_ASSERT_AV_EXISTS \
180 assert(av)
a3b680e6 181
4048f010 182PERL_CALLCONV void Perl_av_extend(pTHX_ AV *av, I32 key)
abb2c242 183 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 184#define PERL_ARGS_ASSERT_AV_EXTEND \
185 assert(av)
a3b680e6 186
4048f010 187PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV *av, I32 key, I32 lval)
7a5b473e
AL		 188 __attribute__warn_unused_result__
189 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 190#define PERL_ARGS_ASSERT_AV_FETCH \
191 assert(av)
a3b680e6 192
4048f010 193PERL_CALLCONV void Perl_av_fill(pTHX_ AV *av, I32 fill)
255164ba 194 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 195#define PERL_ARGS_ASSERT_AV_FILL \
196 assert(av)
255164ba 197
bb5dd93d 198PERL_CALLCONV I32 Perl_av_len(pTHX_ AV *av)
255164ba
DM		 199 __attribute__warn_unused_result__
200 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 201#define PERL_ARGS_ASSERT_AV_LEN \
202 assert(av)
a3b680e6 203
4048f010 204PERL_CALLCONV AV* Perl_av_make(pTHX_ I32 size, SV **strp)
abb2c242
JH		 205 __attribute__warn_unused_result__
206 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 207#define PERL_ARGS_ASSERT_AV_MAKE \
208 assert(strp)
a3b680e6 209
4048f010 210PERL_CALLCONV SV* Perl_av_pop(pTHX_ AV *av)
7a5b473e 211 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 212#define PERL_ARGS_ASSERT_AV_POP \
213 assert(av)
7a5b473e 214
29a861e7
NC		 215PERL_CALLCONV void Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val)
216 __attribute__nonnull__(pTHX_1)
217 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 218#define PERL_ARGS_ASSERT_AV_CREATE_AND_PUSH \
219 assert(avp); assert(val)
29a861e7 220
4048f010 221PERL_CALLCONV void Perl_av_push(pTHX_ AV *av, SV *val)
7a5b473e 222 __attribute__nonnull__(pTHX_1)
255164ba 223 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 224#define PERL_ARGS_ASSERT_AV_PUSH \
225 assert(av); assert(val)
255164ba 226
4048f010 227PERL_CALLCONV void Perl_av_reify(pTHX_ AV *av)
255164ba 228 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 229#define PERL_ARGS_ASSERT_AV_REIFY \
230 assert(av)
255164ba 231
4048f010 232PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV *av)
7a5b473e
AL		 233 __attribute__warn_unused_result__
234 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 235#define PERL_ARGS_ASSERT_AV_SHIFT \
236 assert(av)
7a5b473e 237
4048f010 238PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, I32 key, SV *val)
7a5b473e 239 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 240#define PERL_ARGS_ASSERT_AV_STORE \
241 assert(av)
7a5b473e 242
4048f010 243PERL_CALLCONV void Perl_av_undef(pTHX_ AV *av)
7a5b473e 244 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 245#define PERL_ARGS_ASSERT_AV_UNDEF \
246 assert(av)
7a5b473e 247
29a861e7
NC		 248PERL_CALLCONV SV** Perl_av_create_and_unshift_one(pTHX_ AV **const avp, SV *const val)
249 __attribute__nonnull__(pTHX_1)
250 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 251#define PERL_ARGS_ASSERT_AV_CREATE_AND_UNSHIFT_ONE \
252 assert(avp); assert(val)
29a861e7 253
4048f010 254PERL_CALLCONV void Perl_av_unshift(pTHX_ AV *av, I32 num)
7a5b473e 255 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 256#define PERL_ARGS_ASSERT_AV_UNSHIFT \
257 assert(av)
a3b680e6 258
4048f010 259PERL_CALLCONV SV** Perl_av_arylen_p(pTHX_ AV *av)
255164ba 260 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 261#define PERL_ARGS_ASSERT_AV_ARYLEN_P \
262 assert(av)
255164ba 263
4048f010 264PERL_CALLCONV IV* Perl_av_iter_p(pTHX_ AV *av)
878d132a 265 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 266#define PERL_ARGS_ASSERT_AV_ITER_P \
267 assert(av)
878d132a
NC		 268
269#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
270STATIC MAGIC* S_get_aux_mg(pTHX_ AV *av)
271 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 272#define PERL_ARGS_ASSERT_GET_AUX_MG \
273 assert(av)
878d132a
NC		 274
275#endif
4048f010 276PERL_CALLCONV OP* Perl_bind_match(pTHX_ I32 type, OP *left, OP *right)
abb2c242
JH		 277 __attribute__warn_unused_result__
278 __attribute__nonnull__(pTHX_2)
279 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 280#define PERL_ARGS_ASSERT_BIND_MATCH \
281 assert(left); assert(right)
a3b680e6
AL		 282
283PERL_CALLCONV OP* Perl_block_end(pTHX_ I32 floor, OP* seq)
6472dca1 284 __attribute__warn_unused_result__;
a3b680e6
AL		 285
286PERL_CALLCONV I32 Perl_block_gimme(pTHX)
abb2c242 287 __attribute__warn_unused_result__;
a3b680e6
AL		 288
289PERL_CALLCONV int Perl_block_start(pTHX_ int full)
abb2c242 290 __attribute__warn_unused_result__;
a3b680e6 291
1d7c1841 292PERL_CALLCONV void Perl_boot_core_UNIVERSAL(pTHX);
36ed5425 293PERL_CALLCONV void Perl_boot_core_PerlIO(pTHX);
4048f010 294PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
abb2c242 295 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 296#define PERL_ARGS_ASSERT_CALL_LIST \
297 assert(paramList)
a3b680e6 298
ae1951c1 299PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp)
abb2c242
JH		 300 __attribute__warn_unused_result__
301 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 302#define PERL_ARGS_ASSERT_CANDO \
303 assert(statbufp)
f54cb97a 304
53c1dcc0
AL		 305PERL_CALLCONV U32 Perl_cast_ulong(pTHX_ NV f)
306 __attribute__warn_unused_result__;
307
308PERL_CALLCONV I32 Perl_cast_i32(pTHX_ NV f)
309 __attribute__warn_unused_result__;
310
311PERL_CALLCONV IV Perl_cast_iv(pTHX_ NV f)
312 __attribute__warn_unused_result__;
313
314PERL_CALLCONV UV Perl_cast_uv(pTHX_ NV f)
315 __attribute__warn_unused_result__;
316
cea2e8a9 317#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
53c1dcc0
AL		 318PERL_CALLCONV I32 Perl_my_chsize(pTHX_ int fd, Off_t length)
319 __attribute__warn_unused_result__;
320
cea2e8a9 321#endif
53c1dcc0
AL		 322PERL_CALLCONV OP* Perl_convert(pTHX_ I32 optype, I32 flags, OP* o)
323 __attribute__warn_unused_result__;
324
edb2152a 325PERL_CALLCONV PERL_CONTEXT* Perl_create_eval_scope(pTHX_ U32 flags);
c5df3096
Z		 326PERL_CALLCONV void Perl_croak_sv(pTHX_ SV *baseex)
327 __attribute__noreturn__
328 __attribute__nonnull__(pTHX_1);
329#define PERL_ARGS_ASSERT_CROAK_SV \
330 assert(baseex)
331
f54cb97a 332PERL_CALLCONV void Perl_croak(pTHX_ const char* pat, ...)
cdfeb707
RB		 333 __attribute__noreturn__
334 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
f54cb97a
AL		 335
336PERL_CALLCONV void Perl_vcroak(pTHX_ const char* pat, va_list* args)
f3dc127a 337 __attribute__noreturn__;
f54cb97a 338
afa74d42
NC		 339PERL_CALLCONV void Perl_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
340 __attribute__noreturn__
341 __attribute__nonnull__(pTHX_1)
342 __attribute__nonnull__(pTHX_2);
343#define PERL_ARGS_ASSERT_CROAK_XS_USAGE \
344 assert(cv); assert(params)
345
346
cea2e8a9 347#if defined(PERL_IMPLICIT_CONTEXT)
f54cb97a 348PERL_CALLCONV void Perl_croak_nocontext(const char* pat, ...)
abb2c242 349 __attribute__noreturn__
52a5bfab 350 __attribute__format__null_ok__(__printf__,1,2);
f54cb97a 351
894356b3 352PERL_CALLCONV OP* Perl_die_nocontext(const char* pat, ...)
cf284a24 353 __attribute__format__null_ok__(__printf__,1,2);
f54cb97a 354
894356b3 355PERL_CALLCONV void Perl_deb_nocontext(const char* pat, ...)
255164ba
DM		 356 __attribute__format__(__printf__,1,2)
357 __attribute__nonnull__(1);
7918f24d
NC		 358#define PERL_ARGS_ASSERT_DEB_NOCONTEXT \
359 assert(pat)
f54cb97a 360
894356b3 361PERL_CALLCONV char* Perl_form_nocontext(const char* pat, ...)
255164ba
DM		 362 __attribute__format__(__printf__,1,2)
363 __attribute__nonnull__(1);
7918f24d
NC		 364#define PERL_ARGS_ASSERT_FORM_NOCONTEXT \
365 assert(pat)
255164ba
DM		 366
367PERL_CALLCONV void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...)
3d4dd4c7 368 __attribute__nonnull__(2);
7918f24d
NC		 369#define PERL_ARGS_ASSERT_LOAD_MODULE_NOCONTEXT \
370 assert(name)
f54cb97a 371
894356b3 372PERL_CALLCONV SV* Perl_mess_nocontext(const char* pat, ...)
255164ba
DM		 373 __attribute__format__(__printf__,1,2)
374 __attribute__nonnull__(1);
7918f24d
NC		 375#define PERL_ARGS_ASSERT_MESS_NOCONTEXT \
376 assert(pat)
f54cb97a 377
894356b3 378PERL_CALLCONV void Perl_warn_nocontext(const char* pat, ...)
255164ba
DM		 379 __attribute__format__(__printf__,1,2)
380 __attribute__nonnull__(1);
7918f24d
NC		 381#define PERL_ARGS_ASSERT_WARN_NOCONTEXT \
382 assert(pat)
f54cb97a 383
894356b3 384PERL_CALLCONV void Perl_warner_nocontext(U32 err, const char* pat, ...)
255164ba
DM		 385 __attribute__format__(__printf__,2,3)
386 __attribute__nonnull__(2);
7918f24d
NC		 387#define PERL_ARGS_ASSERT_WARNER_NOCONTEXT \
388 assert(pat)
f54cb97a 389
23f13727 390PERL_CALLCONV SV* Perl_newSVpvf_nocontext(const char *const pat, ...)
255164ba
DM		 391 __attribute__format__(__printf__,1,2)
392 __attribute__nonnull__(1);
7918f24d
NC		 393#define PERL_ARGS_ASSERT_NEWSVPVF_NOCONTEXT \
394 assert(pat)
f54cb97a 395
89e38212 396PERL_CALLCONV void Perl_sv_catpvf_nocontext(SV *const sv, const char *const pat, ...)
255164ba 397 __attribute__format__(__printf__,2,3)
fb9bf107
NC		 398 __attribute__nonnull__(1)
399 __attribute__nonnull__(2);
7918f24d
NC		 400#define PERL_ARGS_ASSERT_SV_CATPVF_NOCONTEXT \
401 assert(sv); assert(pat)
f54cb97a 402
89e38212 403PERL_CALLCONV void Perl_sv_setpvf_nocontext(SV *const sv, const char *const pat, ...)
255164ba 404 __attribute__format__(__printf__,2,3)
fb9bf107
NC		 405 __attribute__nonnull__(1)
406 __attribute__nonnull__(2);
7918f24d
NC		 407#define PERL_ARGS_ASSERT_SV_SETPVF_NOCONTEXT \
408 assert(sv); assert(pat)
f54cb97a 409
89e38212 410PERL_CALLCONV void Perl_sv_catpvf_mg_nocontext(SV *const sv, const char *const pat, ...)
255164ba 411 __attribute__format__(__printf__,2,3)
fb9bf107
NC		 412 __attribute__nonnull__(1)
413 __attribute__nonnull__(2);
7918f24d
NC		 414#define PERL_ARGS_ASSERT_SV_CATPVF_MG_NOCONTEXT \
415 assert(sv); assert(pat)
f54cb97a 416
89e38212 417PERL_CALLCONV void Perl_sv_setpvf_mg_nocontext(SV *const sv, const char *const pat, ...)
255164ba 418 __attribute__format__(__printf__,2,3)
fb9bf107
NC		 419 __attribute__nonnull__(1)
420 __attribute__nonnull__(2);
7918f24d
NC		 421#define PERL_ARGS_ASSERT_SV_SETPVF_MG_NOCONTEXT \
422 assert(sv); assert(pat)
f54cb97a 423
4048f010 424PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
255164ba
DM		 425 __attribute__format__(__printf__,2,3)
426 __attribute__nonnull__(1)
427 __attribute__nonnull__(2);
7918f24d
NC		 428#define PERL_ARGS_ASSERT_FPRINTF_NOCONTEXT \
429 assert(stream); assert(format)
f54cb97a 430
4048f010 431PERL_CALLCONV int Perl_printf_nocontext(const char *format, ...)
255164ba
DM		 432 __attribute__format__(__printf__,1,2)
433 __attribute__nonnull__(1);
7918f24d
NC		 434#define PERL_ARGS_ASSERT_PRINTF_NOCONTEXT \
435 assert(format)
f54cb97a 436
0cb96387 437#endif
cbf82dd0
NC		 438PERL_CALLCONV void Perl_cv_ckproto_len(pTHX_ const CV* cv, const GV* gv, const char* p, const STRLEN len)
439 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 440#define PERL_ARGS_ASSERT_CV_CKPROTO_LEN \
441 assert(cv)
cbf82dd0 442
4373e329 443PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto)
abb2c242 444 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 445#define PERL_ARGS_ASSERT_CV_CLONE \
446 assert(proto)
f54cb97a 447
62d55b22
NC		 448PERL_CALLCONV SV* Perl_gv_const_sv(pTHX_ GV* gv)
449 __attribute__warn_unused_result__
450 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 451#define PERL_ARGS_ASSERT_GV_CONST_SV \
452 assert(gv)
62d55b22 453
d45f5b30 454PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ const CV *const cv)
255164ba
DM		 455 __attribute__warn_unused_result__;
456
457PERL_CALLCONV SV* Perl_op_const_sv(pTHX_ const OP* o, CV* cv)
458 __attribute__warn_unused_result__;
459
460PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv)
461 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 462#define PERL_ARGS_ASSERT_CV_UNDEF \
463 assert(cv)
255164ba
DM		 464
465PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cx)
466 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 467#define PERL_ARGS_ASSERT_CX_DUMP \
468 assert(cx)
255164ba 469
1d7c1841 470PERL_CALLCONV SV* Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
255164ba
DM		 471PERL_CALLCONV void Perl_filter_del(pTHX_ filter_t funcp)
472 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 473#define PERL_ARGS_ASSERT_FILTER_DEL \
474 assert(funcp)
255164ba 475
4048f010 476PERL_CALLCONV I32 Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
255164ba
DM		 477 __attribute__warn_unused_result__
478 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 479#define PERL_ARGS_ASSERT_FILTER_READ \
480 assert(buf_sv)
255164ba 481
4373e329 482PERL_CALLCONV char** Perl_get_op_descs(pTHX)
abb2c242
JH		 483 __attribute__warn_unused_result__
484 __attribute__pure__;
f54cb97a 485
4373e329 486PERL_CALLCONV char** Perl_get_op_names(pTHX)
abb2c242
JH		 487 __attribute__warn_unused_result__
488 __attribute__pure__;
f54cb97a 489
4373e329 490PERL_CALLCONV const char* Perl_get_no_modify(pTHX)
abb2c242
JH		 491 __attribute__warn_unused_result__
492 __attribute__pure__;
f54cb97a 493
4373e329 494PERL_CALLCONV U32* Perl_get_opargs(pTHX)
abb2c242
JH		 495 __attribute__warn_unused_result__
496 __attribute__pure__;
f54cb97a 497
4373e329 498PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX)
abb2c242
JH		 499 __attribute__warn_unused_result__
500 __attribute__pure__;
f54cb97a 501
a3b680e6 502PERL_CALLCONV I32 Perl_cxinc(pTHX)
abb2c242 503 __attribute__warn_unused_result__;
a3b680e6 504
894356b3 505PERL_CALLCONV void Perl_deb(pTHX_ const char* pat, ...)
255164ba
DM		 506 __attribute__format__(__printf__,pTHX_1,pTHX_2)
507 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 508#define PERL_ARGS_ASSERT_DEB \
509 assert(pat)
255164ba
DM		 510
511PERL_CALLCONV void Perl_vdeb(pTHX_ const char* pat, va_list* args)
512 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 513#define PERL_ARGS_ASSERT_VDEB \
514 assert(pat)
f54cb97a 515
1d7c1841 516PERL_CALLCONV void Perl_debprofdump(pTHX);
4373e329 517PERL_CALLCONV I32 Perl_debop(pTHX_ const OP* o)
abb2c242 518 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 519#define PERL_ARGS_ASSERT_DEBOP \
520 assert(o)
f54cb97a 521
1d7c1841
GS		 522PERL_CALLCONV I32 Perl_debstack(pTHX);
523PERL_CALLCONV I32 Perl_debstackptrs(pTHX);
04c9e624
VP		 524PERL_CALLCONV char* Perl_delimcpy(char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen)
525 __attribute__nonnull__(1)
526 __attribute__nonnull__(2)
527 __attribute__nonnull__(3)
528 __attribute__nonnull__(4)
529 __attribute__nonnull__(6);
7918f24d
NC		 530#define PERL_ARGS_ASSERT_DELIMCPY \
531 assert(to); assert(toend); assert(from); assert(fromend); assert(retlen)
f54cb97a 532
edb2152a 533PERL_CALLCONV void Perl_delete_eval_scope(pTHX);
c5df3096
Z		 534PERL_CALLCONV OP* Perl_die_sv(pTHX_ SV *baseex)
535 __attribute__nonnull__(pTHX_1);
536#define PERL_ARGS_ASSERT_DIE_SV \
537 assert(baseex)
538
cdfeb707
RB		 539PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...)
540 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
541
62705b21 542PERL_CALLCONV void Perl_die_unwind(pTHX_ SV* msv)
c5df3096
Z		 543 __attribute__noreturn__
544 __attribute__nonnull__(pTHX_1);
545#define PERL_ARGS_ASSERT_DIE_UNWIND \
62705b21 546 assert(msv)
bb4c52e0 547
1d7c1841 548PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix);
a9f96b3f 549/* PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)
255164ba 550 __attribute__nonnull__(pTHX_2)
a9f96b3f 551 __attribute__nonnull__(pTHX_3); */
7918f24d
NC		 552#define PERL_ARGS_ASSERT_DO_AEXEC \
553 assert(mark); assert(sp)
255164ba 554
5b5cf8d2 555PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int do_report)
255164ba
DM		 556 __attribute__nonnull__(pTHX_2)
557 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 558#define PERL_ARGS_ASSERT_DO_AEXEC5 \
559 assert(mark); assert(sp)
255164ba 560
4373e329 561PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
abb2c242 562 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 563#define PERL_ARGS_ASSERT_DO_BINMODE \
564 assert(fp)
f54cb97a 565
4048f010 566PERL_CALLCONV void Perl_do_chop(pTHX_ SV *astr, SV *sv)
abb2c242
JH		 567 __attribute__nonnull__(pTHX_1)
568 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 569#define PERL_ARGS_ASSERT_DO_CHOP \
570 assert(astr); assert(sv)
f54cb97a 571
063df69c 572PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit);
4373e329 573PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv)
abb2c242 574 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 575#define PERL_ARGS_ASSERT_DO_EOF \
576 assert(gv)
f54cb97a 577
8c654ff2
NC		 578
579#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
9555a685
NC		 580/* PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd)
581 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 582#define PERL_ARGS_ASSERT_DO_EXEC \
583 assert(cmd)
f54cb97a 584
8c654ff2
NC		 585#else
586PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd)
587 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 588#define PERL_ARGS_ASSERT_DO_EXEC \
589 assert(cmd)
8c654ff2
NC		 590
591#endif
592
9ec7171b 593#if defined(WIN32) || defined(__SYMBIAN32__) || defined(VMS)
255164ba 594PERL_CALLCONV int Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp)
255164ba
DM		 595 __attribute__nonnull__(pTHX_2)
596 __attribute__nonnull__(pTHX_3);
7918f24d 597#define PERL_ARGS_ASSERT_DO_ASPAWN \
a3e405b2 598 assert(mark); assert(sp)
255164ba
DM		 599
600PERL_CALLCONV int Perl_do_spawn(pTHX_ char* cmd)
601 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 602#define PERL_ARGS_ASSERT_DO_SPAWN \
603 assert(cmd)
255164ba
DM		 604
605PERL_CALLCONV int Perl_do_spawn_nowait(pTHX_ char* cmd)
606 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 607#define PERL_ARGS_ASSERT_DO_SPAWN_NOWAIT \
608 assert(cmd)
255164ba 609
54725af6 610#endif
864dbfa3 611#if !defined(WIN32)
4048f010 612PERL_CALLCONV bool Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report)
255164ba 613 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 614#define PERL_ARGS_ASSERT_DO_EXEC3 \
615 assert(incmd)
255164ba 616
864dbfa3 617#endif
1d7c1841 618PERL_CALLCONV void Perl_do_execfree(pTHX);
efd0b058 619#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
b1366aaf
RGS		 620STATIC void S_exec_failed(pTHX_ const char *cmd, int fd, int do_report)
621 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 622#define PERL_ARGS_ASSERT_EXEC_FAILED \
623 assert(cmd)
b1366aaf 624
a0f2c8ec 625#endif
864dbfa3 626#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
fb9bf107
NC		 627PERL_CALLCONV I32 Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp)
628 __attribute__nonnull__(pTHX_2)
629 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 630#define PERL_ARGS_ASSERT_DO_IPCCTL \
631 assert(mark); assert(sp)
fb9bf107
NC		 632
633PERL_CALLCONV I32 Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp)
634 __attribute__nonnull__(pTHX_2)
635 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 636#define PERL_ARGS_ASSERT_DO_IPCGET \
637 assert(mark); assert(sp)
fb9bf107
NC		 638
639PERL_CALLCONV I32 Perl_do_msgrcv(pTHX_ SV** mark, SV** sp)
640 __attribute__nonnull__(pTHX_1)
641 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 642#define PERL_ARGS_ASSERT_DO_MSGRCV \
643 assert(mark); assert(sp)
fb9bf107
NC		 644
645PERL_CALLCONV I32 Perl_do_msgsnd(pTHX_ SV** mark, SV** sp)
646 __attribute__nonnull__(pTHX_1)
647 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 648#define PERL_ARGS_ASSERT_DO_MSGSND \
649 assert(mark); assert(sp)
fb9bf107
NC		 650
651PERL_CALLCONV I32 Perl_do_semop(pTHX_ SV** mark, SV** sp)
652 __attribute__nonnull__(pTHX_1)
653 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 654#define PERL_ARGS_ASSERT_DO_SEMOP \
655 assert(mark); assert(sp)
fb9bf107
NC		 656
657PERL_CALLCONV I32 Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp)
658 __attribute__nonnull__(pTHX_2)
659 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 660#define PERL_ARGS_ASSERT_DO_SHMIO \
661 assert(mark); assert(sp)
fb9bf107 662
0cb96387 663#endif
4048f010 664PERL_CALLCONV void Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp)
abb2c242
JH		 665 __attribute__nonnull__(pTHX_1)
666 __attribute__nonnull__(pTHX_2)
667 __attribute__nonnull__(pTHX_3)
668 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 669#define PERL_ARGS_ASSERT_DO_JOIN \
670 assert(sv); assert(delim); assert(mark); assert(sp)
f54cb97a 671
1d7c1841 672PERL_CALLCONV OP* Perl_do_kv(pTHX);
e4dba786 673/* PERL_CALLCONV bool Perl_do_open(pTHX_ GV* gv, const char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
255164ba 674 __attribute__nonnull__(pTHX_1)
e4dba786 675 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 676#define PERL_ARGS_ASSERT_DO_OPEN \
677 assert(gv); assert(name)
255164ba 678
2fbb330f 679PERL_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)
255164ba
DM		 680 __attribute__nonnull__(pTHX_1)
681 __attribute__nonnull__(pTHX_2)
682 __attribute__nonnull__(pTHX_8);
7918f24d
NC		 683#define PERL_ARGS_ASSERT_DO_OPEN9 \
684 assert(gv); assert(name); assert(svs)
255164ba 685
4048f010 686PERL_CALLCONV bool Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num)
255164ba
DM		 687 __attribute__nonnull__(pTHX_1)
688 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 689#define PERL_ARGS_ASSERT_DO_OPENN \
690 assert(gv); assert(oname)
255164ba 691
255164ba
DM		 692PERL_CALLCONV bool Perl_do_print(pTHX_ SV* sv, PerlIO* fp)
693 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 694#define PERL_ARGS_ASSERT_DO_PRINT \
695 assert(fp)
255164ba
DM		 696
697PERL_CALLCONV OP* Perl_do_readline(pTHX)
698 __attribute__warn_unused_result__;
699
700PERL_CALLCONV I32 Perl_do_chomp(pTHX_ SV* sv)
701 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 702#define PERL_ARGS_ASSERT_DO_CHOMP \
703 assert(sv)
255164ba 704
1d7c1841 705PERL_CALLCONV bool Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
255164ba
DM		 706PERL_CALLCONV void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg)
707 __attribute__nonnull__(pTHX_1)
708 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 709#define PERL_ARGS_ASSERT_DO_SPRINTF \
710 assert(sv); assert(sarg)
255164ba
DM		 711
712PERL_CALLCONV Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence)
713 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 714#define PERL_ARGS_ASSERT_DO_SYSSEEK \
715 assert(gv)
255164ba
DM		 716
717PERL_CALLCONV Off_t Perl_do_tell(pTHX_ GV* gv)
718 __attribute__warn_unused_result__
719 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 720#define PERL_ARGS_ASSERT_DO_TELL \
721 assert(gv)
255164ba
DM		 722
723PERL_CALLCONV I32 Perl_do_trans(pTHX_ SV* sv)
724 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 725#define PERL_ARGS_ASSERT_DO_TRANS \
726 assert(sv)
255164ba 727
4373e329 728PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size)
abb2c242 729 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 730#define PERL_ARGS_ASSERT_DO_VECGET \
731 assert(sv)
f54cb97a 732
4373e329 733PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv)
abb2c242 734 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 735#define PERL_ARGS_ASSERT_DO_VECSET \
736 assert(sv)
f54cb97a 737
255164ba
DM		 738PERL_CALLCONV void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right)
739 __attribute__nonnull__(pTHX_2)
740 __attribute__nonnull__(pTHX_3)
741 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 742#define PERL_ARGS_ASSERT_DO_VOP \
743 assert(sv); assert(left); assert(right)
255164ba 744
850e8516 745PERL_CALLCONV OP* Perl_dofile(pTHX_ OP* term, I32 force_builtin)
255164ba 746 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 747#define PERL_ARGS_ASSERT_DOFILE \
748 assert(term)
255164ba
DM		 749
750PERL_CALLCONV I32 Perl_dowantarray(pTHX)
751 __attribute__warn_unused_result__;
752
1d7c1841 753PERL_CALLCONV void Perl_dump_all(pTHX);
f0e3f042 754PERL_CALLCONV void Perl_dump_all_perl(pTHX_ bool justperl);
1d7c1841 755PERL_CALLCONV void Perl_dump_eval(pTHX);
864dbfa3 756#if defined(DUMP_FDS)
9a957fbc
AL		 757PERL_CALLCONV void Perl_dump_fds(pTHX_ char* s)
758 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 759#define PERL_ARGS_ASSERT_DUMP_FDS \
760 assert(s)
9a957fbc 761
0cb96387 762#endif
9a957fbc
AL		 763PERL_CALLCONV void Perl_dump_form(pTHX_ const GV* gv)
764 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 765#define PERL_ARGS_ASSERT_DUMP_FORM \
766 assert(gv)
9a957fbc 767
255164ba
DM		 768PERL_CALLCONV void Perl_gv_dump(pTHX_ GV* gv)
769 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 770#define PERL_ARGS_ASSERT_GV_DUMP \
771 assert(gv)
255164ba 772
4048f010 773PERL_CALLCONV void Perl_op_dump(pTHX_ const OP *o)
255164ba 774 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 775#define PERL_ARGS_ASSERT_OP_DUMP \
776 assert(o)
255164ba 777
1d7c1841 778PERL_CALLCONV void Perl_pmop_dump(pTHX_ PMOP* pm);
9a957fbc
AL		 779PERL_CALLCONV void Perl_dump_packsubs(pTHX_ const HV* stash)
780 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 781#define PERL_ARGS_ASSERT_DUMP_PACKSUBS \
782 assert(stash)
9a957fbc 783
f0e3f042
CS		 784PERL_CALLCONV void Perl_dump_packsubs_perl(pTHX_ const HV* stash, bool justperl)
785 __attribute__nonnull__(pTHX_1);
786#define PERL_ARGS_ASSERT_DUMP_PACKSUBS_PERL \
787 assert(stash)
788
f54cb97a 789PERL_CALLCONV void Perl_dump_sub(pTHX_ const GV* gv)
abb2c242 790 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 791#define PERL_ARGS_ASSERT_DUMP_SUB \
792 assert(gv)
f54cb97a 793
f0e3f042
CS		 794PERL_CALLCONV void Perl_dump_sub_perl(pTHX_ const GV* gv, bool justperl)
795 __attribute__nonnull__(pTHX_1);
796#define PERL_ARGS_ASSERT_DUMP_SUB_PERL \
797 assert(gv)
798
255164ba
DM		 799PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags)
800 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 801#define PERL_ARGS_ASSERT_FBM_COMPILE \
802 assert(sv)
255164ba 803
9f6cc744 804PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlestr, U32 flags)
255164ba
DM		 805 __attribute__warn_unused_result__
806 __attribute__nonnull__(pTHX_1)
807 __attribute__nonnull__(pTHX_2)
808 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 809#define PERL_ARGS_ASSERT_FBM_INSTR \
810 assert(big); assert(bigend); assert(littlestr)
255164ba 811
fb9bf107
NC		 812PERL_CALLCONV char* Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char *const *const search_ext, I32 flags)
813 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 814#define PERL_ARGS_ASSERT_FIND_SCRIPT \
815 assert(scriptname)
fb9bf107 816
efd0b058 817#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
b7783a12
NC		 818STATIC OP* S_force_list(pTHX_ OP* arg);
819STATIC OP* S_fold_constants(pTHX_ OP *o)
abb2c242 820 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 821#define PERL_ARGS_ASSERT_FOLD_CONSTANTS \
822 assert(o)
f54cb97a 823
b7783a12 824#endif
894356b3 825PERL_CALLCONV char* Perl_form(pTHX_ const char* pat, ...)
aec46f14
AL		 826 __attribute__format__(__printf__,pTHX_1,pTHX_2)
827 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 828#define PERL_ARGS_ASSERT_FORM \
829 assert(pat)
aec46f14
AL		 830
831PERL_CALLCONV char* Perl_vform(pTHX_ const char* pat, va_list* args)
832 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 833#define PERL_ARGS_ASSERT_VFORM \
834 assert(pat)
f54cb97a 835
1d7c1841 836PERL_CALLCONV void Perl_free_tmps(pTHX);
efd0b058 837#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
b7783a12 838STATIC OP* S_gen_constant_list(pTHX_ OP* o);
0da8eb3a 839#endif
864dbfa3 840#if !defined(HAS_GETENV_LEN)
9f6cc744 841PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char *env_elem, unsigned long *len)
8772537c
AL		 842 __attribute__nonnull__(pTHX_1)
843 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 844#define PERL_ARGS_ASSERT_GETENV_LEN \
845 assert(env_elem); assert(len)
8772537c 846
0cb96387 847#endif
005a8a35
NC		 848PERL_CALLCONV void Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
849 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 850#define PERL_ARGS_ASSERT_GET_DB_SUB \
851 assert(cv)
005a8a35 852
1d7c1841
GS		 853PERL_CALLCONV void Perl_gp_free(pTHX_ GV* gv);
854PERL_CALLCONV GP* Perl_gp_ref(pTHX_ GP* gp);
bb85b28a
NC		 855PERL_CALLCONV GV* Perl_gv_add_by_type(pTHX_ GV *gv, svtype type);
856/* PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV *gv); */
857/* PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV *gv); */
858/* PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv); */
a28509cc
AL		 859PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method)
860 __attribute__warn_unused_result__
861 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 862#define PERL_ARGS_ASSERT_GV_AUTOLOAD4 \
863 assert(name)
a28509cc 864
1146e912 865PERL_CALLCONV void Perl_gv_check(pTHX_ const HV* stash)
46c461b5 866 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 867#define PERL_ARGS_ASSERT_GV_CHECK \
868 assert(stash)
46c461b5
AL		 869
870PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, const GV* gv)
871 __attribute__nonnull__(pTHX_1)
872 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 873#define PERL_ARGS_ASSERT_GV_EFULLNAME \
874 assert(sv); assert(gv)
46c461b5
AL		 875
876/* PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix)
877 __attribute__nonnull__(pTHX_1)
878 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 879#define PERL_ARGS_ASSERT_GV_EFULLNAME3 \
880 assert(sv); assert(gv)
46c461b5
AL		 881
882PERL_CALLCONV void Perl_gv_efullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain)
883 __attribute__nonnull__(pTHX_1)
884 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 885#define PERL_ARGS_ASSERT_GV_EFULLNAME4 \
886 assert(sv); assert(gv)
46c461b5 887
53c1dcc0
AL		 888PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name)
889 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 890#define PERL_ARGS_ASSERT_GV_FETCHFILE \
891 assert(name)
53c1dcc0 892
d9095cec
NC		 893PERL_CALLCONV GV* Perl_gv_fetchfile_flags(pTHX_ const char *const name, const STRLEN len, const U32 flags)
894 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 895#define PERL_ARGS_ASSERT_GV_FETCHFILE_FLAGS \
896 assert(name)
d9095cec 897
fb9bf107
NC		 898PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
899 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 900#define PERL_ARGS_ASSERT_GV_FETCHMETH \
901 assert(name)
fb9bf107
NC		 902
903PERL_CALLCONV GV* Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
904 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 905#define PERL_ARGS_ASSERT_GV_FETCHMETH_AUTOLOAD \
906 assert(name)
fb9bf107 907
887986eb 908/* PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name)
eff494dd 909 __attribute__nonnull__(pTHX_1)
887986eb 910 __attribute__nonnull__(pTHX_2); */
7918f24d 911#define PERL_ARGS_ASSERT_GV_FETCHMETHOD \
eff494dd 912 assert(stash); assert(name)
fb9bf107
NC		 913
914PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload)
eff494dd 915 __attribute__nonnull__(pTHX_1)
fb9bf107 916 __attribute__nonnull__(pTHX_2);
7918f24d 917#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD \
eff494dd 918 assert(stash); assert(name)
fb9bf107 919
256d1bb2 920PERL_CALLCONV GV* Perl_gv_fetchmethod_flags(pTHX_ HV* stash, const char* name, U32 flags)
eff494dd 921 __attribute__nonnull__(pTHX_1)
256d1bb2
NC		 922 __attribute__nonnull__(pTHX_2);
923#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_FLAGS \
eff494dd 924 assert(stash); assert(name)
256d1bb2 925
fe9845cc 926PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type)
9a957fbc 927 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 928#define PERL_ARGS_ASSERT_GV_FETCHPV \
929 assert(nambeg)
9a957fbc
AL		 930
931PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, const GV* gv)
932 __attribute__nonnull__(pTHX_1)
933 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 934#define PERL_ARGS_ASSERT_GV_FULLNAME \
935 assert(sv); assert(gv)
9a957fbc
AL		 936
937/* PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix)
938 __attribute__nonnull__(pTHX_1)
939 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 940#define PERL_ARGS_ASSERT_GV_FULLNAME3 \
941 assert(sv); assert(gv)
9a957fbc
AL		 942
943PERL_CALLCONV void Perl_gv_fullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain)
944 __attribute__nonnull__(pTHX_1)
945 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 946#define PERL_ARGS_ASSERT_GV_FULLNAME4 \
947 assert(sv); assert(gv)
9a957fbc 948
12816592
NC		 949PERL_CALLCONV GP * Perl_newGP(pTHX_ GV *const gv)
950 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 951#define PERL_ARGS_ASSERT_NEWGP \
952 assert(gv)
12816592 953
53c1dcc0
AL		 954PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
955 __attribute__nonnull__(pTHX_1)
53c1dcc0 956 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 957#define PERL_ARGS_ASSERT_GV_INIT \
958 assert(gv); assert(name)
53c1dcc0 959
f5c1e807 960PERL_CALLCONV void Perl_gv_name_set(pTHX_ GV* gv, const char *name, U32 len, U32 flags)
9f616d01
MHM		 961 __attribute__nonnull__(pTHX_1)
962 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 963#define PERL_ARGS_ASSERT_GV_NAME_SET \
964 assert(gv); assert(name)
f5c1e807 965
f7461760
Z		 966PERL_CALLCONV void Perl_gv_try_downgrade(pTHX_ GV* gv)
967 __attribute__nonnull__(pTHX_1);
968#define PERL_ARGS_ASSERT_GV_TRY_DOWNGRADE \
969 assert(gv)
970
da51bb9b 971PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 flags)
aa924a5a 972 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 973#define PERL_ARGS_ASSERT_GV_STASHPV \
974 assert(name)
aa924a5a 975
da51bb9b 976PERL_CALLCONV HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 flags)
aa924a5a 977 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 978#define PERL_ARGS_ASSERT_GV_STASHPVN \
979 assert(name)
aa924a5a 980
8798655d
NC		 981PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags)
982 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 983#define PERL_ARGS_ASSERT_GV_STASHSV \
984 assert(sv)
8798655d 985
4048f010 986PERL_CALLCONV void Perl_hv_clear(pTHX_ HV *hv);
3d4dd4c7 987PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv);
4048f010 988PERL_CALLCONV void Perl_hv_delayfree_ent(pTHX_ HV *hv, HE *entry)
aa924a5a 989 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 990#define PERL_ARGS_ASSERT_HV_DELAYFREE_ENT \
991 assert(hv)
aa924a5a 992
4048f010 993/* PERL_CALLCONV SV* Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen, I32 flags)
a038e571 994 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 995#define PERL_ARGS_ASSERT_HV_DELETE \
996 assert(key)
aa924a5a 997
4048f010 998/* PERL_CALLCONV SV* Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
4c2df08c 999 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 1000#define PERL_ARGS_ASSERT_HV_DELETE_ENT \
1001 assert(keysv)
aa924a5a 1002
4048f010 1003/* PERL_CALLCONV bool Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
aa924a5a 1004 __attribute__warn_unused_result__
a038e571 1005 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 1006#define PERL_ARGS_ASSERT_HV_EXISTS \
1007 assert(key)
901017d6 1008
4048f010 1009/* PERL_CALLCONV bool Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
aa924a5a 1010 __attribute__warn_unused_result__
4c2df08c 1011 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 1012#define PERL_ARGS_ASSERT_HV_EXISTS_ENT \
1013 assert(keysv)
aa924a5a 1014
4048f010 1015/* PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen, I32 lval)
a038e571 1016 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 1017#define PERL_ARGS_ASSERT_HV_FETCH \
1018 assert(key)
901017d6 1019
4048f010 1020/* PERL_CALLCONV HE* Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash)
4c2df08c 1021 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 1022#define PERL_ARGS_ASSERT_HV_FETCH_ENT \
1023 assert(keysv)
aa924a5a 1024
4048f010 1025PERL_CALLCONV void* Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char* key, STRLEN klen, int flags, int action, SV *val, U32 hash);
a038e571
NC		 1026PERL_CALLCONV void* Perl_hv_common_key_len(pTHX_ HV *hv, const char *key, I32 klen_i32, const int action, SV *val, const U32 hash)
1027 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1028#define PERL_ARGS_ASSERT_HV_COMMON_KEY_LEN \
1029 assert(key)
a038e571 1030
4d0fbddd
NC		 1031PERL_CALLCONV STRLEN Perl_hv_fill(pTHX_ HV const *const hv)
1032 __attribute__nonnull__(pTHX_1);
1033#define PERL_ARGS_ASSERT_HV_FILL \
1034 assert(hv)
1035
4048f010 1036PERL_CALLCONV void Perl_hv_free_ent(pTHX_ HV *hv, HE *entryK)
abb2c242 1037 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1038#define PERL_ARGS_ASSERT_HV_FREE_ENT \
1039 assert(hv)
a3b680e6 1040
4048f010 1041PERL_CALLCONV I32 Perl_hv_iterinit(pTHX_ HV *hv)
abb2c242 1042 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1043#define PERL_ARGS_ASSERT_HV_ITERINIT \
1044 assert(hv)
a3b680e6
AL		 1045
1046PERL_CALLCONV char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen)
abb2c242
JH		 1047 __attribute__warn_unused_result__
1048 __attribute__nonnull__(pTHX_1)
1049 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1050#define PERL_ARGS_ASSERT_HV_ITERKEY \
1051 assert(entry); assert(retlen)
a3b680e6
AL		 1052
1053PERL_CALLCONV SV* Perl_hv_iterkeysv(pTHX_ HE* entry)
abb2c242
JH		 1054 __attribute__warn_unused_result__
1055 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1056#define PERL_ARGS_ASSERT_HV_ITERKEYSV \
1057 assert(entry)
a3b680e6 1058
4048f010 1059/* PERL_CALLCONV HE* Perl_hv_iternext(pTHX_ HV *hv)
abb2c242 1060 __attribute__warn_unused_result__
7a7b9979 1061 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 1062#define PERL_ARGS_ASSERT_HV_ITERNEXT \
1063 assert(hv)
a3b680e6 1064
4048f010 1065PERL_CALLCONV SV* Perl_hv_iternextsv(pTHX_ HV *hv, char **key, I32 *retlen)
abb2c242
JH		 1066 __attribute__warn_unused_result__
1067 __attribute__nonnull__(pTHX_1)
1068 __attribute__nonnull__(pTHX_2)
1069 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1070#define PERL_ARGS_ASSERT_HV_ITERNEXTSV \
1071 assert(hv); assert(key); assert(retlen)
a3b680e6 1072
4048f010 1073PERL_CALLCONV HE* Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags)
abb2c242
JH		 1074 __attribute__warn_unused_result__
1075 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1076#define PERL_ARGS_ASSERT_HV_ITERNEXT_FLAGS \
1077 assert(hv)
a3b680e6 1078
4048f010 1079PERL_CALLCONV SV* Perl_hv_iterval(pTHX_ HV *hv, HE *entry)
abb2c242
JH		 1080 __attribute__warn_unused_result__
1081 __attribute__nonnull__(pTHX_1)
1082 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1083#define PERL_ARGS_ASSERT_HV_ITERVAL \
1084 assert(hv); assert(entry)
a3b680e6 1085
4048f010 1086PERL_CALLCONV void Perl_hv_ksplit(pTHX_ HV *hv, IV newmax)
abb2c242 1087 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1088#define PERL_ARGS_ASSERT_HV_KSPLIT \
1089 assert(hv)
a3b680e6 1090
4048f010 1091/* PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
bc5cdc23 1092 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 1093#define PERL_ARGS_ASSERT_HV_MAGIC \
1094 assert(hv)
fb9bf107 1095
b3ca2e83 1096PERL_CALLCONV HV * Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c);
18759386 1097PERL_CALLCONV SV * Perl_refcounted_he_fetch(pTHX_ const struct refcounted_he *chain, SV *keysv, const char *key, STRLEN klen, int flags, U32 hash);
b3ca2e83 1098PERL_CALLCONV void Perl_refcounted_he_free(pTHX_ struct refcounted_he *he);
b46c265e 1099PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent, SV *const key, SV *const value);
012da8e5
NC		 1100#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
1101STATIC struct refcounted_he * S_refcounted_he_new_common(pTHX_ struct refcounted_he *const parent, const char *const key_p, const STRLEN key_len, const char flags, char value_type, const void *value, const STRLEN value_len)
1102 __attribute__nonnull__(pTHX_2)
1103 __attribute__nonnull__(pTHX_6);
1104#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_COMMON \
1105 assert(key_p); assert(value)
1106
1107#endif
4048f010
NC		 1108/* PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash); */
1109/* PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV *hv, SV *key, SV *val, U32 hash); */
1110/* PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash, int flags); */
1111PERL_CALLCONV void Perl_hv_undef(pTHX_ HV *hv);
04c9e624 1112PERL_CALLCONV I32 Perl_ibcmp(const char* a, const char* b, I32 len)
abb2c242 1113 __attribute__pure__
04c9e624
VP		 1114 __attribute__nonnull__(1)
1115 __attribute__nonnull__(2);
7918f24d
NC		 1116#define PERL_ARGS_ASSERT_IBCMP \
1117 assert(a); assert(b)
f54cb97a 1118
04c9e624 1119PERL_CALLCONV I32 Perl_ibcmp_locale(const char* a, const char* b, I32 len)
abb2c242 1120 __attribute__pure__
04c9e624
VP		 1121 __attribute__nonnull__(1)
1122 __attribute__nonnull__(2);
7918f24d
NC		 1123#define PERL_ARGS_ASSERT_IBCMP_LOCALE \
1124 assert(a); assert(b)
f54cb97a 1125
4048f010 1126PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2)
abb2c242
JH		 1127 __attribute__nonnull__(pTHX_1)
1128 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 1129#define PERL_ARGS_ASSERT_IBCMP_UTF8 \
1130 assert(s1); assert(s2)
f54cb97a 1131
efd0b058 1132#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
0da8eb3a 1133STATIC bool S_ingroup(pTHX_ Gid_t testgid, bool effective)
abb2c242 1134 __attribute__warn_unused_result__;
f54cb97a 1135
0da8eb3a 1136#endif
4373e329 1137PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv)
abb2c242 1138 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1139#define PERL_ARGS_ASSERT_INIT_ARGV_SYMBOLS \
1140 assert(argv)
f54cb97a 1141
1d7c1841
GS		 1142PERL_CALLCONV void Perl_init_debugger(pTHX);
1143PERL_CALLCONV void Perl_init_stacks(pTHX);
bfce84ec
AL		 1144PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm)
1145 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1146#define PERL_ARGS_ASSERT_INIT_TM \
1147 assert(ptm)
bfce84ec 1148
1d7c1841 1149PERL_CALLCONV U32 Perl_intro_my(pTHX);
04c9e624 1150PERL_CALLCONV char* Perl_instr(const char* big, const char* little)
b464bac0 1151 __attribute__warn_unused_result__
abb2c242 1152 __attribute__pure__
04c9e624
VP		 1153 __attribute__nonnull__(1)
1154 __attribute__nonnull__(2);
7918f24d
NC		 1155#define PERL_ARGS_ASSERT_INSTR \
1156 assert(big); assert(little)
f54cb97a 1157
b464bac0 1158PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit)
b464bac0 1159 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1160#define PERL_ARGS_ASSERT_IO_CLOSE \
1161 assert(io)
b464bac0
AL		 1162
1163PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd)
1164 __attribute__warn_unused_result__;
1165
f54cb97a 1166PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX)
abb2c242 1167 __attribute__warn_unused_result__;
f54cb97a
AL		 1168
1169PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c)
abb2c242
JH		 1170 __attribute__warn_unused_result__
1171 __attribute__pure__;
f54cb97a
AL		 1172
1173PERL_CALLCONV U32 Perl_to_uni_title_lc(pTHX_ U32 c)
abb2c242
JH		 1174 __attribute__warn_unused_result__
1175 __attribute__pure__;
f54cb97a
AL		 1176
1177PERL_CALLCONV U32 Perl_to_uni_lower_lc(pTHX_ U32 c)
abb2c242
JH		 1178 __attribute__warn_unused_result__
1179 __attribute__pure__;
f54cb97a
AL		 1180
1181PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c)
abb2c242
JH		 1182 __attribute__warn_unused_result__
1183 __attribute__pure__;
f54cb97a 1184
f54cb97a 1185PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c)
abb2c242
JH		 1186 __attribute__warn_unused_result__
1187 __attribute__pure__;
f54cb97a
AL		 1188
1189PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ UV c)
abb2c242
JH		 1190 __attribute__warn_unused_result__
1191 __attribute__pure__;
f54cb97a
AL		 1192
1193PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ UV c)
abb2c242
JH		 1194 __attribute__warn_unused_result__
1195 __attribute__pure__;
f54cb97a
AL		 1196
1197PERL_CALLCONV bool Perl_is_uni_space(pTHX_ UV c)
abb2c242
JH		 1198 __attribute__warn_unused_result__
1199 __attribute__pure__;
f54cb97a
AL		 1200
1201PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ UV c)
abb2c242
JH		 1202 __attribute__warn_unused_result__
1203 __attribute__pure__;
f54cb97a
AL		 1204
1205PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ UV c)
abb2c242
JH		 1206 __attribute__warn_unused_result__
1207 __attribute__pure__;
f54cb97a
AL		 1208
1209PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ UV c)
abb2c242
JH		 1210 __attribute__warn_unused_result__
1211 __attribute__pure__;
f54cb97a
AL		 1212
1213PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ UV c)
abb2c242
JH		 1214 __attribute__warn_unused_result__
1215 __attribute__pure__;
f54cb97a
AL		 1216
1217PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c)
abb2c242
JH		 1218 __attribute__warn_unused_result__
1219 __attribute__pure__;
f54cb97a
AL		 1220
1221PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c)
abb2c242
JH		 1222 __attribute__warn_unused_result__
1223 __attribute__pure__;
f54cb97a
AL		 1224
1225PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c)
abb2c242
JH		 1226 __attribute__warn_unused_result__
1227 __attribute__pure__;
f54cb97a
AL		 1228
1229PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c)
abb2c242
JH		 1230 __attribute__warn_unused_result__
1231 __attribute__pure__;
f54cb97a 1232
4373e329 1233PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp)
abb2c242
JH		 1234 __attribute__nonnull__(pTHX_2)
1235 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1236#define PERL_ARGS_ASSERT_TO_UNI_UPPER \
1237 assert(p); assert(lenp)
f54cb97a 1238
4373e329 1239PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp)
abb2c242
JH		 1240 __attribute__nonnull__(pTHX_2)
1241 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1242#define PERL_ARGS_ASSERT_TO_UNI_TITLE \
1243 assert(p); assert(lenp)
f54cb97a 1244
4373e329 1245PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp)
abb2c242
JH		 1246 __attribute__nonnull__(pTHX_2)
1247 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1248#define PERL_ARGS_ASSERT_TO_UNI_LOWER \
1249 assert(p); assert(lenp)
f54cb97a 1250
4373e329 1251PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp)
abb2c242
JH		 1252 __attribute__nonnull__(pTHX_2)
1253 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1254#define PERL_ARGS_ASSERT_TO_UNI_FOLD \
1255 assert(p); assert(lenp)
f54cb97a
AL		 1256
1257PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c)
abb2c242
JH		 1258 __attribute__warn_unused_result__
1259 __attribute__pure__;
f54cb97a 1260
f54cb97a 1261PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c)
abb2c242
JH		 1262 __attribute__warn_unused_result__
1263 __attribute__pure__;
f54cb97a
AL		 1264
1265PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ UV c)
abb2c242
JH		 1266 __attribute__warn_unused_result__
1267 __attribute__pure__;
f54cb97a
AL		 1268
1269PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ UV c)
abb2c242
JH		 1270 __attribute__warn_unused_result__
1271 __attribute__pure__;
f54cb97a
AL		 1272
1273PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ UV c)
abb2c242
JH		 1274 __attribute__warn_unused_result__
1275 __attribute__pure__;
f54cb97a
AL		 1276
1277PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ UV c)
abb2c242
JH		 1278 __attribute__warn_unused_result__
1279 __attribute__pure__;
f54cb97a
AL		 1280
1281PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ UV c)
abb2c242
JH		 1282 __attribute__warn_unused_result__
1283 __attribute__pure__;
f54cb97a
AL		 1284
1285PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ UV c)
abb2c242
JH		 1286 __attribute__warn_unused_result__
1287 __attribute__pure__;
f54cb97a
AL		 1288
1289PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ UV c)
abb2c242
JH		 1290 __attribute__warn_unused_result__
1291 __attribute__pure__;
f54cb97a
AL		 1292
1293PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c)
abb2c242
JH		 1294 __attribute__warn_unused_result__
1295 __attribute__pure__;
f54cb97a
AL		 1296
1297PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c)
abb2c242
JH		 1298 __attribute__warn_unused_result__
1299 __attribute__pure__;
f54cb97a
AL		 1300
1301PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c)
abb2c242
JH		 1302 __attribute__warn_unused_result__
1303 __attribute__pure__;
f54cb97a
AL		 1304
1305PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c)
abb2c242
JH		 1306 __attribute__warn_unused_result__
1307 __attribute__pure__;
f54cb97a 1308
668b6d8d
VP		 1309PERL_CALLCONV bool Perl_is_ascii_string(const U8 *s, STRLEN len)
1310 __attribute__nonnull__(1);
eaf7a4d2
CS		 1311#define PERL_ARGS_ASSERT_IS_ASCII_STRING \
1312 assert(s)
1313
668b6d8d
VP		 1314PERL_CALLCONV STRLEN Perl_is_utf8_char(const U8 *s)
1315 __attribute__nonnull__(1);
7918f24d
NC		 1316#define PERL_ARGS_ASSERT_IS_UTF8_CHAR \
1317 assert(s)
f54cb97a 1318
668b6d8d
VP		 1319PERL_CALLCONV bool Perl_is_utf8_string(const U8 *s, STRLEN len)
1320 __attribute__nonnull__(1);
7918f24d
NC		 1321#define PERL_ARGS_ASSERT_IS_UTF8_STRING \
1322 assert(s)
f54cb97a 1323
668b6d8d
VP		 1324/* PERL_CALLCONV bool Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **p)
1325 __attribute__nonnull__(1); */
7918f24d
NC		 1326#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC \
1327 assert(s)
768c67ee 1328
668b6d8d
VP		 1329PERL_CALLCONV bool Perl_is_utf8_string_loclen(const U8 *s, STRLEN len, const U8 **ep, STRLEN *el)
1330 __attribute__nonnull__(1);
7918f24d
NC		 1331#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOCLEN \
1332 assert(s)
f54cb97a 1333
4373e329 1334PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ const U8 *p)
1df70142 1335 __attribute__warn_unused_result__
abb2c242 1336 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1337#define PERL_ARGS_ASSERT_IS_UTF8_ALNUM \
1338 assert(p)
f54cb97a 1339
4373e329 1340PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ const U8 *p)
1df70142 1341 __attribute__warn_unused_result__
abb2c242 1342 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1343#define PERL_ARGS_ASSERT_IS_UTF8_IDFIRST \
1344 assert(p)
f54cb97a 1345
4373e329 1346PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ const U8 *p)
1df70142 1347 __attribute__warn_unused_result__
abb2c242 1348 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1349#define PERL_ARGS_ASSERT_IS_UTF8_IDCONT \
1350 assert(p)
f54cb97a 1351
4373e329 1352PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ const U8 *p)
1df70142 1353 __attribute__warn_unused_result__
abb2c242 1354 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1355#define PERL_ARGS_ASSERT_IS_UTF8_ALPHA \
1356 assert(p)
f54cb97a 1357
4373e329 1358PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ const U8 *p)
1df70142 1359 __attribute__warn_unused_result__
abb2c242 1360 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1361#define PERL_ARGS_ASSERT_IS_UTF8_ASCII \
1362 assert(p)
f54cb97a 1363
4373e329 1364PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p)
1df70142 1365 __attribute__warn_unused_result__
abb2c242 1366 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1367#define PERL_ARGS_ASSERT_IS_UTF8_SPACE \
1368 assert(p)
f54cb97a 1369
d1eb3177
YO		 1370PERL_CALLCONV bool Perl_is_utf8_perl_space(pTHX_ const U8 *p)
1371 __attribute__warn_unused_result__
1372 __attribute__nonnull__(pTHX_1);
1373#define PERL_ARGS_ASSERT_IS_UTF8_PERL_SPACE \
1374 assert(p)
1375
1376PERL_CALLCONV bool Perl_is_utf8_perl_word(pTHX_ const U8 *p)
1377 __attribute__warn_unused_result__
1378 __attribute__nonnull__(pTHX_1);
1379#define PERL_ARGS_ASSERT_IS_UTF8_PERL_WORD \
1380 assert(p)
1381
4373e329 1382PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ const U8 *p)
1df70142 1383 __attribute__warn_unused_result__
abb2c242 1384 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1385#define PERL_ARGS_ASSERT_IS_UTF8_CNTRL \
1386 assert(p)
f54cb97a 1387
4373e329 1388PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ const U8 *p)
1df70142 1389 __attribute__warn_unused_result__
abb2c242 1390 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1391#define PERL_ARGS_ASSERT_IS_UTF8_DIGIT \
1392 assert(p)
f54cb97a 1393
d1eb3177
YO		 1394PERL_CALLCONV bool Perl_is_utf8_posix_digit(pTHX_ const U8 *p)
1395 __attribute__warn_unused_result__
1396 __attribute__nonnull__(pTHX_1);
1397#define PERL_ARGS_ASSERT_IS_UTF8_POSIX_DIGIT \
1398 assert(p)
1399
4373e329 1400PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ const U8 *p)
1df70142 1401 __attribute__warn_unused_result__
abb2c242 1402 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1403#define PERL_ARGS_ASSERT_IS_UTF8_GRAPH \
1404 assert(p)
f54cb97a 1405
4373e329 1406PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ const U8 *p)
1df70142 1407 __attribute__warn_unused_result__
abb2c242 1408 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1409#define PERL_ARGS_ASSERT_IS_UTF8_UPPER \
1410 assert(p)
f54cb97a 1411
4373e329 1412PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ const U8 *p)
1df70142 1413 __attribute__warn_unused_result__
abb2c242 1414 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1415#define PERL_ARGS_ASSERT_IS_UTF8_LOWER \
1416 assert(p)
f54cb97a 1417
4373e329 1418PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ const U8 *p)
1df70142 1419 __attribute__warn_unused_result__
abb2c242 1420 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1421#define PERL_ARGS_ASSERT_IS_UTF8_PRINT \
1422 assert(p)
f54cb97a 1423
4373e329 1424PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ const U8 *p)
1df70142 1425 __attribute__warn_unused_result__
abb2c242 1426 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1427#define PERL_ARGS_ASSERT_IS_UTF8_PUNCT \
1428 assert(p)
f54cb97a 1429
4373e329 1430PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ const U8 *p)
1df70142 1431 __attribute__warn_unused_result__
abb2c242 1432 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1433#define PERL_ARGS_ASSERT_IS_UTF8_XDIGIT \
1434 assert(p)
f54cb97a 1435
4373e329 1436PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ const U8 *p)
1df70142 1437 __attribute__warn_unused_result__
abb2c242 1438 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1439#define PERL_ARGS_ASSERT_IS_UTF8_MARK \
1440 assert(p)
f54cb97a 1441
37e2e78e
KW		 1442PERL_CALLCONV bool Perl_is_utf8_X_begin(pTHX_ const U8 *p)
1443 __attribute__warn_unused_result__
1444 __attribute__nonnull__(pTHX_1);
1445#define PERL_ARGS_ASSERT_IS_UTF8_X_BEGIN \
1446 assert(p)
1447
1448PERL_CALLCONV bool Perl_is_utf8_X_extend(pTHX_ const U8 *p)
1449 __attribute__warn_unused_result__
1450 __attribute__nonnull__(pTHX_1);
1451#define PERL_ARGS_ASSERT_IS_UTF8_X_EXTEND \
1452 assert(p)
1453
1454PERL_CALLCONV bool Perl_is_utf8_X_prepend(pTHX_ const U8 *p)
1455 __attribute__warn_unused_result__
1456 __attribute__nonnull__(pTHX_1);
1457#define PERL_ARGS_ASSERT_IS_UTF8_X_PREPEND \
1458 assert(p)
1459
1460PERL_CALLCONV bool Perl_is_utf8_X_non_hangul(pTHX_ const U8 *p)
1461 __attribute__warn_unused_result__
1462 __attribute__nonnull__(pTHX_1);
1463#define PERL_ARGS_ASSERT_IS_UTF8_X_NON_HANGUL \
1464 assert(p)
1465
1466PERL_CALLCONV bool Perl_is_utf8_X_L(pTHX_ const U8 *p)
1467 __attribute__warn_unused_result__
1468 __attribute__nonnull__(pTHX_1);
1469#define PERL_ARGS_ASSERT_IS_UTF8_X_L \
1470 assert(p)
1471
1472PERL_CALLCONV bool Perl_is_utf8_X_LV(pTHX_ const U8 *p)
1473 __attribute__warn_unused_result__
1474 __attribute__nonnull__(pTHX_1);
1475#define PERL_ARGS_ASSERT_IS_UTF8_X_LV \
1476 assert(p)
1477
1478PERL_CALLCONV bool Perl_is_utf8_X_LVT(pTHX_ const U8 *p)
1479 __attribute__warn_unused_result__
1480 __attribute__nonnull__(pTHX_1);
1481#define PERL_ARGS_ASSERT_IS_UTF8_X_LVT \
1482 assert(p)
1483
1484PERL_CALLCONV bool Perl_is_utf8_X_LV_LVT_V(pTHX_ const U8 *p)
1485 __attribute__warn_unused_result__
1486 __attribute__nonnull__(pTHX_1);
1487#define PERL_ARGS_ASSERT_IS_UTF8_X_LV_LVT_V \
1488 assert(p)
1489
1490PERL_CALLCONV bool Perl_is_utf8_X_T(pTHX_ const U8 *p)
1491 __attribute__warn_unused_result__
1492 __attribute__nonnull__(pTHX_1);
1493#define PERL_ARGS_ASSERT_IS_UTF8_X_T \
1494 assert(p)
1495
1496PERL_CALLCONV bool Perl_is_utf8_X_V(pTHX_ const U8 *p)
1497 __attribute__warn_unused_result__
1498 __attribute__nonnull__(pTHX_1);
1499#define PERL_ARGS_ASSERT_IS_UTF8_X_V \
1500 assert(p)
1501
4048f010 1502PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP *o)
abb2c242 1503 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1504#define PERL_ARGS_ASSERT_JMAYBE \
1505 assert(o)
f54cb97a 1506
4048f010 1507PERL_CALLCONV I32 Perl_keyword(pTHX_ const char *name, I32 len, bool all_keywords)
abb2c242
JH		 1508 __attribute__pure__
1509 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1510#define PERL_ARGS_ASSERT_KEYWORD \
1511 assert(name)
f54cb97a 1512
867fa1e2
YO		 1513#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
1514STATIC OP* S_opt_scalarhv(pTHX_ OP* rep_op)
1515 __attribute__nonnull__(pTHX_1);
1516#define PERL_ARGS_ASSERT_OPT_SCALARHV \
1517 assert(rep_op)
1518
2f9e2db0
VP		 1519STATIC OP* S_is_inplace_av(pTHX_ OP* o, OP* oright)
1520 __attribute__nonnull__(pTHX_1);
1521#define PERL_ARGS_ASSERT_IS_INPLACE_AV \
1522 assert(o)
1523
867fa1e2 1524#endif
1d7c1841
GS		 1525PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base);
1526PERL_CALLCONV void Perl_lex_end(pTHX);
5486870f 1527PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line, PerlIO *rsfp, bool new_filter);
f0e67a1d
Z		 1528PERL_CALLCONV bool Perl_lex_bufutf8(pTHX);
1529PERL_CALLCONV char* Perl_lex_grow_linestr(pTHX_ STRLEN len);
83aa740e 1530PERL_CALLCONV void Perl_lex_stuff_pvn(pTHX_ const char* pv, STRLEN len, U32 flags)
f0e67a1d
Z		 1531 __attribute__nonnull__(pTHX_1);
1532#define PERL_ARGS_ASSERT_LEX_STUFF_PVN \
1533 assert(pv)
1534
1535PERL_CALLCONV void Perl_lex_stuff_sv(pTHX_ SV* sv, U32 flags)
1536 __attribute__nonnull__(pTHX_1);
1537#define PERL_ARGS_ASSERT_LEX_STUFF_SV \
1538 assert(sv)
1539
1540PERL_CALLCONV void Perl_lex_unstuff(pTHX_ char* ptr)
1541 __attribute__nonnull__(pTHX_1);
1542#define PERL_ARGS_ASSERT_LEX_UNSTUFF \
1543 assert(ptr)
1544
1545PERL_CALLCONV void Perl_lex_read_to(pTHX_ char* ptr)
1546 __attribute__nonnull__(pTHX_1);
1547#define PERL_ARGS_ASSERT_LEX_READ_TO \
1548 assert(ptr)
1549
1550PERL_CALLCONV void Perl_lex_discard_to(pTHX_ char* ptr)
1551 __attribute__nonnull__(pTHX_1);
1552#define PERL_ARGS_ASSERT_LEX_DISCARD_TO \
1553 assert(ptr)
1554
1555PERL_CALLCONV bool Perl_lex_next_chunk(pTHX_ U32 flags);
1556PERL_CALLCONV I32 Perl_lex_peek_unichar(pTHX_ U32 flags);
1557PERL_CALLCONV I32 Perl_lex_read_unichar(pTHX_ U32 flags);
1558PERL_CALLCONV void Perl_lex_read_space(pTHX_ U32 flags);
aec46f14
AL		 1559PERL_CALLCONV void Perl_op_null(pTHX_ OP* o)
1560 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1561#define PERL_ARGS_ASSERT_OP_NULL \
1562 assert(o)
aec46f14
AL		 1563
1564PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o)
1565 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1566#define PERL_ARGS_ASSERT_OP_CLEAR \
1567 assert(o)
aec46f14 1568
4026c95a
SH		 1569PERL_CALLCONV void Perl_op_refcnt_lock(pTHX);
1570PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX);
efd0b058 1571#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
12e93c28 1572STATIC OP* S_linklist(pTHX_ OP *o)
aec46f14 1573 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1574#define PERL_ARGS_ASSERT_LINKLIST \
1575 assert(o)
aec46f14 1576
412da003 1577STATIC OP* S_listkids(pTHX_ OP* o);
2dd5337b 1578#endif
1d7c1841 1579PERL_CALLCONV OP* Perl_list(pTHX_ OP* o);
aec46f14
AL		 1580PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...)
1581 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1582#define PERL_ARGS_ASSERT_LOAD_MODULE \
1583 assert(name)
aec46f14
AL		 1584
1585PERL_CALLCONV void Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args)
1586 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1587#define PERL_ARGS_ASSERT_VLOAD_MODULE \
1588 assert(name)
aec46f14 1589
4048f010 1590PERL_CALLCONV OP* Perl_localize(pTHX_ OP *o, I32 lex)
bfce84ec 1591 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1592#define PERL_ARGS_ASSERT_LOCALIZE \
1593 assert(o)
bfce84ec 1594
aad570aa 1595PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV *const sv)
abb2c242
JH		 1596 __attribute__warn_unused_result__
1597 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1598#define PERL_ARGS_ASSERT_LOOKS_LIKE_NUMBER \
1599 assert(sv)
f54cb97a 1600
a3b680e6 1601PERL_CALLCONV UV Perl_grok_bin(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
abb2c242
JH		 1602 __attribute__nonnull__(pTHX_1)
1603 __attribute__nonnull__(pTHX_2)
1604 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1605#define PERL_ARGS_ASSERT_GROK_BIN \
1606 assert(start); assert(len_p); assert(flags)
f54cb97a 1607
e52cd83c
RGS		 1608PERL_CALLCONV char Perl_grok_bslash_c(pTHX_ const char source, const bool output_warning)
1609 __attribute__warn_unused_result__;
1610
a3b680e6 1611PERL_CALLCONV UV Perl_grok_hex(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
abb2c242
JH		 1612 __attribute__nonnull__(pTHX_1)
1613 __attribute__nonnull__(pTHX_2)
1614 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1615#define PERL_ARGS_ASSERT_GROK_HEX \
1616 assert(start); assert(len_p); assert(flags)
f54cb97a
AL		 1617
1618PERL_CALLCONV int Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
abb2c242 1619 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1620#define PERL_ARGS_ASSERT_GROK_NUMBER \
1621 assert(pv)
f54cb97a 1622
901017d6 1623PERL_CALLCONV bool Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
bfce84ec
AL		 1624 __attribute__warn_unused_result__
1625 __attribute__nonnull__(pTHX_1)
1626 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1627#define PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX \
1628 assert(sp); assert(send)
bfce84ec
AL		 1629
1630PERL_CALLCONV UV Perl_grok_oct(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
fb9bf107
NC		 1631 __attribute__nonnull__(pTHX_1)
1632 __attribute__nonnull__(pTHX_2)
1633 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1634#define PERL_ARGS_ASSERT_GROK_OCT \
1635 assert(start); assert(len_p); assert(flags)
bfce84ec
AL		 1636
1637PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg)
1638 __attribute__nonnull__(pTHX_1)
1639 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1640#define PERL_ARGS_ASSERT_MAGIC_CLEARENV \
1641 assert(sv); assert(mg)
bfce84ec
AL		 1642
1643PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg)
1644 __attribute__nonnull__(pTHX_1)
1645 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1646#define PERL_ARGS_ASSERT_MAGIC_CLEAR_ALL_ENV \
1647 assert(sv); assert(mg)
bfce84ec 1648
b3ca2e83
NC		 1649PERL_CALLCONV int Perl_magic_clearhint(pTHX_ SV* sv, MAGIC* mg)
1650 __attribute__nonnull__(pTHX_1)
1651 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1652#define PERL_ARGS_ASSERT_MAGIC_CLEARHINT \
1653 assert(sv); assert(mg)
b3ca2e83 1654
f747ebd6
Z		 1655PERL_CALLCONV int Perl_magic_clearhints(pTHX_ SV* sv, MAGIC* mg)
1656 __attribute__nonnull__(pTHX_1)
1657 __attribute__nonnull__(pTHX_2);
1658#define PERL_ARGS_ASSERT_MAGIC_CLEARHINTS \
1659 assert(sv); assert(mg)
1660
52b45067 1661PERL_CALLCONV int Perl_magic_clearisa(pTHX_ SV* sv, MAGIC* mg)
52b45067 1662 __attribute__nonnull__(pTHX_2);
7918f24d 1663#define PERL_ARGS_ASSERT_MAGIC_CLEARISA \
0e446081 1664 assert(mg)
52b45067 1665
bfce84ec
AL		 1666PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg)
1667 __attribute__nonnull__(pTHX_1)
1668 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1669#define PERL_ARGS_ASSERT_MAGIC_CLEARPACK \
1670 assert(sv); assert(mg)
bfce84ec
AL		 1671
1672PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg)
1673 __attribute__nonnull__(pTHX_1)
1674 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1675#define PERL_ARGS_ASSERT_MAGIC_CLEARSIG \
1676 assert(sv); assert(mg)
bfce84ec 1677
1146e912 1678PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg)
bfce84ec
AL		 1679 __attribute__nonnull__(pTHX_1)
1680 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1681#define PERL_ARGS_ASSERT_MAGIC_EXISTSPACK \
1682 assert(sv); assert(mg)
bfce84ec 1683
bfce84ec
AL		 1684PERL_CALLCONV int Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg)
1685 __attribute__nonnull__(pTHX_1)
1686 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1687#define PERL_ARGS_ASSERT_MAGIC_FREEOVRLD \
1688 assert(sv); assert(mg)
bfce84ec
AL		 1689
1690PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg)
1691 __attribute__nonnull__(pTHX_1)
1692 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1693#define PERL_ARGS_ASSERT_MAGIC_GET \
1694 assert(sv); assert(mg)
901017d6 1695
8772537c
AL		 1696PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, const MAGIC* mg)
1697 __attribute__nonnull__(pTHX_1)
1698 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1699#define PERL_ARGS_ASSERT_MAGIC_GETARYLEN \
1700 assert(sv); assert(mg)
8772537c 1701
bfce84ec
AL		 1702PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg)
1703 __attribute__nonnull__(pTHX_1)
1704 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1705#define PERL_ARGS_ASSERT_MAGIC_GETDEFELEM \
1706 assert(sv); assert(mg)
bfce84ec 1707
bfce84ec
AL		 1708PERL_CALLCONV int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg)
1709 __attribute__nonnull__(pTHX_1)
1710 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1711#define PERL_ARGS_ASSERT_MAGIC_GETNKEYS \
1712 assert(sv); assert(mg)
bfce84ec
AL		 1713
1714PERL_CALLCONV int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg)
1715 __attribute__nonnull__(pTHX_1)
1716 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1717#define PERL_ARGS_ASSERT_MAGIC_GETPACK \
1718 assert(sv); assert(mg)
bfce84ec
AL		 1719
1720PERL_CALLCONV int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg)
1721 __attribute__nonnull__(pTHX_1)
1722 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1723#define PERL_ARGS_ASSERT_MAGIC_GETPOS \
1724 assert(sv); assert(mg)
bfce84ec
AL		 1725
1726PERL_CALLCONV int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg)
1727 __attribute__nonnull__(pTHX_1)
1728 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1729#define PERL_ARGS_ASSERT_MAGIC_GETSIG \
1730 assert(sv); assert(mg)
bfce84ec
AL		 1731
1732PERL_CALLCONV int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg)
1733 __attribute__nonnull__(pTHX_1)
1734 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1735#define PERL_ARGS_ASSERT_MAGIC_GETSUBSTR \
1736 assert(sv); assert(mg)
bfce84ec
AL		 1737
1738PERL_CALLCONV int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg)
1739 __attribute__nonnull__(pTHX_1)
1740 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1741#define PERL_ARGS_ASSERT_MAGIC_GETTAINT \
1742 assert(sv); assert(mg)
bfce84ec
AL		 1743
1744PERL_CALLCONV int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg)
1745 __attribute__nonnull__(pTHX_1)
1746 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1747#define PERL_ARGS_ASSERT_MAGIC_GETUVAR \
1748 assert(sv); assert(mg)
bfce84ec
AL		 1749
1750PERL_CALLCONV int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg)
1751 __attribute__nonnull__(pTHX_1)
1752 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1753#define PERL_ARGS_ASSERT_MAGIC_GETVEC \
1754 assert(sv); assert(mg)
bfce84ec
AL		 1755
1756PERL_CALLCONV U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg)
1757 __attribute__nonnull__(pTHX_1)
1758 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1759#define PERL_ARGS_ASSERT_MAGIC_LEN \
1760 assert(sv); assert(mg)
bfce84ec 1761
4048f010 1762PERL_CALLCONV int Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key)
bfce84ec
AL		 1763 __attribute__nonnull__(pTHX_1)
1764 __attribute__nonnull__(pTHX_2)
1765 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1766#define PERL_ARGS_ASSERT_MAGIC_NEXTPACK \
1767 assert(sv); assert(mg); assert(key)
bfce84ec
AL		 1768
1769PERL_CALLCONV U32 Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg)
1770 __attribute__nonnull__(pTHX_1)
1771 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1772#define PERL_ARGS_ASSERT_MAGIC_REGDATA_CNT \
1773 assert(sv); assert(mg)
bfce84ec
AL		 1774
1775PERL_CALLCONV int Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg)
1776 __attribute__nonnull__(pTHX_1)
1777 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1778#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_GET \
1779 assert(sv); assert(mg)
bfce84ec 1780
f54cb97a 1781PERL_CALLCONV int Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL		 1782 __attribute__noreturn__
1783 __attribute__nonnull__(pTHX_1)
1784 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1785#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_SET \
1786 assert(sv); assert(mg)
bfce84ec
AL		 1787
1788PERL_CALLCONV int Perl_magic_set(pTHX_ SV* sv, MAGIC* mg)
1789 __attribute__nonnull__(pTHX_1)
1790 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1791#define PERL_ARGS_ASSERT_MAGIC_SET \
1792 assert(sv); assert(mg)
bfce84ec
AL		 1793
1794PERL_CALLCONV int Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg)
1795 __attribute__nonnull__(pTHX_1)
1796 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1797#define PERL_ARGS_ASSERT_MAGIC_SETAMAGIC \
1798 assert(sv); assert(mg)
bfce84ec
AL		 1799
1800PERL_CALLCONV int Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg)
1801 __attribute__nonnull__(pTHX_1)
1802 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1803#define PERL_ARGS_ASSERT_MAGIC_SETARYLEN \
1804 assert(sv); assert(mg)
bfce84ec
AL		 1805
1806PERL_CALLCONV int Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg)
1807 __attribute__nonnull__(pTHX_1)
1808 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1809#define PERL_ARGS_ASSERT_MAGIC_FREEARYLEN_P \
1810 assert(sv); assert(mg)
bfce84ec 1811
488344d2 1812PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL		 1813 __attribute__nonnull__(pTHX_1)
1814 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1815#define PERL_ARGS_ASSERT_MAGIC_SETDBLINE \
1816 assert(sv); assert(mg)
bfce84ec 1817
488344d2 1818PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL		 1819 __attribute__nonnull__(pTHX_1)
1820 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1821#define PERL_ARGS_ASSERT_MAGIC_SETDEFELEM \
1822 assert(sv); assert(mg)
bfce84ec 1823
488344d2 1824PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL		 1825 __attribute__nonnull__(pTHX_1)
1826 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1827#define PERL_ARGS_ASSERT_MAGIC_SETENV \
1828 assert(sv); assert(mg)
bfce84ec 1829
b3ca2e83
NC		 1830PERL_CALLCONV int Perl_magic_sethint(pTHX_ SV* sv, MAGIC* mg)
1831 __attribute__nonnull__(pTHX_1)
1832 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1833#define PERL_ARGS_ASSERT_MAGIC_SETHINT \
1834 assert(sv); assert(mg)
b3ca2e83 1835
bfce84ec
AL		 1836PERL_CALLCONV int Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg)
1837 __attribute__nonnull__(pTHX_1)
1838 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1839#define PERL_ARGS_ASSERT_MAGIC_SETISA \
1840 assert(sv); assert(mg)
bfce84ec 1841
bfce84ec
AL		 1842PERL_CALLCONV int Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg)
1843 __attribute__nonnull__(pTHX_1)
1844 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1845#define PERL_ARGS_ASSERT_MAGIC_SETMGLOB \
1846 assert(sv); assert(mg)
bfce84ec
AL		 1847
1848PERL_CALLCONV int Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg)
1849 __attribute__nonnull__(pTHX_1)
1850 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1851#define PERL_ARGS_ASSERT_MAGIC_SETNKEYS \
1852 assert(sv); assert(mg)
bfce84ec
AL		 1853
1854PERL_CALLCONV int Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg)
1855 __attribute__nonnull__(pTHX_1)
1856 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1857#define PERL_ARGS_ASSERT_MAGIC_SETPACK \
1858 assert(sv); assert(mg)
bfce84ec
AL		 1859
1860PERL_CALLCONV int Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg)
1861 __attribute__nonnull__(pTHX_1)
1862 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1863#define PERL_ARGS_ASSERT_MAGIC_SETPOS \
1864 assert(sv); assert(mg)
bfce84ec
AL		 1865
1866PERL_CALLCONV int Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg)
1867 __attribute__nonnull__(pTHX_1)
1868 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1869#define PERL_ARGS_ASSERT_MAGIC_SETREGEXP \
1870 assert(sv); assert(mg)
bfce84ec
AL		 1871
1872PERL_CALLCONV int Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg)
bfce84ec 1873 __attribute__nonnull__(pTHX_2);
7918f24d 1874#define PERL_ARGS_ASSERT_MAGIC_SETSIG \
38a124f0 1875 assert(mg)
bfce84ec
AL		 1876
1877PERL_CALLCONV int Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg)
1878 __attribute__nonnull__(pTHX_1)
1879 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1880#define PERL_ARGS_ASSERT_MAGIC_SETSUBSTR \
1881 assert(sv); assert(mg)
bfce84ec
AL		 1882
1883PERL_CALLCONV int Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg)
1884 __attribute__nonnull__(pTHX_1)
1885 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1886#define PERL_ARGS_ASSERT_MAGIC_SETTAINT \
1887 assert(sv); assert(mg)
bfce84ec
AL		 1888
1889PERL_CALLCONV int Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg)
1890 __attribute__nonnull__(pTHX_1)
1891 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1892#define PERL_ARGS_ASSERT_MAGIC_SETUVAR \
1893 assert(sv); assert(mg)
bfce84ec
AL		 1894
1895PERL_CALLCONV int Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg)
1896 __attribute__nonnull__(pTHX_1)
1897 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1898#define PERL_ARGS_ASSERT_MAGIC_SETVEC \
1899 assert(sv); assert(mg)
bfce84ec
AL		 1900
1901PERL_CALLCONV int Perl_magic_setutf8(pTHX_ SV* sv, MAGIC* mg)
1902 __attribute__nonnull__(pTHX_1)
1903 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1904#define PERL_ARGS_ASSERT_MAGIC_SETUTF8 \
1905 assert(sv); assert(mg)
bfce84ec
AL		 1906
1907PERL_CALLCONV int Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg)
1908 __attribute__nonnull__(pTHX_1)
1909 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1910#define PERL_ARGS_ASSERT_MAGIC_SET_ALL_ENV \
1911 assert(sv); assert(mg)
bfce84ec
AL		 1912
1913PERL_CALLCONV U32 Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg)
1914 __attribute__nonnull__(pTHX_1)
1915 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1916#define PERL_ARGS_ASSERT_MAGIC_SIZEPACK \
1917 assert(sv); assert(mg)
bfce84ec
AL		 1918
1919PERL_CALLCONV int Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg)
1920 __attribute__nonnull__(pTHX_1)
1921 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1922#define PERL_ARGS_ASSERT_MAGIC_WIPEPACK \
1923 assert(sv); assert(mg)
bfce84ec 1924
046b0c7d 1925PERL_CALLCONV SV* Perl_magic_methcall(pTHX_ SV *sv, const MAGIC *mg, const char *meth, U32 flags, U32 argc, ...)
efaf3674
DM		 1926 __attribute__nonnull__(pTHX_1)
1927 __attribute__nonnull__(pTHX_2)
1928 __attribute__nonnull__(pTHX_3);
1929#define PERL_ARGS_ASSERT_MAGIC_METHCALL \
1930 assert(sv); assert(mg); assert(meth)
1931
1d7c1841 1932PERL_CALLCONV void Perl_markstack_grow(pTHX);
864dbfa3 1933#if defined(USE_LOCALE_COLLATE)
aa924a5a
SH		 1934PERL_CALLCONV int Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg)
1935 __attribute__nonnull__(pTHX_1)
1936 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1937#define PERL_ARGS_ASSERT_MAGIC_SETCOLLXFRM \
1938 assert(sv); assert(mg)
aa924a5a
SH		 1939
1940PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen)
1941 __attribute__nonnull__(pTHX_1)
1942 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1943#define PERL_ARGS_ASSERT_MEM_COLLXFRM \
1944 assert(s); assert(xlen)
aa924a5a 1945
0cb96387 1946#endif
894356b3 1947PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...)
aec46f14
AL		 1948 __attribute__format__(__printf__,pTHX_1,pTHX_2)
1949 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1950#define PERL_ARGS_ASSERT_MESS \
1951 assert(pat)
aec46f14 1952
c5df3096
Z		 1953PERL_CALLCONV SV* Perl_mess_sv(pTHX_ SV* basemsg, bool consume)
1954 __attribute__nonnull__(pTHX_1);
1955#define PERL_ARGS_ASSERT_MESS_SV \
1956 assert(basemsg)
1957
aec46f14
AL		 1958PERL_CALLCONV SV* Perl_vmess(pTHX_ const char* pat, va_list* args)
1959 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1960#define PERL_ARGS_ASSERT_VMESS \
1961 assert(pat)
f54cb97a 1962
aa924a5a
SH		 1963PERL_CALLCONV void Perl_qerror(pTHX_ SV* err)
1964 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1965#define PERL_ARGS_ASSERT_QERROR \
1966 assert(err)
aa924a5a
SH		 1967
1968PERL_CALLCONV void Perl_sortsv(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp)
52657f30 1969 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1970#define PERL_ARGS_ASSERT_SORTSV \
1971 assert(cmp)
aa924a5a 1972
7b9ef140 1973PERL_CALLCONV void Perl_sortsv_flags(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags)
52657f30 1974 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 1975#define PERL_ARGS_ASSERT_SORTSV_FLAGS \
1976 assert(cmp)
7b9ef140 1977
9a957fbc
AL		 1978PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv)
1979 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 1980#define PERL_ARGS_ASSERT_MG_CLEAR \
1981 assert(sv)
9a957fbc 1982
4048f010 1983PERL_CALLCONV int Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen)
9a957fbc
AL		 1984 __attribute__nonnull__(pTHX_1)
1985 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1986#define PERL_ARGS_ASSERT_MG_COPY \
1987 assert(sv); assert(nsv)
9a957fbc 1988
af7df257 1989PERL_CALLCONV void Perl_mg_localize(pTHX_ SV* sv, SV* nsv, bool setmagic)
9a957fbc
AL		 1990 __attribute__nonnull__(pTHX_1)
1991 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 1992#define PERL_ARGS_ASSERT_MG_LOCALIZE \
1993 assert(sv); assert(nsv)
9a957fbc 1994
255164ba
DM		 1995PERL_CALLCONV MAGIC* Perl_mg_find(pTHX_ const SV* sv, int type)
1996 __attribute__warn_unused_result__;
1997
9a957fbc
AL		 1998PERL_CALLCONV int Perl_mg_free(pTHX_ SV* sv)
1999 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2000#define PERL_ARGS_ASSERT_MG_FREE \
2001 assert(sv)
9a957fbc
AL		 2002
2003PERL_CALLCONV int Perl_mg_get(pTHX_ SV* sv)
2004 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2005#define PERL_ARGS_ASSERT_MG_GET \
2006 assert(sv)
9a957fbc
AL		 2007
2008PERL_CALLCONV U32 Perl_mg_length(pTHX_ SV* sv)
2009 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2010#define PERL_ARGS_ASSERT_MG_LENGTH \
2011 assert(sv)
9a957fbc
AL		 2012
2013PERL_CALLCONV void Perl_mg_magical(pTHX_ SV* sv)
2014 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2015#define PERL_ARGS_ASSERT_MG_MAGICAL \
2016 assert(sv)
9a957fbc
AL		 2017
2018PERL_CALLCONV int Perl_mg_set(pTHX_ SV* sv)
2019 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2020#define PERL_ARGS_ASSERT_MG_SET \
2021 assert(sv)
9a957fbc
AL		 2022
2023PERL_CALLCONV I32 Perl_mg_size(pTHX_ SV* sv)
2024 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2025#define PERL_ARGS_ASSERT_MG_SIZE \
2026 assert(sv)
9a957fbc 2027
9f6cc744 2028PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *ptm)
9a957fbc 2029 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2030#define PERL_ARGS_ASSERT_MINI_MKTIME \
2031 assert(ptm)
9a957fbc 2032
1d7c1841 2033PERL_CALLCONV OP* Perl_mod(pTHX_ OP* o, I32 type);
a79b25b7 2034PERL_CALLCONV int Perl_mode_from_discipline(pTHX_ const char* s, STRLEN len);
c7030b81 2035PERL_CALLCONV const char* Perl_moreswitches(pTHX_ const char* s)
bfce84ec 2036 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2037#define PERL_ARGS_ASSERT_MORESWITCHES \
2038 assert(s)
bfce84ec 2039
4373e329 2040PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s)
abb2c242 2041 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2042#define PERL_ARGS_ASSERT_MY_ATOF \
2043 assert(s)
f54cb97a 2044
2253333f 2045#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
4373e329 2046PERL_CALLCONV char* Perl_my_bcopy(const char* from, char* to, I32 len)
abb2c242
JH		 2047 __attribute__nonnull__(1)
2048 __attribute__nonnull__(2);
7918f24d
NC		 2049#define PERL_ARGS_ASSERT_MY_BCOPY \
2050 assert(from); assert(to)
f54cb97a 2051
5f05dabc 2052#endif
a0d0e21e 2053#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
4373e329 2054PERL_CALLCONV char* Perl_my_bzero(char* loc, I32 len)
abb2c242 2055 __attribute__nonnull__(1);
7918f24d
NC		 2056#define PERL_ARGS_ASSERT_MY_BZERO \
2057 assert(loc)
f54cb97a 2058
864dbfa3 2059#endif
f54cb97a 2060PERL_CALLCONV void Perl_my_exit(pTHX_ U32 status)
abb2c242 2061 __attribute__noreturn__;
f54cb97a
AL		 2062
2063PERL_CALLCONV void Perl_my_failure_exit(pTHX)
abb2c242 2064 __attribute__noreturn__;
f54cb97a 2065
1d7c1841 2066PERL_CALLCONV I32 Perl_my_fflush_all(pTHX);
52e18b1f
GS		 2067PERL_CALLCONV Pid_t Perl_my_fork(void);
2068PERL_CALLCONV void Perl_atfork_lock(void);
2069PERL_CALLCONV void Perl_atfork_unlock(void);
1d7c1841 2070PERL_CALLCONV I32 Perl_my_lstat(pTHX);
5f05dabc 2071#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
4373e329 2072PERL_CALLCONV I32 Perl_my_memcmp(const char* s1, const char* s2, I32 len)
abb2c242
JH		 2073 __attribute__pure__
2074 __attribute__nonnull__(1)
2075 __attribute__nonnull__(2);
7918f24d
NC		 2076#define PERL_ARGS_ASSERT_MY_MEMCMP \
2077 assert(s1); assert(s2)
f54cb97a 2078
a0d0e21e 2079#endif
fc36a67e 2080#if !defined(HAS_MEMSET)
4373e329 2081PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len)
abb2c242 2082 __attribute__nonnull__(1);
7918f24d
NC		 2083#define PERL_ARGS_ASSERT_MY_MEMSET \
2084 assert(loc)
f54cb97a 2085
864dbfa3 2086#endif
1d7c1841 2087PERL_CALLCONV I32 Perl_my_pclose(pTHX_ PerlIO* ptr);
bfce84ec
AL		 2088PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ const char* cmd, const char* mode)
2089 __attribute__nonnull__(pTHX_1)
2090 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2091#define PERL_ARGS_ASSERT_MY_POPEN \
2092 assert(cmd); assert(mode)
bfce84ec 2093
c9289b7b 2094PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ const char* mode, int n, SV ** args)
bfce84ec
AL		 2095 __attribute__nonnull__(pTHX_1)
2096 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2097#define PERL_ARGS_ASSERT_MY_POPEN_LIST \
2098 assert(mode); assert(args)
bfce84ec 2099
e1ec3a88 2100PERL_CALLCONV void Perl_my_setenv(pTHX_ const char* nam, const char* val);
1d7c1841 2101PERL_CALLCONV I32 Perl_my_stat(pTHX);
bfce84ec
AL		 2102PERL_CALLCONV char * Perl_my_strftime(pTHX_ const char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst)
2103 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2104#define PERL_ARGS_ASSERT_MY_STRFTIME \
2105 assert(fmt)
bfce84ec 2106
864dbfa3 2107#if defined(MYSWAP)
4373e329 2108PERL_CALLCONV short Perl_my_swap(pTHX_ short s)
abb2c242
JH		 2109 __attribute__malloc__
2110 __attribute__warn_unused_result__
2111 __attribute__pure__;
f54cb97a 2112
4373e329 2113PERL_CALLCONV long Perl_my_htonl(pTHX_ long l)
abb2c242
JH		 2114 __attribute__malloc__
2115 __attribute__warn_unused_result__
2116 __attribute__pure__;
f54cb97a 2117
4373e329 2118PERL_CALLCONV long Perl_my_ntohl(pTHX_ long l)
abb2c242
JH		 2119 __attribute__malloc__
2120 __attribute__warn_unused_result__
2121 __attribute__pure__;
f54cb97a 2122
0cb96387 2123#endif
1d7c1841 2124PERL_CALLCONV void Perl_my_unexec(pTHX);
f54cb97a 2125PERL_CALLCONV OP* Perl_newANONLIST(pTHX_ OP* o)
abb2c242
JH		 2126 __attribute__malloc__
2127 __attribute__warn_unused_result__;
f54cb97a
AL		 2128
2129PERL_CALLCONV OP* Perl_newANONHASH(pTHX_ OP* o)
abb2c242
JH		 2130 __attribute__malloc__
2131 __attribute__warn_unused_result__;
f54cb97a 2132
1d7c1841 2133PERL_CALLCONV OP* Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
f54cb97a 2134PERL_CALLCONV OP* Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right)
abb2c242
JH		 2135 __attribute__malloc__
2136 __attribute__warn_unused_result__;
f54cb97a 2137
aec46f14 2138PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* falseop)
abb2c242 2139 __attribute__malloc__
aec46f14
AL		 2140 __attribute__warn_unused_result__
2141 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2142#define PERL_ARGS_ASSERT_NEWCONDOP \
2143 assert(first)
aec46f14 2144
99ab892b 2145PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv);
eb8433b7
NC		 2146#ifdef PERL_MAD
2147PERL_CALLCONV OP* Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
2148#else
1d7c1841 2149PERL_CALLCONV void Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
eb8433b7 2150#endif
aa924a5a 2151PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sv, OP* expr, OP* block, OP* cont)
abb2c242 2152 __attribute__malloc__
aa924a5a
SH		 2153 __attribute__warn_unused_result__
2154 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 2155#define PERL_ARGS_ASSERT_NEWFOROP \
2156 assert(expr)
f54cb97a 2157
0d863452
RH		 2158PERL_CALLCONV OP* Perl_newGIVENOP(pTHX_ OP* cond, OP* block, PADOFFSET defsv_off)
2159 __attribute__malloc__
2160 __attribute__warn_unused_result__
2161 __attribute__nonnull__(pTHX_1)
2162 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2163#define PERL_ARGS_ASSERT_NEWGIVENOP \
2164 assert(cond); assert(block)
0d863452 2165
4048f010 2166PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP *first, OP *other)
abb2c242 2167 __attribute__malloc__
aa924a5a
SH		 2168 __attribute__warn_unused_result__
2169 __attribute__nonnull__(pTHX_3)
2170 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 2171#define PERL_ARGS_ASSERT_NEWLOGOP \
2172 assert(first); assert(other)
f54cb97a
AL		 2173
2174PERL_CALLCONV OP* Perl_newLOOPEX(pTHX_ I32 type, OP* label)
abb2c242 2175 __attribute__malloc__
aa924a5a
SH		 2176 __attribute__warn_unused_result__
2177 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2178#define PERL_ARGS_ASSERT_NEWLOOPEX \
2179 assert(label)
f54cb97a
AL		 2180
2181PERL_CALLCONV OP* Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block)
abb2c242
JH		 2182 __attribute__malloc__
2183 __attribute__warn_unused_result__;
f54cb97a 2184
4373e329 2185PERL_CALLCONV OP* Perl_newNULLLIST(pTHX)
abb2c242
JH		 2186 __attribute__malloc__
2187 __attribute__warn_unused_result__;
f54cb97a
AL		 2188
2189PERL_CALLCONV OP* Perl_newOP(pTHX_ I32 optype, I32 flags)
abb2c242
JH		 2190 __attribute__malloc__
2191 __attribute__warn_unused_result__;
f54cb97a
AL		 2192
2193PERL_CALLCONV void Perl_newPROG(pTHX_ OP* o)
abb2c242 2194 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2195#define PERL_ARGS_ASSERT_NEWPROG \
2196 assert(o)
f54cb97a
AL		 2197
2198PERL_CALLCONV OP* Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right)
abb2c242 2199 __attribute__malloc__
aa924a5a
SH		 2200 __attribute__warn_unused_result__
2201 __attribute__nonnull__(pTHX_2)
2202 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2203#define PERL_ARGS_ASSERT_NEWRANGE \
2204 assert(left); assert(right)
f54cb97a
AL		 2205
2206PERL_CALLCONV OP* Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop)
abb2c242
JH		 2207 __attribute__malloc__
2208 __attribute__warn_unused_result__;
f54cb97a
AL		 2209
2210PERL_CALLCONV OP* Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o)
abb2c242
JH		 2211 __attribute__malloc__
2212 __attribute__warn_unused_result__;
f54cb97a 2213
1d7c1841 2214PERL_CALLCONV CV* Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
77004dee
NC		 2215PERL_CALLCONV CV * Perl_newXS_flags(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags)
2216 __attribute__nonnull__(pTHX_2)
2217 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2218#define PERL_ARGS_ASSERT_NEWXS_FLAGS \
2219 assert(subaddr); assert(filename)
77004dee 2220
4048f010 2221PERL_CALLCONV CV* Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
9a957fbc 2222 __attribute__nonnull__(pTHX_2)
abb2c242 2223 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2224#define PERL_ARGS_ASSERT_NEWXS \
2225 assert(subaddr); assert(filename)
f54cb97a 2226
ac572bf4 2227/* PERL_CALLCONV AV* Perl_newAV(pTHX)
ac572bf4 2228 __attribute__warn_unused_result__; */
f54cb97a 2229
4373e329 2230PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o)
abb2c242
JH		 2231 __attribute__malloc__
2232 __attribute__warn_unused_result__
2233 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2234#define PERL_ARGS_ASSERT_NEWAVREF \
2235 assert(o)
f54cb97a
AL		 2236
2237PERL_CALLCONV OP* Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
abb2c242
JH		 2238 __attribute__malloc__
2239 __attribute__warn_unused_result__;
f54cb97a
AL		 2240
2241PERL_CALLCONV OP* Perl_newCVREF(pTHX_ I32 flags, OP* o)
abb2c242
JH		 2242 __attribute__malloc__
2243 __attribute__warn_unused_result__;
f54cb97a
AL		 2244
2245PERL_CALLCONV OP* Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv)
abb2c242 2246 __attribute__malloc__
2d03de9c
AL		 2247 __attribute__warn_unused_result__
2248 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2249#define PERL_ARGS_ASSERT_NEWGVOP \
2250 assert(gv)
f54cb97a
AL		 2251
2252PERL_CALLCONV GV* Perl_newGVgen(pTHX_ const char* pack)
abb2c242 2253 __attribute__malloc__
aa924a5a
SH		 2254 __attribute__warn_unused_result__
2255 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2256#define PERL_ARGS_ASSERT_NEWGVGEN \
2257 assert(pack)
f54cb97a
AL		 2258
2259PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o)
abb2c242
JH		 2260 __attribute__malloc__
2261 __attribute__warn_unused_result__;
f54cb97a 2262
4373e329 2263PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o)
abb2c242
JH		 2264 __attribute__malloc__
2265 __attribute__warn_unused_result__
2266 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2267#define PERL_ARGS_ASSERT_NEWHVREF \
2268 assert(o)
f54cb97a 2269
78ac7dd9 2270/* PERL_CALLCONV HV* Perl_newHV(pTHX)
78ac7dd9 2271 __attribute__warn_unused_result__; */
f54cb97a 2272
4048f010 2273PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV *hv)
abb2c242
JH		 2274 __attribute__malloc__
2275 __attribute__warn_unused_result__;
f54cb97a 2276
85dca89a 2277/* PERL_CALLCONV IO* Perl_newIO(pTHX)
abb2c242 2278 __attribute__malloc__
85dca89a 2279 __attribute__warn_unused_result__; */
f54cb97a
AL		 2280
2281PERL_CALLCONV OP* Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
abb2c242
JH		 2282 __attribute__malloc__
2283 __attribute__warn_unused_result__;
f54cb97a 2284
392d04bb 2285#ifdef USE_ITHREADS
f54cb97a 2286PERL_CALLCONV OP* Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv)
abb2c242 2287 __attribute__malloc__
58182927
NC		 2288 __attribute__warn_unused_result__
2289 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2290#define PERL_ARGS_ASSERT_NEWPADOP \
2291 assert(sv)
f54cb97a 2292
392d04bb 2293#endif
f54cb97a 2294PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags)
abb2c242
JH		 2295 __attribute__malloc__
2296 __attribute__warn_unused_result__;
f54cb97a
AL		 2297
2298PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv)
abb2c242
JH		 2299 __attribute__malloc__
2300 __attribute__warn_unused_result__;
f54cb97a 2301
23f13727 2302PERL_CALLCONV SV* Perl_newRV(pTHX_ SV *const sv)
abb2c242 2303 __attribute__malloc__
66a1b24b
AL		 2304 __attribute__warn_unused_result__
2305 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2306#define PERL_ARGS_ASSERT_NEWRV \
2307 assert(sv)
f54cb97a 2308
23f13727 2309PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *const sv)
abb2c242
JH		 2310 __attribute__malloc__
2311 __attribute__warn_unused_result__
2312 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2313#define PERL_ARGS_ASSERT_NEWRV_NOINC \
2314 assert(sv)
f54cb97a 2315
2b021c53 2316PERL_CALLCONV SV* Perl_newSV(pTHX_ const STRLEN len)
abb2c242
JH		 2317 __attribute__malloc__
2318 __attribute__warn_unused_result__;
f54cb97a 2319
4373e329 2320PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o)
abb2c242
JH		 2321 __attribute__malloc__
2322 __attribute__warn_unused_result__
2323 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2324#define PERL_ARGS_ASSERT_NEWSVREF \
2325 assert(o)
f54cb97a 2326
4373e329 2327PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv)
abb2c242
JH		 2328 __attribute__malloc__
2329 __attribute__warn_unused_result__
2330 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2331#define PERL_ARGS_ASSERT_NEWSVOP \
2332 assert(sv)
f54cb97a 2333
23f13727 2334PERL_CALLCONV SV* Perl_newSViv(pTHX_ const IV i)
abb2c242
JH		 2335 __attribute__malloc__
2336 __attribute__warn_unused_result__;
f54cb97a 2337
23f13727 2338PERL_CALLCONV SV* Perl_newSVuv(pTHX_ const UV u)
abb2c242
JH		 2339 __attribute__malloc__
2340 __attribute__warn_unused_result__;
f54cb97a 2341
23f13727 2342PERL_CALLCONV SV* Perl_newSVnv(pTHX_ const NV n)
abb2c242
JH		 2343 __attribute__malloc__
2344 __attribute__warn_unused_result__;
f54cb97a 2345
23f13727 2346PERL_CALLCONV SV* Perl_newSVpv(pTHX_ const char *const s, const STRLEN len)
abb2c242
JH		 2347 __attribute__malloc__
2348 __attribute__warn_unused_result__;
f54cb97a 2349
23f13727 2350PERL_CALLCONV SV* Perl_newSVpvn(pTHX_ const char *const s, const STRLEN len)
abb2c242
JH		 2351 __attribute__malloc__
2352 __attribute__warn_unused_result__;
f54cb97a 2353
23f13727 2354PERL_CALLCONV SV* Perl_newSVpvn_flags(pTHX_ const char *const s, const STRLEN len, const U32 flags)
740cce10
NC		 2355 __attribute__malloc__
2356 __attribute__warn_unused_result__;
2357
23f13727 2358PERL_CALLCONV SV* Perl_newSVhek(pTHX_ const HEK *const hek)
c1b02ed8
NC		 2359 __attribute__malloc__
2360 __attribute__warn_unused_result__;
2361
f54cb97a 2362PERL_CALLCONV SV* Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
abb2c242
JH		 2363 __attribute__malloc__
2364 __attribute__warn_unused_result__;
f54cb97a 2365
23f13727 2366PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char *const pat, ...)
abb2c242
JH		 2367 __attribute__malloc__
2368 __attribute__warn_unused_result__
aec46f14
AL		 2369 __attribute__format__(__printf__,pTHX_1,pTHX_2)
2370 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2371#define PERL_ARGS_ASSERT_NEWSVPVF \
2372 assert(pat)
aec46f14 2373
23f13727 2374PERL_CALLCONV SV* Perl_vnewSVpvf(pTHX_ const char *const pat, va_list *const args)
aec46f14
AL		 2375 __attribute__malloc__
2376 __attribute__warn_unused_result__
2377 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2378#define PERL_ARGS_ASSERT_VNEWSVPVF \
2379 assert(pat)
f54cb97a 2380
12964ddd 2381PERL_CALLCONV SV* Perl_newSVrv(pTHX_ SV *const rv, const char *const classname)
1b6737cc 2382 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2383#define PERL_ARGS_ASSERT_NEWSVRV \
2384 assert(rv)
f54cb97a 2385
23f13727 2386PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV *const old)
abb2c242
JH		 2387 __attribute__malloc__
2388 __attribute__warn_unused_result__;
f54cb97a 2389
fe9845cc 2390PERL_CALLCONV SV* Perl_newSV_type(pTHX_ const svtype type)
b9f83d2f
NC		 2391 __attribute__malloc__
2392 __attribute__warn_unused_result__;
2393
f54cb97a 2394PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first)
abb2c242
JH		 2395 __attribute__malloc__
2396 __attribute__warn_unused_result__;
f54cb97a 2397
0d863452
RH		 2398PERL_CALLCONV OP* Perl_newWHENOP(pTHX_ OP* cond, OP* block)
2399 __attribute__malloc__
2400 __attribute__warn_unused_result__
2401 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2402#define PERL_ARGS_ASSERT_NEWWHENOP \
2403 assert(block)
0d863452 2404
f54cb97a 2405PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont, I32 has_my)
abb2c242
JH		 2406 __attribute__malloc__
2407 __attribute__warn_unused_result__;
f54cb97a
AL		 2408
2409PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems)
abb2c242
JH		 2410 __attribute__malloc__
2411 __attribute__warn_unused_result__;
f54cb97a 2412
4048f010 2413PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *s, const char *const e, SV *sv)
abb2c242 2414 __attribute__nonnull__(pTHX_1)
65b06e02
DM		 2415 __attribute__nonnull__(pTHX_2)
2416 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2417#define PERL_ARGS_ASSERT_SCAN_VSTRING \
2418 assert(s); assert(e); assert(sv)
f54cb97a 2419
9f6cc744 2420PERL_CALLCONV const char* Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv)
abb2c242
JH		 2421 __attribute__nonnull__(pTHX_1)
2422 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2423#define PERL_ARGS_ASSERT_SCAN_VERSION \
2424 assert(s); assert(rv)
f54cb97a 2425
5747a2f6 2426PERL_CALLCONV const char* Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha)
91152fc1
DG		 2427 __attribute__nonnull__(pTHX_1);
2428#define PERL_ARGS_ASSERT_PRESCAN_VERSION \
2429 assert(s)
2430
2d03de9c
AL		 2431PERL_CALLCONV SV* Perl_new_version(pTHX_ SV *ver)
2432 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2433#define PERL_ARGS_ASSERT_NEW_VERSION \
2434 assert(ver)
2d03de9c 2435
ac0e6a2f 2436PERL_CALLCONV SV* Perl_upg_version(pTHX_ SV *ver, bool qv)
2d03de9c 2437 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2438#define PERL_ARGS_ASSERT_UPG_VERSION \
2439 assert(ver)
2d03de9c 2440
e0218a61
JP		 2441PERL_CALLCONV bool Perl_vverify(pTHX_ SV *vs)
2442 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2443#define PERL_ARGS_ASSERT_VVERIFY \
2444 assert(vs)
e0218a61 2445
2d03de9c
AL		 2446PERL_CALLCONV SV* Perl_vnumify(pTHX_ SV *vs)
2447 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2448#define PERL_ARGS_ASSERT_VNUMIFY \
2449 assert(vs)
2d03de9c
AL		 2450
2451PERL_CALLCONV SV* Perl_vnormal(pTHX_ SV *vs)
2452 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2453#define PERL_ARGS_ASSERT_VNORMAL \
2454 assert(vs)
2d03de9c
AL		 2455
2456PERL_CALLCONV SV* Perl_vstringify(pTHX_ SV *vs)
2457 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2458#define PERL_ARGS_ASSERT_VSTRINGIFY \
2459 assert(vs)
2d03de9c 2460
9f6cc744 2461PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lhv, SV *rhv)
abb2c242
JH		 2462 __attribute__nonnull__(pTHX_1)
2463 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2464#define PERL_ARGS_ASSERT_VCMP \
2465 assert(lhv); assert(rhv)
f54cb97a 2466
2d03de9c
AL		 2467PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv)
2468 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2469#define PERL_ARGS_ASSERT_NEXTARGV \
2470 assert(gv)
2d03de9c 2471
04c9e624 2472PERL_CALLCONV char* Perl_ninstr(const char* big, const char* bigend, const char* little, const char* lend)
2d03de9c 2473 __attribute__pure__
04c9e624
VP		 2474 __attribute__nonnull__(1)
2475 __attribute__nonnull__(2)
2476 __attribute__nonnull__(3)
2477 __attribute__nonnull__(4);
7918f24d
NC		 2478#define PERL_ARGS_ASSERT_NINSTR \
2479 assert(big); assert(bigend); assert(little); assert(lend)
f54cb97a 2480
6472dca1 2481PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg);
eb8433b7
NC		 2482#ifdef PERL_MAD
2483PERL_CALLCONV OP* Perl_package(pTHX_ OP* o)
2484 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2485#define PERL_ARGS_ASSERT_PACKAGE \
2486 assert(o)
eb8433b7
NC		 2487
2488#else
2d03de9c
AL		 2489PERL_CALLCONV void Perl_package(pTHX_ OP* o)
2490 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2491#define PERL_ARGS_ASSERT_PACKAGE \
2492 assert(o)
f54cb97a 2493
eb8433b7 2494#endif
6fa4d285
DG		 2495PERL_CALLCONV void Perl_package_version(pTHX_ OP* v)
2496 __attribute__nonnull__(pTHX_1);
2497#define PERL_ARGS_ASSERT_PACKAGE_VERSION \
2498 assert(v)
2499
1d7c1841 2500PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
d6447115 2501PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
abb2c242 2502 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2503#define PERL_ARGS_ASSERT_ALLOCMY \
2504 assert(name)
f54cb97a 2505
f8f98e0a 2506PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ const char* name, STRLEN len, U32 flags)
255164ba 2507 __attribute__warn_unused_result__
abb2c242 2508 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2509#define PERL_ARGS_ASSERT_PAD_FINDMY \
2510 assert(name)
f54cb97a 2511
e1f795dc 2512PERL_CALLCONV PADOFFSET Perl_find_rundefsvoffset(pTHX);
4373e329 2513PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o)
1df70142 2514 __attribute__warn_unused_result__
abb2c242 2515 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2516#define PERL_ARGS_ASSERT_OOPSAV \
2517 assert(o)
f54cb97a 2518
4373e329 2519PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o)
1df70142 2520 __attribute__warn_unused_result__
abb2c242 2521 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2522#define PERL_ARGS_ASSERT_OOPSHV \
2523 assert(o)
f54cb97a 2524
dd2155a4 2525PERL_CALLCONV void Perl_pad_leavemy(pTHX);
c3507693 2526#ifdef DEBUGGING
1d7c1841 2527PERL_CALLCONV SV* Perl_pad_sv(pTHX_ PADOFFSET po);
c3507693 2528#endif
1d7c1841 2529PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po);
efd0b058 2530#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
82af08ae
NC		 2531STATIC void S_pad_reset(pTHX);
2532#endif
dd2155a4 2533PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust);
1d7c1841 2534PERL_CALLCONV void Perl_peep(pTHX_ OP* o);
4048f010 2535PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV *tmpglob, IO *io)
2d03de9c
AL		 2536 __attribute__nonnull__(pTHX_1)
2537 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2538#define PERL_ARGS_ASSERT_START_GLOB \
2539 assert(tmpglob); assert(io)
2d03de9c 2540
59bd0823 2541#if defined(USE_REENTRANT_API)
10bc17b6 2542PERL_CALLCONV void Perl_reentrant_size(pTHX);
59bd0823 2543PERL_CALLCONV void Perl_reentrant_init(pTHX);
10bc17b6 2544PERL_CALLCONV void Perl_reentrant_free(pTHX);
4048f010 2545PERL_CALLCONV void* Perl_reentrant_retry(const char *f, ...)
fb9bf107 2546 __attribute__nonnull__(1);
7918f24d
NC		 2547#define PERL_ARGS_ASSERT_REENTRANT_RETRY \
2548 assert(f)
fb9bf107 2549
59bd0823 2550#endif
1d7c1841 2551PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
4373e329 2552PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv)
abb2c242
JH		 2553 __attribute__nonnull__(pTHX_1)
2554 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2555#define PERL_ARGS_ASSERT_CALL_ARGV \
2556 assert(sub_name); assert(argv)
f54cb97a 2557
4373e329 2558PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags)
abb2c242 2559 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2560#define PERL_ARGS_ASSERT_CALL_METHOD \
2561 assert(methname)
f54cb97a 2562
4373e329 2563PERL_CALLCONV I32 Perl_call_pv(pTHX_ const char* sub_name, I32 flags)
abb2c242 2564 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2565#define PERL_ARGS_ASSERT_CALL_PV \
2566 assert(sub_name)
f54cb97a 2567
8c54174d 2568PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, VOL I32 flags)
aec46f14 2569 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2570#define PERL_ARGS_ASSERT_CALL_SV \
2571 assert(sv)
aec46f14 2572
ce08f86c 2573PERL_CALLCONV void Perl_despatch_signals(pTHX);
e4c5ccf3
RH		 2574PERL_CALLCONV OP * Perl_doref(pTHX_ OP *o, I32 type, bool set_op_ref)
2575 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2576#define PERL_ARGS_ASSERT_DOREF \
2577 assert(o)
e4c5ccf3 2578
4373e329 2579PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error)
abb2c242 2580 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2581#define PERL_ARGS_ASSERT_EVAL_PV \
2582 assert(p)
f54cb97a 2583
4373e329 2584PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags)
abb2c242 2585 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2586#define PERL_ARGS_ASSERT_EVAL_SV \
2587 assert(sv)
f54cb97a 2588
64ace3f8 2589PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char *name, I32 flags)
abb2c242 2590 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2591#define PERL_ARGS_ASSERT_GET_SV \
2592 assert(name)
f54cb97a 2593
cbfd0a87 2594PERL_CALLCONV AV* Perl_get_av(pTHX_ const char *name, I32 flags)
255164ba 2595 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2596#define PERL_ARGS_ASSERT_GET_AV \
2597 assert(name)
255164ba 2598
6673a63c 2599PERL_CALLCONV HV* Perl_get_hv(pTHX_ const char *name, I32 flags)
255164ba 2600 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2601#define PERL_ARGS_ASSERT_GET_HV \
2602 assert(name)
255164ba 2603
780a5241
NC		 2604PERL_CALLCONV CV* Perl_get_cv(pTHX_ const char* name, I32 flags)
2605 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2606#define PERL_ARGS_ASSERT_GET_CV \
2607 assert(name)
780a5241
NC		 2608
2609PERL_CALLCONV CV* Perl_get_cvn_flags(pTHX_ const char* name, STRLEN len, I32 flags)
abb2c242 2610 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2611#define PERL_ARGS_ASSERT_GET_CVN_FLAGS \
2612 assert(name)
f54cb97a 2613
1d7c1841
GS		 2614PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn);
2615PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn);
8772537c
AL		 2616PERL_CALLCONV void Perl_new_collate(pTHX_ const char* newcoll);
2617PERL_CALLCONV void Perl_new_ctype(pTHX_ const char* newctype)
abb2c242 2618 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2619#define PERL_ARGS_ASSERT_NEW_CTYPE \
2620 assert(newctype)
f54cb97a 2621
8772537c 2622PERL_CALLCONV void Perl_new_numeric(pTHX_ const char* newcoll);
1d7c1841
GS		 2623PERL_CALLCONV void Perl_set_numeric_local(pTHX);
2624PERL_CALLCONV void Perl_set_numeric_radix(pTHX);
2625PERL_CALLCONV void Perl_set_numeric_standard(pTHX);
4373e329 2626PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv)
abb2c242 2627 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2628#define PERL_ARGS_ASSERT_REQUIRE_PV \
2629 assert(pv)
f54cb97a 2630
2d03de9c
AL		 2631PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
2632 __attribute__nonnull__(pTHX_1)
2633 __attribute__nonnull__(pTHX_2)
2634 __attribute__nonnull__(pTHX_3)
2635 __attribute__nonnull__(pTHX_4)
2636 __attribute__nonnull__(pTHX_5)
2637 __attribute__nonnull__(pTHX_6);
7918f24d
NC		 2638#define PERL_ARGS_ASSERT_PACK_CAT \
2639 assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist); assert(next_in_list)
2d03de9c
AL		 2640
2641PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist)
2642 __attribute__nonnull__(pTHX_1)
2643 __attribute__nonnull__(pTHX_2)
2644 __attribute__nonnull__(pTHX_3)
2645 __attribute__nonnull__(pTHX_4)
2646 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 2647#define PERL_ARGS_ASSERT_PACKLIST \
2648 assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist)
2d03de9c 2649
ed4173ef
NC		 2650#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
2651STATIC void S_pidgone(pTHX_ Pid_t pid, int status);
e3790a26 2652#endif
4048f010 2653PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
abb2c242
JH		 2654 __attribute__nonnull__(pTHX_1)
2655 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2656#define PERL_ARGS_ASSERT_PMRUNTIME \
2657 assert(o); assert(expr)
f54cb97a 2658
efd0b058 2659#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
0d86688d 2660STATIC OP* S_pmtrans(pTHX_ OP* o, OP* expr, OP* repl)
abb2c242 2661 __attribute__nonnull__(pTHX_1)
2d03de9c
AL		 2662 __attribute__nonnull__(pTHX_2)
2663 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2664#define PERL_ARGS_ASSERT_PMTRANS \
2665 assert(o); assert(expr); assert(repl)
f54cb97a 2666
0d86688d 2667#endif
1d7c1841
GS		 2668PERL_CALLCONV void Perl_pop_scope(pTHX);
2669PERL_CALLCONV OP* Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
1d7c1841 2670PERL_CALLCONV void Perl_push_scope(pTHX);
25b0f989 2671/* PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type); */
efd0b058 2672#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
0d86688d
NC		 2673STATIC OP* S_refkids(pTHX_ OP* o, I32 type);
2674#endif
097eb12c 2675PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r)
abb2c242 2676 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2677#define PERL_ARGS_ASSERT_REGDUMP \
2678 assert(r)
f54cb97a 2679
f7819f85
A		 2680PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r)
2681 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2682#define PERL_ARGS_ASSERT_REGDUMP \
2683 assert(r)
f7819f85 2684
4048f010 2685PERL_CALLCONV SV* Perl_regclass_swash(pTHX_ const regexp *prog, const struct regnode *node, bool doinit, SV **listsvp, SV **altsvp)
32fc9b6a 2686 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2687#define PERL_ARGS_ASSERT_REGCLASS_SWASH \
2688 assert(node)
2d03de9c 2689
49d7dfbc 2690PERL_CALLCONV I32 Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
abb2c242
JH		 2691 __attribute__nonnull__(pTHX_1)
2692 __attribute__nonnull__(pTHX_2)
2693 __attribute__nonnull__(pTHX_3)
2694 __attribute__nonnull__(pTHX_4)
2695 __attribute__nonnull__(pTHX_6);
7918f24d
NC		 2696#define PERL_ARGS_ASSERT_PREGEXEC \
2697 assert(prog); assert(stringarg); assert(strend); assert(strbeg); assert(screamer)
f54cb97a 2698
84679df5 2699PERL_CALLCONV void Perl_pregfree(pTHX_ REGEXP* r);
4048f010 2700PERL_CALLCONV void Perl_pregfree2(pTHX_ REGEXP *rx)
288b8c02 2701 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2702#define PERL_ARGS_ASSERT_PREGFREE2 \
2703 assert(rx)
288b8c02 2704
f0826785
BM		 2705PERL_CALLCONV REGEXP* Perl_reg_temp_copy(pTHX_ REGEXP* ret_x, REGEXP* rx)
2706 __attribute__nonnull__(pTHX_2);
7918f24d 2707#define PERL_ARGS_ASSERT_REG_TEMP_COPY \
f0826785 2708 assert(rx)
28d8d7f4 2709
4048f010 2710PERL_CALLCONV void Perl_regfree_internal(pTHX_ REGEXP *const rx)
8074533a 2711 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2712#define PERL_ARGS_ASSERT_REGFREE_INTERNAL \
2713 assert(rx)
8074533a 2714
a3c0e9ca 2715#if defined(USE_ITHREADS)
49d7dfbc 2716PERL_CALLCONV void* Perl_regdupe_internal(pTHX_ REGEXP * const r, CLONE_PARAMS* param)
84da74a7
YO		 2717 __attribute__nonnull__(pTHX_1)
2718 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2719#define PERL_ARGS_ASSERT_REGDUPE_INTERNAL \
2720 assert(r); assert(param)
84da74a7 2721
a3c0e9ca 2722#endif
1593ad57 2723PERL_CALLCONV REGEXP* Perl_pregcomp(pTHX_ SV * const pattern, const U32 flags)
3ab4a224 2724 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2725#define PERL_ARGS_ASSERT_PREGCOMP \
2726 assert(pattern)
f54cb97a 2727
1593ad57 2728PERL_CALLCONV REGEXP* Perl_re_compile(pTHX_ SV * const pattern, U32 flags)
3ab4a224 2729 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2730#define PERL_ARGS_ASSERT_RE_COMPILE \
2731 assert(pattern)
2a5d9b1d 2732
9f61653a 2733PERL_CALLCONV char* Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV* sv, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data)
2d03de9c
AL		 2734 __attribute__nonnull__(pTHX_1)
2735 __attribute__nonnull__(pTHX_3)
2736 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 2737#define PERL_ARGS_ASSERT_RE_INTUIT_START \
2738 assert(rx); assert(strpos); assert(strend)
2d03de9c 2739
4048f010 2740PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ REGEXP *const r)
2d03de9c 2741 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2742#define PERL_ARGS_ASSERT_RE_INTUIT_STRING \
2743 assert(r)
2d03de9c 2744
4048f010 2745PERL_CALLCONV I32 Perl_regexec_flags(pTHX_ REGEXP *const rx, char *stringarg, char *strend, char *strbeg, I32 minend, SV *sv, void *data, U32 flags)
abb2c242
JH		 2746 __attribute__nonnull__(pTHX_1)
2747 __attribute__nonnull__(pTHX_2)
2748 __attribute__nonnull__(pTHX_3)
fb9bf107
NC		 2749 __attribute__nonnull__(pTHX_4)
2750 __attribute__nonnull__(pTHX_6);
7918f24d
NC		 2751#define PERL_ARGS_ASSERT_REGEXEC_FLAGS \
2752 assert(rx); assert(stringarg); assert(strend); assert(strbeg); assert(sv)
a3b680e6 2753
1df70142 2754PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p)
8074533a 2755 __attribute__warn_unused_result__;
1df70142 2756
81714fb9 2757
192b9cd1
AB		 2758PERL_CALLCONV SV* Perl_reg_named_buff(pTHX_ REGEXP * const rx, SV * const key, SV * const value, const U32 flags)
2759 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2760#define PERL_ARGS_ASSERT_REG_NAMED_BUFF \
2761 assert(rx)
192b9cd1
AB		 2762
2763PERL_CALLCONV SV* Perl_reg_named_buff_iter(pTHX_ REGEXP * const rx, const SV * const lastkey, const U32 flags)
2764 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2765#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ITER \
2766 assert(rx)
192b9cd1
AB		 2767
2768PERL_CALLCONV SV* Perl_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const namesv, const U32 flags)
93b32b6d 2769 __attribute__nonnull__(pTHX_1)
44a2ac75 2770 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2771#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FETCH \
2772 assert(rx); assert(namesv)
44a2ac75 2773
192b9cd1
AB		 2774PERL_CALLCONV bool Perl_reg_named_buff_exists(pTHX_ REGEXP * const rx, SV * const key, const U32 flags)
2775 __attribute__nonnull__(pTHX_1)
2776 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2777#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_EXISTS \
2778 assert(rx); assert(key)
192b9cd1
AB		 2779
2780PERL_CALLCONV SV* Perl_reg_named_buff_firstkey(pTHX_ REGEXP * const rx, const U32 flags)
2781 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2782#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FIRSTKEY \
2783 assert(rx)
192b9cd1
AB		 2784
2785PERL_CALLCONV SV* Perl_reg_named_buff_nextkey(pTHX_ REGEXP * const rx, const U32 flags)
2786 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2787#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_NEXTKEY \
2788 assert(rx)
192b9cd1
AB		 2789
2790PERL_CALLCONV SV* Perl_reg_named_buff_scalar(pTHX_ REGEXP * const rx, const U32 flags)
2791 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2792#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_SCALAR \
2793 assert(rx)
192b9cd1
AB		 2794
2795PERL_CALLCONV SV* Perl_reg_named_buff_all(pTHX_ REGEXP * const rx, const U32 flags)
2796 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2797#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ALL \
2798 assert(rx)
192b9cd1 2799
2fdbfb4d
AB		 2800
2801PERL_CALLCONV void Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, SV * const sv)
2802 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2803#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_FETCH \
2804 assert(rx)
2fdbfb4d
AB		 2805
2806PERL_CALLCONV void Perl_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, SV const * const value)
93b32b6d 2807 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2808#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_STORE \
2809 assert(rx)
93b32b6d 2810
2fdbfb4d
AB		 2811PERL_CALLCONV I32 Perl_reg_numbered_buff_length(pTHX_ REGEXP * const rx, const SV * const sv, const I32 paren)
2812 __attribute__nonnull__(pTHX_1)
2813 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2814#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_LENGTH \
2815 assert(rx); assert(sv)
2fdbfb4d
AB		 2816
2817
49d7dfbc 2818PERL_CALLCONV SV* Perl_reg_qr_package(pTHX_ REGEXP * const rx)
fe578d7f 2819 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2820#define PERL_ARGS_ASSERT_REG_QR_PACKAGE \
2821 assert(rx)
fe578d7f 2822
93b32b6d 2823
32fc9b6a
DM		 2824PERL_CALLCONV void Perl_regprop(pTHX_ const regexp *prog, SV* sv, const regnode* o)
2825 __attribute__nonnull__(pTHX_2)
2826 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2827#define PERL_ARGS_ASSERT_REGPROP \
2828 assert(sv); assert(o)
2d03de9c 2829
16fa5c11
VP		 2830PERL_CALLCONV void Perl_repeatcpy(char* to, const char* from, I32 len, I32 count)
2831 __attribute__nonnull__(1)
2832 __attribute__nonnull__(2);
7918f24d
NC		 2833#define PERL_ARGS_ASSERT_REPEATCPY \
2834 assert(to); assert(from)
f54cb97a 2835
04c9e624 2836PERL_CALLCONV char* Perl_rninstr(const char* big, const char* bigend, const char* little, const char* lend)
abb2c242 2837 __attribute__pure__
04c9e624
VP		 2838 __attribute__nonnull__(1)
2839 __attribute__nonnull__(2)
2840 __attribute__nonnull__(3)
2841 __attribute__nonnull__(4);
7918f24d
NC		 2842#define PERL_ARGS_ASSERT_RNINSTR \
2843 assert(big); assert(bigend); assert(little); assert(lend)
f54cb97a 2844
1d7c1841
GS		 2845PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t);
2846PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
9f6cc744 2847PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* save)
9a957fbc 2848 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 2849#define PERL_ARGS_ASSERT_RSIGNAL_SAVE \
2850 assert(save)
9a957fbc 2851
1d7c1841 2852PERL_CALLCONV Sighandler_t Perl_rsignal_state(pTHX_ int i);
efd0b058 2853#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
9c105995 2854STATIC void S_rxres_free(pTHX_ void** rsp)
abb2c242 2855 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2856#define PERL_ARGS_ASSERT_RXRES_FREE \
2857 assert(rsp)
a3b680e6 2858
9c105995 2859STATIC void S_rxres_restore(pTHX_ void **rsp, REGEXP *rx)
abb2c242
JH		 2860 __attribute__nonnull__(pTHX_1)
2861 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2862#define PERL_ARGS_ASSERT_RXRES_RESTORE \
2863 assert(rsp); assert(rx)
a3b680e6 2864
9c105995 2865#endif
4048f010 2866PERL_CALLCONV void Perl_rxres_save(pTHX_ void **rsp, REGEXP *rx)
abb2c242
JH		 2867 __attribute__nonnull__(pTHX_1)
2868 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2869#define PERL_ARGS_ASSERT_RXRES_SAVE \
2870 assert(rsp); assert(rx)
a3b680e6 2871
cea2e8a9 2872#if !defined(HAS_RENAME)
4373e329 2873PERL_CALLCONV I32 Perl_same_dirent(pTHX_ const char* a, const char* b)
abb2c242
JH		 2874 __attribute__nonnull__(pTHX_1)
2875 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2876#define PERL_ARGS_ASSERT_SAME_DIRENT \
2877 assert(a); assert(b)
f54cb97a 2878
0cb96387 2879#endif
53c1dcc0
AL		 2880PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv)
2881 __attribute__malloc__
639f6c3d 2882 __attribute__warn_unused_result__;
53c1dcc0
AL		 2883
2884PERL_CALLCONV char* Perl_savepvn(pTHX_ const char* pv, I32 len)
2885 __attribute__malloc__
639f6c3d 2886 __attribute__warn_unused_result__;
53c1dcc0
AL		 2887
2888PERL_CALLCONV char* Perl_savesharedpv(pTHX_ const char* pv)
2889 __attribute__malloc__
2890 __attribute__warn_unused_result__;
2891
d9095cec
NC		 2892PERL_CALLCONV char* Perl_savesharedpvn(pTHX_ const char *const pv, const STRLEN len)
2893 __attribute__malloc__
2894 __attribute__warn_unused_result__
2895 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2896#define PERL_ARGS_ASSERT_SAVESHAREDPVN \
2897 assert(pv)
d9095cec 2898
53c1dcc0
AL		 2899PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv)
2900 __attribute__malloc__
2901 __attribute__warn_unused_result__
2902 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2903#define PERL_ARGS_ASSERT_SAVESVPV \
2904 assert(sv)
53c1dcc0 2905
1d7c1841 2906PERL_CALLCONV void Perl_savestack_grow(pTHX);
4b3c1a47 2907PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need);
91d1c79f
VP		 2908/* PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr)
2909 __attribute__nonnull__(pTHX_1)
2910 __attribute__nonnull__(pTHX_3); */
2911
2912PERL_CALLCONV void Perl_save_aelem_flags(pTHX_ AV* av, I32 idx, SV **sptr, const U32 flags)
9a957fbc
AL		 2913 __attribute__nonnull__(pTHX_1)
2914 __attribute__nonnull__(pTHX_3);
91d1c79f 2915#define PERL_ARGS_ASSERT_SAVE_AELEM_FLAGS \
7918f24d 2916 assert(av); assert(sptr)
9a957fbc 2917
1d7c1841 2918PERL_CALLCONV I32 Perl_save_alloc(pTHX_ I32 size, I32 pad);
9a957fbc
AL		 2919PERL_CALLCONV void Perl_save_aptr(pTHX_ AV** aptr)
2920 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2921#define PERL_ARGS_ASSERT_SAVE_APTR \
2922 assert(aptr)
9a957fbc
AL		 2923
2924PERL_CALLCONV AV* Perl_save_ary(pTHX_ GV* gv)
2925 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2926#define PERL_ARGS_ASSERT_SAVE_ARY \
2927 assert(gv)
9a957fbc
AL		 2928
2929PERL_CALLCONV void Perl_save_bool(pTHX_ bool* boolp)
2930 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2931#define PERL_ARGS_ASSERT_SAVE_BOOL \
2932 assert(boolp)
9a957fbc
AL		 2933
2934PERL_CALLCONV void Perl_save_clearsv(pTHX_ SV** svp)
2935 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2936#define PERL_ARGS_ASSERT_SAVE_CLEARSV \
2937 assert(svp)
9a957fbc 2938
4048f010 2939PERL_CALLCONV void Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
9a957fbc
AL		 2940 __attribute__nonnull__(pTHX_1)
2941 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2942#define PERL_ARGS_ASSERT_SAVE_DELETE \
2943 assert(hv); assert(key)
9a957fbc 2944
af097752
VP		 2945PERL_CALLCONV void Perl_save_hdelete(pTHX_ HV *hv, SV *keysv)
2946 __attribute__nonnull__(pTHX_1)
2947 __attribute__nonnull__(pTHX_2);
2948#define PERL_ARGS_ASSERT_SAVE_HDELETE \
2949 assert(hv); assert(keysv)
2950
c68ec7a9
VP		 2951PERL_CALLCONV void Perl_save_adelete(pTHX_ AV *av, I32 key)
2952 __attribute__nonnull__(pTHX_1);
2953#define PERL_ARGS_ASSERT_SAVE_ADELETE \
2954 assert(av)
2955
fb9bf107
NC		 2956PERL_CALLCONV void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
2957 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 2958#define PERL_ARGS_ASSERT_SAVE_DESTRUCTOR \
2959 assert(p)
fb9bf107 2960
55968144 2961PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
2fd8beea
NC		 2962/* PERL_CALLCONV void Perl_save_freesv(pTHX_ SV* sv); */
2963/* PERL_CALLCONV void Perl_save_freeop(pTHX_ OP* o); */
2964/* PERL_CALLCONV void Perl_save_freepv(pTHX_ char* pv); */
9a957fbc
AL		 2965PERL_CALLCONV void Perl_save_generic_svref(pTHX_ SV** sptr)
2966 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2967#define PERL_ARGS_ASSERT_SAVE_GENERIC_SVREF \
2968 assert(sptr)
9a957fbc
AL		 2969
2970PERL_CALLCONV void Perl_save_generic_pvref(pTHX_ char** str)
2971 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2972#define PERL_ARGS_ASSERT_SAVE_GENERIC_PVREF \
2973 assert(str)
9a957fbc
AL		 2974
2975PERL_CALLCONV void Perl_save_shared_pvref(pTHX_ char** str)
2976 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2977#define PERL_ARGS_ASSERT_SAVE_SHARED_PVREF \
2978 assert(str)
9a957fbc 2979
aec46f14
AL		 2980PERL_CALLCONV void Perl_save_gp(pTHX_ GV* gv, I32 empty)
2981 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2982#define PERL_ARGS_ASSERT_SAVE_GP \
2983 assert(gv)
aec46f14
AL		 2984
2985PERL_CALLCONV HV* Perl_save_hash(pTHX_ GV* gv)
2986 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 2987#define PERL_ARGS_ASSERT_SAVE_HASH \
2988 assert(gv)
aec46f14 2989
da8315f8 2990PERL_CALLCONV void Perl_save_hints(pTHX);
af7df257 2991/* PERL_CALLCONV void Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr)
9a957fbc
AL		 2992 __attribute__nonnull__(pTHX_1)
2993 __attribute__nonnull__(pTHX_2)
af7df257 2994 __attribute__nonnull__(pTHX_3); */
9a957fbc 2995
af7df257
CS		 2996PERL_CALLCONV void Perl_save_helem_flags(pTHX_ HV *hv, SV *key, SV **sptr, const U32 flags)
2997 __attribute__nonnull__(pTHX_1)
2998 __attribute__nonnull__(pTHX_2)
2999 __attribute__nonnull__(pTHX_3);
3000#define PERL_ARGS_ASSERT_SAVE_HELEM_FLAGS \
3001 assert(hv); assert(key); assert(sptr)
3002
aec46f14
AL		 3003PERL_CALLCONV void Perl_save_hptr(pTHX_ HV** hptr)
3004 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3005#define PERL_ARGS_ASSERT_SAVE_HPTR \
3006 assert(hptr)
aec46f14
AL		 3007
3008PERL_CALLCONV void Perl_save_I16(pTHX_ I16* intp)
3009 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3010#define PERL_ARGS_ASSERT_SAVE_I16 \
3011 assert(intp)
aec46f14
AL		 3012
3013PERL_CALLCONV void Perl_save_I32(pTHX_ I32* intp)
3014 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3015#define PERL_ARGS_ASSERT_SAVE_I32 \
3016 assert(intp)
aec46f14
AL		 3017
3018PERL_CALLCONV void Perl_save_I8(pTHX_ I8* bytep)
3019 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3020#define PERL_ARGS_ASSERT_SAVE_I8 \
3021 assert(bytep)
aec46f14
AL		 3022
3023PERL_CALLCONV void Perl_save_int(pTHX_ int* intp)
3024 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3025#define PERL_ARGS_ASSERT_SAVE_INT \
3026 assert(intp)
aec46f14
AL		 3027
3028PERL_CALLCONV void Perl_save_item(pTHX_ SV* item)
3029 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3030#define PERL_ARGS_ASSERT_SAVE_ITEM \
3031 assert(item)
aec46f14 3032
4048f010 3033PERL_CALLCONV void Perl_save_iv(pTHX_ IV *ivp)
aec46f14 3034 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3035#define PERL_ARGS_ASSERT_SAVE_IV \
3036 assert(ivp)
aec46f14
AL		 3037
3038PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg)
3039 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3040#define PERL_ARGS_ASSERT_SAVE_LIST \
3041 assert(sarg)
aec46f14
AL		 3042
3043PERL_CALLCONV void Perl_save_long(pTHX_ long* longp)
3044 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3045#define PERL_ARGS_ASSERT_SAVE_LONG \
3046 assert(longp)
aec46f14 3047
2fd8beea
NC		 3048/* PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv)
3049 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3050#define PERL_ARGS_ASSERT_SAVE_MORTALIZESV \
3051 assert(sv)
aec46f14 3052
3d4dd4c7
NC		 3053PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv)
3054 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3055#define PERL_ARGS_ASSERT_SAVE_NOGV \
3056 assert(gv)
3d4dd4c7 3057
2fd8beea 3058/* PERL_CALLCONV void Perl_save_op(pTHX); */
aec46f14
AL		 3059PERL_CALLCONV SV* Perl_save_scalar(pTHX_ GV* gv)
3060 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3061#define PERL_ARGS_ASSERT_SAVE_SCALAR \
3062 assert(gv)
aec46f14
AL		 3063
3064PERL_CALLCONV void Perl_save_pptr(pTHX_ char** pptr)
3065 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3066#define PERL_ARGS_ASSERT_SAVE_PPTR \
3067 assert(pptr)
aec46f14 3068
4048f010 3069PERL_CALLCONV void Perl_save_vptr(pTHX_ void *ptr)
aec46f14 3070 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3071#define PERL_ARGS_ASSERT_SAVE_VPTR \
3072 assert(ptr)
aec46f14 3073
1d7c1841 3074PERL_CALLCONV void Perl_save_re_context(pTHX);
09edbca0 3075PERL_CALLCONV void Perl_save_padsv_and_mortalize(pTHX_ PADOFFSET off);
aec46f14
AL		 3076PERL_CALLCONV void Perl_save_sptr(pTHX_ SV** sptr)
3077 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3078#define PERL_ARGS_ASSERT_SAVE_SPTR \
3079 assert(sptr)
aec46f14
AL		 3080
3081PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr)
3082 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3083#define PERL_ARGS_ASSERT_SAVE_SVREF \
3084 assert(sptr)
aec46f14 3085
2fd8beea 3086PERL_CALLCONV void Perl_save_pushptr(pTHX_ void *const ptr, const int type);
4f5084fa 3087PERL_CALLCONV void Perl_save_pushi32ptr(pTHX_ const I32 i, void *const ptr, const int type);
dfcd3de5 3088PERL_CALLCONV void Perl_save_pushptrptr(pTHX_ void *const ptr1, void *const ptr2, const int type);
be84297e
NC		 3089#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
3090STATIC void S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2, const int type);
3091#endif
1d7c1841
GS		 3092PERL_CALLCONV OP* Perl_sawparens(pTHX_ OP* o);
3093PERL_CALLCONV OP* Perl_scalar(pTHX_ OP* o);
efd0b058 3094#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
2dd5337b
NC		 3095STATIC OP* S_scalarkids(pTHX_ OP* o);
3096STATIC OP* S_scalarseq(pTHX_ OP* o);
3097#endif
aec46f14
AL		 3098PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o)
3099 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3100#define PERL_ARGS_ASSERT_SCALARVOID \
3101 assert(o)
aec46f14
AL		 3102
3103PERL_CALLCONV NV Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3104 __attribute__nonnull__(pTHX_1)
3105 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3106#define PERL_ARGS_ASSERT_SCAN_BIN \
3107 assert(start); assert(retlen)
aec46f14
AL		 3108
3109PERL_CALLCONV NV Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3110 __attribute__nonnull__(pTHX_1)
3111 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3112#define PERL_ARGS_ASSERT_SCAN_HEX \
3113 assert(start); assert(retlen)
aec46f14
AL		 3114
3115PERL_CALLCONV char* Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp)
3116 __attribute__nonnull__(pTHX_1)
3117 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3118#define PERL_ARGS_ASSERT_SCAN_NUM \
3119 assert(s); assert(lvalp)
aec46f14
AL		 3120
3121PERL_CALLCONV NV Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3122 __attribute__nonnull__(pTHX_1)
3123 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3124#define PERL_ARGS_ASSERT_SCAN_OCT \
3125 assert(start); assert(retlen)
aec46f14 3126
1d7c1841 3127PERL_CALLCONV OP* Perl_scope(pTHX_ OP* o);
9f6cc744 3128PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *old_posp, I32 last)
aec46f14
AL		 3129 __attribute__nonnull__(pTHX_1)
3130 __attribute__nonnull__(pTHX_2)
3131 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 3132#define PERL_ARGS_ASSERT_SCREAMINSTR \
3133 assert(bigstr); assert(littlestr); assert(old_posp)
aec46f14 3134
1d7c1841 3135PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv);
aec46f14
AL		 3136PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash)
3137 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3138#define PERL_ARGS_ASSERT_SHARE_HEK \
3139 assert(str)
aec46f14 3140
8aad04aa 3141#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
b6455c53
SR		 3142PERL_CALLCONV Signal_t Perl_sighandler(int sig, siginfo_t *info, void *uap);
3143PERL_CALLCONV Signal_t Perl_csighandler(int sig, siginfo_t *info, void *uap);
8aad04aa 3144#else
1d7c1841 3145PERL_CALLCONV Signal_t Perl_sighandler(int sig);
d36b6582 3146PERL_CALLCONV Signal_t Perl_csighandler(int sig);
8aad04aa 3147#endif
c48640ec 3148PERL_CALLCONV SV** Perl_stack_grow(pTHX_ SV** sp, SV** p, int n)
abb2c242
JH		 3149 __attribute__nonnull__(pTHX_1)
3150 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3151#define PERL_ARGS_ASSERT_STACK_GROW \
3152 assert(sp); assert(p)
f54cb97a 3153
0b1558d1 3154PERL_CALLCONV I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
aec46f14
AL		 3155PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv)
3156 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3157#define PERL_ARGS_ASSERT_SUB_CRUSH_DEPTH \
3158 assert(cv)
aec46f14 3159
7bc54cea 3160PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV *const sv)
abb2c242 3161 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3162#define PERL_ARGS_ASSERT_SV_2BOOL \
3163 assert(sv)
f54cb97a 3164
23f13727 3165PERL_CALLCONV CV* Perl_sv_2cv(pTHX_ SV* sv, HV **const st, GV **const gvp, const I32 lref)
aec46f14
AL		 3166 __attribute__nonnull__(pTHX_2)
3167 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3168#define PERL_ARGS_ASSERT_SV_2CV \
3169 assert(st); assert(gvp)
f54cb97a 3170
23f13727 3171PERL_CALLCONV IO* Perl_sv_2io(pTHX_ SV *const sv)
abb2c242 3172 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3173#define PERL_ARGS_ASSERT_SV_2IO \
3174 assert(sv)
f54cb97a 3175
efd0b058 3176#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
19f6321d 3177STATIC bool S_glob_2number(pTHX_ GV* const gv)
180488f8 3178 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3179#define PERL_ARGS_ASSERT_GLOB_2NUMBER \
3180 assert(gv)
180488f8
NC		 3181
3182#endif
53e85712
NC		 3183/* PERL_CALLCONV IV Perl_sv_2iv(pTHX_ SV *sv); */
3184PERL_CALLCONV IV Perl_sv_2iv_flags(pTHX_ SV *const sv, const I32 flags);
23f13727 3185PERL_CALLCONV SV* Perl_sv_2mortal(pTHX_ SV *const sv);
39d5de13 3186PERL_CALLCONV NV Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags);
5de3775c 3187PERL_CALLCONV SV* Perl_sv_2num(pTHX_ SV *const sv)
800401ee 3188 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3189#define PERL_ARGS_ASSERT_SV_2NUM \
3190 assert(sv)
800401ee 3191
53e85712
NC		 3192/* PERL_CALLCONV char* Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp); */
3193PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags);
7bc54cea 3194PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *const sv, STRLEN *const lp)
f49ed1da 3195 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3196#define PERL_ARGS_ASSERT_SV_2PVUTF8 \
3197 assert(sv)
f54cb97a 3198
5de3775c 3199PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *const sv, STRLEN *const lp)
f49ed1da 3200 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3201#define PERL_ARGS_ASSERT_SV_2PVBYTE \
3202 assert(sv)
f54cb97a 3203
4373e329 3204PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp)
f49ed1da 3205 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3206#define PERL_ARGS_ASSERT_SV_PVN_NOMG \
3207 assert(sv)
f54cb97a 3208
53e85712
NC		 3209/* PERL_CALLCONV UV Perl_sv_2uv(pTHX_ SV *sv); */
3210PERL_CALLCONV UV Perl_sv_2uv_flags(pTHX_ SV *const sv, const I32 flags);
4373e329 3211PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv)
abb2c242 3212 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3213#define PERL_ARGS_ASSERT_SV_IV \
3214 assert(sv)
f54cb97a 3215
4373e329 3216PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv)
abb2c242 3217 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3218#define PERL_ARGS_ASSERT_SV_UV \
3219 assert(sv)
f54cb97a 3220
4373e329 3221PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv)
abb2c242 3222 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3223#define PERL_ARGS_ASSERT_SV_NV \
3224 assert(sv)
f54cb97a 3225
4048f010 3226PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp)
abb2c242
JH		 3227 __attribute__nonnull__(pTHX_1)
3228 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3229#define PERL_ARGS_ASSERT_SV_PVN \
3230 assert(sv); assert(lp)
f54cb97a 3231
4048f010 3232PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp)
abb2c242
JH		 3233 __attribute__nonnull__(pTHX_1)
3234 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3235#define PERL_ARGS_ASSERT_SV_PVUTF8N \
3236 assert(sv); assert(lp)
f54cb97a 3237
4048f010 3238PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp)
abb2c242
JH		 3239 __attribute__nonnull__(pTHX_1)
3240 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3241#define PERL_ARGS_ASSERT_SV_PVBYTEN \
3242 assert(sv); assert(lp)
f54cb97a 3243
23f13727 3244PERL_CALLCONV I32 Perl_sv_true(pTHX_ SV *const sv);
efd0b058 3245#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
d2bd4e7f 3246STATIC void S_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32 flags)
abb2c242 3247 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3248#define PERL_ARGS_ASSERT_SV_ADD_ARENA \
3249 assert(ptr)
f54cb97a 3250
d2bd4e7f 3251#endif
aad570aa 3252PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV *const sv)
abb2c242 3253 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3254#define PERL_ARGS_ASSERT_SV_BACKOFF \
3255 assert(sv)
f54cb97a 3256
12964ddd 3257PERL_CALLCONV SV* Perl_sv_bless(pTHX_ SV *const sv, HV *const stash)
abb2c242
JH		 3258 __attribute__nonnull__(pTHX_1)
3259 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3260#define PERL_ARGS_ASSERT_SV_BLESS \
3261 assert(sv); assert(stash)
f54cb97a 3262
66ceb532 3263PERL_CALLCONV void Perl_sv_catpvf(pTHX_ SV *const sv, const char *const pat, ...)
f54cb97a 3264 __attribute__format__(__printf__,pTHX_2,pTHX_3)
aec46f14
AL		 3265 __attribute__nonnull__(pTHX_1)
3266 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3267#define PERL_ARGS_ASSERT_SV_CATPVF \
3268 assert(sv); assert(pat)
f54cb97a 3269
66ceb532 3270PERL_CALLCONV void Perl_sv_vcatpvf(pTHX_ SV *const sv, const char *const pat, va_list *const args)
aec46f14
AL		 3271 __attribute__nonnull__(pTHX_1)
3272 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3273#define PERL_ARGS_ASSERT_SV_VCATPVF \
3274 assert(sv); assert(pat)
f54cb97a 3275
2b021c53 3276PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV *const sv, const char* ptr)
cf684db6 3277 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3278#define PERL_ARGS_ASSERT_SV_CATPV \
3279 assert(sv)
f54cb97a 3280
4048f010 3281/* PERL_CALLCONV void Perl_sv_catpvn(pTHX_ SV *dsv, const char *sstr, STRLEN len)
aec46f14
AL		 3282 __attribute__nonnull__(pTHX_1)
3283 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 3284#define PERL_ARGS_ASSERT_SV_CATPVN \
3285 assert(dsv); assert(sstr)
f54cb97a 3286
4048f010 3287/* PERL_CALLCONV void Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
abb2c242 3288 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3289#define PERL_ARGS_ASSERT_SV_CATSV \
3290 assert(dstr)
f54cb97a 3291
2e000ff2 3292PERL_CALLCONV void Perl_sv_chop(pTHX_ SV *const sv, const char *const ptr)
abb2c242 3293 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3294#define PERL_ARGS_ASSERT_SV_CHOP \
3295 assert(sv)
f54cb97a 3296
5226ed68 3297PERL_CALLCONV I32 Perl_sv_clean_all(pTHX);
1d7c1841 3298PERL_CALLCONV void Perl_sv_clean_objs(pTHX);
af828c01 3299PERL_CALLCONV void Perl_sv_clear(pTHX_ SV *const sv)
abb2c242 3300 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3301#define PERL_ARGS_ASSERT_SV_CLEAR \
3302 assert(sv)
f54cb97a 3303
ac1e9476
SS		 3304PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV *const sv1, SV *const sv2);
3305PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV *const sv1, SV *const sv2);
864dbfa3 3306#if defined(USE_LOCALE_COLLATE)
ac1e9476 3307PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp)
1df70142
AL		 3308 __attribute__nonnull__(pTHX_1)
3309 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3310#define PERL_ARGS_ASSERT_SV_COLLXFRM \
3311 assert(sv); assert(nxp)
f54cb97a 3312
0cb96387 3313#endif
4048f010 3314PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV *sv, OP **startop, const char *code, PAD **padp)
abb2c242
JH		 3315 __attribute__nonnull__(pTHX_1)
3316 __attribute__nonnull__(pTHX_2)
3317 __attribute__nonnull__(pTHX_3)
3318 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3319#define PERL_ARGS_ASSERT_SV_COMPILE_2OP \
3320 assert(sv); assert(startop); assert(code); assert(padp)
f54cb97a 3321
4373e329 3322PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv)
abb2c242 3323 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3324#define PERL_ARGS_ASSERT_GETCWD_SV \
3325 assert(sv)
f54cb97a 3326
ac1e9476 3327PERL_CALLCONV void Perl_sv_dec(pTHX_ SV *const sv);
6f1401dc 3328PERL_CALLCONV void Perl_sv_dec_nomg(pTHX_ SV *const sv);
f54cb97a 3329PERL_CALLCONV void Perl_sv_dump(pTHX_ SV* sv)
abb2c242 3330 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3331#define PERL_ARGS_ASSERT_SV_DUMP \
3332 assert(sv)
f54cb97a 3333
15f169a1 3334PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char *const name)
abb2c242
JH		 3335 __attribute__warn_unused_result__
3336 __attribute__nonnull__(pTHX_1)
3337 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3338#define PERL_ARGS_ASSERT_SV_DERIVED_FROM \
3339 assert(sv); assert(name)
f54cb97a 3340
15f169a1 3341PERL_CALLCONV bool Perl_sv_does(pTHX_ SV* sv, const char *const name)
cbc021f9 3342 __attribute__warn_unused_result__
3343 __attribute__nonnull__(pTHX_1)
3344 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3345#define PERL_ARGS_ASSERT_SV_DOES \
3346 assert(sv); assert(name)
cbc021f9 3347
551405c4 3348PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2);
af828c01
SS		 3349PERL_CALLCONV void Perl_sv_free(pTHX_ SV *const sv);
3350PERL_CALLCONV void Perl_sv_free2(pTHX_ SV *const sv)
abb2c242 3351 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3352#define PERL_ARGS_ASSERT_SV_FREE2 \
3353 assert(sv)
f54cb97a 3354
1d7c1841 3355PERL_CALLCONV void Perl_sv_free_arenas(pTHX);
ac1e9476 3356PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV *const sv, PerlIO *const fp, I32 append)
abb2c242
JH		 3357 __attribute__nonnull__(pTHX_1)
3358 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3359#define PERL_ARGS_ASSERT_SV_GETS \
3360 assert(sv); assert(fp)
f54cb97a 3361
aad570aa 3362PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV *const sv, STRLEN newlen)
abb2c242 3363 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3364#define PERL_ARGS_ASSERT_SV_GROW \
3365 assert(sv)
f54cb97a 3366
ac1e9476 3367PERL_CALLCONV void Perl_sv_inc(pTHX_ SV *const sv);
6f1401dc 3368PERL_CALLCONV void Perl_sv_inc_nomg(pTHX_ SV *const sv);
84335ee9 3369/* PERL_CALLCONV void Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen)
abb2c242 3370 __attribute__nonnull__(pTHX_1)
84335ee9 3371 __attribute__nonnull__(pTHX_4); */
7918f24d
NC		 3372#define PERL_ARGS_ASSERT_SV_INSERT \
3373 assert(bigstr); assert(little)
f54cb97a 3374
c0dd94a0
VP		 3375PERL_CALLCONV void Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen, const U32 flags)
3376 __attribute__nonnull__(pTHX_1)
3377 __attribute__nonnull__(pTHX_4);
3378#define PERL_ARGS_ASSERT_SV_INSERT_FLAGS \
3379 assert(bigstr); assert(little)
3380
12964ddd 3381PERL_CALLCONV int Perl_sv_isa(pTHX_ SV* sv, const char *const name)
aec46f14 3382 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3383#define PERL_ARGS_ASSERT_SV_ISA \
3384 assert(name)
f54cb97a 3385
aec46f14 3386PERL_CALLCONV int Perl_sv_isobject(pTHX_ SV* sv);
af828c01
SS		 3387PERL_CALLCONV STRLEN Perl_sv_len(pTHX_ SV *const sv);
3388PERL_CALLCONV STRLEN Perl_sv_len_utf8(pTHX_ SV *const sv);
ac1e9476 3389PERL_CALLCONV void Perl_sv_magic(pTHX_ SV *const sv, SV *const obj, const int how, const char *const name, const I32 namlen)
abb2c242 3390 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3391#define PERL_ARGS_ASSERT_SV_MAGIC \
3392 assert(sv)
f54cb97a 3393
2b021c53 3394PERL_CALLCONV MAGIC * Perl_sv_magicext(pTHX_ SV *const sv, SV *const obj, const int how, const MGVTBL *const vtbl, const char *const name, const I32 namlen)
abb2c242 3395 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3396#define PERL_ARGS_ASSERT_SV_MAGICEXT \
3397 assert(sv)
f54cb97a 3398
ac1e9476 3399PERL_CALLCONV SV* Perl_sv_mortalcopy(pTHX_ SV *const oldsv)
1b6737cc
AL		 3400 __attribute__malloc__
3401 __attribute__warn_unused_result__;
f54cb97a
AL		 3402
3403PERL_CALLCONV SV* Perl_sv_newmortal(pTHX)
abb2c242 3404 __attribute__warn_unused_result__;
f54cb97a 3405
af828c01 3406PERL_CALLCONV SV* Perl_sv_newref(pTHX_ SV *const sv);
1d7c1841 3407PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv);
af828c01 3408PERL_CALLCONV void Perl_sv_pos_u2b(pTHX_ SV *const sv, I32 *const offsetp, I32 *const lenp)
b464bac0 3409 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3410#define PERL_ARGS_ASSERT_SV_POS_U2B \
3411 assert(offsetp)
b464bac0 3412
d931b1be
NC		 3413PERL_CALLCONV STRLEN Perl_sv_pos_u2b_flags(pTHX_ SV *const sv, STRLEN uoffset, STRLEN *const lenp, U32 flags)
3414 __attribute__nonnull__(pTHX_1);
3415#define PERL_ARGS_ASSERT_SV_POS_U2B_FLAGS \
3416 assert(sv)
777f7c56 3417
ac1e9476 3418PERL_CALLCONV void Perl_sv_pos_b2u(pTHX_ SV *const sv, I32 *const offsetp)
b464bac0 3419 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3420#define PERL_ARGS_ASSERT_SV_POS_B2U \
3421 assert(offsetp)
b464bac0 3422
25b0f989 3423/* PERL_CALLCONV char* Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp)
aec46f14 3424 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3425#define PERL_ARGS_ASSERT_SV_PVN_FORCE \
3426 assert(sv)
aec46f14 3427
12964ddd 3428PERL_CALLCONV char* Perl_sv_pvutf8n_force(pTHX_ SV *const sv, STRLEN *const lp)
aec46f14 3429 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3430#define PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE \
3431 assert(sv)
aec46f14 3432
12964ddd 3433PERL_CALLCONV char* Perl_sv_pvbyten_force(pTHX_ SV *const sv, STRLEN *const lp)
aec46f14 3434 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3435#define PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE \
3436 assert(sv)
aec46f14
AL		 3437
3438PERL_CALLCONV char* Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding)
3439 __attribute__nonnull__(pTHX_1)
3440 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3441#define PERL_ARGS_ASSERT_SV_RECODE_TO_UTF8 \
3442 assert(sv); assert(encoding)
aec46f14
AL		 3443
3444PERL_CALLCONV bool Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen)
3445 __attribute__nonnull__(pTHX_1)
3446 __attribute__nonnull__(pTHX_2)
3447 __attribute__nonnull__(pTHX_3)
3448 __attribute__nonnull__(pTHX_4)
3449 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 3450#define PERL_ARGS_ASSERT_SV_CAT_DECODE \
3451 assert(dsv); assert(encoding); assert(ssv); assert(offset); assert(tstr)
aec46f14 3452
12964ddd 3453PERL_CALLCONV const char* Perl_sv_reftype(pTHX_ const SV *const sv, const int ob)
abb2c242
JH		 3454 __attribute__warn_unused_result__
3455 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3456#define PERL_ARGS_ASSERT_SV_REFTYPE \
3457 assert(sv)
a3b680e6 3458
af828c01 3459PERL_CALLCONV void Perl_sv_replace(pTHX_ SV *const sv, SV *const nsv)
abb2c242
JH		 3460 __attribute__nonnull__(pTHX_1)
3461 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3462#define PERL_ARGS_ASSERT_SV_REPLACE \
3463 assert(sv); assert(nsv)
a3b680e6 3464
1d7c1841 3465PERL_CALLCONV void Perl_sv_report_used(pTHX);
23f13727 3466PERL_CALLCONV void Perl_sv_reset(pTHX_ const char* s, HV *const stash)
504618e9 3467 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3468#define PERL_ARGS_ASSERT_SV_RESET \
3469 assert(s)
504618e9 3470
89e38212 3471PERL_CALLCONV void Perl_sv_setpvf(pTHX_ SV *const sv, const char *const pat, ...)
aec46f14
AL		 3472 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3473 __attribute__nonnull__(pTHX_1)
3474 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3475#define PERL_ARGS_ASSERT_SV_SETPVF \
3476 assert(sv); assert(pat)
aec46f14 3477
89e38212 3478PERL_CALLCONV void Perl_sv_vsetpvf(pTHX_ SV *const sv, const char *const pat, va_list *const args)
aec46f14
AL		 3479 __attribute__nonnull__(pTHX_1)
3480 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3481#define PERL_ARGS_ASSERT_SV_VSETPVF \
3482 assert(sv); assert(pat)
aec46f14 3483
aad570aa 3484PERL_CALLCONV void Perl_sv_setiv(pTHX_ SV *const sv, const IV num)
aec46f14 3485 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3486#define PERL_ARGS_ASSERT_SV_SETIV \
3487 assert(sv)
f54cb97a 3488
89e38212 3489PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV *const sv, const IV num)
504618e9 3490 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3491#define PERL_ARGS_ASSERT_SV_SETPVIV \
3492 assert(sv)
504618e9 3493
aad570aa 3494PERL_CALLCONV void Perl_sv_setuv(pTHX_ SV *const sv, const UV num)
aec46f14 3495 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3496#define PERL_ARGS_ASSERT_SV_SETUV \
3497 assert(sv)
aec46f14 3498
aad570aa 3499PERL_CALLCONV void Perl_sv_setnv(pTHX_ SV *const sv, const NV num)
aec46f14 3500 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3501#define PERL_ARGS_ASSERT_SV_SETNV \
3502 assert(sv)
aec46f14 3503
12964ddd 3504PERL_CALLCONV SV* Perl_sv_setref_iv(pTHX_ SV *const rv, const char *const classname, const IV iv)
aec46f14 3505 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3506#define PERL_ARGS_ASSERT_SV_SETREF_IV \
3507 assert(rv)
aec46f14 3508
12964ddd 3509PERL_CALLCONV SV* Perl_sv_setref_uv(pTHX_ SV *const rv, const char *const classname, const UV uv)
aec46f14 3510 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3511#define PERL_ARGS_ASSERT_SV_SETREF_UV \
3512 assert(rv)
aec46f14 3513
12964ddd 3514PERL_CALLCONV SV* Perl_sv_setref_nv(pTHX_ SV *const rv, const char *const classname, const NV nv)
aec46f14 3515 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3516#define PERL_ARGS_ASSERT_SV_SETREF_NV \
3517 assert(rv)
aec46f14 3518
12964ddd 3519PERL_CALLCONV SV* Perl_sv_setref_pv(pTHX_ SV *const rv, const char *const classname, void *const pv)
aec46f14 3520 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3521#define PERL_ARGS_ASSERT_SV_SETREF_PV \
3522 assert(rv)
aec46f14 3523
12964ddd 3524PERL_CALLCONV SV* Perl_sv_setref_pvn(pTHX_ SV *const rv, const char *const classname, const char *const pv, const STRLEN n)
aec46f14 3525 __attribute__nonnull__(pTHX_1)
1b6737cc 3526 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3527#define PERL_ARGS_ASSERT_SV_SETREF_PVN \
3528 assert(rv); assert(pv)
1b6737cc 3529
2e000ff2 3530PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV *const sv, const char *const ptr)
aec46f14 3531 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3532#define PERL_ARGS_ASSERT_SV_SETPV \
3533 assert(sv)
aec46f14 3534
2e000ff2 3535PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV *const sv, const char *const ptr, const STRLEN len)
abb2c242 3536 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3537#define PERL_ARGS_ASSERT_SV_SETPVN \
3538 assert(sv)
f54cb97a 3539
4048f010 3540/* PERL_CALLCONV void Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
aec46f14 3541 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3542#define PERL_ARGS_ASSERT_SV_SETSV \
3543 assert(dstr)
aec46f14 3544
25b0f989 3545/* PERL_CALLCONV void Perl_sv_taint(pTHX_ SV* sv)
aae9cea0 3546 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3547#define PERL_ARGS_ASSERT_SV_TAINT \
3548 assert(sv)
aec46f14 3549
89e38212 3550PERL_CALLCONV bool Perl_sv_tainted(pTHX_ SV *const sv)
aec46f14
AL		 3551 __attribute__warn_unused_result__
3552 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3553#define PERL_ARGS_ASSERT_SV_TAINTED \
3554 assert(sv)
a28509cc 3555
2b021c53 3556PERL_CALLCONV int Perl_sv_unmagic(pTHX_ SV *const sv, const int type)
abb2c242 3557 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3558#define PERL_ARGS_ASSERT_SV_UNMAGIC \
3559 assert(sv)
f54cb97a 3560
174c73e3
NC		 3561/* PERL_CALLCONV void Perl_sv_unref(pTHX_ SV* sv)
3562 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3563#define PERL_ARGS_ASSERT_SV_UNREF \
3564 assert(sv)
f54cb97a 3565
89e38212 3566PERL_CALLCONV void Perl_sv_unref_flags(pTHX_ SV *const ref, const U32 flags)
abb2c242 3567 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3568#define PERL_ARGS_ASSERT_SV_UNREF_FLAGS \
3569 assert(ref)
f54cb97a 3570
89e38212 3571PERL_CALLCONV void Perl_sv_untaint(pTHX_ SV *const sv)
abb2c242 3572 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3573#define PERL_ARGS_ASSERT_SV_UNTAINT \
3574 assert(sv)
f54cb97a 3575
aad570aa 3576PERL_CALLCONV void Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type)
abb2c242 3577 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3578#define PERL_ARGS_ASSERT_SV_UPGRADE \
3579 assert(sv)
f54cb97a 3580
47518d95
NC		 3581/* PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len)
3582 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3583#define PERL_ARGS_ASSERT_SV_USEPVN \
3584 assert(sv)
47518d95 3585
2e000ff2 3586PERL_CALLCONV void Perl_sv_usepvn_flags(pTHX_ SV *const sv, char* ptr, const STRLEN len, const U32 flags)
abb2c242 3587 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3588#define PERL_ARGS_ASSERT_SV_USEPVN_FLAGS \
3589 assert(sv)
f54cb97a 3590
66ceb532 3591PERL_CALLCONV void Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, bool *const maybe_tainted)
abb2c242
JH		 3592 __attribute__nonnull__(pTHX_1)
3593 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3594#define PERL_ARGS_ASSERT_SV_VCATPVFN \
3595 assert(sv); assert(pat)
f54cb97a 3596
66ceb532 3597PERL_CALLCONV void Perl_sv_vsetpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, bool *const maybe_tainted)
abb2c242
JH		 3598 __attribute__nonnull__(pTHX_1)
3599 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3600#define PERL_ARGS_ASSERT_SV_VSETPVFN \
3601 assert(sv); assert(pat)
f54cb97a 3602
aec46f14
AL		 3603PERL_CALLCONV NV Perl_str_to_version(pTHX_ SV *sv)
3604 __attribute__warn_unused_result__
3605 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3606#define PERL_ARGS_ASSERT_STR_TO_VERSION \
3607 assert(sv)
aec46f14
AL		 3608
3609PERL_CALLCONV SV* Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none)
3610 __attribute__nonnull__(pTHX_1)
3611 __attribute__nonnull__(pTHX_2)
3612 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 3613#define PERL_ARGS_ASSERT_SWASH_INIT \
3614 assert(pkg); assert(name); assert(listsv)
aec46f14 3615
680c470c 3616PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8)
aec46f14
AL		 3617 __attribute__nonnull__(pTHX_1)
3618 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3619#define PERL_ARGS_ASSERT_SWASH_FETCH \
3620 assert(swash); assert(ptr)
aec46f14 3621
1d7c1841 3622PERL_CALLCONV void Perl_taint_env(pTHX);
e1c41806 3623PERL_CALLCONV void Perl_taint_proper(pTHX_ const char* f, const char *const s)
8772537c 3624 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3625#define PERL_ARGS_ASSERT_TAINT_PROPER \
3626 assert(s)
8772537c 3627
9a957fbc 3628PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special)
abb2c242 3629 __attribute__nonnull__(pTHX_1)
9a957fbc 3630 __attribute__nonnull__(pTHX_2)
fb9bf107
NC		 3631 __attribute__nonnull__(pTHX_4)
3632 __attribute__nonnull__(pTHX_5)
3633 __attribute__nonnull__(pTHX_6);
7918f24d
NC		 3634#define PERL_ARGS_ASSERT_TO_UTF8_CASE \
3635 assert(p); assert(ustrp); assert(swashp); assert(normal); assert(special)
f54cb97a
AL		 3636
3637PERL_CALLCONV UV Perl_to_utf8_lower(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
abb2c242
JH		 3638 __attribute__nonnull__(pTHX_1)
3639 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3640#define PERL_ARGS_ASSERT_TO_UTF8_LOWER \
3641 assert(p); assert(ustrp)
f54cb97a
AL		 3642
3643PERL_CALLCONV UV Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
abb2c242
JH		 3644 __attribute__nonnull__(pTHX_1)
3645 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3646#define PERL_ARGS_ASSERT_TO_UTF8_UPPER \
3647 assert(p); assert(ustrp)
f54cb97a
AL		 3648
3649PERL_CALLCONV UV Perl_to_utf8_title(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
abb2c242
JH		 3650 __attribute__nonnull__(pTHX_1)
3651 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3652#define PERL_ARGS_ASSERT_TO_UTF8_TITLE \
3653 assert(p); assert(ustrp)
f54cb97a
AL		 3654
3655PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
abb2c242
JH		 3656 __attribute__nonnull__(pTHX_1)
3657 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3658#define PERL_ARGS_ASSERT_TO_UTF8_FOLD \
3659 assert(p); assert(ustrp)
f54cb97a 3660
864dbfa3 3661#if defined(UNLINK_ALL_VERSIONS)
6e732051 3662PERL_CALLCONV I32 Perl_unlnk(pTHX_ const char* f)
aec46f14 3663 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3664#define PERL_ARGS_ASSERT_UNLNK \
3665 assert(f)
aec46f14 3666
864dbfa3 3667#endif
aec46f14
AL		 3668PERL_CALLCONV I32 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)
3669 __attribute__nonnull__(pTHX_1)
3670 __attribute__nonnull__(pTHX_2)
3671 __attribute__nonnull__(pTHX_3)
3672 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 3673#define PERL_ARGS_ASSERT_UNPACK_STR \
3674 assert(pat); assert(patend); assert(s); assert(strend)
aec46f14
AL		 3675
3676PERL_CALLCONV I32 Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags)
3677 __attribute__nonnull__(pTHX_1)
3678 __attribute__nonnull__(pTHX_2)
3679 __attribute__nonnull__(pTHX_3)
3680 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3681#define PERL_ARGS_ASSERT_UNPACKSTRING \
3682 assert(pat); assert(patend); assert(s); assert(strend)
aec46f14 3683
1d7c1841
GS		 3684PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
3685PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek);
eb8433b7
NC		 3686#ifdef PERL_MAD
3687PERL_CALLCONV OP * Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg)
3688 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3689#define PERL_ARGS_ASSERT_UTILIZE \
3690 assert(idop)
eb8433b7
NC		 3691
3692#else
aec46f14
AL		 3693PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg)
3694 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3695#define PERL_ARGS_ASSERT_UTILIZE \
3696 assert(idop)
aec46f14 3697
eb8433b7 3698#endif
aec46f14
AL		 3699PERL_CALLCONV U8* Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
3700 __attribute__nonnull__(pTHX_1)
3701 __attribute__nonnull__(pTHX_2)
3702 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3703#define PERL_ARGS_ASSERT_UTF16_TO_UTF8 \
3704 assert(p); assert(d); assert(newlen)
aec46f14
AL		 3705
3706PERL_CALLCONV U8* Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
3707 __attribute__nonnull__(pTHX_1)
3708 __attribute__nonnull__(pTHX_2)
3709 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 3710#define PERL_ARGS_ASSERT_UTF16_TO_UTF8_REVERSED \
3711 assert(p); assert(d); assert(newlen)
aec46f14 3712
4373e329 3713PERL_CALLCONV STRLEN Perl_utf8_length(pTHX_ const U8* s, const U8 *e)
abb2c242
JH		 3714 __attribute__warn_unused_result__
3715 __attribute__pure__
3716 __attribute__nonnull__(pTHX_1)
3717 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3718#define PERL_ARGS_ASSERT_UTF8_LENGTH \
3719 assert(s); assert(e)
f54cb97a 3720
4373e329 3721PERL_CALLCONV IV Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b)
abb2c242
JH		 3722 __attribute__warn_unused_result__
3723 __attribute__pure__
3724 __attribute__nonnull__(pTHX_1)
3725 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3726#define PERL_ARGS_ASSERT_UTF8_DISTANCE \
3727 assert(a); assert(b)
f54cb97a 3728
4373e329 3729PERL_CALLCONV U8* Perl_utf8_hop(pTHX_ const U8 *s, I32 off)
abb2c242
JH		 3730 __attribute__warn_unused_result__
3731 __attribute__pure__
3732 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3733#define PERL_ARGS_ASSERT_UTF8_HOP \
3734 assert(s)
f54cb97a 3735
4373e329 3736PERL_CALLCONV U8* Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len)
abb2c242
JH		 3737 __attribute__nonnull__(pTHX_1)
3738 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3739#define PERL_ARGS_ASSERT_UTF8_TO_BYTES \
3740 assert(s); assert(len)
f54cb97a 3741
aec46f14
AL		 3742PERL_CALLCONV U8* Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8)
3743 __attribute__nonnull__(pTHX_1)
3744 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3745#define PERL_ARGS_ASSERT_BYTES_FROM_UTF8 \
3746 assert(s); assert(len)
aec46f14
AL		 3747
3748PERL_CALLCONV U8* Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len)
3749 __attribute__nonnull__(pTHX_1)
3750 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3751#define PERL_ARGS_ASSERT_BYTES_TO_UTF8 \
3752 assert(s); assert(len)
aec46f14
AL		 3753
3754PERL_CALLCONV UV Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen)
3755 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3756#define PERL_ARGS_ASSERT_UTF8_TO_UVCHR \
3757 assert(s)
aec46f14
AL		 3758
3759PERL_CALLCONV UV Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
3760 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3761#define PERL_ARGS_ASSERT_UTF8_TO_UVUNI \
3762 assert(s)
aec46f14 3763
1754c1a1
NC		 3764
3765#ifdef EBCDIC
aec46f14
AL		 3766PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
3767 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3768#define PERL_ARGS_ASSERT_UTF8N_TO_UVCHR \
3769 assert(s)
aec46f14 3770
1754c1a1
NC		 3771#else
3772/* PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
3773 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3774#define PERL_ARGS_ASSERT_UTF8N_TO_UVCHR \
3775 assert(s)
1754c1a1
NC		 3776
3777#endif
3778
aec46f14
AL		 3779PERL_CALLCONV UV Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
3780 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3781#define PERL_ARGS_ASSERT_UTF8N_TO_UVUNI \
3782 assert(s)
aec46f14 3783
1754c1a1
NC		 3784
3785#ifdef EBCDIC
4373e329 3786PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
abb2c242 3787 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3788#define PERL_ARGS_ASSERT_UVCHR_TO_UTF8 \
3789 assert(d)
f54cb97a 3790
1754c1a1
NC		 3791#else
3792/* PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
3793 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3794#define PERL_ARGS_ASSERT_UVCHR_TO_UTF8 \
3795 assert(d)
1754c1a1
NC		 3796
3797#endif
3798
038e8d3c
NC		 3799/* PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
3800 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3801#define PERL_ARGS_ASSERT_UVUNI_TO_UTF8 \
3802 assert(d)
f54cb97a 3803
4373e329 3804PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
abb2c242 3805 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3806#define PERL_ARGS_ASSERT_UVCHR_TO_UTF8_FLAGS \
3807 assert(d)
f54cb97a 3808
4373e329 3809PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
abb2c242 3810 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3811#define PERL_ARGS_ASSERT_UVUNI_TO_UTF8_FLAGS \
3812 assert(d)
f54cb97a 3813
fb9bf107
NC		 3814PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags)
3815 __attribute__nonnull__(pTHX_1)
3816 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3817#define PERL_ARGS_ASSERT_PV_UNI_DISPLAY \
3818 assert(dsv); assert(spv)
fb9bf107 3819
a3b680e6 3820PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
fb9bf107
NC		 3821 __attribute__warn_unused_result__
3822 __attribute__nonnull__(pTHX_1)
3823 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3824#define PERL_ARGS_ASSERT_SV_UNI_DISPLAY \
3825 assert(dsv); assert(ssv)
a3b680e6 3826
aec46f14
AL		 3827PERL_CALLCONV void Perl_vivify_defelem(pTHX_ SV* sv)
3828 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3829#define PERL_ARGS_ASSERT_VIVIFY_DEFELEM \
3830 assert(sv)
aec46f14
AL		 3831
3832PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what)
3833 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3834#define PERL_ARGS_ASSERT_VIVIFY_REF \
3835 assert(sv)
aec46f14
AL		 3836
3837PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags)
3838 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3839#define PERL_ARGS_ASSERT_WAIT4PID \
3840 assert(statusp)
aec46f14 3841
fb9bf107
NC		 3842PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ const char **popt)
3843 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3844#define PERL_ARGS_ASSERT_PARSE_UNICODE_OPTS \
3845 assert(popt)
fb9bf107 3846
132efe8b 3847PERL_CALLCONV U32 Perl_seed(pTHX);
255164ba
DM		 3848PERL_CALLCONV UV Perl_get_hash_seed(pTHX)
3849 __attribute__warn_unused_result__;
3850
e1ec3a88 3851PERL_CALLCONV void Perl_report_evil_fh(pTHX_ const GV *gv, const IO *io, I32 op);
b3dbd76e 3852PERL_CALLCONV void Perl_report_uninit(pTHX_ const SV *uninit_sv);
c5df3096
Z		 3853PERL_CALLCONV void Perl_warn_sv(pTHX_ SV *baseex)
3854 __attribute__nonnull__(pTHX_1);
3855#define PERL_ARGS_ASSERT_WARN_SV \
3856 assert(baseex)
3857
894356b3 3858PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...)
aec46f14
AL		 3859 __attribute__format__(__printf__,pTHX_1,pTHX_2)
3860 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3861#define PERL_ARGS_ASSERT_WARN \
3862 assert(pat)
aec46f14
AL		 3863
3864PERL_CALLCONV void Perl_vwarn(pTHX_ const char* pat, va_list* args)
3865 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3866#define PERL_ARGS_ASSERT_VWARN \
3867 assert(pat)
f54cb97a 3868
894356b3 3869PERL_CALLCONV void Perl_warner(pTHX_ U32 err, const char* pat, ...)
aec46f14
AL		 3870 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3871 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3872#define PERL_ARGS_ASSERT_WARNER \
3873 assert(pat)
aec46f14 3874
a2a5de95
NC		 3875PERL_CALLCONV void Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
3876 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3877 __attribute__nonnull__(pTHX_2);
3878#define PERL_ARGS_ASSERT_CK_WARNER \
3879 assert(pat)
3880
9b387841
NC		 3881PERL_CALLCONV void Perl_ck_warner_d(pTHX_ U32 err, const char* pat, ...)
3882 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3883 __attribute__nonnull__(pTHX_2);
3884#define PERL_ARGS_ASSERT_CK_WARNER_D \
3885 assert(pat)
3886
aec46f14
AL		 3887PERL_CALLCONV void Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args)
3888 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3889#define PERL_ARGS_ASSERT_VWARNER \
3890 assert(pat)
aec46f14
AL		 3891
3892PERL_CALLCONV void Perl_watch(pTHX_ char** addr)
3893 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3894#define PERL_ARGS_ASSERT_WATCH \
3895 assert(addr)
aec46f14
AL		 3896
3897PERL_CALLCONV I32 Perl_whichsig(pTHX_ const char* sig)
3898 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3899#define PERL_ARGS_ASSERT_WHICHSIG \
3900 assert(sig)
aec46f14 3901
7d0994e0 3902PERL_CALLCONV void Perl_write_to_stderr(pTHX_ SV* msv)
aec46f14 3903 __attribute__nonnull__(pTHX_1);
7918f24d 3904#define PERL_ARGS_ASSERT_WRITE_TO_STDERR \
7d0994e0 3905 assert(msv)
aec46f14 3906
15f169a1 3907PERL_CALLCONV int Perl_yyerror(pTHX_ const char *const s)
aec46f14 3908 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3909#define PERL_ARGS_ASSERT_YYERROR \
3910 assert(s)
f54cb97a 3911
48cf72c8 3912PERL_CALLCONV int Perl_yylex(pTHX);
1d7c1841 3913PERL_CALLCONV int Perl_yyparse(pTHX);
734c2451 3914PERL_CALLCONV void Perl_parser_free(pTHX_ const yy_parser *parser)
acdf0a21 3915 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3916#define PERL_ARGS_ASSERT_PARSER_FREE \
3917 assert(parser)
acdf0a21 3918
af41e527
NC		 3919#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
3920STATIC int S_yywarn(pTHX_ const char *const s)
aec46f14 3921 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3922#define PERL_ARGS_ASSERT_YYWARN \
3923 assert(s)
aec46f14 3924
af41e527 3925#endif
cea2e8a9 3926#if defined(MYMALLOC)
6e9b0e18 3927PERL_CALLCONV void Perl_dump_mstats(pTHX_ const char* s)
aec46f14 3928 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3929#define PERL_ARGS_ASSERT_DUMP_MSTATS \
3930 assert(s)
aec46f14 3931
255164ba 3932PERL_CALLCONV int Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
255164ba 3933 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3934#define PERL_ARGS_ASSERT_GET_MSTATS \
3935 assert(buf)
255164ba 3936
0cb96387 3937#endif
4373e329 3938PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes)
abb2c242
JH		 3939 __attribute__malloc__
3940 __attribute__warn_unused_result__;
f54cb97a 3941
4373e329 3942PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
abb2c242
JH		 3943 __attribute__malloc__
3944 __attribute__warn_unused_result__;
f54cb97a 3945
4373e329 3946PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
abb2c242
JH		 3947 __attribute__malloc__
3948 __attribute__warn_unused_result__;
f54cb97a 3949
1d7c1841 3950PERL_CALLCONV Free_t Perl_safesysfree(Malloc_t where);
cea2e8a9 3951#if defined(PERL_GLOBAL_STRUCT)
1d7c1841 3952PERL_CALLCONV struct perl_vars * Perl_GetVars(pTHX);
77304e85 3953PERL_CALLCONV struct perl_vars* Perl_init_global_struct(pTHX);
fb9bf107
NC		 3954PERL_CALLCONV void Perl_free_global_struct(pTHX_ struct perl_vars *plvarsp)
3955 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3956#define PERL_ARGS_ASSERT_FREE_GLOBAL_STRUCT \
3957 assert(plvarsp)
fb9bf107 3958
1d7c1841
GS		 3959#endif
3960PERL_CALLCONV int Perl_runops_standard(pTHX);
3961PERL_CALLCONV int Perl_runops_debug(pTHX);
66ceb532 3962PERL_CALLCONV void Perl_sv_catpvf_mg(pTHX_ SV *const sv, const char *const pat, ...)
aec46f14
AL		 3963 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3964 __attribute__nonnull__(pTHX_1)
3965 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3966#define PERL_ARGS_ASSERT_SV_CATPVF_MG \
3967 assert(sv); assert(pat)
aec46f14 3968
66ceb532 3969PERL_CALLCONV void Perl_sv_vcatpvf_mg(pTHX_ SV *const sv, const char *const pat, va_list *const args)
aec46f14
AL		 3970 __attribute__nonnull__(pTHX_1)
3971 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3972#define PERL_ARGS_ASSERT_SV_VCATPVF_MG \
3973 assert(sv); assert(pat)
aec46f14 3974
2b021c53 3975PERL_CALLCONV void Perl_sv_catpv_mg(pTHX_ SV *const sv, const char *const ptr)
cf684db6 3976 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 3977#define PERL_ARGS_ASSERT_SV_CATPV_MG \
3978 assert(sv)
aec46f14 3979
b347df82 3980/* PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
aec46f14 3981 __attribute__nonnull__(pTHX_1)
b347df82 3982 __attribute__nonnull__(pTHX_2); */
7918f24d
NC		 3983#define PERL_ARGS_ASSERT_SV_CATPVN_MG \
3984 assert(sv); assert(ptr)
aec46f14 3985
4048f010 3986/* PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv)
b347df82 3987 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 3988#define PERL_ARGS_ASSERT_SV_CATSV_MG \
3989 assert(dsv)
f54cb97a 3990
89e38212 3991PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV *const sv, const char *const pat, ...)
aec46f14
AL		 3992 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3993 __attribute__nonnull__(pTHX_1)
3994 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 3995#define PERL_ARGS_ASSERT_SV_SETPVF_MG \
3996 assert(sv); assert(pat)
aec46f14 3997
89e38212 3998PERL_CALLCONV void Perl_sv_vsetpvf_mg(pTHX_ SV *const sv, const char *const pat, va_list *const args)
aec46f14
AL		 3999 __attribute__nonnull__(pTHX_1)
4000 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4001#define PERL_ARGS_ASSERT_SV_VSETPVF_MG \
4002 assert(sv); assert(pat)
aec46f14 4003
aad570aa 4004PERL_CALLCONV void Perl_sv_setiv_mg(pTHX_ SV *const sv, const IV i)
aec46f14 4005 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4006#define PERL_ARGS_ASSERT_SV_SETIV_MG \
4007 assert(sv)
f54cb97a 4008
89e38212 4009PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv)
504618e9 4010 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4011#define PERL_ARGS_ASSERT_SV_SETPVIV_MG \
4012 assert(sv)
504618e9 4013
aad570aa 4014PERL_CALLCONV void Perl_sv_setuv_mg(pTHX_ SV *const sv, const UV u)
aec46f14 4015 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4016#define PERL_ARGS_ASSERT_SV_SETUV_MG \
4017 assert(sv)
aec46f14 4018
aad570aa 4019PERL_CALLCONV void Perl_sv_setnv_mg(pTHX_ SV *const sv, const NV num)
aec46f14 4020 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4021#define PERL_ARGS_ASSERT_SV_SETNV_MG \
4022 assert(sv)
aec46f14 4023
2e000ff2 4024PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV *const sv, const char *const ptr)
aec46f14 4025 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4026#define PERL_ARGS_ASSERT_SV_SETPV_MG \
4027 assert(sv)
aec46f14 4028
2e000ff2 4029PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *const sv, const char *const ptr, const STRLEN len)
aec46f14
AL		 4030 __attribute__nonnull__(pTHX_1)
4031 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4032#define PERL_ARGS_ASSERT_SV_SETPVN_MG \
4033 assert(sv); assert(ptr)
aec46f14 4034
7bc54cea 4035PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *const dstr, SV *const sstr)
aec46f14 4036 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4037#define PERL_ARGS_ASSERT_SV_SETSV_MG \
4038 assert(dstr)
aec46f14 4039
47518d95
NC		 4040/* PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len)
4041 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4042#define PERL_ARGS_ASSERT_SV_USEPVN_MG \
4043 assert(sv)
aec46f14
AL		 4044
4045PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id)
4046 __attribute__warn_unused_result__;
4047
4048PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4049 __attribute__nonnull__(pTHX_1)
4050 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4051#define PERL_ARGS_ASSERT_PV_DISPLAY \
4052 assert(dsv); assert(pv)
aec46f14 4053
ddc5bc0f 4054PERL_CALLCONV char* Perl_pv_escape(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags)
5a2bdfd0
DM		 4055 __attribute__nonnull__(pTHX_1)
4056 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4057#define PERL_ARGS_ASSERT_PV_ESCAPE \
4058 assert(dsv); assert(str)
5a2bdfd0 4059
ddc5bc0f 4060PERL_CALLCONV char* Perl_pv_pretty(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags)
3df15adc
YO		 4061 __attribute__nonnull__(pTHX_1)
4062 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4063#define PERL_ARGS_ASSERT_PV_PRETTY \
4064 assert(dsv); assert(str)
3df15adc 4065
894356b3 4066PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
1b6737cc 4067 __attribute__format__(__printf__,pTHX_3,pTHX_4)
aec46f14
AL		 4068 __attribute__nonnull__(pTHX_2)
4069 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4070#define PERL_ARGS_ASSERT_DUMP_INDENT \
4071 assert(file); assert(pat)
1b6737cc
AL		 4072
4073PERL_CALLCONV void Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args)
aec46f14
AL		 4074 __attribute__nonnull__(pTHX_2)
4075 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4076#define PERL_ARGS_ASSERT_DUMP_VINDENT \
4077 assert(file); assert(pat)
1b6737cc
AL		 4078
4079PERL_CALLCONV void Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
aec46f14 4080 __attribute__nonnull__(pTHX_2)
b4390064 4081 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4082#define PERL_ARGS_ASSERT_DO_GV_DUMP \
4083 assert(file); assert(name)
1b6737cc
AL		 4084
4085PERL_CALLCONV void Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
aec46f14 4086 __attribute__nonnull__(pTHX_2)
b4390064 4087 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4088#define PERL_ARGS_ASSERT_DO_GVGV_DUMP \
4089 assert(file); assert(name)
1b6737cc
AL		 4090
4091PERL_CALLCONV void Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv)
aec46f14 4092 __attribute__nonnull__(pTHX_2)
4c31e473 4093 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4094#define PERL_ARGS_ASSERT_DO_HV_DUMP \
4095 assert(file); assert(name)
1b6737cc
AL		 4096
4097PERL_CALLCONV void Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
aec46f14
AL		 4098 __attribute__nonnull__(pTHX_2)
4099 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4100#define PERL_ARGS_ASSERT_DO_MAGIC_DUMP \
4101 assert(file); assert(mg)
1b6737cc
AL		 4102
4103PERL_CALLCONV void Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
4104 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4105#define PERL_ARGS_ASSERT_DO_OP_DUMP \
4106 assert(file)
1b6737cc
AL		 4107
4108PERL_CALLCONV void Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm)
4109 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4110#define PERL_ARGS_ASSERT_DO_PMOP_DUMP \
4111 assert(file)
1b6737cc
AL		 4112
4113PERL_CALLCONV void Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4114 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4115#define PERL_ARGS_ASSERT_DO_SV_DUMP \
4116 assert(file)
1b6737cc 4117
6867be6d 4118PERL_CALLCONV void Perl_magic_dump(pTHX_ const MAGIC *mg);
1d7c1841 4119PERL_CALLCONV void Perl_reginitcolors(pTHX);
cb2f1b7b 4120/* PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv)
aec46f14 4121 __attribute__warn_unused_result__
cb2f1b7b 4122 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4123#define PERL_ARGS_ASSERT_SV_2PV_NOLEN \
4124 assert(sv)
aec46f14 4125
cb2f1b7b 4126/* PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv)
aec46f14 4127 __attribute__warn_unused_result__
cb2f1b7b 4128 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4129#define PERL_ARGS_ASSERT_SV_2PVUTF8_NOLEN \
4130 assert(sv)
aec46f14 4131
cb2f1b7b 4132/* PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv)
aec46f14 4133 __attribute__warn_unused_result__
cb2f1b7b 4134 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4135#define PERL_ARGS_ASSERT_SV_2PVBYTE_NOLEN \
4136 assert(sv)
aec46f14 4137
25b0f989 4138/* PERL_CALLCONV char* Perl_sv_pv(pTHX_ SV *sv)
f75877b5
SH		 4139 __attribute__warn_unused_result__
4140 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4141#define PERL_ARGS_ASSERT_SV_PV \
4142 assert(sv)
f75877b5 4143
25b0f989 4144/* PERL_CALLCONV char* Perl_sv_pvutf8(pTHX_ SV *sv)
f75877b5
SH		 4145 __attribute__warn_unused_result__
4146 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4147#define PERL_ARGS_ASSERT_SV_PVUTF8 \
4148 assert(sv)
f75877b5 4149
25b0f989 4150/* PERL_CALLCONV char* Perl_sv_pvbyte(pTHX_ SV *sv)
f75877b5
SH		 4151 __attribute__warn_unused_result__
4152 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4153#define PERL_ARGS_ASSERT_SV_PVBYTE \
4154 assert(sv)
f75877b5 4155
25b0f989 4156/* PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade(pTHX_ SV *sv)
f75877b5 4157 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4158#define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE \
4159 assert(sv)
f75877b5 4160
6a71721d 4161/* PERL_CALLCONV STRLEN sv_utf8_upgrade_nomg(pTHX_ SV *sv)
f08e0584 4162 __attribute__nonnull__(pTHX_1); */
f08e0584 4163
7bc54cea 4164PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *const sv, const bool fail_ok)
f75877b5 4165 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4166#define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE \
4167 assert(sv)
f75877b5 4168
7bc54cea 4169PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *const sv)
f75877b5 4170 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4171#define PERL_ARGS_ASSERT_SV_UTF8_ENCODE \
4172 assert(sv)
f75877b5 4173
7bc54cea 4174PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *const sv)
f75877b5 4175 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4176#define PERL_ARGS_ASSERT_SV_UTF8_DECODE \
4177 assert(sv)
f75877b5 4178
5abc721d
NC		 4179/* PERL_CALLCONV void Perl_sv_force_normal(pTHX_ SV *sv)
4180 __attribute__nonnull__(pTHX_1); */
7918f24d
NC		 4181#define PERL_ARGS_ASSERT_SV_FORCE_NORMAL \
4182 assert(sv)
f75877b5 4183
2e000ff2 4184PERL_CALLCONV void Perl_sv_force_normal_flags(pTHX_ SV *const sv, const U32 flags)
f75877b5 4185 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4186#define PERL_ARGS_ASSERT_SV_FORCE_NORMAL_FLAGS \
4187 assert(sv)
f75877b5 4188
1d7c1841 4189PERL_CALLCONV void Perl_tmps_grow(pTHX_ I32 n);
2b021c53 4190PERL_CALLCONV SV* Perl_sv_rvweaken(pTHX_ SV *const sv)
f75877b5 4191 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4192#define PERL_ARGS_ASSERT_SV_RVWEAKEN \
4193 assert(sv)
f75877b5
SH		 4194
4195PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg)
4196 __attribute__nonnull__(pTHX_1)
4197 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4198#define PERL_ARGS_ASSERT_MAGIC_KILLBACKREFS \
4199 assert(sv); assert(mg)
f75877b5 4200
1d7c1841
GS		 4201PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
4202PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
eb8433b7
NC		 4203#ifdef PERL_MAD
4204PERL_CALLCONV OP * Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4205 __attribute__noreturn__;
4206
4207#else
f54cb97a 4208PERL_CALLCONV void Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
abb2c242 4209 __attribute__noreturn__;
f54cb97a 4210
eb8433b7 4211#endif
4373e329 4212PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs)
abb2c242 4213 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4214#define PERL_ARGS_ASSERT_MY_ATTRS \
4215 assert(o)
f54cb97a 4216
1d7c1841 4217#if defined(USE_ITHREADS)
53c1dcc0 4218PERL_CALLCONV PERL_CONTEXT* Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param)
aec46f14
AL		 4219 __attribute__warn_unused_result__
4220 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4221#define PERL_ARGS_ASSERT_CX_DUP \
4222 assert(param)
53c1dcc0
AL		 4223
4224PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param)
aec46f14
AL		 4225 __attribute__warn_unused_result__
4226 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4227#define PERL_ARGS_ASSERT_SI_DUP \
4228 assert(param)
53c1dcc0
AL		 4229
4230PERL_CALLCONV ANY* Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param)
4231 __attribute__malloc__
4232 __attribute__warn_unused_result__
aec46f14
AL		 4233 __attribute__nonnull__(pTHX_1)
4234 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4235#define PERL_ARGS_ASSERT_SS_DUP \
4236 assert(proto_perl); assert(param)
53c1dcc0
AL		 4237
4238PERL_CALLCONV void* Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_perl)
53c1dcc0 4239 __attribute__warn_unused_result__
abb2c242 4240 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4241#define PERL_ARGS_ASSERT_ANY_DUP \
4242 assert(proto_perl)
f54cb97a 4243
5c4138a0 4244PERL_CALLCONV HE* Perl_he_dup(pTHX_ const HE* e, bool shared, CLONE_PARAMS* param)
aec46f14
AL		 4245 __attribute__warn_unused_result__
4246 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4247#define PERL_ARGS_ASSERT_HE_DUP \
4248 assert(param)
53c1dcc0
AL		 4249
4250PERL_CALLCONV HEK* Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param)
aec46f14
AL		 4251 __attribute__warn_unused_result__
4252 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4253#define PERL_ARGS_ASSERT_HEK_DUP \
4254 assert(param)
53c1dcc0 4255
288b8c02
NC		 4256PERL_CALLCONV void Perl_re_dup_guts(pTHX_ const REGEXP *sstr, REGEXP *dstr, CLONE_PARAMS* param)
4257 __attribute__nonnull__(pTHX_1)
4258 __attribute__nonnull__(pTHX_2)
4259 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4260#define PERL_ARGS_ASSERT_RE_DUP_GUTS \
4261 assert(sstr); assert(dstr); assert(param)
53c1dcc0 4262
66ceb532 4263PERL_CALLCONV PerlIO* Perl_fp_dup(pTHX_ PerlIO *const fp, const char type, CLONE_PARAMS *const param)
aec46f14 4264 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4265#define PERL_ARGS_ASSERT_FP_DUP \
4266 assert(param)
53c1dcc0 4267
66ceb532 4268PERL_CALLCONV DIR* Perl_dirp_dup(pTHX_ DIR *const dp)
53c1dcc0
AL		 4269 __attribute__warn_unused_result__;
4270
66ceb532 4271PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
aec46f14
AL		 4272 __attribute__warn_unused_result__
4273 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4274#define PERL_ARGS_ASSERT_GP_DUP \
4275 assert(param)
53c1dcc0 4276
b88ec9b8 4277PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
53c1dcc0 4278 __attribute__warn_unused_result__
aec46f14 4279 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4280#define PERL_ARGS_ASSERT_MG_DUP \
4281 assert(param)
53c1dcc0 4282
538f2e76
NC		 4283#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
4284STATIC SV ** S_sv_dup_inc_multiple(pTHX_ SV *const *source, SV **dest, SSize_t items, CLONE_PARAMS *const param)
4285 __attribute__nonnull__(pTHX_1)
4286 __attribute__nonnull__(pTHX_2)
4287 __attribute__nonnull__(pTHX_4);
4288#define PERL_ARGS_ASSERT_SV_DUP_INC_MULTIPLE \
4289 assert(source); assert(dest); assert(param)
4290
4291#endif
1eb6e4ca 4292PERL_CALLCONV SV* Perl_sv_dup(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
53c1dcc0 4293 __attribute__warn_unused_result__
aec46f14 4294 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4295#define PERL_ARGS_ASSERT_SV_DUP \
4296 assert(param)
f54cb97a 4297
a09252eb
NC		 4298PERL_CALLCONV SV* Perl_sv_dup_inc(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
4299 __attribute__warn_unused_result__
4300 __attribute__nonnull__(pTHX_2);
4301#define PERL_ARGS_ASSERT_SV_DUP_INC \
4302 assert(param)
4303
1eb6e4ca 4304PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV *const dstr, const SV *const sstr, CLONE_PARAMS *const param)
53c1dcc0 4305 __attribute__nonnull__(pTHX_1)
aec46f14
AL		 4306 __attribute__nonnull__(pTHX_2)
4307 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4308#define PERL_ARGS_ASSERT_RVPV_DUP \
4309 assert(dstr); assert(sstr); assert(param)
53c1dcc0 4310
66ceb532 4311PERL_CALLCONV yy_parser* Perl_parser_dup(pTHX_ const yy_parser *const proto, CLONE_PARAMS *const param)
780a5241 4312 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4313#define PERL_ARGS_ASSERT_PARSER_DUP \
4314 assert(param)
780a5241 4315
4674ade5 4316#endif
53c1dcc0
AL		 4317PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX)
4318 __attribute__malloc__
4319 __attribute__warn_unused_result__;
4320
1eb6e4ca 4321PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *const tbl, const void *const sv)
53c1dcc0 4322 __attribute__warn_unused_result__
3d4dd4c7 4323 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4324#define PERL_ARGS_ASSERT_PTR_TABLE_FETCH \
4325 assert(tbl)
53c1dcc0 4326
1eb6e4ca 4327PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv)
53c1dcc0
AL		 4328 __attribute__nonnull__(pTHX_1)
4329 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4330#define PERL_ARGS_ASSERT_PTR_TABLE_STORE \
4331 assert(tbl); assert(newsv)
53c1dcc0 4332
1eb6e4ca 4333PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl)
abb2c242 4334 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4335#define PERL_ARGS_ASSERT_PTR_TABLE_SPLIT \
4336 assert(tbl)
f54cb97a 4337
5c5ade3e
NC		 4338PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
4339 __attribute__deprecated__;
4340
1eb6e4ca 4341PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl);
4674ade5 4342#if defined(USE_ITHREADS)
504618e9
AL		 4343# if defined(HAVE_INTERP_INTERN)
4344PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst)
4345 __attribute__nonnull__(pTHX_1)
4346 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4347#define PERL_ARGS_ASSERT_SYS_INTERN_DUP \
4348 assert(src); assert(dst)
504618e9 4349
ddacffcf
SH		 4350# endif
4351#endif
4352#if defined(HAVE_INTERP_INTERN)
3dbbd0f5
GS		 4353PERL_CALLCONV void Perl_sys_intern_clear(pTHX);
4354PERL_CALLCONV void Perl_sys_intern_init(pTHX);
4355#endif
cae16f1a 4356
4048f010 4357PERL_CALLCONV const char * Perl_custom_op_name(pTHX_ const OP *o)
53c1dcc0 4358 __attribute__warn_unused_result__
abb2c242 4359 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4360#define PERL_ARGS_ASSERT_CUSTOM_OP_NAME \
4361 assert(o)
f54cb97a 4362
4048f010 4363PERL_CALLCONV const char * Perl_custom_op_desc(pTHX_ const OP *o)
53c1dcc0 4364 __attribute__warn_unused_result__
abb2c242 4365 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4366#define PERL_ARGS_ASSERT_CUSTOM_OP_DESC \
4367 assert(o)
cae16f1a 4368
f54cb97a 4369
c48640ec
AL		 4370PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *sv);
4371/* PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv); */
eba16661 4372PERL_CALLCONV bool Perl_sv_destroyable(pTHX_ SV *sv);
d0647d4e 4373#ifdef NO_MATHOMS
c48640ec 4374/* PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv); */
d0647d4e
NC		 4375#else
4376PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv);
4377#endif
62375a60 4378PERL_CALLCONV int Perl_nothreadhook(pTHX);
1d7c1841 4379
1d7c1841 4380END_EXTERN_C
1d7c1841 4381
0cb96387 4382#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
c395bd6c 4383STATIC I32 S_do_trans_simple(pTHX_ SV * const sv)
53c1dcc0 4384 __attribute__warn_unused_result__
abb2c242 4385 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4386#define PERL_ARGS_ASSERT_DO_TRANS_SIMPLE \
4387 assert(sv)
f54cb97a 4388
c395bd6c 4389STATIC I32 S_do_trans_count(pTHX_ SV * const sv)
53c1dcc0 4390 __attribute__warn_unused_result__
abb2c242 4391 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4392#define PERL_ARGS_ASSERT_DO_TRANS_COUNT \
4393 assert(sv)
f54cb97a 4394
c395bd6c 4395STATIC I32 S_do_trans_complex(pTHX_ SV * const sv)
53c1dcc0 4396 __attribute__warn_unused_result__
abb2c242 4397 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4398#define PERL_ARGS_ASSERT_DO_TRANS_COMPLEX \
4399 assert(sv)
f54cb97a 4400
c395bd6c 4401STATIC I32 S_do_trans_simple_utf8(pTHX_ SV * const sv)
53c1dcc0 4402 __attribute__warn_unused_result__
abb2c242 4403 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4404#define PERL_ARGS_ASSERT_DO_TRANS_SIMPLE_UTF8 \
4405 assert(sv)
f54cb97a 4406
c395bd6c 4407STATIC I32 S_do_trans_count_utf8(pTHX_ SV * const sv)
53c1dcc0 4408 __attribute__warn_unused_result__
abb2c242 4409 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4410#define PERL_ARGS_ASSERT_DO_TRANS_COUNT_UTF8 \
4411 assert(sv)
f54cb97a 4412
c395bd6c 4413STATIC I32 S_do_trans_complex_utf8(pTHX_ SV * const sv)
53c1dcc0 4414 __attribute__warn_unused_result__
abb2c242 4415 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4416#define PERL_ARGS_ASSERT_DO_TRANS_COMPLEX_UTF8 \
4417 assert(sv)
f54cb97a 4418
cea2e8a9 4419#endif
1d7c1841 4420
0cb96387 4421#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
fe9845cc 4422STATIC void S_gv_init_sv(pTHX_ GV *gv, const svtype sv_type)
53c1dcc0 4423 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4424#define PERL_ARGS_ASSERT_GV_INIT_SV \
4425 assert(gv)
53c1dcc0 4426
7d3b1f61
BB		 4427STATIC HV* S_gv_get_super_pkg(pTHX_ const char* name, I32 namelen)
4428 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4429#define PERL_ARGS_ASSERT_GV_GET_SUPER_PKG \
4430 assert(name)
7d3b1f61 4431
44a2ac75
YO		 4432STATIC HV* S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methpv, const U32 flags)
4433 __attribute__nonnull__(pTHX_1)
4434 __attribute__nonnull__(pTHX_2)
4435 __attribute__nonnull__(pTHX_3)
4436 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4437#define PERL_ARGS_ASSERT_REQUIRE_TIE_MOD \
4438 assert(gv); assert(varpv); assert(namesv); assert(methpv)
a3b680e6 4439
864dbfa3 4440#endif
1d7c1841 4441
e5973ed5 4442PERL_CALLCONV void* Perl_get_arena(pTHX_ const size_t arenasize, const svtype bodytype)
5e258f8c
JC		 4443 __attribute__malloc__
4444 __attribute__warn_unused_result__;
4445
4446
0cb96387 4447#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
53c1dcc0
AL		 4448STATIC void S_hsplit(pTHX_ HV *hv)
4449 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4450#define PERL_ARGS_ASSERT_HSPLIT \
4451 assert(hv)
53c1dcc0 4452
3abe233e
AL		 4453STATIC void S_hfreeentries(pTHX_ HV *hv)
4454 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4455#define PERL_ARGS_ASSERT_HFREEENTRIES \
4456 assert(hv)
3abe233e 4457
6eb667c6 4458STATIC I32 S_anonymise_cv(pTHX_ HEK *stash, SV *val)
4fec3216
RGS		 4459 __attribute__nonnull__(pTHX_2);
4460#define PERL_ARGS_ASSERT_ANONYMISE_CV \
4461 assert(val)
4462
1df70142 4463STATIC HE* S_new_he(pTHX)
53c1dcc0 4464 __attribute__malloc__
1df70142
AL		 4465 __attribute__warn_unused_result__;
4466
44af46ee 4467STATIC HEK* S_save_hek_flags(const char *str, I32 len, U32 hash, int flags)
53c1dcc0 4468 __attribute__malloc__
1df70142 4469 __attribute__warn_unused_result__
44af46ee 4470 __attribute__nonnull__(1);
7918f24d
NC		 4471#define PERL_ARGS_ASSERT_SAVE_HEK_FLAGS \
4472 assert(str)
1df70142 4473
b0e6ae5b
SH		 4474STATIC void S_hv_magic_check(HV *hv, bool *needs_copy, bool *needs_store)
4475 __attribute__nonnull__(1)
4476 __attribute__nonnull__(2)
4477 __attribute__nonnull__(3);
7918f24d
NC		 4478#define PERL_ARGS_ASSERT_HV_MAGIC_CHECK \
4479 assert(hv); assert(needs_copy); assert(needs_store)
1df70142 4480
97ddebaf 4481STATIC void S_unshare_hek_or_pvn(pTHX_ const HEK* hek, const char* str, I32 len, U32 hash);
4048f010 4482STATIC HEK* S_share_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags)
1b6737cc
AL		 4483 __attribute__warn_unused_result__
4484 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4485#define PERL_ARGS_ASSERT_SHARE_HEK_FLAGS \
4486 assert(str)
1df70142 4487
f54cb97a 4488STATIC void S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg)
1df70142
AL		 4489 __attribute__noreturn__
4490 __attribute__nonnull__(pTHX_2)
4491 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4492#define PERL_ARGS_ASSERT_HV_NOTALLOWED \
4493 assert(key); assert(msg)
f54cb97a 4494
44af46ee 4495STATIC struct xpvhv_aux* S_hv_auxinit(HV *hv)
44af46ee 4496 __attribute__nonnull__(1);
7918f24d
NC		 4497#define PERL_ARGS_ASSERT_HV_AUXINIT \
4498 assert(hv)
53c1dcc0 4499
4048f010
NC		 4500STATIC SV* S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
4501STATIC void S_clear_placeholders(pTHX_ HV *hv, U32 items)
7b0bddfa 4502 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4503#define PERL_ARGS_ASSERT_CLEAR_PLACEHOLDERS \
4504 assert(hv)
7b0bddfa
NC		 4505
4506STATIC SV * S_refcounted_he_value(pTHX_ const struct refcounted_he *he)
b3ca2e83 4507 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4508#define PERL_ARGS_ASSERT_REFCOUNTED_HE_VALUE \
4509 assert(he)
b3ca2e83 4510
864dbfa3 4511#endif
1d7c1841 4512
0cb96387 4513#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
504618e9
AL		 4514STATIC void S_save_magic(pTHX_ I32 mgs_ix, SV *sv)
4515 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4516#define PERL_ARGS_ASSERT_SAVE_MAGIC \
4517 assert(sv)
504618e9
AL		 4518
4519STATIC int S_magic_methpack(pTHX_ SV *sv, const MAGIC *mg, const char *meth)
4520 __attribute__nonnull__(pTHX_1)
4521 __attribute__nonnull__(pTHX_2)
4522 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4523#define PERL_ARGS_ASSERT_MAGIC_METHPACK \
4524 assert(sv); assert(mg); assert(meth)
504618e9 4525
c7a0c747 4526STATIC SV* S_magic_methcall1(pTHX_ SV *sv, const MAGIC *mg, const char *meth, U32 flags, int n, SV *val)
504618e9
AL		 4527 __attribute__nonnull__(pTHX_1)
4528 __attribute__nonnull__(pTHX_2)
4529 __attribute__nonnull__(pTHX_3);
efaf3674 4530#define PERL_ARGS_ASSERT_MAGIC_METHCALL1 \
7918f24d 4531 assert(sv); assert(mg); assert(meth)
504618e9 4532
251cc6a6 4533STATIC void S_restore_magic(pTHX_ const void *p);
8772537c
AL		 4534STATIC void S_unwind_handler_stack(pTHX_ const void *p)
4535 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4536#define PERL_ARGS_ASSERT_UNWIND_HANDLER_STACK \
4537 assert(p)
8772537c
AL		 4538
4539
864dbfa3 4540#endif
1d7c1841 4541
0cb96387 4542#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
504618e9
AL		 4543PERL_CALLCONV OP* Perl_ck_anoncode(pTHX_ OP *o)
4544 __attribute__warn_unused_result__
4545 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4546#define PERL_ARGS_ASSERT_CK_ANONCODE \
4547 assert(o)
504618e9
AL		 4548
4549PERL_CALLCONV OP* Perl_ck_bitop(pTHX_ OP *o)
4550 __attribute__warn_unused_result__
4551 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4552#define PERL_ARGS_ASSERT_CK_BITOP \
4553 assert(o)
504618e9
AL		 4554
4555PERL_CALLCONV OP* Perl_ck_concat(pTHX_ OP *o)
4556 __attribute__warn_unused_result__
4557 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4558#define PERL_ARGS_ASSERT_CK_CONCAT \
4559 assert(o)
504618e9
AL		 4560
4561PERL_CALLCONV OP* Perl_ck_defined(pTHX_ OP *o)
4562 __attribute__warn_unused_result__
4563 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4564#define PERL_ARGS_ASSERT_CK_DEFINED \
4565 assert(o)
504618e9
AL		 4566
4567PERL_CALLCONV OP* Perl_ck_delete(pTHX_ OP *o)
4568 __attribute__warn_unused_result__
4569 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4570#define PERL_ARGS_ASSERT_CK_DELETE \
4571 assert(o)
504618e9
AL		 4572
4573PERL_CALLCONV OP* Perl_ck_die(pTHX_ OP *o)
4574 __attribute__warn_unused_result__
4575 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4576#define PERL_ARGS_ASSERT_CK_DIE \
4577 assert(o)
504618e9
AL		 4578
4579PERL_CALLCONV OP* Perl_ck_eof(pTHX_ OP *o)
4580 __attribute__warn_unused_result__
4581 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4582#define PERL_ARGS_ASSERT_CK_EOF \
4583 assert(o)
504618e9
AL		 4584
4585PERL_CALLCONV OP* Perl_ck_eval(pTHX_ OP *o)
4586 __attribute__warn_unused_result__
4587 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4588#define PERL_ARGS_ASSERT_CK_EVAL \
4589 assert(o)
504618e9
AL		 4590
4591PERL_CALLCONV OP* Perl_ck_exec(pTHX_ OP *o)
4592 __attribute__warn_unused_result__
4593 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4594#define PERL_ARGS_ASSERT_CK_EXEC \
4595 assert(o)
504618e9
AL		 4596
4597PERL_CALLCONV OP* Perl_ck_exists(pTHX_ OP *o)
4598 __attribute__warn_unused_result__
4599 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4600#define PERL_ARGS_ASSERT_CK_EXISTS \
4601 assert(o)
504618e9
AL		 4602
4603PERL_CALLCONV OP* Perl_ck_exit(pTHX_ OP *o)
4604 __attribute__warn_unused_result__
4605 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4606#define PERL_ARGS_ASSERT_CK_EXIT \
4607 assert(o)
504618e9
AL		 4608
4609PERL_CALLCONV OP* Perl_ck_ftst(pTHX_ OP *o)
4610 __attribute__warn_unused_result__
4611 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4612#define PERL_ARGS_ASSERT_CK_FTST \
4613 assert(o)
504618e9
AL		 4614
4615PERL_CALLCONV OP* Perl_ck_fun(pTHX_ OP *o)
4616 __attribute__warn_unused_result__
4617 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4618#define PERL_ARGS_ASSERT_CK_FUN \
4619 assert(o)
504618e9
AL		 4620
4621PERL_CALLCONV OP* Perl_ck_glob(pTHX_ OP *o)
4622 __attribute__warn_unused_result__
4623 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4624#define PERL_ARGS_ASSERT_CK_GLOB \
4625 assert(o)
504618e9
AL		 4626
4627PERL_CALLCONV OP* Perl_ck_grep(pTHX_ OP *o)
4628 __attribute__warn_unused_result__
4629 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4630#define PERL_ARGS_ASSERT_CK_GREP \
4631 assert(o)
504618e9
AL		 4632
4633PERL_CALLCONV OP* Perl_ck_index(pTHX_ OP *o)
4634 __attribute__warn_unused_result__
4635 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4636#define PERL_ARGS_ASSERT_CK_INDEX \
4637 assert(o)
504618e9
AL		 4638
4639PERL_CALLCONV OP* Perl_ck_join(pTHX_ OP *o)
4640 __attribute__warn_unused_result__
4641 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4642#define PERL_ARGS_ASSERT_CK_JOIN \
4643 assert(o)
504618e9 4644
504618e9
AL		 4645PERL_CALLCONV OP* Perl_ck_lfun(pTHX_ OP *o)
4646 __attribute__warn_unused_result__
4647 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4648#define PERL_ARGS_ASSERT_CK_LFUN \
4649 assert(o)
504618e9
AL		 4650
4651PERL_CALLCONV OP* Perl_ck_listiob(pTHX_ OP *o)
4652 __attribute__warn_unused_result__
4653 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4654#define PERL_ARGS_ASSERT_CK_LISTIOB \
4655 assert(o)
504618e9
AL		 4656
4657PERL_CALLCONV OP* Perl_ck_match(pTHX_ OP *o)
4658 __attribute__warn_unused_result__
4659 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4660#define PERL_ARGS_ASSERT_CK_MATCH \
4661 assert(o)
504618e9
AL		 4662
4663PERL_CALLCONV OP* Perl_ck_method(pTHX_ OP *o)
4664 __attribute__warn_unused_result__
4665 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4666#define PERL_ARGS_ASSERT_CK_METHOD \
4667 assert(o)
504618e9
AL		 4668
4669PERL_CALLCONV OP* Perl_ck_null(pTHX_ OP *o)
4670 __attribute__warn_unused_result__
4671 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4672#define PERL_ARGS_ASSERT_CK_NULL \
4673 assert(o)
504618e9
AL		 4674
4675PERL_CALLCONV OP* Perl_ck_open(pTHX_ OP *o)
4676 __attribute__warn_unused_result__
4677 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4678#define PERL_ARGS_ASSERT_CK_OPEN \
4679 assert(o)
504618e9 4680
e4b7ebf3
RGS		 4681PERL_CALLCONV OP* Perl_ck_readline(pTHX_ OP *o)
4682 __attribute__warn_unused_result__
4683 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4684#define PERL_ARGS_ASSERT_CK_READLINE \
4685 assert(o)
e4b7ebf3 4686
504618e9
AL		 4687PERL_CALLCONV OP* Perl_ck_repeat(pTHX_ OP *o)
4688 __attribute__warn_unused_result__
4689 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4690#define PERL_ARGS_ASSERT_CK_REPEAT \
4691 assert(o)
504618e9
AL		 4692
4693PERL_CALLCONV OP* Perl_ck_require(pTHX_ OP *o)
4694 __attribute__warn_unused_result__
4695 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4696#define PERL_ARGS_ASSERT_CK_REQUIRE \
4697 assert(o)
504618e9 4698
504618e9
AL		 4699PERL_CALLCONV OP* Perl_ck_return(pTHX_ OP *o)
4700 __attribute__warn_unused_result__
4701 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4702#define PERL_ARGS_ASSERT_CK_RETURN \
4703 assert(o)
504618e9
AL		 4704
4705PERL_CALLCONV OP* Perl_ck_rfun(pTHX_ OP *o)
4706 __attribute__warn_unused_result__
4707 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4708#define PERL_ARGS_ASSERT_CK_RFUN \
4709 assert(o)
504618e9
AL		 4710
4711PERL_CALLCONV OP* Perl_ck_rvconst(pTHX_ OP *o)
4712 __attribute__warn_unused_result__
4713 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4714#define PERL_ARGS_ASSERT_CK_RVCONST \
4715 assert(o)
504618e9
AL		 4716
4717PERL_CALLCONV OP* Perl_ck_sassign(pTHX_ OP *o)
4718 __attribute__warn_unused_result__
4719 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4720#define PERL_ARGS_ASSERT_CK_SASSIGN \
4721 assert(o)
504618e9
AL		 4722
4723PERL_CALLCONV OP* Perl_ck_select(pTHX_ OP *o)
4724 __attribute__warn_unused_result__
4725 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4726#define PERL_ARGS_ASSERT_CK_SELECT \
4727 assert(o)
504618e9
AL		 4728
4729PERL_CALLCONV OP* Perl_ck_shift(pTHX_ OP *o)
4730 __attribute__warn_unused_result__
4731 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4732#define PERL_ARGS_ASSERT_CK_SHIFT \
4733 assert(o)
504618e9
AL		 4734
4735PERL_CALLCONV OP* Perl_ck_sort(pTHX_ OP *o)
4736 __attribute__warn_unused_result__
4737 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4738#define PERL_ARGS_ASSERT_CK_SORT \
4739 assert(o)
504618e9
AL		 4740
4741PERL_CALLCONV OP* Perl_ck_spair(pTHX_ OP *o)
4742 __attribute__warn_unused_result__
4743 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4744#define PERL_ARGS_ASSERT_CK_SPAIR \
4745 assert(o)
504618e9
AL		 4746
4747PERL_CALLCONV OP* Perl_ck_split(pTHX_ OP *o)
4748 __attribute__warn_unused_result__
4749 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4750#define PERL_ARGS_ASSERT_CK_SPLIT \
4751 assert(o)
504618e9
AL		 4752
4753PERL_CALLCONV OP* Perl_ck_subr(pTHX_ OP *o)
4754 __attribute__warn_unused_result__
4755 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4756#define PERL_ARGS_ASSERT_CK_SUBR \
4757 assert(o)
504618e9
AL		 4758
4759PERL_CALLCONV OP* Perl_ck_substr(pTHX_ OP *o)
4760 __attribute__warn_unused_result__
4761 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4762#define PERL_ARGS_ASSERT_CK_SUBSTR \
4763 assert(o)
504618e9
AL		 4764
4765PERL_CALLCONV OP* Perl_ck_svconst(pTHX_ OP *o)
4766 __attribute__warn_unused_result__
4767 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4768#define PERL_ARGS_ASSERT_CK_SVCONST \
4769 assert(o)
504618e9
AL		 4770
4771PERL_CALLCONV OP* Perl_ck_trunc(pTHX_ OP *o)
4772 __attribute__warn_unused_result__
4773 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4774#define PERL_ARGS_ASSERT_CK_TRUNC \
4775 assert(o)
504618e9
AL		 4776
4777PERL_CALLCONV OP* Perl_ck_unpack(pTHX_ OP *o)
4778 __attribute__warn_unused_result__
4779 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4780#define PERL_ARGS_ASSERT_CK_UNPACK \
4781 assert(o)
504618e9 4782
878d132a
NC		 4783PERL_CALLCONV OP* Perl_ck_each(pTHX_ OP *o)
4784 __attribute__warn_unused_result__
4785 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4786#define PERL_ARGS_ASSERT_CK_EACH \
4787 assert(o)
878d132a 4788
44af46ee 4789STATIC bool S_is_handle_constructor(const OP *o, I32 numargs)
504618e9 4790 __attribute__warn_unused_result__
44af46ee 4791 __attribute__nonnull__(1);
7918f24d
NC		 4792#define PERL_ARGS_ASSERT_IS_HANDLE_CONSTRUCTOR \
4793 assert(o)
504618e9
AL		 4794
4795STATIC I32 S_is_list_assignment(pTHX_ const OP *o)
4796 __attribute__warn_unused_result__;
4797
c4bd3ae5 4798# ifdef USE_ITHREADS
aec42b5d
NC		 4799STATIC void S_forget_pmop(pTHX_ PMOP *const o, U32 flags)
4800 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4801#define PERL_ARGS_ASSERT_FORGET_PMOP \
4802 assert(o)
aec42b5d 4803
c4bd3ae5
NC		 4804# else
4805STATIC void S_forget_pmop(pTHX_ PMOP *const o)
4806 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4807#define PERL_ARGS_ASSERT_FORGET_PMOP \
4808 assert(o)
c4bd3ae5
NC		 4809
4810# endif
bfd0ff22
NC		 4811STATIC void S_find_and_forget_pmops(pTHX_ OP *o)
4812 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4813#define PERL_ARGS_ASSERT_FIND_AND_FORGET_PMOPS \
4814 assert(o)
bfd0ff22 4815
504618e9
AL		 4816STATIC void S_cop_free(pTHX_ COP *cop)
4817 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4818#define PERL_ARGS_ASSERT_COP_FREE \
4819 assert(cop)
504618e9 4820
cea2e8a9 4821STATIC OP* S_modkids(pTHX_ OP *o, I32 type);
504618e9
AL		 4822STATIC OP* S_scalarboolean(pTHX_ OP *o)
4823 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4824#define PERL_ARGS_ASSERT_SCALARBOOLEAN \
4825 assert(o)
504618e9
AL		 4826
4827STATIC OP* S_newDEFSVOP(pTHX)
4828 __attribute__warn_unused_result__;
4829
71c4dbc3
VP		 4830STATIC OP* S_search_const(pTHX_ OP *o)
4831 __attribute__warn_unused_result__
4832 __attribute__nonnull__(pTHX_1);
4833#define PERL_ARGS_ASSERT_SEARCH_CONST \
4834 assert(o)
4835
504618e9
AL		 4836STATIC OP* S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp)
4837 __attribute__warn_unused_result__
4838 __attribute__nonnull__(pTHX_3)
4839 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4840#define PERL_ARGS_ASSERT_NEW_LOGOP \
4841 assert(firstp); assert(otherp)
504618e9
AL		 4842
4843STATIC void S_simplify_sort(pTHX_ OP *o)
4844 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4845#define PERL_ARGS_ASSERT_SIMPLIFY_SORT \
4846 assert(o)
504618e9 4847
aec46f14
AL		 4848STATIC const char* S_gv_ename(pTHX_ GV *gv)
4849 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4850#define PERL_ARGS_ASSERT_GV_ENAME \
4851 assert(gv)
aec46f14 4852
44af46ee
RGS		 4853STATIC bool S_scalar_mod_type(const OP *o, I32 type)
4854 __attribute__warn_unused_result__
4855 __attribute__nonnull__(1);
7918f24d
NC		 4856#define PERL_ARGS_ASSERT_SCALAR_MOD_TYPE \
4857 assert(o)
aec46f14
AL		 4858
4859STATIC OP * S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
4860 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4861#define PERL_ARGS_ASSERT_MY_KID \
4862 assert(imopsp)
aec46f14
AL		 4863
4864STATIC OP * S_dup_attrlist(pTHX_ OP *o)
4865 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4866#define PERL_ARGS_ASSERT_DUP_ATTRLIST \
4867 assert(o)
aec46f14
AL		 4868
4869STATIC void S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my)
4870 __attribute__nonnull__(pTHX_1)
4871 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4872#define PERL_ARGS_ASSERT_APPLY_ATTRS \
4873 assert(stash); assert(target)
aec46f14
AL		 4874
4875STATIC void S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp)
4876 __attribute__nonnull__(pTHX_1)
4877 __attribute__nonnull__(pTHX_2)
4878 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4879#define PERL_ARGS_ASSERT_APPLY_ATTRS_MY \
4880 assert(stash); assert(target); assert(imopsp)
aec46f14 4881
504618e9
AL		 4882STATIC void S_bad_type(pTHX_ I32 n, const char *t, const char *name, const OP *kid)
4883 __attribute__nonnull__(pTHX_2)
4884 __attribute__nonnull__(pTHX_3)
4885 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4886#define PERL_ARGS_ASSERT_BAD_TYPE \
4887 assert(t); assert(name); assert(kid)
504618e9
AL		 4888
4889STATIC void S_no_bareword_allowed(pTHX_ const OP *o)
4890 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4891#define PERL_ARGS_ASSERT_NO_BAREWORD_ALLOWED \
4892 assert(o)
504618e9
AL		 4893
4894STATIC OP* S_no_fh_allowed(pTHX_ OP *o)
4895 __attribute__warn_unused_result__
4896 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4897#define PERL_ARGS_ASSERT_NO_FH_ALLOWED \
4898 assert(o)
504618e9
AL		 4899
4900STATIC OP* S_too_few_arguments(pTHX_ OP *o, const char* name)
4901 __attribute__warn_unused_result__
4902 __attribute__nonnull__(pTHX_1)
4903 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4904#define PERL_ARGS_ASSERT_TOO_FEW_ARGUMENTS \
4905 assert(o); assert(name)
504618e9
AL		 4906
4907STATIC OP* S_too_many_arguments(pTHX_ OP *o, const char* name)
4908 __attribute__warn_unused_result__
4909 __attribute__nonnull__(pTHX_1)
4910 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4911#define PERL_ARGS_ASSERT_TOO_MANY_ARGUMENTS \
4912 assert(o); assert(name)
504618e9 4913
ef519e13 4914STATIC bool S_looks_like_bool(pTHX_ const OP* o)
0d863452 4915 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4916#define PERL_ARGS_ASSERT_LOOKS_LIKE_BOOL \
4917 assert(o)
0d863452
RH		 4918
4919STATIC OP* S_newGIVWHENOP(pTHX_ OP* cond, OP *block, I32 enter_opcode, I32 leave_opcode, PADOFFSET entertarg)
4920 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4921#define PERL_ARGS_ASSERT_NEWGIVWHENOP \
4922 assert(block)
0d863452
RH		 4923
4924STATIC OP* S_ref_array_or_hash(pTHX_ OP* cond);
33fb7a6e
NC		 4925STATIC void S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, CV *const cv)
4926 __attribute__nonnull__(pTHX_1)
4927 __attribute__nonnull__(pTHX_2)
4928 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 4929#define PERL_ARGS_ASSERT_PROCESS_SPECIAL_BLOCKS \
4930 assert(fullname); assert(gv); assert(cv)
33fb7a6e 4931
c7e45529
AE		 4932#endif
4933#if defined(PL_OP_SLAB_ALLOC)
e91d68d5 4934PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ size_t sz)
aec46f14 4935 __attribute__malloc__
504618e9
AL		 4936 __attribute__warn_unused_result__;
4937
aec46f14
AL		 4938PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op)
4939 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4940#define PERL_ARGS_ASSERT_SLAB_FREE \
4941 assert(op)
aec46f14 4942
f1fac472
NC		 4943# if defined(PERL_DEBUG_READONLY_OPS)
4944PERL_CALLCONV void Perl_pending_Slabs_to_ro(pTHX);
fc97af9c
NC		 4945PERL_CALLCONV OP * Perl_op_refcnt_inc(pTHX_ OP *o);
4946PERL_CALLCONV PADOFFSET Perl_op_refcnt_dec(pTHX_ OP *o)
4947 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4948#define PERL_ARGS_ASSERT_OP_REFCNT_DEC \
4949 assert(o)
fc97af9c 4950
f1fac472
NC		 4951# if defined(PERL_IN_OP_C)
4952STATIC void S_Slab_to_rw(pTHX_ void *op)
4953 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 4954#define PERL_ARGS_ASSERT_SLAB_TO_RW \
4955 assert(op)
f1fac472
NC		 4956
4957# endif
4958# endif
864dbfa3 4959#endif
1d7c1841 4960
0cb96387 4961#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
2f9285f8
DM		 4962STATIC void S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp)
4963 __attribute__nonnull__(pTHX_1)
4964 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4965#define PERL_ARGS_ASSERT_FIND_BEGINNING \
4966 assert(linestr_sv); assert(rsfp)
009d90df 4967
f20b2998 4968STATIC void S_forbid_setid(pTHX_ const char flag, const bool suidscript);
08d0d8ab
NC		 4969STATIC void S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags)
4970 __attribute__nonnull__(pTHX_1);
4971#define PERL_ARGS_ASSERT_INCPUSH \
4972 assert(dir)
4973
50d61629 4974STATIC void S_incpush_use_sep(pTHX_ const char *p, STRLEN len, U32 flags)
4705144d
NC		 4975 __attribute__nonnull__(pTHX_1);
4976#define PERL_ARGS_ASSERT_INCPUSH_USE_SEP \
4977 assert(p)
4978
cea2e8a9
GS		 4979STATIC void S_init_interp(pTHX);
4980STATIC void S_init_ids(pTHX);
cea2e8a9 4981STATIC void S_init_main_stash(pTHX);
2cace6ac 4982STATIC void S_init_perllib(pTHX);
aec46f14
AL		 4983STATIC void S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env)
4984 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 4985#define PERL_ARGS_ASSERT_INIT_POSTDUMP_SYMBOLS \
4986 assert(argv)
aec46f14 4987
cea2e8a9 4988STATIC void S_init_predump_symbols(pTHX);
f54cb97a 4989STATIC void S_my_exit_jump(pTHX)
abb2c242 4990 __attribute__noreturn__;
f54cb97a 4991
cea2e8a9 4992STATIC void S_nuke_stacks(pTHX);
f20b2998 4993STATIC int S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript, PerlIO **rsfpp)
aec46f14 4994 __attribute__nonnull__(pTHX_1)
cdd8118e 4995 __attribute__nonnull__(pTHX_3)
2f352907 4996 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 4997#define PERL_ARGS_ASSERT_OPEN_SCRIPT \
4998 assert(scriptname); assert(suidscript); assert(rsfpp)
aec46f14
AL		 4999
5000STATIC void S_usage(pTHX_ const char *name)
5001 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5002#define PERL_ARGS_ASSERT_USAGE \
5003 assert(name)
aec46f14 5004
cc69b689 5005#ifndef SETUID_SCRIPTS_ARE_SECURE_NOW
ec2019ad
NC		 5006STATIC void S_validate_suid(pTHX_ PerlIO *rsfp)
5007 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5008#define PERL_ARGS_ASSERT_VALIDATE_SUID \
5009 assert(rsfp)
ec2019ad 5010
ec2019ad 5011#endif
aec46f14 5012
14dd3ad8 5013STATIC void* S_parse_body(pTHX_ char **env, XSINIT_t xsinit);
f54cb97a 5014STATIC void S_run_body(pTHX_ I32 oldscope)
abb2c242 5015 __attribute__noreturn__;
f54cb97a 5016
7ffdaae6 5017STATIC SV * S_incpush_if_exists(pTHX_ AV *const av, SV *dir, SV *const stem)
3a9a9ba7 5018 __attribute__nonnull__(pTHX_1)
7ffdaae6
NC		 5019 __attribute__nonnull__(pTHX_2)
5020 __attribute__nonnull__(pTHX_3);
7918f24d 5021#define PERL_ARGS_ASSERT_INCPUSH_IF_EXISTS \
7ffdaae6 5022 assert(av); assert(dir); assert(stem)
0bd48802 5023
864dbfa3 5024#endif
1d7c1841 5025
0cb96387 5026#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
7332a6c4 5027STATIC OP* S_do_delete_local(pTHX);
901017d6 5028STATIC SV* S_refto(pTHX_ SV* sv)
aec46f14
AL		 5029 __attribute__warn_unused_result__
5030 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5031#define PERL_ARGS_ASSERT_REFTO \
5032 assert(sv)
901017d6 5033
a6ec74c1 5034#endif
dc3c76f8 5035#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
fe9845cc 5036PERL_CALLCONV GV* Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const svtype type, SV ***spp)
dc3c76f8
NC		 5037 __attribute__warn_unused_result__
5038 __attribute__nonnull__(pTHX_1)
5039 __attribute__nonnull__(pTHX_2)
5040 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5041#define PERL_ARGS_ASSERT_SOFTREF2XV \
5042 assert(sv); assert(what); assert(spp)
dc3c76f8
NC		 5043
5044#endif
a6ec74c1
JH		 5045
5046#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
aec46f14
AL		 5047STATIC I32 S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s)
5048 __attribute__nonnull__(pTHX_1)
5049 __attribute__nonnull__(pTHX_2)
5050 __attribute__nonnull__(pTHX_3)
5051 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5052#define PERL_ARGS_ASSERT_UNPACK_REC \
5053 assert(symptr); assert(s); assert(strbeg); assert(strend)
aec46f14
AL		 5054
5055STATIC SV ** S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist)
5056 __attribute__nonnull__(pTHX_1)
5057 __attribute__nonnull__(pTHX_2)
5058 __attribute__nonnull__(pTHX_3)
5059 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5060#define PERL_ARGS_ASSERT_PACK_REC \
5061 assert(cat); assert(symptr); assert(beglist); assert(endlist)
aec46f14 5062
4373e329 5063STATIC SV* S_mul128(pTHX_ SV *sv, U8 m)
abb2c242 5064 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5065#define PERL_ARGS_ASSERT_MUL128 \
5066 assert(sv)
f54cb97a 5067
4373e329 5068STATIC I32 S_measure_struct(pTHX_ struct tempsym* symptr)
abb2c242 5069 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5070#define PERL_ARGS_ASSERT_MEASURE_STRUCT \
5071 assert(symptr)
f54cb97a 5072
4373e329 5073STATIC bool S_next_symbol(pTHX_ struct tempsym* symptr)
abb2c242 5074 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5075#define PERL_ARGS_ASSERT_NEXT_SYMBOL \
5076 assert(symptr)
f54cb97a 5077
4373e329 5078STATIC SV* S_is_an_int(pTHX_ const char *s, STRLEN l)
1df70142 5079 __attribute__warn_unused_result__
abb2c242 5080 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5081#define PERL_ARGS_ASSERT_IS_AN_INT \
5082 assert(s)
f54cb97a 5083
4373e329 5084STATIC int S_div128(pTHX_ SV *pnum, bool *done)
abb2c242
JH		 5085 __attribute__nonnull__(pTHX_1)
5086 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5087#define PERL_ARGS_ASSERT_DIV128 \
5088 assert(pnum); assert(done)
f54cb97a 5089
4048f010 5090STATIC const char * S_group_end(pTHX_ const char *patptr, const char *patend, char ender)
abb2c242
JH		 5091 __attribute__nonnull__(pTHX_1)
5092 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5093#define PERL_ARGS_ASSERT_GROUP_END \
5094 assert(patptr); assert(patend)
f54cb97a 5095
4048f010 5096STATIC const char * S_get_num(pTHX_ const char *patptr, I32 *lenptr)
255164ba 5097 __attribute__warn_unused_result__
abb2c242
JH		 5098 __attribute__nonnull__(pTHX_1)
5099 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5100#define PERL_ARGS_ASSERT_GET_NUM \
5101 assert(patptr); assert(lenptr)
f54cb97a 5102
aec46f14
AL		 5103STATIC bool S_need_utf8(const char *pat, const char *patend)
5104 __attribute__nonnull__(1)
5105 __attribute__nonnull__(2);
7918f24d
NC		 5106#define PERL_ARGS_ASSERT_NEED_UTF8 \
5107 assert(pat); assert(patend)
aec46f14
AL		 5108
5109STATIC char S_first_symbol(const char *pat, const char *patend)
5110 __attribute__nonnull__(1)
5111 __attribute__nonnull__(2);
7918f24d
NC		 5112#define PERL_ARGS_ASSERT_FIRST_SYMBOL \
5113 assert(pat); assert(patend)
aec46f14 5114
0bd48802
AL		 5115STATIC char * S_sv_exp_grow(pTHX_ SV *sv, STRLEN needed)
5116 __attribute__warn_unused_result__
5117 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5118#define PERL_ARGS_ASSERT_SV_EXP_GROW \
5119 assert(sv)
0bd48802 5120
14333449 5121STATIC char * S_bytes_to_uni(const U8 *start, STRLEN len, char *dest)
64844641 5122 __attribute__warn_unused_result__
14333449
AL		 5123 __attribute__nonnull__(1)
5124 __attribute__nonnull__(3);
7918f24d
NC		 5125#define PERL_ARGS_ASSERT_BYTES_TO_UNI \
5126 assert(start); assert(dest)
64844641 5127
864dbfa3 5128#endif
1d7c1841 5129
0cb96387 5130#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
901017d6
AL		 5131STATIC OP* S_docatch(pTHX_ OP *o)
5132 __attribute__warn_unused_result__;
5133
901017d6 5134STATIC OP* S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
aec46f14
AL		 5135 __attribute__warn_unused_result__
5136 __attribute__nonnull__(pTHX_1)
5137 __attribute__nonnull__(pTHX_2)
5138 __attribute__nonnull__(pTHX_3)
5139 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5140#define PERL_ARGS_ASSERT_DOFINDLABEL \
5141 assert(o); assert(label); assert(opstack); assert(oplimit)
901017d6
AL		 5142
5143STATIC OP* S_doparseform(pTHX_ SV *sv)
aec46f14
AL		 5144 __attribute__warn_unused_result__
5145 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5146#define PERL_ARGS_ASSERT_DOPARSEFORM \
5147 assert(sv)
901017d6
AL		 5148
5149STATIC bool S_num_overflow(NV value, I32 fldsize, I32 frcsize)
5150 __attribute__warn_unused_result__;
5151
5152STATIC I32 S_dopoptoeval(pTHX_ I32 startingblock)
5153 __attribute__warn_unused_result__;
5154
0d863452
RH		 5155STATIC I32 S_dopoptogiven(pTHX_ I32 startingblock)
5156 __attribute__warn_unused_result__;
5157
4373e329 5158STATIC I32 S_dopoptolabel(pTHX_ const char *label)
901017d6 5159 __attribute__warn_unused_result__
abb2c242 5160 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5161#define PERL_ARGS_ASSERT_DOPOPTOLABEL \
5162 assert(label)
f54cb97a 5163
901017d6
AL		 5164STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock)
5165 __attribute__warn_unused_result__;
901017d6
AL		 5166
5167STATIC I32 S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock)
aec46f14
AL		 5168 __attribute__warn_unused_result__
5169 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5170#define PERL_ARGS_ASSERT_DOPOPTOSUB_AT \
5171 assert(cxstk)
901017d6 5172
0d863452
RH		 5173STATIC I32 S_dopoptowhen(pTHX_ I32 startingblock)
5174 __attribute__warn_unused_result__;
5175
46c461b5
AL		 5176STATIC void S_save_lines(pTHX_ AV *array, SV *sv)
5177 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5178#define PERL_ARGS_ASSERT_SAVE_LINES \
5179 assert(sv)
46c461b5 5180
410be5db 5181STATIC bool S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq);
0786552a 5182STATIC PerlIO * S_check_type_and_open(pTHX_ const char *name)
ce8abf5f 5183 __attribute__warn_unused_result__
0786552a 5184 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5185#define PERL_ARGS_ASSERT_CHECK_TYPE_AND_OPEN \
5186 assert(name)
ce8abf5f 5187
75c20bac 5188#ifndef PERL_DISABLE_PMC
0786552a 5189STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const STRLEN namelen)
aec46f14 5190 __attribute__warn_unused_result__
0786552a 5191 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5192#define PERL_ARGS_ASSERT_DOOPEN_PM \
5193 assert(name)
901017d6 5194
75c20bac 5195#endif
44af46ee 5196STATIC bool S_path_is_absolute(const char *name)
901017d6 5197 __attribute__warn_unused_result__
44af46ee 5198 __attribute__nonnull__(1);
7918f24d
NC		 5199#define PERL_ARGS_ASSERT_PATH_IS_ABSOLUTE \
5200 assert(name)
f54cb97a 5201
0bd48802
AL		 5202STATIC I32 S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
5203 __attribute__warn_unused_result__
5204 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5205#define PERL_ARGS_ASSERT_RUN_USER_FILTER \
5206 assert(buf_sv)
0bd48802 5207
84679df5 5208STATIC PMOP* S_make_matcher(pTHX_ REGEXP* re)
0d863452
RH		 5209 __attribute__warn_unused_result__
5210 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5211#define PERL_ARGS_ASSERT_MAKE_MATCHER \
5212 assert(re)
0d863452
RH		 5213
5214STATIC bool S_matcher_matches_sv(pTHX_ PMOP* matcher, SV* sv)
5215 __attribute__warn_unused_result__
5216 __attribute__nonnull__(pTHX_1)
5217 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5218#define PERL_ARGS_ASSERT_MATCHER_MATCHES_SV \
5219 assert(matcher); assert(sv)
0d863452
RH		 5220
5221STATIC void S_destroy_matcher(pTHX_ PMOP* matcher)
5222 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5223#define PERL_ARGS_ASSERT_DESTROY_MATCHER \
5224 assert(matcher)
0d863452
RH		 5225
5226STATIC OP* S_do_smartmatch(pTHX_ HV* seen_this, HV* seen_other);
864dbfa3 5227#endif
1d7c1841 5228
0cb96387 5229#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
a28509cc
AL		 5230STATIC void S_do_oddball(pTHX_ HV *hash, SV **relem, SV **firstrelem)
5231 __attribute__nonnull__(pTHX_1)
5232 __attribute__nonnull__(pTHX_2)
5233 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5234#define PERL_ARGS_ASSERT_DO_ODDBALL \
5235 assert(hash); assert(relem); assert(firstrelem)
a28509cc 5236
a28509cc
AL		 5237STATIC SV* S_method_common(pTHX_ SV* meth, U32* hashp)
5238 __attribute__warn_unused_result__
5239 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5240#define PERL_ARGS_ASSERT_METHOD_COMMON \
5241 assert(meth)
a28509cc 5242
864dbfa3 5243#endif
1d7c1841 5244
f0f5dc9d 5245#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT)
31e9e0a3 5246STATIC I32 S_sv_ncmp(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5247 __attribute__nonnull__(pTHX_1)
5248 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5249#define PERL_ARGS_ASSERT_SV_NCMP \
5250 assert(a); assert(b)
f0f5dc9d 5251
31e9e0a3 5252STATIC I32 S_sv_i_ncmp(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5253 __attribute__nonnull__(pTHX_1)
5254 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5255#define PERL_ARGS_ASSERT_SV_I_NCMP \
5256 assert(a); assert(b)
f0f5dc9d 5257
31e9e0a3 5258STATIC I32 S_amagic_ncmp(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5259 __attribute__nonnull__(pTHX_1)
5260 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5261#define PERL_ARGS_ASSERT_AMAGIC_NCMP \
5262 assert(a); assert(b)
f0f5dc9d 5263
31e9e0a3 5264STATIC I32 S_amagic_i_ncmp(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5265 __attribute__nonnull__(pTHX_1)
5266 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5267#define PERL_ARGS_ASSERT_AMAGIC_I_NCMP \
5268 assert(a); assert(b)
f0f5dc9d 5269
31e9e0a3 5270STATIC I32 S_amagic_cmp(pTHX_ SV *const str1, SV *const str2)
f0f5dc9d
AL		 5271 __attribute__nonnull__(pTHX_1)
5272 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5273#define PERL_ARGS_ASSERT_AMAGIC_CMP \
5274 assert(str1); assert(str2)
f0f5dc9d 5275
31e9e0a3 5276STATIC I32 S_amagic_cmp_locale(pTHX_ SV *const str1, SV *const str2)
f0f5dc9d
AL		 5277 __attribute__nonnull__(pTHX_1)
5278 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5279#define PERL_ARGS_ASSERT_AMAGIC_CMP_LOCALE \
5280 assert(str1); assert(str2)
f0f5dc9d 5281
31e9e0a3 5282STATIC I32 S_sortcv(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5283 __attribute__nonnull__(pTHX_1)
5284 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5285#define PERL_ARGS_ASSERT_SORTCV \
5286 assert(a); assert(b)
f0f5dc9d 5287
31e9e0a3 5288STATIC I32 S_sortcv_xsub(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5289 __attribute__nonnull__(pTHX_1)
5290 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5291#define PERL_ARGS_ASSERT_SORTCV_XSUB \
5292 assert(a); assert(b)
f0f5dc9d 5293
31e9e0a3 5294STATIC I32 S_sortcv_stacked(pTHX_ SV *const a, SV *const b)
f0f5dc9d
AL		 5295 __attribute__nonnull__(pTHX_1)
5296 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5297#define PERL_ARGS_ASSERT_SORTCV_STACKED \
5298 assert(a); assert(b)
f0f5dc9d 5299
fe2ae508 5300STATIC void S_qsortsvu(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t compare)
fe2ae508 5301 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5302#define PERL_ARGS_ASSERT_QSORTSVU \
5303 assert(compare)
fe2ae508 5304
f0f5dc9d
AL		 5305#endif
5306
0cb96387 5307#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
b464bac0
AL		 5308STATIC OP* S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
5309 __attribute__nonnull__(pTHX_1)
5310 __attribute__nonnull__(pTHX_2)
5311 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5312#define PERL_ARGS_ASSERT_DOFORM \
5313 assert(cv); assert(gv); assert(retop)
b464bac0 5314
cea2e8a9 5315# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
b464bac0
AL		 5316STATIC int S_dooneliner(pTHX_ const char *cmd, const char *filename)
5317 __attribute__warn_unused_result__
5318 __attribute__nonnull__(pTHX_1)
5319 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5320#define PERL_ARGS_ASSERT_DOONELINER \
5321 assert(cmd); assert(filename)
b464bac0 5322
cea2e8a9 5323# endif
5cdc4e88
NC		 5324STATIC SV * S_space_join_names_mortal(pTHX_ char *const *array)
5325 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5326#define PERL_ARGS_ASSERT_SPACE_JOIN_NAMES_MORTAL \
5327 assert(array)
5cdc4e88 5328
864dbfa3 5329#endif
1d7c1841 5330
0cb96387 5331#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
4048f010 5332STATIC regnode* S_reg(pTHX_ struct RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth)
a28509cc
AL		 5333 __attribute__nonnull__(pTHX_1)
5334 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5335#define PERL_ARGS_ASSERT_REG \
5336 assert(pRExC_state); assert(flagp)
a28509cc 5337
4048f010 5338STATIC regnode* S_reganode(pTHX_ struct RExC_state_t *pRExC_state, U8 op, U32 arg)
a28509cc 5339 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5340#define PERL_ARGS_ASSERT_REGANODE \
5341 assert(pRExC_state)
a28509cc 5342
4048f010 5343STATIC regnode* S_regatom(pTHX_ struct RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
a28509cc
AL		 5344 __attribute__nonnull__(pTHX_1)
5345 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5346#define PERL_ARGS_ASSERT_REGATOM \
5347 assert(pRExC_state); assert(flagp)
a28509cc 5348
4048f010 5349STATIC regnode* S_regbranch(pTHX_ struct RExC_state_t *pRExC_state, I32 *flagp, I32 first, U32 depth)
a28509cc
AL		 5350 __attribute__nonnull__(pTHX_1)
5351 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5352#define PERL_ARGS_ASSERT_REGBRANCH \
5353 assert(pRExC_state); assert(flagp)
a28509cc 5354
4048f010 5355STATIC STRLEN S_reguni(pTHX_ const struct RExC_state_t *pRExC_state, UV uv, char *s)
a28509cc 5356 __attribute__nonnull__(pTHX_1)
71207a34 5357 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5358#define PERL_ARGS_ASSERT_REGUNI \
5359 assert(pRExC_state); assert(s)
a28509cc 5360
4048f010 5361STATIC regnode* S_regclass(pTHX_ struct RExC_state_t *pRExC_state, U32 depth)
a28509cc 5362 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5363#define PERL_ARGS_ASSERT_REGCLASS \
5364 assert(pRExC_state)
a28509cc 5365
4048f010 5366STATIC regnode* S_reg_node(pTHX_ struct RExC_state_t *pRExC_state, U8 op)
a28509cc 5367 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5368#define PERL_ARGS_ASSERT_REG_NODE \
5369 assert(pRExC_state)
a28509cc 5370
c86f7df5
AL		 5371STATIC UV S_reg_recode(pTHX_ const char value, SV **encp)
5372 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5373#define PERL_ARGS_ASSERT_REG_RECODE \
5374 assert(encp)
c86f7df5 5375
4048f010 5376STATIC regnode* S_regpiece(pTHX_ struct RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
a28509cc
AL		 5377 __attribute__nonnull__(pTHX_1)
5378 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5379#define PERL_ARGS_ASSERT_REGPIECE \
5380 assert(pRExC_state); assert(flagp)
a28509cc 5381
afefe6bf 5382STATIC regnode* S_reg_namedseq(pTHX_ struct RExC_state_t *pRExC_state, UV *valuep, I32 *flagp)
fc8cd66c 5383 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5384#define PERL_ARGS_ASSERT_REG_NAMEDSEQ \
5385 assert(pRExC_state)
fc8cd66c 5386
4048f010 5387STATIC void S_reginsert(pTHX_ struct RExC_state_t *pRExC_state, U8 op, regnode *opnd, U32 depth)
a28509cc
AL		 5388 __attribute__nonnull__(pTHX_1)
5389 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5390#define PERL_ARGS_ASSERT_REGINSERT \
5391 assert(pRExC_state); assert(opnd)
a28509cc 5392
4048f010 5393STATIC void S_regtail(pTHX_ struct RExC_state_t *pRExC_state, regnode *p, const regnode *val, U32 depth)
8e11feef
RGS		 5394 __attribute__nonnull__(pTHX_1)
5395 __attribute__nonnull__(pTHX_2)
5396 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5397#define PERL_ARGS_ASSERT_REGTAIL \
5398 assert(pRExC_state); assert(p); assert(val)
8e11feef 5399
4048f010 5400STATIC SV * S_reg_scan_name(pTHX_ struct RExC_state_t *pRExC_state, U32 flags)
894be9b7 5401 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5402#define PERL_ARGS_ASSERT_REG_SCAN_NAME \
5403 assert(pRExC_state)
894be9b7 5404
4048f010 5405STATIC U32 S_join_exact(pTHX_ struct RExC_state_t *pRExC_state, regnode *scan, I32 *min, U32 flags, regnode *val, U32 depth)
a28509cc
AL		 5406 __attribute__nonnull__(pTHX_1)
5407 __attribute__nonnull__(pTHX_2)
5408 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5409#define PERL_ARGS_ASSERT_JOIN_EXACT \
5410 assert(pRExC_state); assert(scan); assert(min)
a28509cc 5411
4048f010 5412STATIC char * S_regwhite(struct RExC_state_t *pRExC_state, char *p)
44af46ee
RGS		 5413 __attribute__warn_unused_result__
5414 __attribute__nonnull__(1)
5415 __attribute__nonnull__(2);
7918f24d
NC		 5416#define PERL_ARGS_ASSERT_REGWHITE \
5417 assert(pRExC_state); assert(p)
a28509cc 5418
4048f010 5419STATIC char * S_nextchar(pTHX_ struct RExC_state_t *pRExC_state)
bcdf7404 5420 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5421#define PERL_ARGS_ASSERT_NEXTCHAR \
5422 assert(pRExC_state)
bcdf7404 5423
4048f010 5424STATIC bool S_reg_skipcomment(pTHX_ struct RExC_state_t *pRExC_state)
a28509cc 5425 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5426#define PERL_ARGS_ASSERT_REG_SKIPCOMMENT \
5427 assert(pRExC_state)
a28509cc 5428
4048f010 5429STATIC void S_scan_commit(pTHX_ const struct RExC_state_t *pRExC_state, struct scan_data_t *data, I32 *minlenp, int is_inf)
aec46f14 5430 __attribute__nonnull__(pTHX_1)
1de06328
YO		 5431 __attribute__nonnull__(pTHX_2)
5432 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5433#define PERL_ARGS_ASSERT_SCAN_COMMIT \
5434 assert(pRExC_state); assert(data); assert(minlenp)
aec46f14 5435
4048f010 5436STATIC void S_cl_anything(const struct RExC_state_t *pRExC_state, struct regnode_charclass_class *cl)
44af46ee
RGS		 5437 __attribute__nonnull__(1)
5438 __attribute__nonnull__(2);
7918f24d
NC		 5439#define PERL_ARGS_ASSERT_CL_ANYTHING \
5440 assert(pRExC_state); assert(cl)
a28509cc 5441
44af46ee
RGS		 5442STATIC int S_cl_is_anything(const struct regnode_charclass_class *cl)
5443 __attribute__warn_unused_result__
5444 __attribute__nonnull__(1);
7918f24d
NC		 5445#define PERL_ARGS_ASSERT_CL_IS_ANYTHING \
5446 assert(cl)
a28509cc 5447
4048f010 5448STATIC void S_cl_init(const struct RExC_state_t *pRExC_state, struct regnode_charclass_class *cl)
44af46ee
RGS		 5449 __attribute__nonnull__(1)
5450 __attribute__nonnull__(2);
7918f24d
NC		 5451#define PERL_ARGS_ASSERT_CL_INIT \
5452 assert(pRExC_state); assert(cl)
a28509cc 5453
4048f010 5454STATIC void S_cl_init_zero(const struct RExC_state_t *pRExC_state, struct regnode_charclass_class *cl)
44af46ee
RGS		 5455 __attribute__nonnull__(1)
5456 __attribute__nonnull__(2);
7918f24d
NC		 5457#define PERL_ARGS_ASSERT_CL_INIT_ZERO \
5458 assert(pRExC_state); assert(cl)
a28509cc 5459
44af46ee
RGS		 5460STATIC void S_cl_and(struct regnode_charclass_class *cl, const struct regnode_charclass_class *and_with)
5461 __attribute__nonnull__(1)
5462 __attribute__nonnull__(2);
7918f24d
NC		 5463#define PERL_ARGS_ASSERT_CL_AND \
5464 assert(cl); assert(and_with)
a28509cc 5465
4048f010 5466STATIC void S_cl_or(const struct RExC_state_t *pRExC_state, struct regnode_charclass_class *cl, const struct regnode_charclass_class *or_with)
44af46ee
RGS		 5467 __attribute__nonnull__(1)
5468 __attribute__nonnull__(2)
5469 __attribute__nonnull__(3);
7918f24d
NC		 5470#define PERL_ARGS_ASSERT_CL_OR \
5471 assert(pRExC_state); assert(cl); assert(or_with)
a28509cc 5472
4048f010 5473STATIC I32 S_study_chunk(pTHX_ struct RExC_state_t *pRExC_state, regnode **scanp, I32 *minlenp, I32 *deltap, regnode *last, struct scan_data_t *data, I32 stopparen, U8* recursed, struct regnode_charclass_class *and_withp, U32 flags, U32 depth)
aec46f14
AL		 5474 __attribute__nonnull__(pTHX_1)
5475 __attribute__nonnull__(pTHX_2)
5476 __attribute__nonnull__(pTHX_3)
1de06328
YO		 5477 __attribute__nonnull__(pTHX_4)
5478 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 5479#define PERL_ARGS_ASSERT_STUDY_CHUNK \
5480 assert(pRExC_state); assert(scanp); assert(minlenp); assert(deltap); assert(last)
aec46f14 5481
4048f010 5482STATIC U32 S_add_data(struct RExC_state_t *pRExC_state, U32 n, const char *s)
44af46ee
RGS		 5483 __attribute__warn_unused_result__
5484 __attribute__nonnull__(1)
5485 __attribute__nonnull__(3);
7918f24d
NC		 5486#define PERL_ARGS_ASSERT_ADD_DATA \
5487 assert(pRExC_state); assert(s)
aec46f14 5488
f54cb97a 5489STATIC void S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...)
46c461b5
AL		 5490 __attribute__noreturn__
5491 __attribute__nonnull__(pTHX_1)
5492 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5493#define PERL_ARGS_ASSERT_RE_CROAK2 \
5494 assert(pat1); assert(pat2)
f54cb97a 5495
4048f010 5496STATIC I32 S_regpposixcc(pTHX_ struct RExC_state_t *pRExC_state, I32 value)
aec46f14 5497 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5498#define PERL_ARGS_ASSERT_REGPPOSIXCC \
5499 assert(pRExC_state)
aec46f14 5500
4048f010 5501STATIC void S_checkposixcc(pTHX_ struct RExC_state_t *pRExC_state)
aec46f14 5502 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5503#define PERL_ARGS_ASSERT_CHECKPOSIXCC \
5504 assert(pRExC_state)
aec46f14 5505
4048f010 5506STATIC I32 S_make_trie(pTHX_ struct RExC_state_t *pRExC_state, regnode *startbranch, regnode *first, regnode *last, regnode *tail, U32 word_count, U32 flags, U32 depth)
aec46f14
AL		 5507 __attribute__nonnull__(pTHX_1)
5508 __attribute__nonnull__(pTHX_2)
5509 __attribute__nonnull__(pTHX_3)
5510 __attribute__nonnull__(pTHX_4)
5511 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 5512#define PERL_ARGS_ASSERT_MAKE_TRIE \
5513 assert(pRExC_state); assert(startbranch); assert(first); assert(last); assert(tail)
a3621e74 5514
4048f010 5515STATIC void S_make_trie_failtable(pTHX_ struct RExC_state_t *pRExC_state, regnode *source, regnode *stclass, U32 depth)
07be1b83
YO		 5516 __attribute__nonnull__(pTHX_1)
5517 __attribute__nonnull__(pTHX_2)
5518 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5519#define PERL_ARGS_ASSERT_MAKE_TRIE_FAILTABLE \
5520 assert(pRExC_state); assert(source); assert(stclass)
07be1b83 5521
8e11feef 5522# ifdef DEBUGGING
f7819f85 5523STATIC void S_regdump_extflags(pTHX_ const char *lead, const U32 flags);
786e8c11 5524STATIC const regnode* S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node, const regnode *last, const regnode *plast, SV* sv, I32 indent, U32 depth)
8e11feef
RGS		 5525 __attribute__nonnull__(pTHX_1)
5526 __attribute__nonnull__(pTHX_2)
5527 __attribute__nonnull__(pTHX_3)
786e8c11 5528 __attribute__nonnull__(pTHX_6);
7918f24d
NC		 5529#define PERL_ARGS_ASSERT_DUMPUNTIL \
5530 assert(r); assert(start); assert(node); assert(sv)
8e11feef
RGS		 5531
5532STATIC void S_put_byte(pTHX_ SV* sv, int c)
5533 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5534#define PERL_ARGS_ASSERT_PUT_BYTE \
5535 assert(sv)
8e11feef 5536
2b8b4781
NC		 5537STATIC void S_dump_trie(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 depth)
5538 __attribute__nonnull__(pTHX_1)
5539 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5540#define PERL_ARGS_ASSERT_DUMP_TRIE \
5541 assert(trie); assert(revcharmap)
8e11feef 5542
2b8b4781
NC		 5543STATIC void S_dump_trie_interim_list(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth)
5544 __attribute__nonnull__(pTHX_1)
5545 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5546#define PERL_ARGS_ASSERT_DUMP_TRIE_INTERIM_LIST \
5547 assert(trie); assert(revcharmap)
8e11feef 5548
2b8b4781
NC		 5549STATIC void S_dump_trie_interim_table(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth)
5550 __attribute__nonnull__(pTHX_1)
5551 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5552#define PERL_ARGS_ASSERT_DUMP_TRIE_INTERIM_TABLE \
5553 assert(trie); assert(revcharmap)
8e11feef 5554
4048f010 5555STATIC U8 S_regtail_study(pTHX_ struct RExC_state_t *pRExC_state, regnode *p, const regnode *val, U32 depth)
07be1b83
YO		 5556 __attribute__nonnull__(pTHX_1)
5557 __attribute__nonnull__(pTHX_2)
5558 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5559#define PERL_ARGS_ASSERT_REGTAIL_STUDY \
5560 assert(pRExC_state); assert(p); assert(val)
07be1b83 5561
8e11feef 5562# endif
864dbfa3 5563#endif
1d7c1841 5564
0cb96387 5565#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
24b23f37 5566STATIC I32 S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
abb2c242 5567 __attribute__warn_unused_result__
4f639d21
DM		 5568 __attribute__nonnull__(pTHX_1)
5569 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5570#define PERL_ARGS_ASSERT_REGMATCH \
5571 assert(reginfo); assert(prog)
a3b680e6 5572
e2e6a0f1 5573STATIC I32 S_regrepeat(pTHX_ const regexp *prog, const regnode *p, I32 max, int depth)
abb2c242 5574 __attribute__warn_unused_result__
32fc9b6a
DM		 5575 __attribute__nonnull__(pTHX_1)
5576 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5577#define PERL_ARGS_ASSERT_REGREPEAT \
5578 assert(prog); assert(p)
a3b680e6 5579
24b23f37 5580STATIC I32 S_regtry(pTHX_ regmatch_info *reginfo, char **startpos)
46c461b5
AL		 5581 __attribute__warn_unused_result__
5582 __attribute__nonnull__(pTHX_1)
5583 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5584#define PERL_ARGS_ASSERT_REGTRY \
5585 assert(reginfo); assert(startpos)
a3b680e6 5586
32fc9b6a 5587STATIC bool S_reginclass(pTHX_ const regexp *prog, const regnode *n, const U8 *p, STRLEN *lenp, bool do_utf8sv_is_utf8)
abb2c242 5588 __attribute__warn_unused_result__
32fc9b6a
DM		 5589 __attribute__nonnull__(pTHX_2)
5590 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5591#define PERL_ARGS_ASSERT_REGINCLASS \
5592 assert(n); assert(p)
a3b680e6 5593
cea2e8a9 5594STATIC CHECKPOINT S_regcppush(pTHX_ I32 parenfloor);
097eb12c 5595STATIC char* S_regcppop(pTHX_ const regexp *rex)
46c461b5 5596 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5597#define PERL_ARGS_ASSERT_REGCPPOP \
5598 assert(rex)
46c461b5 5599
4048f010 5600STATIC U8* S_reghop3(U8 *s, I32 off, const U8 *lim)
aec46f14 5601 __attribute__warn_unused_result__
44af46ee
RGS		 5602 __attribute__nonnull__(1)
5603 __attribute__nonnull__(3);
7918f24d
NC		 5604#define PERL_ARGS_ASSERT_REGHOP3 \
5605 assert(s); assert(lim)
a3b680e6 5606
f9f4320a 5607#ifdef XXX_dmq
4048f010 5608STATIC U8* S_reghop4(U8 *s, I32 off, const U8 *llim, const U8 *rlim)
1de06328
YO		 5609 __attribute__warn_unused_result__
5610 __attribute__nonnull__(1)
5611 __attribute__nonnull__(3)
5612 __attribute__nonnull__(4);
7918f24d
NC		 5613#define PERL_ARGS_ASSERT_REGHOP4 \
5614 assert(s); assert(llim); assert(rlim)
1de06328 5615
f9f4320a 5616#endif
4048f010 5617STATIC U8* S_reghopmaybe3(U8 *s, I32 off, const U8 *lim)
abb2c242 5618 __attribute__warn_unused_result__
44af46ee
RGS		 5619 __attribute__nonnull__(1)
5620 __attribute__nonnull__(3);
7918f24d
NC		 5621#define PERL_ARGS_ASSERT_REGHOPMAYBE3 \
5622 assert(s); assert(lim)
a3b680e6 5623
24b23f37 5624STATIC char* S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, const char *strend, regmatch_info *reginfo)
abb2c242
JH		 5625 __attribute__warn_unused_result__
5626 __attribute__nonnull__(pTHX_1)
5627 __attribute__nonnull__(pTHX_2)
5628 __attribute__nonnull__(pTHX_3)
5629 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5630#define PERL_ARGS_ASSERT_FIND_BYCLASS \
5631 assert(prog); assert(c); assert(s); assert(strend)
a3b680e6
AL		 5632
5633STATIC void S_to_utf8_substr(pTHX_ regexp * prog)
abb2c242 5634 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5635#define PERL_ARGS_ASSERT_TO_UTF8_SUBSTR \
5636 assert(prog)
a3b680e6
AL		 5637
5638STATIC void S_to_byte_substr(pTHX_ regexp * prog)
abb2c242 5639 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5640#define PERL_ARGS_ASSERT_TO_BYTE_SUBSTR \
5641 assert(prog)
a3b680e6 5642
4048f010 5643STATIC I32 S_reg_check_named_buff_matched(pTHX_ const regexp *rex, const regnode *scan)
0a4db386
YO		 5644 __attribute__warn_unused_result__
5645 __attribute__nonnull__(pTHX_1)
5646 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5647#define PERL_ARGS_ASSERT_REG_CHECK_NAMED_BUFF_MATCHED \
5648 assert(rex); assert(scan)
0a4db386 5649
07be1b83 5650# ifdef DEBUGGING
786e8c11 5651STATIC void S_dump_exec_pos(pTHX_ const char *locinput, const regnode *scan, const char *loc_regeol, const char *loc_bostr, const char *loc_reg_starttry, const bool do_utf8)
07be1b83 5652 __attribute__nonnull__(pTHX_1)
786e8c11
YO		 5653 __attribute__nonnull__(pTHX_2)
5654 __attribute__nonnull__(pTHX_3)
5655 __attribute__nonnull__(pTHX_4)
5656 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 5657#define PERL_ARGS_ASSERT_DUMP_EXEC_POS \
5658 assert(locinput); assert(scan); assert(loc_regeol); assert(loc_bostr); assert(loc_reg_starttry)
07be1b83 5659
efd26800 5660STATIC void S_debug_start_match(pTHX_ const REGEXP *prog, const bool do_utf8, const char *start, const char *end, const char *blurb)
5a2bdfd0
DM		 5661 __attribute__nonnull__(pTHX_1)
5662 __attribute__nonnull__(pTHX_3)
5663 __attribute__nonnull__(pTHX_4)
5664 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 5665#define PERL_ARGS_ASSERT_DEBUG_START_MATCH \
5666 assert(prog); assert(start); assert(end); assert(blurb)
5a2bdfd0 5667
07be1b83 5668# endif
864dbfa3 5669#endif
1d7c1841 5670
bd16a5f0 5671#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
2cedf74c 5672STATIC CV* S_deb_curcv(pTHX_ const I32 ix);
46c461b5
AL		 5673STATIC void S_debprof(pTHX_ const OP *o)
5674 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5675#define PERL_ARGS_ASSERT_DEBPROF \
5676 assert(o)
46c461b5 5677
0bd48802 5678STATIC void S_sequence(pTHX_ const OP *o);
294b3b39 5679STATIC void S_sequence_tail(pTHX_ const OP *o);
0bd48802 5680STATIC UV S_sequence_num(pTHX_ const OP *o);
4199688e
AL		 5681STATIC SV* S_pm_description(pTHX_ const PMOP *pm)
5682 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5683#define PERL_ARGS_ASSERT_PM_DESCRIPTION \
5684 assert(pm)
4199688e 5685
864dbfa3 5686#endif
1d7c1841 5687
0cb96387 5688#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
af7df257 5689STATIC SV* S_save_scalar_at(pTHX_ SV **sptr, const U32 flags)
46c461b5 5690 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5691#define PERL_ARGS_ASSERT_SAVE_SCALAR_AT \
5692 assert(sptr)
46c461b5 5693
864dbfa3 5694#endif
1d7c1841 5695
e15faf7d 5696#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
2b021c53 5697PERL_CALLCONV void Perl_sv_add_backref(pTHX_ SV *const tsv, SV *const sv)
e15faf7d
NC		 5698 __attribute__nonnull__(pTHX_1)
5699 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5700#define PERL_ARGS_ASSERT_SV_ADD_BACKREF \
5701 assert(tsv); assert(sv)
e15faf7d
NC		 5702
5703#endif
5704
86f55936 5705#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
2b021c53 5706PERL_CALLCONV int Perl_sv_kill_backrefs(pTHX_ SV *const sv, AV *const av)
86f55936
NC		 5707 __attribute__nonnull__(pTHX_1)
5708 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5709#define PERL_ARGS_ASSERT_SV_KILL_BACKREFS \
5710 assert(sv); assert(av)
86f55936
NC		 5711
5712#endif
5713
0cb96387 5714#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
5de3775c 5715STATIC char * S_uiv_2buf(char *const buf, const IV iv, UV uv, const int is_uv, char **const peob)
aec46f14
AL		 5716 __attribute__warn_unused_result__
5717 __attribute__nonnull__(1)
5718 __attribute__nonnull__(5);
7918f24d
NC		 5719#define PERL_ARGS_ASSERT_UIV_2BUF \
5720 assert(buf); assert(peob)
aec46f14 5721
89e38212 5722STATIC void S_sv_unglob(pTHX_ SV *const sv)
1b6737cc 5723 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5724#define PERL_ARGS_ASSERT_SV_UNGLOB \
5725 assert(sv)
1b6737cc 5726
aad570aa 5727STATIC void S_not_a_number(pTHX_ SV *const sv)
1b6737cc 5728 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5729#define PERL_ARGS_ASSERT_NOT_A_NUMBER \
5730 assert(sv)
1b6737cc 5731
de37a194 5732STATIC I32 S_visit(pTHX_ SVFUNC_t f, const U32 flags, const U32 mask)
1b6737cc 5733 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5734#define PERL_ARGS_ASSERT_VISIT \
5735 assert(f)
1b6737cc 5736
2b021c53 5737STATIC void S_sv_del_backref(pTHX_ SV *const tsv, SV *const sv)
1b6737cc
AL		 5738 __attribute__nonnull__(pTHX_1)
5739 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5740#define PERL_ARGS_ASSERT_SV_DEL_BACKREF \
5741 assert(tsv); assert(sv)
1b6737cc 5742
6c1b357c 5743STATIC SV * S_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ, const SV *const keyname, I32 aindex, int subscript_type)
be2ef075 5744 __attribute__warn_unused_result__;
a3b680e6 5745
8fa7f367 5746# ifdef DEBUGGING
46c461b5
AL		 5747STATIC void S_del_sv(pTHX_ SV *p)
5748 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5749#define PERL_ARGS_ASSERT_DEL_SV \
5750 assert(p)
46c461b5 5751
cea2e8a9 5752# endif
28e5dec8 5753# if !defined(NV_PRESERVES_UV)
47031da6 5754# ifdef DEBUGGING
5de3775c 5755STATIC int S_sv_2iuv_non_preserve(pTHX_ SV *const sv, I32 numtype)
46c461b5 5756 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5757#define PERL_ARGS_ASSERT_SV_2IUV_NON_PRESERVE \
5758 assert(sv)
46c461b5 5759
47031da6 5760# else
5de3775c 5761STATIC int S_sv_2iuv_non_preserve(pTHX_ SV *const sv)
47031da6 5762 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5763#define PERL_ARGS_ASSERT_SV_2IUV_NON_PRESERVE \
5764 assert(sv)
47031da6
NC		 5765
5766# endif
28e5dec8 5767# endif
66ceb532 5768STATIC I32 S_expect_number(pTHX_ char **const pattern)
abb2c242
JH		 5769 __attribute__warn_unused_result__
5770 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5771#define PERL_ARGS_ASSERT_EXPECT_NUMBER \
5772 assert(pattern)
a3b680e6 5773
9cbac4c7 5774#
721e86b6
AL		 5775STATIC STRLEN S_sv_pos_u2b_forwards(const U8 *const start, const U8 *const send, STRLEN uoffset)
5776 __attribute__nonnull__(1)
5777 __attribute__nonnull__(2);
7918f24d
NC		 5778#define PERL_ARGS_ASSERT_SV_POS_U2B_FORWARDS \
5779 assert(start); assert(send)
25a8a4ef 5780
af828c01 5781STATIC STRLEN S_sv_pos_u2b_midway(const U8 *const start, const U8 *send, const STRLEN uoffset, const STRLEN uend)
721e86b6
AL		 5782 __attribute__nonnull__(1)
5783 __attribute__nonnull__(2);
7918f24d
NC		 5784#define PERL_ARGS_ASSERT_SV_POS_U2B_MIDWAY \
5785 assert(start); assert(send)
25a8a4ef 5786
af828c01 5787STATIC STRLEN S_sv_pos_u2b_cached(pTHX_ SV *const sv, MAGIC **const mgp, const U8 *const start, const U8 *const send, const STRLEN uoffset, STRLEN uoffset0, STRLEN boffset0)
abb2c242
JH		 5788 __attribute__nonnull__(pTHX_1)
5789 __attribute__nonnull__(pTHX_2)
5790 __attribute__nonnull__(pTHX_3)
25a8a4ef 5791 __attribute__nonnull__(pTHX_4);
7918f24d
NC		 5792#define PERL_ARGS_ASSERT_SV_POS_U2B_CACHED \
5793 assert(sv); assert(mgp); assert(start); assert(send)
a3b680e6 5794
ac1e9476 5795STATIC void S_utf8_mg_pos_cache_update(pTHX_ SV *const sv, MAGIC **const mgp, const STRLEN byte, const STRLEN utf8, const STRLEN blen)
25a8a4ef
NC		 5796 __attribute__nonnull__(pTHX_1)
5797 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5798#define PERL_ARGS_ASSERT_UTF8_MG_POS_CACHE_UPDATE \
5799 assert(sv); assert(mgp)
25a8a4ef 5800
ac1e9476 5801STATIC STRLEN S_sv_pos_b2u_midway(pTHX_ const U8 *const s, const U8 *const target, const U8 *end, STRLEN endu)
abb2c242
JH		 5802 __attribute__nonnull__(pTHX_1)
5803 __attribute__nonnull__(pTHX_2)
25a8a4ef 5804 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5805#define PERL_ARGS_ASSERT_SV_POS_B2U_MIDWAY \
5806 assert(s); assert(target); assert(end)
a3b680e6 5807
66ceb532 5808STATIC char * S_F0convert(NV nv, char *const endbuf, STRLEN *const len)
c445ea15
AL		 5809 __attribute__nonnull__(2)
5810 __attribute__nonnull__(3);
7918f24d
NC		 5811#define PERL_ARGS_ASSERT_F0CONVERT \
5812 assert(endbuf); assert(len)
c445ea15 5813
44af46ee 5814# if defined(PERL_OLD_COPY_ON_WRITE)
5302ffd4 5815STATIC void S_sv_release_COW(pTHX_ SV *sv, const char *pvx, SV *after)
aec46f14
AL		 5816 __attribute__nonnull__(pTHX_1)
5817 __attribute__nonnull__(pTHX_2)
5302ffd4 5818 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5819#define PERL_ARGS_ASSERT_SV_RELEASE_COW \
5820 assert(sv); assert(pvx); assert(after)
aec46f14 5821
44af46ee
RGS		 5822# endif
5823STATIC SV * S_more_sv(pTHX);
de37a194 5824STATIC void * S_more_bodies(pTHX_ const svtype sv_type);
5de3775c 5825STATIC bool S_sv_2iuv_common(pTHX_ SV *const sv)
44af46ee 5826 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5827#define PERL_ARGS_ASSERT_SV_2IUV_COMMON \
5828 assert(sv)
44af46ee 5829
7bc54cea 5830STATIC void S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype)
44af46ee
RGS		 5831 __attribute__nonnull__(pTHX_1)
5832 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5833#define PERL_ARGS_ASSERT_GLOB_ASSIGN_GLOB \
5834 assert(dstr); assert(sstr)
44af46ee 5835
7bc54cea 5836STATIC void S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr)
44af46ee
RGS		 5837 __attribute__nonnull__(pTHX_1)
5838 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 5839#define PERL_ARGS_ASSERT_GLOB_ASSIGN_REF \
5840 assert(dstr); assert(sstr)
44af46ee 5841
1eb6e4ca 5842STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *const tbl, const void *const sv)
44af46ee 5843 __attribute__warn_unused_result__
cf684db6 5844 __attribute__nonnull__(1);
7918f24d
NC		 5845#define PERL_ARGS_ASSERT_PTR_TABLE_FIND \
5846 assert(tbl)
44af46ee 5847
cea2e8a9 5848#endif
1d7c1841 5849
0cb96387 5850#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS		 5851STATIC void S_check_uni(pTHX);
5852STATIC void S_force_next(pTHX_ I32 type);
4048f010 5853STATIC char* S_force_version(pTHX_ char *s, int guessing)
46c461b5 5854 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5855#define PERL_ARGS_ASSERT_FORCE_VERSION \
5856 assert(s)
46c461b5 5857
91152fc1
DG		 5858STATIC char* S_force_strict_version(pTHX_ char *s)
5859 __attribute__nonnull__(pTHX_1);
5860#define PERL_ARGS_ASSERT_FORCE_STRICT_VERSION \
5861 assert(s)
5862
46c461b5
AL		 5863STATIC char* S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack, int allow_tick)
5864 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5865#define PERL_ARGS_ASSERT_FORCE_WORD \
5866 assert(start)
46c461b5
AL		 5867
5868STATIC SV* S_tokeq(pTHX_ SV *sv)
5869 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5870#define PERL_ARGS_ASSERT_TOKEQ \
5871 assert(sv)
46c461b5 5872
1d51329b 5873STATIC void S_readpipe_override(pTHX);
f54cb97a 5874STATIC char* S_scan_const(pTHX_ char *start)
46c461b5 5875 __attribute__warn_unused_result__
abb2c242 5876 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5877#define PERL_ARGS_ASSERT_SCAN_CONST \
5878 assert(start)
f54cb97a
AL		 5879
5880STATIC char* S_scan_formline(pTHX_ char *s)
46c461b5 5881 __attribute__warn_unused_result__
abb2c242 5882 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5883#define PERL_ARGS_ASSERT_SCAN_FORMLINE \
5884 assert(s)
f54cb97a
AL		 5885
5886STATIC char* S_scan_heredoc(pTHX_ char *s)
46c461b5 5887 __attribute__warn_unused_result__
abb2c242 5888 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5889#define PERL_ARGS_ASSERT_SCAN_HEREDOC \
5890 assert(s)
f54cb97a
AL		 5891
5892STATIC char* S_scan_ident(pTHX_ char *s, const char *send, char *dest, STRLEN destlen, I32 ck_uni)
abb2c242
JH		 5893 __attribute__nonnull__(pTHX_1)
5894 __attribute__nonnull__(pTHX_2)
5895 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5896#define PERL_ARGS_ASSERT_SCAN_IDENT \
5897 assert(s); assert(send); assert(dest)
f54cb97a 5898
46c461b5
AL		 5899STATIC char* S_scan_inputsymbol(pTHX_ char *start)
5900 __attribute__warn_unused_result__
5901 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5902#define PERL_ARGS_ASSERT_SCAN_INPUTSYMBOL \
5903 assert(start)
46c461b5
AL		 5904
5905STATIC char* S_scan_pat(pTHX_ char *start, I32 type)
5906 __attribute__warn_unused_result__
5907 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5908#define PERL_ARGS_ASSERT_SCAN_PAT \
5909 assert(start)
46c461b5
AL		 5910
5911STATIC char* S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
5912 __attribute__warn_unused_result__
5913 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5914#define PERL_ARGS_ASSERT_SCAN_STR \
5915 assert(start)
46c461b5
AL		 5916
5917STATIC char* S_scan_subst(pTHX_ char *start)
5918 __attribute__warn_unused_result__
5919 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5920#define PERL_ARGS_ASSERT_SCAN_SUBST \
5921 assert(start)
46c461b5
AL		 5922
5923STATIC char* S_scan_trans(pTHX_ char *start)
5924 __attribute__warn_unused_result__
5925 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5926#define PERL_ARGS_ASSERT_SCAN_TRANS \
5927 assert(start)
46c461b5
AL		 5928
5929STATIC char* S_scan_word(pTHX_ char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp)
5930 __attribute__nonnull__(pTHX_1)
5931 __attribute__nonnull__(pTHX_2)
5932 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 5933#define PERL_ARGS_ASSERT_SCAN_WORD \
5934 assert(s); assert(dest); assert(slp)
46c461b5 5935
15f169a1 5936STATIC void S_update_debugger_info(pTHX_ SV *orig_sv, const char *const buf, STRLEN len);
46c461b5
AL		 5937STATIC char* S_skipspace(pTHX_ char *s)
5938 __attribute__warn_unused_result__
5939 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5940#define PERL_ARGS_ASSERT_SKIPSPACE \
5941 assert(s)
46c461b5
AL		 5942
5943STATIC char* S_swallow_bom(pTHX_ U8 *s)
5944 __attribute__warn_unused_result__
5945 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5946#define PERL_ARGS_ASSERT_SWALLOW_BOM \
5947 assert(s)
46c461b5 5948
a28af015
NC		 5949#ifndef PERL_NO_UTF16_FILTER
5950STATIC I32 S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen)
5951 __attribute__nonnull__(pTHX_2);
5952#define PERL_ARGS_ASSERT_UTF16_TEXTFILTER \
5953 assert(sv)
5954
81a923f4
NC		 5955STATIC U8* S_add_utf16_textfilter(pTHX_ U8 *const s, bool reversed)
5956 __attribute__nonnull__(pTHX_1);
5957#define PERL_ARGS_ASSERT_ADD_UTF16_TEXTFILTER \
5958 assert(s)
5959
a28af015 5960#endif
c94115d8 5961STATIC void S_checkcomma(pTHX_ const char *s, const char *name, const char *what)
abb2c242
JH		 5962 __attribute__nonnull__(pTHX_1)
5963 __attribute__nonnull__(pTHX_2)
5964 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5965#define PERL_ARGS_ASSERT_CHECKCOMMA \
5966 assert(s); assert(name); assert(what)
f54cb97a 5967
15f169a1 5968STATIC bool S_feature_is_enabled(pTHX_ const char *const name, STRLEN namelen)
0d863452 5969 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5970#define PERL_ARGS_ASSERT_FEATURE_IS_ENABLED \
5971 assert(name)
0d863452 5972
46c461b5
AL		 5973STATIC void S_force_ident(pTHX_ const char *s, int kind)
5974 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5975#define PERL_ARGS_ASSERT_FORCE_IDENT \
5976 assert(s)
46c461b5 5977
d9095cec 5978STATIC void S_incline(pTHX_ const char *s)
46c461b5 5979 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5980#define PERL_ARGS_ASSERT_INCLINE \
5981 assert(s)
46c461b5 5982
62d55b22 5983STATIC int S_intuit_method(pTHX_ char *s, GV *gv, CV *cv)
6472dca1 5984 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5985#define PERL_ARGS_ASSERT_INTUIT_METHOD \
5986 assert(s)
46c461b5
AL		 5987
5988STATIC int S_intuit_more(pTHX_ char *s)
5989 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 5990#define PERL_ARGS_ASSERT_INTUIT_MORE \
5991 assert(s)
46c461b5
AL		 5992
5993STATIC I32 S_lop(pTHX_ I32 f, int x, char *s)
5994 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 5995#define PERL_ARGS_ASSERT_LOP \
5996 assert(s)
46c461b5 5997
f54cb97a 5998STATIC void S_missingterm(pTHX_ char *s)
abb2c242 5999 __attribute__noreturn__;
f54cb97a 6000
15f169a1 6001STATIC void S_no_op(pTHX_ const char *const what, char *s)
46c461b5 6002 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6003#define PERL_ARGS_ASSERT_NO_OP \
6004 assert(what)
46c461b5 6005
46c461b5
AL		 6006STATIC I32 S_sublex_done(pTHX)
6007 __attribute__warn_unused_result__;
6008
6009STATIC I32 S_sublex_push(pTHX)
6010 __attribute__warn_unused_result__;
6011
6012STATIC I32 S_sublex_start(pTHX)
6013 __attribute__warn_unused_result__;
6014
5cc814fd 6015STATIC char * S_filter_gets(pTHX_ SV *sv, STRLEN append)
255164ba 6016 __attribute__warn_unused_result__
5cc814fd 6017 __attribute__nonnull__(pTHX_1);
7918f24d 6018#define PERL_ARGS_ASSERT_FILTER_GETS \
5cc814fd 6019 assert(sv)
255164ba 6020
9bde8eb0 6021STATIC HV * S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len)
255164ba
DM		 6022 __attribute__warn_unused_result__
6023 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6024#define PERL_ARGS_ASSERT_FIND_IN_MY_STASH \
6025 assert(pkgname)
255164ba 6026
c48640ec 6027STATIC char * S_tokenize_use(pTHX_ int is_use, char *s)
468aa647
RGS		 6028 __attribute__warn_unused_result__
6029 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6030#define PERL_ARGS_ASSERT_TOKENIZE_USE \
6031 assert(s)
468aa647 6032
eb0d8d16 6033STATIC SV* S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen, SV *sv, SV *pv, const char *type, STRLEN typelen)
aec46f14 6034 __attribute__nonnull__(pTHX_3)
eb0d8d16 6035 __attribute__nonnull__(pTHX_5);
7918f24d
NC		 6036#define PERL_ARGS_ASSERT_NEW_CONSTANT \
6037 assert(key); assert(sv)
aec46f14 6038
8290c323 6039STATIC int S_deprecate_commaless_var_list(pTHX);
cea2e8a9 6040STATIC int S_ao(pTHX_ int toketype);
c39cd008
GS		 6041# if defined(PERL_CR_FILTER)
6042STATIC I32 S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
0bd48802
AL		 6043STATIC void S_strip_return(pTHX_ SV *sv)
6044 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6045#define PERL_ARGS_ASSERT_STRIP_RETURN \
6046 assert(sv)
0bd48802 6047
cea2e8a9 6048# endif
c445ea15 6049# if defined(DEBUGGING)
704d4215
GG		 6050STATIC int S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp)
6051 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6052#define PERL_ARGS_ASSERT_TOKEREPORT \
6053 assert(lvalp)
704d4215 6054
83f99444 6055STATIC void S_printbuf(pTHX_ const char *const fmt, const char *const s)
931e0695
AL		 6056 __attribute__nonnull__(pTHX_1)
6057 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6058#define PERL_ARGS_ASSERT_PRINTBUF \
6059 assert(fmt); assert(s)
931e0695 6060
c445ea15 6061# endif
864dbfa3 6062#endif
1d7c1841 6063
0cb96387 6064#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
515a4f72 6065STATIC bool S_isa_lookup(pTHX_ HV *stash, const char * const name)
d43aa7f9 6066 __attribute__nonnull__(pTHX_1)
46c461b5 6067 __attribute__nonnull__(pTHX_2);
7918f24d 6068#define PERL_ARGS_ASSERT_ISA_LOOKUP \
d43aa7f9 6069 assert(stash); assert(name)
46c461b5 6070
4ba0c762
NC		 6071STATIC HV * S_get_isa_hash(pTHX_ HV *const stash)
6072 __attribute__nonnull__(pTHX_1);
6073#define PERL_ARGS_ASSERT_GET_ISA_HASH \
6074 assert(stash)
6075
864dbfa3 6076#endif
1d7c1841 6077
2d31dd6a 6078#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
27da23d5 6079#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
8772537c
AL		 6080STATIC char* S_stdize_locale(pTHX_ char* locs)
6081 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6082#define PERL_ARGS_ASSERT_STDIZE_LOCALE \
6083 assert(locs)
8772537c 6084
2d31dd6a 6085#endif
27da23d5 6086#endif
2d31dd6a
NIS		 6087
6088#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
44af46ee 6089STATIC const COP* S_closest_cop(pTHX_ const COP *cop, const OP *o)
8772537c 6090 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6091#define PERL_ARGS_ASSERT_CLOSEST_COP \
6092 assert(cop)
8772537c 6093
cea2e8a9 6094STATIC SV* S_mess_alloc(pTHX);
c5df3096
Z		 6095STATIC SV * S_with_queued_errors(pTHX_ SV *ex)
6096 __attribute__nonnull__(pTHX_1);
6097#define PERL_ARGS_ASSERT_WITH_QUEUED_ERRORS \
6098 assert(ex)
6099
6100STATIC bool S_invoke_exception_hook(pTHX_ SV *ex, bool warn);
0bd48802
AL		 6101STATIC char * S_write_no_mem(pTHX)
6102 __attribute__noreturn__;
6103
fd5aa6c3 6104#if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL)
bef8a128 6105STATIC void S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesize, const char *type_name, const SV *sv, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname)
56b5603e
MHM		 6106 __attribute__nonnull__(4)
6107 __attribute__nonnull__(8)
6108 __attribute__nonnull__(10);
6109#define PERL_ARGS_ASSERT_MEM_LOG_COMMON \
bef8a128 6110 assert(type_name); assert(filename); assert(funcname)
56b5603e
MHM		 6111
6112#endif
864dbfa3 6113#endif
1d7c1841 6114
4801ca72
JH		 6115#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
6116STATIC NV S_mulexp10(NV value, I32 exponent);
6117#endif
6118
646ca15d 6119#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
44af46ee
RGS		 6120STATIC STRLEN S_is_utf8_char_slow(const U8 *s, const STRLEN len)
6121 __attribute__warn_unused_result__
6122 __attribute__nonnull__(1);
7918f24d
NC		 6123#define PERL_ARGS_ASSERT_IS_UTF8_CHAR_SLOW \
6124 assert(s)
646ca15d 6125
7452cf6a
AL		 6126STATIC bool S_is_utf8_common(pTHX_ const U8 *const p, SV **swash, const char * const swashname)
6127 __attribute__warn_unused_result__
6128 __attribute__nonnull__(pTHX_1)
6129 __attribute__nonnull__(pTHX_2)
6130 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 6131#define PERL_ARGS_ASSERT_IS_UTF8_COMMON \
6132 assert(p); assert(swash); assert(swashname)
7452cf6a 6133
979f2922
TS		 6134STATIC SV* S_swash_get(pTHX_ SV* swash, UV start, UV span)
6135 __attribute__warn_unused_result__
6136 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6137#define PERL_ARGS_ASSERT_SWASH_GET \
6138 assert(swash)
979f2922 6139
646ca15d
JH		 6140#endif
6141
902f5b58
JH		 6142START_EXTERN_C
6143
7bc54cea 6144PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV *dstr, SV *sstr, const I32 flags)
abb2c242 6145 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6146#define PERL_ARGS_ASSERT_SV_SETSV_FLAGS \
6147 assert(dstr)
f54cb97a 6148
2e000ff2 6149PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV *const dstr, const char *sstr, const STRLEN len, const I32 flags)
abb2c242
JH		 6150 __attribute__nonnull__(pTHX_1)
6151 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6152#define PERL_ARGS_ASSERT_SV_CATPVN_FLAGS \
6153 assert(dstr); assert(sstr)
f54cb97a 6154
2e000ff2 6155PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags)
abb2c242 6156 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6157#define PERL_ARGS_ASSERT_SV_CATSV_FLAGS \
6158 assert(dsv)
f54cb97a 6159
b3ab6785
KW		 6160/* PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *const sv, const I32 flags)
6161 __attribute__nonnull__(pTHX_1); */
f54cb97a 6162
b3ab6785
KW		 6163PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags_grow(pTHX_ SV *const sv, const I32 flags, STRLEN extra)
6164 __attribute__nonnull__(pTHX_1);
6165#define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_FLAGS_GROW \
6166 assert(sv)
6167
12964ddd 6168PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags)
46c461b5 6169 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6170#define PERL_ARGS_ASSERT_SV_PVN_FORCE_FLAGS \
6171 assert(sv)
46c461b5 6172
5de3775c 6173PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV *const dsv, SV *const ssv)
abb2c242
JH		 6174 __attribute__nonnull__(pTHX_1)
6175 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6176#define PERL_ARGS_ASSERT_SV_COPYPV \
6177 assert(dsv); assert(ssv)
f54cb97a 6178
4373e329 6179PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value)
abb2c242
JH		 6180 __attribute__nonnull__(pTHX_1)
6181 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6182#define PERL_ARGS_ASSERT_MY_ATOF2 \
6183 assert(s); assert(value)
f54cb97a 6184
706e3e0f 6185PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
08ea85eb 6186PERL_CALLCONV int Perl_my_dirfd(pTHX_ DIR* dir);
f8c7b90f 6187#ifdef PERL_OLD_COPY_ON_WRITE
bcfe2509 6188PERL_CALLCONV SV* Perl_sv_setsv_cow(pTHX_ SV* dstr, SV* sstr)
46c461b5 6189 __attribute__nonnull__(pTHX_2);
7918f24d 6190#define PERL_ARGS_ASSERT_SV_SETSV_COW \
7536ed57 6191 assert(sstr)
46c461b5 6192
ed252734 6193#endif
902f5b58 6194
11bcd5da
NC		 6195PERL_CALLCONV const char * Perl_PerlIO_context_layers(pTHX_ const char *mode);
6196
e87a358a 6197#if defined(USE_PERLIO) && !defined(USE_SFIO)
66a1b24b
AL		 6198PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *f);
6199PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *f);
6200PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *f);
6201PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *f);
6202PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *f);
6203PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *f);
6204PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *f);
6205PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt);
3d4dd4c7 6206PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt);
66a1b24b 6207PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f);
4048f010 6208PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *f, void *vbuf, Size_t count)
66a1b24b 6209 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6210#define PERL_ARGS_ASSERT_PERLIO_READ \
6211 assert(vbuf)
66a1b24b 6212
4048f010 6213PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
66a1b24b 6214 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6215#define PERL_ARGS_ASSERT_PERLIO_WRITE \
6216 assert(vbuf)
66a1b24b 6217
4048f010 6218PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
66a1b24b 6219 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6220#define PERL_ARGS_ASSERT_PERLIO_UNREAD \
6221 assert(vbuf)
66a1b24b
AL		 6222
6223PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *f);
6224PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
6225
6226PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *f);
6227PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *f);
255164ba
DM		 6228PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *f)
6229 __attribute__warn_unused_result__;
6230
6231PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *f)
6232 __attribute__warn_unused_result__;
6233
e87a358a 6234
46c461b5
AL		 6235PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX)
6236 __attribute__warn_unused_result__;
6237
6238PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX)
6239 __attribute__warn_unused_result__;
6240
6241PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX)
6242 __attribute__warn_unused_result__;
6243
e87a358a 6244#endif /* PERLIO_LAYERS */
582ed04c 6245
d6721266 6246PERL_CALLCONV void Perl_deb_stack_all(pTHX);
efd0b058 6247#if defined(PERL_IN_DEB_C) || defined(PERL_DECL_PROT)
f75877b5
SH		 6248STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max)
6249 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6250#define PERL_ARGS_ASSERT_DEB_STACK_N \
6251 assert(stack_base)
f75877b5 6252
d6721266
DM		 6253#endif
6254
66a1b24b
AL		 6255PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags)
6256 __attribute__malloc__
6257 __attribute__warn_unused_result__;
6258
f75877b5
SH		 6259PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv)
6260 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6261#define PERL_ARGS_ASSERT_PAD_UNDEF \
6262 assert(cv)
f75877b5 6263
cca43f78 6264PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ const char *name, const STRLEN len, const U32 flags, HV *typestash, HV *ourstash)
abb2c242 6265 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6266#define PERL_ARGS_ASSERT_PAD_ADD_NAME \
6267 assert(name)
f54cb97a 6268
f75877b5
SH		 6269PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type)
6270 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6271#define PERL_ARGS_ASSERT_PAD_ADD_ANON \
6272 assert(sv)
f75877b5 6273
73b81b14 6274#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
2d12d04f 6275STATIC void S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
73b81b14 6276 __attribute__nonnull__(pTHX_1);
7918f24d 6277#define PERL_ARGS_ASSERT_PAD_CHECK_DUP \
73b81b14 6278 assert(name)
66a1b24b 6279
73b81b14 6280#endif
dd2155a4 6281#ifdef DEBUGGING
66a1b24b
AL		 6282PERL_CALLCONV void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
6283 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6284#define PERL_ARGS_ASSERT_PAD_SETSV \
6285 assert(sv)
66a1b24b 6286
dd2155a4
DM		 6287#endif
6288PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full);
6289PERL_CALLCONV void Perl_pad_tidy(pTHX_ padtidy_type type);
66a1b24b
AL		 6290PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full)
6291 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6292#define PERL_ARGS_ASSERT_DO_DUMP_PAD \
6293 assert(file)
66a1b24b
AL		 6294
6295PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv)
46c461b5
AL		 6296 __attribute__nonnull__(pTHX_1)
6297 __attribute__nonnull__(pTHX_2)
6298 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 6299#define PERL_ARGS_ASSERT_PAD_FIXUP_INNER_ANONS \
6300 assert(padlist); assert(old_cv); assert(new_cv)
66a1b24b
AL		 6301
6302
6303PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
6304 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6305#define PERL_ARGS_ASSERT_PAD_PUSH \
6306 assert(padlist)
dd2155a4 6307
901017d6
AL		 6308PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po)
6309 __attribute__warn_unused_result__;
6310
dd2155a4
DM		 6311
6312#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
f75877b5
SH		 6313STATIC PADOFFSET S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, SV** out_capture, SV** out_name_sv, int *out_flags)
6314 __attribute__nonnull__(pTHX_1)
6315 __attribute__nonnull__(pTHX_2)
6316 __attribute__nonnull__(pTHX_6)
6317 __attribute__nonnull__(pTHX_7);
7918f24d
NC		 6318#define PERL_ARGS_ASSERT_PAD_FINDLEX \
6319 assert(name); assert(cv); assert(out_name_sv); assert(out_flags)
f75877b5 6320
3291825f
NC		 6321STATIC PADOFFSET S_pad_add_name_sv(pTHX_ SV *namesv, const U32 flags, HV *typestash, HV *ourstash)
6322 __attribute__nonnull__(pTHX_1);
6323#define PERL_ARGS_ASSERT_PAD_ADD_NAME_SV \
6324 assert(namesv)
6325
dd2155a4 6326# if defined(DEBUGGING)
66a1b24b
AL		 6327STATIC void S_cv_dump(pTHX_ const CV *cv, const char *title)
6328 __attribute__nonnull__(pTHX_1)
6329 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6330#define PERL_ARGS_ASSERT_CV_DUMP \
6331 assert(cv); assert(title)
66a1b24b 6332
dd2155a4 6333# endif
dd2155a4 6334#endif
a3b680e6 6335PERL_CALLCONV CV* Perl_find_runcv(pTHX_ U32 *db_seqp)
abb2c242 6336 __attribute__warn_unused_result__;
a3b680e6 6337
dd28f7bb 6338PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX);
b4ab917c 6339#if defined(DEBUGGING)
255164ba 6340PERL_CALLCONV int Perl_get_debug_opts(pTHX_ const char **s, bool givehelp)
46c461b5
AL		 6341 __attribute__warn_unused_result__
6342 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6343#define PERL_ARGS_ASSERT_GET_DEBUG_OPTS \
6344 assert(s)
255164ba 6345
b4ab917c 6346#endif
4048f010 6347PERL_CALLCONV void Perl_save_set_svflags(pTHX_ SV *sv, U32 mask, U32 val)
cf684db6 6348 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6349#define PERL_ARGS_ASSERT_SAVE_SET_SVFLAGS \
6350 assert(sv)
cf684db6 6351
c3507693 6352#ifdef DEBUGGING
4048f010 6353PERL_CALLCONV void Perl_hv_assert(pTHX_ HV *hv)
66a1b24b 6354 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6355#define PERL_ARGS_ASSERT_HV_ASSERT \
6356 assert(hv)
66a1b24b 6357
ed760897 6358#endif
d6721266 6359
4048f010 6360PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV *hv)
b464bac0
AL		 6361 __attribute__warn_unused_result__
6362 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6363#define PERL_ARGS_ASSERT_HV_SCALAR \
6364 assert(hv)
b464bac0 6365
4048f010 6366PERL_CALLCONV I32* Perl_hv_riter_p(pTHX_ HV *hv)
b464bac0
AL		 6367 __attribute__warn_unused_result__
6368 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6369#define PERL_ARGS_ASSERT_HV_RITER_P \
6370 assert(hv)
b464bac0 6371
4048f010 6372PERL_CALLCONV HE** Perl_hv_eiter_p(pTHX_ HV *hv)
b464bac0
AL		 6373 __attribute__warn_unused_result__
6374 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6375#define PERL_ARGS_ASSERT_HV_EITER_P \
6376 assert(hv)
b464bac0 6377
4048f010 6378PERL_CALLCONV void Perl_hv_riter_set(pTHX_ HV *hv, I32 riter)
b464bac0 6379 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6380#define PERL_ARGS_ASSERT_HV_RITER_SET \
6381 assert(hv)
b464bac0 6382
4048f010 6383PERL_CALLCONV void Perl_hv_eiter_set(pTHX_ HV *hv, HE *eiter)
66a1b24b 6384 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6385#define PERL_ARGS_ASSERT_HV_EITER_SET \
6386 assert(hv)
b464bac0 6387
4048f010 6388PERL_CALLCONV void Perl_hv_name_set(pTHX_ HV *hv, const char *name, U32 len, U32 flags)
b464bac0 6389 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6390#define PERL_ARGS_ASSERT_HV_NAME_SET \
6391 assert(hv)
b464bac0 6392
4048f010 6393PERL_CALLCONV AV** Perl_hv_backreferences_p(pTHX_ HV *hv)
86f55936 6394 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6395#define PERL_ARGS_ASSERT_HV_BACKREFERENCES_P \
6396 assert(hv)
86f55936
NC		 6397
6398#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
4048f010 6399PERL_CALLCONV void Perl_hv_kill_backrefs(pTHX_ HV *hv)
86f55936 6400 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6401#define PERL_ARGS_ASSERT_HV_KILL_BACKREFS \
6402 assert(hv)
86f55936
NC		 6403
6404#endif
4048f010 6405PERL_CALLCONV void Perl_hv_clear_placeholders(pTHX_ HV *hv)
b464bac0 6406 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6407#define PERL_ARGS_ASSERT_HV_CLEAR_PLACEHOLDERS \
6408 assert(hv)
b464bac0 6409
4048f010 6410PERL_CALLCONV I32* Perl_hv_placeholders_p(pTHX_ HV *hv)
b464bac0
AL		 6411 __attribute__warn_unused_result__
6412 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6413#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_P \
6414 assert(hv)
b464bac0 6415
0c289d13 6416PERL_CALLCONV I32 Perl_hv_placeholders_get(pTHX_ const HV *hv)
b464bac0
AL		 6417 __attribute__warn_unused_result__
6418 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6419#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET \
6420 assert(hv)
b464bac0 6421
4048f010 6422PERL_CALLCONV void Perl_hv_placeholders_set(pTHX_ HV *hv, I32 ph)
b464bac0 6423 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6424#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_SET \
6425 assert(hv)
b464bac0 6426
ca732855 6427
4048f010 6428PERL_CALLCONV SV* Perl_magic_scalarpack(pTHX_ HV *hv, MAGIC *mg)
66a1b24b
AL		 6429 __attribute__nonnull__(pTHX_1)
6430 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6431#define PERL_ARGS_ASSERT_MAGIC_SCALARPACK \
6432 assert(hv); assert(mg)
66a1b24b 6433
10edeb5d
JH		 6434
6435#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
6c1b357c 6436STATIC SV * S_find_hash_subscript(pTHX_ const HV *const hv, const SV *const val)
10edeb5d 6437 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6438#define PERL_ARGS_ASSERT_FIND_HASH_SUBSCRIPT \
6439 assert(val)
10edeb5d 6440
6c1b357c 6441STATIC I32 S_find_array_subscript(pTHX_ const AV *const av, const SV *const val)
10edeb5d 6442 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6443#define PERL_ARGS_ASSERT_FIND_ARRAY_SUBSCRIPT \
6444 assert(val)
10edeb5d 6445
6c1b357c 6446STATIC SV* S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv, bool top);
29489e7c 6447#endif
96adfaa1 6448
1109a392
MHM		 6449#ifdef PERL_NEED_MY_HTOLE16
6450PERL_CALLCONV U16 Perl_my_htole16(U16 n);
6451#endif
6452#ifdef PERL_NEED_MY_LETOH16
6453PERL_CALLCONV U16 Perl_my_letoh16(U16 n);
6454#endif
6455#ifdef PERL_NEED_MY_HTOBE16
6456PERL_CALLCONV U16 Perl_my_htobe16(U16 n);
6457#endif
6458#ifdef PERL_NEED_MY_BETOH16
6459PERL_CALLCONV U16 Perl_my_betoh16(U16 n);
6460#endif
6461#ifdef PERL_NEED_MY_HTOLE32
6462PERL_CALLCONV U32 Perl_my_htole32(U32 n);
6463#endif
6464#ifdef PERL_NEED_MY_LETOH32
6465PERL_CALLCONV U32 Perl_my_letoh32(U32 n);
6466#endif
6467#ifdef PERL_NEED_MY_HTOBE32
6468PERL_CALLCONV U32 Perl_my_htobe32(U32 n);
6469#endif
6470#ifdef PERL_NEED_MY_BETOH32
6471PERL_CALLCONV U32 Perl_my_betoh32(U32 n);
6472#endif
6473#ifdef PERL_NEED_MY_HTOLE64
6474PERL_CALLCONV U64 Perl_my_htole64(U64 n);
6475#endif
6476#ifdef PERL_NEED_MY_LETOH64
6477PERL_CALLCONV U64 Perl_my_letoh64(U64 n);
6478#endif
6479#ifdef PERL_NEED_MY_HTOBE64
6480PERL_CALLCONV U64 Perl_my_htobe64(U64 n);
6481#endif
6482#ifdef PERL_NEED_MY_BETOH64
6483PERL_CALLCONV U64 Perl_my_betoh64(U64 n);
6484#endif
6485
6486#ifdef PERL_NEED_MY_HTOLES
6487PERL_CALLCONV short Perl_my_htoles(short n);
6488#endif
6489#ifdef PERL_NEED_MY_LETOHS
6490PERL_CALLCONV short Perl_my_letohs(short n);
6491#endif
6492#ifdef PERL_NEED_MY_HTOBES
6493PERL_CALLCONV short Perl_my_htobes(short n);
6494#endif
6495#ifdef PERL_NEED_MY_BETOHS
6496PERL_CALLCONV short Perl_my_betohs(short n);
6497#endif
6498#ifdef PERL_NEED_MY_HTOLEI
6499PERL_CALLCONV int Perl_my_htolei(int n);
6500#endif
6501#ifdef PERL_NEED_MY_LETOHI
6502PERL_CALLCONV int Perl_my_letohi(int n);
6503#endif
6504#ifdef PERL_NEED_MY_HTOBEI
6505PERL_CALLCONV int Perl_my_htobei(int n);
6506#endif
6507#ifdef PERL_NEED_MY_BETOHI
6508PERL_CALLCONV int Perl_my_betohi(int n);
6509#endif
6510#ifdef PERL_NEED_MY_HTOLEL
6511PERL_CALLCONV long Perl_my_htolel(long n);
6512#endif
6513#ifdef PERL_NEED_MY_LETOHL
6514PERL_CALLCONV long Perl_my_letohl(long n);
6515#endif
6516#ifdef PERL_NEED_MY_HTOBEL
6517PERL_CALLCONV long Perl_my_htobel(long n);
6518#endif
6519#ifdef PERL_NEED_MY_BETOHL
6520PERL_CALLCONV long Perl_my_betohl(long n);
6521#endif
6522
f75877b5
SH		 6523PERL_CALLCONV void Perl_my_swabn(void* ptr, int n)
6524 __attribute__nonnull__(1);
7918f24d
NC		 6525#define PERL_ARGS_ASSERT_MY_SWABN \
6526 assert(ptr)
f75877b5
SH		 6527
6528
fe9845cc 6529PERL_CALLCONV GV* Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, const svtype sv_type)
f75877b5 6530 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6531#define PERL_ARGS_ASSERT_GV_FETCHPVN_FLAGS \
6532 assert(name)
f75877b5 6533
fe9845cc 6534PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type)
f75877b5 6535 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6536#define PERL_ARGS_ASSERT_GV_FETCHSV \
6537 assert(name)
1109a392 6538
9d8f40c4 6539PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *const name_sv, U32 flags)
9d4ba2ae
AL		 6540 __attribute__warn_unused_result__
6541 __attribute__nonnull__(pTHX_1);
7918f24d 6542#define PERL_ARGS_ASSERT_IS_GV_MAGICAL_SV \
9d8f40c4 6543 assert(name_sv)
1df70142 6544
7a5fd60d 6545
9f6cc744 6546PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
ed221c57
AL		 6547 __attribute__warn_unused_result__
6548 __attribute__nonnull__(pTHX_1)
6549 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6550#define PERL_ARGS_ASSERT_STASHPV_HVNAME_MATCH \
6551 assert(c); assert(hv)
ed221c57 6552
2e0de35c 6553
41e4abd8 6554#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
46c461b5
AL		 6555PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv)
6556 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6557#define PERL_ARGS_ASSERT_DUMP_SV_CHILD \
6558 assert(sv)
46c461b5 6559
41e4abd8
NC		 6560#endif
6561
c69033f2 6562#ifdef PERL_DONT_CREATE_GVSV
bb85b28a 6563/* PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV *gv); */
c69033f2 6564#endif
26c7b074
NC		 6565#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
6566STATIC bool S_ckwarn_common(pTHX_ U32 w);
6567#endif
f54ba1c2
DM		 6568PERL_CALLCONV bool Perl_ckwarn(pTHX_ U32 w);
6569PERL_CALLCONV bool Perl_ckwarn_d(pTHX_ U32 w);
8ee4cf24 6570PERL_CALLCONV STRLEN * Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits, STRLEN size)
72dc9ed5
NC		 6571 __attribute__malloc__
6572 __attribute__warn_unused_result__
8ee4cf24 6573 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6574#define PERL_ARGS_ASSERT_NEW_WARNINGS_BITFIELD \
6575 assert(bits)
72dc9ed5 6576
c69033f2 6577
de37a194 6578PERL_CALLCONV void Perl_offer_nice_chunk(pTHX_ void *const chunk, const U32 chunk_size)
77354fb4 6579 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6580#define PERL_ARGS_ASSERT_OFFER_NICE_CHUNK \
6581 assert(chunk)
77354fb4
NC		 6582
6583
ce582cee
NC		 6584#ifndef SPRINTF_RETURNS_STRLEN
6585PERL_CALLCONV int Perl_my_sprintf(char *buffer, const char *pat, ...)
6586 __attribute__nonnull__(1)
6587 __attribute__nonnull__(2);
7918f24d
NC		 6588#define PERL_ARGS_ASSERT_MY_SPRINTF \
6589 assert(buffer); assert(pat)
ce582cee
NC		 6590
6591#endif
6592
d9fad198 6593PERL_CALLCONV int Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...)
f8f4df2c 6594 __attribute__format__(__printf__,3,4)
d9fad198
JH		 6595 __attribute__nonnull__(1)
6596 __attribute__nonnull__(3);
7918f24d
NC		 6597#define PERL_ARGS_ASSERT_MY_SNPRINTF \
6598 assert(buffer); assert(format)
d9fad198
JH		 6599
6600PERL_CALLCONV int Perl_my_vsnprintf(char *buffer, const Size_t len, const char *format, va_list ap)
6601 __attribute__nonnull__(1)
6602 __attribute__nonnull__(3);
7918f24d
NC		 6603#define PERL_ARGS_ASSERT_MY_VSNPRINTF \
6604 assert(buffer); assert(format)
d9fad198
JH		 6605
6606
b0269e46
AB		 6607PERL_CALLCONV void Perl_my_clearenv(pTHX);
6608
f16dd614 6609#ifdef PERL_IMPLICIT_CONTEXT
53d44271
JH		 6610#ifdef PERL_GLOBAL_STRUCT_PRIVATE
6611PERL_CALLCONV void* Perl_my_cxt_init(pTHX_ const char *my_cxt_key, size_t size)
6612 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6613#define PERL_ARGS_ASSERT_MY_CXT_INIT \
6614 assert(my_cxt_key)
53d44271
JH		 6615
6616PERL_CALLCONV int Perl_my_cxt_index(pTHX_ const char *my_cxt_key)
6617 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6618#define PERL_ARGS_ASSERT_MY_CXT_INDEX \
6619 assert(my_cxt_key)
53d44271
JH		 6620
6621#else
f16dd614
DM		 6622PERL_CALLCONV void* Perl_my_cxt_init(pTHX_ int *index, size_t size)
6623 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6624#define PERL_ARGS_ASSERT_MY_CXT_INIT \
6625 assert(index)
f16dd614
DM		 6626
6627#endif
53d44271 6628#endif
f16dd614 6629
a6cc4119
SP		 6630#ifndef HAS_STRLCAT
6631PERL_CALLCONV Size_t Perl_my_strlcat(char *dst, const char *src, Size_t size);
6632#endif
6633
6634#ifndef HAS_STRLCPY
6635PERL_CALLCONV Size_t Perl_my_strlcpy(char *dst, const char *src, Size_t size);
6636#endif
6637
1dba731d
NC		 6638#ifdef PERL_MAD
6639PERL_CALLCONV void Perl_pad_peg(const char* s)
6640 __attribute__nonnull__(1);
7918f24d
NC		 6641#define PERL_ARGS_ASSERT_PAD_PEG \
6642 assert(s)
1dba731d 6643
3b721df9
NC		 6644#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
6645STATIC void S_xmldump_attr(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
6646 __attribute__format__(__printf__,pTHX_3,pTHX_4)
6647 __attribute__nonnull__(pTHX_2)
6648 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 6649#define PERL_ARGS_ASSERT_XMLDUMP_ATTR \
6650 assert(file); assert(pat)
3b721df9
NC		 6651
6652#endif
6653PERL_CALLCONV void Perl_xmldump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
6654 __attribute__format__(__printf__,pTHX_3,pTHX_4)
6655 __attribute__nonnull__(pTHX_2)
6656 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 6657#define PERL_ARGS_ASSERT_XMLDUMP_INDENT \
6658 assert(file); assert(pat)
3b721df9
NC		 6659
6660PERL_CALLCONV void Perl_xmldump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args)
6661 __attribute__nonnull__(pTHX_2)
6662 __attribute__nonnull__(pTHX_3);
7918f24d
NC		 6663#define PERL_ARGS_ASSERT_XMLDUMP_VINDENT \
6664 assert(file); assert(pat)
3b721df9
NC		 6665
6666PERL_CALLCONV void Perl_xmldump_all(pTHX);
f0e3f042 6667PERL_CALLCONV void Perl_xmldump_all_perl(pTHX_ bool justperl);
3b721df9
NC		 6668PERL_CALLCONV void Perl_xmldump_packsubs(pTHX_ const HV* stash)
6669 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6670#define PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS \
6671 assert(stash)
3b721df9 6672
f0e3f042
CS		 6673PERL_CALLCONV void Perl_xmldump_packsubs_perl(pTHX_ const HV* stash, bool justperl)
6674 __attribute__nonnull__(pTHX_1);
6675#define PERL_ARGS_ASSERT_XMLDUMP_PACKSUBS_PERL \
6676 assert(stash)
6677
3b721df9
NC		 6678PERL_CALLCONV void Perl_xmldump_sub(pTHX_ const GV* gv)
6679 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6680#define PERL_ARGS_ASSERT_XMLDUMP_SUB \
6681 assert(gv)
3b721df9 6682
3ab0c9fa 6683PERL_CALLCONV void Perl_xmldump_sub_perl(pTHX_ const GV* gv, bool justperl)
f0e3f042
CS		 6684 __attribute__nonnull__(pTHX_1);
6685#define PERL_ARGS_ASSERT_XMLDUMP_SUB_PERL \
6686 assert(gv)
6687
3b721df9
NC		 6688PERL_CALLCONV void Perl_xmldump_form(pTHX_ const GV* gv)
6689 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6690#define PERL_ARGS_ASSERT_XMLDUMP_FORM \
6691 assert(gv)
3b721df9
NC		 6692
6693PERL_CALLCONV void Perl_xmldump_eval(pTHX);
6694PERL_CALLCONV char* Perl_sv_catxmlsv(pTHX_ SV *dsv, SV *ssv)
6695 __attribute__nonnull__(pTHX_1)
6696 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6697#define PERL_ARGS_ASSERT_SV_CATXMLSV \
6698 assert(dsv); assert(ssv)
3b721df9 6699
20f84293 6700PERL_CALLCONV char* Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8)
3b721df9
NC		 6701 __attribute__nonnull__(pTHX_1)
6702 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6703#define PERL_ARGS_ASSERT_SV_CATXMLPVN \
6704 assert(dsv); assert(pv)
3b721df9
NC		 6705
6706PERL_CALLCONV char* Perl_sv_xmlpeek(pTHX_ SV* sv)
6707 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6708#define PERL_ARGS_ASSERT_SV_XMLPEEK \
6709 assert(sv)
3b721df9
NC		 6710
6711PERL_CALLCONV void Perl_do_pmop_xmldump(pTHX_ I32 level, PerlIO *file, const PMOP *pm)
6712 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6713#define PERL_ARGS_ASSERT_DO_PMOP_XMLDUMP \
6714 assert(file)
3b721df9
NC		 6715
6716PERL_CALLCONV void Perl_pmop_xmldump(pTHX_ const PMOP* pm);
6717PERL_CALLCONV void Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o)
6718 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6719#define PERL_ARGS_ASSERT_DO_OP_XMLDUMP \
6720 assert(file)
3b721df9 6721
9f10164a 6722PERL_CALLCONV void Perl_op_xmldump(pTHX_ const OP *o)
3b721df9 6723 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6724#define PERL_ARGS_ASSERT_OP_XMLDUMP \
6725 assert(o)
3b721df9 6726
eb8433b7
NC		 6727
6728PERL_CALLCONV TOKEN* Perl_newTOKEN(pTHX_ I32 optype, YYSTYPE lval, MADPROP* madprop);
4048f010 6729PERL_CALLCONV void Perl_token_free(pTHX_ TOKEN *tk)
ca7a6974 6730 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6731#define PERL_ARGS_ASSERT_TOKEN_FREE \
6732 assert(tk)
ca7a6974 6733
4048f010 6734PERL_CALLCONV void Perl_token_getmad(pTHX_ TOKEN *tk, OP *o, char slot)
ca7a6974 6735 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6736#define PERL_ARGS_ASSERT_TOKEN_GETMAD \
6737 assert(tk)
ca7a6974 6738
eb8433b7
NC		 6739PERL_CALLCONV void Perl_op_getmad_weak(pTHX_ OP* from, OP* o, char slot);
6740PERL_CALLCONV void Perl_op_getmad(pTHX_ OP* from, OP* o, char slot);
6741PERL_CALLCONV void Perl_prepend_madprops(pTHX_ MADPROP* mp, OP* o, char slot);
6742PERL_CALLCONV void Perl_append_madprops(pTHX_ MADPROP* tm, OP* o, char slot);
6743PERL_CALLCONV void Perl_addmad(pTHX_ MADPROP* tm, MADPROP** root, char slot);
ca7a6974
NC		 6744PERL_CALLCONV MADPROP* Perl_newMADsv(pTHX_ char key, SV* sv)
6745 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6746#define PERL_ARGS_ASSERT_NEWMADSV \
6747 assert(sv)
ca7a6974 6748
d503a9ba 6749PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, void* val, I32 vlen);
eb8433b7 6750PERL_CALLCONV void Perl_mad_free(pTHX_ MADPROP* mp);
29595ff2
NC		 6751
6752# if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
6753STATIC char* S_skipspace0(pTHX_ char *s)
6754 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6755#define PERL_ARGS_ASSERT_SKIPSPACE0 \
6756 assert(s)
29595ff2
NC		 6757
6758STATIC char* S_skipspace1(pTHX_ char *s)
6759 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6760#define PERL_ARGS_ASSERT_SKIPSPACE1 \
6761 assert(s)
29595ff2
NC		 6762
6763STATIC char* S_skipspace2(pTHX_ char *s, SV **sv)
6764 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6765#define PERL_ARGS_ASSERT_SKIPSPACE2 \
6766 assert(s)
29595ff2 6767
af5683d1
NC		 6768STATIC void S_start_force(pTHX_ int where);
6769STATIC void S_curmad(pTHX_ char slot, SV *sv);
29595ff2 6770# endif
af5683d1 6771PERL_CALLCONV int Perl_madlex(pTHX);
00e74f14 6772PERL_CALLCONV int Perl_madparse(pTHX);
1dba731d 6773#endif
ed140128
AD		 6774#if !defined(HAS_SIGNBIT)
6775PERL_CALLCONV int Perl_signbit(NV f)
6776 __attribute__pure__;
6777
6778#endif
f16dd614 6779
8b850bd5
NC		 6780PERL_CALLCONV void Perl_emulate_cop_io(pTHX_ const COP *const c, SV *const sv)
6781 __attribute__nonnull__(pTHX_1)
6782 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6783#define PERL_ARGS_ASSERT_EMULATE_COP_IO \
6784 assert(c); assert(sv)
8b850bd5 6785
f7e71195 6786PERL_CALLCONV REGEXP * Perl_get_re_arg(pTHX_ SV *sv);
8b850bd5 6787
fa60396f
NC		 6788PERL_CALLCONV SV* Perl_mro_get_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which)
6789 __attribute__nonnull__(pTHX_1)
6790 __attribute__nonnull__(pTHX_2);
6791#define PERL_ARGS_ASSERT_MRO_GET_PRIVATE_DATA \
6792 assert(smeta); assert(which)
6793
6794PERL_CALLCONV SV* Perl_mro_set_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which, SV *const data)
6795 __attribute__nonnull__(pTHX_1)
6796 __attribute__nonnull__(pTHX_2)
6797 __attribute__nonnull__(pTHX_3);
6798#define PERL_ARGS_ASSERT_MRO_SET_PRIVATE_DATA \
6799 assert(smeta); assert(which); assert(data)
6800
a3e6e81e
NC		 6801PERL_CALLCONV const struct mro_alg * Perl_mro_get_from_name(pTHX_ SV *name)
6802 __attribute__nonnull__(pTHX_1);
6803#define PERL_ARGS_ASSERT_MRO_GET_FROM_NAME \
6804 assert(name)
6805
6806PERL_CALLCONV void Perl_mro_register(pTHX_ const struct mro_alg *mro)
6807 __attribute__nonnull__(pTHX_1);
6808#define PERL_ARGS_ASSERT_MRO_REGISTER \
6809 assert(mro)
6810
31b9005d
NC		 6811PERL_CALLCONV void Perl_mro_set_mro(pTHX_ struct mro_meta *const meta, SV *const name)
6812 __attribute__nonnull__(pTHX_1)
6813 __attribute__nonnull__(pTHX_2);
6814#define PERL_ARGS_ASSERT_MRO_SET_MRO \
6815 assert(meta); assert(name)
6816
47c9dd14
BB		 6817PERL_CALLCONV struct mro_meta* Perl_mro_meta_init(pTHX_ HV* stash)
6818 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6819#define PERL_ARGS_ASSERT_MRO_META_INIT \
6820 assert(stash)
47c9dd14
BB		 6821
6822#if defined(USE_ITHREADS)
6823PERL_CALLCONV struct mro_meta* Perl_mro_meta_dup(pTHX_ struct mro_meta* smeta, CLONE_PARAMS* param)
6824 __attribute__nonnull__(pTHX_1)
6825 __attribute__nonnull__(pTHX_2);
7918f24d
NC		 6826#define PERL_ARGS_ASSERT_MRO_META_DUP \
6827 assert(smeta); assert(param)
47c9dd14
BB		 6828
6829#endif
6830PERL_CALLCONV AV* Perl_mro_get_linear_isa(pTHX_ HV* stash)
6831 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6832#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA \
6833 assert(stash)
47c9dd14 6834
4befac30 6835#if defined(PERL_IN_MRO_C) || defined(PERL_DECL_PROT)
94d1e706 6836STATIC AV* S_mro_get_linear_isa_dfs(pTHX_ HV* stash, U32 level)
47c9dd14 6837 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6838#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA_DFS \
6839 assert(stash)
47c9dd14 6840
4befac30 6841#endif
47c9dd14
BB		 6842PERL_CALLCONV void Perl_mro_isa_changed_in(pTHX_ HV* stash)
6843 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6844#define PERL_ARGS_ASSERT_MRO_ISA_CHANGED_IN \
6845 assert(stash)
47c9dd14
BB		 6846
6847PERL_CALLCONV void Perl_mro_method_changed_in(pTHX_ HV* stash)
6848 __attribute__nonnull__(pTHX_1);
7918f24d
NC		 6849#define PERL_ARGS_ASSERT_MRO_METHOD_CHANGED_IN \
6850 assert(stash)
47c9dd14
BB		 6851
6852PERL_CALLCONV void Perl_boot_core_mro(pTHX);
cbec8ebe
DM		 6853PERL_CALLCONV void Perl_sys_init(int* argc, char*** argv)
6854 __attribute__nonnull__(1)
6855 __attribute__nonnull__(2);
7918f24d
NC		 6856#define PERL_ARGS_ASSERT_SYS_INIT \
6857 assert(argc); assert(argv)
cbec8ebe
DM		 6858
6859PERL_CALLCONV void Perl_sys_init3(int* argc, char*** argv, char*** env)
6860 __attribute__nonnull__(1)
6861 __attribute__nonnull__(2)
6862 __attribute__nonnull__(3);
7918f24d
NC		 6863#define PERL_ARGS_ASSERT_SYS_INIT3 \
6864 assert(argc); assert(argv); assert(env)
cbec8ebe 6865
d0820ef1 6866PERL_CALLCONV void Perl_sys_term(void);
dca6062a 6867PERL_CALLCONV const char * Perl_fetch_cop_label(pTHX_ struct refcounted_he *const chain, STRLEN *len, U32 *flags);
012da8e5
NC		 6868PERL_CALLCONV struct refcounted_he * Perl_store_cop_label(pTHX_ struct refcounted_he *const chain, const char *label)
6869 __attribute__nonnull__(pTHX_2);
6870#define PERL_ARGS_ASSERT_STORE_COP_LABEL \
6871 assert(label)
6872
47c9dd14 6873
4098b6bb
JV		 6874PERL_CALLCONV int Perl_keyword_plugin_standard(pTHX_ char* keyword_ptr, STRLEN keyword_len, OP** op_ptr)
6875 __attribute__nonnull__(pTHX_1)
6876 __attribute__nonnull__(pTHX_3);
6877#define PERL_ARGS_ASSERT_KEYWORD_PLUGIN_STANDARD \
6878 assert(keyword_ptr); assert(op_ptr)
6879
6880
3540d4ce 6881END_EXTERN_C
1df70142
AL		 6882/*
6883 * ex: set ts=8 sts=4 sw=4 noet:
6884 */
37442d52 6885/* ex: set ro: */
Unnamed repository; edit this file 'description' to name the repository.