diff options
Diffstat (limited to 'do/unshift')
-rw-r--r-- | do/unshift | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/do/unshift b/do/unshift deleted file mode 100644 index 26a3c7897e..0000000000 --- a/do/unshift +++ /dev/null @@ -1,20 +0,0 @@ -void -do_unshift(ary,arglast) -register ARRAY *ary; -int *arglast; -{ - register STR **st = stack->ary_array; - register int sp = arglast[1]; - register int items = arglast[2] - sp; - register STR *TARG; - register int i; - - aunshift(ary,items); - i = 0; - for (st += ++sp; i < items; i++,st++) { - TARG = Str_new(27,0); - str_sset(TARG,*st); - (void)astore(ary,i,TARG); - } -} - |