* trans-stmt.c (gfc_trans_simple_do): New function.
[official-gcc.git] / libiberty / ffs.c
blobde047e217eb30502b1cd5edc20d506294716543d
1 /* ffs -- Find the first bit set in the parameter
3 @deftypefn Supplemental int ffs (int @var{valu})
5 Find the first (least significant) bit set in @var{valu}. Bits are
6 numbered from right to left, starting with bit 1 (corresponding to the
7 value 1). If @var{valu} is zero, zero is returned.
9 @end deftypefn
13 int
14 ffs (valu)
15 register int valu;
17 register int bit;
19 if (valu == 0)
20 return 0;
22 for (bit = 1; !(valu & 1); bit++)
23 valu >>= 1;
25 return bit;