mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-15 05:44:58 +00:00
5c955626f2
Estimated hours taken: 20 These changes make `var' and `term' polymorphic. This allows us to make variables and terms representing types of a different type to those representing program terms and those representing insts. These changes do not *fix* any existing problems (for instance there was a messy conflation of program variables and inst variables, and where necessary I've just called varset__init(InstVarSet) with an XXX comment). NEWS: Mention the changes to the standard library. library/term.m: Make term, var and var_supply polymorphic. Add new predicates: term__generic_term/1 term__coerce/2 term__coerce_var/2 term__coerce_var_supply/2 library/varset.m: Make varset polymorphic. Add the new predicate: varset__coerce/2 compiler/prog_data.m: Introduce type equivalences for the different kinds of vars, terms, and varsets that we use (tvar and tvarset were already there but have been changed to use the polymorphic var and term). Also change the various kinds of items to use the appropriate kinds of var/varset. compiler/*.m: Thousands of boring changes to make the compiler type correct with the different types for type, program and inst vars and varsets.
125 lines
4.1 KiB
Mathematica
125 lines
4.1 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 1996-1997 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%-----------------------------------------------------------------------------%
|
|
%
|
|
% File: mode_debug.m.
|
|
% Main author: fjh.
|
|
%
|
|
% This module contains code for tracing the actions of the mode checker.
|
|
%
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module mode_debug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module mode_info.
|
|
|
|
% Print a debugging message which includes the port, message string,
|
|
% and the current instmap (but only if `--debug-modes' was enabled).
|
|
%
|
|
:- pred mode_checkpoint(port, string, mode_info, mode_info).
|
|
:- mode mode_checkpoint(in, in, mode_info_di, mode_info_uo) is det.
|
|
|
|
:- type port
|
|
---> enter
|
|
; exit
|
|
; wakeup.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
:- import_module globals, std_util, list, assoc_list, io, bool, map.
|
|
:- import_module term, varset.
|
|
:- import_module modes, options, mercury_to_mercury, passes_aux.
|
|
:- import_module hlds_goal, instmap, prog_data, (inst).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% This code is used to trace the actions of the mode checker.
|
|
|
|
mode_checkpoint(Port, Msg, ModeInfo0, ModeInfo) :-
|
|
mode_info_get_io_state(ModeInfo0, IOState0),
|
|
globals__io_lookup_bool_option(debug_modes, DoCheckPoint,
|
|
IOState0, IOState1),
|
|
( DoCheckPoint = yes ->
|
|
mode_info_get_last_checkpoint_insts(ModeInfo0, OldInsts),
|
|
mode_checkpoint_2(Port, Msg, OldInsts, NewInsts, ModeInfo0,
|
|
IOState1, IOState),
|
|
mode_info_set_last_checkpoint_insts(NewInsts, ModeInfo0,
|
|
ModeInfo1)
|
|
;
|
|
ModeInfo1 = ModeInfo0,
|
|
IOState = IOState1
|
|
),
|
|
mode_info_set_io_state(ModeInfo1, IOState, ModeInfo).
|
|
|
|
:- pred mode_checkpoint_2(port, string, assoc_list(prog_var, inst),
|
|
assoc_list(prog_var, inst), mode_info, io__state, io__state).
|
|
:- mode mode_checkpoint_2(in, in, in, out, mode_info_ui, di, uo) is det.
|
|
|
|
mode_checkpoint_2(Port, Msg, OldInstList, NewInstList, ModeInfo) -->
|
|
{ mode_info_get_errors(ModeInfo, Errors) },
|
|
( { Port = enter } ->
|
|
io__write_string("Enter "),
|
|
{ Detail = yes }
|
|
; { Port = wakeup } ->
|
|
io__write_string("Wake "),
|
|
{ Detail = no }
|
|
; { Errors = [] } ->
|
|
io__write_string("Exit "),
|
|
{ Detail = yes }
|
|
;
|
|
io__write_string("Delay "),
|
|
{ Detail = no }
|
|
),
|
|
io__write_string(Msg),
|
|
( { Detail = yes } ->
|
|
io__write_string(":\n"),
|
|
globals__io_lookup_bool_option(statistics, Statistics),
|
|
maybe_report_stats(Statistics),
|
|
maybe_flush_output(Statistics),
|
|
{ mode_info_get_instmap(ModeInfo, InstMap) },
|
|
( { instmap__is_reachable(InstMap) } ->
|
|
{ instmap__to_assoc_list(InstMap, NewInstList) },
|
|
{ mode_info_get_varset(ModeInfo, VarSet) },
|
|
{ mode_info_get_instvarset(ModeInfo, InstVarSet) },
|
|
write_var_insts(NewInstList, OldInstList,
|
|
VarSet, InstVarSet)
|
|
;
|
|
{ NewInstList = [] },
|
|
io__write_string("\tUnreachable\n")
|
|
)
|
|
;
|
|
{ NewInstList = OldInstList }
|
|
),
|
|
io__write_string("\n"),
|
|
io__flush_output.
|
|
|
|
:- pred write_var_insts(assoc_list(prog_var, inst), assoc_list(prog_var, inst),
|
|
prog_varset, inst_varset, io__state, io__state).
|
|
:- mode write_var_insts(in, in, in, in, di, uo) is det.
|
|
|
|
write_var_insts([], _, _, _) --> [].
|
|
write_var_insts([Var - Inst | VarInsts], OldInstList, VarSet, InstVarSet) -->
|
|
io__write_string("\t"),
|
|
mercury_output_var(Var, VarSet, no),
|
|
io__write_string(" ::"),
|
|
(
|
|
{ assoc_list__search(OldInstList, Var, OldInst) },
|
|
{ Inst = OldInst }
|
|
->
|
|
io__write_string(" unchanged\n")
|
|
;
|
|
io__write_string("\n"),
|
|
mercury_output_structured_inst(Inst, 2, InstVarSet)
|
|
),
|
|
write_var_insts(VarInsts, OldInstList, VarSet, InstVarSet).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|