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

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

Browse Source 
git-svn-id: trunk@27047 -
This commit is contained in:
nickysn 2014-03-09 15:06:31 +00:00
parent b5f1445f90
commit e464d1f476
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/regexpr/src/oldregexpr.pp
View File

@ -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);

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 : 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