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

codetools: improved error message, when unit of include file is not known

Browse Source 
git-svn-id: trunk@23906 -
This commit is contained in:
mattias 2010-03-09 22:28:30 +00:00
parent ffd4e28b5c
commit f778e14f09
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/codetoolmanager.pas
View File

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