Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/pp.c

Lines Matching refs:ary
4035     register AV *ary = (AV*)*++MARK;
4047     if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4048 	*MARK-- = SvTIED_obj((SV*)ary, mg);
4063 	    offset += AvFILLp(ary) + 1;
4071 		length += AvFILLp(ary) - offset + 1;
4077 	    length = AvMAX(ary) + 1;		/* close enough to infinity */
4081 	length = AvMAX(ary) + 1;
4083     if (offset > AvFILLp(ary) + 1) {
4086 	offset = AvFILLp(ary) + 1;
4088     after = AvFILLp(ary) + 1 - (offset + length);
4092 	if (!AvALLOC(ary))
4093 	    av_extend(ary, 0);
4100     if (newlen && !AvREAL(ary) && AvREIFY(ary))
4101 	av_reify(ary);
4112 	    Copy(AvARRAY(ary)+offset, MARK, length, SV*);
4113 	    if (AvREAL(ary)) {
4123 	    *MARK = AvARRAY(ary)[offset+length-1];
4124 	    if (AvREAL(ary)) {
4126 		for (i = length - 1, dst = &AvARRAY(ary)[offset]; i > 0; i--)
4130 	AvFILLp(ary) += diff;
4136 		src = &AvARRAY(ary)[offset-1];
4141 	    dst = AvARRAY(ary);
4142 	    SvPVX(ary) = (char*)(AvARRAY(ary) - diff); /* diff is negative */
4143 	    AvMAX(ary) += diff;
4147 		src = AvARRAY(ary) + offset + length;
4151 	    dst = &AvARRAY(ary)[AvFILLp(ary)+1];
4159 	    for (src = tmparyval, dst = AvARRAY(ary) + offset;
4170 	    Copy(AvARRAY(ary)+offset, tmparyval, length, SV*);
4177 	    if (offset < after && diff <= AvARRAY(ary) - AvALLOC(ary)) {
4179 		    src = AvARRAY(ary);
4183 		SvPVX(ary) = (char*)(AvARRAY(ary) - diff);/* diff is positive */
4184 		AvMAX(ary) += diff;
4185 		AvFILLp(ary) += diff;
4188 		if (AvFILLp(ary) + diff >= AvMAX(ary))	/* oh, well */
4189 		    av_extend(ary, AvFILLp(ary) + diff);
4190 		AvFILLp(ary) += diff;
4193 		    dst = AvARRAY(ary) + AvFILLp(ary);
4202 	for (src = MARK, dst = AvARRAY(ary) + offset; newlen; newlen--) {
4210 		if (AvREAL(ary)) {
4223 	    if (AvREAL(ary)) {
4240     register AV *ary = (AV*)*++MARK;
4244     if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4245 	*MARK-- = SvTIED_obj((SV*)ary, mg);
4254 	/* Why no pre-extend of ary here ? */
4259 	    av_push(ary, sv);
4263     PUSHi( AvFILL(ary) + 1 );
4295     register AV *ary = (AV*)*++MARK;
4300     if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4301 	*MARK-- = SvTIED_obj((SV*)ary, mg);
4310 	av_unshift(ary, SP - MARK);
4314 	    (void)av_store(ary, i++, sv);
4318     PUSHi( AvFILL(ary) + 1 );
4393     AV *ary;
4434 	ary = GvAVn((GV*)PAD_SVl(INT2PTR(PADOFFSET, pm->op_pmreplroot)));
4436 	ary = GvAVn((GV*)pm->op_pmreplroot);
4441 	ary = (AV*)PAD_SVl(0);
4443 	ary = GvAVn(PL_defgv);
4446 	ary = Nullav;
4447     if (ary && (gimme != G_ARRAY || (pm->op_pmflags & PMf_ONCE))) {
4450 	av_extend(ary,0);
4451 	av_clear(ary);
4453 	if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4455 	    XPUSHs(SvTIED_obj((SV*)ary, mg));
4458 	    if (!AvREAL(ary)) {
4459 		AvREAL_on(ary);
4460 		AvREIFY_off(ary);
4461 		for (i = AvFILLp(ary); i >= 0; i--)
4462 		    AvARRAY(ary)[i] = &PL_sv_undef;	/* don't free mere refs */
4465 	    SWITCHSTACK(PL_curstack, ary);
4466 	    PL_curstackinfo->si_stack = ary;
4663 	    SWITCHSTACK(ary, oldstack);
4665 	    if (SvSMAGICAL(ary)) {
4667 		mg_set((SV*)ary);
4672 		Copy(AvARRAY(ary), SP + 1, iters, SV*);
4687 		    SV **svp = av_fetch(ary, i, FALSE);