anchor.diff:               end else begin
                 e:=0;
                 while i<ReplacementLength do begin
  -               c:=PAnsiChar(Replacement)[i];
  +               c:=PFLRERawByteChar(Replacement)[i];
                  case c of
                   '0'..'9':begin
                    e:=(e*10)+(ord(c)-ord('0'));
  
positive.code:  result:=FLREVersion;
  end;
  
  function FLREGetVersionString:PAnsiChar; {$ifdef win32}{$ifdef cpu386}stdcall;{$endif}{$endif}
  begin
   result:=PAnsiChar(@FLREGetVersionStringData[1]);
  end;
  
  function FLRECreate(const RegularExpression:PAnsiChar;const RegularExpressionLength:longint;const Flags:longword;const Error:PPAnsiChar):pointer; {$ifdef win32}{$ifdef cpu386}stdcall;{$endif}{$endif}
  var RealFlags:TFLREFlags;
      s:TFLRERawByteString;
      Len:longint;
  
negative.code:  end;
  end;
  
  function UTF8PtrGetCodePoint(const s:PFLRERawByteChar;Len,CodeUnit:longint):longint;
  var CurrentCodeUnit:longint;
  begin
   result:=-1;
  