gforth: gforth/Attic/memcmp.c

1 :	anton	1.1	int memcmp(const char s1, const char s2, long n)
2 :			{
3 :			int i;
4 :
5 :			for (i=0; i<n; i++)
6 :			if (s1[i] != s2[i])
7 :			return s1[i]-s2[i];
8 :			return 0;
9 :			}