anchor.diff:   end;
   end;
   
  -function UTF8PtrCodeUnitGetCharAndIncFallback(const s:PAnsiChar;const Len:longint;var CodeUnit:longint):longword;
  +function UTF8PtrCodeUnitGetCharAndIncFallback(const s:PFLRERawByteChar;const Len:longint;var CodeUnit:longint):longword;
   var StartCodeUnit,Value,CharClass,State:longword;
   begin
    result:=0;
  
positive.code:        function AcquireThreadLocalStorageInstance:TFLREThreadLocalStorageInstance;
         procedure ReleaseThreadLocalStorageInstance(const ThreadLocalStorageInstance:TFLREThreadLocalStorageInstance);
  
         function SearchNextPossibleStart(const Input:PAnsiChar;const InputLength:longint):longint; {$ifdef cpu386}register;{$endif}
  
         function SearchNextPossibleStartForDFA(const Input:PAnsiChar;const InputLength:longint):longint; {$ifdef cpu386}register;{$endif}
  
         function SearchMatch(ThreadLocalStorageInstance:TFLREThreadLocalStorageInstance;var Captures:TFLRECaptures;StartPosition,UntilExcludingPosition:longint;UnanchoredStart:boolean):boolean;
  
  
negative.code:      if Count>=length(SplittedStrings) then begin
        SetLength(SplittedStrings,(Count+1)*2);
       end;
       SplittedStrings[Count]:=FLREPtrCopy(PFLRERawByteChar(Input),LastPosition,InputLength-LastPosition);
       inc(Count);
      end;
      SetLength(SplittedStrings,Count);
  