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

SynEdit: fixed an uninitialized value

Browse Source 
git-svn-id: trunk@36119 -
This commit is contained in:
martin 2012-03-17 14:27:09 +00:00
parent 9fea72270b
commit b83f0fd43c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synregexpr.pas
View File

@ -333,7 +333,7 @@ type
function ParsePiece (var flagp : integer) : PRegExprChar;
// something followed by possible [*+?]
function ParseAtom (var flagp : integer) : PRegExprChar;
function ParseAtom (out flagp : integer) : PRegExprChar;
// the lowest level
function GetCompilerErrorPos : PtrInt;
@ -2058,7 +2058,7 @@ function TRegExpr.ParsePiece (var flagp : integer) : PRegExprChar;
end; { of function TRegExpr.ParsePiece
--------------------------------------------------------------}
function TRegExpr.ParseAtom (var flagp : integer) : PRegExprChar;
function TRegExpr.ParseAtom (out flagp : integer) : PRegExprChar;
// the lowest level
// Optimization: gobbles an entire sequence of ordinary characters so that
// it can turn them into a single node, which is smaller to store and