diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-04-15 10:37:57 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-04-15 10:37:57 +0000 |
| commit | 5d02957e0234018865bf2c34e82449ac7e945f76 (patch) | |
| tree | 2d5a8ade035bc420e3d489a5d85a103fe7dfe06f /packages/fpmkunit | |
| parent | 3c7c80006f1061cdfb339067978fd4ef78f5cb26 (diff) | |
| download | fpc-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.pp | 6 |
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; |
