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

codetools: fixed ReadPrioAtomSafe when cleanpos at end of atom

Browse Source 
git-svn-id: trunk@58274 -
This commit is contained in:
mattias 2018-06-14 20:46:56 +00:00
parent 4da68d03f2
commit e6360472a3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/customcodetool.pas
View File

@ -1824,14 +1824,17 @@ begin
// first atom of node is behind CleanPos => try prior node
Node:=Node.Prior;
until false;
if CurPos.EndPos>=CleanPos then begin
if CurPos.EndPos>CleanPos then begin
CurPos:=CleanAtomPosition;
exit;
end;
if CurPos.EndPos=CleanPos then
exit;
repeat
ReadNextAtom;
if CurPos.EndPos>=CleanPos then begin
UndoReadNextAtom;
if CurPos.EndPos>CleanPos then
UndoReadNextAtom;
exit;
end;
until false;