mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
ecb5e4a9e6
tests/declarative_debugger/*.m:
tests/exceptions/*.m:
tests/general/*.m:
tests/grade_subdirs/*.m:
tests/purity/*.m:
tests/submodules/*.m:
tests/typeclasses/*.m:
Update programming style.
tests/declarative_debugger/*.inp:
Update line numbers in breakpoint commands.
tests/declarative_debugger/*.exp:
Update expected line numbers.
tests/exceptions/Mercury.options:
tests/general/Mercury.options:
Disable some warnings that are irrelevant to the test.
46 lines
1.4 KiB
Mathematica
46 lines
1.4 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% 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::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module tree234.
|
|
|
|
:- type xmap(K, V) == tree234(K, V).
|
|
|
|
main(!IO) :-
|
|
xmap_init(Init),
|
|
xmap_set(Init, 0, "zero", Map),
|
|
io.write_line(Map, !IO).
|
|
|
|
:- 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).
|