From d23460909d7355a5662835ca86b4f387a78cdf89 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 11 Dec 2015 12:24:37 +0100 Subject: [PATCH] native projects, compiler ldc, uses directly ldmd2 --- src/ce_nativeproject.pas | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas index fffa76f7..10bbde65 100644 --- a/src/ce_nativeproject.pas +++ b/src/ce_nativeproject.pas @@ -728,12 +728,10 @@ begin compilproc.ShowWindow := swoHIDE; getOpts(compilproc.Parameters); compilproc.Execute; - if NativeProjectCompiler <> dmd then + if NativeProjectCompiler = gdc then begin - case NativeProjectCompiler of - gdc: begin str := 'gdc'; compilproc.Input.Write(str[1], 3) end; - ldc: begin str := 'ldc2'; compilproc.Input.Write(str[1], 4) end; - end; + str := 'gdc'; + compilproc.Input.Write(str[1], 3); compilproc.CloseInput; end; while compilProc.Running do @@ -988,7 +986,7 @@ begin case value of dmd: NativeProjectCompilerFilename := exeFullName('dmd' + exeExt); gdc: NativeProjectCompilerFilename := exeFullName('cegdcldc' + exeExt); - ldc: NativeProjectCompilerFilename := exeFullName('cegdcldc' + exeExt); + ldc: NativeProjectCompilerFilename := exeFullName('ldmd2' + exeExt); end; if (not fileExists(NativeProjectCompilerFilename)) or (NativeProjectCompilerFilename = '') then