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: 
  procedure TFLRE.CompileFixedStringSearch;
  var c:ansichar;
      i,j,k:integer;
      HasMatch:boolean;
  begin
   FixedStringLength:=length(FixedString);
  
negative.code: 
  procedure TFLRE.CompileByteMapForOnePassNFAAndDFA;
  var Node:PFLRENode;
      i,j,ByteCount:longint;
      CharSetMap:TFLRECharClass;
      CharClass:TFLRECharClass;
      c:ansichar;
  