mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
baf1395d7d
They turned out to have a zero hit rate, making them useless.
compiler/make.dependencies.m:
Add code to use the two new caches, indirect_imports_non_intermod
and anc0_dir1_indir2_non_intermod. I got statistics on their
performance while they were enabled, but since their hit rate was zero,
this diff includes them only in a commented-out form.
Note that adding the second cache required adding a new dep_spec,
which remains, since it shouldn't affect performance at all.
compiler/make.deps_cache.m:
Disable the those two caches.
Fix an issue where the original statistics-gathering code
mixed up hits and misses.
Include the statistics gathered in course of implementing this diff.
tools/make_deps_cache_stats:
Update this script to fix the hit/miss issue, and to print more info.
492 lines
19 KiB
Mathematica
492 lines
19 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2023 The Mercury team.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% File: make.deps_cache.m.
|
|
%
|
|
% This module defines the types of the caches used by make.dependencies.m.
|
|
% The caches themselves are stored in make_infos.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module make.deps_cache.
|
|
:- interface.
|
|
|
|
:- import_module libs.
|
|
:- import_module libs.maybe_util.
|
|
:- import_module make.deps_set.
|
|
:- import_module make.make_info.
|
|
|
|
:- import_module io.
|
|
:- import_module map.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- type deps_result(T)
|
|
---> deps_result(
|
|
dr_success :: maybe_succeeded,
|
|
dr_set :: deps_set(T)
|
|
).
|
|
|
|
:- type module_deps_result == deps_result(module_index).
|
|
:- type dependency_file_deps_result == deps_result(dependency_file_index).
|
|
|
|
:- type module_to_module_set_cache
|
|
== map(module_index, module_deps_result).
|
|
:- type module_to_dep_file_set_cache
|
|
== map(module_index, dependency_file_deps_result).
|
|
|
|
:- func init_module_to_module_set_cache = module_to_module_set_cache.
|
|
:- func init_module_to_dep_file_set_cache = module_to_dep_file_set_cache.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- type trans_deps_key
|
|
---> trans_deps_key(
|
|
module_index,
|
|
transitive_dependencies_type,
|
|
process_modules_where
|
|
).
|
|
|
|
:- type transitive_dependencies_type
|
|
---> interface_imports
|
|
; all_imports % every import_module and use_module
|
|
; all_dependencies. % all_imports plus every include_module
|
|
|
|
:- type process_modules_where
|
|
---> process_only_modules_in_cur_dir
|
|
% The source file for the module is in the current directory.
|
|
; process_modules_anywhere.
|
|
|
|
:- type trans_deps_cache == map(trans_deps_key, module_deps_result).
|
|
|
|
:- func init_trans_deps_cache = trans_deps_cache.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pred search_direct_imports_non_intermod_cache(make_info::in,
|
|
module_index::in, module_deps_result::out) is semidet.
|
|
:- pred add_to_direct_imports_non_intermod_cache(module_index::in,
|
|
module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
:- pred search_direct_imports_intermod_cache(make_info::in,
|
|
module_index::in, module_deps_result::out) is semidet.
|
|
:- pred add_to_direct_imports_intermod_cache(module_index::in,
|
|
module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
%---------------------%
|
|
|
|
% :- pred search_indirect_imports_non_intermod_cache(make_info::in,
|
|
% module_index::in, module_deps_result::out) is semidet.
|
|
% :- pred add_to_indirect_imports_non_intermod_cache(module_index::in,
|
|
% module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
:- pred search_indirect_imports_intermod_cache(make_info::in,
|
|
module_index::in, module_deps_result::out) is semidet.
|
|
:- pred add_to_indirect_imports_intermod_cache(module_index::in,
|
|
module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
%---------------------%
|
|
|
|
:- pred search_foreign_imports_non_intermod_trans_cache(make_info::in,
|
|
module_index::in, module_deps_result::out) is semidet.
|
|
:- pred add_to_foreign_imports_non_intermod_trans_cache(module_index::in,
|
|
module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
%---------------------%
|
|
|
|
% :- pred search_anc0_dir1_indir2_non_intermod_cache(make_info::in,
|
|
% module_index::in, dependency_file_deps_result::out) is semidet.
|
|
% :- pred add_to_anc0_dir1_indir2_non_intermod_cache(module_index::in,
|
|
% dependency_file_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
:- pred search_anc0_dir1_indir2_intermod_cache(make_info::in,
|
|
module_index::in, dependency_file_deps_result::out) is semidet.
|
|
:- pred add_to_anc0_dir1_indir2_intermod_cache(module_index::in,
|
|
dependency_file_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
%---------------------%
|
|
|
|
:- pred search_trans_deps_cache(make_info::in,
|
|
trans_deps_key::in, module_deps_result::out) is semidet.
|
|
:- pred add_to_trans_deps_cache(trans_deps_key::in,
|
|
module_deps_result::in, make_info::in, make_info::out) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pred record_make_deps_cache_stats(io::di, io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list.
|
|
:- import_module string.
|
|
:- import_module uint.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
init_module_to_module_set_cache = map.init.
|
|
|
|
init_module_to_dep_file_set_cache = map.init.
|
|
|
|
init_trans_deps_cache = map.init.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
search_direct_imports_non_intermod_cache(Info, ModuleIndex, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ direct_non_intermod_accesses,
|
|
Stats = Stats0 ^ direct_non_intermod_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_direct_imports_non_intermod_cache(Info),
|
|
map.search(CacheMap, ModuleIndex, Result).
|
|
|
|
add_to_direct_imports_non_intermod_cache(ModuleIndex, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ direct_non_intermod_misses,
|
|
Stats = Stats0 ^ direct_non_intermod_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_direct_imports_non_intermod_cache(!.Info),
|
|
map.det_insert(ModuleIndex, Result, CacheMap0, CacheMap),
|
|
make_info_set_direct_imports_non_intermod_cache(CacheMap, !Info).
|
|
|
|
search_direct_imports_intermod_cache(Info, ModuleIndex, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ direct_intermod_accesses,
|
|
Stats = Stats0 ^ direct_intermod_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_direct_imports_intermod_cache(Info),
|
|
map.search(CacheMap, ModuleIndex, Result).
|
|
|
|
add_to_direct_imports_intermod_cache(ModuleIndex, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ direct_intermod_misses,
|
|
Stats = Stats0 ^ direct_intermod_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_direct_imports_intermod_cache(!.Info),
|
|
map.det_insert(ModuleIndex, Result, CacheMap0, CacheMap),
|
|
make_info_set_direct_imports_intermod_cache(CacheMap, !Info).
|
|
|
|
%---------------------%
|
|
|
|
% search_indirect_imports_non_intermod_cache(Info, ModuleIndex, Result) :-
|
|
% trace [
|
|
% compile_time(flag("deps_cache_stats")),
|
|
% run_time(env("DEPS_CACHE_STATS")),
|
|
% io(!TIO)
|
|
% ] (
|
|
% get_deps_cache_stats(Stats0, !TIO),
|
|
% Acc0 = Stats0 ^ indirect_non_intermod_accesses,
|
|
% Stats = Stats0 ^ indirect_non_intermod_accesses := Acc0 + 1u,
|
|
% set_deps_cache_stats(Stats, !TIO)
|
|
% ),
|
|
% CacheMap = make_info_get_indirect_imports_non_intermod_cache(Info),
|
|
% map.search(CacheMap, ModuleIndex, Result).
|
|
%
|
|
% add_to_indirect_imports_non_intermod_cache(ModuleIndex, Result, !Info) :-
|
|
% trace [
|
|
% compile_time(flag("deps_cache_stats")),
|
|
% run_time(env("DEPS_CACHE_STATS")),
|
|
% io(!TIO)
|
|
% ] (
|
|
% get_deps_cache_stats(Stats0, !TIO),
|
|
% Miss0 = Stats0 ^ indirect_non_intermod_misses,
|
|
% Stats = Stats0 ^ indirect_non_intermod_misses := Miss0 + 1u,
|
|
% set_deps_cache_stats(Stats, !TIO)
|
|
% ),
|
|
% CacheMap0 = make_info_get_indirect_imports_non_intermod_cache(!.Info),
|
|
% map.det_insert(ModuleIndex, Result, CacheMap0, CacheMap),
|
|
% make_info_set_indirect_imports_non_intermod_cache(CacheMap, !Info).
|
|
|
|
search_indirect_imports_intermod_cache(Info, ModuleIndex, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ indirect_intermod_accesses,
|
|
Stats = Stats0 ^ indirect_intermod_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_indirect_imports_intermod_cache(Info),
|
|
map.search(CacheMap, ModuleIndex, Result).
|
|
|
|
add_to_indirect_imports_intermod_cache(ModuleIndex, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ indirect_intermod_misses,
|
|
Stats = Stats0 ^ indirect_intermod_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_indirect_imports_intermod_cache(!.Info),
|
|
map.det_insert(ModuleIndex, Result, CacheMap0, CacheMap),
|
|
make_info_set_indirect_imports_intermod_cache(CacheMap, !Info).
|
|
|
|
%---------------------%
|
|
|
|
search_foreign_imports_non_intermod_trans_cache(Info, ModuleIndex, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ foreign_non_intermod_accesses,
|
|
Stats = Stats0 ^ foreign_non_intermod_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_foreign_imports_non_intermod_trans_cache(Info),
|
|
map.search(CacheMap, ModuleIndex, Result).
|
|
|
|
add_to_foreign_imports_non_intermod_trans_cache(ModuleIndex, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ foreign_non_intermod_misses,
|
|
Stats = Stats0 ^ foreign_non_intermod_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_foreign_imports_non_intermod_trans_cache(!.Info),
|
|
map.det_insert(ModuleIndex, Result, CacheMap0, CacheMap),
|
|
make_info_set_foreign_imports_non_intermod_trans_cache(CacheMap, !Info).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% search_anc0_dir1_indir2_non_intermod_cache(Info, Key, Result) :-
|
|
% trace [
|
|
% compile_time(flag("deps_cache_stats")),
|
|
% run_time(env("DEPS_CACHE_STATS")),
|
|
% io(!TIO)
|
|
% ] (
|
|
% get_deps_cache_stats(Stats0, !TIO),
|
|
% Acc0 = Stats0 ^ anc0_dir1_indir2_non_intermod_accesses,
|
|
% Stats = Stats0 ^ anc0_dir1_indir2_non_intermod_accesses := Acc0 + 1u,
|
|
% set_deps_cache_stats(Stats, !TIO)
|
|
% ),
|
|
% CacheMap = make_info_get_anc0_dir1_indir2_non_intermod_cache(Info),
|
|
% map.search(CacheMap, Key, Result).
|
|
%
|
|
% add_to_anc0_dir1_indir2_non_intermod_cache(Key, Result, !Info) :-
|
|
% trace [
|
|
% compile_time(flag("deps_cache_stats")),
|
|
% run_time(env("DEPS_CACHE_STATS")),
|
|
% io(!TIO)
|
|
% ] (
|
|
% get_deps_cache_stats(Stats0, !TIO),
|
|
% Miss0 = Stats0 ^ anc0_dir1_indir2_non_intermod_misses,
|
|
% Stats = Stats0 ^ anc0_dir1_indir2_non_intermod_misses := Miss0 + 1u,
|
|
% set_deps_cache_stats(Stats, !TIO)
|
|
% ),
|
|
% CacheMap0 = make_info_get_anc0_dir1_indir2_non_intermod_cache(!.Info),
|
|
% map.det_insert(Key, Result, CacheMap0, CacheMap),
|
|
% make_info_set_anc0_dir1_indir2_non_intermod_cache(CacheMap, !Info).
|
|
|
|
search_anc0_dir1_indir2_intermod_cache(Info, Key, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ anc0_dir1_indir2_intermod_accesses,
|
|
Stats = Stats0 ^ anc0_dir1_indir2_intermod_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_anc0_dir1_indir2_intermod_cache(Info),
|
|
map.search(CacheMap, Key, Result).
|
|
|
|
add_to_anc0_dir1_indir2_intermod_cache(Key, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ anc0_dir1_indir2_intermod_misses,
|
|
Stats = Stats0 ^ anc0_dir1_indir2_intermod_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_anc0_dir1_indir2_intermod_cache(!.Info),
|
|
map.det_insert(Key, Result, CacheMap0, CacheMap),
|
|
make_info_set_anc0_dir1_indir2_intermod_cache(CacheMap, !Info).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
search_trans_deps_cache(Info, DepsRoot, Result) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Acc0 = Stats0 ^ trans_deps_accesses,
|
|
Stats = Stats0 ^ trans_deps_accesses := Acc0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap = make_info_get_trans_deps_cache(Info),
|
|
map.search(CacheMap, DepsRoot, Result).
|
|
|
|
add_to_trans_deps_cache(DepsRoot, Result, !Info) :-
|
|
trace [
|
|
compile_time(flag("deps_cache_stats")),
|
|
run_time(env("DEPS_CACHE_STATS")),
|
|
io(!TIO)
|
|
] (
|
|
get_deps_cache_stats(Stats0, !TIO),
|
|
Miss0 = Stats0 ^ trans_deps_misses,
|
|
Stats = Stats0 ^ trans_deps_misses := Miss0 + 1u,
|
|
set_deps_cache_stats(Stats, !TIO)
|
|
),
|
|
CacheMap0 = make_info_get_trans_deps_cache(!.Info),
|
|
map.det_insert(DepsRoot, Result, CacheMap0, CacheMap),
|
|
make_info_set_trans_deps_cache(CacheMap, !Info).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% The results of a bootcheck in csharp grade on 2023 oct 16
|
|
% were as follows. The zero hit rate of the indirect_imports_non_intermod
|
|
% and anc0_dir1_indir2_non_intermod caches is why their code is commented out,
|
|
% here, in make.make_info, and in make.dependencies.m.
|
|
%
|
|
% number of lookups: 2012939
|
|
% number of hits: 1962569
|
|
% number of misses: 50370
|
|
% hit %: 97.50
|
|
%
|
|
% ----------------------------------------------------------
|
|
%
|
|
% cache #exec #lookup #hit #miss hit%
|
|
%
|
|
% direct_imports_non_intermod 100 850145 838363 11782 98.61
|
|
% direct_imports_intermod 100 17300 10965 6335 63.38
|
|
% indirect_imports_non_intermod 57 4112 0 4112 0.00
|
|
% indirect_imports_intermod 100 10965 4630 6335 42.23
|
|
% anc0_dir1_indir2_non_intermod 57 4112 0 4112 0.00
|
|
% anc0_dir1_indir2_intermod 84 41386 36891 4495 89.14
|
|
% trans_deps 100 1084919 1071720 13199 98.78
|
|
|
|
:- mutable(deps_cache_stats, deps_cache_stats, init_deps_cache_stats, ground,
|
|
[untrailed, attach_to_io_state]).
|
|
|
|
:- type deps_cache_stats
|
|
---> deps_cache_stats(
|
|
direct_non_intermod_accesses :: uint,
|
|
direct_non_intermod_misses :: uint,
|
|
|
|
direct_intermod_accesses :: uint,
|
|
direct_intermod_misses :: uint,
|
|
|
|
indirect_non_intermod_accesses :: uint,
|
|
indirect_non_intermod_misses :: uint,
|
|
|
|
indirect_intermod_accesses :: uint,
|
|
indirect_intermod_misses :: uint,
|
|
|
|
foreign_non_intermod_accesses :: uint,
|
|
foreign_non_intermod_misses :: uint,
|
|
|
|
anc0_dir1_indir2_non_intermod_accesses :: uint,
|
|
anc0_dir1_indir2_non_intermod_misses :: uint,
|
|
|
|
anc0_dir1_indir2_intermod_accesses :: uint,
|
|
anc0_dir1_indir2_intermod_misses :: uint,
|
|
|
|
trans_deps_accesses :: uint,
|
|
trans_deps_misses :: uint
|
|
).
|
|
|
|
:- func init_deps_cache_stats = deps_cache_stats.
|
|
|
|
init_deps_cache_stats =
|
|
deps_cache_stats(0u, 0u, 0u, 0u, 0u, 0u, 0u, 0u, 0u, 0u, 0u, 0u,
|
|
0u, 0u, 0u, 0u).
|
|
|
|
record_make_deps_cache_stats(!IO) :-
|
|
get_deps_cache_stats(Stats, !IO),
|
|
Stats = deps_cache_stats(
|
|
DirectNIAcc, DirectNIMiss,
|
|
DirectIAcc, DirectIMiss,
|
|
IndirectNIAcc, IndirectNIMiss,
|
|
IndirectIAcc, IndirectIMiss,
|
|
ForeignNIAcc, ForeignNIMiss,
|
|
Import012NIAcc, Import012NIMiss,
|
|
Import012IAcc, Import012IMiss,
|
|
TransDepsAcc, TransDepsMiss
|
|
),
|
|
StatTuples = [
|
|
{"direct_imports_non_intermod", DirectNIAcc, DirectNIMiss},
|
|
{"direct_imports_intermod", DirectIAcc, DirectIMiss},
|
|
{"indirect_imports_non_intermod", IndirectNIAcc, IndirectNIMiss},
|
|
{"indirect_imports_intermod", IndirectIAcc, IndirectIMiss},
|
|
{"foreign_imports_non_intermod", ForeignNIAcc, ForeignNIMiss},
|
|
{"anc0_dir1_indir2_non_intermod", Import012NIAcc, Import012NIMiss},
|
|
{"anc0_dir1_indir2_intermod", Import012IAcc, Import012IMiss},
|
|
{"trans_deps", TransDepsAcc, TransDepsMiss}
|
|
],
|
|
list.map(desc_cache_stat, StatTuples, DescStrs),
|
|
string.append_list(DescStrs, DescsStr),
|
|
( if DescsStr = "" then
|
|
true
|
|
else
|
|
io.open_append("/tmp/MAKE_DEPS_CACHE_STATS", Result, !IO),
|
|
(
|
|
Result = error(_)
|
|
;
|
|
Result = ok(OutStream),
|
|
io.write_string(OutStream, DescsStr, !IO),
|
|
io.close_output(OutStream, !IO)
|
|
)
|
|
).
|
|
|
|
:- pred desc_cache_stat({string, uint, uint}::in, string::out) is det.
|
|
|
|
desc_cache_stat({Name, Acc, Miss}, Desc) :-
|
|
( if Acc = 0u, Miss = 0u then
|
|
Desc = ""
|
|
else
|
|
string.format("%-36s %12u %12u\n", [s(Name), u(Acc), u(Miss)], Desc)
|
|
).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module make.deps_cache.
|
|
%---------------------------------------------------------------------------%
|