From f7a6fad9c82fc206142b107e943572bca47478e4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 9 Aug 2014 05:04:47 +0200
Subject: [PATCH] project pre-process output to messages when possible

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

diff --git a/src/ce_main.pas b/src/ce_main.pas
index ff3fb607..ddba48c5 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1194,6 +1194,9 @@ begin
           if ppproc.CurrentDirectory = '' then
             ppproc.CurrentDirectory := extractFilePath(ppproc.Executable);
           ppproc.Execute;
+          if not (poWaitOnExit in ppproc.Options) then
+            if poUsePipes in ppproc.Options then
+              repeat ProcessOutputToMsg(ppproc, mcProject) until not ppproc.Running;
         finally
           ppproc.Free;
         end;
@@ -1247,6 +1250,9 @@ begin
             if ppproc.CurrentDirectory = '' then
               ppproc.CurrentDirectory := extractFilePath(ppproc.Executable);
             ppproc.Execute;
+            if not (poWaitOnExit in ppproc.Options) then
+              if poUsePipes in ppproc.Options then
+                repeat ProcessOutputToMsg(ppproc, mcProject) until not ppproc.Running;
           finally
             ppproc.Free;
           end;