[unix-history] / usr / src / usr.bin / pascal / libpc / blkcpy.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)blkcpy.c 1.1 %G%";

blkcpy(siz, from, to)
	long		siz;
	register char	*from;
	register char	*to;
{
	register int	size = siz;

	if (from + size < to)
		while(size-- > 0)
			*to++ = *from++;
	else {
		to += size;
		from += size;
		while(size-- > 0)
			*--to = *--from;
	}
}
Commit	Line	Data
af60b545 KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)blkcpy.c 1.1 %G%";
	4
	5	blkcpy(siz, from, to)
	6	long siz;
	7	register char *from;
	8	register char *to;
	9	{
	10	register int size = siz;
	11
	12	if (from + size < to)
	13	while(size-- > 0)
	14	to++ = from++;
	15	else {
	16	to += size;
	17	from += size;
	18	while(size-- > 0)
	19	--to = --from;
	20	}
	21	}