anchor.diff:  end;
   
   function CompareDFAState(const a,b:PFLREDFAState):boolean;
  -var i:integer;
  +var i:longint;
   begin
    result:=a=b;
    if not result then begin
  
positive.code:   CellToEntityIndex[Cell]:=ENT_DELETED;
    dec(RealSize);
    result:=true;
   end;
  end;
  
  
negative.code:   NamedGroupStringList.Add('wholematch');
    CountCaptures:=1;
    CountInternalCaptures:=0;
    GroupIndexIntegerStack:=TFLREIntegerList.Create;
    GroupNameStringStack:=TStringList.Create;
    try
     AnchoredRootNode:=NewNode(ntPAREN,ParseDisjunction,nil,nil,0);
    finally
     GroupIndexIntegerStack.Free;
     GroupNameStringStack.Free;
    end;
    while assigned(AnchoredRootNode) and OptimizeNode(@AnchoredRootNode) do begin
    end;
    if rfLONGEST in Flags then begin
  