IDE: clean up

git-svn-id: trunk@15948 -
This commit is contained in:
mattias 2008-08-04 11:38:26 +00:00
parent fb2f6ebefd
commit c36f4205cd
4 changed files with 5 additions and 5 deletions

View File

@ -39,8 +39,8 @@ unit Compiler;
interface
uses
Classes, SysUtils, Process, LCLProc, Forms, Controls, FileUtil, AsyncProcess,
LazarusIDEStrConsts, CompilerOptions, Project, IDEProcs, OutputFilter;
Classes, SysUtils, Process, LCLProc, Forms, Controls, FileUtil,
LazarusIDEStrConsts, CompilerOptions, Project, OutputFilter;
type
TOnCmdLineCreate = procedure(var CmdLine: string; var Abort:boolean)

View File

@ -36,7 +36,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, FPCAdds, LCLProc, Forms, Controls, Buttons, GraphType,
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, GraphType,
Graphics, ExtCtrls, StdCtrls, Spin, FileUtil, LResources, Dialogs,
Laz_XMLCfg,
ObjectInspector, IDEWindowIntf,

View File

@ -36,7 +36,7 @@ uses
// IDEIntf
MacroIntf, PackageIntf, IDEDialogs, ProjectIntf, IDEExternToolIntf,
// IDE
IDEProcs, InitialSetupDlgs, OutputFilter, Compiler, CompilerOptions,
IDEProcs, InitialSetupDlgs, OutputFilter, CompilerOptions,
TransferMacros, EnvironmentOpts, IDETranslations, LazarusIDEStrConsts,
MiscOptions, Project, LazConf, PackageDefs, PackageLinks, PackageSystem,
BuildLazDialog, BuildManager, BaseBuildManager;

View File

@ -1414,8 +1414,8 @@ end;
procedure TOutputFilter.EndBufferingOutput;
begin
if FBufferingOutputLock<=0 then RaiseException('');
dec(FBufferingOutputLock);
if FBufferingOutputLock<0 then RaiseException('');
if FBufferingOutputLock=0 then
WriteOutput(true);
end;