Return to bequal.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / gutil

Annotation of 42BSD/ingres/source/gutil/bequal.c, revision 1.1.1.1

1.1       root        1: # include      <useful.h>
                      2: # include      <sccs.h>
                      3: 
                      4: SCCSID(@(#)bequal.c    7.1     2/5/81)
                      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: bool
                     15: bequal(a, b, l)
                     16: register char  *a, *b;
                     17: register int   l;
                     18: {
                     19:        while (l-- > 0)
                     20:                if (*a++ != *b++)
                     21:                        return(FALSE);
                     22:        return(TRUE);
                     23: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.