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

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

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

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