anchor.diff:  
   procedure TRegExpr.SetInputString (const AInputString : RegExprString);
    var
  -  Len : integer;
  -  i : integer;
  +  Len : PtrInt;
  +  i : PtrInt;
    begin
     // clear Match* - before next Exec* call it's undefined
     for i := 0 to NSUBEXP - 1 do begin
  
positive.code:  end; { of function TRegExpr.ParseAtom
  --------------------------------------------------------------}
  
  function TRegExpr.GetCompilerErrorPos : integer;
   begin
    Result := 0;
    if (regexpbeg = nil) or (regparse = nil)
  
negative.code:   if regcode <> @regdummy then begin
       regcode^ := b;
       inc (regcode);
       {$IFDEF DebugSynRegExpr}
       if regcode-programm>regsize then
         raise Exception.Create('TRegExpr.EmitC buffer overrun');
       {$ENDIF}
      end
     else inc (regsize, REOpSz); // Type of p-code pointer always is ^REChar
   end; { of procedure TRegExpr.EmitC
  --------------------------------------------------------------}
  
  