mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
66dee1e133
compiler/make_hlds_passes.m:
Both fix and document the phasing problem.
compiler/add_pred.m:
Document the field here as well.
compiler/check_field_access_functions.m:
Delete the reference to this phasing problem.
tests/invalid/mode_without_pred.{m,err_exp}:
A test case for this issue, which compilers from before this fix
would have failed.
tests/invalid/Mmakefile:
Enable the new test.
21 lines
466 B
Mathematica
21 lines
466 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module mode_without_pred.
|
|
:- interface.
|
|
|
|
:- type t
|
|
---> f(
|
|
f1 :: int,
|
|
f2 :: int
|
|
).
|
|
|
|
:- implementation.
|
|
|
|
% :- func f1(t) = int.
|
|
:- mode f1(in) = out is det.
|
|
|
|
:- func 'f1 :='(t, int) = t.
|
|
:- mode 'f1 :='(in, in) = out is det.
|