mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
44 lines
1.4 KiB
Mathematica
44 lines
1.4 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) :-
|
|
( if Ks = [Key | Keys], Vs = [Value | Values] then
|
|
det_insert(Map0, Key, Value, Map1),
|
|
det_insert_fcl(Map1, Keys, Values, Map)
|
|
else if Ks = [], Vs = [] then
|
|
Map = Map0
|
|
else
|
|
error("lists do not correspond")
|
|
).
|
|
|
|
:- pred det_insert(map(K, V)::in, K::in, V::in, map(K, V)::out) is det.
|
|
:- pragma no_inline(det_insert/4).
|
|
|
|
det_insert(M, _, _, M).
|