* fixed compilation of units regexpr and oldregexpr when integer=smallint

git-svn-id: trunk@27047 -

packages/regexpr/src/oldregexpr.pp

@@ -43,7 +43,7 @@ function GenerateRegExprEngine(regexpr : pchar;flags : tregexprflags;var RegExpr
 function GenerateRegExprEngine(regexpr : pchar;flags : tregexprflags): TREGExprEngine;
 procedure DestroyRegExprEngine(var regexpr : TRegExprEngine);
 
-function RegExprPos(RegExprEngine : TRegExprEngine;p : pchar;var index,len : longint) : boolean;
+function RegExprPos(RegExprEngine : TRegExprEngine;p : pchar;var index,len : integer) : boolean;
 function RegExprReplaceAll(RegExprEngine : TRegExprEngine;const src,newstr : ansistring;var dest : ansistring) : sizeint;
 
 function RegExprEscapeStr (const S : string) : string;
@@ -80,7 +80,7 @@ begin
 end;
 
 function RegExprPos(RegExprEngine: TRegExprEngine; p: pchar; var index,
-  len: longint): boolean;
+  len: integer): boolean;
 begin
   Len := 1;
   Result := RegExprEngine.MatchString(p,index,len);

packages/regexpr/src/regexpr.pas

@@ -307,8 +307,8 @@ type
     // if it's in format 'ismxrg-ismxrg'.
     procedure SetModifierStr (const AModifiers : RegExprString);
 
-    function GetModifier (AIndex : integer) : boolean;
-    procedure SetModifier (AIndex : integer; ASet : boolean);
+    function GetModifier (AIndex : longint) : boolean;
+    procedure SetModifier (AIndex : longint; ASet : boolean);
 
     procedure Error (AErrorID : integer); virtual; // error handler.
     // Default handler raise exception ERegExpr with
@@ -1386,7 +1386,7 @@ procedure TRegExpr.SetModifierStr (const AModifiers : RegExprString);
  end; { of procedure TRegExpr.SetModifierStr
 --------------------------------------------------------------}
 
-function TRegExpr.GetModifier (AIndex : integer) : boolean;
+function TRegExpr.GetModifier (AIndex : longint) : boolean;
  var
   Mask : integer;
  begin
@@ -1407,7 +1407,7 @@ function TRegExpr.GetModifier (AIndex : integer) : boolean;
  end; { of function TRegExpr.GetModifier
 --------------------------------------------------------------}
 
-procedure TRegExpr.SetModifier (AIndex : integer; ASet : boolean);
+procedure TRegExpr.SetModifier (AIndex : longint; ASet : boolean);
  var
   Mask : integer;
  begin