mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
5e9590b3be
mdbcomp/read_trace_counts.m:
mdbcomp/write_trace_counts.m:
Carve these two modules out of trace_counts.m.
Put the lowest-level building block, the read_trace_counts predicate,
last in read_trace_counts.m.
Stop exporting write_proc_label from write_trace_counts.m.
mdbcomp/trace_counts.m:
Delete the moved code, and export the trace_count_file_id function
to both new modules.
mdbcomp/mdbcomp.m:
Include the new modules.
deep_profiler/Mmakefile:
slice/Mmakefile:
Copy the new modules to these directories.
deep_profiler/.gitignore:
slice/.gitignore:
Ignore the newly-copied source files.
compiler/tupling.m:
mdbcomp/slice_and_dice.m:
slice/mcov.m:
slice/mtc_diff.m:
slice/mtc_union.m:
Update the set of imports needed.
101 lines
3.8 KiB
Mathematica
101 lines
3.8 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2003, 2005-2006, 2010-2012 The University of Melbourne.
|
|
% Copyright (C) 2014, 2016, 2018, 2025 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This is the top module of a library that contains information shared
|
|
% between the debugger and the compiler. This means mostly the definitions
|
|
% of data structures that the compiler generates for the debugger, and
|
|
% the predicates that operate on them.
|
|
%
|
|
% The compiler links in this library in all grades, but links in the browser
|
|
% library (module mdb and its submodules) only when debugging is enabled.
|
|
% Therefore the modules of the mdbcomp library should avoid importing any
|
|
% part of the mdb module.
|
|
|
|
:- module mdbcomp.
|
|
:- interface.
|
|
|
|
:- pred mdbcomp.version(string::out) is det.
|
|
|
|
% If you add any modules here, you should update the lists in the following
|
|
% places:
|
|
%
|
|
% deep_profiler/Mmakefile
|
|
% deep_profiler/.gitignore
|
|
% slice/Mmakefile
|
|
% slice/.gitignore
|
|
%
|
|
% Also, the definition of mercury_mdbcomp_module/1 below should be updated.
|
|
|
|
:- include_module builtin_modules.
|
|
:- include_module feedback.
|
|
:- include_module goal_path.
|
|
:- include_module prim_data.
|
|
:- include_module program_representation.
|
|
:- include_module read_trace_counts.
|
|
:- include_module rtti_access.
|
|
:- include_module shared_utilities.
|
|
:- include_module slice_and_dice.
|
|
:- include_module sym_name.
|
|
:- include_module trace_counts.
|
|
:- include_module write_trace_counts.
|
|
|
|
:- implementation.
|
|
|
|
% See the comment on library.version in library/library.m
|
|
% for why we implement this predicate this way.
|
|
|
|
:- pragma foreign_proc("C",
|
|
mdbcomp.version(FullVersion::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
MR_ConstString version_string;
|
|
|
|
version_string = MR_VERSION "", configured for "" MR_FULLARCH;
|
|
// Cast away const needed here, because Mercury declares Version
|
|
// with type MR_String rather than MR_ConstString.
|
|
FullVersion = (MR_String) (MR_Word) version_string;
|
|
").
|
|
:- pragma foreign_proc("C#",
|
|
version(FullVersion::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
string Version = runtime.Constants.MR_VERSION;
|
|
string Fullarch = runtime.Constants.MR_FULLARCH;
|
|
FullVersion = System.String.Concat(Version,
|
|
System.String.Concat("", configured for "", Fullarch));
|
|
").
|
|
:- pragma foreign_proc("Java",
|
|
version(FullVersion::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
String Version = jmercury.runtime.Constants.MR_VERSION;
|
|
String Fullarch = jmercury.runtime.Constants.MR_FULLARCH;
|
|
FullVersion = Version.concat("", configured for "".concat(Fullarch));
|
|
").
|
|
|
|
:- pred mercury_mdbcomp_module(string::in) is semidet.
|
|
|
|
mercury_mdbcomp_module("mdbcomp").
|
|
mercury_mdbcomp_module("mdbcomp.builtin_modules").
|
|
mercury_mdbcomp_module("mdbcomp.feedback").
|
|
mercury_mdbcomp_module("mdbcomp.feedback.automatic_parallelism").
|
|
mercury_mdbcomp_module("mdbcomp.goal_path").
|
|
mercury_mdbcomp_module("mdbcomp.prim_data").
|
|
mercury_mdbcomp_module("mdbcomp.program_representation").
|
|
mercury_mdbcomp_module("mdbcomp.read_trace_counts").
|
|
mercury_mdbcomp_module("mdbcomp.rtti_access").
|
|
mercury_mdbcomp_module("mdbcomp.shared_utilities").
|
|
mercury_mdbcomp_module("mdbcomp.slice_and_dice").
|
|
mercury_mdbcomp_module("mdbcomp.sym_name").
|
|
mercury_mdbcomp_module("mdbcomp.trace_counts").
|
|
mercury_mdbcomp_module("mdbcomp.write_trace_counts").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module mdbcomp.
|
|
%---------------------------------------------------------------------------%
|