[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.3 %G%";

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

	if (to < from)
		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 */
af60b545 KM	2
f7593875	3	static char sccsid[] = "@(#)blkcpy.c 1.3 %G%";
af60b545	4
f7593875	5	blkcpy(from, to, siz)
af60b545 KM	6	register char *from;
af60b545 KM	7	register char *to;
f7593875	8	long siz;
af60b545 KM	9	{
	10	register int size = siz;
	11
882d2c35	12	if (to < from)
af60b545 KM	13	while(size-- > 0)
	14	to++ = from++;
	15	else {
	16	to += size;
	17	from += size;
	18	while(size-- > 0)
	19	--to = --from;
	20	}
	21	}