mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2026-04-15 01:13:30 +00:00
Code Issues Projects Releases Wiki Activity

Move a predicate to where it belongs.

Browse Source
This commit is contained in:
Zoltan Somogyi
2026-03-01 18:36:22 +11:00
parent 7d2146d3a9
commit 48a95366e1
1 changed files with 34 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
compiler/recompilation.record_uses.m
View File

@@ -120,26 +120,6 @@
recomp_item_name::in, recomp_item_name::in,
recompilation_info::in, recompilation_info::out) is det.
% record_gathered_item_deps(ItemId, GatheredItemDeps, !Info):
%
% This predicate does the final part of the job of
% finish_gathering_item_recomp_deps, i.e. the incorporation
% of the gathered information in the recompilation_info.
%
% It is a separate predicate because for decl_pragma_type_spec_info
% and decl_pragma_type_spec_constr_info items, even though equiv_type.m
% gathers the ids of the items expanded out within them, it does NOT
% record the result of this gathering in the recompilation_info.
% (In fact, the code there does this gathering even in the *absence*
% of any recompilation_info.) Instead, it records the gathered item_ids
% in the updated decl_pragma_type_spec{,_constr}_info, and leaves it
% to add add_pragma_type_spec.m to invoke this predicate.
%
% I (zs) have no idea what the point of this delay is.
%
:- pred record_gathered_item_deps(recomp_item_id::in, set(recomp_item_id)::in,
recompilation_info::in, recompilation_info::out) is det.
%-----------------------------------------------------------------------------%
% For smart recompilation we need to record which items were expanded
@@ -215,6 +195,26 @@
item_recomp_deps::in,
maybe(recompilation_info)::in, maybe(recompilation_info)::out) is det.
% record_gathered_item_deps(ItemId, GatheredItemDeps, !Info):
%
% This predicate does the final part of the job of
% finish_gathering_item_recomp_deps, i.e. the incorporation
% of the gathered information in the recompilation_info.
%
% It is a separate predicate because for decl_pragma_type_spec_info
% and decl_pragma_type_spec_constr_info items, even though equiv_type.m
% gathers the ids of the items expanded out within them, it does NOT
% record the result of this gathering in the recompilation_info.
% (In fact, the code there does this gathering even in the *absence*
% of any recompilation_info.) Instead, it records the gathered item_ids
% in the updated decl_pragma_type_spec{,_constr}_info, and leaves it
% to add add_pragma_type_spec.m to invoke this predicate.
%
% I (zs) have no idea what the point of this delay is.
%
:- pred record_gathered_item_deps(recomp_item_id::in, set(recomp_item_id)::in,
recompilation_info::in, recompilation_info::out) is det.
%-----------------------------------------------------------------------------%
%-----------------------------------------------------------------------------%
@@ -339,20 +339,6 @@ ignore_unqual_item_for_item_type(UsedItemType) = Ignore :-
%-----------------------------------------------------------------------------%
record_gathered_item_deps(ItemId, GatheredItemDeps, !Info) :-
( if set.is_empty(GatheredItemDeps) then
true
else
DepsMap0 = !.Info ^ recomp_dependencies,
( if map.search(DepsMap0, ItemId, Deps0) then
set.union(GatheredItemDeps, Deps0, Deps),
map.det_update(ItemId, Deps, DepsMap0, DepsMap)
else
map.det_insert(ItemId, GatheredItemDeps, DepsMap0, DepsMap)
),
!Info ^ recomp_dependencies := DepsMap
).
maybe_start_gathering_item_recomp_deps(ModuleName, ItemId, MaybeRecompInfo,
MaybeGatheredItemDeps) :-
(
@@ -415,6 +401,20 @@ finish_gathering_item_recomp_deps(ItemId, MaybeGatheredItemDeps,
)
).
record_gathered_item_deps(ItemId, GatheredItemDeps, !Info) :-
( if set.is_empty(GatheredItemDeps) then
true
else
DepsMap0 = !.Info ^ recomp_dependencies,
( if map.search(DepsMap0, ItemId, Deps0) then
set.union(GatheredItemDeps, Deps0, Deps),
map.det_update(ItemId, Deps, DepsMap0, DepsMap)
else
map.det_insert(ItemId, GatheredItemDeps, DepsMap0, DepsMap)
),
!Info ^ recomp_dependencies := DepsMap
).
%-----------------------------------------------------------------------------%
:- end_module recompilation.record_uses.
%-----------------------------------------------------------------------------%