mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
ae5f8d4ce7
compiler/parse_tree_out_sym_name.m:
As above.
tests/invalid/*.err_exp:
tests/term/*.trans_opt_exp:
tests/warnings/test_tscp.exp:
Update these files to expect the *absence* of unnecessary parentheses
around sym_names.
tests/term/foreign_valid.m:
Export some pragmas to avoid warnings that are irrelevant to the test.
88 lines
2.1 KiB
Mathematica
88 lines
2.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module foreign_valid.
|
|
|
|
:- interface.
|
|
|
|
:- import_module int.
|
|
|
|
:- pred test1(int::out) is det.
|
|
:- pred test2(int::out) is det.
|
|
:- pred test3(int::out) is det.
|
|
:- pred test4(int::out) is det.
|
|
:- pred test5(int::out) is det.
|
|
:- pred test6(int::out) is det.
|
|
:- pred test7(int::out) is det.
|
|
:- pred test8(int::out) is det.
|
|
:- pred test9(int::out) is det.
|
|
:- pred test10(int::out) is det.
|
|
|
|
:- pragma terminates(pred(test7/1)).
|
|
:- pragma does_not_terminate(pred(test8/1)).
|
|
:- pragma terminates(pred(test9/1)).
|
|
:- pragma does_not_terminate(pred(test10/1)).
|
|
|
|
:- implementation.
|
|
|
|
:- pragma foreign_proc("C", test1(X::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test2(X::out),
|
|
[may_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test3(X::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe, does_not_terminate], "
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test4(X::out),
|
|
[may_call_mercury, promise_pure, thread_safe, terminates],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test5(X::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe, terminates],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test6(X::out),
|
|
[may_call_mercury, promise_pure, thread_safe, does_not_terminate],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test7(X::out),
|
|
[may_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test8(X::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test9(X::out),
|
|
[may_call_mercury, promise_pure, thread_safe, terminates],
|
|
"
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- pragma foreign_proc("C", test10(X::out),
|
|
[will_not_call_mercury, promise_pure, thread_safe, does_not_terminate], "
|
|
X = (MR_Integer) 3;
|
|
").
|
|
|
|
:- end_module foreign_valid.
|