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

Remove IdeIntf dependency from CompilerOptions.

Browse Source
This commit is contained in:
Juha 2024-04-06 13:05:13 +03:00
parent 304ea4ee5b
commit 68e341be20
4 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/buildintf/compoptsintf.pas
View File

@ -540,7 +540,7 @@ procedure TLazCompilationToolOptions.SetParsers(const AValue: TStrings);
begin
if FParsers.Equals(AValue) then Exit;
{$IFDEF VerboseIDEModified}
debugln(['TCompilationToolOptions.SetParsers ',AValue.Text]);
debugln(['TLazCompilationToolOptions.SetParsers ',AValue.Text]);
{$ENDIF}
FParsers.Assign(AValue);
Owner.IncreaseChangeStamp;

12
ide/compileroptions.pp
View File

@ -51,8 +51,6 @@ uses
KeywordFuncLists, BasicCodeTools, LinkScanner, DirectoryCacher,
// BuildIntf
ProjectIntf, MacroIntf, IDEExternToolIntf, CompOptsIntf, IDEOptionsIntf,
// IDEIntf
SrcEditorIntf,
// IdeConfig
LazConf, EnvironmentOpts, SearchPathProcs, IdeXmlConfigProcs, TransferMacros,
IDEProcs, ModeMatrixOpts, CompOptsModes,
@ -167,6 +165,7 @@ type
FParsedCommandStamp: integer;
FParsedCommand: string;
protected
procedure DoClearErrorLines; virtual;
procedure SetCommand(AValue: string); override;
procedure SubstituteMacros(var s: string); virtual;
public
@ -3157,6 +3156,11 @@ end;
{ TCompilationToolOptions }
procedure TCompilationToolOptions.DoClearErrorLines;
begin
; // Do nothing.
end;
procedure TCompilationToolOptions.SetCommand(AValue: string);
begin
inherited SetCommand(AValue);
@ -3282,9 +3286,7 @@ var
ExtTool: TAbstractExternalTool;
begin
if Command='' then exit(mrOk);
if SourceEditorManagerIntf<>nil then
SourceEditorManagerIntf.ClearErrorLines;
DoClearErrorLines;
ExtTool:=CreateExtTool(WorkingDir,ToolTitle,CompileHint);
if ExtTool=nil then exit(mrOk);
ExtTool.Reference(Self,ClassName);

2
ide/projecticon.pas
View File

@ -40,7 +40,7 @@ uses
Graphics,
// LazUtils
LazFileUtils, LazFileCache, Laz2_XMLCfg, LazLoggerBase,
// IdeIntf
// BuildIntf
ProjectResourcesIntf;
type

6
ide/projectuserresources.pas
View File

@ -35,13 +35,15 @@ unit ProjectUserResources;
interface
uses
// RTL + LCL
// RTL + FCL
Classes, SysUtils,
resource, bitmapresource, groupresource, groupiconresource, groupcursorresource,
// LazUtils
LazFileUtils, LazUTF8, Laz2_XMLCfg, LazLoggerBase,
// BuildIntf
ProjectResourcesIntf, MacroIntf, IDEExternToolIntf,
// IdeIntf
ProjectResourcesIntf, IDEMsgIntf, MacroIntf, IDEExternToolIntf,
IDEMsgIntf,
// IDE
LazarusIDEStrConsts;