1 /* -*- buffer-read-only: t -*- 2 * 3 * proto.h 4 * 5 * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 6 * 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, by Larry Wall and others 7 * 8 * You may distribute under the terms of either the GNU General Public 9 * License or the Artistic License, as specified in the README file. 10 * 11 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 12 * This file is built by embed.pl from data in embed.fnc, embed.pl, 13 * pp.sym, intrpvar.h, and perlvars.h. 14 * Any changes made here will be lost! 15 * 16 * Edit those files and run 'make regen_headers' to effect changes. 17 */ 18 19 START_EXTERN_C 20 21 #if defined(PERL_IMPLICIT_SYS) 22 PERL_CALLCONV PerlInterpreter* perl_alloc_using(struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p) 23 __attribute__nonnull__(1) 24 __attribute__nonnull__(2) 25 __attribute__nonnull__(3) 26 __attribute__nonnull__(4) 27 __attribute__nonnull__(5) 28 __attribute__nonnull__(6) 29 __attribute__nonnull__(7) 30 __attribute__nonnull__(8) 31 __attribute__nonnull__(9); 32 33 #endif 34 PERL_CALLCONV PerlInterpreter* perl_alloc(void); 35 PERL_CALLCONV void perl_construct(PerlInterpreter* interp) 36 __attribute__nonnull__(1); 37 38 PERL_CALLCONV int perl_destruct(PerlInterpreter* interp) 39 __attribute__nonnull__(1); 40 41 PERL_CALLCONV void perl_free(PerlInterpreter* interp) 42 __attribute__nonnull__(1); 43 44 PERL_CALLCONV int perl_run(PerlInterpreter* interp) 45 __attribute__nonnull__(1); 46 47 PERL_CALLCONV int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env) 48 __attribute__nonnull__(1); 49 50 PERL_CALLCONV bool Perl_doing_taint(int argc, char** argv, char** env) 51 __attribute__warn_unused_result__; 52 53 #if defined(USE_ITHREADS) 54 PERL_CALLCONV PerlInterpreter* perl_clone(PerlInterpreter* interp, UV flags) 55 __attribute__nonnull__(1); 56 57 # if defined(PERL_IMPLICIT_SYS) 58 PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *interp, UV flags, struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p) 59 __attribute__nonnull__(1) 60 __attribute__nonnull__(3) 61 __attribute__nonnull__(4) 62 __attribute__nonnull__(5) 63 __attribute__nonnull__(6) 64 __attribute__nonnull__(7) 65 __attribute__nonnull__(8) 66 __attribute__nonnull__(9) 67 __attribute__nonnull__(10) 68 __attribute__nonnull__(11); 69 70 # endif 71 #endif 72 73 PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes) 74 __attribute__malloc__ 75 __attribute__warn_unused_result__; 76 77 PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size) 78 __attribute__malloc__ 79 __attribute__warn_unused_result__; 80 81 PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes) 82 __attribute__malloc__ 83 __attribute__warn_unused_result__; 84 85 PERL_CALLCONV Free_t Perl_mfree(Malloc_t where); 86 #if defined(MYMALLOC) 87 PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p) 88 __attribute__warn_unused_result__ 89 __attribute__nonnull__(1); 90 91 #endif 92 93 PERL_CALLCONV void* Perl_get_context(void) 94 __attribute__warn_unused_result__; 95 96 PERL_CALLCONV void Perl_set_context(void *thx) 97 __attribute__nonnull__(1); 98 99 100 END_EXTERN_C 101 102 /* functions with flag 'n' should come before here */ 103 START_EXTERN_C 104 # include "pp_proto.h" 105 PERL_CALLCONV SV* Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir) 106 __attribute__nonnull__(pTHX_1) 107 __attribute__nonnull__(pTHX_2); 108 109 PERL_CALLCONV bool Perl_Gv_AMupdate(pTHX_ HV* stash) 110 __attribute__nonnull__(pTHX_1); 111 112 PERL_CALLCONV CV* Perl_gv_handler(pTHX_ HV* stash, I32 id) 113 __attribute__warn_unused_result__; 114 115 PERL_CALLCONV OP* Perl_append_elem(pTHX_ I32 optype, OP* first, OP* last); 116 PERL_CALLCONV OP* Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last); 117 PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV** mark, SV** sp) 118 __attribute__nonnull__(pTHX_2) 119 __attribute__nonnull__(pTHX_3); 120 121 PERL_CALLCONV void Perl_apply_attrs_string(pTHX_ const char *stashpv, CV *cv, const char *attrstr, STRLEN len) 122 __attribute__nonnull__(pTHX_1) 123 __attribute__nonnull__(pTHX_2) 124 __attribute__nonnull__(pTHX_3); 125 126 PERL_CALLCONV void Perl_av_clear(pTHX_ AV* ar) 127 __attribute__nonnull__(pTHX_1); 128 129 PERL_CALLCONV SV* Perl_av_delete(pTHX_ AV* ar, I32 key, I32 flags) 130 __attribute__nonnull__(pTHX_1); 131 132 PERL_CALLCONV bool Perl_av_exists(pTHX_ AV* ar, I32 key) 133 __attribute__warn_unused_result__ 134 __attribute__nonnull__(pTHX_1); 135 136 PERL_CALLCONV void Perl_av_extend(pTHX_ AV* ar, I32 key) 137 __attribute__nonnull__(pTHX_1); 138 139 PERL_CALLCONV AV* Perl_av_fake(pTHX_ I32 size, SV** svp) 140 __attribute__warn_unused_result__ 141 __attribute__nonnull__(pTHX_2); 142 143 PERL_CALLCONV SV** Perl_av_fetch(pTHX_ AV* ar, I32 key, I32 lval) 144 __attribute__warn_unused_result__ 145 __attribute__nonnull__(pTHX_1); 146 147 PERL_CALLCONV void Perl_av_fill(pTHX_ AV* ar, I32 fill) 148 __attribute__nonnull__(pTHX_1); 149 150 PERL_CALLCONV I32 Perl_av_len(pTHX_ const AV* ar) 151 __attribute__warn_unused_result__ 152 __attribute__nonnull__(pTHX_1); 153 154 PERL_CALLCONV AV* Perl_av_make(pTHX_ I32 size, SV** svp) 155 __attribute__warn_unused_result__ 156 __attribute__nonnull__(pTHX_2); 157 158 PERL_CALLCONV SV* Perl_av_pop(pTHX_ AV* ar) 159 __attribute__nonnull__(pTHX_1); 160 161 PERL_CALLCONV void Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val) 162 __attribute__nonnull__(pTHX_1) 163 __attribute__nonnull__(pTHX_2); 164 165 PERL_CALLCONV void Perl_av_push(pTHX_ AV* ar, SV* val) 166 __attribute__nonnull__(pTHX_1) 167 __attribute__nonnull__(pTHX_2); 168 169 PERL_CALLCONV void Perl_av_reify(pTHX_ AV* ar) 170 __attribute__nonnull__(pTHX_1); 171 172 PERL_CALLCONV SV* Perl_av_shift(pTHX_ AV* ar) 173 __attribute__warn_unused_result__ 174 __attribute__nonnull__(pTHX_1); 175 176 PERL_CALLCONV SV** Perl_av_store(pTHX_ AV* ar, I32 key, SV* val) 177 __attribute__nonnull__(pTHX_1); 178 179 PERL_CALLCONV void Perl_av_undef(pTHX_ AV* ar) 180 __attribute__nonnull__(pTHX_1); 181 182 PERL_CALLCONV SV** Perl_av_create_and_unshift_one(pTHX_ AV **const avp, SV *const val) 183 __attribute__nonnull__(pTHX_1) 184 __attribute__nonnull__(pTHX_2); 185 186 PERL_CALLCONV void Perl_av_unshift(pTHX_ AV* ar, I32 num) 187 __attribute__nonnull__(pTHX_1); 188 189 PERL_CALLCONV SV** Perl_av_arylen_p(pTHX_ AV* av) 190 __attribute__nonnull__(pTHX_1); 191 192 PERL_CALLCONV OP* Perl_bind_match(pTHX_ I32 type, OP* left, OP* pat) 193 __attribute__warn_unused_result__ 194 __attribute__nonnull__(pTHX_2) 195 __attribute__nonnull__(pTHX_3); 196 197 PERL_CALLCONV OP* Perl_block_end(pTHX_ I32 floor, OP* seq) 198 __attribute__warn_unused_result__; 199 200 PERL_CALLCONV I32 Perl_block_gimme(pTHX) 201 __attribute__warn_unused_result__; 202 203 PERL_CALLCONV int Perl_block_start(pTHX_ int full) 204 __attribute__warn_unused_result__; 205 206 PERL_CALLCONV void Perl_boot_core_UNIVERSAL(pTHX); 207 PERL_CALLCONV void Perl_boot_core_PerlIO(pTHX); 208 PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV* av_list) 209 __attribute__nonnull__(pTHX_2); 210 211 PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp) 212 __attribute__warn_unused_result__ 213 __attribute__nonnull__(pTHX_3); 214 215 PERL_CALLCONV U32 Perl_cast_ulong(pTHX_ NV f) 216 __attribute__warn_unused_result__; 217 218 PERL_CALLCONV I32 Perl_cast_i32(pTHX_ NV f) 219 __attribute__warn_unused_result__; 220 221 PERL_CALLCONV IV Perl_cast_iv(pTHX_ NV f) 222 __attribute__warn_unused_result__; 223 224 PERL_CALLCONV UV Perl_cast_uv(pTHX_ NV f) 225 __attribute__warn_unused_result__; 226 227 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) 228 PERL_CALLCONV I32 Perl_my_chsize(pTHX_ int fd, Off_t length) 229 __attribute__warn_unused_result__; 230 231 #endif 232 PERL_CALLCONV OP* Perl_convert(pTHX_ I32 optype, I32 flags, OP* o) 233 __attribute__warn_unused_result__; 234 235 PERL_CALLCONV PERL_CONTEXT* Perl_create_eval_scope(pTHX_ U32 flags); 236 PERL_CALLCONV void Perl_croak(pTHX_ const char* pat, ...) 237 __attribute__noreturn__ 238 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2); 239 240 PERL_CALLCONV void Perl_vcroak(pTHX_ const char* pat, va_list* args) 241 __attribute__noreturn__ 242 __attribute__nonnull__(pTHX_1); 243 244 #if defined(PERL_IMPLICIT_CONTEXT) 245 PERL_CALLCONV void Perl_croak_nocontext(const char* pat, ...) 246 __attribute__noreturn__ 247 __attribute__format__(__printf__,1,2) 248 __attribute__nonnull__(1); 249 250 PERL_CALLCONV OP* Perl_die_nocontext(const char* pat, ...) 251 __attribute__format__(__printf__,1,2) 252 __attribute__nonnull__(1); 253 254 PERL_CALLCONV void Perl_deb_nocontext(const char* pat, ...) 255 __attribute__format__(__printf__,1,2) 256 __attribute__nonnull__(1); 257 258 PERL_CALLCONV char* Perl_form_nocontext(const char* pat, ...) 259 __attribute__format__(__printf__,1,2) 260 __attribute__nonnull__(1); 261 262 PERL_CALLCONV void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...) 263 __attribute__nonnull__(2) 264 __attribute__nonnull__(3); 265 266 PERL_CALLCONV SV* Perl_mess_nocontext(const char* pat, ...) 267 __attribute__format__(__printf__,1,2) 268 __attribute__nonnull__(1); 269 270 PERL_CALLCONV void Perl_warn_nocontext(const char* pat, ...) 271 __attribute__format__(__printf__,1,2) 272 __attribute__nonnull__(1); 273 274 PERL_CALLCONV void Perl_warner_nocontext(U32 err, const char* pat, ...) 275 __attribute__format__(__printf__,2,3) 276 __attribute__nonnull__(2); 277 278 PERL_CALLCONV SV* Perl_newSVpvf_nocontext(const char* pat, ...) 279 __attribute__format__(__printf__,1,2) 280 __attribute__nonnull__(1); 281 282 PERL_CALLCONV void Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...) 283 __attribute__format__(__printf__,2,3) 284 __attribute__nonnull__(1) 285 __attribute__nonnull__(2); 286 287 PERL_CALLCONV void Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...) 288 __attribute__format__(__printf__,2,3) 289 __attribute__nonnull__(1) 290 __attribute__nonnull__(2); 291 292 PERL_CALLCONV void Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...) 293 __attribute__format__(__printf__,2,3) 294 __attribute__nonnull__(1) 295 __attribute__nonnull__(2); 296 297 PERL_CALLCONV void Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) 298 __attribute__format__(__printf__,2,3) 299 __attribute__nonnull__(1) 300 __attribute__nonnull__(2); 301 302 PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...) 303 __attribute__format__(__printf__,2,3) 304 __attribute__nonnull__(1) 305 __attribute__nonnull__(2); 306 307 PERL_CALLCONV int Perl_printf_nocontext(const char* fmt, ...) 308 __attribute__format__(__printf__,1,2) 309 __attribute__nonnull__(1); 310 311 #endif 312 PERL_CALLCONV void Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const char* p) 313 __attribute__nonnull__(pTHX_1); 314 315 PERL_CALLCONV void Perl_cv_ckproto_len(pTHX_ const CV* cv, const GV* gv, const char* p, const STRLEN len) 316 __attribute__nonnull__(pTHX_1); 317 318 PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto) 319 __attribute__nonnull__(pTHX_1); 320 321 PERL_CALLCONV SV* Perl_gv_const_sv(pTHX_ GV* gv) 322 __attribute__warn_unused_result__ 323 __attribute__nonnull__(pTHX_1); 324 325 PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ CV* cv) 326 __attribute__warn_unused_result__; 327 328 PERL_CALLCONV SV* Perl_op_const_sv(pTHX_ const OP* o, CV* cv) 329 __attribute__warn_unused_result__; 330 331 PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv) 332 __attribute__nonnull__(pTHX_1); 333 334 PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cx) 335 __attribute__nonnull__(pTHX_1); 336 337 PERL_CALLCONV SV* Perl_filter_add(pTHX_ filter_t funcp, SV* datasv); 338 PERL_CALLCONV void Perl_filter_del(pTHX_ filter_t funcp) 339 __attribute__nonnull__(pTHX_1); 340 341 PERL_CALLCONV I32 Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen) 342 __attribute__warn_unused_result__ 343 __attribute__nonnull__(pTHX_2); 344 345 PERL_CALLCONV char** Perl_get_op_descs(pTHX) 346 __attribute__warn_unused_result__ 347 __attribute__pure__; 348 349 PERL_CALLCONV char** Perl_get_op_names(pTHX) 350 __attribute__warn_unused_result__ 351 __attribute__pure__; 352 353 PERL_CALLCONV const char* Perl_get_no_modify(pTHX) 354 __attribute__warn_unused_result__ 355 __attribute__pure__; 356 357 PERL_CALLCONV U32* Perl_get_opargs(pTHX) 358 __attribute__warn_unused_result__ 359 __attribute__pure__; 360 361 PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX) 362 __attribute__warn_unused_result__ 363 __attribute__pure__; 364 365 PERL_CALLCONV I32 Perl_cxinc(pTHX) 366 __attribute__warn_unused_result__; 367 368 PERL_CALLCONV void Perl_deb(pTHX_ const char* pat, ...) 369 __attribute__format__(__printf__,pTHX_1,pTHX_2) 370 __attribute__nonnull__(pTHX_1); 371 372 PERL_CALLCONV void Perl_vdeb(pTHX_ const char* pat, va_list* args) 373 __attribute__nonnull__(pTHX_1); 374 375 PERL_CALLCONV void Perl_debprofdump(pTHX); 376 PERL_CALLCONV I32 Perl_debop(pTHX_ const OP* o) 377 __attribute__nonnull__(pTHX_1); 378 379 PERL_CALLCONV I32 Perl_debstack(pTHX); 380 PERL_CALLCONV I32 Perl_debstackptrs(pTHX); 381 PERL_CALLCONV char* Perl_delimcpy(pTHX_ char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen) 382 __attribute__nonnull__(pTHX_1) 383 __attribute__nonnull__(pTHX_2) 384 __attribute__nonnull__(pTHX_3) 385 __attribute__nonnull__(pTHX_4) 386 __attribute__nonnull__(pTHX_6); 387 388 PERL_CALLCONV void Perl_delete_eval_scope(pTHX); 389 PERL_CALLCONV void Perl_deprecate(pTHX_ const char* s) 390 __attribute__nonnull__(pTHX_1); 391 392 PERL_CALLCONV void Perl_deprecate_old(pTHX_ const char* s) 393 __attribute__nonnull__(pTHX_1); 394 395 PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...) 396 __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2); 397 398 PERL_CALLCONV OP* Perl_vdie(pTHX_ const char* pat, va_list* args); 399 PERL_CALLCONV OP* Perl_die_where(pTHX_ const char* message, STRLEN msglen); 400 PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix); 401 /* PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp) 402 __attribute__nonnull__(pTHX_2) 403 __attribute__nonnull__(pTHX_3); */ 404 405 PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int do_report) 406 __attribute__nonnull__(pTHX_2) 407 __attribute__nonnull__(pTHX_3); 408 409 PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode) 410 __attribute__nonnull__(pTHX_1); 411 412 PERL_CALLCONV void Perl_do_chop(pTHX_ SV* asv, SV* sv) 413 __attribute__nonnull__(pTHX_1) 414 __attribute__nonnull__(pTHX_2); 415 416 PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit); 417 PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv) 418 __attribute__nonnull__(pTHX_1); 419 420 421 #ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION 422 /* PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd) 423 __attribute__nonnull__(pTHX_1); */ 424 425 #else 426 PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd) 427 __attribute__nonnull__(pTHX_1); 428 429 #endif 430 431 #if defined(WIN32) || defined(__SYMBIAN32__) 432 PERL_CALLCONV int Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp) 433 __attribute__nonnull__(pTHX_1) 434 __attribute__nonnull__(pTHX_2) 435 __attribute__nonnull__(pTHX_3); 436 437 PERL_CALLCONV int Perl_do_spawn(pTHX_ char* cmd) 438 __attribute__nonnull__(pTHX_1); 439 440 PERL_CALLCONV int Perl_do_spawn_nowait(pTHX_ char* cmd) 441 __attribute__nonnull__(pTHX_1); 442 443 #endif 444 #if !defined(WIN32) 445 PERL_CALLCONV bool Perl_do_exec3(pTHX_ const char* cmd, int fd, int do_report) 446 __attribute__nonnull__(pTHX_1); 447 448 #endif 449 PERL_CALLCONV void Perl_do_execfree(pTHX); 450 #ifdef PERL_IN_DOIO_C 451 STATIC void S_exec_failed(pTHX_ const char *cmd, int fd, int do_report) 452 __attribute__nonnull__(pTHX_1); 453 454 #endif 455 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) 456 PERL_CALLCONV I32 Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp) 457 __attribute__nonnull__(pTHX_2) 458 __attribute__nonnull__(pTHX_3); 459 460 PERL_CALLCONV I32 Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp) 461 __attribute__nonnull__(pTHX_2) 462 __attribute__nonnull__(pTHX_3); 463 464 PERL_CALLCONV I32 Perl_do_msgrcv(pTHX_ SV** mark, SV** sp) 465 __attribute__nonnull__(pTHX_1) 466 __attribute__nonnull__(pTHX_2); 467 468 PERL_CALLCONV I32 Perl_do_msgsnd(pTHX_ SV** mark, SV** sp) 469 __attribute__nonnull__(pTHX_1) 470 __attribute__nonnull__(pTHX_2); 471 472 PERL_CALLCONV I32 Perl_do_semop(pTHX_ SV** mark, SV** sp) 473 __attribute__nonnull__(pTHX_1) 474 __attribute__nonnull__(pTHX_2); 475 476 PERL_CALLCONV I32 Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp) 477 __attribute__nonnull__(pTHX_2) 478 __attribute__nonnull__(pTHX_3); 479 480 #endif 481 PERL_CALLCONV void Perl_do_join(pTHX_ SV* sv, SV* del, SV** mark, SV** sp) 482 __attribute__nonnull__(pTHX_1) 483 __attribute__nonnull__(pTHX_2) 484 __attribute__nonnull__(pTHX_3) 485 __attribute__nonnull__(pTHX_4); 486 487 PERL_CALLCONV OP* Perl_do_kv(pTHX); 488 /* PERL_CALLCONV bool Perl_do_open(pTHX_ GV* gv, const char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp) 489 __attribute__nonnull__(pTHX_1) 490 __attribute__nonnull__(pTHX_2); */ 491 492 PERL_CALLCONV bool Perl_do_open9(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num) 493 __attribute__nonnull__(pTHX_1) 494 __attribute__nonnull__(pTHX_2) 495 __attribute__nonnull__(pTHX_8); 496 497 PERL_CALLCONV bool Perl_do_openn(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num) 498 __attribute__nonnull__(pTHX_1) 499 __attribute__nonnull__(pTHX_2); 500 501 PERL_CALLCONV bool Perl_do_print(pTHX_ SV* sv, PerlIO* fp) 502 __attribute__nonnull__(pTHX_2); 503 504 PERL_CALLCONV OP* Perl_do_readline(pTHX) 505 __attribute__warn_unused_result__; 506 507 PERL_CALLCONV I32 Perl_do_chomp(pTHX_ SV* sv) 508 __attribute__nonnull__(pTHX_1); 509 510 PERL_CALLCONV bool Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence); 511 PERL_CALLCONV void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg) 512 __attribute__nonnull__(pTHX_1) 513 __attribute__nonnull__(pTHX_3); 514 515 PERL_CALLCONV Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence) 516 __attribute__nonnull__(pTHX_1); 517 518 PERL_CALLCONV Off_t Perl_do_tell(pTHX_ GV* gv) 519 __attribute__warn_unused_result__ 520 __attribute__nonnull__(pTHX_1); 521 522 PERL_CALLCONV I32 Perl_do_trans(pTHX_ SV* sv) 523 __attribute__nonnull__(pTHX_1); 524 525 PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size) 526 __attribute__nonnull__(pTHX_1); 527 528 PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv) 529 __attribute__nonnull__(pTHX_1); 530 531 PERL_CALLCONV void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right) 532 __attribute__nonnull__(pTHX_2) 533 __attribute__nonnull__(pTHX_3) 534 __attribute__nonnull__(pTHX_4); 535 536 PERL_CALLCONV OP* Perl_dofile(pTHX_ OP* term, I32 force_builtin) 537 __attribute__nonnull__(pTHX_1); 538 539 PERL_CALLCONV I32 Perl_dowantarray(pTHX) 540 __attribute__warn_unused_result__; 541 542 PERL_CALLCONV void Perl_dump_all(pTHX); 543 PERL_CALLCONV void Perl_dump_eval(pTHX); 544 #if defined(DUMP_FDS) 545 PERL_CALLCONV void Perl_dump_fds(pTHX_ char* s) 546 __attribute__nonnull__(pTHX_1); 547 548 #endif 549 PERL_CALLCONV void Perl_dump_form(pTHX_ const GV* gv) 550 __attribute__nonnull__(pTHX_1); 551 552 PERL_CALLCONV void Perl_gv_dump(pTHX_ GV* gv) 553 __attribute__nonnull__(pTHX_1); 554 555 PERL_CALLCONV void Perl_op_dump(pTHX_ const OP* arg) 556 __attribute__nonnull__(pTHX_1); 557 558 PERL_CALLCONV void Perl_pmop_dump(pTHX_ PMOP* pm); 559 PERL_CALLCONV void Perl_dump_packsubs(pTHX_ const HV* stash) 560 __attribute__nonnull__(pTHX_1); 561 562 PERL_CALLCONV void Perl_dump_sub(pTHX_ const GV* gv) 563 __attribute__nonnull__(pTHX_1); 564 565 PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags) 566 __attribute__nonnull__(pTHX_1); 567 568 PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags) 569 __attribute__warn_unused_result__ 570 __attribute__nonnull__(pTHX_1) 571 __attribute__nonnull__(pTHX_2) 572 __attribute__nonnull__(pTHX_3); 573 574 PERL_CALLCONV char* Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char *const *const search_ext, I32 flags) 575 __attribute__nonnull__(pTHX_1); 576 577 PERL_CALLCONV OP* Perl_force_list(pTHX_ OP* arg); 578 PERL_CALLCONV OP* Perl_fold_constants(pTHX_ OP* arg) 579 __attribute__nonnull__(pTHX_1); 580 581 PERL_CALLCONV char* Perl_form(pTHX_ const char* pat, ...) 582 __attribute__format__(__printf__,pTHX_1,pTHX_2) 583 __attribute__nonnull__(pTHX_1); 584 585 PERL_CALLCONV char* Perl_vform(pTHX_ const char* pat, va_list* args) 586 __attribute__nonnull__(pTHX_1); 587 588 PERL_CALLCONV void Perl_free_tmps(pTHX); 589 PERL_CALLCONV OP* Perl_gen_constant_list(pTHX_ OP* o); 590 #if !defined(HAS_GETENV_LEN) 591 PERL_CALLCONV char* Perl_getenv_len(pTHX_ const char* key, unsigned long *len) 592 __attribute__nonnull__(pTHX_1) 593 __attribute__nonnull__(pTHX_2); 594 595 #endif 596 PERL_CALLCONV void Perl_get_db_sub(pTHX_ SV **svp, CV *cv) 597 __attribute__nonnull__(pTHX_2); 598 599 PERL_CALLCONV void Perl_gp_free(pTHX_ GV* gv); 600 PERL_CALLCONV GP* Perl_gp_ref(pTHX_ GP* gp); 601 PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV* gv) 602 __attribute__nonnull__(pTHX_1); 603 604 PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV* gv) 605 __attribute__nonnull__(pTHX_1); 606 607 PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv) 608 __attribute__nonnull__(pTHX_1); 609 610 PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method) 611 __attribute__warn_unused_result__ 612 __attribute__nonnull__(pTHX_2); 613 614 PERL_CALLCONV void Perl_gv_check(pTHX_ const HV* stash) 615 __attribute__nonnull__(pTHX_1); 616 617 PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, const GV* gv) 618 __attribute__nonnull__(pTHX_1) 619 __attribute__nonnull__(pTHX_2); 620 621 /* PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix) 622 __attribute__nonnull__(pTHX_1) 623 __attribute__nonnull__(pTHX_2); */ 624 625 PERL_CALLCONV void Perl_gv_efullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain) 626 __attribute__nonnull__(pTHX_1) 627 __attribute__nonnull__(pTHX_2); 628 629 PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name) 630 __attribute__nonnull__(pTHX_1); 631 632 PERL_CALLCONV GV* Perl_gv_fetchfile_flags(pTHX_ const char *const name, const STRLEN len, const U32 flags) 633 __attribute__nonnull__(pTHX_1); 634 635 PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level) 636 __attribute__nonnull__(pTHX_2); 637 638 PERL_CALLCONV GV* Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level) 639 __attribute__nonnull__(pTHX_2); 640 641 /* PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name) 642 __attribute__nonnull__(pTHX_2); */ 643 644 PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload) 645 __attribute__nonnull__(pTHX_2); 646 647 PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type) 648 __attribute__nonnull__(pTHX_1); 649 650 PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, const GV* gv) 651 __attribute__nonnull__(pTHX_1) 652 __attribute__nonnull__(pTHX_2); 653 654 /* PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix) 655 __attribute__nonnull__(pTHX_1) 656 __attribute__nonnull__(pTHX_2); */ 657 658 PERL_CALLCONV void Perl_gv_fullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain) 659 __attribute__nonnull__(pTHX_1) 660 __attribute__nonnull__(pTHX_2); 661 662 PERL_CALLCONV GP * Perl_newGP(pTHX_ GV *const gv) 663 __attribute__nonnull__(pTHX_1); 664 665 PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi) 666 __attribute__nonnull__(pTHX_1) 667 __attribute__nonnull__(pTHX_3); 668 669 PERL_CALLCONV void Perl_gv_name_set(pTHX_ GV* gv, const char *name, U32 len, U32 flags) 670 __attribute__nonnull__(pTHX_1) 671 __attribute__nonnull__(pTHX_2); 672 673 PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 flags) 674 __attribute__nonnull__(pTHX_1); 675 676 PERL_CALLCONV HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 flags) 677 __attribute__nonnull__(pTHX_1); 678 679 PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags); 680 PERL_CALLCONV void Perl_hv_clear(pTHX_ HV* tb); 681 PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv) 682 __attribute__nonnull__(pTHX_1); 683 684 PERL_CALLCONV void Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry) 685 __attribute__nonnull__(pTHX_1); 686 687 /* PERL_CALLCONV SV* Perl_hv_delete(pTHX_ HV* tb, const char* key, I32 klen, I32 flags) 688 __attribute__nonnull__(pTHX_2); */ 689 690 /* PERL_CALLCONV SV* Perl_hv_delete_ent(pTHX_ HV* tb, SV* key, I32 flags, U32 hash) 691 __attribute__nonnull__(pTHX_2); */ 692 693 /* PERL_CALLCONV bool Perl_hv_exists(pTHX_ HV* tb, const char* key, I32 klen) 694 __attribute__warn_unused_result__ 695 __attribute__nonnull__(pTHX_2); */ 696 697 /* PERL_CALLCONV bool Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash) 698 __attribute__warn_unused_result__ 699 __attribute__nonnull__(pTHX_2); */ 700 701 /* PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV* tb, const char* key, I32 klen, I32 lval) 702 __attribute__nonnull__(pTHX_2); */ 703 704 /* PERL_CALLCONV HE* Perl_hv_fetch_ent(pTHX_ HV* tb, SV* key, I32 lval, U32 hash) 705 __attribute__nonnull__(pTHX_2); */ 706 707 PERL_CALLCONV void* Perl_hv_common(pTHX_ HV* tb, SV* keysv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash); 708 PERL_CALLCONV void* Perl_hv_common_key_len(pTHX_ HV *hv, const char *key, I32 klen_i32, const int action, SV *val, const U32 hash) 709 __attribute__nonnull__(pTHX_2); 710 711 PERL_CALLCONV void Perl_hv_free_ent(pTHX_ HV* hv, HE* entryK) 712 __attribute__nonnull__(pTHX_1); 713 714 PERL_CALLCONV I32 Perl_hv_iterinit(pTHX_ HV* tb) 715 __attribute__nonnull__(pTHX_1); 716 717 PERL_CALLCONV char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen) 718 __attribute__warn_unused_result__ 719 __attribute__nonnull__(pTHX_1) 720 __attribute__nonnull__(pTHX_2); 721 722 PERL_CALLCONV SV* Perl_hv_iterkeysv(pTHX_ HE* entry) 723 __attribute__warn_unused_result__ 724 __attribute__nonnull__(pTHX_1); 725 726 /* PERL_CALLCONV HE* Perl_hv_iternext(pTHX_ HV* tb) 727 __attribute__warn_unused_result__ 728 __attribute__nonnull__(pTHX_1); */ 729 730 PERL_CALLCONV SV* Perl_hv_iternextsv(pTHX_ HV* hv, char** key, I32* retlen) 731 __attribute__warn_unused_result__ 732 __attribute__nonnull__(pTHX_1) 733 __attribute__nonnull__(pTHX_2) 734 __attribute__nonnull__(pTHX_3); 735 736 PERL_CALLCONV HE* Perl_hv_iternext_flags(pTHX_ HV* tb, I32 flags) 737 __attribute__warn_unused_result__ 738 __attribute__nonnull__(pTHX_1); 739 740 PERL_CALLCONV SV* Perl_hv_iterval(pTHX_ HV* tb, HE* entry) 741 __attribute__warn_unused_result__ 742 __attribute__nonnull__(pTHX_1) 743 __attribute__nonnull__(pTHX_2); 744 745 PERL_CALLCONV void Perl_hv_ksplit(pTHX_ HV* hv, IV newmax) 746 __attribute__nonnull__(pTHX_1); 747 748 /* PERL_CALLCONV void Perl_hv_magic(pTHX_ HV* hv, GV* gv, int how) 749 __attribute__nonnull__(pTHX_1); */ 750 751 PERL_CALLCONV HV * Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c); 752 PERL_CALLCONV SV * Perl_refcounted_he_fetch(pTHX_ const struct refcounted_he *chain, SV *keysv, const char *key, STRLEN klen, int flags, U32 hash); 753 PERL_CALLCONV void Perl_refcounted_he_free(pTHX_ struct refcounted_he *he); 754 PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent, SV *const key, SV *const value); 755 /* PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash); */ 756 /* PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash); */ 757 /* PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags); */ 758 PERL_CALLCONV void Perl_hv_undef(pTHX_ HV* tb); 759 PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len) 760 __attribute__pure__ 761 __attribute__nonnull__(pTHX_1) 762 __attribute__nonnull__(pTHX_2); 763 764 PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len) 765 __attribute__pure__ 766 __attribute__nonnull__(pTHX_1) 767 __attribute__nonnull__(pTHX_2); 768 769 PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char* a, char **pe1, UV l1, bool u1, const char* b, char **pe2, UV l2, bool u2) 770 __attribute__nonnull__(pTHX_1) 771 __attribute__nonnull__(pTHX_5); 772 773 PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, bool effective) 774 __attribute__warn_unused_result__; 775 776 PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv) 777 __attribute__nonnull__(pTHX_2); 778 779 PERL_CALLCONV void Perl_init_debugger(pTHX); 780 PERL_CALLCONV void Perl_init_stacks(pTHX); 781 PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm) 782 __attribute__nonnull__(pTHX_1); 783 784 PERL_CALLCONV U32 Perl_intro_my(pTHX); 785 PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little) 786 __attribute__warn_unused_result__ 787 __attribute__pure__ 788 __attribute__nonnull__(pTHX_1) 789 __attribute__nonnull__(pTHX_2); 790 791 PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit) 792 __attribute__nonnull__(pTHX_1); 793 794 PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd) 795 __attribute__warn_unused_result__; 796 797 PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags) 798 __attribute__warn_unused_result__ 799 __attribute__nonnull__(pTHX_1); 800 801 PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX) 802 __attribute__warn_unused_result__; 803 804 PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c) 805 __attribute__warn_unused_result__ 806 __attribute__pure__; 807 808 PERL_CALLCONV U32 Perl_to_uni_title_lc(pTHX_ U32 c) 809 __attribute__warn_unused_result__ 810 __attribute__pure__; 811 812 PERL_CALLCONV U32 Perl_to_uni_lower_lc(pTHX_ U32 c) 813 __attribute__warn_unused_result__ 814 __attribute__pure__; 815 816 PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ UV c) 817 __attribute__warn_unused_result__ 818 __attribute__pure__; 819 820 PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ UV c) 821 __attribute__warn_unused_result__ 822 __attribute__pure__; 823 824 PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ UV c) 825 __attribute__warn_unused_result__ 826 __attribute__pure__; 827 828 PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ UV c) 829 __attribute__warn_unused_result__ 830 __attribute__pure__; 831 832 PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ UV c) 833 __attribute__warn_unused_result__ 834 __attribute__pure__; 835 836 PERL_CALLCONV bool Perl_is_uni_space(pTHX_ UV c) 837 __attribute__warn_unused_result__ 838 __attribute__pure__; 839 840 PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ UV c) 841 __attribute__warn_unused_result__ 842 __attribute__pure__; 843 844 PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ UV c) 845 __attribute__warn_unused_result__ 846 __attribute__pure__; 847 848 PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ UV c) 849 __attribute__warn_unused_result__ 850 __attribute__pure__; 851 852 PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ UV c) 853 __attribute__warn_unused_result__ 854 __attribute__pure__; 855 856 PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c) 857 __attribute__warn_unused_result__ 858 __attribute__pure__; 859 860 PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c) 861 __attribute__warn_unused_result__ 862 __attribute__pure__; 863 864 PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c) 865 __attribute__warn_unused_result__ 866 __attribute__pure__; 867 868 PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c) 869 __attribute__warn_unused_result__ 870 __attribute__pure__; 871 872 PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp) 873 __attribute__nonnull__(pTHX_2) 874 __attribute__nonnull__(pTHX_3); 875 876 PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp) 877 __attribute__nonnull__(pTHX_2) 878 __attribute__nonnull__(pTHX_3); 879 880 PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp) 881 __attribute__nonnull__(pTHX_2) 882 __attribute__nonnull__(pTHX_3); 883 884 PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp) 885 __attribute__nonnull__(pTHX_2) 886 __attribute__nonnull__(pTHX_3); 887 888 PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c) 889 __attribute__warn_unused_result__ 890 __attribute__pure__; 891 892 PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ UV c) 893 __attribute__warn_unused_result__ 894 __attribute__pure__; 895 896 PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c) 897 __attribute__warn_unused_result__ 898 __attribute__pure__; 899 900 PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ UV c) 901 __attribute__warn_unused_result__ 902 __attribute__pure__; 903 904 PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ UV c) 905 __attribute__warn_unused_result__ 906 __attribute__pure__; 907 908 PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ UV c) 909 __attribute__warn_unused_result__ 910 __attribute__pure__; 911 912 PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ UV c) 913 __attribute__warn_unused_result__ 914 __attribute__pure__; 915 916 PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ UV c) 917 __attribute__warn_unused_result__ 918 __attribute__pure__; 919 920 PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ UV c) 921 __attribute__warn_unused_result__ 922 __attribute__pure__; 923 924 PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ UV c) 925 __attribute__warn_unused_result__ 926 __attribute__pure__; 927 928 PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c) 929 __attribute__warn_unused_result__ 930 __attribute__pure__; 931 932 PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c) 933 __attribute__warn_unused_result__ 934 __attribute__pure__; 935 936 PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c) 937 __attribute__warn_unused_result__ 938 __attribute__pure__; 939 940 PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c) 941 __attribute__warn_unused_result__ 942 __attribute__pure__; 943 944 PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ const U8 *p) 945 __attribute__nonnull__(pTHX_1); 946 947 PERL_CALLCONV bool Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len) 948 __attribute__nonnull__(pTHX_1); 949 950 /* PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **p) 951 __attribute__nonnull__(pTHX_1); */ 952 953 PERL_CALLCONV bool Perl_is_utf8_string_loclen(pTHX_ const U8 *s, STRLEN len, const U8 **ep, STRLEN *el) 954 __attribute__nonnull__(pTHX_1); 955 956 PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ const U8 *p) 957 __attribute__warn_unused_result__ 958 __attribute__nonnull__(pTHX_1); 959 960 PERL_CALLCONV bool Perl_is_utf8_alnumc(pTHX_ const U8 *p) 961 __attribute__warn_unused_result__ 962 __attribute__nonnull__(pTHX_1); 963 964 PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ const U8 *p) 965 __attribute__warn_unused_result__ 966 __attribute__nonnull__(pTHX_1); 967 968 PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ const U8 *p) 969 __attribute__warn_unused_result__ 970 __attribute__nonnull__(pTHX_1); 971 972 PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ const U8 *p) 973 __attribute__warn_unused_result__ 974 __attribute__nonnull__(pTHX_1); 975 976 PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ const U8 *p) 977 __attribute__warn_unused_result__ 978 __attribute__nonnull__(pTHX_1); 979 980 PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p) 981 __attribute__warn_unused_result__ 982 __attribute__nonnull__(pTHX_1); 983 984 PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ const U8 *p) 985 __attribute__warn_unused_result__ 986 __attribute__nonnull__(pTHX_1); 987 988 PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ const U8 *p) 989 __attribute__warn_unused_result__ 990 __attribute__nonnull__(pTHX_1); 991 992 PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ const U8 *p) 993 __attribute__warn_unused_result__ 994 __attribute__nonnull__(pTHX_1); 995 996 PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ const U8 *p) 997 __attribute__warn_unused_result__ 998 __attribute__nonnull__(pTHX_1); 999 1000 PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ const U8 *p) 1001 __attribute__warn_unused_result__ 1002 __attribute__nonnull__(pTHX_1); 1003 1004 PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ const U8 *p) 1005 __attribute__warn_unused_result__ 1006 __attribute__nonnull__(pTHX_1); 1007 1008 PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ const U8 *p) 1009 __attribute__warn_unused_result__ 1010 __attribute__nonnull__(pTHX_1); 1011 1012 PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ const U8 *p) 1013 __attribute__warn_unused_result__ 1014 __attribute__nonnull__(pTHX_1); 1015 1016 PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ const U8 *p) 1017 __attribute__warn_unused_result__ 1018 __attribute__nonnull__(pTHX_1); 1019 1020 PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP* arg) 1021 __attribute__nonnull__(pTHX_1); 1022 1023 PERL_CALLCONV I32 Perl_keyword(pTHX_ const char* d, I32 len, bool all_keywords) 1024 __attribute__pure__ 1025 __attribute__nonnull__(pTHX_1); 1026 1027 PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base); 1028 PERL_CALLCONV void Perl_lex_end(pTHX); 1029 PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line, PerlIO *rsfp, bool new_filter); 1030 PERL_CALLCONV void Perl_op_null(pTHX_ OP* o) 1031 __attribute__nonnull__(pTHX_1); 1032 1033 PERL_CALLCONV void Perl_op_clear(pTHX_ OP* o) 1034 __attribute__nonnull__(pTHX_1); 1035 1036 PERL_CALLCONV void Perl_op_refcnt_lock(pTHX); 1037 PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX); 1038 PERL_CALLCONV OP* Perl_linklist(pTHX_ OP* o) 1039 __attribute__nonnull__(pTHX_1); 1040 1041 PERL_CALLCONV OP* Perl_list(pTHX_ OP* o); 1042 PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o); 1043 PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...) 1044 __attribute__nonnull__(pTHX_2); 1045 1046 PERL_CALLCONV void Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args) 1047 __attribute__nonnull__(pTHX_2); 1048 1049 PERL_CALLCONV OP* Perl_localize(pTHX_ OP* arg, I32 lexical) 1050 __attribute__nonnull__(pTHX_1); 1051 1052 PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV* sv) 1053 __attribute__warn_unused_result__ 1054 __attribute__nonnull__(pTHX_1); 1055 1056 PERL_CALLCONV UV Perl_grok_bin(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result) 1057 __attribute__nonnull__(pTHX_1) 1058 __attribute__nonnull__(pTHX_2) 1059 __attribute__nonnull__(pTHX_3); 1060 1061 PERL_CALLCONV UV Perl_grok_hex(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result) 1062 __attribute__nonnull__(pTHX_1) 1063 __attribute__nonnull__(pTHX_2) 1064 __attribute__nonnull__(pTHX_3); 1065 1066 PERL_CALLCONV int Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep) 1067 __attribute__nonnull__(pTHX_1); 1068 1069 PERL_CALLCONV bool Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send) 1070 __attribute__warn_unused_result__ 1071 __attribute__nonnull__(pTHX_1) 1072 __attribute__nonnull__(pTHX_2); 1073 1074 PERL_CALLCONV UV Perl_grok_oct(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result) 1075 __attribute__nonnull__(pTHX_1) 1076 __attribute__nonnull__(pTHX_2) 1077 __attribute__nonnull__(pTHX_3); 1078 1079 PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg) 1080 __attribute__nonnull__(pTHX_1) 1081 __attribute__nonnull__(pTHX_2); 1082 1083 PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg) 1084 __attribute__nonnull__(pTHX_1) 1085 __attribute__nonnull__(pTHX_2); 1086 1087 PERL_CALLCONV int Perl_magic_clearhint(pTHX_ SV* sv, MAGIC* mg) 1088 __attribute__nonnull__(pTHX_1) 1089 __attribute__nonnull__(pTHX_2); 1090 1091 PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg) 1092 __attribute__nonnull__(pTHX_1) 1093 __attribute__nonnull__(pTHX_2); 1094 1095 PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg) 1096 __attribute__nonnull__(pTHX_1) 1097 __attribute__nonnull__(pTHX_2); 1098 1099 PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg) 1100 __attribute__nonnull__(pTHX_1) 1101 __attribute__nonnull__(pTHX_2); 1102 1103 PERL_CALLCONV int Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg) 1104 __attribute__nonnull__(pTHX_1) 1105 __attribute__nonnull__(pTHX_2); 1106 1107 PERL_CALLCONV int Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg) 1108 __attribute__nonnull__(pTHX_1) 1109 __attribute__nonnull__(pTHX_2); 1110 1111 PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg) 1112 __attribute__nonnull__(pTHX_1) 1113 __attribute__nonnull__(pTHX_2); 1114 1115 PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, const MAGIC* mg) 1116 __attribute__nonnull__(pTHX_1) 1117 __attribute__nonnull__(pTHX_2); 1118 1119 PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg) 1120 __attribute__nonnull__(pTHX_1) 1121 __attribute__nonnull__(pTHX_2); 1122 1123 PERL_CALLCONV int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg) 1124 __attribute__nonnull__(pTHX_1) 1125 __attribute__nonnull__(pTHX_2); 1126 1127 PERL_CALLCONV int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg) 1128 __attribute__nonnull__(pTHX_1) 1129 __attribute__nonnull__(pTHX_2); 1130 1131 PERL_CALLCONV int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg) 1132 __attribute__nonnull__(pTHX_1) 1133 __attribute__nonnull__(pTHX_2); 1134 1135 PERL_CALLCONV int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg) 1136 __attribute__nonnull__(pTHX_1) 1137 __attribute__nonnull__(pTHX_2); 1138 1139 PERL_CALLCONV int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg) 1140 __attribute__nonnull__(pTHX_1) 1141 __attribute__nonnull__(pTHX_2); 1142 1143 PERL_CALLCONV int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg) 1144 __attribute__nonnull__(pTHX_1) 1145 __attribute__nonnull__(pTHX_2); 1146 1147 PERL_CALLCONV int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg) 1148 __attribute__nonnull__(pTHX_1) 1149 __attribute__nonnull__(pTHX_2); 1150 1151 PERL_CALLCONV int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg) 1152 __attribute__nonnull__(pTHX_1) 1153 __attribute__nonnull__(pTHX_2); 1154 1155 PERL_CALLCONV U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg) 1156 __attribute__nonnull__(pTHX_1) 1157 __attribute__nonnull__(pTHX_2); 1158 1159 PERL_CALLCONV int Perl_magic_nextpack(pTHX_ SV* sv, MAGIC* mg, SV* key) 1160 __attribute__nonnull__(pTHX_1) 1161 __attribute__nonnull__(pTHX_2) 1162 __attribute__nonnull__(pTHX_3); 1163 1164 PERL_CALLCONV U32 Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg) 1165 __attribute__nonnull__(pTHX_1) 1166 __attribute__nonnull__(pTHX_2); 1167 1168 PERL_CALLCONV int Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg) 1169 __attribute__nonnull__(pTHX_1) 1170 __attribute__nonnull__(pTHX_2); 1171 1172 PERL_CALLCONV int Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg) 1173 __attribute__noreturn__ 1174 __attribute__nonnull__(pTHX_1) 1175 __attribute__nonnull__(pTHX_2); 1176 1177 PERL_CALLCONV int Perl_magic_set(pTHX_ SV* sv, MAGIC* mg) 1178 __attribute__nonnull__(pTHX_1) 1179 __attribute__nonnull__(pTHX_2); 1180 1181 PERL_CALLCONV int Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg) 1182 __attribute__nonnull__(pTHX_1) 1183 __attribute__nonnull__(pTHX_2); 1184 1185 PERL_CALLCONV int Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg) 1186 __attribute__nonnull__(pTHX_1) 1187 __attribute__nonnull__(pTHX_2); 1188 1189 PERL_CALLCONV int Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg) 1190 __attribute__nonnull__(pTHX_1) 1191 __attribute__nonnull__(pTHX_2); 1192 1193 PERL_CALLCONV int Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg) 1194 __attribute__nonnull__(pTHX_1) 1195 __attribute__nonnull__(pTHX_2); 1196 1197 PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg) 1198 __attribute__nonnull__(pTHX_1) 1199 __attribute__nonnull__(pTHX_2); 1200 1201 PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg) 1202 __attribute__nonnull__(pTHX_1) 1203 __attribute__nonnull__(pTHX_2); 1204 1205 PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg) 1206 __attribute__nonnull__(pTHX_1) 1207 __attribute__nonnull__(pTHX_2); 1208 1209 PERL_CALLCONV int Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg) 1210 __attribute__nonnull__(pTHX_1) 1211 __attribute__nonnull__(pTHX_2); 1212 1213 PERL_CALLCONV int Perl_magic_sethint(pTHX_ SV* sv, MAGIC* mg) 1214 __attribute__nonnull__(pTHX_1) 1215 __attribute__nonnull__(pTHX_2); 1216 1217 PERL_CALLCONV int Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg) 1218 __attribute__nonnull__(pTHX_1) 1219 __attribute__nonnull__(pTHX_2); 1220 1221 PERL_CALLCONV int Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg) 1222 __attribute__nonnull__(pTHX_1) 1223 __attribute__nonnull__(pTHX_2); 1224 1225 PERL_CALLCONV int Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg) 1226 __attribute__nonnull__(pTHX_1) 1227 __attribute__nonnull__(pTHX_2); 1228 1229 PERL_CALLCONV int Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg) 1230 __attribute__nonnull__(pTHX_1) 1231 __attribute__nonnull__(pTHX_2); 1232 1233 PERL_CALLCONV int Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg) 1234 __attribute__nonnull__(pTHX_1) 1235 __attribute__nonnull__(pTHX_2); 1236 1237 PERL_CALLCONV int Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg) 1238 __attribute__nonnull__(pTHX_1) 1239 __attribute__nonnull__(pTHX_2); 1240 1241 PERL_CALLCONV int Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg) 1242 __attribute__nonnull__(pTHX_1) 1243 __attribute__nonnull__(pTHX_2); 1244 1245 PERL_CALLCONV int Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg) 1246 __attribute__nonnull__(pTHX_1) 1247 __attribute__nonnull__(pTHX_2); 1248 1249 PERL_CALLCONV int Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg) 1250 __attribute__nonnull__(pTHX_1) 1251 __attribute__nonnull__(pTHX_2); 1252 1253 PERL_CALLCONV int Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg) 1254 __attribute__nonnull__(pTHX_1) 1255 __attribute__nonnull__(pTHX_2); 1256 1257 PERL_CALLCONV int Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg) 1258 __attribute__nonnull__(pTHX_1) 1259 __attribute__nonnull__(pTHX_2); 1260 1261 PERL_CALLCONV int Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg) 1262 __attribute__nonnull__(pTHX_1) 1263 __attribute__nonnull__(pTHX_2); 1264 1265 PERL_CALLCONV int Perl_magic_setutf8(pTHX_ SV* sv, MAGIC* mg) 1266 __attribute__nonnull__(pTHX_1) 1267 __attribute__nonnull__(pTHX_2); 1268 1269 PERL_CALLCONV int Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg) 1270 __attribute__nonnull__(pTHX_1) 1271 __attribute__nonnull__(pTHX_2); 1272 1273 PERL_CALLCONV U32 Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg) 1274 __attribute__nonnull__(pTHX_1) 1275 __attribute__nonnull__(pTHX_2); 1276 1277 PERL_CALLCONV int Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg) 1278 __attribute__nonnull__(pTHX_1) 1279 __attribute__nonnull__(pTHX_2); 1280 1281 PERL_CALLCONV void Perl_magicname(pTHX_ const char* sym, const char* name, I32 namlen) 1282 __attribute__nonnull__(pTHX_1); 1283 1284 PERL_CALLCONV void Perl_markstack_grow(pTHX); 1285 #if defined(USE_LOCALE_COLLATE) 1286 PERL_CALLCONV int Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg) 1287 __attribute__nonnull__(pTHX_1) 1288 __attribute__nonnull__(pTHX_2); 1289 1290 PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen) 1291 __attribute__nonnull__(pTHX_1) 1292 __attribute__nonnull__(pTHX_3); 1293 1294 #endif 1295 PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...) 1296 __attribute__format__(__printf__,pTHX_1,pTHX_2) 1297 __attribute__nonnull__(pTHX_1); 1298 1299 PERL_CALLCONV SV* Perl_vmess(pTHX_ const char* pat, va_list* args) 1300 __attribute__nonnull__(pTHX_1); 1301 1302 PERL_CALLCONV void Perl_qerror(pTHX_ SV* err) 1303 __attribute__nonnull__(pTHX_1); 1304 1305 PERL_CALLCONV void Perl_sortsv(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp) 1306 __attribute__nonnull__(pTHX_1) 1307 __attribute__nonnull__(pTHX_3); 1308 1309 PERL_CALLCONV void Perl_sortsv_flags(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags) 1310 __attribute__nonnull__(pTHX_1) 1311 __attribute__nonnull__(pTHX_3); 1312 1313 PERL_CALLCONV int Perl_mg_clear(pTHX_ SV* sv) 1314 __attribute__nonnull__(pTHX_1); 1315 1316 PERL_CALLCONV int Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen) 1317 __attribute__nonnull__(pTHX_1) 1318 __attribute__nonnull__(pTHX_2); 1319 1320 PERL_CALLCONV void Perl_mg_localize(pTHX_ SV* sv, SV* nsv) 1321 __attribute__nonnull__(pTHX_1) 1322 __attribute__nonnull__(pTHX_2); 1323 1324 PERL_CALLCONV MAGIC* Perl_mg_find(pTHX_ const SV* sv, int type) 1325 __attribute__warn_unused_result__; 1326 1327 PERL_CALLCONV int Perl_mg_free(pTHX_ SV* sv) 1328 __attribute__nonnull__(pTHX_1); 1329 1330 PERL_CALLCONV int Perl_mg_get(pTHX_ SV* sv) 1331 __attribute__nonnull__(pTHX_1); 1332 1333 PERL_CALLCONV U32 Perl_mg_length(pTHX_ SV* sv) 1334 __attribute__nonnull__(pTHX_1); 1335 1336 PERL_CALLCONV void Perl_mg_magical(pTHX_ SV* sv) 1337 __attribute__nonnull__(pTHX_1); 1338 1339 PERL_CALLCONV int Perl_mg_set(pTHX_ SV* sv) 1340 __attribute__nonnull__(pTHX_1); 1341 1342 PERL_CALLCONV I32 Perl_mg_size(pTHX_ SV* sv) 1343 __attribute__nonnull__(pTHX_1); 1344 1345 PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *pm) 1346 __attribute__nonnull__(pTHX_1); 1347 1348 PERL_CALLCONV OP* Perl_mod(pTHX_ OP* o, I32 type); 1349 PERL_CALLCONV int Perl_mode_from_discipline(pTHX_ SV* discp); 1350 PERL_CALLCONV const char* Perl_moreswitches(pTHX_ const char* s) 1351 __attribute__nonnull__(pTHX_1); 1352 1353 PERL_CALLCONV OP* Perl_my(pTHX_ OP* o) 1354 __attribute__nonnull__(pTHX_1); 1355 1356 PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s) 1357 __attribute__nonnull__(pTHX_1); 1358 1359 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) 1360 PERL_CALLCONV char* Perl_my_bcopy(const char* from, char* to, I32 len) 1361 __attribute__nonnull__(1) 1362 __attribute__nonnull__(2); 1363 1364 #endif 1365 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) 1366 PERL_CALLCONV char* Perl_my_bzero(char* loc, I32 len) 1367 __attribute__nonnull__(1); 1368 1369 #endif 1370 PERL_CALLCONV void Perl_my_exit(pTHX_ U32 status) 1371 __attribute__noreturn__; 1372 1373 PERL_CALLCONV void Perl_my_failure_exit(pTHX) 1374 __attribute__noreturn__; 1375 1376 PERL_CALLCONV I32 Perl_my_fflush_all(pTHX); 1377 PERL_CALLCONV Pid_t Perl_my_fork(void); 1378 PERL_CALLCONV void Perl_atfork_lock(void); 1379 PERL_CALLCONV void Perl_atfork_unlock(void); 1380 PERL_CALLCONV I32 Perl_my_lstat(pTHX); 1381 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) 1382 PERL_CALLCONV I32 Perl_my_memcmp(const char* s1, const char* s2, I32 len) 1383 __attribute__pure__ 1384 __attribute__nonnull__(1) 1385 __attribute__nonnull__(2); 1386 1387 #endif 1388 #if !defined(HAS_MEMSET) 1389 PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len) 1390 __attribute__nonnull__(1); 1391 1392 #endif 1393 PERL_CALLCONV I32 Perl_my_pclose(pTHX_ PerlIO* ptr); 1394 PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ const char* cmd, const char* mode) 1395 __attribute__nonnull__(pTHX_1) 1396 __attribute__nonnull__(pTHX_2); 1397 1398 PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ char* mode, int n, SV ** args) 1399 __attribute__nonnull__(pTHX_1) 1400 __attribute__nonnull__(pTHX_3); 1401 1402 PERL_CALLCONV void Perl_my_setenv(pTHX_ const char* nam, const char* val); 1403 PERL_CALLCONV I32 Perl_my_stat(pTHX); 1404 PERL_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) 1405 __attribute__nonnull__(pTHX_1); 1406 1407 #if defined(MYSWAP) 1408 PERL_CALLCONV short Perl_my_swap(pTHX_ short s) 1409 __attribute__malloc__ 1410 __attribute__warn_unused_result__ 1411 __attribute__pure__; 1412 1413 PERL_CALLCONV long Perl_my_htonl(pTHX_ long l) 1414 __attribute__malloc__ 1415 __attribute__warn_unused_result__ 1416 __attribute__pure__; 1417 1418 PERL_CALLCONV long Perl_my_ntohl(pTHX_ long l) 1419 __attribute__malloc__ 1420 __attribute__warn_unused_result__ 1421 __attribute__pure__; 1422 1423 #endif 1424 PERL_CALLCONV void Perl_my_unexec(pTHX); 1425 PERL_CALLCONV OP* Perl_newANONLIST(pTHX_ OP* o) 1426 __attribute__malloc__ 1427 __attribute__warn_unused_result__; 1428 1429 PERL_CALLCONV OP* Perl_newANONHASH(pTHX_ OP* o) 1430 __attribute__malloc__ 1431 __attribute__warn_unused_result__; 1432 1433 PERL_CALLCONV OP* Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block); 1434 PERL_CALLCONV OP* Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right) 1435 __attribute__malloc__ 1436 __attribute__warn_unused_result__; 1437 1438 PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* falseop) 1439 __attribute__malloc__ 1440 __attribute__warn_unused_result__ 1441 __attribute__nonnull__(pTHX_2); 1442 1443 PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv); 1444 #ifdef PERL_MAD 1445 PERL_CALLCONV OP* Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); 1446 #else 1447 PERL_CALLCONV void Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); 1448 #endif 1449 PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sv, OP* expr, OP* block, OP* cont) 1450 __attribute__malloc__ 1451 __attribute__warn_unused_result__ 1452 __attribute__nonnull__(pTHX_5); 1453 1454 PERL_CALLCONV OP* Perl_newGIVENOP(pTHX_ OP* cond, OP* block, PADOFFSET defsv_off) 1455 __attribute__malloc__ 1456 __attribute__warn_unused_result__ 1457 __attribute__nonnull__(pTHX_1) 1458 __attribute__nonnull__(pTHX_2); 1459 1460 PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right) 1461 __attribute__malloc__ 1462 __attribute__warn_unused_result__ 1463 __attribute__nonnull__(pTHX_3) 1464 __attribute__nonnull__(pTHX_4); 1465 1466 PERL_CALLCONV OP* Perl_newLOOPEX(pTHX_ I32 type, OP* label) 1467 __attribute__malloc__ 1468 __attribute__warn_unused_result__ 1469 __attribute__nonnull__(pTHX_2); 1470 1471 PERL_CALLCONV OP* Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block) 1472 __attribute__malloc__ 1473 __attribute__warn_unused_result__; 1474 1475 PERL_CALLCONV OP* Perl_newNULLLIST(pTHX) 1476 __attribute__malloc__ 1477 __attribute__warn_unused_result__; 1478 1479 PERL_CALLCONV OP* Perl_newOP(pTHX_ I32 optype, I32 flags) 1480 __attribute__malloc__ 1481 __attribute__warn_unused_result__; 1482 1483 PERL_CALLCONV void Perl_newPROG(pTHX_ OP* o) 1484 __attribute__nonnull__(pTHX_1); 1485 1486 PERL_CALLCONV OP* Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right) 1487 __attribute__malloc__ 1488 __attribute__warn_unused_result__ 1489 __attribute__nonnull__(pTHX_2) 1490 __attribute__nonnull__(pTHX_3); 1491 1492 PERL_CALLCONV OP* Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop) 1493 __attribute__malloc__ 1494 __attribute__warn_unused_result__; 1495 1496 PERL_CALLCONV OP* Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o) 1497 __attribute__malloc__ 1498 __attribute__warn_unused_result__; 1499 1500 PERL_CALLCONV CV* Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block); 1501 PERL_CALLCONV CV * Perl_newXS_flags(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags) 1502 __attribute__nonnull__(pTHX_2) 1503 __attribute__nonnull__(pTHX_3); 1504 1505 PERL_CALLCONV CV* Perl_newXS(pTHX_ const char* name, XSUBADDR_t f, const char* filename) 1506 __attribute__nonnull__(pTHX_2) 1507 __attribute__nonnull__(pTHX_3); 1508 1509 PERL_CALLCONV AV* Perl_newAV(pTHX) 1510 __attribute__malloc__ 1511 __attribute__warn_unused_result__; 1512 1513 PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o) 1514 __attribute__malloc__ 1515 __attribute__warn_unused_result__ 1516 __attribute__nonnull__(pTHX_1); 1517 1518 PERL_CALLCONV OP* Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last) 1519 __attribute__malloc__ 1520 __attribute__warn_unused_result__; 1521 1522 PERL_CALLCONV OP* Perl_newCVREF(pTHX_ I32 flags, OP* o) 1523 __attribute__malloc__ 1524 __attribute__warn_unused_result__; 1525 1526 PERL_CALLCONV OP* Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv) 1527 __attribute__malloc__ 1528 __attribute__warn_unused_result__ 1529 __attribute__nonnull__(pTHX_3); 1530 1531 PERL_CALLCONV GV* Perl_newGVgen(pTHX_ const char* pack) 1532 __attribute__malloc__ 1533 __attribute__warn_unused_result__ 1534 __attribute__nonnull__(pTHX_1); 1535 1536 PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o) 1537 __attribute__malloc__ 1538 __attribute__warn_unused_result__; 1539 1540 PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o) 1541 __attribute__malloc__ 1542 __attribute__warn_unused_result__ 1543 __attribute__nonnull__(pTHX_1); 1544 1545 PERL_CALLCONV HV* Perl_newHV(pTHX) 1546 __attribute__malloc__ 1547 __attribute__warn_unused_result__; 1548 1549 PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV* hv) 1550 __attribute__malloc__ 1551 __attribute__warn_unused_result__; 1552 1553 PERL_CALLCONV IO* Perl_newIO(pTHX) 1554 __attribute__malloc__ 1555 __attribute__warn_unused_result__; 1556 1557 PERL_CALLCONV OP* Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last) 1558 __attribute__malloc__ 1559 __attribute__warn_unused_result__; 1560 1561 #ifdef USE_ITHREADS 1562 PERL_CALLCONV OP* Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv) 1563 __attribute__malloc__ 1564 __attribute__warn_unused_result__ 1565 __attribute__nonnull__(pTHX_3); 1566 1567 #endif 1568 PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags) 1569 __attribute__malloc__ 1570 __attribute__warn_unused_result__; 1571 1572 PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv) 1573 __attribute__malloc__ 1574 __attribute__warn_unused_result__; 1575 1576 PERL_CALLCONV SV* Perl_newRV(pTHX_ SV* sv) 1577 __attribute__malloc__ 1578 __attribute__warn_unused_result__ 1579 __attribute__nonnull__(pTHX_1); 1580 1581 PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV* sv) 1582 __attribute__malloc__ 1583 __attribute__warn_unused_result__ 1584 __attribute__nonnull__(pTHX_1); 1585 1586 PERL_CALLCONV SV* Perl_newSV(pTHX_ STRLEN len) 1587 __attribute__malloc__ 1588 __attribute__warn_unused_result__; 1589 1590 PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o) 1591 __attribute__malloc__ 1592 __attribute__warn_unused_result__ 1593 __attribute__nonnull__(pTHX_1); 1594 1595 PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv) 1596 __attribute__malloc__ 1597 __attribute__warn_unused_result__ 1598 __attribute__nonnull__(pTHX_3); 1599 1600 PERL_CALLCONV SV* Perl_newSViv(pTHX_ IV i) 1601 __attribute__malloc__ 1602 __attribute__warn_unused_result__; 1603 1604 PERL_CALLCONV SV* Perl_newSVuv(pTHX_ UV u) 1605 __attribute__malloc__ 1606 __attribute__warn_unused_result__; 1607 1608 PERL_CALLCONV SV* Perl_newSVnv(pTHX_ NV n) 1609 __attribute__malloc__ 1610 __attribute__warn_unused_result__; 1611 1612 PERL_CALLCONV SV* Perl_newSVpv(pTHX_ const char* s, STRLEN len) 1613 __attribute__malloc__ 1614 __attribute__warn_unused_result__; 1615 1616 PERL_CALLCONV SV* Perl_newSVpvn(pTHX_ const char* s, STRLEN len) 1617 __attribute__malloc__ 1618 __attribute__warn_unused_result__; 1619 1620 PERL_CALLCONV SV* Perl_newSVhek(pTHX_ const HEK *hek) 1621 __attribute__malloc__ 1622 __attribute__warn_unused_result__; 1623 1624 PERL_CALLCONV SV* Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash) 1625 __attribute__malloc__ 1626 __attribute__warn_unused_result__; 1627 1628 PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char* pat, ...) 1629 __attribute__malloc__ 1630 __attribute__warn_unused_result__ 1631 __attribute__format__(__printf__,pTHX_1,pTHX_2) 1632 __attribute__nonnull__(pTHX_1); 1633 1634 PERL_CALLCONV SV* Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args) 1635 __attribute__malloc__ 1636 __attribute__warn_unused_result__ 1637 __attribute__nonnull__(pTHX_1); 1638 1639 PERL_CALLCONV SV* Perl_newSVrv(pTHX_ SV* rv, const char* classname) 1640 __attribute__nonnull__(pTHX_1); 1641 1642 PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV* old) 1643 __attribute__malloc__ 1644 __attribute__warn_unused_result__; 1645 1646 PERL_CALLCONV SV* Perl_newSV_type(pTHX_ svtype type) 1647 __attribute__malloc__ 1648 __attribute__warn_unused_result__; 1649 1650 PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first) 1651 __attribute__malloc__ 1652 __attribute__warn_unused_result__; 1653 1654 PERL_CALLCONV OP* Perl_newWHENOP(pTHX_ OP* cond, OP* block) 1655 __attribute__malloc__ 1656 __attribute__warn_unused_result__ 1657 __attribute__nonnull__(pTHX_2); 1658 1659 PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont, I32 has_my) 1660 __attribute__malloc__ 1661 __attribute__warn_unused_result__; 1662 1663 PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems) 1664 __attribute__malloc__ 1665 __attribute__warn_unused_result__; 1666 1667 PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *vstr, const char *end, SV *sv) 1668 __attribute__nonnull__(pTHX_1) 1669 __attribute__nonnull__(pTHX_2) 1670 __attribute__nonnull__(pTHX_3); 1671 1672 PERL_CALLCONV const char* Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv) 1673 __attribute__nonnull__(pTHX_1) 1674 __attribute__nonnull__(pTHX_2); 1675 1676 PERL_CALLCONV SV* Perl_new_version(pTHX_ SV *ver) 1677 __attribute__nonnull__(pTHX_1); 1678 1679 PERL_CALLCONV SV* Perl_upg_version(pTHX_ SV *ver, bool qv) 1680 __attribute__nonnull__(pTHX_1); 1681 1682 PERL_CALLCONV bool Perl_vverify(pTHX_ SV *vs) 1683 __attribute__nonnull__(pTHX_1); 1684 1685 PERL_CALLCONV SV* Perl_vnumify(pTHX_ SV *vs) 1686 __attribute__nonnull__(pTHX_1); 1687 1688 PERL_CALLCONV SV* Perl_vnormal(pTHX_ SV *vs) 1689 __attribute__nonnull__(pTHX_1); 1690 1691 PERL_CALLCONV SV* Perl_vstringify(pTHX_ SV *vs) 1692 __attribute__nonnull__(pTHX_1); 1693 1694 PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lvs, SV *rvs) 1695 __attribute__nonnull__(pTHX_1) 1696 __attribute__nonnull__(pTHX_2); 1697 1698 PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv) 1699 __attribute__nonnull__(pTHX_1); 1700 1701 PERL_CALLCONV char* Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend) 1702 __attribute__pure__ 1703 __attribute__nonnull__(pTHX_1) 1704 __attribute__nonnull__(pTHX_2) 1705 __attribute__nonnull__(pTHX_3) 1706 __attribute__nonnull__(pTHX_4); 1707 1708 PERL_CALLCONV OP* Perl_oopsCV(pTHX_ OP* o) 1709 __attribute__noreturn__ 1710 __attribute__nonnull__(pTHX_1); 1711 1712 PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg); 1713 #ifdef PERL_MAD 1714 PERL_CALLCONV OP* Perl_package(pTHX_ OP* o) 1715 __attribute__nonnull__(pTHX_1); 1716 1717 #else 1718 PERL_CALLCONV void Perl_package(pTHX_ OP* o) 1719 __attribute__nonnull__(pTHX_1); 1720 1721 #endif 1722 PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype); 1723 PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ const char *const name) 1724 __attribute__nonnull__(pTHX_1); 1725 1726 PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ const char* name) 1727 __attribute__warn_unused_result__ 1728 __attribute__nonnull__(pTHX_1); 1729 1730 PERL_CALLCONV PADOFFSET Perl_find_rundefsvoffset(pTHX); 1731 PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o) 1732 __attribute__warn_unused_result__ 1733 __attribute__nonnull__(pTHX_1); 1734 1735 PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o) 1736 __attribute__warn_unused_result__ 1737 __attribute__nonnull__(pTHX_1); 1738 1739 PERL_CALLCONV void Perl_pad_leavemy(pTHX); 1740 PERL_CALLCONV SV* Perl_pad_sv(pTHX_ PADOFFSET po); 1741 PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po); 1742 PERL_CALLCONV void Perl_pad_reset(pTHX); 1743 PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust); 1744 PERL_CALLCONV void Perl_peep(pTHX_ OP* o); 1745 PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV* pattern, IO *io) 1746 __attribute__nonnull__(pTHX_1) 1747 __attribute__nonnull__(pTHX_2); 1748 1749 #if defined(USE_REENTRANT_API) 1750 PERL_CALLCONV void Perl_reentrant_size(pTHX); 1751 PERL_CALLCONV void Perl_reentrant_init(pTHX); 1752 PERL_CALLCONV void Perl_reentrant_free(pTHX); 1753 PERL_CALLCONV void* Perl_reentrant_retry(const char*, ...) 1754 __attribute__nonnull__(1); 1755 1756 #endif 1757 PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr); 1758 PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv) 1759 __attribute__nonnull__(pTHX_1) 1760 __attribute__nonnull__(pTHX_3); 1761 1762 PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags) 1763 __attribute__nonnull__(pTHX_1); 1764 1765 PERL_CALLCONV I32 Perl_call_pv(pTHX_ const char* sub_name, I32 flags) 1766 __attribute__nonnull__(pTHX_1); 1767 1768 PERL_CALLCONV I32 Perl_call_sv(pTHX_ SV* sv, I32 flags) 1769 __attribute__nonnull__(pTHX_1); 1770 1771 PERL_CALLCONV void Perl_despatch_signals(pTHX); 1772 PERL_CALLCONV OP * Perl_doref(pTHX_ OP *o, I32 type, bool set_op_ref) 1773 __attribute__nonnull__(pTHX_1); 1774 1775 PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error) 1776 __attribute__nonnull__(pTHX_1); 1777 1778 PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags) 1779 __attribute__nonnull__(pTHX_1); 1780 1781 PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char* name, I32 create) 1782 __attribute__nonnull__(pTHX_1); 1783 1784 PERL_CALLCONV AV* Perl_get_av(pTHX_ const char* name, I32 create) 1785 __attribute__nonnull__(pTHX_1); 1786 1787 PERL_CALLCONV HV* Perl_get_hv(pTHX_ const char* name, I32 create) 1788 __attribute__nonnull__(pTHX_1); 1789 1790 PERL_CALLCONV CV* Perl_get_cv(pTHX_ const char* name, I32 flags) 1791 __attribute__nonnull__(pTHX_1); 1792 1793 PERL_CALLCONV CV* Perl_get_cvn_flags(pTHX_ const char* name, STRLEN len, I32 flags) 1794 __attribute__nonnull__(pTHX_1); 1795 1796 PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn); 1797 PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn); 1798 PERL_CALLCONV void Perl_new_collate(pTHX_ const char* newcoll); 1799 PERL_CALLCONV void Perl_new_ctype(pTHX_ const char* newctype) 1800 __attribute__nonnull__(pTHX_1); 1801 1802 PERL_CALLCONV void Perl_new_numeric(pTHX_ const char* newcoll); 1803 PERL_CALLCONV void Perl_set_numeric_local(pTHX); 1804 PERL_CALLCONV void Perl_set_numeric_radix(pTHX); 1805 PERL_CALLCONV void Perl_set_numeric_standard(pTHX); 1806 PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv) 1807 __attribute__nonnull__(pTHX_1); 1808 1809 PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags) 1810 __attribute__nonnull__(pTHX_1) 1811 __attribute__nonnull__(pTHX_2) 1812 __attribute__nonnull__(pTHX_3) 1813 __attribute__nonnull__(pTHX_4) 1814 __attribute__nonnull__(pTHX_5) 1815 __attribute__nonnull__(pTHX_6); 1816 1817 PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist) 1818 __attribute__nonnull__(pTHX_1) 1819 __attribute__nonnull__(pTHX_2) 1820 __attribute__nonnull__(pTHX_3) 1821 __attribute__nonnull__(pTHX_4) 1822 __attribute__nonnull__(pTHX_5); 1823 1824 #ifdef PERL_USES_PL_PIDSTATUS 1825 PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status); 1826 #endif 1827 PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch) 1828 __attribute__nonnull__(pTHX_1); 1829 1830 PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, bool isreg) 1831 __attribute__nonnull__(pTHX_1) 1832 __attribute__nonnull__(pTHX_2); 1833 1834 PERL_CALLCONV OP* Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl) 1835 __attribute__nonnull__(pTHX_1) 1836 __attribute__nonnull__(pTHX_2) 1837 __attribute__nonnull__(pTHX_3); 1838 1839 PERL_CALLCONV void Perl_pop_scope(pTHX); 1840 PERL_CALLCONV OP* Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail); 1841 PERL_CALLCONV void Perl_push_scope(pTHX); 1842 /* PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type); */ 1843 PERL_CALLCONV OP* Perl_refkids(pTHX_ OP* o, I32 type); 1844 PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r) 1845 __attribute__nonnull__(pTHX_1); 1846 1847 PERL_CALLCONV void Perl_regdump(pTHX_ const regexp* r) 1848 __attribute__nonnull__(pTHX_1); 1849 1850 PERL_CALLCONV SV* Perl_regclass_swash(pTHX_ const regexp *prog, const struct regnode *n, bool doinit, SV **listsvp, SV **altsvp) 1851 __attribute__nonnull__(pTHX_2); 1852 1853 PERL_CALLCONV I32 Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) 1854 __attribute__nonnull__(pTHX_1) 1855 __attribute__nonnull__(pTHX_2) 1856 __attribute__nonnull__(pTHX_3) 1857 __attribute__nonnull__(pTHX_4) 1858 __attribute__nonnull__(pTHX_6); 1859 1860 PERL_CALLCONV void Perl_pregfree(pTHX_ struct regexp* r); 1861 PERL_CALLCONV struct regexp* Perl_reg_temp_copy(pTHX_ struct regexp* r) 1862 __attribute__nonnull__(pTHX_1); 1863 1864 PERL_CALLCONV void Perl_regfree_internal(pTHX_ REGEXP * const r); 1865 PERL_CALLCONV char * Perl_reg_stringify(pTHX_ MAGIC *mg, STRLEN *lp, U32 *flags, I32 *haseval) 1866 __attribute__nonnull__(pTHX_1); 1867 1868 #if defined(USE_ITHREADS) 1869 PERL_CALLCONV void* Perl_regdupe_internal(pTHX_ REGEXP * const r, CLONE_PARAMS* param) 1870 __attribute__nonnull__(pTHX_1) 1871 __attribute__nonnull__(pTHX_2); 1872 1873 #endif 1874 PERL_CALLCONV REGEXP* Perl_pregcomp(pTHX_ const SV * const pattern, const U32 flags) 1875 __attribute__nonnull__(pTHX_1); 1876 1877 PERL_CALLCONV REGEXP* Perl_re_compile(pTHX_ const SV * const pattern, const U32 flags) 1878 __attribute__nonnull__(pTHX_1); 1879 1880 PERL_CALLCONV char* Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV* sv, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data) 1881 __attribute__nonnull__(pTHX_1) 1882 __attribute__nonnull__(pTHX_3) 1883 __attribute__nonnull__(pTHX_4); 1884 1885 PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ REGEXP * const rx) 1886 __attribute__nonnull__(pTHX_1); 1887 1888 PERL_CALLCONV I32 Perl_regexec_flags(pTHX_ REGEXP * const rx, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) 1889 __attribute__nonnull__(pTHX_1) 1890 __attribute__nonnull__(pTHX_2) 1891 __attribute__nonnull__(pTHX_3) 1892 __attribute__nonnull__(pTHX_4) 1893 __attribute__nonnull__(pTHX_6); 1894 1895 PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p) 1896 __attribute__warn_unused_result__ 1897 __attribute__nonnull__(pTHX_1); 1898 1899 1900 PERL_CALLCONV SV* Perl_reg_named_buff(pTHX_ REGEXP * const rx, SV * const key, SV * const value, const U32 flags) 1901 __attribute__nonnull__(pTHX_1); 1902 1903 PERL_CALLCONV SV* Perl_reg_named_buff_iter(pTHX_ REGEXP * const rx, const SV * const lastkey, const U32 flags) 1904 __attribute__nonnull__(pTHX_1); 1905 1906 PERL_CALLCONV SV* Perl_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const namesv, const U32 flags) 1907 __attribute__nonnull__(pTHX_1) 1908 __attribute__nonnull__(pTHX_2); 1909 1910 PERL_CALLCONV bool Perl_reg_named_buff_exists(pTHX_ REGEXP * const rx, SV * const key, const U32 flags) 1911 __attribute__nonnull__(pTHX_1) 1912 __attribute__nonnull__(pTHX_2); 1913 1914 PERL_CALLCONV SV* Perl_reg_named_buff_firstkey(pTHX_ REGEXP * const rx, const U32 flags) 1915 __attribute__nonnull__(pTHX_1); 1916 1917 PERL_CALLCONV SV* Perl_reg_named_buff_nextkey(pTHX_ REGEXP * const rx, const U32 flags) 1918 __attribute__nonnull__(pTHX_1); 1919 1920 PERL_CALLCONV SV* Perl_reg_named_buff_scalar(pTHX_ REGEXP * const rx, const U32 flags) 1921 __attribute__nonnull__(pTHX_1); 1922 1923 PERL_CALLCONV SV* Perl_reg_named_buff_all(pTHX_ REGEXP * const rx, const U32 flags) 1924 __attribute__nonnull__(pTHX_1); 1925 1926 1927 PERL_CALLCONV void Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, SV * const sv) 1928 __attribute__nonnull__(pTHX_1); 1929 1930 PERL_CALLCONV void Perl_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, SV const * const value) 1931 __attribute__nonnull__(pTHX_1); 1932 1933 PERL_CALLCONV I32 Perl_reg_numbered_buff_length(pTHX_ REGEXP * const rx, const SV * const sv, const I32 paren) 1934 __attribute__nonnull__(pTHX_1) 1935 __attribute__nonnull__(pTHX_2); 1936 1937 1938 PERL_CALLCONV SV* Perl_reg_qr_package(pTHX_ REGEXP * const rx) 1939 __attribute__nonnull__(pTHX_1); 1940 1941 1942 PERL_CALLCONV void Perl_regprop(pTHX_ const regexp *prog, SV* sv, const regnode* o) 1943 __attribute__nonnull__(pTHX_2) 1944 __attribute__nonnull__(pTHX_3); 1945 1946 PERL_CALLCONV void Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count) 1947 __attribute__nonnull__(pTHX_1) 1948 __attribute__nonnull__(pTHX_2); 1949 1950 PERL_CALLCONV char* Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend) 1951 __attribute__pure__ 1952 __attribute__nonnull__(pTHX_1) 1953 __attribute__nonnull__(pTHX_2) 1954 __attribute__nonnull__(pTHX_3) 1955 __attribute__nonnull__(pTHX_4); 1956 1957 PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t); 1958 PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t); 1959 PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2) 1960 __attribute__nonnull__(pTHX_3); 1961 1962 PERL_CALLCONV Sighandler_t Perl_rsignal_state(pTHX_ int i); 1963 PERL_CALLCONV void Perl_rxres_free(pTHX_ void** rsp) 1964 __attribute__nonnull__(pTHX_1); 1965 1966 PERL_CALLCONV void Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx) 1967 __attribute__nonnull__(pTHX_1) 1968 __attribute__nonnull__(pTHX_2); 1969 1970 PERL_CALLCONV void Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx) 1971 __attribute__nonnull__(pTHX_1) 1972 __attribute__nonnull__(pTHX_2); 1973 1974 #if !defined(HAS_RENAME) 1975 PERL_CALLCONV I32 Perl_same_dirent(pTHX_ const char* a, const char* b) 1976 __attribute__nonnull__(pTHX_1) 1977 __attribute__nonnull__(pTHX_2); 1978 1979 #endif 1980 PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv) 1981 __attribute__malloc__ 1982 __attribute__warn_unused_result__; 1983 1984 PERL_CALLCONV char* Perl_savepvn(pTHX_ const char* pv, I32 len) 1985 __attribute__malloc__ 1986 __attribute__warn_unused_result__; 1987 1988 PERL_CALLCONV char* Perl_savesharedpv(pTHX_ const char* pv) 1989 __attribute__malloc__ 1990 __attribute__warn_unused_result__; 1991 1992 PERL_CALLCONV char* Perl_savesharedpvn(pTHX_ const char *const pv, const STRLEN len) 1993 __attribute__malloc__ 1994 __attribute__warn_unused_result__ 1995 __attribute__nonnull__(pTHX_1); 1996 1997 PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv) 1998 __attribute__malloc__ 1999 __attribute__warn_unused_result__ 2000 __attribute__nonnull__(pTHX_1); 2001 2002 PERL_CALLCONV void Perl_savestack_grow(pTHX); 2003 PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need); 2004 PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr) 2005 __attribute__nonnull__(pTHX_1) 2006 __attribute__nonnull__(pTHX_3); 2007 2008 PERL_CALLCONV I32 Perl_save_alloc(pTHX_ I32 size, I32 pad); 2009 PERL_CALLCONV void Perl_save_aptr(pTHX_ AV** aptr) 2010 __attribute__nonnull__(pTHX_1); 2011 2012 PERL_CALLCONV AV* Perl_save_ary(pTHX_ GV* gv) 2013 __attribute__nonnull__(pTHX_1); 2014 2015 PERL_CALLCONV void Perl_save_bool(pTHX_ bool* boolp) 2016 __attribute__nonnull__(pTHX_1); 2017 2018 PERL_CALLCONV void Perl_save_clearsv(pTHX_ SV** svp) 2019 __attribute__nonnull__(pTHX_1); 2020 2021 PERL_CALLCONV void Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen) 2022 __attribute__nonnull__(pTHX_1) 2023 __attribute__nonnull__(pTHX_2); 2024 2025 PERL_CALLCONV void Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p) 2026 __attribute__nonnull__(pTHX_2); 2027 2028 PERL_CALLCONV void Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p); 2029 PERL_CALLCONV void Perl_save_freesv(pTHX_ SV* sv); 2030 PERL_CALLCONV void Perl_save_freeop(pTHX_ OP* o); 2031 PERL_CALLCONV void Perl_save_freepv(pTHX_ char* pv); 2032 PERL_CALLCONV void Perl_save_generic_svref(pTHX_ SV** sptr) 2033 __attribute__nonnull__(pTHX_1); 2034 2035 PERL_CALLCONV void Perl_save_generic_pvref(pTHX_ char** str) 2036 __attribute__nonnull__(pTHX_1); 2037 2038 PERL_CALLCONV void Perl_save_shared_pvref(pTHX_ char** str) 2039 __attribute__nonnull__(pTHX_1); 2040 2041 PERL_CALLCONV void Perl_save_gp(pTHX_ GV* gv, I32 empty) 2042 __attribute__nonnull__(pTHX_1); 2043 2044 PERL_CALLCONV HV* Perl_save_hash(pTHX_ GV* gv) 2045 __attribute__nonnull__(pTHX_1); 2046 2047 PERL_CALLCONV void Perl_save_helem(pTHX_ HV* hv, SV *key, SV **sptr) 2048 __attribute__nonnull__(pTHX_1) 2049 __attribute__nonnull__(pTHX_2) 2050 __attribute__nonnull__(pTHX_3); 2051 2052 PERL_CALLCONV void Perl_save_hptr(pTHX_ HV** hptr) 2053 __attribute__nonnull__(pTHX_1); 2054 2055 PERL_CALLCONV void Perl_save_I16(pTHX_ I16* intp) 2056 __attribute__nonnull__(pTHX_1); 2057 2058 PERL_CALLCONV void Perl_save_I32(pTHX_ I32* intp) 2059 __attribute__nonnull__(pTHX_1); 2060 2061 PERL_CALLCONV void Perl_save_I8(pTHX_ I8* bytep) 2062 __attribute__nonnull__(pTHX_1); 2063 2064 PERL_CALLCONV void Perl_save_int(pTHX_ int* intp) 2065 __attribute__nonnull__(pTHX_1); 2066 2067 PERL_CALLCONV void Perl_save_item(pTHX_ SV* item) 2068 __attribute__nonnull__(pTHX_1); 2069 2070 PERL_CALLCONV void Perl_save_iv(pTHX_ IV* iv) 2071 __attribute__nonnull__(pTHX_1); 2072 2073 PERL_CALLCONV void Perl_save_list(pTHX_ SV** sarg, I32 maxsarg) 2074 __attribute__nonnull__(pTHX_1); 2075 2076 PERL_CALLCONV void Perl_save_long(pTHX_ long* longp) 2077 __attribute__nonnull__(pTHX_1); 2078 2079 PERL_CALLCONV void Perl_save_mortalizesv(pTHX_ SV* sv) 2080 __attribute__nonnull__(pTHX_1); 2081 2082 PERL_CALLCONV void Perl_save_nogv(pTHX_ GV* gv); 2083 PERL_CALLCONV void Perl_save_op(pTHX); 2084 PERL_CALLCONV SV* Perl_save_scalar(pTHX_ GV* gv) 2085 __attribute__nonnull__(pTHX_1); 2086 2087 PERL_CALLCONV void Perl_save_pptr(pTHX_ char** pptr) 2088 __attribute__nonnull__(pTHX_1); 2089 2090 PERL_CALLCONV void Perl_save_vptr(pTHX_ void* pptr) 2091 __attribute__nonnull__(pTHX_1); 2092 2093 PERL_CALLCONV void Perl_save_re_context(pTHX); 2094 PERL_CALLCONV void Perl_save_padsv(pTHX_ PADOFFSET off); 2095 PERL_CALLCONV void Perl_save_sptr(pTHX_ SV** sptr) 2096 __attribute__nonnull__(pTHX_1); 2097 2098 PERL_CALLCONV SV* Perl_save_svref(pTHX_ SV** sptr) 2099 __attribute__nonnull__(pTHX_1); 2100 2101 PERL_CALLCONV OP* Perl_sawparens(pTHX_ OP* o); 2102 PERL_CALLCONV OP* Perl_scalar(pTHX_ OP* o); 2103 PERL_CALLCONV OP* Perl_scalarkids(pTHX_ OP* o); 2104 PERL_CALLCONV OP* Perl_scalarseq(pTHX_ OP* o); 2105 PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o) 2106 __attribute__nonnull__(pTHX_1); 2107 2108 PERL_CALLCONV NV Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen) 2109 __attribute__nonnull__(pTHX_1) 2110 __attribute__nonnull__(pTHX_3); 2111 2112 PERL_CALLCONV NV Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen) 2113 __attribute__nonnull__(pTHX_1) 2114 __attribute__nonnull__(pTHX_3); 2115 2116 PERL_CALLCONV char* Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp) 2117 __attribute__nonnull__(pTHX_1) 2118 __attribute__nonnull__(pTHX_2); 2119 2120 PERL_CALLCONV NV Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen) 2121 __attribute__nonnull__(pTHX_1) 2122 __attribute__nonnull__(pTHX_3); 2123 2124 PERL_CALLCONV OP* Perl_scope(pTHX_ OP* o); 2125 PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *oldposp, I32 last) 2126 __attribute__nonnull__(pTHX_1) 2127 __attribute__nonnull__(pTHX_2) 2128 __attribute__nonnull__(pTHX_5); 2129 2130 #if !defined(VMS) 2131 PERL_CALLCONV I32 Perl_setenv_getix(pTHX_ const char* nam) 2132 __attribute__nonnull__(pTHX_1); 2133 2134 #endif 2135 PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv); 2136 PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash) 2137 __attribute__nonnull__(pTHX_1); 2138 2139 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) 2140 PERL_CALLCONV Signal_t Perl_sighandler(int sig, siginfo_t *info, void *uap); 2141 PERL_CALLCONV Signal_t Perl_csighandler(int sig, siginfo_t *info, void *uap); 2142 #else 2143 PERL_CALLCONV Signal_t Perl_sighandler(int sig); 2144 PERL_CALLCONV Signal_t Perl_csighandler(int sig); 2145 #endif 2146 PERL_CALLCONV SV** Perl_stack_grow(pTHX_ SV** sp, SV** p, int n) 2147 __attribute__nonnull__(pTHX_1) 2148 __attribute__nonnull__(pTHX_2); 2149 2150 PERL_CALLCONV I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags); 2151 PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv) 2152 __attribute__nonnull__(pTHX_1); 2153 2154 PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV* sv) 2155 __attribute__nonnull__(pTHX_1); 2156 2157 PERL_CALLCONV CV* Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref) 2158 __attribute__nonnull__(pTHX_2) 2159 __attribute__nonnull__(pTHX_3); 2160 2161 PERL_CALLCONV IO* Perl_sv_2io(pTHX_ SV* sv) 2162 __attribute__nonnull__(pTHX_1); 2163 2164 #ifdef PERL_IN_SV_C 2165 STATIC bool S_glob_2number(pTHX_ GV* const gv) 2166 __attribute__nonnull__(pTHX_1); 2167 2168 STATIC char* S_glob_2pv(pTHX_ GV* const gv, STRLEN * const len) 2169 __attribute__nonnull__(pTHX_1); 2170 2171 #endif 2172 /* PERL_CALLCONV IV Perl_sv_2iv(pTHX_ SV* sv) 2173 __attribute__nonnull__(pTHX_1); */ 2174 2175 PERL_CALLCONV IV Perl_sv_2iv_flags(pTHX_ SV* sv, I32 flags) 2176 __attribute__nonnull__(pTHX_1); 2177 2178 PERL_CALLCONV SV* Perl_sv_2mortal(pTHX_ SV* sv); 2179 PERL_CALLCONV NV Perl_sv_2nv(pTHX_ SV* sv) 2180 __attribute__nonnull__(pTHX_1); 2181 2182 PERL_CALLCONV SV* Perl_sv_2num(pTHX_ SV* sv) 2183 __attribute__nonnull__(pTHX_1); 2184 2185 /* PERL_CALLCONV char* Perl_sv_2pv(pTHX_ SV* sv, STRLEN* lp) 2186 __attribute__nonnull__(pTHX_1); */ 2187 2188 PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags) 2189 __attribute__nonnull__(pTHX_1); 2190 2191 PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp) 2192 __attribute__nonnull__(pTHX_1); 2193 2194 PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp) 2195 __attribute__nonnull__(pTHX_1); 2196 2197 PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp) 2198 __attribute__nonnull__(pTHX_1); 2199 2200 /* PERL_CALLCONV UV Perl_sv_2uv(pTHX_ SV* sv) 2201 __attribute__nonnull__(pTHX_1); */ 2202 2203 PERL_CALLCONV UV Perl_sv_2uv_flags(pTHX_ SV* sv, I32 flags) 2204 __attribute__nonnull__(pTHX_1); 2205 2206 PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv) 2207 __attribute__nonnull__(pTHX_1); 2208 2209 PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv) 2210 __attribute__nonnull__(pTHX_1); 2211 2212 PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv) 2213 __attribute__nonnull__(pTHX_1); 2214 2215 PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len) 2216 __attribute__nonnull__(pTHX_1) 2217 __attribute__nonnull__(pTHX_2); 2218 2219 PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *len) 2220 __attribute__nonnull__(pTHX_1) 2221 __attribute__nonnull__(pTHX_2); 2222 2223 PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len) 2224 __attribute__nonnull__(pTHX_1) 2225 __attribute__nonnull__(pTHX_2); 2226 2227 PERL_CALLCONV I32 Perl_sv_true(pTHX_ SV *sv); 2228 PERL_CALLCONV void Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags) 2229 __attribute__nonnull__(pTHX_1); 2230 2231 PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV* sv) 2232 __attribute__nonnull__(pTHX_1); 2233 2234 PERL_CALLCONV SV* Perl_sv_bless(pTHX_ SV* sv, HV* stash) 2235 __attribute__nonnull__(pTHX_1) 2236 __attribute__nonnull__(pTHX_2); 2237 2238 PERL_CALLCONV void Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...) 2239 __attribute__format__(__printf__,pTHX_2,pTHX_3) 2240 __attribute__nonnull__(pTHX_1) 2241 __attribute__nonnull__(pTHX_2); 2242 2243 PERL_CALLCONV void Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args) 2244 __attribute__nonnull__(pTHX_1) 2245 __attribute__nonnull__(pTHX_2); 2246 2247 PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV* sv, const char* ptr) 2248 __attribute__nonnull__(pTHX_1) 2249 __attribute__nonnull__(pTHX_2); 2250 2251 /* PERL_CALLCONV void Perl_sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len) 2252 __attribute__nonnull__(pTHX_1) 2253 __attribute__nonnull__(pTHX_2); */ 2254 2255 /* PERL_CALLCONV void Perl_sv_catsv(pTHX_ SV* dsv, SV* ssv) 2256 __attribute__nonnull__(pTHX_1); */ 2257 2258 PERL_CALLCONV void Perl_sv_chop(pTHX_ SV* sv, const char* ptr) 2259 __attribute__nonnull__(pTHX_1); 2260 2261 PERL_CALLCONV I32 Perl_sv_clean_all(pTHX); 2262 PERL_CALLCONV void Perl_sv_clean_objs(pTHX); 2263 PERL_CALLCONV void Perl_sv_clear(pTHX_ SV* sv) 2264 __attribute__nonnull__(pTHX_1); 2265 2266 PERL_CALLCONV I32 Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2) 2267 __attribute__nonnull__(pTHX_1) 2268 __attribute__nonnull__(pTHX_2); 2269 2270 PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2) 2271 __attribute__nonnull__(pTHX_1) 2272 __attribute__nonnull__(pTHX_2); 2273 2274 #if defined(USE_LOCALE_COLLATE) 2275 PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp) 2276 __attribute__nonnull__(pTHX_1) 2277 __attribute__nonnull__(pTHX_2); 2278 2279 #endif 2280 PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, const char* code, PAD** padp) 2281 __attribute__nonnull__(pTHX_1) 2282 __attribute__nonnull__(pTHX_2) 2283 __attribute__nonnull__(pTHX_3) 2284 __attribute__nonnull__(pTHX_4); 2285 2286 PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv) 2287 __attribute__nonnull__(pTHX_1); 2288 2289 PERL_CALLCONV void Perl_sv_dec(pTHX_ SV* sv) 2290 __attribute__nonnull__(pTHX_1); 2291 2292 PERL_CALLCONV void Perl_sv_dump(pTHX_ SV* sv) 2293 __attribute__nonnull__(pTHX_1); 2294 2295 PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char* name) 2296 __attribute__warn_unused_result__ 2297 __attribute__nonnull__(pTHX_1) 2298 __attribute__nonnull__(pTHX_2); 2299 2300 PERL_CALLCONV bool Perl_sv_does(pTHX_ SV* sv, const char* name) 2301 __attribute__warn_unused_result__ 2302 __attribute__nonnull__(pTHX_1) 2303 __attribute__nonnull__(pTHX_2); 2304 2305 PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2); 2306 PERL_CALLCONV void Perl_sv_free(pTHX_ SV* sv); 2307 PERL_CALLCONV void Perl_sv_free2(pTHX_ SV* sv) 2308 __attribute__nonnull__(pTHX_1); 2309 2310 PERL_CALLCONV void Perl_sv_free_arenas(pTHX); 2311 PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append) 2312 __attribute__nonnull__(pTHX_1) 2313 __attribute__nonnull__(pTHX_2); 2314 2315 PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen) 2316 __attribute__nonnull__(pTHX_1); 2317 2318 PERL_CALLCONV void Perl_sv_inc(pTHX_ SV* sv) 2319 __attribute__nonnull__(pTHX_1); 2320 2321 PERL_CALLCONV void Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, const char* little, STRLEN littlelen) 2322 __attribute__nonnull__(pTHX_1) 2323 __attribute__nonnull__(pTHX_4); 2324 2325 PERL_CALLCONV int Perl_sv_isa(pTHX_ SV* sv, const char* name) 2326 __attribute__nonnull__(pTHX_2); 2327 2328 PERL_CALLCONV int Perl_sv_isobject(pTHX_ SV* sv); 2329 PERL_CALLCONV STRLEN Perl_sv_len(pTHX_ SV* sv); 2330 PERL_CALLCONV STRLEN Perl_sv_len_utf8(pTHX_ SV* sv); 2331 PERL_CALLCONV void Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen) 2332 __attribute__nonnull__(pTHX_1); 2333 2334 PERL_CALLCONV MAGIC * Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, const MGVTBL *vtbl, const char* name, I32 namlen) 2335 __attribute__nonnull__(pTHX_1); 2336 2337 PERL_CALLCONV SV* Perl_sv_mortalcopy(pTHX_ SV* oldsv) 2338 __attribute__malloc__ 2339 __attribute__warn_unused_result__; 2340 2341 PERL_CALLCONV SV* Perl_sv_newmortal(pTHX) 2342 __attribute__warn_unused_result__; 2343 2344 PERL_CALLCONV SV* Perl_sv_newref(pTHX_ SV* sv); 2345 PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv); 2346 PERL_CALLCONV void Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp) 2347 __attribute__nonnull__(pTHX_2); 2348 2349 PERL_CALLCONV void Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp) 2350 __attribute__nonnull__(pTHX_2); 2351 2352 /* PERL_CALLCONV char* Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp) 2353 __attribute__nonnull__(pTHX_1); */ 2354 2355 PERL_CALLCONV char* Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp) 2356 __attribute__nonnull__(pTHX_1); 2357 2358 PERL_CALLCONV char* Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp) 2359 __attribute__nonnull__(pTHX_1); 2360 2361 PERL_CALLCONV char* Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding) 2362 __attribute__nonnull__(pTHX_1) 2363 __attribute__nonnull__(pTHX_2); 2364 2365 PERL_CALLCONV bool Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen) 2366 __attribute__nonnull__(pTHX_1) 2367 __attribute__nonnull__(pTHX_2) 2368 __attribute__nonnull__(pTHX_3) 2369 __attribute__nonnull__(pTHX_4) 2370 __attribute__nonnull__(pTHX_5); 2371 2372 PERL_CALLCONV const char* Perl_sv_reftype(pTHX_ const SV* sv, int ob) 2373 __attribute__warn_unused_result__ 2374 __attribute__nonnull__(pTHX_1); 2375 2376 PERL_CALLCONV void Perl_sv_replace(pTHX_ SV* sv, SV* nsv) 2377 __attribute__nonnull__(pTHX_1) 2378 __attribute__nonnull__(pTHX_2); 2379 2380 PERL_CALLCONV void Perl_sv_report_used(pTHX); 2381 PERL_CALLCONV void Perl_sv_reset(pTHX_ const char* s, HV* stash) 2382 __attribute__nonnull__(pTHX_1); 2383 2384 PERL_CALLCONV void Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...) 2385 __attribute__format__(__printf__,pTHX_2,pTHX_3) 2386 __attribute__nonnull__(pTHX_1) 2387 __attribute__nonnull__(pTHX_2); 2388 2389 PERL_CALLCONV void Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args) 2390 __attribute__nonnull__(pTHX_1) 2391 __attribute__nonnull__(pTHX_2); 2392 2393 PERL_CALLCONV void Perl_sv_setiv(pTHX_ SV* sv, IV num) 2394 __attribute__nonnull__(pTHX_1); 2395 2396 PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV* sv, IV num) 2397 __attribute__nonnull__(pTHX_1); 2398 2399 PERL_CALLCONV void Perl_sv_setuv(pTHX_ SV* sv, UV num) 2400 __attribute__nonnull__(pTHX_1); 2401 2402 PERL_CALLCONV void Perl_sv_setnv(pTHX_ SV* sv, NV num) 2403 __attribute__nonnull__(pTHX_1); 2404 2405 PERL_CALLCONV SV* Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv) 2406 __attribute__nonnull__(pTHX_1); 2407 2408 PERL_CALLCONV SV* Perl_sv_setref_uv(pTHX_ SV* rv, const char* classname, UV uv) 2409 __attribute__nonnull__(pTHX_1); 2410 2411 PERL_CALLCONV SV* Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv) 2412 __attribute__nonnull__(pTHX_1); 2413 2414 PERL_CALLCONV SV* Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv) 2415 __attribute__nonnull__(pTHX_1); 2416 2417 PERL_CALLCONV SV* Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, const char* pv, STRLEN n) 2418 __attribute__nonnull__(pTHX_1) 2419 __attribute__nonnull__(pTHX_3); 2420 2421 PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV* sv, const char* ptr) 2422 __attribute__nonnull__(pTHX_1); 2423 2424 PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len) 2425 __attribute__nonnull__(pTHX_1); 2426 2427 /* PERL_CALLCONV void Perl_sv_setsv(pTHX_ SV* dsv, SV* ssv) 2428 __attribute__nonnull__(pTHX_1); */ 2429 2430 /* PERL_CALLCONV void Perl_sv_taint(pTHX_ SV* sv) 2431 __attribute__nonnull__(pTHX_1); */ 2432 2433 PERL_CALLCONV bool Perl_sv_tainted(pTHX_ SV* sv) 2434 __attribute__warn_unused_result__ 2435 __attribute__nonnull__(pTHX_1); 2436 2437 PERL_CALLCONV int Perl_sv_unmagic(pTHX_ SV* sv, int type) 2438 __attribute__nonnull__(pTHX_1); 2439 2440 /* PERL_CALLCONV void Perl_sv_unref(pTHX_ SV* sv) 2441 __attribute__nonnull__(pTHX_1); */ 2442 2443 PERL_CALLCONV void Perl_sv_unref_flags(pTHX_ SV* sv, U32 flags) 2444 __attribute__nonnull__(pTHX_1); 2445 2446 PERL_CALLCONV void Perl_sv_untaint(pTHX_ SV* sv) 2447 __attribute__nonnull__(pTHX_1); 2448 2449 PERL_CALLCONV void Perl_sv_upgrade(pTHX_ SV* sv, svtype new_type) 2450 __attribute__nonnull__(pTHX_1); 2451 2452 /* PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len) 2453 __attribute__nonnull__(pTHX_1); */ 2454 2455 PERL_CALLCONV void Perl_sv_usepvn_flags(pTHX_ SV* sv, char* ptr, STRLEN len, U32 flags) 2456 __attribute__nonnull__(pTHX_1); 2457 2458 PERL_CALLCONV void Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) 2459 __attribute__nonnull__(pTHX_1) 2460 __attribute__nonnull__(pTHX_2); 2461 2462 PERL_CALLCONV void Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) 2463 __attribute__nonnull__(pTHX_1) 2464 __attribute__nonnull__(pTHX_2); 2465 2466 PERL_CALLCONV NV Perl_str_to_version(pTHX_ SV *sv) 2467 __attribute__warn_unused_result__ 2468 __attribute__nonnull__(pTHX_1); 2469 2470 PERL_CALLCONV SV* Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none) 2471 __attribute__nonnull__(pTHX_1) 2472 __attribute__nonnull__(pTHX_2) 2473 __attribute__nonnull__(pTHX_3); 2474 2475 PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8) 2476 __attribute__nonnull__(pTHX_1) 2477 __attribute__nonnull__(pTHX_2); 2478 2479 PERL_CALLCONV void Perl_taint_env(pTHX); 2480 PERL_CALLCONV void Perl_taint_proper(pTHX_ const char* f, const char* s) 2481 __attribute__nonnull__(pTHX_2); 2482 2483 PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special) 2484 __attribute__nonnull__(pTHX_1) 2485 __attribute__nonnull__(pTHX_2) 2486 __attribute__nonnull__(pTHX_4) 2487 __attribute__nonnull__(pTHX_5) 2488 __attribute__nonnull__(pTHX_6); 2489 2490 PERL_CALLCONV UV Perl_to_utf8_lower(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) 2491 __attribute__nonnull__(pTHX_1) 2492 __attribute__nonnull__(pTHX_2); 2493 2494 PERL_CALLCONV UV Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) 2495 __attribute__nonnull__(pTHX_1) 2496 __attribute__nonnull__(pTHX_2); 2497 2498 PERL_CALLCONV UV Perl_to_utf8_title(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) 2499 __attribute__nonnull__(pTHX_1) 2500 __attribute__nonnull__(pTHX_2); 2501 2502 PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) 2503 __attribute__nonnull__(pTHX_1) 2504 __attribute__nonnull__(pTHX_2); 2505 2506 #if defined(UNLINK_ALL_VERSIONS) 2507 PERL_CALLCONV I32 Perl_unlnk(pTHX_ const char* f) 2508 __attribute__nonnull__(pTHX_1); 2509 2510 #endif 2511 PERL_CALLCONV I32 Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags) 2512 __attribute__nonnull__(pTHX_1) 2513 __attribute__nonnull__(pTHX_2) 2514 __attribute__nonnull__(pTHX_3) 2515 __attribute__nonnull__(pTHX_5); 2516 2517 PERL_CALLCONV I32 Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags) 2518 __attribute__nonnull__(pTHX_1) 2519 __attribute__nonnull__(pTHX_2) 2520 __attribute__nonnull__(pTHX_3) 2521 __attribute__nonnull__(pTHX_4); 2522 2523 PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash); 2524 PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek); 2525 #ifdef PERL_MAD 2526 PERL_CALLCONV OP * Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg) 2527 __attribute__nonnull__(pTHX_4); 2528 2529 #else 2530 PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg) 2531 __attribute__nonnull__(pTHX_4); 2532 2533 #endif 2534 PERL_CALLCONV U8* Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen) 2535 __attribute__nonnull__(pTHX_1) 2536 __attribute__nonnull__(pTHX_2) 2537 __attribute__nonnull__(pTHX_4); 2538 2539 PERL_CALLCONV U8* Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen) 2540 __attribute__nonnull__(pTHX_1) 2541 __attribute__nonnull__(pTHX_2) 2542 __attribute__nonnull__(pTHX_4); 2543 2544 PERL_CALLCONV STRLEN Perl_utf8_length(pTHX_ const U8* s, const U8 *e) 2545 __attribute__warn_unused_result__ 2546 __attribute__pure__ 2547 __attribute__nonnull__(pTHX_1) 2548 __attribute__nonnull__(pTHX_2); 2549 2550 PERL_CALLCONV IV Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b) 2551 __attribute__warn_unused_result__ 2552 __attribute__pure__ 2553 __attribute__nonnull__(pTHX_1) 2554 __attribute__nonnull__(pTHX_2); 2555 2556 PERL_CALLCONV U8* Perl_utf8_hop(pTHX_ const U8 *s, I32 off) 2557 __attribute__warn_unused_result__ 2558 __attribute__pure__ 2559 __attribute__nonnull__(pTHX_1); 2560 2561 PERL_CALLCONV U8* Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len) 2562 __attribute__nonnull__(pTHX_1) 2563 __attribute__nonnull__(pTHX_2); 2564 2565 PERL_CALLCONV U8* Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8) 2566 __attribute__nonnull__(pTHX_1) 2567 __attribute__nonnull__(pTHX_2); 2568 2569 PERL_CALLCONV U8* Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len) 2570 __attribute__nonnull__(pTHX_1) 2571 __attribute__nonnull__(pTHX_2); 2572 2573 PERL_CALLCONV UV Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen) 2574 __attribute__nonnull__(pTHX_1); 2575 2576 PERL_CALLCONV UV Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen) 2577 __attribute__nonnull__(pTHX_1); 2578 2579 2580 #ifdef EBCDIC 2581 PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) 2582 __attribute__nonnull__(pTHX_1); 2583 2584 #else 2585 /* PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) 2586 __attribute__nonnull__(pTHX_1); */ 2587 2588 #endif 2589 2590 PERL_CALLCONV UV Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) 2591 __attribute__nonnull__(pTHX_1); 2592 2593 2594 #ifdef EBCDIC 2595 PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv) 2596 __attribute__nonnull__(pTHX_1); 2597 2598 #else 2599 /* PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv) 2600 __attribute__nonnull__(pTHX_1); */ 2601 2602 #endif 2603 2604 /* PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv) 2605 __attribute__nonnull__(pTHX_1); */ 2606 2607 PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) 2608 __attribute__nonnull__(pTHX_1); 2609 2610 PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) 2611 __attribute__nonnull__(pTHX_1); 2612 2613 PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags) 2614 __attribute__nonnull__(pTHX_1) 2615 __attribute__nonnull__(pTHX_2); 2616 2617 PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags) 2618 __attribute__warn_unused_result__ 2619 __attribute__nonnull__(pTHX_1) 2620 __attribute__nonnull__(pTHX_2); 2621 2622 PERL_CALLCONV void Perl_vivify_defelem(pTHX_ SV* sv) 2623 __attribute__nonnull__(pTHX_1); 2624 2625 PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what) 2626 __attribute__nonnull__(pTHX_1); 2627 2628 PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags) 2629 __attribute__nonnull__(pTHX_2); 2630 2631 PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ const char **popt) 2632 __attribute__nonnull__(pTHX_1); 2633 2634 PERL_CALLCONV U32 Perl_seed(pTHX); 2635 PERL_CALLCONV UV Perl_get_hash_seed(pTHX) 2636 __attribute__warn_unused_result__; 2637 2638 PERL_CALLCONV void Perl_report_evil_fh(pTHX_ const GV *gv, const IO *io, I32 op); 2639 PERL_CALLCONV void Perl_report_uninit(pTHX_ SV* uninit_sv); 2640 PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...) 2641 __attribute__format__(__printf__,pTHX_1,pTHX_2) 2642 __attribute__nonnull__(pTHX_1); 2643 2644 PERL_CALLCONV void Perl_vwarn(pTHX_ const char* pat, va_list* args) 2645 __attribute__nonnull__(pTHX_1); 2646 2647 PERL_CALLCONV void Perl_warner(pTHX_ U32 err, const char* pat, ...) 2648 __attribute__format__(__printf__,pTHX_2,pTHX_3) 2649 __attribute__nonnull__(pTHX_2); 2650 2651 PERL_CALLCONV void Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) 2652 __attribute__nonnull__(pTHX_2); 2653 2654 PERL_CALLCONV void Perl_watch(pTHX_ char** addr) 2655 __attribute__nonnull__(pTHX_1); 2656 2657 PERL_CALLCONV I32 Perl_whichsig(pTHX_ const char* sig) 2658 __attribute__nonnull__(pTHX_1); 2659 2660 PERL_CALLCONV void Perl_write_to_stderr(pTHX_ const char* message, int msglen) 2661 __attribute__nonnull__(pTHX_1); 2662 2663 PERL_CALLCONV int Perl_yyerror(pTHX_ const char* s) 2664 __attribute__nonnull__(pTHX_1); 2665 2666 PERL_CALLCONV int Perl_yylex(pTHX); 2667 PERL_CALLCONV int Perl_yyparse(pTHX); 2668 PERL_CALLCONV void Perl_parser_free(pTHX_ const yy_parser *) 2669 __attribute__nonnull__(pTHX_1); 2670 2671 PERL_CALLCONV int Perl_yywarn(pTHX_ const char* s) 2672 __attribute__nonnull__(pTHX_1); 2673 2674 #if defined(MYMALLOC) 2675 PERL_CALLCONV void Perl_dump_mstats(pTHX_ char* s) 2676 __attribute__nonnull__(pTHX_1); 2677 2678 PERL_CALLCONV int Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level) 2679 __attribute__nonnull__(pTHX_1); 2680 2681 #endif 2682 PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes) 2683 __attribute__malloc__ 2684 __attribute__warn_unused_result__; 2685 2686 PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) 2687 __attribute__malloc__ 2688 __attribute__warn_unused_result__; 2689 2690 PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) 2691 __attribute__malloc__ 2692 __attribute__warn_unused_result__; 2693 2694 PERL_CALLCONV Free_t Perl_safesysfree(Malloc_t where); 2695 #if defined(PERL_GLOBAL_STRUCT) 2696 PERL_CALLCONV struct perl_vars * Perl_GetVars(pTHX); 2697 PERL_CALLCONV struct perl_vars* Perl_init_global_struct(pTHX); 2698 PERL_CALLCONV void Perl_free_global_struct(pTHX_ struct perl_vars *plvarsp) 2699 __attribute__nonnull__(pTHX_1); 2700 2701 #endif 2702 PERL_CALLCONV int Perl_runops_standard(pTHX); 2703 PERL_CALLCONV int Perl_runops_debug(pTHX); 2704 PERL_CALLCONV void Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...) 2705 __attribute__format__(__printf__,pTHX_2,pTHX_3) 2706 __attribute__nonnull__(pTHX_1) 2707 __attribute__nonnull__(pTHX_2); 2708 2709 PERL_CALLCONV void Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args) 2710 __attribute__nonnull__(pTHX_1) 2711 __attribute__nonnull__(pTHX_2); 2712 2713 PERL_CALLCONV void Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr) 2714 __attribute__nonnull__(pTHX_1) 2715 __attribute__nonnull__(pTHX_2); 2716 2717 /* PERL_CALLCONV void Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len) 2718 __attribute__nonnull__(pTHX_1) 2719 __attribute__nonnull__(pTHX_2); */ 2720 2721 /* PERL_CALLCONV void Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr) 2722 __attribute__nonnull__(pTHX_1); */ 2723 2724 PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...) 2725 __attribute__format__(__printf__,pTHX_2,pTHX_3) 2726 __attribute__nonnull__(pTHX_1) 2727 __attribute__nonnull__(pTHX_2); 2728 2729 PERL_CALLCONV void Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args) 2730 __attribute__nonnull__(pTHX_1) 2731 __attribute__nonnull__(pTHX_2); 2732 2733 PERL_CALLCONV void Perl_sv_setiv_mg(pTHX_ SV *sv, IV i) 2734 __attribute__nonnull__(pTHX_1); 2735 2736 PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv) 2737 __attribute__nonnull__(pTHX_1); 2738 2739 PERL_CALLCONV void Perl_sv_setuv_mg(pTHX_ SV *sv, UV u) 2740 __attribute__nonnull__(pTHX_1); 2741 2742 PERL_CALLCONV void Perl_sv_setnv_mg(pTHX_ SV *sv, NV num) 2743 __attribute__nonnull__(pTHX_1); 2744 2745 PERL_CALLCONV void Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr) 2746 __attribute__nonnull__(pTHX_1); 2747 2748 PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len) 2749 __attribute__nonnull__(pTHX_1) 2750 __attribute__nonnull__(pTHX_2); 2751 2752 PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr) 2753 __attribute__nonnull__(pTHX_1); 2754 2755 /* PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len) 2756 __attribute__nonnull__(pTHX_1); */ 2757 2758 PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id) 2759 __attribute__warn_unused_result__; 2760 2761 PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim) 2762 __attribute__nonnull__(pTHX_1) 2763 __attribute__nonnull__(pTHX_2); 2764 2765 PERL_CALLCONV char* Perl_pv_escape(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags) 2766 __attribute__nonnull__(pTHX_1) 2767 __attribute__nonnull__(pTHX_2); 2768 2769 PERL_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) 2770 __attribute__nonnull__(pTHX_1) 2771 __attribute__nonnull__(pTHX_2); 2772 2773 PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) 2774 __attribute__format__(__printf__,pTHX_3,pTHX_4) 2775 __attribute__nonnull__(pTHX_2) 2776 __attribute__nonnull__(pTHX_3); 2777 2778 PERL_CALLCONV void Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args) 2779 __attribute__nonnull__(pTHX_2) 2780 __attribute__nonnull__(pTHX_3); 2781 2782 PERL_CALLCONV void Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv) 2783 __attribute__nonnull__(pTHX_2) 2784 __attribute__nonnull__(pTHX_3); 2785 2786 PERL_CALLCONV void Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv) 2787 __attribute__nonnull__(pTHX_2) 2788 __attribute__nonnull__(pTHX_3); 2789 2790 PERL_CALLCONV void Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv) 2791 __attribute__nonnull__(pTHX_2) 2792 __attribute__nonnull__(pTHX_3); 2793 2794 PERL_CALLCONV void Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) 2795 __attribute__nonnull__(pTHX_2) 2796 __attribute__nonnull__(pTHX_3); 2797 2798 PERL_CALLCONV void Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) 2799 __attribute__nonnull__(pTHX_2); 2800 2801 PERL_CALLCONV void Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm) 2802 __attribute__nonnull__(pTHX_2); 2803 2804 PERL_CALLCONV void Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) 2805 __attribute__nonnull__(pTHX_2); 2806 2807 PERL_CALLCONV void Perl_magic_dump(pTHX_ const MAGIC *mg); 2808 PERL_CALLCONV void Perl_reginitcolors(pTHX); 2809 /* PERL_CALLCONV char* Perl_sv_2pv_nolen(pTHX_ SV* sv) 2810 __attribute__warn_unused_result__ 2811 __attribute__nonnull__(pTHX_1); */ 2812 2813 /* PERL_CALLCONV char* Perl_sv_2pvutf8_nolen(pTHX_ SV* sv) 2814 __attribute__warn_unused_result__ 2815 __attribute__nonnull__(pTHX_1); */ 2816 2817 /* PERL_CALLCONV char* Perl_sv_2pvbyte_nolen(pTHX_ SV* sv) 2818 __attribute__warn_unused_result__ 2819 __attribute__nonnull__(pTHX_1); */ 2820 2821 /* PERL_CALLCONV char* Perl_sv_pv(pTHX_ SV *sv) 2822 __attribute__warn_unused_result__ 2823 __attribute__nonnull__(pTHX_1); */ 2824 2825 /* PERL_CALLCONV char* Perl_sv_pvutf8(pTHX_ SV *sv) 2826 __attribute__warn_unused_result__ 2827 __attribute__nonnull__(pTHX_1); */ 2828 2829 /* PERL_CALLCONV char* Perl_sv_pvbyte(pTHX_ SV *sv) 2830 __attribute__warn_unused_result__ 2831 __attribute__nonnull__(pTHX_1); */ 2832 2833 /* PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade(pTHX_ SV *sv) 2834 __attribute__nonnull__(pTHX_1); */ 2835 2836 PERL_CALLCONV bool Perl_sv_utf8_downgrade(pTHX_ SV *sv, bool fail_ok) 2837 __attribute__nonnull__(pTHX_1); 2838 2839 PERL_CALLCONV void Perl_sv_utf8_encode(pTHX_ SV *sv) 2840 __attribute__nonnull__(pTHX_1); 2841 2842 PERL_CALLCONV bool Perl_sv_utf8_decode(pTHX_ SV *sv) 2843 __attribute__nonnull__(pTHX_1); 2844 2845 /* PERL_CALLCONV void Perl_sv_force_normal(pTHX_ SV *sv) 2846 __attribute__nonnull__(pTHX_1); */ 2847 2848 PERL_CALLCONV void Perl_sv_force_normal_flags(pTHX_ SV *sv, U32 flags) 2849 __attribute__nonnull__(pTHX_1); 2850 2851 PERL_CALLCONV void Perl_tmps_grow(pTHX_ I32 n); 2852 PERL_CALLCONV SV* Perl_sv_rvweaken(pTHX_ SV *sv) 2853 __attribute__nonnull__(pTHX_1); 2854 2855 PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg) 2856 __attribute__nonnull__(pTHX_1) 2857 __attribute__nonnull__(pTHX_2); 2858 2859 PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block); 2860 PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block); 2861 #ifdef PERL_MAD 2862 PERL_CALLCONV OP * Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) 2863 __attribute__noreturn__; 2864 2865 #else 2866 PERL_CALLCONV void Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) 2867 __attribute__noreturn__; 2868 2869 #endif 2870 PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs) 2871 __attribute__nonnull__(pTHX_1); 2872 2873 PERL_CALLCONV void Perl_boot_core_xsutils(pTHX); 2874 #if defined(USE_ITHREADS) 2875 PERL_CALLCONV PERL_CONTEXT* Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param) 2876 __attribute__warn_unused_result__ 2877 __attribute__nonnull__(pTHX_4); 2878 2879 PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param) 2880 __attribute__warn_unused_result__ 2881 __attribute__nonnull__(pTHX_2); 2882 2883 PERL_CALLCONV ANY* Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param) 2884 __attribute__malloc__ 2885 __attribute__warn_unused_result__ 2886 __attribute__nonnull__(pTHX_1) 2887 __attribute__nonnull__(pTHX_2); 2888 2889 PERL_CALLCONV void* Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_perl) 2890 __attribute__warn_unused_result__ 2891 __attribute__nonnull__(pTHX_2); 2892 2893 PERL_CALLCONV HE* Perl_he_dup(pTHX_ const HE* e, bool shared, CLONE_PARAMS* param) 2894 __attribute__warn_unused_result__ 2895 __attribute__nonnull__(pTHX_3); 2896 2897 PERL_CALLCONV HEK* Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param) 2898 __attribute__warn_unused_result__ 2899 __attribute__nonnull__(pTHX_2); 2900 2901 PERL_CALLCONV REGEXP* Perl_re_dup(pTHX_ const REGEXP* r, CLONE_PARAMS* param) 2902 __attribute__warn_unused_result__ 2903 __attribute__nonnull__(pTHX_2); 2904 2905 PERL_CALLCONV PerlIO* Perl_fp_dup(pTHX_ PerlIO* fp, char type, CLONE_PARAMS* param) 2906 __attribute__nonnull__(pTHX_3); 2907 2908 PERL_CALLCONV DIR* Perl_dirp_dup(pTHX_ DIR* dp) 2909 __attribute__warn_unused_result__; 2910 2911 PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP* gp, CLONE_PARAMS* param) 2912 __attribute__warn_unused_result__ 2913 __attribute__nonnull__(pTHX_2); 2914 2915 PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC* mg, CLONE_PARAMS* param) 2916 __attribute__warn_unused_result__ 2917 __attribute__nonnull__(pTHX_2); 2918 2919 PERL_CALLCONV SV* Perl_sv_dup(pTHX_ const SV* sstr, CLONE_PARAMS* param) 2920 __attribute__warn_unused_result__ 2921 __attribute__nonnull__(pTHX_2); 2922 2923 PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV* dstr, const SV *sstr, CLONE_PARAMS* param) 2924 __attribute__nonnull__(pTHX_1) 2925 __attribute__nonnull__(pTHX_2) 2926 __attribute__nonnull__(pTHX_3); 2927 2928 PERL_CALLCONV yy_parser* Perl_parser_dup(pTHX_ const yy_parser *proto, CLONE_PARAMS* param) 2929 __attribute__nonnull__(pTHX_1) 2930 __attribute__nonnull__(pTHX_2); 2931 2932 #endif 2933 PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX) 2934 __attribute__malloc__ 2935 __attribute__warn_unused_result__; 2936 2937 PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv) 2938 __attribute__warn_unused_result__ 2939 __attribute__nonnull__(pTHX_1) 2940 __attribute__nonnull__(pTHX_2); 2941 2942 PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv) 2943 __attribute__nonnull__(pTHX_1) 2944 __attribute__nonnull__(pTHX_3); 2945 2946 PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl) 2947 __attribute__nonnull__(pTHX_1); 2948 2949 PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl); 2950 PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl); 2951 #if defined(USE_ITHREADS) 2952 # if defined(HAVE_INTERP_INTERN) 2953 PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst) 2954 __attribute__nonnull__(pTHX_1) 2955 __attribute__nonnull__(pTHX_2); 2956 2957 # endif 2958 #endif 2959 #if defined(HAVE_INTERP_INTERN) 2960 PERL_CALLCONV void Perl_sys_intern_clear(pTHX); 2961 PERL_CALLCONV void Perl_sys_intern_init(pTHX); 2962 #endif 2963 2964 PERL_CALLCONV const char * Perl_custom_op_name(pTHX_ const OP* op) 2965 __attribute__warn_unused_result__ 2966 __attribute__nonnull__(pTHX_1); 2967 2968 PERL_CALLCONV const char * Perl_custom_op_desc(pTHX_ const OP* op) 2969 __attribute__warn_unused_result__ 2970 __attribute__nonnull__(pTHX_1); 2971 2972 2973 PERL_CALLCONV void Perl_sv_nosharing(pTHX_ SV *sv); 2974 /* PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv); */ 2975 PERL_CALLCONV bool Perl_sv_destroyable(pTHX_ SV *sv); 2976 #ifdef NO_MATHOMS 2977 /* PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv); */ 2978 #else 2979 PERL_CALLCONV void Perl_sv_nounlocking(pTHX_ SV *sv); 2980 #endif 2981 PERL_CALLCONV int Perl_nothreadhook(pTHX); 2982 2983 END_EXTERN_C 2984 2985 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) 2986 STATIC I32 S_do_trans_simple(pTHX_ SV * const sv) 2987 __attribute__warn_unused_result__ 2988 __attribute__nonnull__(pTHX_1); 2989 2990 STATIC I32 S_do_trans_count(pTHX_ SV * const sv) 2991 __attribute__warn_unused_result__ 2992 __attribute__nonnull__(pTHX_1); 2993 2994 STATIC I32 S_do_trans_complex(pTHX_ SV * const sv) 2995 __attribute__warn_unused_result__ 2996 __attribute__nonnull__(pTHX_1); 2997 2998 STATIC I32 S_do_trans_simple_utf8(pTHX_ SV * const sv) 2999 __attribute__warn_unused_result__ 3000 __attribute__nonnull__(pTHX_1); 3001 3002 STATIC I32 S_do_trans_count_utf8(pTHX_ SV * const sv) 3003 __attribute__warn_unused_result__ 3004 __attribute__nonnull__(pTHX_1); 3005 3006 STATIC I32 S_do_trans_complex_utf8(pTHX_ SV * const sv) 3007 __attribute__warn_unused_result__ 3008 __attribute__nonnull__(pTHX_1); 3009 3010 #endif 3011 3012 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) 3013 STATIC void S_gv_init_sv(pTHX_ GV *gv, I32 sv_type) 3014 __attribute__nonnull__(pTHX_1); 3015 3016 STATIC HV* S_gv_get_super_pkg(pTHX_ const char* name, I32 namelen) 3017 __attribute__nonnull__(pTHX_1); 3018 3019 STATIC HV* S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methpv, const U32 flags) 3020 __attribute__nonnull__(pTHX_1) 3021 __attribute__nonnull__(pTHX_2) 3022 __attribute__nonnull__(pTHX_3) 3023 __attribute__nonnull__(pTHX_4); 3024 3025 #endif 3026 3027 PERL_CALLCONV void* Perl_get_arena(pTHX_ size_t svtype, U32 misc) 3028 __attribute__malloc__ 3029 __attribute__warn_unused_result__; 3030 3031 3032 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) 3033 STATIC void S_hsplit(pTHX_ HV *hv) 3034 __attribute__nonnull__(pTHX_1); 3035 3036 STATIC void S_hfreeentries(pTHX_ HV *hv) 3037 __attribute__nonnull__(pTHX_1); 3038 3039 STATIC HE* S_new_he(pTHX) 3040 __attribute__malloc__ 3041 __attribute__warn_unused_result__; 3042 3043 STATIC HEK* S_save_hek_flags(const char *str, I32 len, U32 hash, int flags) 3044 __attribute__malloc__ 3045 __attribute__warn_unused_result__ 3046 __attribute__nonnull__(1); 3047 3048 STATIC void S_hv_magic_check(HV *hv, bool *needs_copy, bool *needs_store) 3049 __attribute__nonnull__(1) 3050 __attribute__nonnull__(2) 3051 __attribute__nonnull__(3); 3052 3053 STATIC void S_unshare_hek_or_pvn(pTHX_ const HEK* hek, const char* str, I32 len, U32 hash); 3054 STATIC HEK* S_share_hek_flags(pTHX_ const char* sv, I32 len, U32 hash, int flags) 3055 __attribute__warn_unused_result__ 3056 __attribute__nonnull__(pTHX_1); 3057 3058 STATIC void S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg) 3059 __attribute__noreturn__ 3060 __attribute__nonnull__(pTHX_2) 3061 __attribute__nonnull__(pTHX_4); 3062 3063 STATIC struct xpvhv_aux* S_hv_auxinit(HV *hv) 3064 __attribute__nonnull__(1); 3065 3066 STATIC SV* S_hv_delete_common(pTHX_ HV* tb, SV* keysv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash); 3067 STATIC void S_clear_placeholders(pTHX_ HV* hb, U32 items) 3068 __attribute__nonnull__(pTHX_1); 3069 3070 STATIC SV * S_refcounted_he_value(pTHX_ const struct refcounted_he *he) 3071 __attribute__nonnull__(pTHX_1); 3072 3073 #endif 3074 3075 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) 3076 STATIC void S_save_magic(pTHX_ I32 mgs_ix, SV *sv) 3077 __attribute__nonnull__(pTHX_2); 3078 3079 STATIC int S_magic_methpack(pTHX_ SV *sv, const MAGIC *mg, const char *meth) 3080 __attribute__nonnull__(pTHX_1) 3081 __attribute__nonnull__(pTHX_2) 3082 __attribute__nonnull__(pTHX_3); 3083 3084 STATIC int S_magic_methcall(pTHX_ SV *sv, const MAGIC *mg, const char *meth, I32 f, int n, SV *val) 3085 __attribute__nonnull__(pTHX_1) 3086 __attribute__nonnull__(pTHX_2) 3087 __attribute__nonnull__(pTHX_3); 3088 3089 STATIC void S_restore_magic(pTHX_ const void *p) 3090 __attribute__nonnull__(pTHX_1); 3091 3092 STATIC void S_unwind_handler_stack(pTHX_ const void *p) 3093 __attribute__nonnull__(pTHX_1); 3094 3095 3096 #endif 3097 3098 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) 3099 PERL_CALLCONV OP* Perl_ck_anoncode(pTHX_ OP *o) 3100 __attribute__warn_unused_result__ 3101 __attribute__nonnull__(pTHX_1); 3102 3103 PERL_CALLCONV OP* Perl_ck_bitop(pTHX_ OP *o) 3104 __attribute__warn_unused_result__ 3105 __attribute__nonnull__(pTHX_1); 3106 3107 PERL_CALLCONV OP* Perl_ck_concat(pTHX_ OP *o) 3108 __attribute__warn_unused_result__ 3109 __attribute__nonnull__(pTHX_1); 3110 3111 PERL_CALLCONV OP* Perl_ck_defined(pTHX_ OP *o) 3112 __attribute__warn_unused_result__ 3113 __attribute__nonnull__(pTHX_1); 3114 3115 PERL_CALLCONV OP* Perl_ck_delete(pTHX_ OP *o) 3116 __attribute__warn_unused_result__ 3117 __attribute__nonnull__(pTHX_1); 3118 3119 PERL_CALLCONV OP* Perl_ck_die(pTHX_ OP *o) 3120 __attribute__warn_unused_result__ 3121 __attribute__nonnull__(pTHX_1); 3122 3123 PERL_CALLCONV OP* Perl_ck_eof(pTHX_ OP *o) 3124 __attribute__warn_unused_result__ 3125 __attribute__nonnull__(pTHX_1); 3126 3127 PERL_CALLCONV OP* Perl_ck_eval(pTHX_ OP *o) 3128 __attribute__warn_unused_result__ 3129 __attribute__nonnull__(pTHX_1); 3130 3131 PERL_CALLCONV OP* Perl_ck_exec(pTHX_ OP *o) 3132 __attribute__warn_unused_result__ 3133 __attribute__nonnull__(pTHX_1); 3134 3135 PERL_CALLCONV OP* Perl_ck_exists(pTHX_ OP *o) 3136 __attribute__warn_unused_result__ 3137 __attribute__nonnull__(pTHX_1); 3138 3139 PERL_CALLCONV OP* Perl_ck_exit(pTHX_ OP *o) 3140 __attribute__warn_unused_result__ 3141 __attribute__nonnull__(pTHX_1); 3142 3143 PERL_CALLCONV OP* Perl_ck_ftst(pTHX_ OP *o) 3144 __attribute__warn_unused_result__ 3145 __attribute__nonnull__(pTHX_1); 3146 3147 PERL_CALLCONV OP* Perl_ck_fun(pTHX_ OP *o) 3148 __attribute__warn_unused_result__ 3149 __attribute__nonnull__(pTHX_1); 3150 3151 PERL_CALLCONV OP* Perl_ck_glob(pTHX_ OP *o) 3152 __attribute__warn_unused_result__ 3153 __attribute__nonnull__(pTHX_1); 3154 3155 PERL_CALLCONV OP* Perl_ck_grep(pTHX_ OP *o) 3156 __attribute__warn_unused_result__ 3157 __attribute__nonnull__(pTHX_1); 3158 3159 PERL_CALLCONV OP* Perl_ck_index(pTHX_ OP *o) 3160 __attribute__warn_unused_result__ 3161 __attribute__nonnull__(pTHX_1); 3162 3163 PERL_CALLCONV OP* Perl_ck_join(pTHX_ OP *o) 3164 __attribute__warn_unused_result__ 3165 __attribute__nonnull__(pTHX_1); 3166 3167 PERL_CALLCONV OP* Perl_ck_lengthconst(pTHX_ OP *o) 3168 __attribute__warn_unused_result__ 3169 __attribute__nonnull__(pTHX_1); 3170 3171 PERL_CALLCONV OP* Perl_ck_lfun(pTHX_ OP *o) 3172 __attribute__warn_unused_result__ 3173 __attribute__nonnull__(pTHX_1); 3174 3175 PERL_CALLCONV OP* Perl_ck_listiob(pTHX_ OP *o) 3176 __attribute__warn_unused_result__ 3177 __attribute__nonnull__(pTHX_1); 3178 3179 PERL_CALLCONV OP* Perl_ck_match(pTHX_ OP *o) 3180 __attribute__warn_unused_result__ 3181 __attribute__nonnull__(pTHX_1); 3182 3183 PERL_CALLCONV OP* Perl_ck_method(pTHX_ OP *o) 3184 __attribute__warn_unused_result__ 3185 __attribute__nonnull__(pTHX_1); 3186 3187 PERL_CALLCONV OP* Perl_ck_null(pTHX_ OP *o) 3188 __attribute__warn_unused_result__ 3189 __attribute__nonnull__(pTHX_1); 3190 3191 PERL_CALLCONV OP* Perl_ck_open(pTHX_ OP *o) 3192 __attribute__warn_unused_result__ 3193 __attribute__nonnull__(pTHX_1); 3194 3195 PERL_CALLCONV OP* Perl_ck_readline(pTHX_ OP *o) 3196 __attribute__warn_unused_result__ 3197 __attribute__nonnull__(pTHX_1); 3198 3199 PERL_CALLCONV OP* Perl_ck_repeat(pTHX_ OP *o) 3200 __attribute__warn_unused_result__ 3201 __attribute__nonnull__(pTHX_1); 3202 3203 PERL_CALLCONV OP* Perl_ck_require(pTHX_ OP *o) 3204 __attribute__warn_unused_result__ 3205 __attribute__nonnull__(pTHX_1); 3206 3207 PERL_CALLCONV OP* Perl_ck_retarget(pTHX_ OP *o) 3208 __attribute__warn_unused_result__ 3209 __attribute__nonnull__(pTHX_1); 3210 3211 PERL_CALLCONV OP* Perl_ck_return(pTHX_ OP *o) 3212 __attribute__warn_unused_result__ 3213 __attribute__nonnull__(pTHX_1); 3214 3215 PERL_CALLCONV OP* Perl_ck_rfun(pTHX_ OP *o) 3216 __attribute__warn_unused_result__ 3217 __attribute__nonnull__(pTHX_1); 3218 3219 PERL_CALLCONV OP* Perl_ck_rvconst(pTHX_ OP *o) 3220 __attribute__warn_unused_result__ 3221 __attribute__nonnull__(pTHX_1); 3222 3223 PERL_CALLCONV OP* Perl_ck_sassign(pTHX_ OP *o) 3224 __attribute__warn_unused_result__ 3225 __attribute__nonnull__(pTHX_1); 3226 3227 PERL_CALLCONV OP* Perl_ck_select(pTHX_ OP *o) 3228 __attribute__warn_unused_result__ 3229 __attribute__nonnull__(pTHX_1); 3230 3231 PERL_CALLCONV OP* Perl_ck_shift(pTHX_ OP *o) 3232 __attribute__warn_unused_result__ 3233 __attribute__nonnull__(pTHX_1); 3234 3235 PERL_CALLCONV OP* Perl_ck_sort(pTHX_ OP *o) 3236 __attribute__warn_unused_result__ 3237 __attribute__nonnull__(pTHX_1); 3238 3239 PERL_CALLCONV OP* Perl_ck_spair(pTHX_ OP *o) 3240 __attribute__warn_unused_result__ 3241 __attribute__nonnull__(pTHX_1); 3242 3243 PERL_CALLCONV OP* Perl_ck_split(pTHX_ OP *o) 3244 __attribute__warn_unused_result__ 3245 __attribute__nonnull__(pTHX_1); 3246 3247 PERL_CALLCONV OP* Perl_ck_subr(pTHX_ OP *o) 3248 __attribute__warn_unused_result__ 3249 __attribute__nonnull__(pTHX_1); 3250 3251 PERL_CALLCONV OP* Perl_ck_substr(pTHX_ OP *o) 3252 __attribute__warn_unused_result__ 3253 __attribute__nonnull__(pTHX_1); 3254 3255 PERL_CALLCONV OP* Perl_ck_svconst(pTHX_ OP *o) 3256 __attribute__warn_unused_result__ 3257 __attribute__nonnull__(pTHX_1); 3258 3259 PERL_CALLCONV OP* Perl_ck_trunc(pTHX_ OP *o) 3260 __attribute__warn_unused_result__ 3261 __attribute__nonnull__(pTHX_1); 3262 3263 PERL_CALLCONV OP* Perl_ck_unpack(pTHX_ OP *o) 3264 __attribute__warn_unused_result__ 3265 __attribute__nonnull__(pTHX_1); 3266 3267 STATIC bool S_is_handle_constructor(const OP *o, I32 numargs) 3268 __attribute__warn_unused_result__ 3269 __attribute__nonnull__(1); 3270 3271 STATIC I32 S_is_list_assignment(pTHX_ const OP *o) 3272 __attribute__warn_unused_result__; 3273 3274 # ifdef USE_ITHREADS 3275 STATIC void S_forget_pmop(pTHX_ PMOP *const o, U32 flags) 3276 __attribute__nonnull__(pTHX_1); 3277 3278 # else 3279 STATIC void S_forget_pmop(pTHX_ PMOP *const o) 3280 __attribute__nonnull__(pTHX_1); 3281 3282 # endif 3283 STATIC void S_find_and_forget_pmops(pTHX_ OP *o) 3284 __attribute__nonnull__(pTHX_1); 3285 3286 STATIC void S_cop_free(pTHX_ COP *cop) 3287 __attribute__nonnull__(pTHX_1); 3288 3289 STATIC OP* S_modkids(pTHX_ OP *o, I32 type); 3290 STATIC OP* S_scalarboolean(pTHX_ OP *o) 3291 __attribute__nonnull__(pTHX_1); 3292 3293 STATIC OP* S_newDEFSVOP(pTHX) 3294 __attribute__warn_unused_result__; 3295 3296 STATIC OP* S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp) 3297 __attribute__warn_unused_result__ 3298 __attribute__nonnull__(pTHX_3) 3299 __attribute__nonnull__(pTHX_4); 3300 3301 STATIC void S_simplify_sort(pTHX_ OP *o) 3302 __attribute__nonnull__(pTHX_1); 3303 3304 STATIC const char* S_gv_ename(pTHX_ GV *gv) 3305 __attribute__nonnull__(pTHX_1); 3306 3307 STATIC bool S_scalar_mod_type(const OP *o, I32 type) 3308 __attribute__warn_unused_result__ 3309 __attribute__nonnull__(1); 3310 3311 STATIC OP * S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp) 3312 __attribute__nonnull__(pTHX_3); 3313 3314 STATIC OP * S_dup_attrlist(pTHX_ OP *o) 3315 __attribute__nonnull__(pTHX_1); 3316 3317 STATIC void S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my) 3318 __attribute__nonnull__(pTHX_1) 3319 __attribute__nonnull__(pTHX_2); 3320 3321 STATIC void S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp) 3322 __attribute__nonnull__(pTHX_1) 3323 __attribute__nonnull__(pTHX_2) 3324 __attribute__nonnull__(pTHX_4); 3325 3326 STATIC void S_bad_type(pTHX_ I32 n, const char *t, const char *name, const OP *kid) 3327 __attribute__nonnull__(pTHX_2) 3328 __attribute__nonnull__(pTHX_3) 3329 __attribute__nonnull__(pTHX_4); 3330 3331 STATIC void S_no_bareword_allowed(pTHX_ const OP *o) 3332 __attribute__nonnull__(pTHX_1); 3333 3334 STATIC OP* S_no_fh_allowed(pTHX_ OP *o) 3335 __attribute__warn_unused_result__ 3336 __attribute__nonnull__(pTHX_1); 3337 3338 STATIC OP* S_too_few_arguments(pTHX_ OP *o, const char* name) 3339 __attribute__warn_unused_result__ 3340 __attribute__nonnull__(pTHX_1) 3341 __attribute__nonnull__(pTHX_2); 3342 3343 STATIC OP* S_too_many_arguments(pTHX_ OP *o, const char* name) 3344 __attribute__warn_unused_result__ 3345 __attribute__nonnull__(pTHX_1) 3346 __attribute__nonnull__(pTHX_2); 3347 3348 STATIC bool S_looks_like_bool(pTHX_ const OP* o) 3349 __attribute__nonnull__(pTHX_1); 3350 3351 STATIC OP* S_newGIVWHENOP(pTHX_ OP* cond, OP *block, I32 enter_opcode, I32 leave_opcode, PADOFFSET entertarg) 3352 __attribute__nonnull__(pTHX_2); 3353 3354 STATIC OP* S_ref_array_or_hash(pTHX_ OP* cond); 3355 STATIC void S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, CV *const cv) 3356 __attribute__nonnull__(pTHX_1) 3357 __attribute__nonnull__(pTHX_2) 3358 __attribute__nonnull__(pTHX_3); 3359 3360 #endif 3361 #if defined(PL_OP_SLAB_ALLOC) 3362 PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ size_t sz) 3363 __attribute__malloc__ 3364 __attribute__warn_unused_result__; 3365 3366 PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op) 3367 __attribute__nonnull__(pTHX_1); 3368 3369 # if defined(PERL_DEBUG_READONLY_OPS) 3370 PERL_CALLCONV void Perl_pending_Slabs_to_ro(pTHX); 3371 PERL_CALLCONV OP * Perl_op_refcnt_inc(pTHX_ OP *o); 3372 PERL_CALLCONV PADOFFSET Perl_op_refcnt_dec(pTHX_ OP *o) 3373 __attribute__nonnull__(pTHX_1); 3374 3375 # if defined(PERL_IN_OP_C) 3376 STATIC void S_Slab_to_rw(pTHX_ void *op) 3377 __attribute__nonnull__(pTHX_1); 3378 3379 # endif 3380 # endif 3381 #endif 3382 3383 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) 3384 STATIC void S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp) 3385 __attribute__nonnull__(pTHX_1) 3386 __attribute__nonnull__(pTHX_2); 3387 3388 STATIC void S_forbid_setid(pTHX_ const char flag, const int suidscript); 3389 STATIC void S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate); 3390 STATIC void S_init_interp(pTHX); 3391 STATIC void S_init_ids(pTHX); 3392 STATIC void S_init_main_stash(pTHX); 3393 STATIC void S_init_perllib(pTHX); 3394 STATIC void S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env) 3395 __attribute__nonnull__(pTHX_2); 3396 3397 STATIC void S_init_predump_symbols(pTHX); 3398 STATIC void S_my_exit_jump(pTHX) 3399 __attribute__noreturn__; 3400 3401 STATIC void S_nuke_stacks(pTHX); 3402 STATIC int S_open_script(pTHX_ const char *scriptname, bool dosearch, SV *sv, int *suidscript, PerlIO **rsfpp) 3403 __attribute__nonnull__(pTHX_1) 3404 __attribute__nonnull__(pTHX_3) 3405 __attribute__nonnull__(pTHX_4) 3406 __attribute__nonnull__(pTHX_5); 3407 3408 STATIC void S_usage(pTHX_ const char *name) 3409 __attribute__nonnull__(pTHX_1); 3410 3411 STATIC void S_validate_suid(pTHX_ const char *validarg, const char *scriptname, int fdscript, int suidscript, SV* linestr_sv, PerlIO *rsfp) 3412 __attribute__nonnull__(pTHX_1) 3413 __attribute__nonnull__(pTHX_2) 3414 __attribute__nonnull__(pTHX_5) 3415 __attribute__nonnull__(pTHX_6); 3416 3417 3418 # if defined(IAMSUID) 3419 STATIC int S_fd_on_nosuid_fs(pTHX_ int fd); 3420 # endif 3421 STATIC void* S_parse_body(pTHX_ char **env, XSINIT_t xsinit); 3422 STATIC void S_run_body(pTHX_ I32 oldscope) 3423 __attribute__noreturn__; 3424 3425 STATIC SV * S_incpush_if_exists(pTHX_ SV *dir) 3426 __attribute__nonnull__(pTHX_1); 3427 3428 #endif 3429 3430 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) 3431 STATIC SV* S_refto(pTHX_ SV* sv) 3432 __attribute__warn_unused_result__ 3433 __attribute__nonnull__(pTHX_1); 3434 3435 #endif 3436 #if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) 3437 PERL_CALLCONV GV* Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const U32 type, SV ***spp) 3438 __attribute__warn_unused_result__ 3439 __attribute__nonnull__(pTHX_1) 3440 __attribute__nonnull__(pTHX_2) 3441 __attribute__nonnull__(pTHX_4); 3442 3443 #endif 3444 3445 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) 3446 STATIC I32 S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s) 3447 __attribute__nonnull__(pTHX_1) 3448 __attribute__nonnull__(pTHX_2) 3449 __attribute__nonnull__(pTHX_3) 3450 __attribute__nonnull__(pTHX_4); 3451 3452 STATIC SV ** S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist) 3453 __attribute__nonnull__(pTHX_1) 3454 __attribute__nonnull__(pTHX_2) 3455 __attribute__nonnull__(pTHX_3) 3456 __attribute__nonnull__(pTHX_4); 3457 3458 STATIC SV* S_mul128(pTHX_ SV *sv, U8 m) 3459 __attribute__nonnull__(pTHX_1); 3460 3461 STATIC I32 S_measure_struct(pTHX_ struct tempsym* symptr) 3462 __attribute__nonnull__(pTHX_1); 3463 3464 STATIC bool S_next_symbol(pTHX_ struct tempsym* symptr) 3465 __attribute__nonnull__(pTHX_1); 3466 3467 STATIC SV* S_is_an_int(pTHX_ const char *s, STRLEN l) 3468 __attribute__warn_unused_result__ 3469 __attribute__nonnull__(pTHX_1); 3470 3471 STATIC int S_div128(pTHX_ SV *pnum, bool *done) 3472 __attribute__nonnull__(pTHX_1) 3473 __attribute__nonnull__(pTHX_2); 3474 3475 STATIC const char * S_group_end(pTHX_ const char *pat, const char *patend, char ender) 3476 __attribute__nonnull__(pTHX_1) 3477 __attribute__nonnull__(pTHX_2); 3478 3479 STATIC const char * S_get_num(pTHX_ const char *ppat, I32 *lenptr) 3480 __attribute__warn_unused_result__ 3481 __attribute__nonnull__(pTHX_1) 3482 __attribute__nonnull__(pTHX_2); 3483 3484 STATIC bool S_need_utf8(const char *pat, const char *patend) 3485 __attribute__nonnull__(1) 3486 __attribute__nonnull__(2); 3487 3488 STATIC char S_first_symbol(const char *pat, const char *patend) 3489 __attribute__nonnull__(1) 3490 __attribute__nonnull__(2); 3491 3492 STATIC char * S_sv_exp_grow(pTHX_ SV *sv, STRLEN needed) 3493 __attribute__warn_unused_result__ 3494 __attribute__nonnull__(pTHX_1); 3495 3496 STATIC char * S_bytes_to_uni(const U8 *start, STRLEN len, char *dest) 3497 __attribute__warn_unused_result__ 3498 __attribute__nonnull__(1) 3499 __attribute__nonnull__(3); 3500 3501 #endif 3502 3503 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) 3504 STATIC OP* S_docatch(pTHX_ OP *o) 3505 __attribute__warn_unused_result__; 3506 3507 STATIC OP* S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit) 3508 __attribute__warn_unused_result__ 3509 __attribute__nonnull__(pTHX_1) 3510 __attribute__nonnull__(pTHX_2) 3511 __attribute__nonnull__(pTHX_3) 3512 __attribute__nonnull__(pTHX_4); 3513 3514 STATIC OP* S_doparseform(pTHX_ SV *sv) 3515 __attribute__warn_unused_result__ 3516 __attribute__nonnull__(pTHX_1); 3517 3518 STATIC bool S_num_overflow(NV value, I32 fldsize, I32 frcsize) 3519 __attribute__warn_unused_result__; 3520 3521 STATIC I32 S_dopoptoeval(pTHX_ I32 startingblock) 3522 __attribute__warn_unused_result__; 3523 3524 STATIC I32 S_dopoptogiven(pTHX_ I32 startingblock) 3525 __attribute__warn_unused_result__; 3526 3527 STATIC I32 S_dopoptolabel(pTHX_ const char *label) 3528 __attribute__warn_unused_result__ 3529 __attribute__nonnull__(pTHX_1); 3530 3531 STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock) 3532 __attribute__warn_unused_result__; 3533 3534 STATIC I32 S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock) 3535 __attribute__warn_unused_result__ 3536 __attribute__nonnull__(pTHX_1); 3537 3538 STATIC I32 S_dopoptowhen(pTHX_ I32 startingblock) 3539 __attribute__warn_unused_result__; 3540 3541 STATIC void S_save_lines(pTHX_ AV *array, SV *sv) 3542 __attribute__nonnull__(pTHX_2); 3543 3544 STATIC bool S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq); 3545 STATIC PerlIO * S_check_type_and_open(pTHX_ const char *name) 3546 __attribute__warn_unused_result__ 3547 __attribute__nonnull__(pTHX_1); 3548 3549 #ifndef PERL_DISABLE_PMC 3550 STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const STRLEN namelen) 3551 __attribute__warn_unused_result__ 3552 __attribute__nonnull__(pTHX_1); 3553 3554 #endif 3555 STATIC bool S_path_is_absolute(const char *name) 3556 __attribute__warn_unused_result__ 3557 __attribute__nonnull__(1); 3558 3559 STATIC I32 S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen) 3560 __attribute__warn_unused_result__ 3561 __attribute__nonnull__(pTHX_2); 3562 3563 STATIC PMOP* S_make_matcher(pTHX_ regexp* re) 3564 __attribute__warn_unused_result__ 3565 __attribute__nonnull__(pTHX_1); 3566 3567 STATIC bool S_matcher_matches_sv(pTHX_ PMOP* matcher, SV* sv) 3568 __attribute__warn_unused_result__ 3569 __attribute__nonnull__(pTHX_1) 3570 __attribute__nonnull__(pTHX_2); 3571 3572 STATIC void S_destroy_matcher(pTHX_ PMOP* matcher) 3573 __attribute__nonnull__(pTHX_1); 3574 3575 STATIC OP* S_do_smartmatch(pTHX_ HV* seen_this, HV* seen_other); 3576 #endif 3577 3578 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) 3579 STATIC void S_do_oddball(pTHX_ HV *hash, SV **relem, SV **firstrelem) 3580 __attribute__nonnull__(pTHX_1) 3581 __attribute__nonnull__(pTHX_2) 3582 __attribute__nonnull__(pTHX_3); 3583 3584 STATIC SV* S_method_common(pTHX_ SV* meth, U32* hashp) 3585 __attribute__warn_unused_result__ 3586 __attribute__nonnull__(pTHX_1); 3587 3588 #endif 3589 3590 #if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT) 3591 STATIC I32 S_sv_ncmp(pTHX_ SV *a, SV *b) 3592 __attribute__nonnull__(pTHX_1) 3593 __attribute__nonnull__(pTHX_2); 3594 3595 STATIC I32 S_sv_i_ncmp(pTHX_ SV *a, SV *b) 3596 __attribute__nonnull__(pTHX_1) 3597 __attribute__nonnull__(pTHX_2); 3598 3599 STATIC I32 S_amagic_ncmp(pTHX_ SV *a, SV *b) 3600 __attribute__nonnull__(pTHX_1) 3601 __attribute__nonnull__(pTHX_2); 3602 3603 STATIC I32 S_amagic_i_ncmp(pTHX_ SV *a, SV *b) 3604 __attribute__nonnull__(pTHX_1) 3605 __attribute__nonnull__(pTHX_2); 3606 3607 STATIC I32 S_amagic_cmp(pTHX_ SV *a, SV *b) 3608 __attribute__nonnull__(pTHX_1) 3609 __attribute__nonnull__(pTHX_2); 3610 3611 STATIC I32 S_amagic_cmp_locale(pTHX_ SV *a, SV *b) 3612 __attribute__nonnull__(pTHX_1) 3613 __attribute__nonnull__(pTHX_2); 3614 3615 STATIC I32 S_sortcv(pTHX_ SV *a, SV *b) 3616 __attribute__nonnull__(pTHX_1) 3617 __attribute__nonnull__(pTHX_2); 3618 3619 STATIC I32 S_sortcv_xsub(pTHX_ SV *a, SV *b) 3620 __attribute__nonnull__(pTHX_1) 3621 __attribute__nonnull__(pTHX_2); 3622 3623 STATIC I32 S_sortcv_stacked(pTHX_ SV *a, SV *b) 3624 __attribute__nonnull__(pTHX_1) 3625 __attribute__nonnull__(pTHX_2); 3626 3627 STATIC void S_qsortsvu(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t compare) 3628 __attribute__nonnull__(pTHX_1) 3629 __attribute__nonnull__(pTHX_3); 3630 3631 #endif 3632 3633 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) 3634 STATIC OP* S_doform(pTHX_ CV *cv, GV *gv, OP *retop) 3635 __attribute__nonnull__(pTHX_1) 3636 __attribute__nonnull__(pTHX_2) 3637 __attribute__nonnull__(pTHX_3); 3638 3639 # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) 3640 STATIC int S_dooneliner(pTHX_ const char *cmd, const char *filename) 3641 __attribute__warn_unused_result__ 3642 __attribute__nonnull__(pTHX_1) 3643 __attribute__nonnull__(pTHX_2); 3644 3645 # endif 3646 STATIC SV * S_space_join_names_mortal(pTHX_ char *const *array) 3647 __attribute__nonnull__(pTHX_1); 3648 3649 #endif 3650 3651 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) 3652 STATIC regnode* S_reg(pTHX_ struct RExC_state_t *state, I32 paren, I32 *flagp, U32 depth) 3653 __attribute__nonnull__(pTHX_1) 3654 __attribute__nonnull__(pTHX_3); 3655 3656 STATIC regnode* S_reganode(pTHX_ struct RExC_state_t *state, U8 op, U32 arg) 3657 __attribute__nonnull__(pTHX_1); 3658 3659 STATIC regnode* S_regatom(pTHX_ struct RExC_state_t *state, I32 *flagp, U32 depth) 3660 __attribute__nonnull__(pTHX_1) 3661 __attribute__nonnull__(pTHX_2); 3662 3663 STATIC regnode* S_regbranch(pTHX_ struct RExC_state_t *state, I32 *flagp, I32 first, U32 depth) 3664 __attribute__nonnull__(pTHX_1) 3665 __attribute__nonnull__(pTHX_2); 3666 3667 STATIC STRLEN S_reguni(pTHX_ const struct RExC_state_t *state, UV uv, char *s) 3668 __attribute__nonnull__(pTHX_1) 3669 __attribute__nonnull__(pTHX_3); 3670 3671 STATIC regnode* S_regclass(pTHX_ struct RExC_state_t *state, U32 depth) 3672 __attribute__nonnull__(pTHX_1); 3673 3674 STATIC I32 S_regcurly(const char *) 3675 __attribute__warn_unused_result__ 3676 __attribute__nonnull__(1); 3677 3678 STATIC regnode* S_reg_node(pTHX_ struct RExC_state_t *state, U8 op) 3679 __attribute__nonnull__(pTHX_1); 3680 3681 STATIC UV S_reg_recode(pTHX_ const char value, SV **encp) 3682 __attribute__nonnull__(pTHX_2); 3683 3684 STATIC regnode* S_regpiece(pTHX_ struct RExC_state_t *state, I32 *flagp, U32 depth) 3685 __attribute__nonnull__(pTHX_1) 3686 __attribute__nonnull__(pTHX_2); 3687 3688 STATIC regnode* S_reg_namedseq(pTHX_ struct RExC_state_t *state, UV *valuep) 3689 __attribute__nonnull__(pTHX_1); 3690 3691 STATIC void S_reginsert(pTHX_ struct RExC_state_t *state, U8 op, regnode *opnd, U32 depth) 3692 __attribute__nonnull__(pTHX_1) 3693 __attribute__nonnull__(pTHX_3); 3694 3695 STATIC void S_regtail(pTHX_ struct RExC_state_t *state, regnode *p, const regnode *val, U32 depth) 3696 __attribute__nonnull__(pTHX_1) 3697 __attribute__nonnull__(pTHX_2) 3698 __attribute__nonnull__(pTHX_3); 3699 3700 STATIC SV * S_reg_scan_name(pTHX_ struct RExC_state_t *state, U32 flags) 3701 __attribute__nonnull__(pTHX_1); 3702 3703 STATIC U32 S_join_exact(pTHX_ struct RExC_state_t *state, regnode *scan, I32 *min, U32 flags, regnode *val, U32 depth) 3704 __attribute__nonnull__(pTHX_1) 3705 __attribute__nonnull__(pTHX_2) 3706 __attribute__nonnull__(pTHX_3); 3707 3708 STATIC char * S_regwhite(struct RExC_state_t *state, char *p) 3709 __attribute__warn_unused_result__ 3710 __attribute__nonnull__(1) 3711 __attribute__nonnull__(2); 3712 3713 STATIC char * S_nextchar(pTHX_ struct RExC_state_t *state) 3714 __attribute__nonnull__(pTHX_1); 3715 3716 STATIC bool S_reg_skipcomment(pTHX_ struct RExC_state_t *state) 3717 __attribute__nonnull__(pTHX_1); 3718 3719 STATIC void S_scan_commit(pTHX_ const struct RExC_state_t* state, struct scan_data_t *data, I32 *minlenp, int is_inf) 3720 __attribute__nonnull__(pTHX_1) 3721 __attribute__nonnull__(pTHX_2) 3722 __attribute__nonnull__(pTHX_3); 3723 3724 STATIC void S_cl_anything(const struct RExC_state_t* state, struct regnode_charclass_class *cl) 3725 __attribute__nonnull__(1) 3726 __attribute__nonnull__(2); 3727 3728 STATIC int S_cl_is_anything(const struct regnode_charclass_class *cl) 3729 __attribute__warn_unused_result__ 3730 __attribute__nonnull__(1); 3731 3732 STATIC void S_cl_init(const struct RExC_state_t* state, struct regnode_charclass_class *cl) 3733 __attribute__nonnull__(1) 3734 __attribute__nonnull__(2); 3735 3736 STATIC void S_cl_init_zero(const struct RExC_state_t* state, struct regnode_charclass_class *cl) 3737 __attribute__nonnull__(1) 3738 __attribute__nonnull__(2); 3739 3740 STATIC void S_cl_and(struct regnode_charclass_class *cl, const struct regnode_charclass_class *and_with) 3741 __attribute__nonnull__(1) 3742 __attribute__nonnull__(2); 3743 3744 STATIC void S_cl_or(const struct RExC_state_t* state, struct regnode_charclass_class *cl, const struct regnode_charclass_class *or_with) 3745 __attribute__nonnull__(1) 3746 __attribute__nonnull__(2) 3747 __attribute__nonnull__(3); 3748 3749 STATIC I32 S_study_chunk(pTHX_ struct RExC_state_t* state, regnode **scanp, I32 *minlenp, I32 *deltap, regnode *last, struct scan_data_t *data, I32 stopparen, U8* recursed, struct regnode_charclass_class *and_withp, U32 flags, U32 depth) 3750 __attribute__nonnull__(pTHX_1) 3751 __attribute__nonnull__(pTHX_2) 3752 __attribute__nonnull__(pTHX_3) 3753 __attribute__nonnull__(pTHX_4) 3754 __attribute__nonnull__(pTHX_5); 3755 3756 STATIC U32 S_add_data(struct RExC_state_t* state, U32 n, const char *s) 3757 __attribute__warn_unused_result__ 3758 __attribute__nonnull__(1) 3759 __attribute__nonnull__(3); 3760 3761 STATIC void S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...) 3762 __attribute__noreturn__ 3763 __attribute__nonnull__(pTHX_1) 3764 __attribute__nonnull__(pTHX_2); 3765 3766 STATIC I32 S_regpposixcc(pTHX_ struct RExC_state_t* state, I32 value) 3767 __attribute__nonnull__(pTHX_1); 3768 3769 STATIC void S_checkposixcc(pTHX_ struct RExC_state_t* state) 3770 __attribute__nonnull__(pTHX_1); 3771 3772 STATIC I32 S_make_trie(pTHX_ struct RExC_state_t* state, regnode *startbranch, regnode *first, regnode *last, regnode *tail, U32 word_count, U32 flags, U32 depth) 3773 __attribute__nonnull__(pTHX_1) 3774 __attribute__nonnull__(pTHX_2) 3775 __attribute__nonnull__(pTHX_3) 3776 __attribute__nonnull__(pTHX_4) 3777 __attribute__nonnull__(pTHX_5); 3778 3779 STATIC void S_make_trie_failtable(pTHX_ struct RExC_state_t* state, regnode *source, regnode *node, U32 depth) 3780 __attribute__nonnull__(pTHX_1) 3781 __attribute__nonnull__(pTHX_2) 3782 __attribute__nonnull__(pTHX_3); 3783 3784 # ifdef DEBUGGING 3785 STATIC void S_regdump_extflags(pTHX_ const char *lead, const U32 flags); 3786 STATIC const regnode* S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node, const regnode *last, const regnode *plast, SV* sv, I32 indent, U32 depth) 3787 __attribute__nonnull__(pTHX_1) 3788 __attribute__nonnull__(pTHX_2) 3789 __attribute__nonnull__(pTHX_3) 3790 __attribute__nonnull__(pTHX_6); 3791 3792 STATIC void S_put_byte(pTHX_ SV* sv, int c) 3793 __attribute__nonnull__(pTHX_1); 3794 3795 STATIC void S_dump_trie(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 depth) 3796 __attribute__nonnull__(pTHX_1) 3797 __attribute__nonnull__(pTHX_3); 3798 3799 STATIC void S_dump_trie_interim_list(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth) 3800 __attribute__nonnull__(pTHX_1) 3801 __attribute__nonnull__(pTHX_3); 3802 3803 STATIC void S_dump_trie_interim_table(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth) 3804 __attribute__nonnull__(pTHX_1) 3805 __attribute__nonnull__(pTHX_3); 3806 3807 STATIC U8 S_regtail_study(pTHX_ struct RExC_state_t *state, regnode *p, const regnode *val, U32 depth) 3808 __attribute__nonnull__(pTHX_1) 3809 __attribute__nonnull__(pTHX_2) 3810 __attribute__nonnull__(pTHX_3); 3811 3812 # endif 3813 #endif 3814 3815 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) 3816 STATIC I32 S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) 3817 __attribute__warn_unused_result__ 3818 __attribute__nonnull__(pTHX_1) 3819 __attribute__nonnull__(pTHX_2); 3820 3821 STATIC I32 S_regrepeat(pTHX_ const regexp *prog, const regnode *p, I32 max, int depth) 3822 __attribute__warn_unused_result__ 3823 __attribute__nonnull__(pTHX_1) 3824 __attribute__nonnull__(pTHX_2); 3825 3826 STATIC I32 S_regtry(pTHX_ regmatch_info *reginfo, char **startpos) 3827 __attribute__warn_unused_result__ 3828 __attribute__nonnull__(pTHX_1) 3829 __attribute__nonnull__(pTHX_2); 3830 3831 STATIC bool S_reginclass(pTHX_ const regexp *prog, const regnode *n, const U8 *p, STRLEN *lenp, bool do_utf8sv_is_utf8) 3832 __attribute__warn_unused_result__ 3833 __attribute__nonnull__(pTHX_2) 3834 __attribute__nonnull__(pTHX_3); 3835 3836 STATIC CHECKPOINT S_regcppush(pTHX_ I32 parenfloor); 3837 STATIC char* S_regcppop(pTHX_ const regexp *rex) 3838 __attribute__nonnull__(pTHX_1); 3839 3840 STATIC U8* S_reghop3(U8 *pos, I32 off, const U8 *lim) 3841 __attribute__warn_unused_result__ 3842 __attribute__nonnull__(1) 3843 __attribute__nonnull__(3); 3844 3845 #ifdef XXX_dmq 3846 STATIC U8* S_reghop4(U8 *pos, I32 off, const U8 *llim, const U8 *rlim) 3847 __attribute__warn_unused_result__ 3848 __attribute__nonnull__(1) 3849 __attribute__nonnull__(3) 3850 __attribute__nonnull__(4); 3851 3852 #endif 3853 STATIC U8* S_reghopmaybe3(U8 *pos, I32 off, const U8 *lim) 3854 __attribute__warn_unused_result__ 3855 __attribute__nonnull__(1) 3856 __attribute__nonnull__(3); 3857 3858 STATIC char* S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, const char *strend, regmatch_info *reginfo) 3859 __attribute__warn_unused_result__ 3860 __attribute__nonnull__(pTHX_1) 3861 __attribute__nonnull__(pTHX_2) 3862 __attribute__nonnull__(pTHX_3) 3863 __attribute__nonnull__(pTHX_4); 3864 3865 STATIC void S_swap_match_buff(pTHX_ regexp * prog) 3866 __attribute__nonnull__(pTHX_1); 3867 3868 STATIC void S_to_utf8_substr(pTHX_ regexp * prog) 3869 __attribute__nonnull__(pTHX_1); 3870 3871 STATIC void S_to_byte_substr(pTHX_ regexp * prog) 3872 __attribute__nonnull__(pTHX_1); 3873 3874 STATIC I32 S_reg_check_named_buff_matched(pTHX_ const regexp *rex, const regnode *prog) 3875 __attribute__warn_unused_result__ 3876 __attribute__nonnull__(pTHX_1) 3877 __attribute__nonnull__(pTHX_2); 3878 3879 # ifdef DEBUGGING 3880 STATIC void S_dump_exec_pos(pTHX_ const char *locinput, const regnode *scan, const char *loc_regeol, const char *loc_bostr, const char *loc_reg_starttry, const bool do_utf8) 3881 __attribute__nonnull__(pTHX_1) 3882 __attribute__nonnull__(pTHX_2) 3883 __attribute__nonnull__(pTHX_3) 3884 __attribute__nonnull__(pTHX_4) 3885 __attribute__nonnull__(pTHX_5); 3886 3887 STATIC void S_debug_start_match(pTHX_ const regexp *prog, const bool do_utf8, const char *start, const char *end, const char *blurb) 3888 __attribute__nonnull__(pTHX_1) 3889 __attribute__nonnull__(pTHX_3) 3890 __attribute__nonnull__(pTHX_4) 3891 __attribute__nonnull__(pTHX_5); 3892 3893 # endif 3894 #endif 3895 3896 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) 3897 STATIC CV* S_deb_curcv(pTHX_ const I32 ix); 3898 STATIC void S_debprof(pTHX_ const OP *o) 3899 __attribute__nonnull__(pTHX_1); 3900 3901 STATIC void S_sequence(pTHX_ const OP *o); 3902 STATIC void S_sequence_tail(pTHX_ const OP *o); 3903 STATIC UV S_sequence_num(pTHX_ const OP *o); 3904 STATIC SV* S_pm_description(pTHX_ const PMOP *pm) 3905 __attribute__nonnull__(pTHX_1); 3906 3907 #endif 3908 3909 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) 3910 STATIC SV* S_save_scalar_at(pTHX_ SV **sptr) 3911 __attribute__nonnull__(pTHX_1); 3912 3913 #endif 3914 3915 #if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) 3916 PERL_CALLCONV void Perl_sv_add_backref(pTHX_ SV *tsv, SV *sv) 3917 __attribute__nonnull__(pTHX_1) 3918 __attribute__nonnull__(pTHX_2); 3919 3920 #endif 3921 3922 #if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) 3923 PERL_CALLCONV int Perl_sv_kill_backrefs(pTHX_ SV *sv, AV *av) 3924 __attribute__nonnull__(pTHX_1) 3925 __attribute__nonnull__(pTHX_2); 3926 3927 #endif 3928 3929 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) 3930 STATIC char * S_uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob) 3931 __attribute__warn_unused_result__ 3932 __attribute__nonnull__(1) 3933 __attribute__nonnull__(5); 3934 3935 STATIC void S_sv_unglob(pTHX_ SV* sv) 3936 __attribute__nonnull__(pTHX_1); 3937 3938 STATIC void S_not_a_number(pTHX_ SV *sv) 3939 __attribute__nonnull__(pTHX_1); 3940 3941 STATIC I32 S_visit(pTHX_ SVFUNC_t f, U32 flags, U32 mask) 3942 __attribute__nonnull__(pTHX_1); 3943 3944 STATIC void S_sv_del_backref(pTHX_ SV *target, SV *ref) 3945 __attribute__nonnull__(pTHX_1) 3946 __attribute__nonnull__(pTHX_2); 3947 3948 STATIC SV * S_varname(pTHX_ GV *gv, const char gvtype, PADOFFSET targ, SV *keyname, I32 aindex, int subscript_type) 3949 __attribute__warn_unused_result__; 3950 3951 # ifdef DEBUGGING 3952 STATIC void S_del_sv(pTHX_ SV *p) 3953 __attribute__nonnull__(pTHX_1); 3954 3955 # endif 3956 # if !defined(NV_PRESERVES_UV) 3957 STATIC int S_sv_2iuv_non_preserve(pTHX_ SV *sv, I32 numtype) 3958 __attribute__nonnull__(pTHX_1); 3959 3960 # endif 3961 STATIC I32 S_expect_number(pTHX_ char** pattern) 3962 __attribute__warn_unused_result__ 3963 __attribute__nonnull__(pTHX_1); 3964 3965 # 3966 STATIC STRLEN S_sv_pos_u2b_forwards(const U8 *const start, const U8 *const send, STRLEN uoffset) 3967 __attribute__nonnull__(1) 3968 __attribute__nonnull__(2); 3969 3970 STATIC STRLEN S_sv_pos_u2b_midway(const U8 *const start, const U8 *send, STRLEN uoffset, STRLEN uend) 3971 __attribute__nonnull__(1) 3972 __attribute__nonnull__(2); 3973 3974 STATIC STRLEN S_sv_pos_u2b_cached(pTHX_ SV *sv, MAGIC **mgp, const U8 *const start, const U8 *const send, STRLEN uoffset, STRLEN uoffset0, STRLEN boffset0) 3975 __attribute__nonnull__(pTHX_1) 3976 __attribute__nonnull__(pTHX_2) 3977 __attribute__nonnull__(pTHX_3) 3978 __attribute__nonnull__(pTHX_4); 3979 3980 STATIC void S_utf8_mg_pos_cache_update(pTHX_ SV *sv, MAGIC **mgp, STRLEN byte, STRLEN utf8, STRLEN blen) 3981 __attribute__nonnull__(pTHX_1) 3982 __attribute__nonnull__(pTHX_2); 3983 3984 STATIC STRLEN S_sv_pos_b2u_midway(pTHX_ const U8 *s, const U8 *const target, const U8 *end, STRLEN endu) 3985 __attribute__nonnull__(pTHX_1) 3986 __attribute__nonnull__(pTHX_2) 3987 __attribute__nonnull__(pTHX_3); 3988 3989 STATIC char * S_F0convert(NV nv, char *endbuf, STRLEN *len) 3990 __attribute__nonnull__(2) 3991 __attribute__nonnull__(3); 3992 3993 # if defined(PERL_OLD_COPY_ON_WRITE) 3994 STATIC void S_sv_release_COW(pTHX_ SV *sv, const char *pvx, SV *after) 3995 __attribute__nonnull__(pTHX_1) 3996 __attribute__nonnull__(pTHX_2) 3997 __attribute__nonnull__(pTHX_3); 3998 3999 # endif 4000 STATIC SV * S_more_sv(pTHX); 4001 STATIC void * S_more_bodies(pTHX_ svtype sv_type); 4002 STATIC bool S_sv_2iuv_common(pTHX_ SV *sv) 4003 __attribute__nonnull__(pTHX_1); 4004 4005 STATIC void S_glob_assign_glob(pTHX_ SV *dstr, SV *sstr, const int dtype) 4006 __attribute__nonnull__(pTHX_1) 4007 __attribute__nonnull__(pTHX_2); 4008 4009 STATIC void S_glob_assign_ref(pTHX_ SV *dstr, SV *sstr) 4010 __attribute__nonnull__(pTHX_1) 4011 __attribute__nonnull__(pTHX_2); 4012 4013 STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *tbl, const void *sv) 4014 __attribute__warn_unused_result__ 4015 __attribute__nonnull__(1) 4016 __attribute__nonnull__(2); 4017 4018 #endif 4019 4020 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) 4021 STATIC void S_check_uni(pTHX); 4022 STATIC void S_force_next(pTHX_ I32 type); 4023 STATIC char* S_force_version(pTHX_ char *start, int guessing) 4024 __attribute__nonnull__(pTHX_1); 4025 4026 STATIC char* S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack, int allow_tick) 4027 __attribute__nonnull__(pTHX_1); 4028 4029 STATIC SV* S_tokeq(pTHX_ SV *sv) 4030 __attribute__nonnull__(pTHX_1); 4031 4032 STATIC void S_readpipe_override(pTHX); 4033 STATIC char* S_scan_const(pTHX_ char *start) 4034 __attribute__warn_unused_result__ 4035 __attribute__nonnull__(pTHX_1); 4036 4037 STATIC char* S_scan_formline(pTHX_ char *s) 4038 __attribute__warn_unused_result__ 4039 __attribute__nonnull__(pTHX_1); 4040 4041 STATIC char* S_scan_heredoc(pTHX_ char *s) 4042 __attribute__warn_unused_result__ 4043 __attribute__nonnull__(pTHX_1); 4044 4045 STATIC char* S_scan_ident(pTHX_ char *s, const char *send, char *dest, STRLEN destlen, I32 ck_uni) 4046 __attribute__nonnull__(pTHX_1) 4047 __attribute__nonnull__(pTHX_2) 4048 __attribute__nonnull__(pTHX_3); 4049 4050 STATIC char* S_scan_inputsymbol(pTHX_ char *start) 4051 __attribute__warn_unused_result__ 4052 __attribute__nonnull__(pTHX_1); 4053 4054 STATIC char* S_scan_pat(pTHX_ char *start, I32 type) 4055 __attribute__warn_unused_result__ 4056 __attribute__nonnull__(pTHX_1); 4057 4058 STATIC char* S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims) 4059 __attribute__warn_unused_result__ 4060 __attribute__nonnull__(pTHX_1); 4061 4062 STATIC char* S_scan_subst(pTHX_ char *start) 4063 __attribute__warn_unused_result__ 4064 __attribute__nonnull__(pTHX_1); 4065 4066 STATIC char* S_scan_trans(pTHX_ char *start) 4067 __attribute__warn_unused_result__ 4068 __attribute__nonnull__(pTHX_1); 4069 4070 STATIC char* S_scan_word(pTHX_ char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp) 4071 __attribute__nonnull__(pTHX_1) 4072 __attribute__nonnull__(pTHX_2) 4073 __attribute__nonnull__(pTHX_5); 4074 4075 STATIC void S_update_debugger_info(pTHX_ SV *orig_sv, const char *buf, STRLEN len); 4076 STATIC char* S_skipspace(pTHX_ char *s) 4077 __attribute__warn_unused_result__ 4078 __attribute__nonnull__(pTHX_1); 4079 4080 STATIC char* S_swallow_bom(pTHX_ U8 *s) 4081 __attribute__warn_unused_result__ 4082 __attribute__nonnull__(pTHX_1); 4083 4084 STATIC void S_checkcomma(pTHX_ const char *s, const char *name, const char *what) 4085 __attribute__nonnull__(pTHX_1) 4086 __attribute__nonnull__(pTHX_2) 4087 __attribute__nonnull__(pTHX_3); 4088 4089 STATIC bool S_feature_is_enabled(pTHX_ const char* name, STRLEN namelen) 4090 __attribute__nonnull__(pTHX_1); 4091 4092 STATIC void S_force_ident(pTHX_ const char *s, int kind) 4093 __attribute__nonnull__(pTHX_1); 4094 4095 STATIC void S_incline(pTHX_ const char *s) 4096 __attribute__nonnull__(pTHX_1); 4097 4098 STATIC int S_intuit_method(pTHX_ char *s, GV *gv, CV *cv) 4099 __attribute__nonnull__(pTHX_1); 4100 4101 STATIC int S_intuit_more(pTHX_ char *s) 4102 __attribute__nonnull__(pTHX_1); 4103 4104 STATIC I32 S_lop(pTHX_ I32 f, int x, char *s) 4105 __attribute__nonnull__(pTHX_3); 4106 4107 STATIC void S_missingterm(pTHX_ char *s) 4108 __attribute__noreturn__; 4109 4110 STATIC void S_no_op(pTHX_ const char *what, char *s) 4111 __attribute__nonnull__(pTHX_1); 4112 4113 STATIC I32 S_sublex_done(pTHX) 4114 __attribute__warn_unused_result__; 4115 4116 STATIC I32 S_sublex_push(pTHX) 4117 __attribute__warn_unused_result__; 4118 4119 STATIC I32 S_sublex_start(pTHX) 4120 __attribute__warn_unused_result__; 4121 4122 STATIC char * S_filter_gets(pTHX_ SV *sv, PerlIO *fp, STRLEN append) 4123 __attribute__warn_unused_result__ 4124 __attribute__nonnull__(pTHX_1) 4125 __attribute__nonnull__(pTHX_2); 4126 4127 STATIC HV * S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len) 4128 __attribute__warn_unused_result__ 4129 __attribute__nonnull__(pTHX_1); 4130 4131 STATIC char * S_tokenize_use(pTHX_ int is_use, char *s) 4132 __attribute__warn_unused_result__ 4133 __attribute__nonnull__(pTHX_2); 4134 4135 STATIC SV* S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen, SV *sv, SV *pv, const char *type, STRLEN typelen) 4136 __attribute__nonnull__(pTHX_3) 4137 __attribute__nonnull__(pTHX_5); 4138 4139 STATIC int S_ao(pTHX_ int toketype); 4140 # if defined(PERL_CR_FILTER) 4141 STATIC I32 S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen); 4142 STATIC void S_strip_return(pTHX_ SV *sv) 4143 __attribute__nonnull__(pTHX_1); 4144 4145 # endif 4146 # if defined(DEBUGGING) 4147 STATIC int S_tokereport(pTHX_ I32 rv); 4148 STATIC void S_printbuf(pTHX_ const char* fmt, const char* s) 4149 __attribute__nonnull__(pTHX_1) 4150 __attribute__nonnull__(pTHX_2); 4151 4152 # endif 4153 #endif 4154 4155 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) 4156 STATIC bool S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV * const name_stash) 4157 __attribute__nonnull__(pTHX_2); 4158 4159 #endif 4160 4161 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) 4162 #if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE) 4163 STATIC char* S_stdize_locale(pTHX_ char* locs) 4164 __attribute__nonnull__(pTHX_1); 4165 4166 #endif 4167 #endif 4168 4169 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) 4170 STATIC const COP* S_closest_cop(pTHX_ const COP *cop, const OP *o) 4171 __attribute__nonnull__(pTHX_1); 4172 4173 STATIC SV* S_mess_alloc(pTHX); 4174 STATIC const char * S_vdie_croak_common(pTHX_ const char *pat, va_list *args, STRLEN *msglen, I32* utf8); 4175 STATIC bool S_vdie_common(pTHX_ const char *message, STRLEN msglen, I32 utf8, bool warn); 4176 STATIC char * S_write_no_mem(pTHX) 4177 __attribute__noreturn__; 4178 4179 #endif 4180 4181 #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT) 4182 STATIC NV S_mulexp10(NV value, I32 exponent); 4183 #endif 4184 4185 #if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) 4186 STATIC STRLEN S_is_utf8_char_slow(const U8 *s, const STRLEN len) 4187 __attribute__warn_unused_result__ 4188 __attribute__nonnull__(1); 4189 4190 STATIC bool S_is_utf8_common(pTHX_ const U8 *const p, SV **swash, const char * const swashname) 4191 __attribute__warn_unused_result__ 4192 __attribute__nonnull__(pTHX_1) 4193 __attribute__nonnull__(pTHX_2) 4194 __attribute__nonnull__(pTHX_3); 4195 4196 STATIC SV* S_swash_get(pTHX_ SV* swash, UV start, UV span) 4197 __attribute__warn_unused_result__ 4198 __attribute__nonnull__(pTHX_1); 4199 4200 #endif 4201 4202 START_EXTERN_C 4203 4204 PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) 4205 __attribute__nonnull__(pTHX_1); 4206 4207 PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags) 4208 __attribute__nonnull__(pTHX_1) 4209 __attribute__nonnull__(pTHX_2); 4210 4211 PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) 4212 __attribute__nonnull__(pTHX_1); 4213 4214 PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags) 4215 __attribute__nonnull__(pTHX_1); 4216 4217 PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags) 4218 __attribute__nonnull__(pTHX_1); 4219 4220 PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv) 4221 __attribute__nonnull__(pTHX_1) 4222 __attribute__nonnull__(pTHX_2); 4223 4224 PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value) 4225 __attribute__nonnull__(pTHX_1) 4226 __attribute__nonnull__(pTHX_2); 4227 4228 PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]); 4229 PERL_CALLCONV int Perl_my_dirfd(pTHX_ DIR* dir); 4230 #ifdef PERL_OLD_COPY_ON_WRITE 4231 PERL_CALLCONV SV* Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv) 4232 __attribute__nonnull__(pTHX_1) 4233 __attribute__nonnull__(pTHX_2); 4234 4235 #endif 4236 4237 PERL_CALLCONV const char * Perl_PerlIO_context_layers(pTHX_ const char *mode); 4238 4239 #if defined(USE_PERLIO) && !defined(USE_SFIO) 4240 PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *f); 4241 PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *f); 4242 PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *f); 4243 PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *f); 4244 PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *f); 4245 PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *f); 4246 PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *f); 4247 PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt); 4248 PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt) 4249 __attribute__nonnull__(pTHX_2); 4250 4251 PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f); 4252 PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *f, void *buf, Size_t count) 4253 __attribute__nonnull__(pTHX_2); 4254 4255 PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *f, const void *buf, Size_t count) 4256 __attribute__nonnull__(pTHX_2); 4257 4258 PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *f, const void *buf, Size_t count) 4259 __attribute__nonnull__(pTHX_2); 4260 4261 PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *f); 4262 PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *f, Off_t offset, int whence); 4263 4264 PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *f); 4265 PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *f); 4266 PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *f) 4267 __attribute__warn_unused_result__; 4268 4269 PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *f) 4270 __attribute__warn_unused_result__; 4271 4272 4273 PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX) 4274 __attribute__warn_unused_result__; 4275 4276 PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX) 4277 __attribute__warn_unused_result__; 4278 4279 PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX) 4280 __attribute__warn_unused_result__; 4281 4282 #endif /* PERLIO_LAYERS */ 4283 4284 PERL_CALLCONV void Perl_deb_stack_all(pTHX); 4285 #ifdef PERL_IN_DEB_C 4286 STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max) 4287 __attribute__nonnull__(pTHX_1); 4288 4289 #endif 4290 4291 PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags) 4292 __attribute__malloc__ 4293 __attribute__warn_unused_result__; 4294 4295 PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv) 4296 __attribute__nonnull__(pTHX_1); 4297 4298 PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool clone, bool state) 4299 __attribute__nonnull__(pTHX_1); 4300 4301 PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type) 4302 __attribute__nonnull__(pTHX_1); 4303 4304 PERL_CALLCONV void Perl_pad_check_dup(pTHX_ const char* name, bool is_our, const HV* ourstash) 4305 __attribute__nonnull__(pTHX_1) 4306 __attribute__nonnull__(pTHX_3); 4307 4308 #ifdef DEBUGGING 4309 PERL_CALLCONV void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv) 4310 __attribute__nonnull__(pTHX_2); 4311 4312 #endif 4313 PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full); 4314 PERL_CALLCONV void Perl_pad_tidy(pTHX_ padtidy_type type); 4315 PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) 4316 __attribute__nonnull__(pTHX_2); 4317 4318 PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv) 4319 __attribute__nonnull__(pTHX_1) 4320 __attribute__nonnull__(pTHX_2) 4321 __attribute__nonnull__(pTHX_3); 4322 4323 4324 PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth) 4325 __attribute__nonnull__(pTHX_1); 4326 4327 PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po) 4328 __attribute__warn_unused_result__; 4329 4330 4331 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) 4332 STATIC PADOFFSET S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, SV** out_capture, SV** out_name_sv, int *out_flags) 4333 __attribute__nonnull__(pTHX_1) 4334 __attribute__nonnull__(pTHX_2) 4335 __attribute__nonnull__(pTHX_6) 4336 __attribute__nonnull__(pTHX_7); 4337 4338 # if defined(DEBUGGING) 4339 STATIC void S_cv_dump(pTHX_ const CV *cv, const char *title) 4340 __attribute__nonnull__(pTHX_1) 4341 __attribute__nonnull__(pTHX_2); 4342 4343 # endif 4344 #endif 4345 PERL_CALLCONV CV* Perl_find_runcv(pTHX_ U32 *db_seqp) 4346 __attribute__warn_unused_result__; 4347 4348 PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX); 4349 #if defined(DEBUGGING) 4350 PERL_CALLCONV int Perl_get_debug_opts(pTHX_ const char **s, bool givehelp) 4351 __attribute__warn_unused_result__ 4352 __attribute__nonnull__(pTHX_1); 4353 4354 #endif 4355 PERL_CALLCONV void Perl_save_set_svflags(pTHX_ SV* sv, U32 mask, U32 val); 4356 PERL_CALLCONV void Perl_hv_assert(pTHX_ HV* tb) 4357 __attribute__nonnull__(pTHX_1); 4358 4359 4360 PERL_CALLCONV SV* Perl_hv_scalar(pTHX_ HV* hv) 4361 __attribute__warn_unused_result__ 4362 __attribute__nonnull__(pTHX_1); 4363 4364 PERL_CALLCONV I32* Perl_hv_riter_p(pTHX_ HV* hv) 4365 __attribute__warn_unused_result__ 4366 __attribute__nonnull__(pTHX_1); 4367 4368 PERL_CALLCONV HE** Perl_hv_eiter_p(pTHX_ HV* hv) 4369 __attribute__warn_unused_result__ 4370 __attribute__nonnull__(pTHX_1); 4371 4372 PERL_CALLCONV void Perl_hv_riter_set(pTHX_ HV* hv, I32 riter) 4373 __attribute__nonnull__(pTHX_1); 4374 4375 PERL_CALLCONV void Perl_hv_eiter_set(pTHX_ HV* hv, HE* eiter) 4376 __attribute__nonnull__(pTHX_1); 4377 4378 PERL_CALLCONV void Perl_hv_name_set(pTHX_ HV* hv, const char *name, U32 len, U32 flags) 4379 __attribute__nonnull__(pTHX_1); 4380 4381 PERL_CALLCONV AV** Perl_hv_backreferences_p(pTHX_ HV* hv) 4382 __attribute__nonnull__(pTHX_1); 4383 4384 #if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) 4385 PERL_CALLCONV void Perl_hv_kill_backrefs(pTHX_ HV* hv) 4386 __attribute__nonnull__(pTHX_1); 4387 4388 #endif 4389 PERL_CALLCONV void Perl_hv_clear_placeholders(pTHX_ HV* hb) 4390 __attribute__nonnull__(pTHX_1); 4391 4392 PERL_CALLCONV I32* Perl_hv_placeholders_p(pTHX_ HV* hv) 4393 __attribute__warn_unused_result__ 4394 __attribute__nonnull__(pTHX_1); 4395 4396 PERL_CALLCONV I32 Perl_hv_placeholders_get(pTHX_ HV* hv) 4397 __attribute__warn_unused_result__ 4398 __attribute__nonnull__(pTHX_1); 4399 4400 PERL_CALLCONV void Perl_hv_placeholders_set(pTHX_ HV* hv, I32 ph) 4401 __attribute__nonnull__(pTHX_1); 4402 4403 4404 PERL_CALLCONV SV* Perl_magic_scalarpack(pTHX_ HV* hv, MAGIC* mg) 4405 __attribute__nonnull__(pTHX_1) 4406 __attribute__nonnull__(pTHX_2); 4407 4408 4409 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) 4410 STATIC SV * S_find_hash_subscript(pTHX_ HV *hv, SV *val) 4411 __attribute__nonnull__(pTHX_2); 4412 4413 STATIC I32 S_find_array_subscript(pTHX_ AV *av, SV *val) 4414 __attribute__nonnull__(pTHX_2); 4415 4416 STATIC SV* S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool top); 4417 #endif 4418 4419 #ifdef PERL_NEED_MY_HTOLE16 4420 PERL_CALLCONV U16 Perl_my_htole16(U16 n); 4421 #endif 4422 #ifdef PERL_NEED_MY_LETOH16 4423 PERL_CALLCONV U16 Perl_my_letoh16(U16 n); 4424 #endif 4425 #ifdef PERL_NEED_MY_HTOBE16 4426 PERL_CALLCONV U16 Perl_my_htobe16(U16 n); 4427 #endif 4428 #ifdef PERL_NEED_MY_BETOH16 4429 PERL_CALLCONV U16 Perl_my_betoh16(U16 n); 4430 #endif 4431 #ifdef PERL_NEED_MY_HTOLE32 4432 PERL_CALLCONV U32 Perl_my_htole32(U32 n); 4433 #endif 4434 #ifdef PERL_NEED_MY_LETOH32 4435 PERL_CALLCONV U32 Perl_my_letoh32(U32 n); 4436 #endif 4437 #ifdef PERL_NEED_MY_HTOBE32 4438 PERL_CALLCONV U32 Perl_my_htobe32(U32 n); 4439 #endif 4440 #ifdef PERL_NEED_MY_BETOH32 4441 PERL_CALLCONV U32 Perl_my_betoh32(U32 n); 4442 #endif 4443 #ifdef PERL_NEED_MY_HTOLE64 4444 PERL_CALLCONV U64 Perl_my_htole64(U64 n); 4445 #endif 4446 #ifdef PERL_NEED_MY_LETOH64 4447 PERL_CALLCONV U64 Perl_my_letoh64(U64 n); 4448 #endif 4449 #ifdef PERL_NEED_MY_HTOBE64 4450 PERL_CALLCONV U64 Perl_my_htobe64(U64 n); 4451 #endif 4452 #ifdef PERL_NEED_MY_BETOH64 4453 PERL_CALLCONV U64 Perl_my_betoh64(U64 n); 4454 #endif 4455 4456 #ifdef PERL_NEED_MY_HTOLES 4457 PERL_CALLCONV short Perl_my_htoles(short n); 4458 #endif 4459 #ifdef PERL_NEED_MY_LETOHS 4460 PERL_CALLCONV short Perl_my_letohs(short n); 4461 #endif 4462 #ifdef PERL_NEED_MY_HTOBES 4463 PERL_CALLCONV short Perl_my_htobes(short n); 4464 #endif 4465 #ifdef PERL_NEED_MY_BETOHS 4466 PERL_CALLCONV short Perl_my_betohs(short n); 4467 #endif 4468 #ifdef PERL_NEED_MY_HTOLEI 4469 PERL_CALLCONV int Perl_my_htolei(int n); 4470 #endif 4471 #ifdef PERL_NEED_MY_LETOHI 4472 PERL_CALLCONV int Perl_my_letohi(int n); 4473 #endif 4474 #ifdef PERL_NEED_MY_HTOBEI 4475 PERL_CALLCONV int Perl_my_htobei(int n); 4476 #endif 4477 #ifdef PERL_NEED_MY_BETOHI 4478 PERL_CALLCONV int Perl_my_betohi(int n); 4479 #endif 4480 #ifdef PERL_NEED_MY_HTOLEL 4481 PERL_CALLCONV long Perl_my_htolel(long n); 4482 #endif 4483 #ifdef PERL_NEED_MY_LETOHL 4484 PERL_CALLCONV long Perl_my_letohl(long n); 4485 #endif 4486 #ifdef PERL_NEED_MY_HTOBEL 4487 PERL_CALLCONV long Perl_my_htobel(long n); 4488 #endif 4489 #ifdef PERL_NEED_MY_BETOHL 4490 PERL_CALLCONV long Perl_my_betohl(long n); 4491 #endif 4492 4493 PERL_CALLCONV void Perl_my_swabn(void* ptr, int n) 4494 __attribute__nonnull__(1); 4495 4496 4497 PERL_CALLCONV GV* Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, I32 sv_type) 4498 __attribute__nonnull__(pTHX_1); 4499 4500 PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type) 4501 __attribute__nonnull__(pTHX_1); 4502 4503 PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags) 4504 __attribute__warn_unused_result__ 4505 __attribute__nonnull__(pTHX_1); 4506 4507 4508 PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *cop, const HV *hv) 4509 __attribute__warn_unused_result__ 4510 __attribute__nonnull__(pTHX_1) 4511 __attribute__nonnull__(pTHX_2); 4512 4513 4514 #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP 4515 PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv) 4516 __attribute__nonnull__(pTHX_1); 4517 4518 #endif 4519 4520 #ifdef PERL_DONT_CREATE_GVSV 4521 PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV* gv) 4522 __attribute__nonnull__(pTHX_1); 4523 4524 #endif 4525 PERL_CALLCONV bool Perl_ckwarn(pTHX_ U32 w); 4526 PERL_CALLCONV bool Perl_ckwarn_d(pTHX_ U32 w); 4527 PERL_CALLCONV STRLEN * Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits, STRLEN size) 4528 __attribute__malloc__ 4529 __attribute__warn_unused_result__ 4530 __attribute__nonnull__(pTHX_2); 4531 4532 4533 PERL_CALLCONV void Perl_offer_nice_chunk(pTHX_ void *chunk, U32 chunk_size) 4534 __attribute__nonnull__(pTHX_1); 4535 4536 4537 #ifndef SPRINTF_RETURNS_STRLEN 4538 PERL_CALLCONV int Perl_my_sprintf(char *buffer, const char *pat, ...) 4539 __attribute__nonnull__(1) 4540 __attribute__nonnull__(2); 4541 4542 #endif 4543 4544 PERL_CALLCONV int Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...) 4545 __attribute__format__(__printf__,3,4) 4546 __attribute__nonnull__(1) 4547 __attribute__nonnull__(3); 4548 4549 PERL_CALLCONV int Perl_my_vsnprintf(char *buffer, const Size_t len, const char *format, va_list ap) 4550 __attribute__nonnull__(1) 4551 __attribute__nonnull__(3); 4552 4553 4554 PERL_CALLCONV void Perl_my_clearenv(pTHX); 4555 4556 #ifdef PERL_IMPLICIT_CONTEXT 4557 #ifdef PERL_GLOBAL_STRUCT_PRIVATE 4558 PERL_CALLCONV void* Perl_my_cxt_init(pTHX_ const char *my_cxt_key, size_t size) 4559 __attribute__nonnull__(pTHX_1); 4560 4561 PERL_CALLCONV int Perl_my_cxt_index(pTHX_ const char *my_cxt_key) 4562 __attribute__nonnull__(pTHX_1); 4563 4564 #else 4565 PERL_CALLCONV void* Perl_my_cxt_init(pTHX_ int *index, size_t size) 4566 __attribute__nonnull__(pTHX_1); 4567 4568 #endif 4569 #endif 4570 4571 #ifndef HAS_STRLCAT 4572 PERL_CALLCONV Size_t Perl_my_strlcat(char *dst, const char *src, Size_t size); 4573 #endif 4574 4575 #ifndef HAS_STRLCPY 4576 PERL_CALLCONV Size_t Perl_my_strlcpy(char *dst, const char *src, Size_t size); 4577 #endif 4578 4579 #ifdef PERL_MAD 4580 PERL_CALLCONV void Perl_pad_peg(const char* s) 4581 __attribute__nonnull__(1); 4582 4583 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) 4584 STATIC void S_xmldump_attr(pTHX_ I32 level, PerlIO *file, const char* pat, ...) 4585 __attribute__format__(__printf__,pTHX_3,pTHX_4) 4586 __attribute__nonnull__(pTHX_2) 4587 __attribute__nonnull__(pTHX_3); 4588 4589 #endif 4590 PERL_CALLCONV void Perl_xmldump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) 4591 __attribute__format__(__printf__,pTHX_3,pTHX_4) 4592 __attribute__nonnull__(pTHX_2) 4593 __attribute__nonnull__(pTHX_3); 4594 4595 PERL_CALLCONV void Perl_xmldump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args) 4596 __attribute__nonnull__(pTHX_2) 4597 __attribute__nonnull__(pTHX_3); 4598 4599 PERL_CALLCONV void Perl_xmldump_all(pTHX); 4600 PERL_CALLCONV void Perl_xmldump_packsubs(pTHX_ const HV* stash) 4601 __attribute__nonnull__(pTHX_1); 4602 4603 PERL_CALLCONV void Perl_xmldump_sub(pTHX_ const GV* gv) 4604 __attribute__nonnull__(pTHX_1); 4605 4606 PERL_CALLCONV void Perl_xmldump_form(pTHX_ const GV* gv) 4607 __attribute__nonnull__(pTHX_1); 4608 4609 PERL_CALLCONV void Perl_xmldump_eval(pTHX); 4610 PERL_CALLCONV char* Perl_sv_catxmlsv(pTHX_ SV *dsv, SV *ssv) 4611 __attribute__nonnull__(pTHX_1) 4612 __attribute__nonnull__(pTHX_2); 4613 4614 PERL_CALLCONV char* Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8) 4615 __attribute__nonnull__(pTHX_1) 4616 __attribute__nonnull__(pTHX_2); 4617 4618 PERL_CALLCONV char* Perl_sv_xmlpeek(pTHX_ SV* sv) 4619 __attribute__nonnull__(pTHX_1); 4620 4621 PERL_CALLCONV void Perl_do_pmop_xmldump(pTHX_ I32 level, PerlIO *file, const PMOP *pm) 4622 __attribute__nonnull__(pTHX_2); 4623 4624 PERL_CALLCONV void Perl_pmop_xmldump(pTHX_ const PMOP* pm); 4625 PERL_CALLCONV void Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) 4626 __attribute__nonnull__(pTHX_2); 4627 4628 PERL_CALLCONV void Perl_op_xmldump(pTHX_ const OP* arg) 4629 __attribute__nonnull__(pTHX_1); 4630 4631 4632 PERL_CALLCONV TOKEN* Perl_newTOKEN(pTHX_ I32 optype, YYSTYPE lval, MADPROP* madprop); 4633 PERL_CALLCONV void Perl_token_free(pTHX_ TOKEN* arg) 4634 __attribute__nonnull__(pTHX_1); 4635 4636 PERL_CALLCONV void Perl_token_getmad(pTHX_ TOKEN* arg, OP* o, char slot) 4637 __attribute__nonnull__(pTHX_1); 4638 4639 PERL_CALLCONV void Perl_op_getmad_weak(pTHX_ OP* from, OP* o, char slot); 4640 PERL_CALLCONV void Perl_op_getmad(pTHX_ OP* from, OP* o, char slot); 4641 PERL_CALLCONV void Perl_prepend_madprops(pTHX_ MADPROP* mp, OP* o, char slot); 4642 PERL_CALLCONV void Perl_append_madprops(pTHX_ MADPROP* tm, OP* o, char slot); 4643 PERL_CALLCONV void Perl_addmad(pTHX_ MADPROP* tm, MADPROP** root, char slot); 4644 PERL_CALLCONV MADPROP* Perl_newMADsv(pTHX_ char key, SV* sv) 4645 __attribute__nonnull__(pTHX_2); 4646 4647 PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, const void* val, I32 vlen); 4648 PERL_CALLCONV void Perl_mad_free(pTHX_ MADPROP* mp); 4649 4650 # if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) 4651 STATIC char* S_skipspace0(pTHX_ char *s) 4652 __attribute__nonnull__(pTHX_1); 4653 4654 STATIC char* S_skipspace1(pTHX_ char *s) 4655 __attribute__nonnull__(pTHX_1); 4656 4657 STATIC char* S_skipspace2(pTHX_ char *s, SV **sv) 4658 __attribute__nonnull__(pTHX_1); 4659 4660 STATIC void S_start_force(pTHX_ int where); 4661 STATIC void S_curmad(pTHX_ char slot, SV *sv); 4662 # endif 4663 PERL_CALLCONV int Perl_madlex(pTHX); 4664 PERL_CALLCONV int Perl_madparse(pTHX); 4665 #endif 4666 #if !defined(HAS_SIGNBIT) 4667 PERL_CALLCONV int Perl_signbit(NV f) 4668 __attribute__pure__; 4669 4670 #endif 4671 4672 PERL_CALLCONV void Perl_emulate_cop_io(pTHX_ const COP *const c, SV *const sv) 4673 __attribute__nonnull__(pTHX_1) 4674 __attribute__nonnull__(pTHX_2); 4675 4676 PERL_CALLCONV REGEXP * Perl_get_re_arg(pTHX_ SV *sv); 4677 4678 PERL_CALLCONV struct mro_meta* Perl_mro_meta_init(pTHX_ HV* stash) 4679 __attribute__nonnull__(pTHX_1); 4680 4681 #if defined(USE_ITHREADS) 4682 PERL_CALLCONV struct mro_meta* Perl_mro_meta_dup(pTHX_ struct mro_meta* smeta, CLONE_PARAMS* param) 4683 __attribute__nonnull__(pTHX_1) 4684 __attribute__nonnull__(pTHX_2); 4685 4686 #endif 4687 PERL_CALLCONV AV* Perl_mro_get_linear_isa(pTHX_ HV* stash) 4688 __attribute__nonnull__(pTHX_1); 4689 4690 #if defined(PERL_IN_MRO_C) || defined(PERL_DECL_PROT) 4691 STATIC AV* S_mro_get_linear_isa_c3(pTHX_ HV* stash, I32 level) 4692 __attribute__nonnull__(pTHX_1); 4693 4694 STATIC AV* S_mro_get_linear_isa_dfs(pTHX_ HV* stash, I32 level) 4695 __attribute__nonnull__(pTHX_1); 4696 4697 #endif 4698 PERL_CALLCONV void Perl_mro_isa_changed_in(pTHX_ HV* stash) 4699 __attribute__nonnull__(pTHX_1); 4700 4701 PERL_CALLCONV void Perl_mro_method_changed_in(pTHX_ HV* stash) 4702 __attribute__nonnull__(pTHX_1); 4703 4704 PERL_CALLCONV void Perl_boot_core_mro(pTHX); 4705 PERL_CALLCONV void Perl_sys_init(int* argc, char*** argv) 4706 __attribute__nonnull__(1) 4707 __attribute__nonnull__(2); 4708 4709 PERL_CALLCONV void Perl_sys_init3(int* argc, char*** argv, char*** env) 4710 __attribute__nonnull__(1) 4711 __attribute__nonnull__(2) 4712 __attribute__nonnull__(3); 4713 4714 PERL_CALLCONV void Perl_sys_term(void); 4715 4716 4717 END_EXTERN_C 4718 /* 4719 * ex: set ts=8 sts=4 sw=4 noet: 4720 */ 4721 /* ex: set ro: */ 4722