mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
f2ff8bd4da
compiler/typecheck_errors.m:
Gather possibly arities of calls in a set, so that we don't generate
messages of the form "wrong number of arguments (2; should be 3 or 3)"
if there is more than one possible match of the called predicate's name
in scope with the same arity.
tests/invalid/types2.{m,err_exp}:
Extend this test case to test for the right message in such cases.
79 lines
1.2 KiB
Mathematica
79 lines
1.2 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module types2.
|
|
:- interface.
|
|
|
|
:- type t
|
|
---> a
|
|
; f(t).
|
|
|
|
:- implementation.
|
|
:- pred p(pred).
|
|
|
|
:- pred q.
|
|
|
|
q :-
|
|
p(q),
|
|
zzzzzzzz,
|
|
p(2),
|
|
p.
|
|
|
|
r :-
|
|
s.
|
|
|
|
a(X) :-
|
|
b(X).
|
|
|
|
r :-
|
|
r,
|
|
a(0).
|
|
|
|
:- pred z.
|
|
z :-
|
|
r,
|
|
a(0).
|
|
|
|
:- pred foo.
|
|
|
|
foo :-
|
|
bar(_).
|
|
|
|
:- pred bar(BarTypeParam).
|
|
|
|
bar(X) :-
|
|
X = 0.
|
|
|
|
:- pred baz(BazTypeParam).
|
|
|
|
baz(X) :-
|
|
bar(X).
|
|
|
|
:- type t(T1, T2).
|
|
|
|
:- pred bar2(t(Bar1, Bar2)).
|
|
|
|
:- pred baz2(t(Baz1, Baz2)).
|
|
|
|
baz2(X) :-
|
|
bar2(X).
|
|
|
|
:- import_module string.
|
|
:- import_module int.
|
|
|
|
:- pred repeated_arity(int::in, int::in, int::out) is det.
|
|
|
|
repeated_arity(A, B, C) :-
|
|
% Should report "wrong number of arguments (2; should be 3)",
|
|
% not "wrong number of arguments (2; should be 3 or 3)"
|
|
% as it used to (since there are two matches on the predicate name
|
|
% "append" in scope, string.append and types2.append, both of arity 3).
|
|
append(A, B),
|
|
C = 42.
|
|
|
|
:- pred append(int::in, int::in, int::out) is det.
|
|
|
|
append(A, B, C) :-
|
|
C = A + B.
|