diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-08 09:32:32 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-08 09:32:32 +0000 |
| commit | b4164a255461485ee509797d0b2590dc8cfc83e9 (patch) | |
| tree | 199b70fe827c4c67c9d4c197da7474be483d77ba /packages/fpmkunit | |
| parent | c0b5af2dd31403314f91c157d007bd3aeb2e0fe7 (diff) | |
| download | fpc-b4164a255461485ee509797d0b2590dc8cfc83e9.tar.gz | |
* Check if compilation has failed
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16892 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fpmkunit')
| -rw-r--r-- | packages/fpmkunit/src/fpmkunit.pp | 2 |
1 files changed, 2 insertions, 0 deletions
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; |