xref: /csrg-svn/usr.bin/pascal/libpc/RELNE.c (revision 3021)
11685Smckusick /* Copyright (c) 1979 Regents of the University of California */
21685Smckusick 
3*3021Smckusic static char sccsid[] = "@(#)RELNE.c 1.2 03/07/81";
41685Smckusick 
51685Smckusick #include "h00vars.h"
61685Smckusick 
7*3021Smckusic bool
8*3021Smckusic RELNE(siz, str1, str2)
91685Smckusick 
10*3021Smckusic 	long		siz;
111685Smckusick 	register char	*str1;
121685Smckusick 	register char	*str2;
131685Smckusick {
14*3021Smckusic 	register int size = siz;
15*3021Smckusic 
161685Smckusick 	while (*str1++ == *str2++ && --size)
171685Smckusick 		/* void */;
181685Smckusick 	if (size == 0)
191685Smckusick 		return FALSE;
201685Smckusick 	return TRUE;
211685Smckusick }
22