18 lines
299 B
C
18 lines
299 B
C
/*
|
|
** BLOCK EQUALITY TEST
|
|
**
|
|
** blocks `p' and `q', both of length `l', are tested
|
|
** for absolute equality.
|
|
** Returns one for equal, zero otherwise.
|
|
*/
|
|
AAbequal(p, q, l)
|
|
register char *p;
|
|
register char *q;
|
|
register int l;
|
|
{
|
|
for ( ; l > 0; --l)
|
|
if (*p++ != *q++)
|
|
return (0);
|
|
return (1);
|
|
}
|