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

codetools: fixed error position

Browse Source 
git-svn-id: trunk@26802 -
This commit is contained in:
mattias 2010-07-24 10:32:15 +00:00
parent d2392e8365
commit 978187a18d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/pascalparsertool.pas
View File

@ -705,6 +705,7 @@ procedure TPascalParserTool.BuildSubTreeForClass(ClassNode: TCodeTreeNode);
procedure RaiseClassDescInvalid; procedure RaiseClassDescInvalid;
begin begin
MoveCursorToNodeStart(ClassNode);
RaiseException('[TPascalParserTool.BuildSubTreeForClass] ClassNode.Desc=' RaiseException('[TPascalParserTool.BuildSubTreeForClass] ClassNode.Desc='
+ClassNode.DescAsString,true); +ClassNode.DescAsString,true);
end; end;