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

fix range check error that could also cause AV (issue #0010892)

Browse Source 
git-svn-id: trunk@14254 -
This commit is contained in:
paul 2008-02-26 08:57:05 +00:00
parent 8e4a1950a9
commit 8b91f41f9e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/uniteditor.pp
View File

@ -2924,7 +2924,7 @@ begin
EditorLine := FEditor.Lines[YLine-1]; EditorLine := FEditor.Lines[YLine-1];
if Length(Trim(EditorLine)) = 0 then Exit; if Length(Trim(EditorLine)) = 0 then Exit;
if XLine > Length(EditorLine) then Exit; if (XLine > Length(EditorLine)) or (XLine < 1) then Exit;
if not (EditorLine[XLine] in ALeftLimit) then Exit; if not (EditorLine[XLine] in ALeftLimit) then Exit;
//walk backwards to a space or non-standard character. //walk backwards to a space or non-standard character.