[fpc-devel] [patch] tBits

[Dariusz Mazur]

Hi
 Here is patch to tBits ans test program.
 Its repair FindnextBit.
 I also introduce FindNextRaw,
 based on it faster version FindNextBit can be done
I can add:
[code]
function  FindFirstBit;
begin
  result:=findNextRaw(-1, state);
end;
function  FindNextBit;
begin
  result:=findNextRaw(findIndex, findState);
end;
[/code]



 and can be helpful in  enumerator.

  With this I have and question:
  For me function FindNextRaw should be in protected section
  But then we cant use them in enumerator, except when something like 
friend classes can be used in FPC.
  I only read about this concept, is it possible/plan  in FPC.
  
 
 

-- 
  Darek




-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: tbits1.pp
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20091111/4b8cbfb3/attachment.ksh>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: tbits.patch
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20091111/4b8cbfb3/attachment-0001.ksh>