xref: /csrg-svn/usr.bin/pascal/libpc/ADDT.c (revision 2993)
11637Smckusick /* Copyright (c) 1979 Regents of the University of California */
21637Smckusick 
3*2993Smckusic static char sccsid[] = "@(#)ADDT.c 1.2 03/07/81";
41637Smckusick 
51637Smckusick long *
6*2993Smckusic ADDT(result0, left, right, siz)
71637Smckusick 
81637Smckusick 	long		*result0;
91637Smckusick 	register long	*left;
101637Smckusick 	register long	*right;
11*2993Smckusic 	long		siz;
121637Smckusick {
131637Smckusick 	register long	*result = result0;
14*2993Smckusic 	register int	size = siz;
151637Smckusick 
161637Smckusick 	do {
171637Smckusick 		*result++ = *left++ | *right++;
181637Smckusick 	} while (--size);
191637Smckusick 	return result0;
201637Smckusick }
21