xref: /csrg-svn/usr.bin/pascal/libpc/ADDT.c (revision 1637)
1*1637Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1637Smckusick 
3*1637Smckusick static char sccsid[] = "@(#)ADDT.c 1.1 10/30/80";
4*1637Smckusick 
5*1637Smckusick long *
6*1637Smckusick ADDT(result0, left, right, size)
7*1637Smckusick 
8*1637Smckusick 	long		*result0;
9*1637Smckusick 	register long	*left;
10*1637Smckusick 	register long	*right;
11*1637Smckusick 	register int	size;
12*1637Smckusick {
13*1637Smckusick 	register long	*result = result0;
14*1637Smckusick 
15*1637Smckusick 	do {
16*1637Smckusick 		*result++ = *left++ | *right++;
17*1637Smckusick 	} while (--size);
18*1637Smckusick 	return result0;
19*1637Smckusick }
20