xref: /original-bsd/usr.bin/pascal/libpc/RELEQ.c (revision 0a83ae40)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RELEQ.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 
7 bool
8 RELEQ(siz, str1, str2)
9 
10 	long		siz;
11 	register char	*str1;
12 	register char	*str2;
13 {
14 	register int size = siz;
15 
16 	while (*str1++ == *str2++ && --size)
17 		/* void */;
18 	if (size == 0)
19 		return TRUE;
20 	return FALSE;
21 }
22