mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 21:35:49 +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.
41 lines
1.1 KiB
Mathematica
41 lines
1.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Regression test for a case where cse_detection.m, det_analysis.m
|
|
% and simplify.m were not updating the instmap before processing
|
|
% a lambda expression, causing an abort in determinism analysis.
|
|
|
|
:- module lambda_instmap_bug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module set.
|
|
:- import_module pair.
|
|
|
|
:- type instr == pair(instruction, string).
|
|
|
|
:- type instruction
|
|
---> clear(int)
|
|
; drop(int)
|
|
; join(int, int, int).
|
|
|
|
:- pred detect_streams(set(int), list(instr), list(instr)).
|
|
:- mode detect_streams(in, in, out) is det.
|
|
|
|
:- implementation.
|
|
|
|
detect_streams(Streams, Instrs0, Instrs) :-
|
|
% Don't attempt to clear or drop streams.
|
|
IsNotStreamClear =
|
|
(pred(Instr::in) is semidet :-
|
|
\+ (
|
|
( Instr = clear(Rel) - _
|
|
; Instr = drop(Rel) - _
|
|
),
|
|
set__member(Rel, Streams)
|
|
)
|
|
),
|
|
list__filter(IsNotStreamClear, Instrs0, Instrs).
|