diff options
Diffstat (limited to 'do/repeatary')
| -rw-r--r-- | do/repeatary | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/do/repeatary b/do/repeatary deleted file mode 100644 index 856a83d31f..0000000000 --- a/do/repeatary +++ /dev/null @@ -1,25 +0,0 @@ -int -do_repeatary(ARGS) -ARGSdecl -{ - MSP; - register int count = POPi; - register int items = sp - mark; - register int i; - int max; - - max = items * count; - MEXTEND(mark,max); - if (count > 1) { - while (sp > mark) { - if (*sp) - (*sp)->str_pok &= ~SP_TEMP; - } - mark++; - repeatcpy(mark + items, mark, items * sizeof(STR*), count - 1); - } - sp += max; - - MRETURN; -} - |