paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix last commit by raise Compilation failure again in finally block in CompileBuildUnit procedure

Browse Source 
git-svn-id: trunk@33017 -
This commit is contained in:
pierre 2016-01-29 07:43:25 +00:00
parent 5e47be4cd5
commit aa293d9465
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1567,6 +1567,7 @@ ResourceString
SErrPackVarNotExist = 'There is no package variant with the name "%s"';
SErrEventNotSupported = 'Unsupported event type';
SErrorPkgNotInstalled = 'Package "%s" is not installed, can not uninstall.';
SErrBuildUnitCompilation = 'Compilation of "%s" failed';
SWarnCircularTargetDependency = 'Warning: Circular dependency detected when compiling target %s with target %s';
SWarnCircularPackageDependency = 'Warning: Circular dependency detected when compiling package %s with package %s';
@ -1647,6 +1648,7 @@ ResourceString
SDbgDirectoryDoesNotExist = 'Directory "%s" does not exist';
SDbgDirectoryNotEmpty = 'Directory "%s" is not empty. Will not remove';
SDbgGenerateBuildUnit = 'Generate build-unit %s';
SDbgBuildUnitFailure = 'Generate build-unit %s failed';
SDbgForcedCompile = 'Forced compile';
SDbgOutputDoesNotExist = 'Output file does not exist';
SDbgNewerSource = 'Source file is newer then output file';
@ -6733,7 +6735,11 @@ Var
end;
finally
if CompilationFailed then
Log(vlDebug,APackage.FBUTarget.FTargetSourceFileName)
begin
Log(vlDebug,Format(SDbgBuildUnitFailure,[APackage.FBUTarget.FTargetSourceFileName]));
// Raise failure exception again.
Error(SErrBuildUnitCompilation,[APackage.FBUTarget.FTargetSourceFileName]);
end
else
begin
// Delete temporary build-unit files