xref: /csrg-svn/usr.bin/pascal/libpc/ADDT.c (revision 40865)
1*40865Sbostic /*-
2*40865Sbostic  * Copyright (c) 1979 The Regents of the University of California.
3*40865Sbostic  * All rights reserved.
4*40865Sbostic  *
5*40865Sbostic  * %sccs.include.redist.c%
6*40865Sbostic  */
71637Smckusick 
8*40865Sbostic #ifndef lint
9*40865Sbostic static char sccsid[] = "@(#)ADDT.c	1.3 (Berkeley) 04/09/90";
10*40865Sbostic #endif /* not lint */
111637Smckusick 
121637Smckusick long *
132993Smckusic ADDT(result0, left, right, siz)
141637Smckusick 
151637Smckusick 	long		*result0;
161637Smckusick 	register long	*left;
171637Smckusick 	register long	*right;
182993Smckusic 	long		siz;
191637Smckusick {
201637Smckusick 	register long	*result = result0;
212993Smckusic 	register int	size = siz;
221637Smckusick 
231637Smckusick 	do {
241637Smckusick 		*result++ = *left++ | *right++;
251637Smckusick 	} while (--size);
261637Smckusick 	return result0;
271637Smckusick }
28