From b4a8ae3637d112c69705c3ce7a2d6669ab27383f Mon Sep 17 00:00:00 2001 From: joost Date: Fri, 27 Mar 2009 21:35:49 +0000 Subject: [PATCH] Patch from Graeme Geldenhuys to fix a compiler-hint git-svn-id: trunk@12969 - --- packages/regexpr/src/regex.pp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/regexpr/src/regex.pp b/packages/regexpr/src/regex.pp index f962b75277..0ceb96cc4a 100644 --- a/packages/regexpr/src/regex.pp +++ b/packages/regexpr/src/regex.pp @@ -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}