xref: /original-bsd/usr.bin/pascal/libpc/RELTLT.c (revision 6b7db209)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RELTLT.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 
7 bool
8 RELTLT(bytecnt, left, right)
9 
10 	long		bytecnt;
11 	register long	*left;
12 	register long	*right;
13 {
14 	register int	longcnt;
15 
16 	longcnt = bytecnt >> 2;
17 	do	{
18 		if ((*left & ~*right) != 0)
19 			return FALSE;
20 		if ((*right++ & ~*left++) != 0)
21 			goto leq;
22 	} while (--longcnt);
23 	return FALSE;
24 leq:
25 	while (--longcnt) {
26 		if ((*left++ & ~*right++) != 0)
27 			return FALSE;
28 	}
29 	return TRUE;
30 }
31