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

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

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

long *
MULT(result0, left, right, size)

	long		*result0;
	register long	*left;
	register long	*right;
	register int	size;
{
	register long	*result = result0;

	do {
		*result++ = *left++ & *right++;
	} while (--size);
	return result0;
}
Commit	Line	Data
a9b1f84c KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)MULT.c 1.1 %G%";
	4
	5	long *
	6	MULT(result0, left, right, size)
	7
	8	long *result0;
	9	register long *left;
	10	register long *right;
	11	register int size;
	12	{
	13	register long *result = result0;
	14
	15	do {
	16	result++ = left++ & *right++;
	17	} while (--size);
	18	return result0;
	19	}