mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +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.
55 lines
1.7 KiB
Mathematica
55 lines
1.7 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Predicates generated by the untupling transformation were being given the
|
|
% same forms of names, no matter if the original procedure being transformed
|
|
% was a predicate or a function. If a module had a predicate and a function
|
|
% with the same name and arity, and tracing was enabled, and a low enough
|
|
% optimisation level was being used, this would result in an exception being
|
|
% thrown.
|
|
%
|
|
% mmc -C -O0 --untuple --trace deep --trace-optimized untuple_bug.m
|
|
%
|
|
% Uncaught Mercury exception:
|
|
% Software Error: map__det_insert: key already present
|
|
% Key Type: ll_backend.llds.label
|
|
% Key Value: internal(2, proc(unqualified("untuple_bug"), predicate,
|
|
% unqualified("untuple_bug"), "untupling_0__pred__f__0__1", 1, 0))
|
|
% Value Type: ll_backend.llds.data_addr
|
|
%
|
|
% A similar nameclash happened when two procedures of the same name but
|
|
% different arities were expanded into procedures of the same arity.
|
|
|
|
:- module untuple_bug.
|
|
|
|
:- interface.
|
|
|
|
:- type t ---> t(int).
|
|
:- type tt ---> tt(int, int).
|
|
|
|
% A function and predicate of the same name and arity.
|
|
|
|
:- func f = t.
|
|
:- pred f(t::out) is det.
|
|
|
|
% Two predicates that expand into the same name and arity.
|
|
|
|
:- pred g(t::in, t::in) is semidet.
|
|
:- pred g(tt::in) is semidet.
|
|
|
|
:- pred h(t::in, t::in) is semidet.
|
|
:- pred h(tt::in) is semidet.
|
|
|
|
:- implementation.
|
|
|
|
f = t(0).
|
|
f(t(0)).
|
|
|
|
g(t(T), t(T)).
|
|
g(tt(T, T)).
|
|
|
|
% These are on the same line to make sure that a counter is being used
|
|
% properly when generating names.
|
|
h(t(T), t(T)). h(tt(T, T)).
|