Return to bitpos.c CVS log

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

Annotation of 42BSD/ingres/source/gutil/bitpos.c, revision 1.1

1.1     ! root        1: # include      <sccs.h>
        !             2: 
        !             3: SCCSID(@(#)bitpos.c    7.1     2/5/81)
        !             4: 
        !             5: /*
        !             6: **  FIND HIGH ORDER BIT POSITION
        !             7: **
        !             8: **     The position of the highest ordered one bit in `wd' is
        !             9: **     found and returned.  Bits are numbered 0 -> 15, from
        !            10: **     right (low-order) to left (high-order) in word.
        !            11: */
        !            12: 
        !            13: bitpos(wd)
        !            14: register int   wd;
        !            15: {
        !            16:        register int    i, j;
        !            17:        register int    pos;
        !            18: 
        !            19:        pos = -1;
        !            20: 
        !            21:        for (i = 1, j = 0; wd; i <<= 1, j++)
        !            22:        {
        !            23:                if (wd & i)
        !            24:                {
        !            25:                        pos = j;
        !            26:                        wd &= ~i;
        !            27:                }
        !            28:        }
        !            29: 
        !            30:        return (pos);
        !            31: }

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