anchor.diff:         InputLength:longint;
          constructor Create(AInstance:TFLRE);
          destructor Destroy; override;
  +       function GetSatisfyFlags(const Position:longint):longword;
        end;
   
        TFLRE=class
  
positive.code: destructor TFLREThreadLocalState.Destroy;
  begin
   inherited Destroy;
  end;
  
  constructor TFLRE.Create(const ARegularExpression:ansistring;const AFlags:TFLREFlags=[]);
  
negative.code:        procedure CompilePrefixCharClasses;
         procedure CompileByteMapForOnePassNFAAndDFA;
         procedure CompileOnePassNFA;
         function IsWordChar(const CharValue:longword):boolean; {$ifdef caninline}inline;{$endif}
         function NewSubMatches(const Count:longint;const BitState:longword):PFLRESubMatches; {$ifdef caninline}inline;{$endif}
         procedure DecRef(const SubMatches:PFLRESubMatches); {$ifdef caninline}inline;{$endif}
         function IncRef(const SubMatches:PFLRESubMatches):PFLRESubMatches; {$ifdef caninline}inline;{$endif}
         function Update(const SubMatches:PFLRESubMatches;const Index,Position:longint):PFLRESubMatches; {$ifdef caninline}inline;{$endif}
         function NewThread(const Instruction:PFLREInstruction;const SubMatches:PFLRESubMatches):TFLREThread; {$ifdef caninline}inline;{$endif}
         procedure AddThread(const ThreadLocalState:TFLREThreadLocalState;const ThreadList:PFLREThreadList;Instruction:PFLREInstruction;SubMatches:PFLRESubMatches;const Position:longint);
         function DFACacheState(const State:PFLREDFAState):PFLREDFAState; {$ifdef caninline}inline;{$endif}
         procedure DFAAddInstructionThread(const State:PFLREDFAState;Instruction:PFLREInstruction);
  