paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 04:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed compil

Browse Source 
git-svn-id: trunk@45950 -
This commit is contained in:
mattias 2014-07-21 05:24:43 +00:00
parent e6ff6d9adb
commit a794bd27bc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/compileroptions.pp
View File

@ -4181,19 +4181,20 @@ function TCompilationToolOptions.Execute(const WorkingDir, ToolTitle,
var var
ExtTool: TAbstractExternalTool; ExtTool: TAbstractExternalTool;
begin begin
Result:=mrCancel;
if SourceEditorManagerIntf<>nil then if SourceEditorManagerIntf<>nil then
SourceEditorManagerIntf.ClearErrorLines; SourceEditorManagerIntf.ClearErrorLines;
ExtTool:=CreateExtTool(WorkingDir,ToolTitle,CompileHint); ExtTool:=CreateExtTool(WorkingDir,ToolTitle,CompileHint);
if ExtTool=nil then exit(mrOk);
ExtTool.Reference(Self,ClassName); ExtTool.Reference(Self,ClassName);
try try
// run // run
ExtTool.Execute; ExtTool.Execute;
ExtTool.WaitForExit; ExtTool.WaitForExit;
if ExtTool.ErrorMessage='' then if ExtTool.ErrorMessage='' then
Result:=mrOK; Result:=mrOk
else
Result:=mrCancel;
finally finally
ExtTool.Release(Self); ExtTool.Release(Self);
end; end;