mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-26 14:54:17 +00:00
06c10a341b
Estimated hours taken: 1.5 Ignore compiler generated procedures in the declarative debugger (that is, assume they are correct). trace/mercury_trace_declarative.c: Filter out events from compiler generated procedures, and don't allow 'dd' to be used at these events. tests/debugger/declarative/Mmakefile: tests/debugger/declarative/comp_gen.m: tests/debugger/declarative/comp_gen.inp: tests/debugger/declarative/comp_gen.exp: New test case for these changes.
29 lines
406 B
Mathematica
29 lines
406 B
Mathematica
:- module comp_gen.
|
|
:- interface.
|
|
:- import_module io.
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
:- implementation.
|
|
|
|
main -->
|
|
{ data(A, B) },
|
|
(
|
|
{ p(A, B) }
|
|
->
|
|
io__write_string("yes\n")
|
|
;
|
|
io__write_string("no\n")
|
|
).
|
|
|
|
:- type foo(X) ---> f(X).
|
|
|
|
:- pred data(foo(int), foo(int)).
|
|
:- mode data(out, out) is det.
|
|
|
|
data(f(1), f(2)).
|
|
|
|
:- pred p(T, T).
|
|
:- mode p(in, in) is semidet.
|
|
|
|
p(X, X).
|
|
|