anchor.diff:      function MatchPrim (prog : PRegExprChar) : boolean;
       // recursively matching routine
   
  -    function ExecPrim (AOffset: integer) : boolean;
  +    function ExecPrim (AOffset: PtrInt) : boolean;
       // Exec for stored InputString
   
       {$IFDEF RegExpPCodeDump}
  
positive.code:    ANonGreedyOp : boolean); //###0.940
    {$IFDEF ComplexBraces}
    var
     off : integer;
    {$ENDIF}
     begin
     {$IFNDEF ComplexBraces}
  
negative.code:  begin
    if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString)
       and Assigned (startp [Idx]) and Assigned (endp [Idx])
       and (endp [Idx] > startp[Idx])
     //then Result := copy (fInputString, MatchPos [Idx], MatchLen [Idx]) //###0.929
     then begin
       //SetString (Result, startp [idx], endp [idx] - startp [idx])
       SetLength(Result,endp [idx] - startp [idx]);
       System.Move(startp [idx]^,Result[1],length(Result));
     end
     else Result := '';
   end; { of function TRegExpr.GetMatch
  