anchor.diff:   // Process state instructions
    inc(Generation);
    NewState.CountInstructions:=0;
  - NewState.Flags:=(State^.Flags and sfDFAStart) shl sfDFANeedShift;
  + NewState.Flags:=0;
    for Counter:=0 To State^.CountInstructions-1 do begin
     Instruction:=State^.Instructions[Counter];
     case Instruction^.IDandOpcode and $ff of
  
positive.code:     Queues:array[0..2] of TFLREDFAWorkQueue;
  begin
  
   if State=DefaultStates[dskDead] then begin
    result:=nil;
    exit;
   end;
  
negative.code:  end;
  end;
  
  function TFLREDFA.RunStateOnByte(State:PFLREDFAState;const Position:longint;const CurrentChar:longword):PFLREDFAState;
  var Counter:longint;
      Instruction:PFLREInstruction;
      NeedFlags,BeforeFlags,OldBeforeFlags,AfterFlags,Flags,UnicodeChar:longword;
  