Lines Matching +defs:file +defs:exists +defs:p

8  *    License or the Artistic License, as specified in the README file.
19 * [p.23 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
22 /* This file contains the functions that create and manipulate the OP
25 * Note that during the build of miniperl, a temporary copy of this file
133 to a top-level unit like a subroutine or file that will be called by
212 #define DIFF(o,p) \
213 (assert(((char *)(p) - (char *)(o)) % sizeof(I32**) == 0), \
214 ((size_t)((I32 **)(p) - (I32**)(o))))
247 DEBUG_m(PerlIO_printf(Perl_debug_log, "mapped %lu at %p\n",
265 DEBUG_S_warn((aTHX_ "allocated new op slab sz 0x%x, %p, head slab %p",
295 OP **p = (OP **)PerlMemShared_realloc(slab->opslab_freed, newsize * sizeof(OP*));
297 if (!p)
300 Zero(p+slab->opslab_freed_size, newsize - slab->opslab_freed_size, OP *);
302 slab->opslab_freed = p;
371 DEBUG_S_warn((aTHX_ "realloced op at %p, slab %p, head slab %p",
397 DEBUG_S_warn((aTHX_ "linked unused op space at %p, slab %p, head slab %p",
416 DEBUG_S_warn((aTHX_ "allocating op at %p, slab %p, head slab %p",
438 /*DEBUG_U(PerlIO_printf(Perl_debug_log,"mprotect ->ro %lu at %p\n",
441 Perl_warn(aTHX_ "mprotect for %p %lu failed with %d", (void *)slab,
456 /*DEBUG_U(PerlIO_printf(Perl_debug_log,"mprotect ->rw %lu at %p\n",
460 Perl_warn(aTHX_ "mprotect RW for %p %lu failed with %d", (void *)slab,
476 DIE(aTHX_ "panic: freed op 0x%p called\n", PL_op);
508 DEBUG_S_warn((aTHX_ "freeing op at %p, slab %p, head slab %p",
542 DEBUG_S_warn((aTHX_ "freeing slab %p", (void*)slab));
551 DEBUG_m(PerlIO_printf(Perl_debug_log, "Deallocate slab at %p\n",
1120 pad_free doesn't actually remove the sv that exists in the pad;
1710 * newLOGOP(). This function exists mainly to avoid op_first assignment
1711 * being spread throughout this file.
4885 /* This function exists solely to provide a scope to limit
4964 if (isALPHA_FOLD_EQ(*s, 'p')) goto nope;
6854 * with P => p. Then, because it's merge-able with the
6859 * [i+1] P p # P-T => p-t
6954 * range below. Lets assume it is N..P => n..p
6958 * [i+1] N n # N..P => n..p
7293 const char *p = SvEND(repointer_list) - sizeof(IV);
7294 const IV offset = *((IV*)p);
7298 SvEND_set(repointer_list, p);
7785 This function only exists if Perl has been compiled to use ithreads.
9760 - defined(), exists() or eof()
9973 Perl_cv_ckproto_len_flags(pTHX_ const CV *cv, const GV *gv, const char *p,
9986 if (p == NULL && cvp == NULL)
9992 if (p && cvp) {
9993 p = S_strip_spaces(aTHX_ p, &plen);
9996 if (plen == clen && memEQ(cvp, p, plen))
10000 if (bytes_cmp_utf8((const U8 *)cvp, clen, (const U8 *)p, plen) == 0)
10004 if (bytes_cmp_utf8((const U8 *)p, plen, (const U8 *)cvp, clen) == 0)
10040 if (p)
10041 Perl_sv_catpvf(aTHX_ msg, "(%" UTF8f ")", UTF8fARG(flags & SVf_UTF8,len,p));
10327 const bool exists = CvROOT(cv) || CvXSUB(cv);
10333 if (exists || SvPOK(cv))
10337 if (exists) {
10910 const bool exists = CvROOT(cv) || CvXSUB(cv);
10916 if (exists || SvPOK(cv))
10919 if (exists || (isGV(gv) && GvASSUMECV(gv))) {
11469 const char *const file = CopFILE(PL_curcop);
11496 /* file becomes the CvFILE. For an XS, it's usually static storage,
11504 file ? file : "", "",
12053 /* Check routines. See the comments at the top of this file for details
12568 "exists argument is not a subroutine name");
12574 Perl_croak(aTHX_ "exists argument is not a HASH or ARRAY "
14002 * (R, if it exists, will be a regcomp op)
14430 const char *p = proto;
14433 while (*--p != '[')
14435 if (*p == '$'
14442 Perl_form(aTHX_ "one of %.*s",(int)(end - p), p));
15739 (declared at file scope, typically also marked C<static> to give