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