Files
mercury/tests/valid/wrapper_arg_lvals.m
Zoltan Somogyi fdd141bf77 Clean up the tests in the other test directories.
tests/invalid/*.{m,err_exp}:
tests/misc_tests/*.m:
tests/mmc_make/*.m:
tests/par_conj/*.m:
tests/purity/*.m:
tests/stm/*.m:
tests/string_format/*.m:
tests/structure_reuse/*.m:
tests/submodules/*.m:
tests/tabling/*.m:
tests/term/*.m:
tests/trailing/*.m:
tests/typeclasses/*.m:
tests/valid/*.m:
tests/warnings/*.{m,exp}:
    Make these tests use four-space indentation, and ensure that
    each module is imported on its own line. (I intend to use the latter
    to figure out which subdirectories' tests can be executed in parallel.)

    These changes usually move code to different lines. For the tests
    that check compiler error messages, expect the new line numbers.

browser/cterm.m:
browser/tree234_cc.m:
    Import only one module per line.

tests/hard_coded/boyer.m:
    Fix something I missed.
2015-02-16 12:32:18 +11:00

32 lines
943 B
Mathematica

%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
%
% ml_gen_wrapper_arg_lvals was incorrectly determining `unused' arguments to be
% output variables. This led to a compiler abort when compiling this module to
% Java.
%
% Software Error:
% assoc_list.from_corresponding_lists: lists have different lengths.
% Key list type: list.list(ml_backend.mlds.mlds_type)
% Key list length: 1
% Value list type: list.list(ml_backend.mlds.mlds_rval)
% Value list length: 2
:- module wrapper_arg_lvals.
:- interface.
:- typeclass tc(T, V) where [
pred bananas(T::unused, V::out) is det
].
:- instance tc(int, string).
%---------------------------------------------------------------------------%
:- implementation.
:- instance tc(int, string) where [
bananas(_, "no bananas today")
].