mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 05:12:33 +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.
66 lines
1.7 KiB
Mathematica
66 lines
1.7 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Regression test: a bug in quantification caused a software abort with the
|
|
% message "assoc_list__from_corresponding_lists: different lengths".
|
|
%
|
|
% A cursory examination showed that the compiler thought that "Proj"
|
|
% was local to the switch on "MProj" after the first simplification pass.
|
|
|
|
:- module lambda_quant_bug.
|
|
:- interface.
|
|
|
|
:- import_module bool.
|
|
:- import_module io.
|
|
|
|
:- type cl_result
|
|
---> ok(int)
|
|
; error(int).
|
|
|
|
:- pred all_reports(bool, cl_result, io__state, io__state).
|
|
:- mode all_reports(in, out, di, uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int.
|
|
:- import_module list.
|
|
:- import_module string.
|
|
|
|
all_reports(MProj, MTuples) -->
|
|
{ get_structure(MTemp) },
|
|
(
|
|
{ MTemp = ok(_) },
|
|
(
|
|
{ MProj = yes },
|
|
{ list__map(find, [], Proj) }
|
|
;
|
|
{ MProj = no },
|
|
{ list__map(find, [], Proj) }
|
|
),
|
|
list__map_foldl(adjust_tuple(Proj), [], _),
|
|
{ MTuples = ok(42) }
|
|
;
|
|
{ MTemp = error(Err) },
|
|
{ MTuples = error(Err) }
|
|
).
|
|
|
|
:- pragma no_inline(adjust_tuple/5).
|
|
:- pred adjust_tuple(list(int), int, int, io__state, io__state).
|
|
:- mode adjust_tuple(in, in, out, di, uo) is det.
|
|
|
|
adjust_tuple(_, _, 42) --> [].
|
|
|
|
:- pragma no_inline(get_structure/1).
|
|
:- pred get_structure(cl_result :: out) is det.
|
|
|
|
get_structure(error(42)).
|
|
|
|
:- pragma no_inline(find/2).
|
|
:- pred find(int, int).
|
|
:- mode find(in, out) is det.
|
|
|
|
find(_, 42).
|