From 1fb1c8db47b755f59ee81ccf0a710858fae41fab Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 17 Jun 2016 19:54:50 +0200
Subject: [PATCH] fix #76, compile project... (and run with arg) is broken

---
 src/ce_main.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 6670dce8..1d0d2f41 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2477,7 +2477,11 @@ end;
 
 procedure TCEMainForm.actProjCompAndRunWithArgsExecute(Sender: TObject);
 begin
+  fRunProjAfterCompile := true;
   fRunProjAfterCompArg := true;
+  if fAppliOpts.autoSaveProjectFiles then
+    saveModifiedProjectFiles(fProject);
+  fProject.compile;
 end;
 
 procedure TCEMainForm.actProjRunExecute(Sender: TObject);