anchor.diff:   Optimize;
    Inverted:=not Inverted;
    if assigned(First) and (First=Last) and (First.Lo=0) and (First.Hi=$ffffffff) then begin
  -  First.Destroy;
  +  First.Free;
    end else if not assigned(First) then begin
     TFLREUnicodeCharClassRange.Create(self,0,$ffffffff);
    end else begin
  
positive.code:       result.Subs.Delete(Counter);
        OK:=true;
       end else if Temp.Operation=FLREpfnoANY then begin
        Temp.Destroy;
        result.Subs.Delete(Counter);
        result.Exact:=false;
        OK:=true;
  
negative.code: procedure TFLREUnicodeCharClass.Clear;
  begin
   while assigned(First) do begin
    First.Free;
   end;
   Inverted:=false;
   Canonicalized:=false;
  