mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 18:59:21 +02:00
IDE: clean up
git-svn-id: trunk@15948 -
This commit is contained in:
parent
fb2f6ebefd
commit
c36f4205cd
@ -39,8 +39,8 @@ unit Compiler;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Process, LCLProc, Forms, Controls, FileUtil, AsyncProcess,
|
Classes, SysUtils, Process, LCLProc, Forms, Controls, FileUtil,
|
||||||
LazarusIDEStrConsts, CompilerOptions, Project, IDEProcs, OutputFilter;
|
LazarusIDEStrConsts, CompilerOptions, Project, OutputFilter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TOnCmdLineCreate = procedure(var CmdLine: string; var Abort:boolean)
|
TOnCmdLineCreate = procedure(var CmdLine: string; var Abort:boolean)
|
||||||
|
@ -36,7 +36,7 @@ uses
|
|||||||
{$IFDEF IDE_MEM_CHECK}
|
{$IFDEF IDE_MEM_CHECK}
|
||||||
MemCheck,
|
MemCheck,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
Classes, SysUtils, FPCAdds, LCLProc, Forms, Controls, Buttons, GraphType,
|
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, GraphType,
|
||||||
Graphics, ExtCtrls, StdCtrls, Spin, FileUtil, LResources, Dialogs,
|
Graphics, ExtCtrls, StdCtrls, Spin, FileUtil, LResources, Dialogs,
|
||||||
Laz_XMLCfg,
|
Laz_XMLCfg,
|
||||||
ObjectInspector, IDEWindowIntf,
|
ObjectInspector, IDEWindowIntf,
|
||||||
|
@ -36,7 +36,7 @@ uses
|
|||||||
// IDEIntf
|
// IDEIntf
|
||||||
MacroIntf, PackageIntf, IDEDialogs, ProjectIntf, IDEExternToolIntf,
|
MacroIntf, PackageIntf, IDEDialogs, ProjectIntf, IDEExternToolIntf,
|
||||||
// IDE
|
// IDE
|
||||||
IDEProcs, InitialSetupDlgs, OutputFilter, Compiler, CompilerOptions,
|
IDEProcs, InitialSetupDlgs, OutputFilter, CompilerOptions,
|
||||||
TransferMacros, EnvironmentOpts, IDETranslations, LazarusIDEStrConsts,
|
TransferMacros, EnvironmentOpts, IDETranslations, LazarusIDEStrConsts,
|
||||||
MiscOptions, Project, LazConf, PackageDefs, PackageLinks, PackageSystem,
|
MiscOptions, Project, LazConf, PackageDefs, PackageLinks, PackageSystem,
|
||||||
BuildLazDialog, BuildManager, BaseBuildManager;
|
BuildLazDialog, BuildManager, BaseBuildManager;
|
||||||
|
@ -1414,8 +1414,8 @@ end;
|
|||||||
|
|
||||||
procedure TOutputFilter.EndBufferingOutput;
|
procedure TOutputFilter.EndBufferingOutput;
|
||||||
begin
|
begin
|
||||||
|
if FBufferingOutputLock<=0 then RaiseException('');
|
||||||
dec(FBufferingOutputLock);
|
dec(FBufferingOutputLock);
|
||||||
if FBufferingOutputLock<0 then RaiseException('');
|
|
||||||
if FBufferingOutputLock=0 then
|
if FBufferingOutputLock=0 then
|
||||||
WriteOutput(true);
|
WriteOutput(true);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user