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

lazbuild: fixed load package conflitc check, issue #41113

Browse Source
This commit is contained in:
mattias 2024-09-16 08:35:13 +02:00
parent 2f2884244b
commit 0e11791719
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazbuild.lpr
View File

@ -536,12 +536,11 @@ begin
// check if Package with same name is already loaded
ConflictPkg:=PackageGraph.FindPackageWithName(Result.Name,nil);
if not PackageGraph.PackageCanBeReplaced(ConflictPkg,Result) then
PrintErrorAndHalt(ErrorLoadPackageFailed,
'Cannot replace loaded package '+ConflictPkg.IDAsString+' with '+Result.IDAsString+' from "'+Result.Filename+'"');
if ConflictPkg<>nil then begin
// replace package
if not PackageGraph.PackageCanBeReplaced(ConflictPkg,Result) then
PrintErrorAndHalt(ErrorLoadPackageFailed,
'Cannot replace loaded package '+ConflictPkg.IDAsString+' with '+Result.IDAsString+' from "'+Result.Filename+'"');
PackageGraph.ReplacePackage(ConflictPkg,Result);
end else begin
// add to graph