summaryrefslogtreecommitdiff
path: root/packages/fpmkunit
diff options
context:
space:
mode:
authorjoost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>2010-04-15 10:37:57 +0000
committerjoost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>2010-04-15 10:37:57 +0000
commit5d02957e0234018865bf2c34e82449ac7e945f76 (patch)
tree2d5a8ade035bc420e3d489a5d85a103fe7dfe06f /packages/fpmkunit
parent3c7c80006f1061cdfb339067978fd4ef78f5cb26 (diff)
downloadfpc-5d02957e0234018865bf2c34e82449ac7e945f76.tar.gz
* Improved error message for unknown targets in dependencies
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15145 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fpmkunit')
-rw-r--r--packages/fpmkunit/src/fpmkunit.pp6
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index 77387092d4..f3a2bc006f 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -964,7 +964,7 @@ ResourceString
SErrNeedArgument = 'Option at position %d (%s) needs an argument';
SErrNoPackagesDefined = 'No action possible: No packages were defined.';
SErrInstaller = 'The installer encountered the following error:';
- SErrDepUnknownTarget = 'Unknown target in dependencies for %s: %s';
+ SErrDepUnknownTarget = 'Unknown target for unit "%s" in dependencies for %s in package %s';
SErrExternalCommandFailed = 'External command "%s" failed with exit code %d';
SErrCreatingDirectory = 'Failed to create directory "%s"';
SErrDeletingFile = 'Failed to delete file "%s"';
@@ -3813,7 +3813,7 @@ begin
begin
T:=TTarget(D.Target);
If (T=Nil) then
- Error(SErrDepUnknownTarget,[ATarget.Name,D.Value]);
+ Error(SErrDepUnknownTarget,[D.Value, ATarget.Name, APackage.Name]);
// If a dependent package is compiled we always need to recompile
Log(vldebug, SDbgDependencyOnUnit, [ATarget.Name,T.Name]);
Result:=(T.State=tsCompiled);
@@ -3890,7 +3890,7 @@ begin
Log(vlWarning, Format(SWarnDepUnitNotFound, [T.Name, MakeTargetString(Defaults.CPU,Defaults.OS)]));
end
else
- Error(SErrDepUnknownTarget,[ATarget.Name,D.Value]);
+ Error(SErrDepUnknownTarget,[D.Value, ATarget.Name, APackage.Name]);
end;
end;
LogUnIndent;