xref: /original-bsd/usr.bin/pascal/libpc/RELTGE.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RELTGE.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 
7 bool
8 RELTGE(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 ((*right++ & ~*left++) != 0)
19 			return FALSE;
20 	} while (--longcnt);
21 	return TRUE;
22 }
23