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

SynEdit search: MultiLine-none-pattern search did crash or skip results (compilation for linux)

Browse Source 
git-svn-id: trunk@18066 -
This commit is contained in:
martin 2009-01-02 20:42:02 +00:00
parent ecbce3c5f9
commit f1f7320094
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditsearch.pp
View File

@ -617,7 +617,7 @@ var
if CurY<0 then exit;
LineEndPos:=LineStartPos-1;
if (LineEndPos>=length(LineEnding)) and
CompareMem(@Pat[LineEndPos+1-length(LineEnding)], @LineEnding[1], length(LineEnding))
CompareMem(@Pat[LineEndPos+1-length(LineEnding)], PChar(LineEnding), length(LineEnding))
then
dec(LineEndPos, length(LineEnding));
CurLineStr:=Lines[CurY];
@ -656,7 +656,7 @@ var
end;
LineStartPos:=LineEndPos+1;
if (LineStartPos>0) and (LineStartPos+Length(LineEnding)-1<=length(Pat)) and
CompareMem(@Pat[LineStartPos], @LineEnding[1], length(LineEnding))
CompareMem(@Pat[LineStartPos], PChar(LineEnding), length(LineEnding))
then
inc(LineStartPos, length(LineEnding));
if (LineStartPos > length(Pat)) then begin // Empty string