paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 04:17:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Prevent Access Violation when creating a new component. Dependency was wrongly created. Issue #35145.

Browse Source 
git-svn-id: trunk@60635 -
This commit is contained in:
juha 2019-03-09 17:29:35 +00:00
parent cabd06ba0c
commit eb0c8c9342
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packager/addtopackagedlg.pas
View File

@ -50,7 +50,6 @@ type
TAddToPkgResult = class
public
Pkg: TLazPackage;
Dependency: TPkgDependency;
UnitFilename: string;
Unit_Name: string;
AncestorType: string;
@ -520,7 +519,7 @@ begin
if (LazPackage<>ARequiredPackage)
and not LazPackage.Requires(PkgComponent.PkgFile.LazPackage)
then
fParams.Dependency:=ARequiredPackage.CreateDependencyWithOwner(nil);
PackageGraph.AddDependencyToPackage(LazPackage, ARequiredPackage);
end;
ModalResult:=mrOk;
end;
@ -657,7 +656,6 @@ end;
procedure TAddToPkgResult.Clear;
begin
FreeAndNil(Dependency);
UnitFilename:='';
Unit_Name:='';
AncestorType:='';
@ -674,7 +672,6 @@ end;
destructor TAddToPkgResult.Destroy;
begin
FreeThenNil(Next);
FreeAndNil(Dependency);
inherited Destroy;
end;

5
packager/packageeditor.pas
View File

@ -2146,11 +2146,6 @@ var
LazPackage.Modified:=True;
FreeAndNil(FNextSelectedPart);
FNextSelectedPart:=TPENodeData.Create(penFile, UnitFilename, false);
// add dependency
if (Dependency<>nil) and not PkgDependsOn(Dependency.PackageName) then
PackageGraph.AddDependencyToPackage(LazPackage, Dependency);
if (IconNormFile<>'') and not PkgDependsOn('LCL') then
PackageGraph.AddDependencyToPackage(LazPackage, PackageGraph.LCLPackage);
PackageEditors.DeleteAmbiguousFiles(LazPackage, UnitFilename);
end;
// open file in editor