From 01724a5a9ef9329abbf6ec3eddc15401326f04cd Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 30 Jan 2016 04:39:49 +0100
Subject: [PATCH] compile proj & run, handle compilation failures

---
 src/ce_main.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 6960830f..d01cfbec 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1391,12 +1391,19 @@ end;
 procedure TCEMainForm.projCompiled(aProject: ICECommonProject; success: boolean);
 var
   runArgs: string = '';
+  runprev: boolean = true;
 begin
   if fRunProjAfterCompile and assigned(fProjectInterface) then
   begin
-    if fRunProjAfterCompArg and not InputQuery('Execution arguments', '', runargs) then
-      runargs := '';
-    fProjectInterface.run(runargs);
+    if not success then
+      runprev := dlgOkCancel('last build failed, continue and run ?') = mrOK;
+    if runprev then
+    begin
+      if fRunProjAfterCompArg and
+        not InputQuery('Execution arguments', '', runargs) then
+          runargs := '';
+      fProjectInterface.run(runargs);
+    end;
   end;
   fRunProjAfterCompile := false;
   fRunProjAfterCompArg := false;