From f05ccc13b5b4a6e97ee1f043b6ec97aa6fbb6698 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Tue, 8 Feb 2011 09:32:32 +0000
Subject: [PATCH]  * Check if compilation has failed

git-svn-id: trunk@16892 -
---
 packages/fpmkunit/src/fpmkunit.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index 16af9f0a09..e1ce2bee45 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -1222,6 +1222,7 @@ var
   end;
 
 begin
+  result := -1;
   try
     M := TMemoryStream.Create;
     BytesRead := 0;
@@ -1242,6 +1243,7 @@ begin
     // read last part
     repeat
     until ReadFromStream = 0;
+    result := P.ExitStatus;
   finally
     P.Free;
     M.Free;