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