[p5sagit/p5-mst-13.2.git] / do / repeatary

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;
}
Commit	Line	Data
79072805	1	int
	2	do_repeatary(ARGS)
	3	ARGSdecl
	4	{
	5	MSP;
	6	register int count = POPi;
	7	register int items = sp - mark;
	8	register int i;
	9	int max;
	10
	11	max = items * count;
	12	MEXTEND(mark,max);
	13	if (count > 1) {
	14	while (sp > mark) {
	15	if (*sp)
	16	(*sp)->str_pok &= ~SP_TEMP;
	17	}
	18	mark++;
	19	repeatcpy(mark + items, mark, items * sizeof(STR*), count - 1);
	20	}
	21	sp += max;
	22
	23	MRETURN;
	24	}
	25