paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Patch from Graeme Geldenhuys to fix a compiler-hint

Browse Source 
git-svn-id: trunk@12969 -
This commit is contained in:
joost 2009-03-27 21:35:49 +00:00
parent d779e1e587
commit b4a8ae3637
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/regex.pp
View File

@ -169,8 +169,8 @@ type
constructor Create(const aRegexStr : string);
destructor Destroy; override;
function Parse(var aErrorPos : integer;
var aErrorCode: TRegexError) : boolean; virtual;
function Parse(out aErrorPos : integer;
out aErrorCode: TRegexError) : boolean; virtual;
function MatchString(const S : string; out MatchPos : integer; var Offset : integer) : boolean; virtual;
function ReplaceAllString(const src, newstr: ansistring; out DestStr : string): Integer;
@ -374,8 +374,8 @@ begin
end;
{--------}
function TRegexEngine.Parse(var aErrorPos : integer;
var aErrorCode: TRegexError)
function TRegexEngine.Parse(out aErrorPos : integer;
out aErrorCode: TRegexError)
: boolean;
begin
{clear the current transition table}