Optimize grounding of "can_inherit_flags"
This commit is contained in:
parent
eaec3062a1
commit
006e69265e
@ -1148,12 +1148,15 @@ error(100, "Compiler {1}@{2} requested for {0} cannot be found. Set install_miss
|
|||||||
|
|
||||||
% propagate flags when compiler match
|
% propagate flags when compiler match
|
||||||
can_inherit_flags(PackageNode, DependencyNode, FlagType)
|
can_inherit_flags(PackageNode, DependencyNode, FlagType)
|
||||||
|
:- same_compiler(PackageNode, DependencyNode),
|
||||||
|
not attr("node_flag_set", DependencyNode, FlagType, _),
|
||||||
|
flag_type(FlagType).
|
||||||
|
|
||||||
|
same_compiler(PackageNode, DependencyNode)
|
||||||
:- depends_on(PackageNode, DependencyNode),
|
:- depends_on(PackageNode, DependencyNode),
|
||||||
node_compiler(PackageNode, CompilerID),
|
node_compiler(PackageNode, CompilerID),
|
||||||
node_compiler(DependencyNode, CompilerID),
|
node_compiler(DependencyNode, CompilerID),
|
||||||
not attr("node_flag_set", DependencyNode, FlagType, _),
|
compiler_id(CompilerID).
|
||||||
compiler_id(CompilerID),
|
|
||||||
flag_type(FlagType).
|
|
||||||
|
|
||||||
node_flag_inherited(DependencyNode, FlagType, Flag)
|
node_flag_inherited(DependencyNode, FlagType, Flag)
|
||||||
:- attr("node_flag_set", PackageNode, FlagType, Flag),
|
:- attr("node_flag_set", PackageNode, FlagType, Flag),
|
||||||
|
Loading…
Reference in New Issue
Block a user