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