mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
4a3e4968c9
compiler/modecheck_unify.m:
User-written lambdas always include a mode declaration. However,
the compiler can also construct lambdas from curried calls, and these
do not have a mode declaration. These converted, non-mode-declared
lambdas always start out containing *only* the curried call, but
the polymorphism transformation can insert other code before this call,
e.g. to pick up the typeinfos and/or typeclass infos to be passed
to that call from other typeclass infos, so don't abort if the lambda
contains calls to the builtin predicates that do these things besides
the original call.
tests/valid/undetermined_mode_lambda.m:
A regression test for the bug.
tests/valid/Mmakefile:
Enable the new test case.
51 lines
1.3 KiB
Mathematica
51 lines
1.3 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Any copyright is dedicated to the Public Domain.
|
|
% https://creativecommons.org/publicdomain/zero/1.0/
|
|
%
|
|
% Released by Transnat Games for testing purposes.
|
|
%
|
|
% Crashes with:
|
|
% Uncaught Mercury exception:
|
|
% Software Error: predicate `check_hlds.modecheck_unify.
|
|
% modecheck_unification_rhs_undetermined_mode_lambda'/8:
|
|
% Unexpected: expecting single call
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module undetermined_mode_lambda.
|
|
:- interface.
|
|
|
|
:- use_module io.
|
|
|
|
:- pred main(io.io::di, io.io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- typeclass empty_typeclass(T) where [].
|
|
|
|
:- pred nothing(_::in) is det.
|
|
|
|
nothing(_).
|
|
|
|
% There must be multiple modes for this pred.
|
|
:- pred do(pred(X), X).
|
|
:- mode do(pred(in) is det, in) is det.
|
|
:- mode do(pred(out) is det, out) is det.
|
|
|
|
do(Pred, X) :- Pred(X).
|
|
|
|
% The pred must have a typeclass constraint, even if it isn't used in the pred.
|
|
:- pred crash(T::in) is det <= empty_typeclass(T).
|
|
|
|
crash(T) :-
|
|
do(do(nothing), T).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
main(!IO).
|