mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 04:43:53 +00:00
2f3ea6c2a6
Estimated hours taken: 3
Ripped out code to warn if impurity markers were put before non-atomic
goals. Such errors are now handled in prog_io_goal.m, and a suitable
error message is printed by typecheck.m. So the code in purity.m was
vestigial. It was triggered by implied modes of semipure or impure
goals, because they are turned into conjunctions, which then appear to
have been marked {im,semi}pure.
compiler/purity.m:
Ripped out no-longer-needed error checking code.
tests/hard_coded/purity.exp:
tests/hard_coded/purity.m:
Add a regression test.
tests/invalid/purity_nonsense.err_exp:
tests/invalid/purity_nonsense.m:
Add a `impure call(P)' test (should give a warning/error).
135 lines
3.8 KiB
Mathematica
135 lines
3.8 KiB
Mathematica
% Various checks that impurity declarations are treated properly.
|
|
|
|
:- module purity.
|
|
:- interface.
|
|
:- import_module io.
|
|
:- impure pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module int, list, string.
|
|
|
|
main -->
|
|
impure test1,
|
|
impure test2,
|
|
impure test3,
|
|
impure test4,
|
|
impure test1_inline,
|
|
impure test2_inline,
|
|
impure test3_inline,
|
|
impure test4_inline.
|
|
|
|
|
|
:- impure pred test1(io__state::di, io__state::uo) is det.
|
|
:- impure pred test2(io__state::di, io__state::uo) is det.
|
|
:- impure pred test3(io__state::di, io__state::uo) is det.
|
|
:- impure pred test4(io__state::di, io__state::uo) is det.
|
|
|
|
:- impure pred test1_inline(io__state::di, io__state::uo) is det.
|
|
:- impure pred test2_inline(io__state::di, io__state::uo) is det.
|
|
:- impure pred test3_inline(io__state::di, io__state::uo) is det.
|
|
:- impure pred test4_inline(io__state::di, io__state::uo) is det.
|
|
|
|
|
|
:- impure pred set_x(int::in) is det.
|
|
:- pragma c_code(set_x(X::in), will_not_call_mercury, "x=X;" ).
|
|
:- pragma no_inline(set_x/1).
|
|
|
|
:- impure pred incr_x is det.
|
|
:- pragma c_code(incr_x, will_not_call_mercury, "++x;" ).
|
|
:- pragma no_inline(incr_x/0).
|
|
|
|
:- semipure pred get_x(int::out) is det.
|
|
:- pragma c_code(get_x(X::out), will_not_call_mercury, "X=x;").
|
|
:- pragma no_inline(get_x/1).
|
|
|
|
|
|
:- impure pred set_x_inline(int::in) is det.
|
|
:- pragma c_code(set_x_inline(X::in), will_not_call_mercury, "x=X;" ).
|
|
:- pragma inline(set_x_inline/1).
|
|
|
|
:- impure pred incr_x_inline is det.
|
|
:- pragma c_code(incr_x_inline, will_not_call_mercury, "++x;" ).
|
|
:- pragma inline(incr_x_inline/0).
|
|
|
|
:- semipure pred get_x_inline(int::out) is det.
|
|
:- pragma c_code(get_x_inline(X::out), will_not_call_mercury, "X=x;").
|
|
:- pragma inline(get_x_inline/1).
|
|
|
|
|
|
:- pragma c_header_code("int x = 0;").
|
|
|
|
|
|
% tempt compiler to optimize away duplicate semipure goals.
|
|
test1 -->
|
|
{ semipure get_x(X) },
|
|
io__format("%d\n", [i(X)]),
|
|
{ impure set_x(X+1) },
|
|
{ semipure get_x(Y) },
|
|
io__format("%d\n", [i(Y)]).
|
|
|
|
|
|
% tempt compiler to optimize away duplicate impure goals, or to compile away
|
|
% det goals with no outputs.
|
|
test2 -->
|
|
{ impure incr_x },
|
|
{ impure incr_x },
|
|
{ semipure get_x(Y) },
|
|
io__format("%d\n", [i(Y)]).
|
|
|
|
% tempt compiler to optimize away impure goal in branch that cannot succeed.
|
|
test3 -->
|
|
( { impure incr_x },
|
|
{ fail }
|
|
; { semipure get_x(Y) },
|
|
io__format("%d\n", [i(Y)])
|
|
).
|
|
|
|
% regression test for problem with calls to implied modes of impure/semipure
|
|
% preds reporting spurious warnings about impurity markers in the wrong place.
|
|
test4 -->
|
|
{ semipure get_x(OldX) },
|
|
{ impure incr_x },
|
|
( { semipure get_x(OldX+1) } ->
|
|
io__write_string("test4 succeeds\n")
|
|
; io__write_string("test4 fails\n")
|
|
),
|
|
{ impure set_x(OldX) }.
|
|
|
|
|
|
% Now do it all again with inlining requested
|
|
|
|
% tempt compiler to optimize away duplicate semipure goals.
|
|
test1_inline -->
|
|
{ semipure get_x_inline(X) },
|
|
io__format("%d\n", [i(X)]),
|
|
{ impure set_x_inline(X+1) },
|
|
{ semipure get_x_inline(Y) },
|
|
io__format("%d\n", [i(Y)]).
|
|
|
|
% tempt compiler to optimize away duplicate impure goals, or to compile away
|
|
% det goals with no outputs.
|
|
test2_inline -->
|
|
{ impure incr_x_inline },
|
|
{ impure incr_x_inline },
|
|
{ semipure get_x_inline(Y) },
|
|
io__format("%d\n", [i(Y)]).
|
|
|
|
% tempt compiler to optimize away impure goal in branch that cannot succeed.
|
|
test3_inline -->
|
|
( { impure incr_x_inline },
|
|
{ fail }
|
|
; { semipure get_x_inline(Y) },
|
|
io__format("%d\n", [i(Y)])
|
|
).
|
|
|
|
% regression test for problem with calls to implied modes of impure/semipure
|
|
% preds reporting spurious warnings about impurity markers in the wrong place.
|
|
test4_inline -->
|
|
{ semipure get_x_inline(OldX) },
|
|
{ impure incr_x_inline },
|
|
( { semipure get_x_inline(OldX+1) } ->
|
|
io__write_string("test4_inline succeeds\n")
|
|
; io__write_string("test4_inline fails\n")
|
|
),
|
|
{ impure set_x_inline(OldX) }.
|