Re: Skybuck presents alternative division method, to be benchmarked ;)

Oh well, the delphi/borland-way of leading zero count is even more 
crappy/slow:

// slow ****:
type
 TBitIndex = 0..31;
 TBitSet = set of TBitIndex;

function LeadingZeroCountV2( const Value : longword ) : longword; inline;
var
 vBitIndex : TBitIndex;
begin
 result := 32;
 // replacement
 for vBitIndex := High(TbitIndex) downto Low(TbitIndex) do
 begin
  if vBitIndex in TBitSet(Value) then
  begin
   result := result - (1+vBitIndex);
   break;
  end;
 end;
end;

It makes the routine twice as slow even while being inlined !

BAH ! :P* ;) :)

Bye,
  Skybuck.