forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed superfkuous chdir, already handled by TProcess.currentDirectory

This commit is contained in:
Basile Burg 2015-11-09 12:47:58 +01:00
parent 84cf158b1a
commit 2c26619f34
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_nativeproject.pas
View File

@ -676,7 +676,7 @@ function TCENativeProject.compile: Boolean;
var
config: TCompilerConfiguration;
compilproc: TProcess;
olddir, prjpath: string;
prjpath: string;
prjname: string;
msgs: ICEMessagesDisplay;
begin
@ -702,15 +702,11 @@ begin
//
prjname := shortenPath(filename, 25);
compilproc := TProcess.Create(nil);
olddir := GetCurrentDir;
try
msgs.message('compiling ' + prjname, self as ICECommonProject, amcProj, amkInf);
prjpath := extractFilePath(fileName);
if directoryExists(prjpath) then
begin
chDir(prjpath);
compilproc.CurrentDirectory := prjpath;
end;
compilproc.Executable := DCompiler;
compilproc.Options := compilproc.Options + [poStderrToOutPut, poUsePipes];
compilproc.ShowWindow := swoHIDE;
@ -731,7 +727,6 @@ begin
finally
updateOutFilename;
compilproc.Free;
chDir(olddir);
end;
end;