From e464d1f476ddaf5cc97eaf0e65452f345cd3cf5e Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 9 Mar 2014 15:06:31 +0000
Subject: [PATCH] * fixed compilation of units regexpr and oldregexpr when
 integer=smallint

git-svn-id: trunk@27047 -
---
 packages/regexpr/src/oldregexpr.pp | 4 ++--
 packages/regexpr/src/regexpr.pas   | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/regexpr/src/oldregexpr.pp b/packages/regexpr/src/oldregexpr.pp
index c4f40badd0..6641419983 100644
--- a/packages/regexpr/src/oldregexpr.pp
+++ b/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);
diff --git a/packages/regexpr/src/regexpr.pas b/packages/regexpr/src/regexpr.pas
index e267918248..a18c24c78f 100644
--- a/packages/regexpr/src/regexpr.pas
+++ b/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