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

codetools: fixed error message if cursor behind code

Browse Source 
git-svn-id: trunk@36976 -
This commit is contained in:
mattias 2012-04-22 18:58:15 +00:00
parent 297804938e
commit 79e5ef4d40
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/codetools/customcodetool.pas
View File

@ -2259,7 +2259,7 @@ begin
else
LastPos:=Node.StartPos;
if p>LastPos then begin
Msg:='behind code (parser stopped at '+CleanPosToStr(LastPos)+')';
Msg:='behind code (last token at '+CleanPosToStr(LastPos)+')';
end else begin
Msg:='inconsistency: the position is in code, but caller thinks it is not.'
end;
@ -2623,7 +2623,7 @@ function TCustomCodeTool.FindDeepestNodeAtPos(StartNode: TCodeTreeNode;
else
LastPos:=Node.StartPos;
if p>LastPos then begin
Msg:='Behind code (The parser stopped at '+CleanPosToStr(LastPos)+')';
Msg:='Behind code (last token at '+CleanPosToStr(LastPos)+')';
RaiseException(Msg);
end;