mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 09:14:08 +00:00
baf2ee19e9
Branches: main Change the argument order of predicates in the rbtree and tree234 modules to make them more conducive to the use of state variable notation. (This change will break existing code that uses these modules but such modules should be quite rare; most existing code uses the map module.) library/rbtree.m: Change argument orderings as above. Add further modes for the foldl predicates that have (mostly-)unique accumulators. library/tree234.m: Change argument orderings as above. library/map.m: profiler/generate_output.m: tests/debugger/declarative/mapinit.m: tests/hard_coded/transform_value.m: Conform to the above changes. NEWS: Announce the above changes.
43 lines
1.3 KiB
Mathematica
43 lines
1.3 KiB
Mathematica
% This is a regression test. The 17-Nov-2002 version of the compiler got
|
|
% a runtime abort in the declarative debugger for the associated input script.
|
|
% The bug occurred during the conversion to typeinfos of the pseudotypeinfos
|
|
% describing xmap__init's two input arguments, TypeInfo_for_K and
|
|
% TypeInfo_for_V.
|
|
%
|
|
% The problem was caused by the type private_builtin:typeinfo being declared
|
|
% to have arity 1, when its true arity is variable, with the actual argument
|
|
% values being unused by the runtime system. At the call event of xmap_init,
|
|
% the types of the typeinfos include unbound type variables (K and V); the
|
|
% runtime system tried to follow a NULL pointer when attempting to look up
|
|
% the identities of the typeinfos bound to these type variables.
|
|
|
|
:- module mapinit.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module tree234.
|
|
|
|
:- type xmap(K, V) == tree234(K, V).
|
|
|
|
main -->
|
|
{ xmap_init(Init) },
|
|
{ xmap_set(Init, 0, "zero", Map) },
|
|
io__write(Map),
|
|
io__nl.
|
|
|
|
:- pred xmap_init(xmap(K, V)::out) is det.
|
|
|
|
xmap_init(Init) :-
|
|
tree234__init(Init).
|
|
|
|
:- pred xmap_set(xmap(K, V)::in, K::in, V::in, xmap(K, V)::out) is det.
|
|
|
|
xmap_set(Map0, Key, Value, Map) :-
|
|
tree234__set(Key, Value, Map0, Map).
|