This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make core_prototype provide the op number as well
[perl5.git] / proto.h
CommitLineData
78102347 1/* -*- buffer-read-only: t -*-
37442d52 2 *
f5e3445d
RGS
3 * proto.h
4 *
78102347
NC
5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
6 * 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 !!!!!!!
d7cb65f2 12 * This file is built by regen/embed.pl from data in embed.fnc,
78102347 13 * regen/embed.pl, regen/opcodes, 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 19START_EXTERN_C
e8a67806
NC
20PERL_CALLCONV int Perl_Gv_AMupdate(pTHX_ HV* stash, bool destructing)
21 __attribute__nonnull__(pTHX_1);
22#define PERL_ARGS_ASSERT_GV_AMUPDATE \
23 assert(stash)
255164ba 24
e8a67806 25PERL_CALLCONV const char * Perl_PerlIO_context_layers(pTHX_ const char *mode);
36bb2ab6
KW
26PERL_CALLCONV UV Perl__to_uni_fold_flags(pTHX_ UV c, U8 *p, STRLEN *lenp, U8 flags)
27 __attribute__nonnull__(pTHX_2)
28 __attribute__nonnull__(pTHX_3);
29#define PERL_ARGS_ASSERT__TO_UNI_FOLD_FLAGS \
30 assert(p); assert(lenp)
31
32PERL_CALLCONV UV Perl__to_utf8_fold_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, U8 flags)
33 __attribute__nonnull__(pTHX_1)
34 __attribute__nonnull__(pTHX_2);
35#define PERL_ARGS_ASSERT__TO_UTF8_FOLD_FLAGS \
36 assert(p); assert(ustrp)
37
e8a67806
NC
38PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
39 __attribute__nonnull__(pTHX_1);
40#define PERL_ARGS_ASSERT_ALLOCMY \
41 assert(name)
255164ba 42
46c461b5
AL
43PERL_CALLCONV SV* Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir)
44 __attribute__nonnull__(pTHX_1)
45 __attribute__nonnull__(pTHX_2);
7918f24d
NC
46#define PERL_ARGS_ASSERT_AMAGIC_CALL \
47 assert(left); assert(right)
46c461b5 48
25a9ffce
NC
49PERL_CALLCONV SV * Perl_amagic_deref_call(pTHX_ SV *ref, int method)
50 __attribute__nonnull__(pTHX_1);
51#define PERL_ARGS_ASSERT_AMAGIC_DEREF_CALL \
52 assert(ref)
53
255164ba
DM
54PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV** mark, SV** sp)
55 __attribute__nonnull__(pTHX_2)
56 __attribute__nonnull__(pTHX_3);
7918f24d
NC
57#define PERL_ARGS_ASSERT_APPLY \
58 assert(mark); assert(sp)
255164ba
DM
59
60PERL_CALLCONV void Perl_apply_attrs_string(pTHX_ const char *stashpv, CV *cv, const char *attrstr, STRLEN len)
61 __attribute__nonnull__(pTHX_1)
62 __attribute__nonnull__(pTHX_2)
63 __attribute__nonnull__(pTHX_3);
7918f24d
NC
64#define PERL_ARGS_ASSERT_APPLY_ATTRS_STRING \
65 assert(stashpv); assert(cv); assert(attrstr)
255164ba 66
e8a67806
NC
67PERL_CALLCONV void Perl_atfork_lock(void);
68PERL_CALLCONV void Perl_atfork_unlock(void);
69PERL_CALLCONV SV** Perl_av_arylen_p(pTHX_ AV *av)
70 __attribute__nonnull__(pTHX_1);
71#define PERL_ARGS_ASSERT_AV_ARYLEN_P \
72 assert(av)
73
4048f010 74PERL_CALLCONV void Perl_av_clear(pTHX_ AV *av)
7a5b473e 75 __attribute__nonnull__(pTHX_1);
7918f24d
NC
76#define PERL_ARGS_ASSERT_AV_CLEAR \
77 assert(av)
7a5b473e 78
e8a67806
NC
79PERL_CALLCONV void Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val)
80 __attribute__nonnull__(pTHX_1)
81 __attribute__nonnull__(pTHX_2);
82#define PERL_ARGS_ASSERT_AV_CREATE_AND_PUSH \
83 assert(avp); assert(val)
84
85PERL_CALLCONV SV** Perl_av_create_and_unshift_one(pTHX_ AV **const avp, SV *const val)
86 __attribute__nonnull__(pTHX_1)
87 __attribute__nonnull__(pTHX_2);
88#define PERL_ARGS_ASSERT_AV_CREATE_AND_UNSHIFT_ONE \
89 assert(avp); assert(val)
90
4048f010 91PERL_CALLCONV SV* Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags)
7a5b473e 92 __attribute__nonnull__(pTHX_1);
7918f24d
NC
93#define PERL_ARGS_ASSERT_AV_DELETE \
94 assert(av)
7a5b473e 95
4048f010 96PERL_CALLCONV bool Perl_av_exists(pTHX_ AV *av, I32 key)
7a5b473e
AL
97 __attribute__warn_unused_result__
98 __attribute__nonnull__(pTHX_1);
7918f24d
NC
99#define PERL_ARGS_ASSERT_AV_EXISTS \
100 assert(av)
a3b680e6 101
4048f010 102PERL_CALLCONV void Perl_av_extend(pTHX_ AV *av, I32 key)
abb2c242 103 __attribute__nonnull__(pTHX_1);
7918f24d
NC
104#define PERL_ARGS_ASSERT_AV_EXTEND \
105 assert(av)
a3b680e6 106
4048f010 107PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV *av, I32 key, I32 lval)
7a5b473e
AL
108 __attribute__warn_unused_result__
109 __attribute__nonnull__(pTHX_1);
7918f24d
NC
110#define PERL_ARGS_ASSERT_AV_FETCH \
111 assert(av)
a3b680e6 112
4048f010 113PERL_CALLCONV void Perl_av_fill(pTHX_ AV *av, I32 fill)
255164ba 114 __attribute__nonnull__(pTHX_1);
7918f24d
NC
115#define PERL_ARGS_ASSERT_AV_FILL \
116 assert(av)
255164ba 117
e8a67806
NC
118PERL_CALLCONV IV* Perl_av_iter_p(pTHX_ AV *av)
119 __attribute__nonnull__(pTHX_1);
120#define PERL_ARGS_ASSERT_AV_ITER_P \
121 assert(av)
122
bb5dd93d 123PERL_CALLCONV I32 Perl_av_len(pTHX_ AV *av)
255164ba
DM
124 __attribute__warn_unused_result__
125 __attribute__nonnull__(pTHX_1);
7918f24d
NC
126#define PERL_ARGS_ASSERT_AV_LEN \
127 assert(av)
a3b680e6 128
4048f010 129PERL_CALLCONV AV* Perl_av_make(pTHX_ I32 size, SV **strp)
abb2c242
JH
130 __attribute__warn_unused_result__
131 __attribute__nonnull__(pTHX_2);
7918f24d
NC
132#define PERL_ARGS_ASSERT_AV_MAKE \
133 assert(strp)
a3b680e6 134
4048f010 135PERL_CALLCONV SV* Perl_av_pop(pTHX_ AV *av)
7a5b473e 136 __attribute__nonnull__(pTHX_1);
7918f24d
NC
137#define PERL_ARGS_ASSERT_AV_POP \
138 assert(av)
7a5b473e 139
4048f010 140PERL_CALLCONV void Perl_av_push(pTHX_ AV *av, SV *val)
7a5b473e 141 __attribute__nonnull__(pTHX_1)
255164ba 142 __attribute__nonnull__(pTHX_2);
7918f24d
NC
143#define PERL_ARGS_ASSERT_AV_PUSH \
144 assert(av); assert(val)
255164ba 145
4048f010 146PERL_CALLCONV void Perl_av_reify(pTHX_ AV *av)
255164ba 147 __attribute__nonnull__(pTHX_1);
7918f24d
NC
148#define PERL_ARGS_ASSERT_AV_REIFY \
149 assert(av)
255164ba 150
4048f010 151PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV *av)
7a5b473e
AL
152 __attribute__warn_unused_result__
153 __attribute__nonnull__(pTHX_1);
7918f24d
NC
154#define PERL_ARGS_ASSERT_AV_SHIFT \
155 assert(av)
7a5b473e 156
4048f010 157PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, I32 key, SV *val)
7a5b473e 158 __attribute__nonnull__(pTHX_1);
7918f24d
NC
159#define PERL_ARGS_ASSERT_AV_STORE \
160 assert(av)
7a5b473e 161
4048f010 162PERL_CALLCONV void Perl_av_undef(pTHX_ AV *av)
7a5b473e 163 __attribute__nonnull__(pTHX_1);
7918f24d
NC
164#define PERL_ARGS_ASSERT_AV_UNDEF \
165 assert(av)
7a5b473e 166
4048f010 167PERL_CALLCONV void Perl_av_unshift(pTHX_ AV *av, I32 num)
7a5b473e 168 __attribute__nonnull__(pTHX_1);
7918f24d
NC
169#define PERL_ARGS_ASSERT_AV_UNSHIFT \
170 assert(av)
a3b680e6 171
4048f010 172PERL_CALLCONV OP* Perl_bind_match(pTHX_ I32 type, OP *left, OP *right)
abb2c242
JH
173 __attribute__warn_unused_result__
174 __attribute__nonnull__(pTHX_2)
175 __attribute__nonnull__(pTHX_3);
7918f24d
NC
176#define PERL_ARGS_ASSERT_BIND_MATCH \
177 assert(left); assert(right)
a3b680e6
AL
178
179PERL_CALLCONV OP* Perl_block_end(pTHX_ I32 floor, OP* seq)
6472dca1 180 __attribute__warn_unused_result__;
a3b680e6
AL
181
182PERL_CALLCONV I32 Perl_block_gimme(pTHX)
abb2c242 183 __attribute__warn_unused_result__;
a3b680e6
AL
184
185PERL_CALLCONV int Perl_block_start(pTHX_ int full)
abb2c242 186 __attribute__warn_unused_result__;
a3b680e6 187
bb6c22e7
BM
188PERL_CALLCONV void Perl_blockhook_register(pTHX_ BHK *hk)
189 __attribute__nonnull__(pTHX_1);
190#define PERL_ARGS_ASSERT_BLOCKHOOK_REGISTER \
191 assert(hk)
192
36ed5425 193PERL_CALLCONV void Perl_boot_core_PerlIO(pTHX);
e8a67806
NC
194PERL_CALLCONV void Perl_boot_core_UNIVERSAL(pTHX);
195PERL_CALLCONV void Perl_boot_core_mro(pTHX);
fed3ba5d
NC
196PERL_CALLCONV int Perl_bytes_cmp_utf8(pTHX_ const U8 *b, STRLEN blen, const U8 *u, STRLEN ulen)
197 __attribute__nonnull__(pTHX_1)
198 __attribute__nonnull__(pTHX_3);
199#define PERL_ARGS_ASSERT_BYTES_CMP_UTF8 \
200 assert(b); assert(u)
201
e8a67806
NC
202PERL_CALLCONV U8* Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8)
203 __attribute__nonnull__(pTHX_1)
204 __attribute__nonnull__(pTHX_2);
205#define PERL_ARGS_ASSERT_BYTES_FROM_UTF8 \
206 assert(s); assert(len)
207
208PERL_CALLCONV U8* Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len)
209 __attribute__nonnull__(pTHX_1)
210 __attribute__nonnull__(pTHX_2);
211#define PERL_ARGS_ASSERT_BYTES_TO_UTF8 \
212 assert(s); assert(len)
213
214PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv)
215 __attribute__nonnull__(pTHX_1)
216 __attribute__nonnull__(pTHX_3);
217#define PERL_ARGS_ASSERT_CALL_ARGV \
218 assert(sub_name); assert(argv)
219
220PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
4048f010 221PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
abb2c242 222 __attribute__nonnull__(pTHX_2);
7918f24d
NC
223#define PERL_ARGS_ASSERT_CALL_LIST \
224 assert(paramList)
a3b680e6 225
e8a67806
NC
226PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags)
227 __attribute__nonnull__(pTHX_1);
228#define PERL_ARGS_ASSERT_CALL_METHOD \
229 assert(methname)
230
231PERL_CALLCONV I32 Perl_call_pv(pTHX_ const char* sub_name, I32 flags)
232 __attribute__nonnull__(pTHX_1);
233#define PERL_ARGS_ASSERT_CALL_PV \
234 assert(sub_name)
235
236PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, VOL I32 flags)
237 __attribute__nonnull__(pTHX_1);
238#define PERL_ARGS_ASSERT_CALL_SV \
239 assert(sv)
240
2fefa6c7 241PERL_CALLCONV const PERL_CONTEXT * Perl_caller_cx(pTHX_ I32 level, const PERL_CONTEXT **dbcxp);
e8a67806
NC
242PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size)
243 __attribute__malloc__
244 __attribute__warn_unused_result__;
245
ae1951c1 246PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp)
abb2c242
JH
247 __attribute__warn_unused_result__
248 __attribute__nonnull__(pTHX_3);
7918f24d
NC
249#define PERL_ARGS_ASSERT_CANDO \
250 assert(statbufp)
f54cb97a 251
53c1dcc0
AL
252PERL_CALLCONV I32 Perl_cast_i32(pTHX_ NV f)
253 __attribute__warn_unused_result__;
254
255PERL_CALLCONV IV Perl_cast_iv(pTHX_ NV f)
256 __attribute__warn_unused_result__;
257
e8a67806 258PERL_CALLCONV U32 Perl_cast_ulong(pTHX_ NV f)
53c1dcc0
AL
259 __attribute__warn_unused_result__;
260
e8a67806 261PERL_CALLCONV UV Perl_cast_uv(pTHX_ NV f)
53c1dcc0
AL
262 __attribute__warn_unused_result__;
263
0876b9a0
KW
264PERL_CALLCONV bool Perl_check_utf8_print(pTHX_ const U8 *s, const STRLEN len)
265 __attribute__nonnull__(pTHX_1);
266#define PERL_ARGS_ASSERT_CHECK_UTF8_PRINT \
267 assert(s)
268
e8a67806
NC
269PERL_CALLCONV OP * Perl_ck_anoncode(pTHX_ OP *o)
270 __attribute__warn_unused_result__
2fefa6c7 271 __attribute__nonnull__(pTHX_1);
e8a67806
NC
272#define PERL_ARGS_ASSERT_CK_ANONCODE \
273 assert(o)
2fefa6c7 274
e8a67806
NC
275PERL_CALLCONV OP * Perl_ck_bitop(pTHX_ OP *o)
276 __attribute__warn_unused_result__
277 __attribute__nonnull__(pTHX_1);
278#define PERL_ARGS_ASSERT_CK_BITOP \
279 assert(o)
2fefa6c7 280
e8a67806
NC
281PERL_CALLCONV OP * Perl_ck_chdir(pTHX_ OP *o)
282 __attribute__warn_unused_result__
283 __attribute__nonnull__(pTHX_1);
284#define PERL_ARGS_ASSERT_CK_CHDIR \
285 assert(o)
2fefa6c7 286
e8a67806
NC
287PERL_CALLCONV OP * Perl_ck_concat(pTHX_ OP *o)
288 __attribute__warn_unused_result__
289 __attribute__nonnull__(pTHX_1);
290#define PERL_ARGS_ASSERT_CK_CONCAT \
291 assert(o)
9dcc53ea 292
e8a67806
NC
293PERL_CALLCONV OP * Perl_ck_defined(pTHX_ OP *o)
294 __attribute__warn_unused_result__
c5df3096 295 __attribute__nonnull__(pTHX_1);
e8a67806
NC
296#define PERL_ARGS_ASSERT_CK_DEFINED \
297 assert(o)
f54cb97a 298
e8a67806
NC
299PERL_CALLCONV OP * Perl_ck_delete(pTHX_ OP *o)
300 __attribute__warn_unused_result__
301 __attribute__nonnull__(pTHX_1);
302#define PERL_ARGS_ASSERT_CK_DELETE \
303 assert(o)
f54cb97a 304
e8a67806
NC
305PERL_CALLCONV OP * Perl_ck_die(pTHX_ OP *o)
306 __attribute__warn_unused_result__
307 __attribute__nonnull__(pTHX_1);
308#define PERL_ARGS_ASSERT_CK_DIE \
309 assert(o)
f54cb97a 310
e8a67806
NC
311PERL_CALLCONV OP * Perl_ck_each(pTHX_ OP *o)
312 __attribute__warn_unused_result__
313 __attribute__nonnull__(pTHX_1);
314#define PERL_ARGS_ASSERT_CK_EACH \
315 assert(o)
f54cb97a 316
d9088386
Z
317PERL_CALLCONV OP* Perl_ck_entersub_args_list(pTHX_ OP *entersubop)
318 __attribute__nonnull__(pTHX_1);
319#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_LIST \
320 assert(entersubop)
321
322PERL_CALLCONV OP* Perl_ck_entersub_args_proto(pTHX_ OP *entersubop, GV *namegv, SV *protosv)
323 __attribute__nonnull__(pTHX_1)
324 __attribute__nonnull__(pTHX_2)
325 __attribute__nonnull__(pTHX_3);
326#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_PROTO \
327 assert(entersubop); assert(namegv); assert(protosv)
328
329PERL_CALLCONV OP* Perl_ck_entersub_args_proto_or_list(pTHX_ OP *entersubop, GV *namegv, SV *protosv)
330 __attribute__nonnull__(pTHX_1)
331 __attribute__nonnull__(pTHX_2)
332 __attribute__nonnull__(pTHX_3);
333#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_PROTO_OR_LIST \
334 assert(entersubop); assert(namegv); assert(protosv)
335
e8a67806
NC
336PERL_CALLCONV OP * Perl_ck_eof(pTHX_ OP *o)
337 __attribute__warn_unused_result__
cbf82dd0 338 __attribute__nonnull__(pTHX_1);
e8a67806
NC
339#define PERL_ARGS_ASSERT_CK_EOF \
340 assert(o)
cbf82dd0 341
e8a67806
NC
342PERL_CALLCONV OP * Perl_ck_eval(pTHX_ OP *o)
343 __attribute__warn_unused_result__
abb2c242 344 __attribute__nonnull__(pTHX_1);
e8a67806
NC
345#define PERL_ARGS_ASSERT_CK_EVAL \
346 assert(o)
f54cb97a 347
e8a67806 348PERL_CALLCONV OP * Perl_ck_exec(pTHX_ OP *o)
62d55b22
NC
349 __attribute__warn_unused_result__
350 __attribute__nonnull__(pTHX_1);
e8a67806
NC
351#define PERL_ARGS_ASSERT_CK_EXEC \
352 assert(o)
62d55b22 353
e8a67806
NC
354PERL_CALLCONV OP * Perl_ck_exists(pTHX_ OP *o)
355 __attribute__warn_unused_result__
356 __attribute__nonnull__(pTHX_1);
357#define PERL_ARGS_ASSERT_CK_EXISTS \
358 assert(o)
255164ba 359
e8a67806
NC
360PERL_CALLCONV OP * Perl_ck_exit(pTHX_ OP *o)
361 __attribute__warn_unused_result__
362 __attribute__nonnull__(pTHX_1);
363#define PERL_ARGS_ASSERT_CK_EXIT \
364 assert(o)
255164ba 365
e8a67806
NC
366PERL_CALLCONV OP * Perl_ck_ftst(pTHX_ OP *o)
367 __attribute__warn_unused_result__
255164ba 368 __attribute__nonnull__(pTHX_1);
e8a67806
NC
369#define PERL_ARGS_ASSERT_CK_FTST \
370 assert(o)
255164ba 371
e8a67806
NC
372PERL_CALLCONV OP * Perl_ck_fun(pTHX_ OP *o)
373 __attribute__warn_unused_result__
255164ba 374 __attribute__nonnull__(pTHX_1);
e8a67806
NC
375#define PERL_ARGS_ASSERT_CK_FUN \
376 assert(o)
255164ba 377
e8a67806
NC
378PERL_CALLCONV OP * Perl_ck_glob(pTHX_ OP *o)
379 __attribute__warn_unused_result__
255164ba 380 __attribute__nonnull__(pTHX_1);
e8a67806
NC
381#define PERL_ARGS_ASSERT_CK_GLOB \
382 assert(o)
255164ba 383
e8a67806 384PERL_CALLCONV OP * Perl_ck_grep(pTHX_ OP *o)
255164ba 385 __attribute__warn_unused_result__
e8a67806
NC
386 __attribute__nonnull__(pTHX_1);
387#define PERL_ARGS_ASSERT_CK_GREP \
388 assert(o)
255164ba 389
e8a67806 390PERL_CALLCONV OP * Perl_ck_index(pTHX_ OP *o)
abb2c242 391 __attribute__warn_unused_result__
e8a67806
NC
392 __attribute__nonnull__(pTHX_1);
393#define PERL_ARGS_ASSERT_CK_INDEX \
394 assert(o)
f54cb97a 395
e8a67806 396PERL_CALLCONV OP * Perl_ck_join(pTHX_ OP *o)
abb2c242 397 __attribute__warn_unused_result__
e8a67806
NC
398 __attribute__nonnull__(pTHX_1);
399#define PERL_ARGS_ASSERT_CK_JOIN \
400 assert(o)
f54cb97a 401
e8a67806 402PERL_CALLCONV OP * Perl_ck_lfun(pTHX_ OP *o)
abb2c242 403 __attribute__warn_unused_result__
e8a67806
NC
404 __attribute__nonnull__(pTHX_1);
405#define PERL_ARGS_ASSERT_CK_LFUN \
406 assert(o)
f54cb97a 407
e8a67806 408PERL_CALLCONV OP * Perl_ck_listiob(pTHX_ OP *o)
abb2c242 409 __attribute__warn_unused_result__
e8a67806
NC
410 __attribute__nonnull__(pTHX_1);
411#define PERL_ARGS_ASSERT_CK_LISTIOB \
412 assert(o)
f54cb97a 413
e8a67806 414PERL_CALLCONV OP * Perl_ck_match(pTHX_ OP *o)
abb2c242 415 __attribute__warn_unused_result__
e8a67806
NC
416 __attribute__nonnull__(pTHX_1);
417#define PERL_ARGS_ASSERT_CK_MATCH \
418 assert(o)
f54cb97a 419
e8a67806
NC
420PERL_CALLCONV OP * Perl_ck_method(pTHX_ OP *o)
421 __attribute__warn_unused_result__
422 __attribute__nonnull__(pTHX_1);
423#define PERL_ARGS_ASSERT_CK_METHOD \
424 assert(o)
a3b680e6 425
e8a67806
NC
426PERL_CALLCONV OP * Perl_ck_null(pTHX_ OP *o)
427 __attribute__warn_unused_result__
255164ba 428 __attribute__nonnull__(pTHX_1);
e8a67806
NC
429#define PERL_ARGS_ASSERT_CK_NULL \
430 assert(o)
255164ba 431
e8a67806
NC
432PERL_CALLCONV OP * Perl_ck_open(pTHX_ OP *o)
433 __attribute__warn_unused_result__
255164ba 434 __attribute__nonnull__(pTHX_1);
e8a67806
NC
435#define PERL_ARGS_ASSERT_CK_OPEN \
436 assert(o)
f54cb97a 437
e8a67806
NC
438PERL_CALLCONV OP * Perl_ck_readline(pTHX_ OP *o)
439 __attribute__warn_unused_result__
abb2c242 440 __attribute__nonnull__(pTHX_1);
e8a67806 441#define PERL_ARGS_ASSERT_CK_READLINE \
7918f24d 442 assert(o)
f54cb97a 443
e8a67806
NC
444PERL_CALLCONV OP * Perl_ck_repeat(pTHX_ OP *o)
445 __attribute__warn_unused_result__
446 __attribute__nonnull__(pTHX_1);
447#define PERL_ARGS_ASSERT_CK_REPEAT \
448 assert(o)
449
450PERL_CALLCONV OP * Perl_ck_require(pTHX_ OP *o)
451 __attribute__warn_unused_result__
452 __attribute__nonnull__(pTHX_1);
453#define PERL_ARGS_ASSERT_CK_REQUIRE \
454 assert(o)
455
456PERL_CALLCONV OP * Perl_ck_return(pTHX_ OP *o)
457 __attribute__warn_unused_result__
458 __attribute__nonnull__(pTHX_1);
459#define PERL_ARGS_ASSERT_CK_RETURN \
460 assert(o)
461
462PERL_CALLCONV OP * Perl_ck_rfun(pTHX_ OP *o)
463 __attribute__warn_unused_result__
464 __attribute__nonnull__(pTHX_1);
465#define PERL_ARGS_ASSERT_CK_RFUN \
466 assert(o)
467
468PERL_CALLCONV OP * Perl_ck_rvconst(pTHX_ OP *o)
469 __attribute__warn_unused_result__
470 __attribute__nonnull__(pTHX_1);
471#define PERL_ARGS_ASSERT_CK_RVCONST \
472 assert(o)
473
474PERL_CALLCONV OP * Perl_ck_sassign(pTHX_ OP *o)
475 __attribute__warn_unused_result__
476 __attribute__nonnull__(pTHX_1);
477#define PERL_ARGS_ASSERT_CK_SASSIGN \
478 assert(o)
479
480PERL_CALLCONV OP * Perl_ck_select(pTHX_ OP *o)
481 __attribute__warn_unused_result__
482 __attribute__nonnull__(pTHX_1);
483#define PERL_ARGS_ASSERT_CK_SELECT \
484 assert(o)
485
486PERL_CALLCONV OP * Perl_ck_shift(pTHX_ OP *o)
487 __attribute__warn_unused_result__
488 __attribute__nonnull__(pTHX_1);
489#define PERL_ARGS_ASSERT_CK_SHIFT \
490 assert(o)
491
492PERL_CALLCONV OP * Perl_ck_smartmatch(pTHX_ OP *o)
493 __attribute__warn_unused_result__
494 __attribute__nonnull__(pTHX_1);
495#define PERL_ARGS_ASSERT_CK_SMARTMATCH \
496 assert(o)
497
498PERL_CALLCONV OP * Perl_ck_sort(pTHX_ OP *o)
499 __attribute__warn_unused_result__
500 __attribute__nonnull__(pTHX_1);
501#define PERL_ARGS_ASSERT_CK_SORT \
502 assert(o)
503
504PERL_CALLCONV OP * Perl_ck_spair(pTHX_ OP *o)
505 __attribute__warn_unused_result__
506 __attribute__nonnull__(pTHX_1);
507#define PERL_ARGS_ASSERT_CK_SPAIR \
508 assert(o)
509
510PERL_CALLCONV OP * Perl_ck_split(pTHX_ OP *o)
511 __attribute__warn_unused_result__
512 __attribute__nonnull__(pTHX_1);
513#define PERL_ARGS_ASSERT_CK_SPLIT \
514 assert(o)
515
516PERL_CALLCONV OP * Perl_ck_subr(pTHX_ OP *o)
517 __attribute__warn_unused_result__
518 __attribute__nonnull__(pTHX_1);
519#define PERL_ARGS_ASSERT_CK_SUBR \
520 assert(o)
521
522PERL_CALLCONV OP * Perl_ck_substr(pTHX_ OP *o)
523 __attribute__warn_unused_result__
524 __attribute__nonnull__(pTHX_1);
525#define PERL_ARGS_ASSERT_CK_SUBSTR \
526 assert(o)
527
528PERL_CALLCONV OP * Perl_ck_svconst(pTHX_ OP *o)
529 __attribute__warn_unused_result__
530 __attribute__nonnull__(pTHX_1);
531#define PERL_ARGS_ASSERT_CK_SVCONST \
532 assert(o)
533
534PERL_CALLCONV OP * Perl_ck_trunc(pTHX_ OP *o)
535 __attribute__warn_unused_result__
536 __attribute__nonnull__(pTHX_1);
537#define PERL_ARGS_ASSERT_CK_TRUNC \
538 assert(o)
539
540PERL_CALLCONV OP * Perl_ck_unpack(pTHX_ OP *o)
541 __attribute__warn_unused_result__
542 __attribute__nonnull__(pTHX_1);
543#define PERL_ARGS_ASSERT_CK_UNPACK \
544 assert(o)
545
546PERL_CALLCONV void Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
547 __attribute__format__(__printf__,pTHX_2,pTHX_3)
548 __attribute__nonnull__(pTHX_2);
549#define PERL_ARGS_ASSERT_CK_WARNER \
550 assert(pat)
551
552PERL_CALLCONV void Perl_ck_warner_d(pTHX_ U32 err, const char* pat, ...)
553 __attribute__format__(__printf__,pTHX_2,pTHX_3)
554 __attribute__nonnull__(pTHX_2);
555#define PERL_ARGS_ASSERT_CK_WARNER_D \
556 assert(pat)
557
558PERL_CALLCONV bool Perl_ckwarn(pTHX_ U32 w);
559PERL_CALLCONV bool Perl_ckwarn_d(pTHX_ U32 w);
560PERL_CALLCONV OP* Perl_convert(pTHX_ I32 optype, I32 flags, OP* o)
561 __attribute__warn_unused_result__;
562
aebc0cbe
FC
563PERL_CALLCONV const char * Perl_cop_fetch_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags)
564 __attribute__nonnull__(pTHX_1);
565#define PERL_ARGS_ASSERT_COP_FETCH_LABEL \
566 assert(cop)
567
568PERL_CALLCONV void Perl_cop_store_label(pTHX_ COP *const cop, const char *label, STRLEN len, U32 flags)
569 __attribute__nonnull__(pTHX_1)
570 __attribute__nonnull__(pTHX_2);
571#define PERL_ARGS_ASSERT_COP_STORE_LABEL \
572 assert(cop); assert(label)
573
9927957a 574PERL_CALLCONV SV * Perl_core_prototype(pTHX_ SV *sv, const char *name, const STRLEN len, int * const opnum, const bool croak)
b8c38f0a
FC
575 __attribute__nonnull__(pTHX_2);
576#define PERL_ARGS_ASSERT_CORE_PROTOTYPE \
577 assert(name)
578
e8a67806
NC
579PERL_CALLCONV PERL_CONTEXT* Perl_create_eval_scope(pTHX_ U32 flags);
580PERL_CALLCONV void Perl_croak(pTHX_ const char* pat, ...)
581 __attribute__noreturn__
582 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
583
584PERL_CALLCONV void Perl_croak_no_modify(pTHX)
585 __attribute__noreturn__;
586
587PERL_CALLCONV void Perl_croak_sv(pTHX_ SV *baseex)
588 __attribute__noreturn__
589 __attribute__nonnull__(pTHX_1);
590#define PERL_ARGS_ASSERT_CROAK_SV \
591 assert(baseex)
592
593PERL_CALLCONV void Perl_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
594 __attribute__noreturn__
595 __attribute__nonnull__(pTHX_1)
596 __attribute__nonnull__(pTHX_2);
597#define PERL_ARGS_ASSERT_CROAK_XS_USAGE \
598 assert(cv); assert(params)
599
600PERL_CALLCONV const char * Perl_custom_op_desc(pTHX_ const OP *o)
601 __attribute__warn_unused_result__
602 __attribute__nonnull__(pTHX_1);
603#define PERL_ARGS_ASSERT_CUSTOM_OP_DESC \
604 assert(o)
605
606PERL_CALLCONV const char * Perl_custom_op_name(pTHX_ const OP *o)
607 __attribute__warn_unused_result__
608 __attribute__nonnull__(pTHX_1);
609#define PERL_ARGS_ASSERT_CUSTOM_OP_NAME \
610 assert(o)
611
1830b3d9
BM
612PERL_CALLCONV void Perl_custom_op_register(pTHX_ Perl_ppaddr_t ppaddr, const XOP *xop)
613 __attribute__nonnull__(pTHX_1)
614 __attribute__nonnull__(pTHX_2);
615#define PERL_ARGS_ASSERT_CUSTOM_OP_REGISTER \
616 assert(ppaddr); assert(xop)
617
618PERL_CALLCONV const XOP * Perl_custom_op_xop(pTHX_ const OP *o)
619 __attribute__pure__
620 __attribute__nonnull__(pTHX_1);
621#define PERL_ARGS_ASSERT_CUSTOM_OP_XOP \
622 assert(o)
623
e8a67806
NC
624PERL_CALLCONV void Perl_cv_ckproto_len(pTHX_ const CV* cv, const GV* gv, const char* p, const STRLEN len)
625 __attribute__nonnull__(pTHX_1);
626#define PERL_ARGS_ASSERT_CV_CKPROTO_LEN \
627 assert(cv)
628
629PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto)
630 __attribute__nonnull__(pTHX_1);
631#define PERL_ARGS_ASSERT_CV_CLONE \
632 assert(proto)
633
634PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ const CV *const cv)
635 __attribute__warn_unused_result__;
636
d9088386
Z
637PERL_CALLCONV void Perl_cv_get_call_checker(pTHX_ CV *cv, Perl_call_checker *ckfun_p, SV **ckobj_p)
638 __attribute__nonnull__(pTHX_1)
639 __attribute__nonnull__(pTHX_2)
640 __attribute__nonnull__(pTHX_3);
641#define PERL_ARGS_ASSERT_CV_GET_CALL_CHECKER \
642 assert(cv); assert(ckfun_p); assert(ckobj_p)
643
644PERL_CALLCONV void Perl_cv_set_call_checker(pTHX_ CV *cv, Perl_call_checker ckfun, SV *ckobj)
645 __attribute__nonnull__(pTHX_1)
646 __attribute__nonnull__(pTHX_2)
647 __attribute__nonnull__(pTHX_3);
648#define PERL_ARGS_ASSERT_CV_SET_CALL_CHECKER \
649 assert(cv); assert(ckfun); assert(ckobj)
650
e8a67806
NC
651PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv)
652 __attribute__nonnull__(pTHX_1);
653#define PERL_ARGS_ASSERT_CV_UNDEF \
654 assert(cv)
655
656PERL_CALLCONV void Perl_cvgv_set(pTHX_ CV* cv, GV* gv)
657 __attribute__nonnull__(pTHX_1);
658#define PERL_ARGS_ASSERT_CVGV_SET \
659 assert(cv)
660
c68d9564
Z
661PERL_CALLCONV void Perl_cvstash_set(pTHX_ CV* cv, HV* stash)
662 __attribute__nonnull__(pTHX_1);
663#define PERL_ARGS_ASSERT_CVSTASH_SET \
664 assert(cv)
665
e8a67806
NC
666PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cx)
667 __attribute__nonnull__(pTHX_1);
668#define PERL_ARGS_ASSERT_CX_DUMP \
669 assert(cx)
670
671PERL_CALLCONV I32 Perl_cxinc(pTHX)
672 __attribute__warn_unused_result__;
673
674PERL_CALLCONV void Perl_deb(pTHX_ const char* pat, ...)
675 __attribute__format__(__printf__,pTHX_1,pTHX_2)
676 __attribute__nonnull__(pTHX_1);
677#define PERL_ARGS_ASSERT_DEB \
678 assert(pat)
679
680PERL_CALLCONV void Perl_deb_stack_all(pTHX);
681PERL_CALLCONV I32 Perl_debop(pTHX_ const OP* o)
682 __attribute__nonnull__(pTHX_1);
683#define PERL_ARGS_ASSERT_DEBOP \
684 assert(o)
685
686PERL_CALLCONV void Perl_debprofdump(pTHX);
687PERL_CALLCONV I32 Perl_debstack(pTHX);
688PERL_CALLCONV I32 Perl_debstackptrs(pTHX);
689PERL_CALLCONV void Perl_delete_eval_scope(pTHX);
04c9e624
VP
690PERL_CALLCONV char* Perl_delimcpy(char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen)
691 __attribute__nonnull__(1)
692 __attribute__nonnull__(2)
693 __attribute__nonnull__(3)
694 __attribute__nonnull__(4)
695 __attribute__nonnull__(6);
7918f24d
NC
696#define PERL_ARGS_ASSERT_DELIMCPY \
697 assert(to); assert(toend); assert(from); assert(fromend); assert(retlen)
f54cb97a 698
e8a67806
NC
699PERL_CALLCONV void Perl_despatch_signals(pTHX);
700PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...)
701 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
702
c5df3096
Z
703PERL_CALLCONV OP* Perl_die_sv(pTHX_ SV *baseex)
704 __attribute__nonnull__(pTHX_1);
705#define PERL_ARGS_ASSERT_DIE_SV \
706 assert(baseex)
707
62705b21 708PERL_CALLCONV void Perl_die_unwind(pTHX_ SV* msv)
c5df3096
Z
709 __attribute__noreturn__
710 __attribute__nonnull__(pTHX_1);
711#define PERL_ARGS_ASSERT_DIE_UNWIND \
62705b21 712 assert(msv)
bb4c52e0 713
a9f96b3f 714/* PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)
255164ba 715 __attribute__nonnull__(pTHX_2)
a9f96b3f 716 __attribute__nonnull__(pTHX_3); */
7918f24d
NC
717#define PERL_ARGS_ASSERT_DO_AEXEC \
718 assert(mark); assert(sp)
255164ba 719
5b5cf8d2 720PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int do_report)
255164ba
DM
721 __attribute__nonnull__(pTHX_2)
722 __attribute__nonnull__(pTHX_3);
7918f24d
NC
723#define PERL_ARGS_ASSERT_DO_AEXEC5 \
724 assert(mark); assert(sp)
255164ba 725
4373e329 726PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
abb2c242 727 __attribute__nonnull__(pTHX_1);
7918f24d
NC
728#define PERL_ARGS_ASSERT_DO_BINMODE \
729 assert(fp)
f54cb97a 730
063df69c 731PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit);
e8a67806
NC
732PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full)
733 __attribute__nonnull__(pTHX_2);
734#define PERL_ARGS_ASSERT_DO_DUMP_PAD \
735 assert(file)
736
4373e329 737PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv)
abb2c242 738 __attribute__nonnull__(pTHX_1);
7918f24d
NC
739#define PERL_ARGS_ASSERT_DO_EOF \
740 assert(gv)
f54cb97a 741
e8a67806
NC
742PERL_CALLCONV void Perl_do_execfree(pTHX);
743PERL_CALLCONV void Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
744 __attribute__nonnull__(pTHX_2)
745 __attribute__nonnull__(pTHX_3);
746#define PERL_ARGS_ASSERT_DO_GV_DUMP \
747 assert(file); assert(name)
f54cb97a 748
e8a67806 749PERL_CALLCONV void Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
fb9bf107
NC
750 __attribute__nonnull__(pTHX_2)
751 __attribute__nonnull__(pTHX_3);
e8a67806
NC
752#define PERL_ARGS_ASSERT_DO_GVGV_DUMP \
753 assert(file); assert(name)
fb9bf107 754
e8a67806 755PERL_CALLCONV void Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv)
fb9bf107
NC
756 __attribute__nonnull__(pTHX_2)
757 __attribute__nonnull__(pTHX_3);
e8a67806
NC
758#define PERL_ARGS_ASSERT_DO_HV_DUMP \
759 assert(file); assert(name)
fb9bf107 760
4048f010 761PERL_CALLCONV void Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp)
abb2c242
JH
762 __attribute__nonnull__(pTHX_1)
763 __attribute__nonnull__(pTHX_2)
764 __attribute__nonnull__(pTHX_3)
765 __attribute__nonnull__(pTHX_4);
7918f24d
NC
766#define PERL_ARGS_ASSERT_DO_JOIN \
767 assert(sv); assert(delim); assert(mark); assert(sp)
f54cb97a 768
e8a67806
NC
769PERL_CALLCONV void Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
770 __attribute__nonnull__(pTHX_2)
771 __attribute__nonnull__(pTHX_3);
772#define PERL_ARGS_ASSERT_DO_MAGIC_DUMP \
773 assert(file); assert(mg)
774
33efebe6
DM
775PERL_CALLCONV I32 Perl_do_ncmp(pTHX_ SV *const left, SV *const right)
776 __attribute__warn_unused_result__
777 __attribute__nonnull__(pTHX_1)
778 __attribute__nonnull__(pTHX_2);
779#define PERL_ARGS_ASSERT_DO_NCMP \
780 assert(left); assert(right)
781
e8a67806
NC
782PERL_CALLCONV void Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
783 __attribute__nonnull__(pTHX_2);
784#define PERL_ARGS_ASSERT_DO_OP_DUMP \
785 assert(file)
786
e4dba786 787/* 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 788 __attribute__nonnull__(pTHX_1)
e4dba786 789 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
790#define PERL_ARGS_ASSERT_DO_OPEN \
791 assert(gv); assert(name)
255164ba 792
2fbb330f 793PERL_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
794 __attribute__nonnull__(pTHX_1)
795 __attribute__nonnull__(pTHX_2)
796 __attribute__nonnull__(pTHX_8);
7918f24d
NC
797#define PERL_ARGS_ASSERT_DO_OPEN9 \
798 assert(gv); assert(name); assert(svs)
255164ba 799
4048f010 800PERL_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
801 __attribute__nonnull__(pTHX_1)
802 __attribute__nonnull__(pTHX_2);
7918f24d
NC
803#define PERL_ARGS_ASSERT_DO_OPENN \
804 assert(gv); assert(oname)
255164ba 805
e8a67806
NC
806PERL_CALLCONV void Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm)
807 __attribute__nonnull__(pTHX_2);
808#define PERL_ARGS_ASSERT_DO_PMOP_DUMP \
809 assert(file)
810
255164ba
DM
811PERL_CALLCONV bool Perl_do_print(pTHX_ SV* sv, PerlIO* fp)
812 __attribute__nonnull__(pTHX_2);
7918f24d
NC
813#define PERL_ARGS_ASSERT_DO_PRINT \
814 assert(fp)
255164ba
DM
815
816PERL_CALLCONV OP* Perl_do_readline(pTHX)
817 __attribute__warn_unused_result__;
818
1d7c1841 819PERL_CALLCONV bool Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
255164ba
DM
820PERL_CALLCONV void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg)
821 __attribute__nonnull__(pTHX_1)
822 __attribute__nonnull__(pTHX_3);
7918f24d
NC
823#define PERL_ARGS_ASSERT_DO_SPRINTF \
824 assert(sv); assert(sarg)
255164ba 825
e8a67806
NC
826PERL_CALLCONV void Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
827 __attribute__nonnull__(pTHX_2);
828#define PERL_ARGS_ASSERT_DO_SV_DUMP \
829 assert(file)
830
255164ba
DM
831PERL_CALLCONV Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence)
832 __attribute__nonnull__(pTHX_1);
7918f24d
NC
833#define PERL_ARGS_ASSERT_DO_SYSSEEK \
834 assert(gv)
255164ba
DM
835
836PERL_CALLCONV Off_t Perl_do_tell(pTHX_ GV* gv)
837 __attribute__warn_unused_result__
838 __attribute__nonnull__(pTHX_1);
7918f24d
NC
839#define PERL_ARGS_ASSERT_DO_TELL \
840 assert(gv)
255164ba
DM
841
842PERL_CALLCONV I32 Perl_do_trans(pTHX_ SV* sv)
843 __attribute__nonnull__(pTHX_1);
7918f24d
NC
844#define PERL_ARGS_ASSERT_DO_TRANS \
845 assert(sv)
255164ba 846
4373e329 847PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size)
abb2c242 848 __attribute__nonnull__(pTHX_1);
7918f24d
NC
849#define PERL_ARGS_ASSERT_DO_VECGET \
850 assert(sv)
f54cb97a 851
4373e329 852PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv)
abb2c242 853 __attribute__nonnull__(pTHX_1);
7918f24d
NC
854#define PERL_ARGS_ASSERT_DO_VECSET \
855 assert(sv)
f54cb97a 856
255164ba
DM
857PERL_CALLCONV void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right)
858 __attribute__nonnull__(pTHX_2)
859 __attribute__nonnull__(pTHX_3)
860 __attribute__nonnull__(pTHX_4);
7918f24d
NC
861#define PERL_ARGS_ASSERT_DO_VOP \
862 assert(sv); assert(left); assert(right)
255164ba 863
850e8516 864PERL_CALLCONV OP* Perl_dofile(pTHX_ OP* term, I32 force_builtin)
255164ba 865 __attribute__nonnull__(pTHX_1);
7918f24d
NC
866#define PERL_ARGS_ASSERT_DOFILE \
867 assert(term)
255164ba 868
e8a67806
NC
869PERL_CALLCONV bool Perl_doing_taint(int argc, char** argv, char** env)
870 __attribute__warn_unused_result__;
871
872PERL_CALLCONV OP * Perl_doref(pTHX_ OP *o, I32 type, bool set_op_ref)
873 __attribute__nonnull__(pTHX_1);
874#define PERL_ARGS_ASSERT_DOREF \
875 assert(o)
876
877PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix);
255164ba
DM
878PERL_CALLCONV I32 Perl_dowantarray(pTHX)
879 __attribute__warn_unused_result__;
880
1d7c1841 881PERL_CALLCONV void Perl_dump_all(pTHX);
f0e3f042 882PERL_CALLCONV void Perl_dump_all_perl(pTHX_ bool justperl);
1d7c1841 883PERL_CALLCONV void Perl_dump_eval(pTHX);
9a957fbc
AL
884PERL_CALLCONV void Perl_dump_form(pTHX_ const GV* gv)
885 __attribute__nonnull__(pTHX_1);
7918f24d
NC
886#define PERL_ARGS_ASSERT_DUMP_FORM \
887 assert(gv)
9a957fbc 888
e8a67806
NC
889PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
890 __attribute__format__(__printf__,pTHX_3,pTHX_4)
891 __attribute__nonnull__(pTHX_2)
892 __attribute__nonnull__(pTHX_3);
893#define PERL_ARGS_ASSERT_DUMP_INDENT \
894 assert(file); assert(pat)
255164ba 895
9a957fbc
AL
896PERL_CALLCONV void Perl_dump_packsubs(pTHX_ const HV* stash)
897 __attribute__nonnull__(pTHX_1);
7918f24d
NC
898#define PERL_ARGS_ASSERT_DUMP_PACKSUBS \
899 assert(stash)
9a957fbc 900
f0e3f042
CS
901PERL_CALLCONV void Perl_dump_packsubs_perl(pTHX_ const HV* stash, bool justperl)
902 __attribute__nonnull__(pTHX_1);
903#define PERL_ARGS_ASSERT_DUMP_PACKSUBS_PERL \
904 assert(stash)
905
f54cb97a 906PERL_CALLCONV void Perl_dump_sub(pTHX_ const GV* gv)
abb2c242 907 __attribute__nonnull__(pTHX_1);
7918f24d
NC
908#define PERL_ARGS_ASSERT_DUMP_SUB \
909 assert(gv)
f54cb97a 910
f0e3f042
CS
911PERL_CALLCONV void Perl_dump_sub_perl(pTHX_ const GV* gv, bool justperl)
912 __attribute__nonnull__(pTHX_1);
913#define PERL_ARGS_ASSERT_DUMP_SUB_PERL \
914 assert(gv)
915
e8a67806
NC
916PERL_CALLCONV void Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args)
917 __attribute__nonnull__(pTHX_2)
918 __attribute__nonnull__(pTHX_3);
919#define PERL_ARGS_ASSERT_DUMP_VINDENT \
920 assert(file); assert(pat)
921
922PERL_CALLCONV void Perl_emulate_cop_io(pTHX_ const COP *const c, SV *const sv)
923 __attribute__nonnull__(pTHX_1)
924 __attribute__nonnull__(pTHX_2);
925#define PERL_ARGS_ASSERT_EMULATE_COP_IO \
926 assert(c); assert(sv)
927
928PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error)
929 __attribute__nonnull__(pTHX_1);
930#define PERL_ARGS_ASSERT_EVAL_PV \
931 assert(p)
932
933PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags)
934 __attribute__nonnull__(pTHX_1);
935#define PERL_ARGS_ASSERT_EVAL_SV \
936 assert(sv)
937
255164ba
DM
938PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags)
939 __attribute__nonnull__(pTHX_1);
7918f24d
NC
940#define PERL_ARGS_ASSERT_FBM_COMPILE \
941 assert(sv)
255164ba 942
9f6cc744 943PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlestr, U32 flags)
255164ba
DM
944 __attribute__warn_unused_result__
945 __attribute__nonnull__(pTHX_1)
946 __attribute__nonnull__(pTHX_2)
947 __attribute__nonnull__(pTHX_3);
7918f24d
NC
948#define PERL_ARGS_ASSERT_FBM_INSTR \
949 assert(big); assert(bigend); assert(littlestr)
255164ba 950
26ea9e12
NC
951PERL_CALLCONV bool Perl_feature_is_enabled(pTHX_ const char *const name, STRLEN namelen)
952 __attribute__nonnull__(pTHX_1);
953#define PERL_ARGS_ASSERT_FEATURE_IS_ENABLED \
954 assert(name)
955
e8a67806
NC
956PERL_CALLCONV SV* Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
957PERL_CALLCONV void Perl_filter_del(pTHX_ filter_t funcp)
958 __attribute__nonnull__(pTHX_1);
959#define PERL_ARGS_ASSERT_FILTER_DEL \
960 assert(funcp)
961
962PERL_CALLCONV I32 Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
963 __attribute__warn_unused_result__
964 __attribute__nonnull__(pTHX_2);
965#define PERL_ARGS_ASSERT_FILTER_READ \
966 assert(buf_sv)
967
d164302a
GG
968PERL_CALLCONV void Perl_finalize_optree(pTHX_ OP* o)
969 __attribute__nonnull__(pTHX_1);
970#define PERL_ARGS_ASSERT_FINALIZE_OPTREE \
971 assert(o)
972
e8a67806
NC
973PERL_CALLCONV CV* Perl_find_runcv(pTHX_ U32 *db_seqp)
974 __attribute__warn_unused_result__;
975
976PERL_CALLCONV SV* Perl_find_rundefsv(pTHX);
977PERL_CALLCONV PADOFFSET Perl_find_rundefsvoffset(pTHX)
978 __attribute__deprecated__;
979
fb9bf107
NC
980PERL_CALLCONV char* Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char *const *const search_ext, I32 flags)
981 __attribute__nonnull__(pTHX_1);
7918f24d
NC
982#define PERL_ARGS_ASSERT_FIND_SCRIPT \
983 assert(scriptname)
fb9bf107 984
e8a67806
NC
985PERL_CALLCONV I32 Perl_foldEQ(const char* a, const char* b, I32 len)
986 __attribute__pure__
987 __attribute__nonnull__(1)
988 __attribute__nonnull__(2);
989#define PERL_ARGS_ASSERT_FOLDEQ \
990 assert(a); assert(b)
991
1b9f127b
KW
992PERL_CALLCONV I32 Perl_foldEQ_latin1(const char* a, const char* b, I32 len)
993 __attribute__pure__
994 __attribute__nonnull__(1)
995 __attribute__nonnull__(2);
996#define PERL_ARGS_ASSERT_FOLDEQ_LATIN1 \
997 assert(a); assert(b)
998
e8a67806
NC
999PERL_CALLCONV I32 Perl_foldEQ_locale(const char* a, const char* b, I32 len)
1000 __attribute__pure__
1001 __attribute__nonnull__(1)
1002 __attribute__nonnull__(2);
1003#define PERL_ARGS_ASSERT_FOLDEQ_LOCALE \
1004 assert(a); assert(b)
1005
eda9cac1
KW
1006/* PERL_CALLCONV I32 foldEQ_utf8(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2)
1007 __attribute__nonnull__(pTHX_1)
1008 __attribute__nonnull__(pTHX_5); */
1009
1010PERL_CALLCONV I32 Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2, U32 flags)
e8a67806
NC
1011 __attribute__nonnull__(pTHX_1)
1012 __attribute__nonnull__(pTHX_5);
eda9cac1 1013#define PERL_ARGS_ASSERT_FOLDEQ_UTF8_FLAGS \
e8a67806 1014 assert(s1); assert(s2)
f54cb97a 1015
894356b3 1016PERL_CALLCONV char* Perl_form(pTHX_ const char* pat, ...)
aec46f14
AL
1017 __attribute__format__(__printf__,pTHX_1,pTHX_2)
1018 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1019#define PERL_ARGS_ASSERT_FORM \
1020 assert(pat)
aec46f14 1021
e8a67806
NC
1022PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX);
1023PERL_CALLCONV void Perl_free_tmps(pTHX);
1024PERL_CALLCONV AV* Perl_get_av(pTHX_ const char *name, I32 flags)
aec46f14 1025 __attribute__nonnull__(pTHX_1);
e8a67806
NC
1026#define PERL_ARGS_ASSERT_GET_AV \
1027 assert(name)
f54cb97a 1028
e8a67806
NC
1029PERL_CALLCONV void* Perl_get_context(void)
1030 __attribute__warn_unused_result__;
1031
1032PERL_CALLCONV CV* Perl_get_cv(pTHX_ const char* name, I32 flags)
1033 __attribute__nonnull__(pTHX_1);
1034#define PERL_ARGS_ASSERT_GET_CV \
1035 assert(name)
1036
1037PERL_CALLCONV CV* Perl_get_cvn_flags(pTHX_ const char* name, STRLEN len, I32 flags)
1038 __attribute__nonnull__(pTHX_1);
1039#define PERL_ARGS_ASSERT_GET_CVN_FLAGS \
1040 assert(name)
8772537c 1041
005a8a35
NC
1042PERL_CALLCONV void Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
1043 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1044#define PERL_ARGS_ASSERT_GET_DB_SUB \
1045 assert(cv)
005a8a35 1046
e8a67806
NC
1047PERL_CALLCONV UV Perl_get_hash_seed(pTHX)
1048 __attribute__warn_unused_result__;
a28509cc 1049
e8a67806 1050PERL_CALLCONV HV* Perl_get_hv(pTHX_ const char *name, I32 flags)
46c461b5 1051 __attribute__nonnull__(pTHX_1);
e8a67806
NC
1052#define PERL_ARGS_ASSERT_GET_HV \
1053 assert(name)
46c461b5 1054
e8a67806
NC
1055PERL_CALLCONV const char* Perl_get_no_modify(pTHX)
1056 __attribute__warn_unused_result__
1057 __attribute__pure__;
1058
1059PERL_CALLCONV char** Perl_get_op_descs(pTHX)
1060 __attribute__warn_unused_result__
1061 __attribute__pure__;
1062
1063PERL_CALLCONV char** Perl_get_op_names(pTHX)
1064 __attribute__warn_unused_result__
1065 __attribute__pure__;
1066
1067PERL_CALLCONV U32* Perl_get_opargs(pTHX)
1068 __attribute__warn_unused_result__
1069 __attribute__pure__;
1070
1071PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX)
1072 __attribute__warn_unused_result__
1073 __attribute__pure__;
1074
1075PERL_CALLCONV REGEXP * Perl_get_re_arg(pTHX_ SV *sv);
1076PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char *name, I32 flags)
1077 __attribute__nonnull__(pTHX_1);
1078#define PERL_ARGS_ASSERT_GET_SV \
1079 assert(name)
1080
1081PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id)
1082 __attribute__warn_unused_result__;
1083
1084PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv)
1085 __attribute__nonnull__(pTHX_1);
1086#define PERL_ARGS_ASSERT_GETCWD_SV \
1087 assert(sv)
1088
1089PERL_CALLCONV void Perl_gp_free(pTHX_ GV* gv);
1090PERL_CALLCONV GP* Perl_gp_ref(pTHX_ GP* gp);
1091PERL_CALLCONV UV Perl_grok_bin(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
1092 __attribute__nonnull__(pTHX_1)
1093 __attribute__nonnull__(pTHX_2)
1094 __attribute__nonnull__(pTHX_3);
1095#define PERL_ARGS_ASSERT_GROK_BIN \
1096 assert(start); assert(len_p); assert(flags)
1097
e8a67806
NC
1098PERL_CALLCONV UV Perl_grok_hex(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
1099 __attribute__nonnull__(pTHX_1)
1100 __attribute__nonnull__(pTHX_2)
1101 __attribute__nonnull__(pTHX_3);
1102#define PERL_ARGS_ASSERT_GROK_HEX \
1103 assert(start); assert(len_p); assert(flags)
1104
1105PERL_CALLCONV int Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
1106 __attribute__nonnull__(pTHX_1);
1107#define PERL_ARGS_ASSERT_GROK_NUMBER \
1108 assert(pv)
1109
1110PERL_CALLCONV bool Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
1111 __attribute__warn_unused_result__
1112 __attribute__nonnull__(pTHX_1)
1113 __attribute__nonnull__(pTHX_2);
1114#define PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX \
1115 assert(sp); assert(send)
1116
1117PERL_CALLCONV UV Perl_grok_oct(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result)
1118 __attribute__nonnull__(pTHX_1)
1119 __attribute__nonnull__(pTHX_2)
1120 __attribute__nonnull__(pTHX_3);
1121#define PERL_ARGS_ASSERT_GROK_OCT \
1122 assert(start); assert(len_p); assert(flags)
1123
1124/* PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV *gv); */
1125/* PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV *gv); */
1126/* PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv); */
1127PERL_CALLCONV GV* Perl_gv_add_by_type(pTHX_ GV *gv, svtype type);
1128PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method)
1129 __attribute__warn_unused_result__
1130 __attribute__nonnull__(pTHX_2);
1131#define PERL_ARGS_ASSERT_GV_AUTOLOAD4 \
1132 assert(name)
1133
1134PERL_CALLCONV void Perl_gv_check(pTHX_ const HV* stash)
1135 __attribute__nonnull__(pTHX_1);
1136#define PERL_ARGS_ASSERT_GV_CHECK \
1137 assert(stash)
1138
1139PERL_CALLCONV SV* Perl_gv_const_sv(pTHX_ GV* gv)
1140 __attribute__warn_unused_result__
1141 __attribute__nonnull__(pTHX_1);
1142#define PERL_ARGS_ASSERT_GV_CONST_SV \
1143 assert(gv)
1144
1145PERL_CALLCONV void Perl_gv_dump(pTHX_ GV* gv)
1146 __attribute__nonnull__(pTHX_1);
1147#define PERL_ARGS_ASSERT_GV_DUMP \
1148 assert(gv)
1149
1150PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, const GV* gv)
1151 __attribute__nonnull__(pTHX_1)
1152 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1153#define PERL_ARGS_ASSERT_GV_EFULLNAME \
1154 assert(sv); assert(gv)
46c461b5
AL
1155
1156/* PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix)
1157 __attribute__nonnull__(pTHX_1)
1158 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1159#define PERL_ARGS_ASSERT_GV_EFULLNAME3 \
1160 assert(sv); assert(gv)
46c461b5
AL
1161
1162PERL_CALLCONV void Perl_gv_efullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain)
1163 __attribute__nonnull__(pTHX_1)
1164 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1165#define PERL_ARGS_ASSERT_GV_EFULLNAME4 \
1166 assert(sv); assert(gv)
46c461b5 1167
53c1dcc0
AL
1168PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name)
1169 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1170#define PERL_ARGS_ASSERT_GV_FETCHFILE \
1171 assert(name)
53c1dcc0 1172
d9095cec
NC
1173PERL_CALLCONV GV* Perl_gv_fetchfile_flags(pTHX_ const char *const name, const STRLEN len, const U32 flags)
1174 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1175#define PERL_ARGS_ASSERT_GV_FETCHFILE_FLAGS \
1176 assert(name)
d9095cec 1177
fb9bf107
NC
1178PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
1179 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1180#define PERL_ARGS_ASSERT_GV_FETCHMETH \
1181 assert(name)
fb9bf107
NC
1182
1183PERL_CALLCONV GV* Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level)
1184 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1185#define PERL_ARGS_ASSERT_GV_FETCHMETH_AUTOLOAD \
1186 assert(name)
fb9bf107 1187
887986eb 1188/* PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name)
eff494dd 1189 __attribute__nonnull__(pTHX_1)
887986eb 1190 __attribute__nonnull__(pTHX_2); */
7918f24d 1191#define PERL_ARGS_ASSERT_GV_FETCHMETHOD \
eff494dd 1192 assert(stash); assert(name)
fb9bf107
NC
1193
1194PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload)
eff494dd 1195 __attribute__nonnull__(pTHX_1)
fb9bf107 1196 __attribute__nonnull__(pTHX_2);
7918f24d 1197#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD \
eff494dd 1198 assert(stash); assert(name)
fb9bf107 1199
256d1bb2 1200PERL_CALLCONV GV* Perl_gv_fetchmethod_flags(pTHX_ HV* stash, const char* name, U32 flags)
eff494dd 1201 __attribute__nonnull__(pTHX_1)
256d1bb2
NC
1202 __attribute__nonnull__(pTHX_2);
1203#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_FLAGS \
eff494dd 1204 assert(stash); assert(name)
256d1bb2 1205
fe9845cc 1206PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type)
9a957fbc 1207 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1208#define PERL_ARGS_ASSERT_GV_FETCHPV \
1209 assert(nambeg)
9a957fbc 1210
e8a67806
NC
1211PERL_CALLCONV GV* Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, const svtype sv_type)
1212 __attribute__nonnull__(pTHX_1);
1213#define PERL_ARGS_ASSERT_GV_FETCHPVN_FLAGS \
1214 assert(name)
1215
1216PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type)
1217 __attribute__nonnull__(pTHX_1);
1218#define PERL_ARGS_ASSERT_GV_FETCHSV \
1219 assert(name)
1220
9a957fbc
AL
1221PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, const GV* gv)
1222 __attribute__nonnull__(pTHX_1)
1223 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1224#define PERL_ARGS_ASSERT_GV_FULLNAME \
1225 assert(sv); assert(gv)
9a957fbc
AL
1226
1227/* PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix)
1228 __attribute__nonnull__(pTHX_1)
1229 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1230#define PERL_ARGS_ASSERT_GV_FULLNAME3 \
1231 assert(sv); assert(gv)
9a957fbc
AL
1232
1233PERL_CALLCONV void Perl_gv_fullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain)
1234 __attribute__nonnull__(pTHX_1)
1235 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1236#define PERL_ARGS_ASSERT_GV_FULLNAME4 \
1237 assert(sv); assert(gv)
9a957fbc 1238
e8a67806
NC
1239PERL_CALLCONV CV* Perl_gv_handler(pTHX_ HV* stash, I32 id)
1240 __attribute__warn_unused_result__;
803f2748 1241
53c1dcc0
AL
1242PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
1243 __attribute__nonnull__(pTHX_1)
53c1dcc0 1244 __attribute__nonnull__(pTHX_3);
7918f24d
NC
1245#define PERL_ARGS_ASSERT_GV_INIT \
1246 assert(gv); assert(name)
53c1dcc0 1247
f5c1e807 1248PERL_CALLCONV void Perl_gv_name_set(pTHX_ GV* gv, const char *name, U32 len, U32 flags)
9f616d01
MHM
1249 __attribute__nonnull__(pTHX_1)
1250 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1251#define PERL_ARGS_ASSERT_GV_NAME_SET \
1252 assert(gv); assert(name)
f5c1e807 1253
da51bb9b 1254PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 flags)
aa924a5a 1255 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1256#define PERL_ARGS_ASSERT_GV_STASHPV \
1257 assert(name)
aa924a5a 1258
da51bb9b 1259PERL_CALLCONV HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 flags)
aa924a5a 1260 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1261#define PERL_ARGS_ASSERT_GV_STASHPVN \
1262 assert(name)
aa924a5a 1263
8798655d
NC
1264PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags)
1265 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1266#define PERL_ARGS_ASSERT_GV_STASHSV \
1267 assert(sv)
8798655d 1268
e8a67806
NC
1269PERL_CALLCONV void Perl_gv_try_downgrade(pTHX_ GV* gv)
1270 __attribute__nonnull__(pTHX_1);
1271#define PERL_ARGS_ASSERT_GV_TRY_DOWNGRADE \
1272 assert(gv)
1273
1274PERL_CALLCONV AV** Perl_hv_backreferences_p(pTHX_ HV *hv)
1275 __attribute__nonnull__(pTHX_1);
1276#define PERL_ARGS_ASSERT_HV_BACKREFERENCES_P \
1277 assert(hv)
1278
4048f010 1279PERL_CALLCONV void Perl_hv_clear(pTHX_ HV *hv);
e8a67806
NC
1280PERL_CALLCONV void Perl_hv_clear_placeholders(pTHX_ HV *hv)
1281 __attribute__nonnull__(pTHX_1);
1282#define PERL_ARGS_ASSERT_HV_CLEAR_PLACEHOLDERS \
1283 assert(hv)
1284
1285PERL_CALLCONV void* Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char* key, STRLEN klen, int flags, int action, SV *val, U32 hash);
1286PERL_CALLCONV void* Perl_hv_common_key_len(pTHX_ HV *hv, const char *key, I32 klen_i32, const int action, SV *val, const U32 hash)
1287 __attribute__nonnull__(pTHX_2);
1288#define PERL_ARGS_ASSERT_HV_COMMON_KEY_LEN \
1289 assert(key)
1290
defdfed5
Z
1291PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv)
1292 __attribute__warn_unused_result__;
1293
4048f010 1294PERL_CALLCONV void Perl_hv_delayfree_ent(pTHX_ HV *hv, HE *entry)
aa924a5a 1295 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1296#define PERL_ARGS_ASSERT_HV_DELAYFREE_ENT \
1297 assert(hv)
aa924a5a 1298
4048f010 1299/* PERL_CALLCONV SV* Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen, I32 flags)
a038e571 1300 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1301#define PERL_ARGS_ASSERT_HV_DELETE \
1302 assert(key)
aa924a5a 1303
4048f010 1304/* PERL_CALLCONV SV* Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
4c2df08c 1305 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1306#define PERL_ARGS_ASSERT_HV_DELETE_ENT \
1307 assert(keysv)
aa924a5a 1308
e8a67806
NC
1309PERL_CALLCONV HE** Perl_hv_eiter_p(pTHX_ HV *hv)
1310 __attribute__warn_unused_result__
1311 __attribute__nonnull__(pTHX_1);
1312#define PERL_ARGS_ASSERT_HV_EITER_P \
1313 assert(hv)
1314
1315PERL_CALLCONV void Perl_hv_eiter_set(pTHX_ HV *hv, HE *eiter)
1316 __attribute__nonnull__(pTHX_1);
1317#define PERL_ARGS_ASSERT_HV_EITER_SET \
1318 assert(hv)
1319
27a1175b 1320PERL_CALLCONV void Perl_hv_ename_add(pTHX_ HV *hv, const char *name, U32 len, U32 flags)
78b79c77
FC
1321 __attribute__nonnull__(pTHX_1)
1322 __attribute__nonnull__(pTHX_2);
1323#define PERL_ARGS_ASSERT_HV_ENAME_ADD \
1324 assert(hv); assert(name)
1325
27a1175b 1326PERL_CALLCONV void Perl_hv_ename_delete(pTHX_ HV *hv, const char *name, U32 len, U32 flags)
78b79c77
FC
1327 __attribute__nonnull__(pTHX_1)
1328 __attribute__nonnull__(pTHX_2);
1329#define PERL_ARGS_ASSERT_HV_ENAME_DELETE \
1330 assert(hv); assert(name)
1331
4048f010 1332/* PERL_CALLCONV bool Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
aa924a5a 1333 __attribute__warn_unused_result__
a038e571 1334 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1335#define PERL_ARGS_ASSERT_HV_EXISTS \
1336 assert(key)
901017d6 1337
4048f010 1338/* PERL_CALLCONV bool Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
aa924a5a 1339 __attribute__warn_unused_result__
4c2df08c 1340 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1341#define PERL_ARGS_ASSERT_HV_EXISTS_ENT \
1342 assert(keysv)
aa924a5a 1343
4048f010 1344/* PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen, I32 lval)
a038e571 1345 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1346#define PERL_ARGS_ASSERT_HV_FETCH \
1347 assert(key)
901017d6 1348
4048f010 1349/* PERL_CALLCONV HE* Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash)
4c2df08c 1350 __attribute__nonnull__(pTHX_2); */
7918f24d
NC
1351#define PERL_ARGS_ASSERT_HV_FETCH_ENT \
1352 assert(keysv)
aa924a5a 1353
4d0fbddd
NC
1354PERL_CALLCONV STRLEN Perl_hv_fill(pTHX_ HV const *const hv)
1355 __attribute__nonnull__(pTHX_1);
1356#define PERL_ARGS_ASSERT_HV_FILL \
1357 assert(hv)
1358
4048f010 1359PERL_CALLCONV void Perl_hv_free_ent(pTHX_ HV *hv, HE *entryK)
abb2c242 1360 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1361#define PERL_ARGS_ASSERT_HV_FREE_ENT \
1362 assert(hv)
a3b680e6 1363
4048f010 1364PERL_CALLCONV I32 Perl_hv_iterinit(pTHX_ HV *hv)
abb2c242 1365 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1366#define PERL_ARGS_ASSERT_HV_ITERINIT \
1367 assert(hv)
a3b680e6
AL
1368
1369PERL_CALLCONV char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen)
abb2c242
JH
1370 __attribute__warn_unused_result__
1371 __attribute__nonnull__(pTHX_1)
1372 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1373#define PERL_ARGS_ASSERT_HV_ITERKEY \
1374 assert(entry); assert(retlen)
a3b680e6
AL
1375
1376PERL_CALLCONV SV* Perl_hv_iterkeysv(pTHX_ HE* entry)
abb2c242
JH
1377 __attribute__warn_unused_result__
1378 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1379#define PERL_ARGS_ASSERT_HV_ITERKEYSV \
1380 assert(entry)
a3b680e6 1381
4048f010 1382/* PERL_CALLCONV HE* Perl_hv_iternext(pTHX_ HV *hv)
abb2c242 1383 __attribute__warn_unused_result__
7a7b9979 1384 __attribute__nonnull__(pTHX_1); */
7918f24d
NC
1385#define PERL_ARGS_ASSERT_HV_ITERNEXT \
1386 assert(hv)
a3b680e6 1387
e8a67806
NC
1388PERL_CALLCONV HE* Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags)
1389 __attribute__warn_unused_result__
1390 __attribute__nonnull__(pTHX_1);
1391#define PERL_ARGS_ASSERT_HV_ITERNEXT_FLAGS \
1392 assert(hv)
1393
4048f010 1394PERL_CALLCONV SV* Perl_hv_iternextsv(pTHX_ HV *hv, char **key, I32 *retlen)
abb2c242
JH
1395 __attribute__warn_unused_result__
1396 __attribute__nonnull__(pTHX_1)
1397 __attribute__nonnull__(pTHX_2)
1398 __attribute__nonnull__(pTHX_3);
7918f24d
NC
1399#define PERL_ARGS_ASSERT_HV_ITERNEXTSV \
1400 assert(hv); assert(key); assert(retlen)
a3b680e6 1401
4048f010 1402PERL_CALLCONV SV* Perl_hv_iterval(pTHX_ HV *hv, HE *entry)
abb2c242
JH
1403 __attribute__warn_unused_result__
1404 __attribute__nonnull__(pTHX_1)
1405 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1406#define PERL_ARGS_ASSERT_HV_ITERVAL \
1407 assert(hv); assert(entry)
a3b680e6 1408
4048f010 1409PERL_CALLCONV void Perl_hv_ksplit(pTHX_ HV *hv, IV newmax)
abb2c242 1410 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1411#define PERL_ARGS_ASSERT_HV_KSPLIT \
1412 assert(hv)
a3b680e6 1413
4048f010 1414/* PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
bc5cdc23 1415 __attribute__nonnull__(pTHX_1); */
7918f24d
NC
1416#define PERL_ARGS_ASSERT_HV_MAGIC \
1417 assert(hv)
fb9bf107 1418
e8a67806
NC
1419PERL_CALLCONV void Perl_hv_name_set(pTHX_ HV *hv, const char *name, U32 len, U32 flags)
1420 __attribute__nonnull__(pTHX_1);
1421#define PERL_ARGS_ASSERT_HV_NAME_SET \
1422 assert(hv)
1423
1424PERL_CALLCONV I32 Perl_hv_placeholders_get(pTHX_ const HV *hv)
1425 __attribute__warn_unused_result__
1426 __attribute__nonnull__(pTHX_1);
1427#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET \
1428 assert(hv)
1429
1430PERL_CALLCONV I32* Perl_hv_placeholders_p(pTHX_ HV *hv)
1431 __attribute__warn_unused_result__
1432 __attribute__nonnull__(pTHX_1);
1433#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_P \
1434 assert(hv)
1435
1436PERL_CALLCONV void Perl_hv_placeholders_set(pTHX_ HV *hv, I32 ph)
1437 __attribute__nonnull__(pTHX_1);
1438#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_SET \
1439 assert(hv)
1440
1441PERL_CALLCONV I32* Perl_hv_riter_p(pTHX_ HV *hv)
1442 __attribute__warn_unused_result__
1443 __attribute__nonnull__(pTHX_1);
1444#define PERL_ARGS_ASSERT_HV_RITER_P \
1445 assert(hv)
1446
1447PERL_CALLCONV void Perl_hv_riter_set(pTHX_ HV *hv, I32 riter)
1448 __attribute__nonnull__(pTHX_1);
1449#define PERL_ARGS_ASSERT_HV_RITER_SET \
1450 assert(hv)
1451
1452PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV *hv)
1453 __attribute__warn_unused_result__
1454 __attribute__nonnull__(pTHX_1);
1455#define PERL_ARGS_ASSERT_HV_SCALAR \
1456 assert(hv)
012da8e5 1457
4048f010
NC
1458/* PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash); */
1459/* PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV *hv, SV *key, SV *val, U32 hash); */
1460/* PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash, int flags); */
8581adba
FC
1461/* PERL_CALLCONV void hv_undef(pTHX_ HV *hv); */
1462PERL_CALLCONV void Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags);
e6226b18
KW
1463/* PERL_CALLCONV I32 ibcmp(pTHX_ const char* a, const char* b, I32 len)
1464 __attribute__nonnull__(pTHX_1)
1465 __attribute__nonnull__(pTHX_2); */
1466
e6226b18
KW
1467/* PERL_CALLCONV I32 ibcmp_locale(pTHX_ const char* a, const char* b, I32 len)
1468 __attribute__nonnull__(pTHX_1)
1469 __attribute__nonnull__(pTHX_2); */
1470
e6226b18
KW
1471/* PERL_CALLCONV I32 ibcmp_utf8(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2)
1472 __attribute__nonnull__(pTHX_1)
1473 __attribute__nonnull__(pTHX_5); */
1474
4373e329 1475PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv)
abb2c242 1476 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1477#define PERL_ARGS_ASSERT_INIT_ARGV_SYMBOLS \
1478 assert(argv)
f54cb97a 1479
8af6f985 1480PERL_CALLCONV void Perl_init_dbargs(pTHX);
1d7c1841 1481PERL_CALLCONV void Perl_init_debugger(pTHX);
e8a67806
NC
1482PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn);
1483PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn);
1d7c1841 1484PERL_CALLCONV void Perl_init_stacks(pTHX);
bfce84ec
AL
1485PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm)
1486 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1487#define PERL_ARGS_ASSERT_INIT_TM \
1488 assert(ptm)
bfce84ec 1489
04c9e624 1490PERL_CALLCONV char* Perl_instr(const char* big, const char* little)
b464bac0 1491 __attribute__warn_unused_result__
abb2c242 1492 __attribute__pure__
04c9e624
VP
1493 __attribute__nonnull__(1)
1494 __attribute__nonnull__(2);
7918f24d
NC
1495#define PERL_ARGS_ASSERT_INSTR \
1496 assert(big); assert(little)
f54cb97a 1497
e8a67806
NC
1498PERL_CALLCONV U32 Perl_intro_my(pTHX);
1499PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd)
1500 __attribute__warn_unused_result__;
1501
b464bac0 1502PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit)
b464bac0 1503 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1504#define PERL_ARGS_ASSERT_IO_CLOSE \
1505 assert(io)
b464bac0 1506
e8a67806
NC
1507PERL_CALLCONV bool Perl_is_ascii_string(const U8 *s, STRLEN len)
1508 __attribute__nonnull__(1);
1509#define PERL_ARGS_ASSERT_IS_ASCII_STRING \
1510 assert(s)
f54cb97a 1511
e8a67806 1512PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *const name_sv, U32 flags)
abb2c242 1513 __attribute__warn_unused_result__
e8a67806
NC
1514 __attribute__nonnull__(pTHX_1);
1515#define PERL_ARGS_ASSERT_IS_GV_MAGICAL_SV \
1516 assert(name_sv)
f54cb97a 1517
e8a67806
NC
1518PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX)
1519 __attribute__warn_unused_result__;
f54cb97a 1520
e8a67806 1521PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c)
abb2c242
JH
1522 __attribute__warn_unused_result__
1523 __attribute__pure__;
f54cb97a 1524
e8a67806 1525PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c)
abb2c242
JH
1526 __attribute__warn_unused_result__
1527 __attribute__pure__;
f54cb97a 1528
e8a67806 1529PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ UV c)
abb2c242
JH
1530 __attribute__warn_unused_result__
1531 __attribute__pure__;
f54cb97a 1532
e8a67806 1533PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ UV c)
abb2c242
JH
1534 __attribute__warn_unused_result__
1535 __attribute__pure__;
f54cb97a
AL
1536
1537PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ UV c)
abb2c242
JH
1538 __attribute__warn_unused_result__
1539 __attribute__pure__;
f54cb97a 1540
e8a67806 1541PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ UV c)
abb2c242
JH
1542 __attribute__warn_unused_result__
1543 __attribute__pure__;
f54cb97a
AL
1544
1545PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ UV c)
abb2c242
JH
1546 __attribute__warn_unused_result__
1547 __attribute__pure__;
f54cb97a 1548
e8a67806 1549PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ UV c)
abb2c242
JH
1550 __attribute__warn_unused_result__
1551 __attribute__pure__;
f54cb97a
AL
1552
1553PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ UV c)
abb2c242
JH
1554 __attribute__warn_unused_result__
1555 __attribute__pure__;
f54cb97a 1556
e8a67806 1557PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ UV c)
abb2c242
JH
1558 __attribute__warn_unused_result__
1559 __attribute__pure__;
f54cb97a 1560
e8a67806 1561PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ UV c)
abb2c242
JH
1562 __attribute__warn_unused_result__
1563 __attribute__pure__;
f54cb97a 1564
e8a67806 1565PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ UV c)
abb2c242
JH
1566 __attribute__warn_unused_result__
1567 __attribute__pure__;
f54cb97a 1568
e8a67806 1569PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c)
abb2c242
JH
1570 __attribute__warn_unused_result__
1571 __attribute__pure__;
f54cb97a 1572
e8a67806 1573PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c)
abb2c242
JH
1574 __attribute__warn_unused_result__
1575 __attribute__pure__;
f54cb97a 1576
e8a67806 1577PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c)
abb2c242
JH
1578 __attribute__warn_unused_result__
1579 __attribute__pure__;
f54cb97a 1580
e8a67806 1581PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c)
abb2c242
JH
1582 __attribute__warn_unused_result__
1583 __attribute__pure__;
f54cb97a 1584
e8a67806 1585PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c)
abb2c242
JH
1586 __attribute__warn_unused_result__
1587 __attribute__pure__;
f54cb97a 1588
e8a67806 1589PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c)
abb2c242
JH
1590 __attribute__warn_unused_result__
1591 __attribute__pure__;
f54cb97a 1592
e8a67806 1593PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c)
abb2c242
JH
1594 __attribute__warn_unused_result__
1595 __attribute__pure__;
f54cb97a 1596
e8a67806 1597PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c)
abb2c242
JH
1598 __attribute__warn_unused_result__
1599 __attribute__pure__;
f54cb97a 1600
e8a67806 1601PERL_CALLCONV bool Perl_is_uni_space(pTHX_ UV c)
abb2c242
JH
1602 __attribute__warn_unused_result__
1603 __attribute__pure__;
f54cb97a 1604
e8a67806 1605PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ UV c)
abb2c242
JH
1606 __attribute__warn_unused_result__
1607 __attribute__pure__;
f54cb97a 1608
e8a67806 1609PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ UV c)
abb2c242
JH
1610 __attribute__warn_unused_result__
1611 __attribute__pure__;
f54cb97a 1612
e8a67806 1613PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ UV c)
abb2c242
JH
1614 __attribute__warn_unused_result__
1615 __attribute__pure__;
f54cb97a 1616
e8a67806 1617PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c)
abb2c242
JH
1618 __attribute__warn_unused_result__
1619 __attribute__pure__;
f54cb97a
AL
1620
1621PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c)
abb2c242
JH
1622 __attribute__warn_unused_result__
1623 __attribute__pure__;
f54cb97a 1624
e8a67806 1625PERL_CALLCONV bool Perl_is_utf8_X_L(pTHX_ const U8 *p)
1df70142 1626 __attribute__warn_unused_result__
abb2c242 1627 __attribute__nonnull__(pTHX_1);
e8a67806 1628#define PERL_ARGS_ASSERT_IS_UTF8_X_L \
7918f24d 1629 assert(p)
f54cb97a 1630
e8a67806 1631PERL_CALLCONV bool Perl_is_utf8_X_LV(pTHX_ const U8 *p)
1df70142 1632 __attribute__warn_unused_result__
abb2c242 1633 __attribute__nonnull__(pTHX_1);
e8a67806 1634#define PERL_ARGS_ASSERT_IS_UTF8_X_LV \
7918f24d 1635 assert(p)
f54cb97a 1636
e8a67806 1637PERL_CALLCONV bool Perl_is_utf8_X_LVT(pTHX_ const U8 *p)
1df70142 1638 __attribute__warn_unused_result__
abb2c242 1639 __attribute__nonnull__(pTHX_1);
e8a67806 1640#define PERL_ARGS_ASSERT_IS_UTF8_X_LVT \
7918f24d 1641 assert(p)
f54cb97a 1642
e8a67806 1643PERL_CALLCONV bool Perl_is_utf8_X_LV_LVT_V(pTHX_ const U8 *p)
1df70142 1644 __attribute__warn_unused_result__
abb2c242 1645 __attribute__nonnull__(pTHX_1);
e8a67806 1646#define PERL_ARGS_ASSERT_IS_UTF8_X_LV_LVT_V \
7918f24d 1647 assert(p)
f54cb97a 1648
e8a67806 1649PERL_CALLCONV bool Perl_is_utf8_X_T(pTHX_ const U8 *p)
1df70142 1650 __attribute__warn_unused_result__
abb2c242 1651 __attribute__nonnull__(pTHX_1);
e8a67806 1652#define PERL_ARGS_ASSERT_IS_UTF8_X_T \
7918f24d 1653 assert(p)
f54cb97a 1654
e8a67806 1655PERL_CALLCONV bool Perl_is_utf8_X_V(pTHX_ const U8 *p)
1df70142 1656 __attribute__warn_unused_result__
abb2c242 1657 __attribute__nonnull__(pTHX_1);
e8a67806 1658#define PERL_ARGS_ASSERT_IS_UTF8_X_V \
7918f24d 1659 assert(p)
f54cb97a 1660
e8a67806 1661PERL_CALLCONV bool Perl_is_utf8_X_begin(pTHX_ const U8 *p)
d1eb3177
YO
1662 __attribute__warn_unused_result__
1663 __attribute__nonnull__(pTHX_1);
e8a67806 1664#define PERL_ARGS_ASSERT_IS_UTF8_X_BEGIN \
d1eb3177
YO
1665 assert(p)
1666
e8a67806 1667PERL_CALLCONV bool Perl_is_utf8_X_extend(pTHX_ const U8 *p)
d1eb3177
YO
1668 __attribute__warn_unused_result__
1669 __attribute__nonnull__(pTHX_1);
e8a67806 1670#define PERL_ARGS_ASSERT_IS_UTF8_X_EXTEND \
d1eb3177
YO
1671 assert(p)
1672
e8a67806 1673PERL_CALLCONV bool Perl_is_utf8_X_non_hangul(pTHX_ const U8 *p)
1df70142 1674 __attribute__warn_unused_result__
abb2c242 1675 __attribute__nonnull__(pTHX_1);
e8a67806 1676#define PERL_ARGS_ASSERT_IS_UTF8_X_NON_HANGUL \
7918f24d 1677 assert(p)
f54cb97a 1678
e8a67806 1679PERL_CALLCONV bool Perl_is_utf8_X_prepend(pTHX_ const U8 *p)
1df70142 1680 __attribute__warn_unused_result__
abb2c242 1681 __attribute__nonnull__(pTHX_1);
e8a67806 1682#define PERL_ARGS_ASSERT_IS_UTF8_X_PREPEND \
7918f24d 1683 assert(p)
f54cb97a 1684
e8a67806 1685PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ const U8 *p)
d1eb3177
YO
1686 __attribute__warn_unused_result__
1687 __attribute__nonnull__(pTHX_1);
e8a67806 1688#define PERL_ARGS_ASSERT_IS_UTF8_ALNUM \
d1eb3177
YO
1689 assert(p)
1690
e8a67806 1691PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ const U8 *p)
1df70142 1692 __attribute__warn_unused_result__
abb2c242 1693 __attribute__nonnull__(pTHX_1);
e8a67806 1694#define PERL_ARGS_ASSERT_IS_UTF8_ALPHA \
7918f24d 1695 assert(p)
f54cb97a 1696
e8a67806 1697PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ const U8 *p)
1df70142 1698 __attribute__warn_unused_result__
abb2c242 1699 __attribute__nonnull__(pTHX_1);
e8a67806 1700#define PERL_ARGS_ASSERT_IS_UTF8_ASCII \
7918f24d 1701 assert(p)
f54cb97a 1702
e8a67806
NC
1703PERL_CALLCONV STRLEN Perl_is_utf8_char(const U8 *s)
1704 __attribute__nonnull__(1);
1705#define PERL_ARGS_ASSERT_IS_UTF8_CHAR \
1706 assert(s)
1707
1708PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ const U8 *p)
1df70142 1709 __attribute__warn_unused_result__
abb2c242 1710 __attribute__nonnull__(pTHX_1);
e8a67806 1711#define PERL_ARGS_ASSERT_IS_UTF8_CNTRL \
7918f24d 1712 assert(p)
f54cb97a 1713
e8a67806 1714PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ const U8 *p)
1df70142 1715 __attribute__warn_unused_result__
abb2c242 1716 __attribute__nonnull__(pTHX_1);
e8a67806 1717#define PERL_ARGS_ASSERT_IS_UTF8_DIGIT \
7918f24d 1718 assert(p)
f54cb97a 1719
e8a67806 1720PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ const U8 *p)
1df70142 1721 __attribute__warn_unused_result__
abb2c242 1722 __attribute__nonnull__(pTHX_1);
e8a67806 1723#define PERL_ARGS_ASSERT_IS_UTF8_GRAPH \
7918f24d 1724 assert(p)
f54cb97a 1725
e8a67806 1726PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ const U8 *p)
1df70142 1727 __attribute__warn_unused_result__
abb2c242 1728 __attribute__nonnull__(pTHX_1);
e8a67806 1729#define PERL_ARGS_ASSERT_IS_UTF8_IDCONT \
7918f24d 1730 assert(p)
f54cb97a 1731
e8a67806 1732PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ const U8 *p)
1df70142 1733 __attribute__warn_unused_result__
abb2c242 1734 __attribute__nonnull__(pTHX_1);
e8a67806 1735#define PERL_ARGS_ASSERT_IS_UTF8_IDFIRST \
7918f24d 1736 assert(p)
f54cb97a 1737
e8a67806 1738PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ const U8 *p)
37e2e78e
KW
1739 __attribute__warn_unused_result__
1740 __attribute__nonnull__(pTHX_1);
e8a67806 1741#define PERL_ARGS_ASSERT_IS_UTF8_LOWER \
37e2e78e
KW
1742 assert(p)
1743
e8a67806 1744PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ const U8 *p)
37e2e78e
KW
1745 __attribute__warn_unused_result__
1746 __attribute__nonnull__(pTHX_1);
e8a67806 1747#define PERL_ARGS_ASSERT_IS_UTF8_MARK \
37e2e78e
KW
1748 assert(p)
1749
e8a67806 1750PERL_CALLCONV bool Perl_is_utf8_perl_space(pTHX_ const U8 *p)
37e2e78e
KW
1751 __attribute__warn_unused_result__
1752 __attribute__nonnull__(pTHX_1);
e8a67806 1753#define PERL_ARGS_ASSERT_IS_UTF8_PERL_SPACE \
37e2e78e
KW
1754 assert(p)
1755
e8a67806 1756PERL_CALLCONV bool Perl_is_utf8_perl_word(pTHX_ const U8 *p)
37e2e78e
KW
1757 __attribute__warn_unused_result__
1758 __attribute__nonnull__(pTHX_1);
e8a67806 1759#define PERL_ARGS_ASSERT_IS_UTF8_PERL_WORD \
37e2e78e
KW
1760 assert(p)
1761
e8a67806 1762PERL_CALLCONV bool Perl_is_utf8_posix_digit(pTHX_ const U8 *p)
37e2e78e
KW
1763 __attribute__warn_unused_result__
1764 __attribute__nonnull__(pTHX_1);
e8a67806 1765#define PERL_ARGS_ASSERT_IS_UTF8_POSIX_DIGIT \
37e2e78e
KW
1766 assert(p)
1767
e8a67806 1768PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ const U8 *p)
37e2e78e
KW
1769 __attribute__warn_unused_result__
1770 __attribute__nonnull__(pTHX_1);
e8a67806 1771#define PERL_ARGS_ASSERT_IS_UTF8_PRINT \
37e2e78e
KW
1772 assert(p)
1773
e8a67806 1774PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ const U8 *p)
37e2e78e
KW
1775 __attribute__warn_unused_result__
1776 __attribute__nonnull__(pTHX_1);
e8a67806 1777#define PERL_ARGS_ASSERT_IS_UTF8_PUNCT \
37e2e78e
KW
1778 assert(p)
1779
e8a67806 1780PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p)
37e2e78e
KW
1781 __attribute__warn_unused_result__
1782 __attribute__nonnull__(pTHX_1);
e8a67806 1783#define PERL_ARGS_ASSERT_IS_UTF8_SPACE \
37e2e78e
KW
1784 assert(p)
1785
e8a67806
NC
1786PERL_CALLCONV bool Perl_is_utf8_string(const U8 *s, STRLEN len)
1787 __attribute__nonnull__(1);
1788#define PERL_ARGS_ASSERT_IS_UTF8_STRING \
1789 assert(s)
1790
1791/* PERL_CALLCONV bool Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **p)
1792 __attribute__nonnull__(1); */
1793#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC \
1794 assert(s)
1795
1796PERL_CALLCONV bool Perl_is_utf8_string_loclen(const U8 *s, STRLEN len, const U8 **ep, STRLEN *el)
1797 __attribute__nonnull__(1);
1798#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOCLEN \
1799 assert(s)
1800
1801PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ const U8 *p)
37e2e78e
KW
1802 __attribute__warn_unused_result__
1803 __attribute__nonnull__(pTHX_1);
e8a67806 1804#define PERL_ARGS_ASSERT_IS_UTF8_UPPER \
37e2e78e
KW
1805 assert(p)
1806
e8a67806 1807PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ const U8 *p)
37e2e78e
KW
1808 __attribute__warn_unused_result__
1809 __attribute__nonnull__(pTHX_1);
e8a67806 1810#define PERL_ARGS_ASSERT_IS_UTF8_XDIGIT \
37e2e78e
KW
1811 assert(p)
1812
c11ff943
KW
1813PERL_CALLCONV bool Perl_is_utf8_xidcont(pTHX_ const U8 *p)
1814 __attribute__warn_unused_result__
1815 __attribute__nonnull__(pTHX_1);
1816#define PERL_ARGS_ASSERT_IS_UTF8_XIDCONT \
1817 assert(p)
1818
1819PERL_CALLCONV bool Perl_is_utf8_xidfirst(pTHX_ const U8 *p)
1820 __attribute__warn_unused_result__
1821 __attribute__nonnull__(pTHX_1);
1822#define PERL_ARGS_ASSERT_IS_UTF8_XIDFIRST \
1823 assert(p)
1824
4048f010 1825PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP *o)
abb2c242 1826 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1827#define PERL_ARGS_ASSERT_JMAYBE \
1828 assert(o)
f54cb97a 1829
4048f010 1830PERL_CALLCONV I32 Perl_keyword(pTHX_ const char *name, I32 len, bool all_keywords)
abb2c242
JH
1831 __attribute__pure__
1832 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1833#define PERL_ARGS_ASSERT_KEYWORD \
1834 assert(name)
f54cb97a 1835
e8a67806
NC
1836PERL_CALLCONV int Perl_keyword_plugin_standard(pTHX_ char* keyword_ptr, STRLEN keyword_len, OP** op_ptr)
1837 __attribute__nonnull__(pTHX_1)
1838 __attribute__nonnull__(pTHX_3);
1839#define PERL_ARGS_ASSERT_KEYWORD_PLUGIN_STANDARD \
1840 assert(keyword_ptr); assert(op_ptr)
867fa1e2 1841
e8a67806
NC
1842PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base);
1843PERL_CALLCONV bool Perl_lex_bufutf8(pTHX);
1844PERL_CALLCONV void Perl_lex_discard_to(pTHX_ char* ptr)
2f9e2db0 1845 __attribute__nonnull__(pTHX_1);
e8a67806
NC
1846#define PERL_ARGS_ASSERT_LEX_DISCARD_TO \
1847 assert(ptr)
2f9e2db0 1848
f0e67a1d 1849PERL_CALLCONV char* Perl_lex_grow_linestr(pTHX_ STRLEN len);
e8a67806
NC
1850PERL_CALLCONV bool Perl_lex_next_chunk(pTHX_ U32 flags);
1851PERL_CALLCONV I32 Perl_lex_peek_unichar(pTHX_ U32 flags);
1852PERL_CALLCONV void Perl_lex_read_space(pTHX_ U32 flags);
1853PERL_CALLCONV void Perl_lex_read_to(pTHX_ char* ptr)
f0e67a1d 1854 __attribute__nonnull__(pTHX_1);
e8a67806
NC
1855#define PERL_ARGS_ASSERT_LEX_READ_TO \
1856 assert(ptr)
f0e67a1d 1857
e8a67806 1858PERL_CALLCONV I32 Perl_lex_read_unichar(pTHX_ U32 flags);
8eaa0acf 1859PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line, PerlIO *rsfp, U32 flags);
9dcc53ea
Z
1860PERL_CALLCONV void Perl_lex_stuff_pv(pTHX_ const char* pv, U32 flags)
1861 __attribute__nonnull__(pTHX_1);
1862#define PERL_ARGS_ASSERT_LEX_STUFF_PV \
1863 assert(pv)
1864
e8a67806
NC
1865PERL_CALLCONV void Perl_lex_stuff_pvn(pTHX_ const char* pv, STRLEN len, U32 flags)
1866 __attribute__nonnull__(pTHX_1);
1867#define PERL_ARGS_ASSERT_LEX_STUFF_PVN \
1868 assert(pv)
1869
f0e67a1d
Z
1870PERL_CALLCONV void Perl_lex_stuff_sv(pTHX_ SV* sv, U32 flags)
1871 __attribute__nonnull__(pTHX_1);
1872#define PERL_ARGS_ASSERT_LEX_STUFF_SV \
1873 assert(sv)
1874
1875PERL_CALLCONV void Perl_lex_unstuff(pTHX_ char* ptr)
1876 __attribute__nonnull__(pTHX_1);
1877#define PERL_ARGS_ASSERT_LEX_UNSTUFF \
1878 assert(ptr)
1879
1d7c1841 1880PERL_CALLCONV OP* Perl_list(pTHX_ OP* o);
aec46f14
AL
1881PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...)
1882 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1883#define PERL_ARGS_ASSERT_LOAD_MODULE \
1884 assert(name)
aec46f14 1885
4048f010 1886PERL_CALLCONV OP* Perl_localize(pTHX_ OP *o, I32 lex)
bfce84ec 1887 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1888#define PERL_ARGS_ASSERT_LOCALIZE \
1889 assert(o)
bfce84ec 1890
aad570aa 1891PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV *const sv)
abb2c242
JH
1892 __attribute__warn_unused_result__
1893 __attribute__nonnull__(pTHX_1);
7918f24d
NC
1894#define PERL_ARGS_ASSERT_LOOKS_LIKE_NUMBER \
1895 assert(sv)
f54cb97a 1896
e8a67806 1897PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
1898 __attribute__nonnull__(pTHX_1)
1899 __attribute__nonnull__(pTHX_2);
e8a67806
NC
1900#define PERL_ARGS_ASSERT_MAGIC_CLEAR_ALL_ENV \
1901 assert(sv); assert(mg)
bfce84ec
AL
1902
1903PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg)
1904 __attribute__nonnull__(pTHX_1)
1905 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1906#define PERL_ARGS_ASSERT_MAGIC_CLEARENV \
1907 assert(sv); assert(mg)
bfce84ec 1908
b3ca2e83
NC
1909PERL_CALLCONV int Perl_magic_clearhint(pTHX_ SV* sv, MAGIC* mg)
1910 __attribute__nonnull__(pTHX_1)
1911 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1912#define PERL_ARGS_ASSERT_MAGIC_CLEARHINT \
1913 assert(sv); assert(mg)
b3ca2e83 1914
f747ebd6
Z
1915PERL_CALLCONV int Perl_magic_clearhints(pTHX_ SV* sv, MAGIC* mg)
1916 __attribute__nonnull__(pTHX_1)
1917 __attribute__nonnull__(pTHX_2);
1918#define PERL_ARGS_ASSERT_MAGIC_CLEARHINTS \
1919 assert(sv); assert(mg)
1920
52b45067 1921PERL_CALLCONV int Perl_magic_clearisa(pTHX_ SV* sv, MAGIC* mg)
52b45067 1922 __attribute__nonnull__(pTHX_2);
7918f24d 1923#define PERL_ARGS_ASSERT_MAGIC_CLEARISA \
0e446081 1924 assert(mg)
52b45067 1925
bfce84ec
AL
1926PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg)
1927 __attribute__nonnull__(pTHX_1)
1928 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1929#define PERL_ARGS_ASSERT_MAGIC_CLEARPACK \
1930 assert(sv); assert(mg)
bfce84ec
AL
1931
1932PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg)
1933 __attribute__nonnull__(pTHX_1)
1934 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1935#define PERL_ARGS_ASSERT_MAGIC_CLEARSIG \
1936 assert(sv); assert(mg)
bfce84ec 1937
e8a67806 1938PERL_CALLCONV void Perl_magic_dump(pTHX_ const MAGIC *mg);
1146e912 1939PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg)
bfce84ec
AL
1940 __attribute__nonnull__(pTHX_1)
1941 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1942#define PERL_ARGS_ASSERT_MAGIC_EXISTSPACK \
1943 assert(sv); assert(mg)
bfce84ec 1944
e8a67806
NC
1945PERL_CALLCONV int Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg)
1946 __attribute__nonnull__(pTHX_1)
1947 __attribute__nonnull__(pTHX_2);
1948#define PERL_ARGS_ASSERT_MAGIC_FREEARYLEN_P \
1949 assert(sv); assert(mg)
1950
bfce84ec
AL
1951PERL_CALLCONV int Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg)
1952 __attribute__nonnull__(pTHX_1)
1953 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1954#define PERL_ARGS_ASSERT_MAGIC_FREEOVRLD \
1955 assert(sv); assert(mg)
bfce84ec
AL
1956
1957PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg)
1958 __attribute__nonnull__(pTHX_1)
1959 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1960#define PERL_ARGS_ASSERT_MAGIC_GET \
1961 assert(sv); assert(mg)
901017d6 1962
8772537c
AL
1963PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, const MAGIC* mg)
1964 __attribute__nonnull__(pTHX_1)
1965 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1966#define PERL_ARGS_ASSERT_MAGIC_GETARYLEN \
1967 assert(sv); assert(mg)
8772537c 1968
bfce84ec
AL
1969PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg)
1970 __attribute__nonnull__(pTHX_1)
1971 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1972#define PERL_ARGS_ASSERT_MAGIC_GETDEFELEM \
1973 assert(sv); assert(mg)
bfce84ec 1974
bfce84ec
AL
1975PERL_CALLCONV int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg)
1976 __attribute__nonnull__(pTHX_1)
1977 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1978#define PERL_ARGS_ASSERT_MAGIC_GETNKEYS \
1979 assert(sv); assert(mg)
bfce84ec
AL
1980
1981PERL_CALLCONV int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg)
1982 __attribute__nonnull__(pTHX_1)
1983 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1984#define PERL_ARGS_ASSERT_MAGIC_GETPACK \
1985 assert(sv); assert(mg)
bfce84ec
AL
1986
1987PERL_CALLCONV int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg)
1988 __attribute__nonnull__(pTHX_1)
1989 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1990#define PERL_ARGS_ASSERT_MAGIC_GETPOS \
1991 assert(sv); assert(mg)
bfce84ec
AL
1992
1993PERL_CALLCONV int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg)
1994 __attribute__nonnull__(pTHX_1)
1995 __attribute__nonnull__(pTHX_2);
7918f24d
NC
1996#define PERL_ARGS_ASSERT_MAGIC_GETSIG \
1997 assert(sv); assert(mg)
bfce84ec
AL
1998
1999PERL_CALLCONV int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg)
2000 __attribute__nonnull__(pTHX_1)
2001 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2002#define PERL_ARGS_ASSERT_MAGIC_GETSUBSTR \
2003 assert(sv); assert(mg)
bfce84ec
AL
2004
2005PERL_CALLCONV int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg)
2006 __attribute__nonnull__(pTHX_1)
2007 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2008#define PERL_ARGS_ASSERT_MAGIC_GETTAINT \
2009 assert(sv); assert(mg)
bfce84ec
AL
2010
2011PERL_CALLCONV int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg)
2012 __attribute__nonnull__(pTHX_1)
2013 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2014#define PERL_ARGS_ASSERT_MAGIC_GETUVAR \
2015 assert(sv); assert(mg)
bfce84ec
AL
2016
2017PERL_CALLCONV int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg)
2018 __attribute__nonnull__(pTHX_1)
2019 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2020#define PERL_ARGS_ASSERT_MAGIC_GETVEC \
2021 assert(sv); assert(mg)
bfce84ec 2022
e8a67806
NC
2023PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg)
2024 __attribute__nonnull__(pTHX_1)
2025 __attribute__nonnull__(pTHX_2);
2026#define PERL_ARGS_ASSERT_MAGIC_KILLBACKREFS \
2027 assert(sv); assert(mg)
2028
bfce84ec
AL
2029PERL_CALLCONV U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg)
2030 __attribute__nonnull__(pTHX_1)
2031 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2032#define PERL_ARGS_ASSERT_MAGIC_LEN \
2033 assert(sv); assert(mg)
bfce84ec 2034
e8a67806
NC
2035PERL_CALLCONV SV* Perl_magic_methcall(pTHX_ SV *sv, const MAGIC *mg, const char *meth, U32 flags, U32 argc, ...)
2036 __attribute__nonnull__(pTHX_1)
2037 __attribute__nonnull__(pTHX_2)
2038 __attribute__nonnull__(pTHX_3);
2039#define PERL_ARGS_ASSERT_MAGIC_METHCALL \
2040 assert(sv); assert(mg); assert(meth)
2041
4048f010 2042PERL_CALLCONV int Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key)
bfce84ec
AL
2043 __attribute__nonnull__(pTHX_1)
2044 __attribute__nonnull__(pTHX_2)
2045 __attribute__nonnull__(pTHX_3);
7918f24d
NC
2046#define PERL_ARGS_ASSERT_MAGIC_NEXTPACK \
2047 assert(sv); assert(mg); assert(key)
bfce84ec
AL
2048
2049PERL_CALLCONV U32 Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg)
2050 __attribute__nonnull__(pTHX_1)
2051 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2052#define PERL_ARGS_ASSERT_MAGIC_REGDATA_CNT \
2053 assert(sv); assert(mg)
bfce84ec
AL
2054
2055PERL_CALLCONV int Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg)
2056 __attribute__nonnull__(pTHX_1)
2057 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2058#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_GET \
2059 assert(sv); assert(mg)
bfce84ec 2060
f54cb97a 2061PERL_CALLCONV int Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2062 __attribute__noreturn__
2063 __attribute__nonnull__(pTHX_1)
2064 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2065#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_SET \
2066 assert(sv); assert(mg)
bfce84ec 2067
e8a67806
NC
2068PERL_CALLCONV SV* Perl_magic_scalarpack(pTHX_ HV *hv, MAGIC *mg)
2069 __attribute__nonnull__(pTHX_1)
2070 __attribute__nonnull__(pTHX_2);
2071#define PERL_ARGS_ASSERT_MAGIC_SCALARPACK \
2072 assert(hv); assert(mg)
2073
bfce84ec
AL
2074PERL_CALLCONV int Perl_magic_set(pTHX_ SV* sv, MAGIC* mg)
2075 __attribute__nonnull__(pTHX_1)
2076 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2077#define PERL_ARGS_ASSERT_MAGIC_SET \
2078 assert(sv); assert(mg)
bfce84ec 2079
e8a67806 2080PERL_CALLCONV int Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2081 __attribute__nonnull__(pTHX_1)
2082 __attribute__nonnull__(pTHX_2);
e8a67806 2083#define PERL_ARGS_ASSERT_MAGIC_SET_ALL_ENV \
7918f24d 2084 assert(sv); assert(mg)
bfce84ec 2085
e8a67806 2086PERL_CALLCONV int Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2087 __attribute__nonnull__(pTHX_1)
2088 __attribute__nonnull__(pTHX_2);
e8a67806 2089#define PERL_ARGS_ASSERT_MAGIC_SETAMAGIC \
7918f24d 2090 assert(sv); assert(mg)
bfce84ec 2091
e8a67806 2092PERL_CALLCONV int Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2093 __attribute__nonnull__(pTHX_1)
2094 __attribute__nonnull__(pTHX_2);
e8a67806 2095#define PERL_ARGS_ASSERT_MAGIC_SETARYLEN \
7918f24d 2096 assert(sv); assert(mg)
bfce84ec 2097
488344d2 2098PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2099 __attribute__nonnull__(pTHX_1)
2100 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2101#define PERL_ARGS_ASSERT_MAGIC_SETDBLINE \
2102 assert(sv); assert(mg)
bfce84ec 2103
488344d2 2104PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2105 __attribute__nonnull__(pTHX_1)
2106 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2107#define PERL_ARGS_ASSERT_MAGIC_SETDEFELEM \
2108 assert(sv); assert(mg)
bfce84ec 2109
488344d2 2110PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2111 __attribute__nonnull__(pTHX_1)
2112 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2113#define PERL_ARGS_ASSERT_MAGIC_SETENV \
2114 assert(sv); assert(mg)
bfce84ec 2115
b3ca2e83
NC
2116PERL_CALLCONV int Perl_magic_sethint(pTHX_ SV* sv, MAGIC* mg)
2117 __attribute__nonnull__(pTHX_1)
2118 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2119#define PERL_ARGS_ASSERT_MAGIC_SETHINT \
2120 assert(sv); assert(mg)
b3ca2e83 2121
bfce84ec
AL
2122PERL_CALLCONV int Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg)
2123 __attribute__nonnull__(pTHX_1)
2124 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2125#define PERL_ARGS_ASSERT_MAGIC_SETISA \
2126 assert(sv); assert(mg)
bfce84ec 2127
bfce84ec
AL
2128PERL_CALLCONV int Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg)
2129 __attribute__nonnull__(pTHX_1)
2130 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2131#define PERL_ARGS_ASSERT_MAGIC_SETMGLOB \
2132 assert(sv); assert(mg)
bfce84ec
AL
2133
2134PERL_CALLCONV int Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg)
2135 __attribute__nonnull__(pTHX_1)
2136 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2137#define PERL_ARGS_ASSERT_MAGIC_SETNKEYS \
2138 assert(sv); assert(mg)
bfce84ec
AL
2139
2140PERL_CALLCONV int Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg)
2141 __attribute__nonnull__(pTHX_1)
2142 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2143#define PERL_ARGS_ASSERT_MAGIC_SETPACK \
2144 assert(sv); assert(mg)
bfce84ec
AL
2145
2146PERL_CALLCONV int Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg)
2147 __attribute__nonnull__(pTHX_1)
2148 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2149#define PERL_ARGS_ASSERT_MAGIC_SETPOS \
2150 assert(sv); assert(mg)
bfce84ec
AL
2151
2152PERL_CALLCONV int Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg)
2153 __attribute__nonnull__(pTHX_1)
2154 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2155#define PERL_ARGS_ASSERT_MAGIC_SETREGEXP \
2156 assert(sv); assert(mg)
bfce84ec
AL
2157
2158PERL_CALLCONV int Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg)
bfce84ec 2159 __attribute__nonnull__(pTHX_2);
7918f24d 2160#define PERL_ARGS_ASSERT_MAGIC_SETSIG \
38a124f0 2161 assert(mg)
bfce84ec
AL
2162
2163PERL_CALLCONV int Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg)
2164 __attribute__nonnull__(pTHX_1)
2165 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2166#define PERL_ARGS_ASSERT_MAGIC_SETSUBSTR \
2167 assert(sv); assert(mg)
bfce84ec
AL
2168
2169PERL_CALLCONV int Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg)
2170 __attribute__nonnull__(pTHX_1)
2171 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2172#define PERL_ARGS_ASSERT_MAGIC_SETTAINT \
2173 assert(sv); assert(mg)
bfce84ec 2174
e8a67806 2175PERL_CALLCONV int Perl_magic_setutf8(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2176 __attribute__nonnull__(pTHX_1)
2177 __attribute__nonnull__(pTHX_2);
e8a67806 2178#define PERL_ARGS_ASSERT_MAGIC_SETUTF8 \
7918f24d 2179 assert(sv); assert(mg)
bfce84ec 2180
e8a67806 2181PERL_CALLCONV int Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2182 __attribute__nonnull__(pTHX_1)
2183 __attribute__nonnull__(pTHX_2);
e8a67806 2184#define PERL_ARGS_ASSERT_MAGIC_SETUVAR \
7918f24d 2185 assert(sv); assert(mg)
bfce84ec 2186
e8a67806 2187PERL_CALLCONV int Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg)
bfce84ec
AL
2188 __attribute__nonnull__(pTHX_1)
2189 __attribute__nonnull__(pTHX_2);
e8a67806 2190#define PERL_ARGS_ASSERT_MAGIC_SETVEC \
7918f24d 2191 assert(sv); assert(mg)
bfce84ec
AL
2192
2193PERL_CALLCONV U32 Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg)
2194 __attribute__nonnull__(pTHX_1)
2195 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2196#define PERL_ARGS_ASSERT_MAGIC_SIZEPACK \
2197 assert(sv); assert(mg)
bfce84ec
AL
2198
2199PERL_CALLCONV int Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg)
2200 __attribute__nonnull__(pTHX_1)
2201 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2202#define PERL_ARGS_ASSERT_MAGIC_WIPEPACK \
2203 assert(sv); assert(mg)
bfce84ec 2204
e8a67806
NC
2205PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes)
2206 __attribute__malloc__
2207 __attribute__warn_unused_result__;
efaf3674 2208
1d7c1841 2209PERL_CALLCONV void Perl_markstack_grow(pTHX);
894356b3 2210PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...)
aec46f14
AL
2211 __attribute__format__(__printf__,pTHX_1,pTHX_2)
2212 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2213#define PERL_ARGS_ASSERT_MESS \
2214 assert(pat)
aec46f14 2215
c5df3096
Z
2216PERL_CALLCONV SV* Perl_mess_sv(pTHX_ SV* basemsg, bool consume)
2217 __attribute__nonnull__(pTHX_1);
2218#define PERL_ARGS_ASSERT_MESS_SV \
2219 assert(basemsg)
2220
e8a67806 2221PERL_CALLCONV Free_t Perl_mfree(Malloc_t where);
9a957fbc
AL
2222PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv)
2223 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2224#define PERL_ARGS_ASSERT_MG_CLEAR \
2225 assert(sv)
9a957fbc 2226
4048f010 2227PERL_CALLCONV int Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen)
9a957fbc
AL
2228 __attribute__nonnull__(pTHX_1)
2229 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2230#define PERL_ARGS_ASSERT_MG_COPY \
2231 assert(sv); assert(nsv)
9a957fbc 2232
255164ba
DM
2233PERL_CALLCONV MAGIC* Perl_mg_find(pTHX_ const SV* sv, int type)
2234 __attribute__warn_unused_result__;
2235
39de7f53
FR
2236PERL_CALLCONV MAGIC* Perl_mg_findext(pTHX_ const SV* sv, int type, const MGVTBL *vtbl)
2237 __attribute__warn_unused_result__;
2238
9a957fbc
AL
2239PERL_CALLCONV int Perl_mg_free(pTHX_ SV* sv)
2240 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2241#define PERL_ARGS_ASSERT_MG_FREE \
2242 assert(sv)
9a957fbc 2243
d9088386
Z
2244PERL_CALLCONV void Perl_mg_free_type(pTHX_ SV* sv, int how)
2245 __attribute__nonnull__(pTHX_1);
2246#define PERL_ARGS_ASSERT_MG_FREE_TYPE \
2247 assert(sv)
2248
9a957fbc
AL
2249PERL_CALLCONV int Perl_mg_get(pTHX_ SV* sv)
2250 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2251#define PERL_ARGS_ASSERT_MG_GET \
2252 assert(sv)
9a957fbc
AL
2253
2254PERL_CALLCONV U32 Perl_mg_length(pTHX_ SV* sv)
2255 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2256#define PERL_ARGS_ASSERT_MG_LENGTH \
2257 assert(sv)
9a957fbc 2258
e8a67806
NC
2259PERL_CALLCONV void Perl_mg_localize(pTHX_ SV* sv, SV* nsv, bool setmagic)
2260 __attribute__nonnull__(pTHX_1)
2261 __attribute__nonnull__(pTHX_2);
2262#define PERL_ARGS_ASSERT_MG_LOCALIZE \
2263 assert(sv); assert(nsv)
2264
9a957fbc
AL
2265PERL_CALLCONV void Perl_mg_magical(pTHX_ SV* sv)
2266 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2267#define PERL_ARGS_ASSERT_MG_MAGICAL \
2268 assert(sv)
9a957fbc
AL
2269
2270PERL_CALLCONV int Perl_mg_set(pTHX_ SV* sv)
2271 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2272#define PERL_ARGS_ASSERT_MG_SET \
2273 assert(sv)
9a957fbc
AL
2274
2275PERL_CALLCONV I32 Perl_mg_size(pTHX_ SV* sv)
2276 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2277#define PERL_ARGS_ASSERT_MG_SIZE \
2278 assert(sv)
9a957fbc 2279
9f6cc744 2280PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *ptm)
9a957fbc 2281 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2282#define PERL_ARGS_ASSERT_MINI_MKTIME \
2283 assert(ptm)
9a957fbc 2284
a79b25b7 2285PERL_CALLCONV int Perl_mode_from_discipline(pTHX_ const char* s, STRLEN len);
e8a67806 2286PERL_CALLCONV void * Perl_more_bodies(pTHX_ const svtype sv_type, const size_t body_size, const size_t arena_size);
c7030b81 2287PERL_CALLCONV const char* Perl_moreswitches(pTHX_ const char* s)
bfce84ec 2288 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2289#define PERL_ARGS_ASSERT_MORESWITCHES \
2290 assert(s)
bfce84ec 2291
e8a67806 2292PERL_CALLCONV const struct mro_alg * Perl_mro_get_from_name(pTHX_ SV *name)
abb2c242 2293 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2294#define PERL_ARGS_ASSERT_MRO_GET_FROM_NAME \
2295 assert(name)
f54cb97a 2296
e8a67806
NC
2297PERL_CALLCONV AV* Perl_mro_get_linear_isa(pTHX_ HV* stash)
2298 __attribute__nonnull__(pTHX_1);
2299#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA \
2300 assert(stash)
f54cb97a 2301
e8a67806
NC
2302PERL_CALLCONV SV* Perl_mro_get_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which)
2303 __attribute__nonnull__(pTHX_1)
2304 __attribute__nonnull__(pTHX_2);
2305#define PERL_ARGS_ASSERT_MRO_GET_PRIVATE_DATA \
2306 assert(smeta); assert(which)
f54cb97a 2307
4df35a07
FC
2308PERL_CALLCONV void Perl_mro_isa_changed_in(pTHX_ HV* stash)
2309 __attribute__nonnull__(pTHX_1);
2310#define PERL_ARGS_ASSERT_MRO_ISA_CHANGED_IN \
2311 assert(stash)
e8a67806
NC
2312
2313PERL_CALLCONV struct mro_meta* Perl_mro_meta_init(pTHX_ HV* stash)
2314 __attribute__nonnull__(pTHX_1);
2315#define PERL_ARGS_ASSERT_MRO_META_INIT \
2316 assert(stash)
2317
2318PERL_CALLCONV void Perl_mro_method_changed_in(pTHX_ HV* stash)
2319 __attribute__nonnull__(pTHX_1);
2320#define PERL_ARGS_ASSERT_MRO_METHOD_CHANGED_IN \
2321 assert(stash)
2322
afdbe55d
FC
2323PERL_CALLCONV void Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash, const GV * const gv, U32 flags)
2324 __attribute__nonnull__(pTHX_3);
2325#define PERL_ARGS_ASSERT_MRO_PACKAGE_MOVED \
2326 assert(gv)
2327
e8a67806
NC
2328PERL_CALLCONV void Perl_mro_register(pTHX_ const struct mro_alg *mro)
2329 __attribute__nonnull__(pTHX_1);
2330#define PERL_ARGS_ASSERT_MRO_REGISTER \
2331 assert(mro)
2332
2333PERL_CALLCONV void Perl_mro_set_mro(pTHX_ struct mro_meta *const meta, SV *const name)
2334 __attribute__nonnull__(pTHX_1)
2335 __attribute__nonnull__(pTHX_2);
2336#define PERL_ARGS_ASSERT_MRO_SET_MRO \
2337 assert(meta); assert(name)
2338
2339PERL_CALLCONV SV* Perl_mro_set_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which, SV *const data)
2340 __attribute__nonnull__(pTHX_1)
2341 __attribute__nonnull__(pTHX_2)
2342 __attribute__nonnull__(pTHX_3);
2343#define PERL_ARGS_ASSERT_MRO_SET_PRIVATE_DATA \
2344 assert(smeta); assert(which); assert(data)
2345
2346PERL_CALLCONV void Perl_munge_qwlist_to_paren_list(pTHX_ OP* qwlist)
2347 __attribute__nonnull__(pTHX_1);
2348#define PERL_ARGS_ASSERT_MUNGE_QWLIST_TO_PAREN_LIST \
2349 assert(qwlist)
2350
2351PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s)
2352 __attribute__nonnull__(pTHX_1);
2353#define PERL_ARGS_ASSERT_MY_ATOF \
2354 assert(s)
2355
2356PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value)
2357 __attribute__nonnull__(pTHX_1)
2358 __attribute__nonnull__(pTHX_2);
2359#define PERL_ARGS_ASSERT_MY_ATOF2 \
2360 assert(s); assert(value)
2361
2362PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs)
2363 __attribute__nonnull__(pTHX_1);
2364#define PERL_ARGS_ASSERT_MY_ATTRS \
2365 assert(o)
2366
2367PERL_CALLCONV void Perl_my_clearenv(pTHX);
2368PERL_CALLCONV int Perl_my_dirfd(pTHX_ DIR* dir);
f54cb97a 2369PERL_CALLCONV void Perl_my_exit(pTHX_ U32 status)
abb2c242 2370 __attribute__noreturn__;
f54cb97a
AL
2371
2372PERL_CALLCONV void Perl_my_failure_exit(pTHX)
abb2c242 2373 __attribute__noreturn__;
f54cb97a 2374
1d7c1841 2375PERL_CALLCONV I32 Perl_my_fflush_all(pTHX);
52e18b1f 2376PERL_CALLCONV Pid_t Perl_my_fork(void);
0d7d409d
DM
2377/* PERL_CALLCONV I32 Perl_my_lstat(pTHX); */
2378PERL_CALLCONV I32 Perl_my_lstat_flags(pTHX_ const U32 flags);
c9289b7b 2379PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ const char* mode, int n, SV ** args)
bfce84ec
AL
2380 __attribute__nonnull__(pTHX_1)
2381 __attribute__nonnull__(pTHX_3);
7918f24d
NC
2382#define PERL_ARGS_ASSERT_MY_POPEN_LIST \
2383 assert(mode); assert(args)
bfce84ec 2384
e1ec3a88 2385PERL_CALLCONV void Perl_my_setenv(pTHX_ const char* nam, const char* val);
e8a67806
NC
2386PERL_CALLCONV int Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...)
2387 __attribute__format__(__printf__,3,4)
2388 __attribute__nonnull__(1)
2389 __attribute__nonnull__(3);
2390#define PERL_ARGS_ASSERT_MY_SNPRINTF \
2391 assert(buffer); assert(format)
2392
2393PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
0d7d409d
DM
2394/* PERL_CALLCONV I32 Perl_my_stat(pTHX); */
2395PERL_CALLCONV I32 Perl_my_stat_flags(pTHX_ const U32 flags);
bfce84ec
AL
2396PERL_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)
2397 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2398#define PERL_ARGS_ASSERT_MY_STRFTIME \
2399 assert(fmt)
bfce84ec 2400
e8a67806
NC
2401PERL_CALLCONV void Perl_my_swabn(void* ptr, int n)
2402 __attribute__nonnull__(1);
2403#define PERL_ARGS_ASSERT_MY_SWABN \
2404 assert(ptr)
f54cb97a 2405
e8a67806
NC
2406PERL_CALLCONV void Perl_my_unexec(pTHX);
2407PERL_CALLCONV int Perl_my_vsnprintf(char *buffer, const Size_t len, const char *format, va_list ap)
2408 __attribute__nonnull__(1)
2409 __attribute__nonnull__(3);
2410#define PERL_ARGS_ASSERT_MY_VSNPRINTF \
2411 assert(buffer); assert(format)
f54cb97a 2412
e8a67806
NC
2413PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
2414PERL_CALLCONV OP* Perl_newANONHASH(pTHX_ OP* o)
abb2c242 2415 __attribute__malloc__
e8a67806 2416 __attribute__warn_unused_result__;
f54cb97a 2417
f54cb97a 2418PERL_CALLCONV OP* Perl_newANONLIST(pTHX_ OP* o)
abb2c242
JH
2419 __attribute__malloc__
2420 __attribute__warn_unused_result__;
f54cb97a 2421
e8a67806
NC
2422PERL_CALLCONV OP* Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
2423PERL_CALLCONV OP* Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right)
abb2c242
JH
2424 __attribute__malloc__
2425 __attribute__warn_unused_result__;
f54cb97a 2426
e8a67806
NC
2427PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
2428/* PERL_CALLCONV AV* Perl_newAV(pTHX)
2429 __attribute__warn_unused_result__; */
2430
2431PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o)
2432 __attribute__malloc__
2433 __attribute__warn_unused_result__
2434 __attribute__nonnull__(pTHX_1);
2435#define PERL_ARGS_ASSERT_NEWAVREF \
2436 assert(o)
2437
2438PERL_CALLCONV OP* Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
abb2c242
JH
2439 __attribute__malloc__
2440 __attribute__warn_unused_result__;
f54cb97a 2441
aec46f14 2442PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* falseop)
abb2c242 2443 __attribute__malloc__
aec46f14
AL
2444 __attribute__warn_unused_result__
2445 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2446#define PERL_ARGS_ASSERT_NEWCONDOP \
2447 assert(first)
aec46f14 2448
99ab892b 2449PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv);
e8a67806
NC
2450PERL_CALLCONV OP* Perl_newCVREF(pTHX_ I32 flags, OP* o)
2451 __attribute__malloc__
2452 __attribute__warn_unused_result__;
2453
94bf0465 2454PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, OP* sv, OP* expr, OP* block, OP* cont)
abb2c242 2455 __attribute__malloc__
aa924a5a 2456 __attribute__warn_unused_result__
94bf0465 2457 __attribute__nonnull__(pTHX_3);
7918f24d
NC
2458#define PERL_ARGS_ASSERT_NEWFOROP \
2459 assert(expr)
f54cb97a 2460
0d863452
RH
2461PERL_CALLCONV OP* Perl_newGIVENOP(pTHX_ OP* cond, OP* block, PADOFFSET defsv_off)
2462 __attribute__malloc__
2463 __attribute__warn_unused_result__
2464 __attribute__nonnull__(pTHX_1)
2465 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2466#define PERL_ARGS_ASSERT_NEWGIVENOP \
2467 assert(cond); assert(block)
0d863452 2468
e8a67806
NC
2469PERL_CALLCONV GP * Perl_newGP(pTHX_ GV *const gv)
2470 __attribute__nonnull__(pTHX_1);
2471#define PERL_ARGS_ASSERT_NEWGP \
2472 assert(gv)
2473
2474PERL_CALLCONV OP* Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv)
2475 __attribute__malloc__
2476 __attribute__warn_unused_result__
2477 __attribute__nonnull__(pTHX_3);
2478#define PERL_ARGS_ASSERT_NEWGVOP \
2479 assert(gv)
2480
2481PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o)
2482 __attribute__malloc__
2483 __attribute__warn_unused_result__;
2484
2485PERL_CALLCONV GV* Perl_newGVgen(pTHX_ const char* pack)
2486 __attribute__malloc__
2487 __attribute__warn_unused_result__
2488 __attribute__nonnull__(pTHX_1);
2489#define PERL_ARGS_ASSERT_NEWGVGEN \
2490 assert(pack)
2491
2492/* PERL_CALLCONV HV* Perl_newHV(pTHX)
2493 __attribute__warn_unused_result__; */
2494
2495PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o)
2496 __attribute__malloc__
2497 __attribute__warn_unused_result__
2498 __attribute__nonnull__(pTHX_1);
2499#define PERL_ARGS_ASSERT_NEWHVREF \
2500 assert(o)
2501
2502PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV *hv)
2503 __attribute__malloc__
2504 __attribute__warn_unused_result__;
2505
2506/* PERL_CALLCONV IO* Perl_newIO(pTHX)
2507 __attribute__malloc__
2508 __attribute__warn_unused_result__; */
2509
2510PERL_CALLCONV OP* Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
2511 __attribute__malloc__
2512 __attribute__warn_unused_result__;
2513
4048f010 2514PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP *first, OP *other)
abb2c242 2515 __attribute__malloc__
aa924a5a
SH
2516 __attribute__warn_unused_result__
2517 __attribute__nonnull__(pTHX_3)
2518 __attribute__nonnull__(pTHX_4);
7918f24d
NC
2519#define PERL_ARGS_ASSERT_NEWLOGOP \
2520 assert(first); assert(other)
f54cb97a
AL
2521
2522PERL_CALLCONV OP* Perl_newLOOPEX(pTHX_ I32 type, OP* label)
abb2c242 2523 __attribute__malloc__
aa924a5a
SH
2524 __attribute__warn_unused_result__
2525 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2526#define PERL_ARGS_ASSERT_NEWLOOPEX \
2527 assert(label)
f54cb97a
AL
2528
2529PERL_CALLCONV OP* Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block)
abb2c242
JH
2530 __attribute__malloc__
2531 __attribute__warn_unused_result__;
f54cb97a 2532
4373e329 2533PERL_CALLCONV OP* Perl_newNULLLIST(pTHX)
abb2c242
JH
2534 __attribute__malloc__
2535 __attribute__warn_unused_result__;
f54cb97a
AL
2536
2537PERL_CALLCONV OP* Perl_newOP(pTHX_ I32 optype, I32 flags)
abb2c242
JH
2538 __attribute__malloc__
2539 __attribute__warn_unused_result__;
f54cb97a 2540
e8a67806
NC
2541PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags)
2542 __attribute__malloc__
2543 __attribute__warn_unused_result__;
2544
f54cb97a 2545PERL_CALLCONV void Perl_newPROG(pTHX_ OP* o)
abb2c242 2546 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2547#define PERL_ARGS_ASSERT_NEWPROG \
2548 assert(o)
f54cb97a 2549
e8a67806
NC
2550PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv)
2551 __attribute__malloc__
2552 __attribute__warn_unused_result__;
2553
f54cb97a 2554PERL_CALLCONV OP* Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right)
abb2c242 2555 __attribute__malloc__
aa924a5a
SH
2556 __attribute__warn_unused_result__
2557 __attribute__nonnull__(pTHX_2)
2558 __attribute__nonnull__(pTHX_3);
7918f24d
NC
2559#define PERL_ARGS_ASSERT_NEWRANGE \
2560 assert(left); assert(right)
f54cb97a 2561
e8a67806
NC
2562PERL_CALLCONV SV* Perl_newRV(pTHX_ SV *const sv)
2563 __attribute__malloc__
2564 __attribute__warn_unused_result__
2565 __attribute__nonnull__(pTHX_1);
2566#define PERL_ARGS_ASSERT_NEWRV \
2567 assert(sv)
2568
2569PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *const sv)
2570 __attribute__malloc__
2571 __attribute__warn_unused_result__
2572 __attribute__nonnull__(pTHX_1);
2573#define PERL_ARGS_ASSERT_NEWRV_NOINC \
2574 assert(sv)
2575
f54cb97a 2576PERL_CALLCONV OP* Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop)
abb2c242
JH
2577 __attribute__malloc__
2578 __attribute__warn_unused_result__;
f54cb97a
AL
2579
2580PERL_CALLCONV OP* Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o)
abb2c242
JH
2581 __attribute__malloc__
2582 __attribute__warn_unused_result__;
f54cb97a 2583
7bff8c33 2584/* PERL_CALLCONV CV* Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block); */
e8a67806
NC
2585PERL_CALLCONV SV* Perl_newSV(pTHX_ const STRLEN len)
2586 __attribute__malloc__
2587 __attribute__warn_unused_result__;
77004dee 2588
e8a67806
NC
2589PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv)
2590 __attribute__malloc__
2591 __attribute__warn_unused_result__
abb2c242 2592 __attribute__nonnull__(pTHX_3);
e8a67806
NC
2593#define PERL_ARGS_ASSERT_NEWSVOP \
2594 assert(sv)
f54cb97a 2595
e8a67806 2596PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o)
abb2c242
JH
2597 __attribute__malloc__
2598 __attribute__warn_unused_result__
2599 __attribute__nonnull__(pTHX_1);
e8a67806 2600#define PERL_ARGS_ASSERT_NEWSVREF \
7918f24d 2601 assert(o)
f54cb97a 2602
e8a67806 2603PERL_CALLCONV SV* Perl_newSV_type(pTHX_ const svtype type)
abb2c242
JH
2604 __attribute__malloc__
2605 __attribute__warn_unused_result__;
f54cb97a 2606
e8a67806 2607PERL_CALLCONV SV* Perl_newSVhek(pTHX_ const HEK *const hek)
abb2c242
JH
2608 __attribute__malloc__
2609 __attribute__warn_unused_result__;
f54cb97a 2610
e8a67806 2611PERL_CALLCONV SV* Perl_newSViv(pTHX_ const IV i)
abb2c242 2612 __attribute__malloc__
e8a67806 2613 __attribute__warn_unused_result__;
f54cb97a 2614
e8a67806 2615PERL_CALLCONV SV* Perl_newSVnv(pTHX_ const NV n)
abb2c242
JH
2616 __attribute__malloc__
2617 __attribute__warn_unused_result__;
f54cb97a 2618
e8a67806 2619PERL_CALLCONV SV* Perl_newSVpv(pTHX_ const char *const s, const STRLEN len)
abb2c242
JH
2620 __attribute__malloc__
2621 __attribute__warn_unused_result__;
f54cb97a 2622
e8a67806 2623PERL_CALLCONV SV* Perl_newSVpv_share(pTHX_ const char* s, U32 hash)
abb2c242
JH
2624 __attribute__malloc__
2625 __attribute__warn_unused_result__;
f54cb97a 2626
e8a67806 2627PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char *const pat, ...)
abb2c242
JH
2628 __attribute__malloc__
2629 __attribute__warn_unused_result__
e8a67806 2630 __attribute__format__(__printf__,pTHX_1,pTHX_2)
abb2c242 2631 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2632#define PERL_ARGS_ASSERT_NEWSVPVF \
2633 assert(pat)
f54cb97a 2634
23f13727 2635PERL_CALLCONV SV* Perl_newSVpvn(pTHX_ const char *const s, const STRLEN len)
abb2c242
JH
2636 __attribute__malloc__
2637 __attribute__warn_unused_result__;
f54cb97a 2638
23f13727 2639PERL_CALLCONV SV* Perl_newSVpvn_flags(pTHX_ const char *const s, const STRLEN len, const U32 flags)
740cce10
NC
2640 __attribute__malloc__
2641 __attribute__warn_unused_result__;
2642
f54cb97a 2643PERL_CALLCONV SV* Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
abb2c242
JH
2644 __attribute__malloc__
2645 __attribute__warn_unused_result__;
f54cb97a 2646
12964ddd 2647PERL_CALLCONV SV* Perl_newSVrv(pTHX_ SV *const rv, const char *const classname)
1b6737cc 2648 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2649#define PERL_ARGS_ASSERT_NEWSVRV \
2650 assert(rv)
f54cb97a 2651
23f13727 2652PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV *const old)
abb2c242
JH
2653 __attribute__malloc__
2654 __attribute__warn_unused_result__;
f54cb97a 2655
e8a67806 2656PERL_CALLCONV SV* Perl_newSVuv(pTHX_ const UV u)
b9f83d2f
NC
2657 __attribute__malloc__
2658 __attribute__warn_unused_result__;
2659
f54cb97a 2660PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first)
abb2c242
JH
2661 __attribute__malloc__
2662 __attribute__warn_unused_result__;
f54cb97a 2663
0d863452
RH
2664PERL_CALLCONV OP* Perl_newWHENOP(pTHX_ OP* cond, OP* block)
2665 __attribute__malloc__
2666 __attribute__warn_unused_result__
2667 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2668#define PERL_ARGS_ASSERT_NEWWHENOP \
2669 assert(block)
0d863452 2670
94bf0465 2671PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont, I32 has_my)
abb2c242
JH
2672 __attribute__malloc__
2673 __attribute__warn_unused_result__;
f54cb97a 2674
e8a67806 2675PERL_CALLCONV CV* Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
65b06e02
DM
2676 __attribute__nonnull__(pTHX_2)
2677 __attribute__nonnull__(pTHX_3);
e8a67806
NC
2678#define PERL_ARGS_ASSERT_NEWXS \
2679 assert(subaddr); assert(filename)
f54cb97a 2680
e8a67806
NC
2681PERL_CALLCONV CV * Perl_newXS_flags(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags)
2682 __attribute__nonnull__(pTHX_2)
2683 __attribute__nonnull__(pTHX_3);
2684#define PERL_ARGS_ASSERT_NEWXS_FLAGS \
2685 assert(subaddr); assert(filename)
f54cb97a 2686
e8a67806
NC
2687PERL_CALLCONV void Perl_new_collate(pTHX_ const char* newcoll);
2688PERL_CALLCONV void Perl_new_ctype(pTHX_ const char* newctype)
91152fc1 2689 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2690#define PERL_ARGS_ASSERT_NEW_CTYPE \
2691 assert(newctype)
2692
2693PERL_CALLCONV void Perl_new_numeric(pTHX_ const char* newcoll);
2694PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems)
2695 __attribute__malloc__
2696 __attribute__warn_unused_result__;
91152fc1 2697
2d03de9c
AL
2698PERL_CALLCONV SV* Perl_new_version(pTHX_ SV *ver)
2699 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2700#define PERL_ARGS_ASSERT_NEW_VERSION \
2701 assert(ver)
2d03de9c 2702
e8a67806
NC
2703PERL_CALLCONV STRLEN * Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits, STRLEN size)
2704 __attribute__malloc__
2705 __attribute__warn_unused_result__
abb2c242 2706 __attribute__nonnull__(pTHX_2);
e8a67806
NC
2707#define PERL_ARGS_ASSERT_NEW_WARNINGS_BITFIELD \
2708 assert(bits)
f54cb97a 2709
2d03de9c
AL
2710PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv)
2711 __attribute__nonnull__(pTHX_1);
7918f24d
NC
2712#define PERL_ARGS_ASSERT_NEXTARGV \
2713 assert(gv)
2d03de9c 2714
04c9e624 2715PERL_CALLCONV char* Perl_ninstr(const char* big, const char* bigend, const char* little, const char* lend)
2d03de9c 2716 __attribute__pure__
04c9e624
VP
2717 __attribute__nonnull__(1)
2718 __attribute__nonnull__(2)
2719 __attribute__nonnull__(3)
2720 __attribute__nonnull__(4);
7918f24d
NC
2721#define PERL_ARGS_ASSERT_NINSTR \
2722 assert(big); assert(bigend); assert(little); assert(lend)
f54cb97a 2723
e8a67806
NC
2724PERL_CALLCONV int Perl_nothreadhook(pTHX);
2725PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o)
2726 __attribute__warn_unused_result__
eb8433b7 2727 __attribute__nonnull__(pTHX_1);
e8a67806 2728#define PERL_ARGS_ASSERT_OOPSAV \
7918f24d 2729 assert(o)
eb8433b7 2730
e8a67806
NC
2731PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o)
2732 __attribute__warn_unused_result__
2d03de9c 2733 __attribute__nonnull__(pTHX_1);
e8a67806 2734#define PERL_ARGS_ASSERT_OOPSHV \
7918f24d 2735 assert(o)
f54cb97a 2736
2fcb4757
Z
2737PERL_CALLCONV OP* Perl_op_append_elem(pTHX_ I32 optype, OP* first, OP* last);
2738PERL_CALLCONV OP* Perl_op_append_list(pTHX_ I32 optype, OP* first, OP* last);
e8a67806
NC
2739PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o)
2740 __attribute__nonnull__(pTHX_1);
2741#define PERL_ARGS_ASSERT_OP_CLEAR \
2742 assert(o)
2743
2744PERL_CALLCONV SV* Perl_op_const_sv(pTHX_ const OP* o, CV* cv)
2745 __attribute__warn_unused_result__;
2746
d9088386
Z
2747PERL_CALLCONV OP* Perl_op_contextualize(pTHX_ OP* o, I32 context)
2748 __attribute__nonnull__(pTHX_1);
2749#define PERL_ARGS_ASSERT_OP_CONTEXTUALIZE \
2750 assert(o)
2751
e8a67806
NC
2752PERL_CALLCONV void Perl_op_dump(pTHX_ const OP *o)
2753 __attribute__nonnull__(pTHX_1);
2754#define PERL_ARGS_ASSERT_OP_DUMP \
2755 assert(o)
2756
2757PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg);
5983a79d
BM
2758PERL_CALLCONV OP* Perl_op_linklist(pTHX_ OP *o)
2759 __attribute__nonnull__(pTHX_1);
2760#define PERL_ARGS_ASSERT_OP_LINKLIST \
2761 assert(o)
2762
d3d7d28f
FC
2763/* PERL_CALLCONV OP* op_lvalue(pTHX_ OP* o, I32 type); */
2764PERL_CALLCONV OP* Perl_op_lvalue_flags(pTHX_ OP* o, I32 type, U32 flags);
e8a67806
NC
2765PERL_CALLCONV void Perl_op_null(pTHX_ OP* o)
2766 __attribute__nonnull__(pTHX_1);
2767#define PERL_ARGS_ASSERT_OP_NULL \
2768 assert(o)
2769
2fcb4757 2770PERL_CALLCONV OP* Perl_op_prepend_elem(pTHX_ I32 optype, OP* first, OP* last);
e8a67806
NC
2771PERL_CALLCONV void Perl_op_refcnt_lock(pTHX);
2772PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX);
3ad73efd 2773PERL_CALLCONV OP* Perl_op_scope(pTHX_ OP* o);
e8a67806
NC
2774PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
2775 __attribute__nonnull__(pTHX_1)
2776 __attribute__nonnull__(pTHX_2)
2777 __attribute__nonnull__(pTHX_3)
2778 __attribute__nonnull__(pTHX_4)
2779 __attribute__nonnull__(pTHX_5)
2780 __attribute__nonnull__(pTHX_6);
2781#define PERL_ARGS_ASSERT_PACK_CAT \
2782 assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist); assert(next_in_list)
2783
6fa4d285
DG
2784PERL_CALLCONV void Perl_package_version(pTHX_ OP* v)
2785 __attribute__nonnull__(pTHX_1);
2786#define PERL_ARGS_ASSERT_PACKAGE_VERSION \
2787 assert(v)
2788
e8a67806
NC
2789PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist)
2790 __attribute__nonnull__(pTHX_1)
2791 __attribute__nonnull__(pTHX_2)
2792 __attribute__nonnull__(pTHX_3)
2793 __attribute__nonnull__(pTHX_4)
2794 __attribute__nonnull__(pTHX_5);
2795#define PERL_ARGS_ASSERT_PACKLIST \
2796 assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist)
2797
cc76b5cc 2798PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ CV* func, I32 optype)
abb2c242 2799 __attribute__nonnull__(pTHX_1);
e8a67806 2800#define PERL_ARGS_ASSERT_PAD_ADD_ANON \
cc76b5cc 2801 assert(func)
e8a67806 2802
cc76b5cc 2803PERL_CALLCONV PADOFFSET Perl_pad_add_name_pv(pTHX_ const char *name, const U32 flags, HV *typestash, HV *ourstash)
e8a67806 2804 __attribute__nonnull__(pTHX_1);
cc76b5cc
Z
2805#define PERL_ARGS_ASSERT_PAD_ADD_NAME_PV \
2806 assert(name)
2807
0e1b3a4b 2808PERL_CALLCONV PADOFFSET Perl_pad_add_name_pvn(pTHX_ const char *namepv, STRLEN namelen, U32 flags, HV *typestash, HV *ourstash)
cc76b5cc
Z
2809 __attribute__nonnull__(pTHX_1);
2810#define PERL_ARGS_ASSERT_PAD_ADD_NAME_PVN \
2811 assert(namepv)
2812
0e1b3a4b 2813PERL_CALLCONV PADOFFSET Perl_pad_add_name_sv(pTHX_ SV *name, U32 flags, HV *typestash, HV *ourstash)
cc76b5cc
Z
2814 __attribute__nonnull__(pTHX_1);
2815#define PERL_ARGS_ASSERT_PAD_ADD_NAME_SV \
7918f24d 2816 assert(name)
f54cb97a 2817
e8a67806
NC
2818PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
2819PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full);
2820PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po)
2821 __attribute__warn_unused_result__;
2822
cc76b5cc
Z
2823PERL_CALLCONV PADOFFSET Perl_pad_findmy_pv(pTHX_ const char* name, U32 flags)
2824 __attribute__warn_unused_result__
2825 __attribute__nonnull__(pTHX_1);
2826#define PERL_ARGS_ASSERT_PAD_FINDMY_PV \
2827 assert(name)
2828
2829PERL_CALLCONV PADOFFSET Perl_pad_findmy_pvn(pTHX_ const char* namepv, STRLEN namelen, U32 flags)
2830 __attribute__warn_unused_result__
2831 __attribute__nonnull__(pTHX_1);
2832#define PERL_ARGS_ASSERT_PAD_FINDMY_PVN \
2833 assert(namepv)
2834
2835PERL_CALLCONV PADOFFSET Perl_pad_findmy_sv(pTHX_ SV* name, U32 flags)
255164ba 2836 __attribute__warn_unused_result__
abb2c242 2837 __attribute__nonnull__(pTHX_1);
cc76b5cc 2838#define PERL_ARGS_ASSERT_PAD_FINDMY_SV \
7918f24d 2839 assert(name)
f54cb97a 2840
e8a67806 2841PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv)
abb2c242 2842 __attribute__nonnull__(pTHX_1)
e8a67806 2843 __attribute__nonnull__(pTHX_2)
abb2c242 2844 __attribute__nonnull__(pTHX_3);
e8a67806
NC
2845#define PERL_ARGS_ASSERT_PAD_FIXUP_INNER_ANONS \
2846 assert(padlist); assert(old_cv); assert(new_cv)
f54cb97a 2847
e8a67806
NC
2848PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po);
2849PERL_CALLCONV void Perl_pad_leavemy(pTHX);
2850PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags)
2851 __attribute__malloc__
2852 __attribute__warn_unused_result__;
f54cb97a 2853
e8a67806 2854PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
abb2c242 2855 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2856#define PERL_ARGS_ASSERT_PAD_PUSH \
2857 assert(padlist)
f54cb97a 2858
e8a67806
NC
2859PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust);
2860PERL_CALLCONV void Perl_pad_tidy(pTHX_ padtidy_type type);
78cdf107 2861PERL_CALLCONV OP* Perl_parse_arithexpr(pTHX_ U32 flags);
8359b381 2862PERL_CALLCONV OP* Perl_parse_barestmt(pTHX_ U32 flags);
e53d8f76 2863PERL_CALLCONV OP* Perl_parse_block(pTHX_ U32 flags);
78cdf107 2864PERL_CALLCONV OP* Perl_parse_fullexpr(pTHX_ U32 flags);
e8a67806 2865PERL_CALLCONV OP* Perl_parse_fullstmt(pTHX_ U32 flags);
361d9b55 2866PERL_CALLCONV SV* Perl_parse_label(pTHX_ U32 flags);
78cdf107 2867PERL_CALLCONV OP* Perl_parse_listexpr(pTHX_ U32 flags);
07ffcb73 2868PERL_CALLCONV OP* Perl_parse_stmtseq(pTHX_ U32 flags);
78cdf107 2869PERL_CALLCONV OP* Perl_parse_termexpr(pTHX_ U32 flags);
e8a67806 2870PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ const char **popt)
255164ba 2871 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2872#define PERL_ARGS_ASSERT_PARSE_UNICODE_OPTS \
2873 assert(popt)
255164ba 2874
e8a67806 2875PERL_CALLCONV void Perl_parser_free(pTHX_ const yy_parser *parser)
780a5241 2876 __attribute__nonnull__(pTHX_1);
e8a67806
NC
2877#define PERL_ARGS_ASSERT_PARSER_FREE \
2878 assert(parser)
780a5241 2879
e8a67806
NC
2880PERL_CALLCONV void Perl_peep(pTHX_ OP* o);
2881PERL_CALLCONV PerlInterpreter* perl_alloc(void);
2882PERL_CALLCONV void perl_construct(PerlInterpreter *my_perl)
2883 __attribute__nonnull__(1);
2884#define PERL_ARGS_ASSERT_PERL_CONSTRUCT \
2885 assert(my_perl)
f54cb97a 2886
e8a67806
NC
2887PERL_CALLCONV int perl_destruct(PerlInterpreter *my_perl)
2888 __attribute__nonnull__(1);
2889#define PERL_ARGS_ASSERT_PERL_DESTRUCT \
2890 assert(my_perl)
f54cb97a 2891
e8a67806
NC
2892PERL_CALLCONV void perl_free(PerlInterpreter *my_perl)
2893 __attribute__nonnull__(1);
2894#define PERL_ARGS_ASSERT_PERL_FREE \
2895 assert(my_perl)
f54cb97a 2896
e8a67806
NC
2897PERL_CALLCONV int perl_parse(PerlInterpreter *my_perl, XSINIT_t xsinit, int argc, char** argv, char** env)
2898 __attribute__nonnull__(1);
2899#define PERL_ARGS_ASSERT_PERL_PARSE \
2900 assert(my_perl)
2d03de9c 2901
e8a67806
NC
2902PERL_CALLCONV int perl_run(PerlInterpreter *my_perl)
2903 __attribute__nonnull__(1);
2904#define PERL_ARGS_ASSERT_PERL_RUN \
2905 assert(my_perl)
2d03de9c 2906
e8a67806 2907PERL_CALLCONV void Perl_pmop_dump(pTHX_ PMOP* pm);
4048f010 2908PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
abb2c242
JH
2909 __attribute__nonnull__(pTHX_1)
2910 __attribute__nonnull__(pTHX_2);
7918f24d
NC
2911#define PERL_ARGS_ASSERT_PMRUNTIME \
2912 assert(o); assert(expr)
f54cb97a 2913
1d7c1841 2914PERL_CALLCONV void Perl_pop_scope(pTHX);
74e8ce34
NC
2915PERL_CALLCONV void Perl_populate_isa(pTHX_ const char *name, STRLEN len, ...)
2916 __attribute__nonnull__(pTHX_1);
2917#define PERL_ARGS_ASSERT_POPULATE_ISA \
2918 assert(name)
2919
e8a67806
NC
2920PERL_CALLCONV REGEXP* Perl_pregcomp(pTHX_ SV * const pattern, const U32 flags)
2921 __attribute__nonnull__(pTHX_1);
2922#define PERL_ARGS_ASSERT_PREGCOMP \
2923 assert(pattern)
2924
2925PERL_CALLCONV I32 Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2926 __attribute__nonnull__(pTHX_1)
2927 __attribute__nonnull__(pTHX_2)
2928 __attribute__nonnull__(pTHX_3)
2929 __attribute__nonnull__(pTHX_4)
2930 __attribute__nonnull__(pTHX_6);
2931#define PERL_ARGS_ASSERT_PREGEXEC \
2932 assert(prog); assert(stringarg); assert(strend); assert(strbeg); assert(screamer)
2933
2934PERL_CALLCONV void Perl_pregfree(pTHX_ REGEXP* r);
2935PERL_CALLCONV void Perl_pregfree2(pTHX_ REGEXP *rx)
2936 __attribute__nonnull__(pTHX_1);
2937#define PERL_ARGS_ASSERT_PREGFREE2 \
2938 assert(rx)
2939
e8a67806
NC
2940PERL_CALLCONV const char* Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha)
2941 __attribute__nonnull__(pTHX_1);
2942#define PERL_ARGS_ASSERT_PRESCAN_VERSION \
2943 assert(s)
2944
2945PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
2946 __attribute__deprecated__;
2947
2948PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *const tbl, const void *const sv)
2949 __attribute__warn_unused_result__
2950 __attribute__nonnull__(pTHX_1);
2951#define PERL_ARGS_ASSERT_PTR_TABLE_FETCH \
2952 assert(tbl)
2953
2954PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl);
2955PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX)
2956 __attribute__malloc__
2957 __attribute__warn_unused_result__;
2958
2959PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl)
2960 __attribute__nonnull__(pTHX_1);
2961#define PERL_ARGS_ASSERT_PTR_TABLE_SPLIT \
2962 assert(tbl)
2963
2964PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv)
2965 __attribute__nonnull__(pTHX_1)
2966 __attribute__nonnull__(pTHX_3);
2967#define PERL_ARGS_ASSERT_PTR_TABLE_STORE \
2968 assert(tbl); assert(newsv)
2969
2970PERL_CALLCONV void Perl_push_scope(pTHX);
2971PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
2972 __attribute__nonnull__(pTHX_1)
2973 __attribute__nonnull__(pTHX_2);
2974#define PERL_ARGS_ASSERT_PV_DISPLAY \
2975 assert(dsv); assert(pv)
2976
2977PERL_CALLCONV char* Perl_pv_escape(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags)
2978 __attribute__nonnull__(pTHX_1)
2979 __attribute__nonnull__(pTHX_2);
2980#define PERL_ARGS_ASSERT_PV_ESCAPE \
2981 assert(dsv); assert(str)
2982
2983PERL_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)
2984 __attribute__nonnull__(pTHX_1)
2985 __attribute__nonnull__(pTHX_2);
2986#define PERL_ARGS_ASSERT_PV_PRETTY \
2987 assert(dsv); assert(str)
2988
2989PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags)
2990 __attribute__nonnull__(pTHX_1)
2991 __attribute__nonnull__(pTHX_2);
2992#define PERL_ARGS_ASSERT_PV_UNI_DISPLAY \
2993 assert(dsv); assert(spv)
2994
2995PERL_CALLCONV void Perl_qerror(pTHX_ SV* err)
2996 __attribute__nonnull__(pTHX_1);
2997#define PERL_ARGS_ASSERT_QERROR \
2998 assert(err)
2999
3000PERL_CALLCONV REGEXP* Perl_re_compile(pTHX_ SV * const pattern, U32 flags)
3001 __attribute__nonnull__(pTHX_1);
3002#define PERL_ARGS_ASSERT_RE_COMPILE \
3003 assert(pattern)
3004
3005PERL_CALLCONV char* Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV* sv, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data)
3006 __attribute__nonnull__(pTHX_1)
3007 __attribute__nonnull__(pTHX_3)
3008 __attribute__nonnull__(pTHX_4);
3009#define PERL_ARGS_ASSERT_RE_INTUIT_START \
3010 assert(rx); assert(strpos); assert(strend)
3011
3012PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ REGEXP *const r)
3013 __attribute__nonnull__(pTHX_1);
3014#define PERL_ARGS_ASSERT_RE_INTUIT_STRING \
3015 assert(r)
3016
3017PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes)
3018 __attribute__malloc__
3019 __attribute__warn_unused_result__;
3020
3021/* PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type); */
20439bc7
Z
3022PERL_CALLCONV HV * Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c, U32 flags);
3023PERL_CALLCONV SV * Perl_refcounted_he_fetch_pv(pTHX_ const struct refcounted_he *chain, const char *key, U32 hash, U32 flags)
3024 __attribute__nonnull__(pTHX_2);
3025#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_PV \
3026 assert(key)
3027
3028PERL_CALLCONV SV * Perl_refcounted_he_fetch_pvn(pTHX_ const struct refcounted_he *chain, const char *keypv, STRLEN keylen, U32 hash, U32 flags)
3029 __attribute__nonnull__(pTHX_2);
3030#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_PVN \
3031 assert(keypv)
3032
3033PERL_CALLCONV SV * Perl_refcounted_he_fetch_sv(pTHX_ const struct refcounted_he *chain, SV *key, U32 hash, U32 flags)
3034 __attribute__nonnull__(pTHX_2);
3035#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_SV \
3036 assert(key)
3037
e8a67806 3038PERL_CALLCONV void Perl_refcounted_he_free(pTHX_ struct refcounted_he *he);
20439bc7
Z
3039PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_inc(pTHX_ struct refcounted_he *he);
3040PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new_pv(pTHX_ struct refcounted_he *parent, const char *key, U32 hash, SV *value, U32 flags)
3041 __attribute__nonnull__(pTHX_2);
3042#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_PV \
3043 assert(key)
3044
3045PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new_pvn(pTHX_ struct refcounted_he *parent, const char *keypv, STRLEN keylen, U32 hash, SV *value, U32 flags)
3046 __attribute__nonnull__(pTHX_2);
3047#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_PVN \
3048 assert(keypv)
3049
3050PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new_sv(pTHX_ struct refcounted_he *parent, SV *key, U32 hash, SV *value, U32 flags)
3051 __attribute__nonnull__(pTHX_2);
3052#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_SV \
3053 assert(key)
3054
e8a67806
NC
3055PERL_CALLCONV SV* Perl_reg_named_buff(pTHX_ REGEXP * const rx, SV * const key, SV * const value, const U32 flags)
3056 __attribute__nonnull__(pTHX_1);
3057#define PERL_ARGS_ASSERT_REG_NAMED_BUFF \
3058 assert(rx)
3059
3060PERL_CALLCONV SV* Perl_reg_named_buff_all(pTHX_ REGEXP * const rx, const U32 flags)
3061 __attribute__nonnull__(pTHX_1);
3062#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ALL \
3063 assert(rx)
3064
3065PERL_CALLCONV bool Perl_reg_named_buff_exists(pTHX_ REGEXP * const rx, SV * const key, const U32 flags)
3066 __attribute__nonnull__(pTHX_1)
3067 __attribute__nonnull__(pTHX_2);
3068#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_EXISTS \
3069 assert(rx); assert(key)
3070
3071PERL_CALLCONV SV* Perl_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const namesv, const U32 flags)
3072 __attribute__nonnull__(pTHX_1)
3073 __attribute__nonnull__(pTHX_2);
3074#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FETCH \
3075 assert(rx); assert(namesv)
3076
3077PERL_CALLCONV SV* Perl_reg_named_buff_firstkey(pTHX_ REGEXP * const rx, const U32 flags)
3078 __attribute__nonnull__(pTHX_1);
3079#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FIRSTKEY \
3080 assert(rx)
3081
3082PERL_CALLCONV SV* Perl_reg_named_buff_iter(pTHX_ REGEXP * const rx, const SV * const lastkey, const U32 flags)
3083 __attribute__nonnull__(pTHX_1);
3084#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ITER \
3085 assert(rx)
3086
3087PERL_CALLCONV SV* Perl_reg_named_buff_nextkey(pTHX_ REGEXP * const rx, const U32 flags)
3088 __attribute__nonnull__(pTHX_1);
3089#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_NEXTKEY \
3090 assert(rx)
3091
3092PERL_CALLCONV SV* Perl_reg_named_buff_scalar(pTHX_ REGEXP * const rx, const U32 flags)
3093 __attribute__nonnull__(pTHX_1);
3094#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_SCALAR \
3095 assert(rx)
3096
3097PERL_CALLCONV void Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, SV * const sv)
3098 __attribute__nonnull__(pTHX_1);
3099#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_FETCH \
3100 assert(rx)
3101
3102PERL_CALLCONV I32 Perl_reg_numbered_buff_length(pTHX_ REGEXP * const rx, const SV * const sv, const I32 paren)
3103 __attribute__nonnull__(pTHX_1)
3104 __attribute__nonnull__(pTHX_2);
3105#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_LENGTH \
3106 assert(rx); assert(sv)
3107
3108PERL_CALLCONV void Perl_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, SV const * const value)
3109 __attribute__nonnull__(pTHX_1);
3110#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_STORE \
3111 assert(rx)
3112
3113PERL_CALLCONV SV* Perl_reg_qr_package(pTHX_ REGEXP * const rx)
3114 __attribute__nonnull__(pTHX_1);
3115#define PERL_ARGS_ASSERT_REG_QR_PACKAGE \
3116 assert(rx)
3117
3118PERL_CALLCONV REGEXP* Perl_reg_temp_copy(pTHX_ REGEXP* ret_x, REGEXP* rx)
3119 __attribute__nonnull__(pTHX_2);
3120#define PERL_ARGS_ASSERT_REG_TEMP_COPY \
3121 assert(rx)
3122
3123PERL_CALLCONV SV* Perl_regclass_swash(pTHX_ const regexp *prog, const struct regnode *node, bool doinit, SV **listsvp, SV **altsvp)
3124 __attribute__nonnull__(pTHX_2);
3125#define PERL_ARGS_ASSERT_REGCLASS_SWASH \
3126 assert(node)
3127
3128PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r)
3129 __attribute__nonnull__(pTHX_1);
3130#define PERL_ARGS_ASSERT_REGDUMP \
3131 assert(r)
3132
3133PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r)
3134 __attribute__nonnull__(pTHX_1);
3135#define PERL_ARGS_ASSERT_REGDUMP \
3136 assert(r)
3137
3138PERL_CALLCONV I32 Perl_regexec_flags(pTHX_ REGEXP *const rx, char *stringarg, char *strend, char *strbeg, I32 minend, SV *sv, void *data, U32 flags)
3139 __attribute__nonnull__(pTHX_1)
3140 __attribute__nonnull__(pTHX_2)
3141 __attribute__nonnull__(pTHX_3)
3142 __attribute__nonnull__(pTHX_4)
3143 __attribute__nonnull__(pTHX_6);
3144#define PERL_ARGS_ASSERT_REGEXEC_FLAGS \
3145 assert(rx); assert(stringarg); assert(strend); assert(strbeg); assert(sv)
3146
3147PERL_CALLCONV void Perl_regfree_internal(pTHX_ REGEXP *const rx)
3148 __attribute__nonnull__(pTHX_1);
3149#define PERL_ARGS_ASSERT_REGFREE_INTERNAL \
3150 assert(rx)
3151
3152PERL_CALLCONV void Perl_reginitcolors(pTHX);
3153PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p)
3154 __attribute__warn_unused_result__;
3155
3156PERL_CALLCONV void Perl_regprop(pTHX_ const regexp *prog, SV* sv, const regnode* o)
3157 __attribute__nonnull__(pTHX_2)
3158 __attribute__nonnull__(pTHX_3);
3159#define PERL_ARGS_ASSERT_REGPROP \
3160 assert(sv); assert(o)
3161
3162PERL_CALLCONV void Perl_repeatcpy(char* to, const char* from, I32 len, I32 count)
3163 __attribute__nonnull__(1)
3164 __attribute__nonnull__(2);
3165#define PERL_ARGS_ASSERT_REPEATCPY \
3166 assert(to); assert(from)
3167
831e4cc3 3168PERL_CALLCONV void Perl_report_evil_fh(pTHX_ const GV *gv);
e8a67806 3169PERL_CALLCONV void Perl_report_uninit(pTHX_ const SV *uninit_sv);
a5390457 3170PERL_CALLCONV void Perl_report_wrongway_fh(pTHX_ const GV *gv, const char have);
e8a67806
NC
3171PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv)
3172 __attribute__nonnull__(pTHX_1);
3173#define PERL_ARGS_ASSERT_REQUIRE_PV \
3174 assert(pv)
3175
3176PERL_CALLCONV char* Perl_rninstr(const char* big, const char* bigend, const char* little, const char* lend)
3177 __attribute__pure__
3178 __attribute__nonnull__(1)
3179 __attribute__nonnull__(2)
3180 __attribute__nonnull__(3)
3181 __attribute__nonnull__(4);
3182#define PERL_ARGS_ASSERT_RNINSTR \
3183 assert(big); assert(bigend); assert(little); assert(lend)
3184
3185PERL_CALLCONV void Perl_rpeep(pTHX_ OP* o);
3186PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t);
3187PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
3188PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* save)
3189 __attribute__nonnull__(pTHX_3);
3190#define PERL_ARGS_ASSERT_RSIGNAL_SAVE \
3191 assert(save)
3192
3193PERL_CALLCONV Sighandler_t Perl_rsignal_state(pTHX_ int i);
3194PERL_CALLCONV int Perl_runops_debug(pTHX);
3195PERL_CALLCONV int Perl_runops_standard(pTHX);
d9088386
Z
3196PERL_CALLCONV CV* Perl_rv2cv_op_cv(pTHX_ OP *cvop, U32 flags)
3197 __attribute__nonnull__(pTHX_1);
3198#define PERL_ARGS_ASSERT_RV2CV_OP_CV \
3199 assert(cvop)
3200
e8a67806
NC
3201PERL_CALLCONV void Perl_rxres_save(pTHX_ void **rsp, REGEXP *rx)
3202 __attribute__nonnull__(pTHX_1)
3203 __attribute__nonnull__(pTHX_2);
3204#define PERL_ARGS_ASSERT_RXRES_SAVE \
3205 assert(rsp); assert(rx)
3206
3207PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
3208 __attribute__malloc__
3209 __attribute__warn_unused_result__;
3210
3211PERL_CALLCONV Free_t Perl_safesysfree(Malloc_t where);
3212PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes)
3213 __attribute__malloc__
3214 __attribute__warn_unused_result__;
3215
3216PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
3217 __attribute__malloc__
3218 __attribute__warn_unused_result__;
3219
3220PERL_CALLCONV void Perl_save_I16(pTHX_ I16* intp)
3221 __attribute__nonnull__(pTHX_1);
3222#define PERL_ARGS_ASSERT_SAVE_I16 \
3223 assert(intp)
3224
3225PERL_CALLCONV void Perl_save_I32(pTHX_ I32* intp)
3226 __attribute__nonnull__(pTHX_1);
3227#define PERL_ARGS_ASSERT_SAVE_I32 \
3228 assert(intp)
3229
3230PERL_CALLCONV void Perl_save_I8(pTHX_ I8* bytep)
3231 __attribute__nonnull__(pTHX_1);
3232#define PERL_ARGS_ASSERT_SAVE_I8 \
3233 assert(bytep)
3234
3235PERL_CALLCONV void Perl_save_adelete(pTHX_ AV *av, I32 key)
3236 __attribute__nonnull__(pTHX_1);
3237#define PERL_ARGS_ASSERT_SAVE_ADELETE \
3238 assert(av)
3239
3240/* PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr)
3241 __attribute__nonnull__(pTHX_1)
3242 __attribute__nonnull__(pTHX_3); */
3243
3244PERL_CALLCONV void Perl_save_aelem_flags(pTHX_ AV* av, I32 idx, SV **sptr, const U32 flags)
3245 __attribute__nonnull__(pTHX_1)
3246 __attribute__nonnull__(pTHX_3);
3247#define PERL_ARGS_ASSERT_SAVE_AELEM_FLAGS \
3248 assert(av); assert(sptr)
3249
3250PERL_CALLCONV I32 Perl_save_alloc(pTHX_ I32 size, I32 pad);
3251PERL_CALLCONV void Perl_save_aptr(pTHX_ AV** aptr)
3252 __attribute__nonnull__(pTHX_1);
3253#define PERL_ARGS_ASSERT_SAVE_APTR \
3254 assert(aptr)
3255
3256PERL_CALLCONV AV* Perl_save_ary(pTHX_ GV* gv)
3257 __attribute__nonnull__(pTHX_1);
3258#define PERL_ARGS_ASSERT_SAVE_ARY \
3259 assert(gv)
3260
3261PERL_CALLCONV void Perl_save_bool(pTHX_ bool* boolp)
3262 __attribute__nonnull__(pTHX_1);
3263#define PERL_ARGS_ASSERT_SAVE_BOOL \
3264 assert(boolp)
3265
3266PERL_CALLCONV void Perl_save_clearsv(pTHX_ SV** svp)
3267 __attribute__nonnull__(pTHX_1);
3268#define PERL_ARGS_ASSERT_SAVE_CLEARSV \
3269 assert(svp)
3270
3271PERL_CALLCONV void Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
3272 __attribute__nonnull__(pTHX_1)
3273 __attribute__nonnull__(pTHX_2);
3274#define PERL_ARGS_ASSERT_SAVE_DELETE \
3275 assert(hv); assert(key)
3276
3277PERL_CALLCONV void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
3278 __attribute__nonnull__(pTHX_2);
3279#define PERL_ARGS_ASSERT_SAVE_DESTRUCTOR \
3280 assert(p)
3281
3282PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
3283/* PERL_CALLCONV void Perl_save_freeop(pTHX_ OP* o); */
3284/* PERL_CALLCONV void Perl_save_freepv(pTHX_ char* pv); */
3285/* PERL_CALLCONV void Perl_save_freesv(pTHX_ SV* sv); */
3286PERL_CALLCONV void Perl_save_generic_pvref(pTHX_ char** str)
3287 __attribute__nonnull__(pTHX_1);
3288#define PERL_ARGS_ASSERT_SAVE_GENERIC_PVREF \
3289 assert(str)
3290
3291PERL_CALLCONV void Perl_save_generic_svref(pTHX_ SV** sptr)
3292 __attribute__nonnull__(pTHX_1);
3293#define PERL_ARGS_ASSERT_SAVE_GENERIC_SVREF \
3294 assert(sptr)
3295
3296PERL_CALLCONV void Perl_save_gp(pTHX_ GV* gv, I32 empty)
3297 __attribute__nonnull__(pTHX_1);
3298#define PERL_ARGS_ASSERT_SAVE_GP \
3299 assert(gv)
3300
3301PERL_CALLCONV HV* Perl_save_hash(pTHX_ GV* gv)
3302 __attribute__nonnull__(pTHX_1);
3303#define PERL_ARGS_ASSERT_SAVE_HASH \
3304 assert(gv)
3305
3306PERL_CALLCONV void Perl_save_hdelete(pTHX_ HV *hv, SV *keysv)
3307 __attribute__nonnull__(pTHX_1)
3308 __attribute__nonnull__(pTHX_2);
3309#define PERL_ARGS_ASSERT_SAVE_HDELETE \
3310 assert(hv); assert(keysv)
3311
3312/* PERL_CALLCONV void Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr)
3313 __attribute__nonnull__(pTHX_1)
3314 __attribute__nonnull__(pTHX_2)
3315 __attribute__nonnull__(pTHX_3); */
3316
3317PERL_CALLCONV void Perl_save_helem_flags(pTHX_ HV *hv, SV *key, SV **sptr, const U32 flags)
3318 __attribute__nonnull__(pTHX_1)
3319 __attribute__nonnull__(pTHX_2)
3320 __attribute__nonnull__(pTHX_3);
3321#define PERL_ARGS_ASSERT_SAVE_HELEM_FLAGS \
3322 assert(hv); assert(key); assert(sptr)
3323
3324PERL_CALLCONV void Perl_save_hints(pTHX);
3325PERL_CALLCONV void Perl_save_hptr(pTHX_ HV** hptr)
3326 __attribute__nonnull__(pTHX_1);
3327#define PERL_ARGS_ASSERT_SAVE_HPTR \
3328 assert(hptr)
3329
3330PERL_CALLCONV void Perl_save_int(pTHX_ int* intp)
3331 __attribute__nonnull__(pTHX_1);
3332#define PERL_ARGS_ASSERT_SAVE_INT \
3333 assert(intp)
3334
3335PERL_CALLCONV void Perl_save_item(pTHX_ SV* item)
3336 __attribute__nonnull__(pTHX_1);
3337#define PERL_ARGS_ASSERT_SAVE_ITEM \
3338 assert(item)
3339
3340PERL_CALLCONV void Perl_save_iv(pTHX_ IV *ivp)
3341 __attribute__nonnull__(pTHX_1);
3342#define PERL_ARGS_ASSERT_SAVE_IV \
3343 assert(ivp)
3344
3345PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg)
3346 __attribute__nonnull__(pTHX_1);
3347#define PERL_ARGS_ASSERT_SAVE_LIST \
3348 assert(sarg)
3349
3350PERL_CALLCONV void Perl_save_long(pTHX_ long* longp)
3351 __attribute__nonnull__(pTHX_1);
3352#define PERL_ARGS_ASSERT_SAVE_LONG \
3353 assert(longp)
3354
3355/* PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv)
3356 __attribute__nonnull__(pTHX_1); */
3357#define PERL_ARGS_ASSERT_SAVE_MORTALIZESV \
3358 assert(sv)
3359
3360PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv)
3361 __attribute__nonnull__(pTHX_1);
3362#define PERL_ARGS_ASSERT_SAVE_NOGV \
3363 assert(gv)
3364
3365/* PERL_CALLCONV void Perl_save_op(pTHX); */
3366PERL_CALLCONV void Perl_save_padsv_and_mortalize(pTHX_ PADOFFSET off);
3367PERL_CALLCONV void Perl_save_pptr(pTHX_ char** pptr)
3368 __attribute__nonnull__(pTHX_1);
3369#define PERL_ARGS_ASSERT_SAVE_PPTR \
3370 assert(pptr)
3371
3372PERL_CALLCONV void Perl_save_pushi32ptr(pTHX_ const I32 i, void *const ptr, const int type);
3373PERL_CALLCONV void Perl_save_pushptr(pTHX_ void *const ptr, const int type);
3374PERL_CALLCONV void Perl_save_pushptrptr(pTHX_ void *const ptr1, void *const ptr2, const int type);
3375PERL_CALLCONV void Perl_save_re_context(pTHX);
3376PERL_CALLCONV SV* Perl_save_scalar(pTHX_ GV* gv)
3377 __attribute__nonnull__(pTHX_1);
3378#define PERL_ARGS_ASSERT_SAVE_SCALAR \
3379 assert(gv)
3380
3381PERL_CALLCONV void Perl_save_set_svflags(pTHX_ SV *sv, U32 mask, U32 val)
3382 __attribute__nonnull__(pTHX_1);
3383#define PERL_ARGS_ASSERT_SAVE_SET_SVFLAGS \
3384 assert(sv)
3385
3386PERL_CALLCONV void Perl_save_shared_pvref(pTHX_ char** str)
3387 __attribute__nonnull__(pTHX_1);
3388#define PERL_ARGS_ASSERT_SAVE_SHARED_PVREF \
3389 assert(str)
3390
3391PERL_CALLCONV void Perl_save_sptr(pTHX_ SV** sptr)
3392 __attribute__nonnull__(pTHX_1);
3393#define PERL_ARGS_ASSERT_SAVE_SPTR \
3394 assert(sptr)
3395
3396PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr)
3397 __attribute__nonnull__(pTHX_1);
3398#define PERL_ARGS_ASSERT_SAVE_SVREF \
3399 assert(sptr)
3400
3401PERL_CALLCONV void Perl_save_vptr(pTHX_ void *ptr)
3402 __attribute__nonnull__(pTHX_1);
3403#define PERL_ARGS_ASSERT_SAVE_VPTR \
3404 assert(ptr)
3405
3406PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv)
3407 __attribute__malloc__
3408 __attribute__warn_unused_result__;
3409
3410PERL_CALLCONV char* Perl_savepvn(pTHX_ const char* pv, I32 len)
3411 __attribute__malloc__
3412 __attribute__warn_unused_result__;
3413
3414PERL_CALLCONV char* Perl_savesharedpv(pTHX_ const char* pv)
3415 __attribute__malloc__
3416 __attribute__warn_unused_result__;
3417
3418PERL_CALLCONV char* Perl_savesharedpvn(pTHX_ const char *const pv, const STRLEN len)
3419 __attribute__malloc__
3420 __attribute__warn_unused_result__
3421 __attribute__nonnull__(pTHX_1);
3422#define PERL_ARGS_ASSERT_SAVESHAREDPVN \
3423 assert(pv)
3424
3425PERL_CALLCONV char* Perl_savesharedsvpv(pTHX_ SV *sv)
3426 __attribute__malloc__
3427 __attribute__warn_unused_result__
3428 __attribute__nonnull__(pTHX_1);
3429#define PERL_ARGS_ASSERT_SAVESHAREDSVPV \
3430 assert(sv)
3431
3432PERL_CALLCONV void Perl_savestack_grow(pTHX);
3433PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need);
3434PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv)
3435 __attribute__malloc__
3436 __attribute__warn_unused_result__
3437 __attribute__nonnull__(pTHX_1);
3438#define PERL_ARGS_ASSERT_SAVESVPV \
3439 assert(sv)
3440
3441PERL_CALLCONV OP* Perl_sawparens(pTHX_ OP* o);
3442PERL_CALLCONV OP* Perl_scalar(pTHX_ OP* o);
3443PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o)
3444 __attribute__nonnull__(pTHX_1);
3445#define PERL_ARGS_ASSERT_SCALARVOID \
3446 assert(o)
3447
3448PERL_CALLCONV NV Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3449 __attribute__nonnull__(pTHX_1)
3450 __attribute__nonnull__(pTHX_3);
3451#define PERL_ARGS_ASSERT_SCAN_BIN \
3452 assert(start); assert(retlen)
3453
3454PERL_CALLCONV NV Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3455 __attribute__nonnull__(pTHX_1)
3456 __attribute__nonnull__(pTHX_3);
3457#define PERL_ARGS_ASSERT_SCAN_HEX \
3458 assert(start); assert(retlen)
3459
3460PERL_CALLCONV char* Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp)
3461 __attribute__nonnull__(pTHX_1)
3462 __attribute__nonnull__(pTHX_2);
3463#define PERL_ARGS_ASSERT_SCAN_NUM \
3464 assert(s); assert(lvalp)
3465
3466PERL_CALLCONV NV Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
3467 __attribute__nonnull__(pTHX_1)
3468 __attribute__nonnull__(pTHX_3);
3469#define PERL_ARGS_ASSERT_SCAN_OCT \
3470 assert(start); assert(retlen)
3471
3472PERL_CALLCONV const char* Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv)
3473 __attribute__nonnull__(pTHX_1)
3474 __attribute__nonnull__(pTHX_2);
3475#define PERL_ARGS_ASSERT_SCAN_VERSION \
3476 assert(s); assert(rv)
3477
3478PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *s, const char *const e, SV *sv)
3479 __attribute__nonnull__(pTHX_1)
3480 __attribute__nonnull__(pTHX_2)
3481 __attribute__nonnull__(pTHX_3);
3482#define PERL_ARGS_ASSERT_SCAN_VSTRING \
3483 assert(s); assert(e); assert(sv)
3484
e8a67806
NC
3485PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *old_posp, I32 last)
3486 __attribute__nonnull__(pTHX_1)
3487 __attribute__nonnull__(pTHX_2)
3488 __attribute__nonnull__(pTHX_5);
3489#define PERL_ARGS_ASSERT_SCREAMINSTR \
3490 assert(bigstr); assert(littlestr); assert(old_posp)
3491
3492PERL_CALLCONV U32 Perl_seed(pTHX);
3493PERL_CALLCONV void Perl_set_context(void *t)
3494 __attribute__nonnull__(1);
3495#define PERL_ARGS_ASSERT_SET_CONTEXT \
3496 assert(t)
3497
3498PERL_CALLCONV void Perl_set_numeric_local(pTHX);
3499PERL_CALLCONV void Perl_set_numeric_radix(pTHX);
3500PERL_CALLCONV void Perl_set_numeric_standard(pTHX);
3501PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv);
3502PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash)
3503 __attribute__nonnull__(pTHX_1);
3504#define PERL_ARGS_ASSERT_SHARE_HEK \
3505 assert(str)
3506
3507PERL_CALLCONV void Perl_sortsv(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp)
3508 __attribute__nonnull__(pTHX_3);
3509#define PERL_ARGS_ASSERT_SORTSV \
3510 assert(cmp)
3511
3512PERL_CALLCONV void Perl_sortsv_flags(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags)
3513 __attribute__nonnull__(pTHX_3);
3514#define PERL_ARGS_ASSERT_SORTSV_FLAGS \
3515 assert(cmp)
3516
3517PERL_CALLCONV SV** Perl_stack_grow(pTHX_ SV** sp, SV** p, int n)
3518 __attribute__nonnull__(pTHX_1)
3519 __attribute__nonnull__(pTHX_2);
3520#define PERL_ARGS_ASSERT_STACK_GROW \
3521 assert(sp); assert(p)
3522
3523PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV *tmpglob, IO *io)
3524 __attribute__nonnull__(pTHX_1)
3525 __attribute__nonnull__(pTHX_2);
3526#define PERL_ARGS_ASSERT_START_GLOB \
3527 assert(tmpglob); assert(io)
3528
3529PERL_CALLCONV I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
3530PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
3531 __attribute__warn_unused_result__
3532 __attribute__nonnull__(pTHX_1)
3533 __attribute__nonnull__(pTHX_2);
3534#define PERL_ARGS_ASSERT_STASHPV_HVNAME_MATCH \
3535 assert(c); assert(hv)
3536
e8a67806
NC
3537PERL_CALLCONV NV Perl_str_to_version(pTHX_ SV *sv)
3538 __attribute__warn_unused_result__
3539 __attribute__nonnull__(pTHX_1);
3540#define PERL_ARGS_ASSERT_STR_TO_VERSION \
3541 assert(sv)
3542
3543PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv)
3544 __attribute__nonnull__(pTHX_1);
3545#define PERL_ARGS_ASSERT_SUB_CRUSH_DEPTH \
3546 assert(cv)
3547
3548/* PERL_CALLCONV bool sv_2bool(pTHX_ SV *const sv)
3549 __attribute__nonnull__(pTHX_1); */
3550
3551PERL_CALLCONV bool Perl_sv_2bool_flags(pTHX_ SV *const sv, const I32 flags)
3552 __attribute__nonnull__(pTHX_1);
3553#define PERL_ARGS_ASSERT_SV_2BOOL_FLAGS \
3554 assert(sv)
3555
3556PERL_CALLCONV CV* Perl_sv_2cv(pTHX_ SV* sv, HV **const st, GV **const gvp, const I32 lref)
3557 __attribute__nonnull__(pTHX_2)
3558 __attribute__nonnull__(pTHX_3);
3559#define PERL_ARGS_ASSERT_SV_2CV \
3560 assert(st); assert(gvp)
3561
3562PERL_CALLCONV IO* Perl_sv_2io(pTHX_ SV *const sv)
3563 __attribute__nonnull__(pTHX_1);
3564#define PERL_ARGS_ASSERT_SV_2IO \
3565 assert(sv)
3566
3567/* PERL_CALLCONV IV Perl_sv_2iv(pTHX_ SV *sv); */
3568PERL_CALLCONV IV Perl_sv_2iv_flags(pTHX_ SV *const sv, const I32 flags);
3569PERL_CALLCONV SV* Perl_sv_2mortal(pTHX_ SV *const sv);
3570PERL_CALLCONV SV* Perl_sv_2num(pTHX_ SV *const sv)
3571 __attribute__nonnull__(pTHX_1);
3572#define PERL_ARGS_ASSERT_SV_2NUM \
3573 assert(sv)
3574
3575PERL_CALLCONV NV Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags);
3576/* PERL_CALLCONV char* Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp); */
3577PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags);
3578/* PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv)
3579 __attribute__warn_unused_result__
3580 __attribute__nonnull__(pTHX_1); */
3581#define PERL_ARGS_ASSERT_SV_2PV_NOLEN \
3582 assert(sv)
3583
3584PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *const sv, STRLEN *const lp)
3585 __attribute__nonnull__(pTHX_1);
3586#define PERL_ARGS_ASSERT_SV_2PVBYTE \
3587 assert(sv)
3588
3589/* PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv)
3590 __attribute__warn_unused_result__
3591 __attribute__nonnull__(pTHX_1); */
3592#define PERL_ARGS_ASSERT_SV_2PVBYTE_NOLEN \
3593 assert(sv)
3594
3595PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *const sv, STRLEN *const lp)
3596 __attribute__nonnull__(pTHX_1);
3597#define PERL_ARGS_ASSERT_SV_2PVUTF8 \
3598 assert(sv)
3599
3600/* PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv)
3601 __attribute__warn_unused_result__
3602 __attribute__nonnull__(pTHX_1); */
3603#define PERL_ARGS_ASSERT_SV_2PVUTF8_NOLEN \
3604 assert(sv)
3605
3606/* PERL_CALLCONV UV Perl_sv_2uv(pTHX_ SV *sv); */
3607PERL_CALLCONV UV Perl_sv_2uv_flags(pTHX_ SV *const sv, const I32 flags);
3608PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV *const sv)
3609 __attribute__nonnull__(pTHX_1);
3610#define PERL_ARGS_ASSERT_SV_BACKOFF \
3611 assert(sv)
3612
3613PERL_CALLCONV SV* Perl_sv_bless(pTHX_ SV *const sv, HV *const stash)
3614 __attribute__nonnull__(pTHX_1)
3615 __attribute__nonnull__(pTHX_2);
3616#define PERL_ARGS_ASSERT_SV_BLESS \
3617 assert(sv); assert(stash)
3618
3619PERL_CALLCONV bool Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen)
3620 __attribute__nonnull__(pTHX_1)
3621 __attribute__nonnull__(pTHX_2)
3622 __attribute__nonnull__(pTHX_3)
3623 __attribute__nonnull__(pTHX_4)
3624 __attribute__nonnull__(pTHX_5);
3625#define PERL_ARGS_ASSERT_SV_CAT_DECODE \
3626 assert(dsv); assert(encoding); assert(ssv); assert(offset); assert(tstr)
3627
3628PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV *const sv, const char* ptr)
3629 __attribute__nonnull__(pTHX_1);
3630#define PERL_ARGS_ASSERT_SV_CATPV \
3631 assert(sv)
3632
3633PERL_CALLCONV void Perl_sv_catpv_flags(pTHX_ SV *dstr, const char *sstr, const I32 flags)
3634 __attribute__nonnull__(pTHX_1)
3635 __attribute__nonnull__(pTHX_2);
3636#define PERL_ARGS_ASSERT_SV_CATPV_FLAGS \
3637 assert(dstr); assert(sstr)
3638
3639PERL_CALLCONV void Perl_sv_catpv_mg(pTHX_ SV *const sv, const char *const ptr)
3640 __attribute__nonnull__(pTHX_1);
3641#define PERL_ARGS_ASSERT_SV_CATPV_MG \
3642 assert(sv)
3643
3644PERL_CALLCONV void Perl_sv_catpvf(pTHX_ SV *const sv, const char *const pat, ...)
3645 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3646 __attribute__nonnull__(pTHX_1)
3647 __attribute__nonnull__(pTHX_2);
3648#define PERL_ARGS_ASSERT_SV_CATPVF \
3649 assert(sv); assert(pat)
3650
3651PERL_CALLCONV void Perl_sv_catpvf_mg(pTHX_ SV *const sv, const char *const pat, ...)
3652 __attribute__format__(__printf__,pTHX_2,pTHX_3)
3653 __attribute__nonnull__(pTHX_1)
3654 __attribute__nonnull__(pTHX_2);
3655#define PERL_ARGS_ASSERT_SV_CATPVF_MG \
3656 assert(sv); assert(pat)
3657
3658/* PERL_CALLCONV void Perl_sv_catpvn(pTHX_ SV *dsv, const char *sstr, STRLEN len)
3659 __attribute__nonnull__(pTHX_1)
3660 __attribute__nonnull__(pTHX_2); */
3661#define PERL_ARGS_ASSERT_SV_CATPVN \
3662 assert(dsv); assert(sstr)
3663
3664PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV *const dstr, const char *sstr, const STRLEN len, const I32 flags)
3665 __attribute__nonnull__(pTHX_1)
3666 __attribute__nonnull__(pTHX_2);
3667#define PERL_ARGS_ASSERT_SV_CATPVN_FLAGS \
3668 assert(dstr); assert(sstr)
3669
3670/* PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
3671 __attribute__nonnull__(pTHX_1)
3672 __attribute__nonnull__(pTHX_2); */
3673#define PERL_ARGS_ASSERT_SV_CATPVN_MG \
3674 assert(sv); assert(ptr)
3675
3676/* PERL_CALLCONV void Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
3677 __attribute__nonnull__(pTHX_1); */
3678#define PERL_ARGS_ASSERT_SV_CATSV \
3679 assert(dstr)
3680
3681PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags)
3682 __attribute__nonnull__(pTHX_1);
3683#define PERL_ARGS_ASSERT_SV_CATSV_FLAGS \
3684 assert(dsv)
3685
3686/* PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv)
3687 __attribute__nonnull__(pTHX_1); */
3688#define PERL_ARGS_ASSERT_SV_CATSV_MG \
3689 assert(dsv)
3690
3691PERL_CALLCONV void Perl_sv_chop(pTHX_ SV *const sv, const char *const ptr)
3692 __attribute__nonnull__(pTHX_1);
3693#define PERL_ARGS_ASSERT_SV_CHOP \
3694 assert(sv)
3695
3696PERL_CALLCONV I32 Perl_sv_clean_all(pTHX);
3697PERL_CALLCONV void Perl_sv_clean_objs(pTHX);
5239d5c4 3698PERL_CALLCONV void Perl_sv_clear(pTHX_ SV *const orig_sv)
e8a67806
NC
3699 __attribute__nonnull__(pTHX_1);
3700#define PERL_ARGS_ASSERT_SV_CLEAR \
5239d5c4 3701 assert(orig_sv)
e8a67806
NC
3702
3703PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV *const sv1, SV *const sv2);
31c72c81 3704PERL_CALLCONV I32 Perl_sv_cmp_flags(pTHX_ SV *const sv1, SV *const sv2, const U32 flags);
e8a67806 3705PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV *const sv1, SV *const sv2);
31c72c81 3706PERL_CALLCONV I32 Perl_sv_cmp_locale_flags(pTHX_ SV *const sv1, SV *const sv2, const U32 flags);
e8a67806 3707PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV *sv, OP **startop, const char *code, PAD **padp)
d59a8b3e 3708 __attribute__deprecated__
e8a67806
NC
3709 __attribute__nonnull__(pTHX_1)
3710 __attribute__nonnull__(pTHX_2)
3711 __attribute__nonnull__(pTHX_3)
3712 __attribute__nonnull__(pTHX_4);
3713#define PERL_ARGS_ASSERT_SV_COMPILE_2OP \
3714 assert(sv); assert(startop); assert(code); assert(padp)
3715
d59a8b3e
NC
3716PERL_CALLCONV OP* Perl_sv_compile_2op_is_broken(pTHX_ SV *sv, OP **startop, const char *code, PAD **padp)
3717 __attribute__nonnull__(pTHX_1)
3718 __attribute__nonnull__(pTHX_2)
3719 __attribute__nonnull__(pTHX_3)
3720 __attribute__nonnull__(pTHX_4);
3721#define PERL_ARGS_ASSERT_SV_COMPILE_2OP_IS_BROKEN \
3722 assert(sv); assert(startop); assert(code); assert(padp)
3723
e8a67806
NC
3724PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV *const dsv, SV *const ssv)
3725 __attribute__nonnull__(pTHX_1)
3726 __attribute__nonnull__(pTHX_2);
3727#define PERL_ARGS_ASSERT_SV_COPYPV \
3728 assert(dsv); assert(ssv)
3729
3730PERL_CALLCONV void Perl_sv_dec(pTHX_ SV *const sv);
3731PERL_CALLCONV void Perl_sv_dec_nomg(pTHX_ SV *const sv);
3732PERL_CALLCONV void Perl_sv_del_backref(pTHX_ SV *const tsv, SV *const sv)
3733 __attribute__nonnull__(pTHX_1)
3734 __attribute__nonnull__(pTHX_2);
3735#define PERL_ARGS_ASSERT_SV_DEL_BACKREF \
3736 assert(tsv); assert(sv)
3737
3738PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char *const name)
3739 __attribute__warn_unused_result__
3740 __attribute__nonnull__(pTHX_1)