paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use integer for the property indexes, instead of longint. Fixes compilation

Browse Source 
of package on i8086 after r27062.

git-svn-id: trunk@27063 -
This commit is contained in:
nickysn 2014-03-09 21:26:39 +00:00
parent b4bb09254e
commit 2c7a83cd78
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/regexpr/src/regexpr.pas
View File

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