paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Add a check for DefineTemplates. Crashed when an old package with the same name was replaced.

Browse Source
This commit is contained in:
Juha 2021-11-26 16:26:55 +02:00
parent 9e41ef446f
commit 0a679e84b2
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packager/packagesystem.pas
View File

@ -2141,9 +2141,13 @@ begin
UpdateBrokenDependenciesToPackage(APackage);
// activate define templates
APackage.DefineTemplates.Active:=true;
if Assigned(OnAddPackage) then OnAddPackage(APackage);
if Assigned(APackage.DefineTemplates) then
APackage.DefineTemplates.Active:=true
else // By Juha:
// Happened when an old package with the same name was replaced. Cannot reproduce.
DebugLn(['TLazPackageGraph.AddPackage: APackage.DefineTemplates=Nil']);
if Assigned(OnAddPackage) then
OnAddPackage(APackage);
EndUpdate;
end;
@ -2185,9 +2189,8 @@ begin
OldInstalled:=OldPackage.Installed;
OldAutoInstall:=OldPackage.AutoInstall;
OldEditor:=OldPackage.Editor;
if OldEditor<>nil then begin
if OldEditor<>nil then
OldEditor.LazPackage:=nil;
end;
// migrate components
for i:=0 to OldPackage.FileCount-1 do
MoveInstalledComponents(OldPackage.Files[i]);
@ -2201,9 +2204,8 @@ begin
NewPackage.AutoInstall:=OldAutoInstall;
// add package to graph
AddPackage(NewPackage);
if OldEditor<>nil then begin
if OldEditor<>nil then
OldEditor.LazPackage:=NewPackage;
end;
EndUpdate;
end;
@ -2214,8 +2216,7 @@ procedure TLazPackageGraph.LoadStaticBasePackages;
Dependency: TPkgDependency;
Quiet: Boolean;
begin
if FindDependencyByNameInList(FirstAutoInstallDependency,pddRequires,
PkgName)<>nil
if FindDependencyByNameInList(FirstAutoInstallDependency,pddRequires,PkgName)<>nil
then
exit;
Dependency:=TPkgDependency.Create;