From b4164a255461485ee509797d0b2590dc8cfc83e9 Mon Sep 17 00:00:00 2001
From: joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Tue, 8 Feb 2011 09:32:32 +0000
Subject:  * Check if compilation has failed

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16892 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fpmkunit/src/fpmkunit.pp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'packages/fpmkunit')

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;
-- 
cgit v1.2.1