mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 10:53:40 +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.
49 lines
1.5 KiB
Mathematica
49 lines
1.5 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This is a regression test. The compiler used to abort in this code
|
|
% when both frame optimization and value numbering were turned on but
|
|
% full jump optimization wasn't.
|
|
%
|
|
% The reason was that frameopt, in keeping the stack frame of det_insert_fcl,
|
|
% would generate the instruction sequence "livevals, assign to succip, goto",
|
|
% which violated an invariant expected by value numbering, namely that
|
|
% the livevals giving info about the variables live at a goto must
|
|
% immediately precede the goto. (Fulljump fixes the problem by eliminating
|
|
% the goto.)
|
|
|
|
:- module livevals_seq.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module tree234.
|
|
|
|
:- type map(K, V) == tree234(K, V).
|
|
|
|
:- pred det_insert_fcl(map(K, V), list(K), list(V), map(K, V)).
|
|
:- mode det_insert_fcl(in, in, in, out) is det.
|
|
|
|
:- implementation.
|
|
:- import_module require.
|
|
|
|
det_insert_fcl(Map0, Ks, Vs, Map) :-
|
|
(
|
|
Ks = [Key | Keys], Vs = [Value | Values]
|
|
->
|
|
det_insert(Map0, Key, Value, Map1),
|
|
det_insert_fcl(Map1, Keys, Values, Map)
|
|
;
|
|
Ks = [], Vs = []
|
|
->
|
|
Map = Map0
|
|
;
|
|
error("lists do not correspond")
|
|
).
|
|
|
|
:- pred det_insert(map(K, V), K, V, map(K, V)).
|
|
:- mode det_insert(in, in, in, out) is det.
|
|
:- pragma no_inline(det_insert/4).
|
|
|
|
det_insert(M, _, _, M).
|