mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 20:33:55 +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.
49 lines
952 B
Mathematica
49 lines
952 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Regression test for a bug where the compiler would incorrectly specialize
|
|
% the call to P in do_stuff.
|
|
|
|
:- module ho_spec_branch_bug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module maybe.
|
|
|
|
main(!IO) :-
|
|
do_stuff(yes(1), !IO).
|
|
|
|
:- pred ho1(io::di, io::uo) is det.
|
|
|
|
ho1(!IO) :-
|
|
io.write_string("ho1\n", !IO).
|
|
|
|
:- pred ho2(io::di, io::uo) is det.
|
|
|
|
ho2(!IO) :-
|
|
io.write_string("ho2\n", !IO).
|
|
|
|
:- func get_ho2 = (pred(io, io)).
|
|
:- mode get_ho2 = out(pred(di, uo) is det) is det.
|
|
|
|
get_ho2 = ho2.
|
|
|
|
:- pred do_stuff(maybe(int)::in, io::di, io::uo) is det.
|
|
|
|
do_stuff(Maybe, !IO) :-
|
|
(
|
|
Maybe = no,
|
|
P = ho1
|
|
;
|
|
Maybe = yes(_),
|
|
P = get_ho2
|
|
),
|
|
P(!IO).
|