Home
last modified time | relevance | path

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

12

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.h55 if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \
61 if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \
135 (AvARRAY(padlist)[1]) \
136 ? AvARRAY((AV*)(AvARRAY(padlist)[1]))[po] : Nullsv;
140 PL_comppad = (PAD*) (AvARRAY(padlist)[n]); \
141 PL_curpad = AvARRAY(PL_comppad); \
159 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
166 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
184 #define CX_CURPAD_SV(block,po) (AvARRAY((AV*)((block).oldcomppad))[po])
222 #define PAD_COMPNAME_GEN(po) SvCUR(AvARRAY(PL_comppad_name)[po])
[all …]
H A Dav.c38 AvARRAY(av)[--key] = &PL_sv_undef; in Perl_av_reify()
40 sv = AvARRAY(av)[--key]; in Perl_av_reify()
45 key = AvARRAY(av) - AvALLOC(av); in Perl_av_reify()
86 if (AvALLOC(av) != AvARRAY(av)) { in Perl_av_extend()
88 tmp = AvARRAY(av) - AvALLOC(av); in Perl_av_extend()
89 Move(AvARRAY(av), AvALLOC(av), AvFILLp(av)+1, SV*); in Perl_av_extend()
234 if (AvARRAY(av)[key] == &PL_sv_undef) { in Perl_av_fetch()
243 && (!AvARRAY(av)[key] /* eg. @_ could have freed elts */ in Perl_av_fetch()
244 || SvTYPE(AvARRAY(av)[key]) == SVTYPEMASK)) { in Perl_av_fetch()
245 AvARRAY(av)[key] = &PL_sv_undef; /* 1/2 reify */ in Perl_av_fetch()
[all …]
H A Dpad.c186 PL_curpad = AvARRAY(PL_comppad); in Perl_pad_new()
244 AV *comppad_name = (AV*)AvARRAY(padlist)[0]; in Perl_pad_undef()
245 SV **namepad = AvARRAY(comppad_name); in Perl_pad_undef()
246 AV *comppad = (AV*)AvARRAY(padlist)[1]; in Perl_pad_undef()
247 SV **curpad = AvARRAY(comppad); in Perl_pad_undef()
284 SV* sv = AvARRAY(padlist)[ix--]; in Perl_pad_undef()
400 if (AvARRAY(PL_comppad) != PL_curpad) in Perl_pad_alloc()
411 SV **names = AvARRAY(PL_comppad_name); in Perl_pad_alloc()
431 PL_curpad = AvARRAY(PL_comppad); in Perl_pad_alloc()
501 svp = AvARRAY(PL_comppad_name); in Perl_pad_check_dup()
[all …]
H A Ddeb.c75 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()
H A Dav.h65 #define AvARRAY(av) ((SV**)((XPVAV*) SvANY(av))->xav_array) macro
H A Dpp_sort.c1501 p1 = p2 = AvARRAY(av); in PP()
1586 sortsv(sorting_av ? AvARRAY(av) : ORIGMARK+1, max, in PP()
1597 SV **p = sorting_av ? AvARRAY(av) : ORIGMARK+1; in PP()
1671 if (AvARRAY(av) != ary) { in sortcv_stacked()
1672 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in sortcv_stacked()
1683 AvARRAY(av)[0] = a; in sortcv_stacked()
1684 AvARRAY(av)[1] = b; in sortcv_stacked()
H A Dpp.c76 Copy(AvARRAY((AV*)TARG), SP+1, maxarg, SV*); in PP()
4112 Copy(AvARRAY(ary)+offset, MARK, length, SV*); in PP()
4123 *MARK = AvARRAY(ary)[offset+length-1]; in PP()
4126 for (i = length - 1, dst = &AvARRAY(ary)[offset]; i > 0; i--) in PP()
4136 src = &AvARRAY(ary)[offset-1]; in PP()
4141 dst = AvARRAY(ary); in PP()
4142 SvPVX(ary) = (char*)(AvARRAY(ary) - diff); /* diff is negative */ in PP()
4147 src = AvARRAY(ary) + offset + length; in PP()
4151 dst = &AvARRAY(ary)[AvFILLp(ary)+1]; in PP()
4159 for (src = tmparyval, dst = AvARRAY(ary) + offset; in PP()
[all …]
H A Dpp_hot.c756 Copy(AvARRAY(av), SP+1, maxarg, SV*); in PP()
1922 sv = AvARRAY(av)[++cx->blk_loop.iterix]; in PP()
2684 || !(sv = AvARRAY(av)[0])) in PP()
2842 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2893 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2929 if (AvARRAY(av) != ary) { in PP()
2930 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in PP()
2940 Copy(MARK,AvARRAY(av),items,SV*); in PP()
H A Dpp_ctl.c1548 int off = AvARRAY(ary) - AvALLOC(ary); in PP()
1560 Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*); in PP()
1812 AvARRAY(PL_curstack)[1] = *SP; in PP()
2165 Copy(AvARRAY(av), PL_stack_sp, items, SV*); in PP()
2192 Copy(AvARRAY(av), PL_stack_sp, items, SV*); in PP()
2265 Copy(AvARRAY(av), SP + 1, items, SV*); in PP()
2289 if (AvARRAY(av) != ary) { in PP()
2290 AvMAX(av) += AvARRAY(av) - AvALLOC(av); in PP()
2300 Copy(mark,AvARRAY(av),items,SV*); in PP()
H A Dpp.h307 PL_stack_base = AvARRAY(t); \
H A Dscope.c1036 PL_curpad = AvARRAY(PL_comppad); in Perl_leave_scope()
1045 AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR; in Perl_leave_scope()
H A Ddump.c1198 Perl_dump_indent(aTHX_ level, file, " ARRAY = 0x%"UVxf, PTR2UV(AvARRAY(sv))); in Perl_do_sv_dump()
1199 if (AvARRAY(sv) != AvALLOC(sv)) { in Perl_do_sv_dump()
1200 PerlIO_printf(file, " (offset=%"IVdf")\n", (IV)(AvARRAY(sv) - AvALLOC(sv))); in Perl_do_sv_dump()
H A Duniversal.c96 SV** svp = AvARRAY(av); in S_isa_lookup()
H A Dcop.h173 AvMAX(ary) += AvARRAY(ary) - AvALLOC(ary); \
H A Dsv.c4905 SV **svp = AvARRAY(av); in S_sv_add_backref()
4916 AvARRAY(av)[++AvFILLp(av)] = sv; /* av_push() */ in S_sv_add_backref()
4934 svp = AvARRAY(av); in S_sv_del_backref()
9552 svp = AvARRAY(av); in Perl_mg_dup()
10044 if (AvARRAY((AV*)sstr)) { in Perl_sv_dup()
10048 src_ary = AvARRAY((AV*)sstr); in Perl_sv_dup()
10874 SV** regexen = AvARRAY((AV*)proto_perl->Iregex_padav); in perl_clone_using()
10889 PL_regex_pad = AvARRAY(PL_regex_padav); in perl_clone_using()
11271 PL_stack_base = AvARRAY(PL_curstack); in perl_clone_using()
H A Dperl.c344 PL_regex_pad = AvARRAY(PL_regex_padav); in perl_construct()
621 SV **ary = AvARRAY(PL_regex_padav); in perl_destruct()
3951 PL_stack_base = AvARRAY(PL_curstack);
H A Dmg.c1873 targ = AvARRAY(av)[LvTARGOFF(sv)]; in Perl_magic_getdefelem()
1950 SV **svp = AvARRAY(av); in Perl_magic_killbackrefs()
H A Dutil.c3119 svp = AvARRAY(t->threadsv);
3130 thr->threadsvp = AvARRAY(thr->threadsv);
H A Dgv.c257 SV** svp = AvARRAY(av); in Perl_gv_fetchmeth()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs237 PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]); in reduce()
288 PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]); in first()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/
H A DPeek.xs57 svp = AvARRAY(padlist); in DeadCode()
61 pad = AvARRAY((AV*)svp[i]); in DeadCode()
67 args = AvARRAY(argav); in DeadCode()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h138 #define BSET_av_pushx(sv, arg) (AvARRAY(sv)[++AvFILLp(sv)] = arg)
162 PL_regex_pad = AvARRAY(PL_regex_padav); \
286 pad = AvARRAY(arg); \
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs996 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp); \
1002 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp);
1009 sortsv(AvARRAY(av), len, Perl_sv_cmp);
1705 SV **ary = AvARRAY(av); in scalar_call()
2878 ary = AvARRAY(av); in store_hook()
4077 SV **ary = AvARRAY(av); in retrieve_hook()
4151 AvARRAY(av)[0] = SvREFCNT_inc(frozen); in retrieve_hook()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.xs1526 AvARRAY(av)
1530 SV **svp = AvARRAY(av);
1542 XPUSHs(make_sv_object(aTHX_ sv_newmortal(), (AvARRAY(av)[idx])));
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.xs573 sortsv(AvARRAY(keys), in DD_dump()
577 sortsv(AvARRAY(keys), in DD_dump()

12