4.3BSD - /usr/ingres/source/gutil/bequal.c

   1: # include   <useful.h>
   2: # include   <sccs.h>
   3: 
   4: SCCSID(@(#)bequal.c	8.2	2/5/85)
   5: 
   6: /*
   7: **  BLOCK EQUALITY TEST
   8: **
   9: **	blocks `a' and `b', both of length `l', are tested
  10: **		for absolute equality.
  11: **	Returns one for equal, zero otherwise.
  12: */
  13: 
  14: bequal(a, b, l)
  15: register char   *a, *b;
  16: register int    l;
  17: {
  18:     if ( a == (char *) 0 || b == (char *) 0 )
  19:         return ( FALSE );
  20: 
  21:     while (l-- > 0)
  22:         if (*a++ != *b++)
  23:             return(FALSE);
  24:     return(TRUE);
  25: }

Defined functions