xref: /original-bsd/usr.bin/pascal/libpc/RELTLE.c (revision c3e32dec)
1 /*-
2  * Copyright (c) 1979, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)RELTLE.c	8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11 
12 #include "h00vars.h"
13 
14 bool
15 RELTLE(bytecnt, left, right)
16 
17 	long		bytecnt;
18 	register long	*left;
19 	register long	*right;
20 {
21 	register int	longcnt;
22 
23 	longcnt = bytecnt >> 2;
24 	do	{
25 		if ((*left++ & ~*right++) != 0)
26 			return FALSE;
27 	} while (--longcnt);
28 	return TRUE;
29 }
30