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