paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +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'.
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