浏览代码

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 年之前
父节点
当前提交
57042351e5
共有 1 个文件被更改,包括 5 次插入1 次删除
  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