8ff5b2400c2b4f1a3b04bdb78eb37a53d2cd1672
[perl.git] / do / push
1 STR *
2 do_push(ary,arglast)
3 register ARRAY *ary;
4 int *arglast;
5 {
6     register STR **st = stack->ary_array;
7     register int sp = arglast[1];
8     register int items = arglast[2] - sp;
9     register STR *TARG = &str_undef;
10
11     for (st += ++sp; items > 0; items--,st++) {
12         TARG = Str_new(26,0);
13         if (*st)
14             str_sset(TARG,*st);
15         (void)apush(ary,TARG);
16     }
17     return TARG;
18 }
19