From b8e6fa187487b3c3f2c83735c46fc328cbef7663 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 15 Jun 2017 01:50:16 +0200
Subject: [PATCH] fix #161 - dub projects, compile and run... and run... args
 are not passed

---
 src/ce_dubproject.pas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index aac33d29..d72c0e09 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -619,6 +619,7 @@ procedure TCEDubProject.compileOrRun(run: boolean; const runArgs: string = '');
 var
   olddir: string;
   prjname: string;
+  rargs: TStringList;
 begin
   if fDubProc.isNotNil and fDubProc.Active then
   begin
@@ -666,7 +667,16 @@ begin
     fDubProc.Parameters.Add('--compiler=' + DubCompilerFilename);
     dubBuildOptions.getOpts(fDubProc.Parameters);
     if run and runArgs.isNotEmpty then
-      fDubProc.Parameters.Add('--' + runArgs);
+    begin
+      fDubProc.Parameters.Add('--');
+      rargs := TStringList.Create;
+      try
+        CommandToList(runArgs, rargs);
+        fDubProc.Parameters.AddStrings(rargs);
+      finally
+        rargs.Free;
+      end;
+    end;
     fDubProc.Execute;
   finally
     SetCurrentDirUTF8(olddir);
@@ -686,7 +696,7 @@ end;
 
 procedure TCEDubProject.run(const runArgs: string = '');
 begin
-  compileOrRun(true);
+  compileOrRun(true, runArgs);
 end;
 
 function TCEDubProject.targetUpToDate: boolean;