From 2c7a83cd78ab30f92fb5ec93ee2c5b054600721d Mon Sep 17 00:00:00 2001 From: nickysn Date: Sun, 9 Mar 2014 21:26:39 +0000 Subject: [PATCH] * use integer for the property indexes, instead of longint. Fixes compilation of package on i8086 after r27062. git-svn-id: trunk@27063 - --- packages/regexpr/src/regexpr.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/regexpr/src/regexpr.pas b/packages/regexpr/src/regexpr.pas index a18c24c78f..e267918248 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 : longint) : boolean; - procedure SetModifier (AIndex : longint; ASet : boolean); + function GetModifier (AIndex : integer) : boolean; + procedure SetModifier (AIndex : integer; 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 : longint) : boolean; +function TRegExpr.GetModifier (AIndex : integer) : boolean; var Mask : integer; begin @@ -1407,7 +1407,7 @@ function TRegExpr.GetModifier (AIndex : longint) : boolean; end; { of function TRegExpr.GetModifier --------------------------------------------------------------} -procedure TRegExpr.SetModifier (AIndex : longint; ASet : boolean); +procedure TRegExpr.SetModifier (AIndex : integer; ASet : boolean); var Mask : integer; begin