Home
last modified time | relevance | path

Searched refs:AvARRAY (Results 1 – 25 of 40) sorted by relevance

12

/mirbsd/src/gnu/usr.bin/perl/
Dpad.h55 if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \
61 if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \
140 (AvARRAY(padlist)[1]) \
141 ? AvARRAY((AV*)(AvARRAY(padlist)[1]))[po] : Nullsv;
145 PL_comppad = (PAD*) (AvARRAY(padlist)[n]); \
146 PL_curpad = AvARRAY(PL_comppad); \
164 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
171 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
189 #define CX_CURPAD_SV(block,po) (AvARRAY((AV*)((block).oldcomppad))[po])
229 #define PAD_COMPNAME_GEN(po) SvCUR(AvARRAY(PL_comppad_name)[po])
[all …]
Dav.c37 AvARRAY(av)[--key] = &PL_sv_undef; in Perl_av_reify()
39 SV * const sv = AvARRAY(av)[--key]; in Perl_av_reify()
44 key = AvARRAY(av) - AvALLOC(av); in Perl_av_reify()
85 if (AvALLOC(av) != AvARRAY(av)) { in Perl_av_extend()
87 tmp = AvARRAY(av) - AvALLOC(av); in Perl_av_extend()
88 Move(AvARRAY(av), AvALLOC(av), AvFILLp(av)+1, SV*); in Perl_av_extend()
237 if (AvARRAY(av)[key] == &PL_sv_undef) { in Perl_av_fetch()
246 && (!AvARRAY(av)[key] /* eg. @_ could have freed elts */ in Perl_av_fetch()
247 || SvTYPE(AvARRAY(av)[key]) == SVTYPEMASK)) { in Perl_av_fetch()
248 AvARRAY(av)[key] = &PL_sv_undef; /* 1/2 reify */ in Perl_av_fetch()
[all …]
Dpad.c191 PL_curpad = AvARRAY(PL_comppad); in Perl_pad_new()
249 AV * const comppad_name = (AV*)AvARRAY(padlist)[0]; in Perl_pad_undef()
250 SV ** const namepad = AvARRAY(comppad_name); in Perl_pad_undef()
251 AV * const comppad = (AV*)AvARRAY(padlist)[1]; in Perl_pad_undef()
252 SV ** const curpad = AvARRAY(comppad); in Perl_pad_undef()
292 SV* const sv = AvARRAY(padlist)[ix--]; in Perl_pad_undef()
408 if (AvARRAY(PL_comppad) != PL_curpad) in Perl_pad_alloc()
419 SV * const * const names = AvARRAY(PL_comppad_name); in Perl_pad_alloc()
439 PL_curpad = AvARRAY(PL_comppad); in Perl_pad_alloc()
507 svp = AvARRAY(PL_comppad_name); in Perl_pad_check_dup()
[all …]
Ddeb.c80 PTR2UV(PL_mainstack), PTR2UV(AvARRAY(PL_curstack)), in Perl_debstackptrs()
238 stack_max = PL_stack_sp - AvARRAY(si->si_stack); in Perl_deb_stack_all()
277 deb_stack_n(AvARRAY(si->si_stack), in Perl_deb_stack_all()
Dav.h65 #define AvARRAY(av) ((SV**)((XPVAV*) SvANY(av))->xav_array) macro
Dpp.c91 Copy(AvARRAY((AV*)TARG), SP+1, maxarg, SV*); in PP()
4207 Copy(AvARRAY(ary)+offset, MARK, length, SV*); in PP()
4218 *MARK = AvARRAY(ary)[offset+length-1]; in PP()
4221 for (i = length - 1, dst = &AvARRAY(ary)[offset]; i > 0; i--) in PP()
4231 src = &AvARRAY(ary)[offset-1]; in PP()
4236 dst = AvARRAY(ary); in PP()
4237 SvPV_set(ary, (char*)(AvARRAY(ary) - diff)); /* diff is negative */ in PP()
4242 src = AvARRAY(ary) + offset + length; in PP()
4246 dst = &AvARRAY(ary)[AvFILLp(ary)+1]; in PP()
4254 Copy( tmparyval, AvARRAY(ary) + offset, newlen, SV* ); in PP()
[all …]
Dpp_sort.c1578 p1 = p2 = AvARRAY(av); in PP()
1695 start = sorting_av ? AvARRAY(av) : ORIGMARK+1; in PP()
1775 if (AvARRAY(av) != ary) { in sortcv_stacked()
1776 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in sortcv_stacked()
1787 AvARRAY(av)[0] = a; in sortcv_stacked()
1788 AvARRAY(av)[1] = b; in sortcv_stacked()
Dpp_hot.c770 Copy(AvARRAY(av), SP+1, maxarg, SV*); in PP()
1927 sv = AvARRAY(av)[--cx->blk_loop.iterix]; in PP()
1943 sv = AvARRAY(av)[++cx->blk_loop.iterix]; in PP()
2708 || !(sv = AvARRAY(av)[0])) in PP()
2865 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2917 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2954 if (AvARRAY(av) != ary) { in PP()
2955 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in PP()
2965 Copy(MARK,AvARRAY(av),items,SV*); in PP()
Dpp_ctl.c1566 const int off = AvARRAY(ary) - AvALLOC(ary); in PP()
1578 Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*); in PP()
1868 AvARRAY(PL_curstack)[1] = *SP; in PP()
2227 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2251 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2332 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2356 if (AvARRAY(av) != ary) { in PP()
2357 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in PP()
2368 Copy(mark,AvARRAY(av),items,SV*); in PP()
Dscope.c1053 PL_curpad = AvARRAY(PL_comppad); in Perl_leave_scope()
1062 AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR; in Perl_leave_scope()
Dpp.h394 PL_stack_base = AvARRAY(t); \
Ddump.c1211 Perl_dump_indent(aTHX_ level, file, " ARRAY = 0x%"UVxf, PTR2UV(AvARRAY(sv))); in Perl_do_sv_dump()
1212 if (AvARRAY(sv) != AvALLOC(sv)) { in Perl_do_sv_dump()
1213 PerlIO_printf(file, " (offset=%"IVdf")\n", (IV)(AvARRAY(sv) - AvALLOC(sv))); in Perl_do_sv_dump()
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
Dmulticall.h39 SV** const svp = AvARRAY(padlist); in multicall_pad_push()
41 SV** const oldpad = AvARRAY(svp[depth-1]); in multicall_pad_push()
44 SV** const names = AvARRAY(svp[0]); in multicall_pad_push()
144 PL_comppad = (AV*) (AvARRAY(padlist)[CvDEPTH(multicall_cv)]); \
145 PL_curpad = AvARRAY(PL_comppad); \
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/Peek/
DPeek.xs57 svp = AvARRAY(padlist); in DeadCode()
61 pad = AvARRAY((AV*)svp[i]); in DeadCode()
67 args = AvARRAY(argav); in DeadCode()
DChanges47 Changes by Gisle: do not print both if AvARRAY == AvALLOC;
/mirbsd/src/gnu/usr.bin/perl/ext/ByteLoader/
Dbytecode.h145 #define BSET_av_pushx(sv, arg) (AvARRAY(sv)[++AvFILLp(sv)] = arg)
169 PL_regex_pad = AvARRAY(PL_regex_padav); \
293 pad = AvARRAY(arg); \
/mirbsd/src/gnu/usr.bin/perl/jpl/JNI/
DJNI.xs123 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
154 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
185 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
216 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
247 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
278 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
309 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
340 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) in makeargs()
377 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) { in makeargs()
406 for (esv = AvARRAY((AV*)rv), i = 0; i < len; esv++, i++) { in makeargs()
Dtypemap.gcc58 $var = makeargs(sig, AvARRAY(av), maxarg);
Dtypemap58 $var = makeargs(sig, AvARRAY(av), maxarg);
Dtypemap.win3258 $var = makeargs(sig, AvARRAY(av), maxarg);
/mirbsd/src/gnu/usr.bin/perl/ext/Thread/
DThread.xs633 svp = AvARRAY(av);
649 for (svp = AvARRAY(av); n > 0; n--, svp++)
/mirbsd/src/gnu/usr.bin/perl/ext/threads/
Dthreads.xs640 sv_dump(SvRV(AvARRAY(params)[i]));
650 sv_dump(SvRV(AvARRAY(retparam)[i]));
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/
DStorable.xs1049 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp); \
1055 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp);
1062 sortsv(AvARRAY(av), len, Perl_sv_cmp);
1795 SV **ary = AvARRAY(av); in scalar_call()
2975 ary = AvARRAY(av); in store_hook()
4226 SV **ary = AvARRAY(av); in retrieve_hook()
4270 AvARRAY(av)[0] = SvREFCNT_inc(frozen); in retrieve_hook()
4323 AvARRAY(av)[0] = SvREFCNT_inc(frozen); in retrieve_hook()
/mirbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs1573 AvARRAY(av)
1577 SV **svp = AvARRAY(av);
1589 XPUSHs(make_sv_object(aTHX_ sv_newmortal(), (AvARRAY(av)[idx])));
/mirbsd/src/gnu/usr.bin/perl/ext/Data/Dumper/
DDumper.xs577 sortsv(AvARRAY(keys), in DD_dump()
581 sortsv(AvARRAY(keys), in DD_dump()

12