26a3c7897eb04da5144fe5afc8c6695b7c8577a9
[perl.git] / do / unshift
1 void
2 do_unshift(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;
10     register int i;
11
12     aunshift(ary,items);
13     i = 0;
14     for (st += ++sp; i < items; i++,st++) {
15         TARG = Str_new(27,0);
16         str_sset(TARG,*st);
17         (void)astore(ary,i,TARG);
18     }
19 }
20