diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 0d43e30161..37ef8905e4 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -3850,6 +3850,7 @@ resourcestring +'called, but no package is registering.'; lisPkgSysUnitName = '%s%sUnit Name: %s%s%s'; lisPkgSysFileName = '%s%sFile Name: %s%s%s'; + lisPkgSysLPKFilename = '%s%slpk file: %s%s%s'; lisPkgSysPackageRegistrationError = 'Package registration error'; lisPkgSysTheRTLFreePascalComponentLibraryProvidesTheBase = 'The RTL - ' +'The Run-Time Library is the basis of all Free Pascal programs.'; diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas index ddef3fa622..6e007e84ca 100644 --- a/packager/packagesystem.pas +++ b/packager/packagesystem.pas @@ -1447,6 +1447,9 @@ begin ErrorMsg:=lisPkgSysRegisterUnitWasCalledButNoPackageIsRegistering; end else begin ErrorMsg:='Package: "'+FRegistrationPackage.IDAsString+'"'; + if not FRegistrationPackage.AutoCreated then + ErrorMsg:=Format(lisPkgSysLPKFilename, [ErrorMsg, #13, '"', + FRegistrationPackage.Filename, '"']); // current unitname if FRegistrationUnitName<>'' then ErrorMsg:=Format(lisPkgSysUnitName, [ErrorMsg, #13, '"',