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

native projects, compiler ldc, uses directly ldmd2

This commit is contained in:
Basile Burg 2015-12-11 12:24:37 +01:00
parent 87f8385f50
commit d23460909d
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_nativeproject.pas
View File

@ -728,12 +728,10 @@ begin
compilproc.ShowWindow := swoHIDE; compilproc.ShowWindow := swoHIDE;
getOpts(compilproc.Parameters); getOpts(compilproc.Parameters);
compilproc.Execute; compilproc.Execute;
if NativeProjectCompiler <> dmd then if NativeProjectCompiler = gdc then
begin begin
case NativeProjectCompiler of str := 'gdc';
gdc: begin str := 'gdc'; compilproc.Input.Write(str[1], 3) end; compilproc.Input.Write(str[1], 3);
ldc: begin str := 'ldc2'; compilproc.Input.Write(str[1], 4) end;
end;
compilproc.CloseInput; compilproc.CloseInput;
end; end;
while compilProc.Running do while compilProc.Running do
@ -988,7 +986,7 @@ begin
case value of case value of
dmd: NativeProjectCompilerFilename := exeFullName('dmd' + exeExt); dmd: NativeProjectCompilerFilename := exeFullName('dmd' + exeExt);
gdc: NativeProjectCompilerFilename := exeFullName('cegdcldc' + exeExt); gdc: NativeProjectCompilerFilename := exeFullName('cegdcldc' + exeExt);
ldc: NativeProjectCompilerFilename := exeFullName('cegdcldc' + exeExt); ldc: NativeProjectCompilerFilename := exeFullName('ldmd2' + exeExt);
end; end;
if (not fileExists(NativeProjectCompilerFilename)) if (not fileExists(NativeProjectCompilerFilename))
or (NativeProjectCompilerFilename = '') then or (NativeProjectCompilerFilename = '') then