xref: /csrg-svn/usr.bin/pascal/libpc/RELEQ.c (revision 1684)
1*1684Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1684Smckusick 
3*1684Smckusick static char sccsid[] = "@(#)RELEQ.c 1.1 10/30/80";
4*1684Smckusick 
5*1684Smckusick #include "h00vars.h"
6*1684Smckusick 
7*1684Smckusick RELEQ(size, str1, str2)
8*1684Smckusick 
9*1684Smckusick 	register int	size;
10*1684Smckusick 	register char	*str1;
11*1684Smckusick 	register char	*str2;
12*1684Smckusick {
13*1684Smckusick 	while (*str1++ == *str2++ && --size)
14*1684Smckusick 		/* void */;
15*1684Smckusick 	if (size == 0)
16*1684Smckusick 		return TRUE;
17*1684Smckusick 	return FALSE;
18*1684Smckusick }
19