diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp index 8ed290ec0f..cf9350e835 100644 --- a/packages/fpmkunit/src/fpmkunit.pp +++ b/packages/fpmkunit/src/fpmkunit.pp @@ -1249,7 +1249,7 @@ Type Procedure Clean(APackage : TPackage; ACPU:TCPU; AOS : TOS); Procedure CompileDependencies(APackage : TPackage); function CheckDependencies(APackage : TPackage; ErrorOnFailure: boolean): TCheckDependencyResult; - Function CheckExternalPackage(Const APackageName : String; ErrorOnFailure: boolean):TPackage; + Function CheckExternalPackage(Const APackageName, ForPackageName : String; ErrorOnFailure: boolean):TPackage; procedure CreateOutputDir(APackage: TPackage); // Packages commands Procedure Compile(Packages : TPackages); @@ -1658,7 +1658,7 @@ ResourceString SErrNoDictionaryValue = 'The item "%s" in the dictionary is not a value'; SErrNoDictionaryFunc = 'The item "%s" in the dictionary is not a function'; SErrInvalidFPCInfo = 'Compiler returns invalid information, check if fpc -iV works'; - SErrDependencyNotFound = 'Could not find unit directory for dependency package "%s"'; + SErrDependencyNotFound = 'Could not find unit directory for dependency package "%s" required for package "%s"'; SErrAlreadyInitialized = 'Installer can only be initialized once'; SErrInvalidState = 'Invalid state for target %s'; SErrCouldNotCompile = 'Could not compile target %s from package %s'; @@ -7224,7 +7224,7 @@ begin end; -function TBuildEngine.CheckExternalPackage(Const APackageName : String; ErrorOnFailure: boolean):TPackage; +function TBuildEngine.CheckExternalPackage(Const APackageName, ForPackageName : String; ErrorOnFailure: boolean):TPackage; var S : String; F : String; @@ -7258,7 +7258,7 @@ begin CompileDependencies(Result); end else if ErrorOnFailure then - Error(SErrDependencyNotFound,[APackageName]); + Error(SErrDependencyNotFound,[APackageName,ForPackageName]); end; @@ -7291,7 +7291,7 @@ begin end else begin - D.Target:=CheckExternalPackage(D.Value, true); + D.Target:=CheckExternalPackage(D.Value, APackage.Name, true); P:=TPackage(D.Target); end; if (D.RequireChecksum<>$ffffffff) and (D.RequireChecksum<>0) and @@ -7333,7 +7333,7 @@ begin end else begin - D.Target:=CheckExternalPackage(D.Value, ErrorOnFailure); + D.Target:=CheckExternalPackage(D.Value, APackage.Name, ErrorOnFailure); P:=TPackage(D.Target); end; if (D.RequireChecksum<>$ffffffff) and