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

codetools: safety clean up on exception

Browse Source 
git-svn-id: trunk@40681 -
This commit is contained in:
mattias 2013-04-01 12:58:40 +00:00
parent 63634bb913
commit 480fedbcc8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/codetoolmanager.pas
View File

@ -1667,12 +1667,14 @@ begin
ClearCurCodeTool;
MainCode:=GetMainCode(Code);
if MainCode=nil then begin
FErrorLine:=1;
FErrorColumn:=1;
fErrorCode:=Code;
if Code = nil then
begin
fErrorMsg:='TCodeToolManager.InitCurCodeTool Code=nil'
end
else begin
fErrorCode:=Code;
FErrorLine:=1;
FErrorColumn:=1;
fErrorMsg:='unit of include file is not known (hint: open and explore unit first)';
end;
exit;