Browse Source

fpmkunit: on compilation failure show the actual compiler output, and don't just swallow the exception and raise a new one with precisely no helpful info

git-svn-id: trunk@34396 -
Károly Balogh 9 years ago
parent
commit
57042351e5
1 changed files with 5 additions and 1 deletions
  1. 5 1
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -6763,7 +6763,11 @@ Var
           try
             Compile(APackage,APackage.FBUTarget);
           except
-            Compilationfailed:=true;
+            on E: Exception do
+              begin
+                Log(vlError,E.Message);
+                Compilationfailed:=true;
+              end;
           end;
         finally
           if CompilationFailed then