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

IDE: less verbosity

Browse Source 
git-svn-id: trunk@41245 -
This commit is contained in:
mattias 2013-05-17 21:46:18 +00:00
parent 8ea9808d75
commit b5943c123d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -205,6 +205,7 @@ type
FCodeBuffer: TCodeBuffer;
FLinkScanners: TFPList; // list of TLinkScanner
FMainLinkScanner: TLinkScanner;
FLastWarnedMainLinkFilename: string;
function GetModified: Boolean;
procedure SetCodeBuffer(const AValue: TCodeBuffer);
procedure SetModified(const AValue: Boolean);
@ -2684,9 +2685,12 @@ begin
// create main scanner
//debugln(['TSourceEditorSharedValues.GetMainLinkScanner fetching unit codebuffer ...']);
if CodeBuffer=nil then exit;
if not FilenameIsPascalSource(Filename) then exit;
if not CodeToolBoss.InitCurCodeTool(CodeBuffer) then
begin
debugln(['TSourceEditorSharedValues.GetMainLinkScanner failed to find the unit of ',Filename]);
if Filename<>FLastWarnedMainLinkFilename then
debugln(['TSourceEditorSharedValues.GetMainLinkScanner failed to find the unit of ',Filename]);
FLastWarnedMainLinkFilename:=CodeBuffer.Filename;
exit;
end;
Result:=CodeToolBoss.CurCodeTool.Scanner;