Re: Efficient Bit Vector Manipulation.

[vincent.diemunsch@gmail.com]

> The following should give you the k you ask for:
> 
>    type Position_Type is range 0 .. 32;
> 
>     function Significant_Bits(I: Int) return Position_Type is
>        Result: Position_Type := 0;
>        Value:  Int := I;
>     begin
>        while Value > 1 loop
>  	 Result := Result + 1;
>  	 Value := Value / 2;
>        end loop;
>        return Result;
>     end Significant_Bits;
> 

Thank you Stephan. This is indeed the obvious solution.
There are much faster ones on the site given by Niklas.