[fpc-devel] Forin feature with tBits

[Dariusz Mazur]

If try to apply forin feature to tBits.
 But I have two problems
1. function FindFirstBit has bug
try:
  List := TEnumBits.Create(10);
  List.bits[1]:=true;
  List.bits[6]:=true;
  writeln(list.findFirstBit(true));
  writeln(list.findNextBit);
  writeln(list.findNextBit);


should return -1, but exception received

2. findfirstbit is not multithread aware (because state is per object, 
not local)


Should I prepare patch?
Whats about used names?



-- 
  Darek




-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: tforinitbits.pp
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20091106/798e6123/attachment.ksh>