mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 11:54:02 +00:00
fdd141bf77
tests/invalid/*.{m,err_exp}:
tests/misc_tests/*.m:
tests/mmc_make/*.m:
tests/par_conj/*.m:
tests/purity/*.m:
tests/stm/*.m:
tests/string_format/*.m:
tests/structure_reuse/*.m:
tests/submodules/*.m:
tests/tabling/*.m:
tests/term/*.m:
tests/trailing/*.m:
tests/typeclasses/*.m:
tests/valid/*.m:
tests/warnings/*.{m,exp}:
Make these tests use four-space indentation, and ensure that
each module is imported on its own line. (I intend to use the latter
to figure out which subdirectories' tests can be executed in parallel.)
These changes usually move code to different lines. For the tests
that check compiler error messages, expect the new line numbers.
browser/cterm.m:
browser/tree234_cc.m:
Import only one module per line.
tests/hard_coded/boyer.m:
Fix something I missed.
65 lines
2.0 KiB
Mathematica
65 lines
2.0 KiB
Mathematica
% vim: ft=mercury ts=4 sw=4 et
|
|
%
|
|
% rotd-2007-11-27 emits the following error message for this program:
|
|
%
|
|
% equiv_solns_ia.m:051: Error: the `promise_equivalent_solutions' goal lists
|
|
% equiv_solns_ia.m:051: some extra variables: V_3, V_4 and V_5.
|
|
% Uncaught Mercury exception:
|
|
% Software Error: pd_util.m: Unexpected: rerun_det_analysis: determinism errors
|
|
%
|
|
% Compile with: -C -O0 --inlining --local-constraint-propagation
|
|
%
|
|
% The problem was caused by the fact that inst any non-locals in a promise
|
|
% equivalent_solutions scope must be listed in the scope head but optimizations
|
|
% such as inlining can cause the inst of these non-locals to become ground.
|
|
% Since only variables that become further bound/constrained should be listed
|
|
% in the scope head this means that determinism analysis reruns after
|
|
% inlining reported extra variables in the scope head.
|
|
|
|
:- module equiv_solns_ia.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
|
|
:- typeclass flatzinc_solver(Solver, Var) <= (Solver -> Var) where [
|
|
pred solve_for_vars(Solver::in, solve_spec(Var)::ia,
|
|
solver_annotations(Var)::ia, list(Var)::ia) is nondet
|
|
].
|
|
|
|
:- type solve_spec(Var)
|
|
---> satisfy
|
|
; minimize(Var)
|
|
; maximize(Var).
|
|
|
|
:- type solver_annotations(Var) == list(solver_annotation(Var)).
|
|
|
|
:- type solver_annotation(Var)
|
|
---> solver_annotation(list(Var)).
|
|
|
|
:- type env(Var) == list({int, Var}).
|
|
|
|
:- implementation.
|
|
:- import_module exception.
|
|
|
|
:- pred interpret(Solver::in) is det <= flatzinc_solver(Solver, Var).
|
|
|
|
interpret(Solver) :-
|
|
interpret_2(Solver, satisfy, [], []).
|
|
|
|
:- pragma inline(interpret_2/4).
|
|
:- pred interpret_2(Solver::in, solve_spec(Var)::ia,
|
|
solver_annotations(Var)::ia,
|
|
list(Var)::ia) is det <= flatzinc_solver(Solver, Var).
|
|
|
|
interpret_2(Solver, SolveSpec, SolverAnns, AllVars) :-
|
|
promise_pure
|
|
( if
|
|
promise_equivalent_solutions [SolveSpec, SolverAnns, AllVars] (
|
|
solve_for_vars(Solver, SolveSpec, SolverAnns, AllVars)
|
|
)
|
|
then
|
|
true
|
|
else
|
|
throw("")
|
|
).
|