mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 21:03:53 +00:00
55cf491e34
Branches: main, 11.07 Fix bug #229. A term with an argument produced in a from_ground_term_construct scope was not itself being marked to be constructed statically. A side-effect was an exception being thrown while generating a lookup switch in high-level C grades. compiler/mark_static_terms.m: Add the variable constructed in a from_ground_term_construct scope to the set of static variables. tests/valid/Mercury.options: tests/valid/Mmakefile: tests/valid/mark_static_bug.m: Add test case.
40 lines
787 B
Mathematica
40 lines
787 B
Mathematica
% A term with an argument produced in a from_ground_term_construct scope was
|
|
% not itself being marked to be constructed statically. A side-effect was an
|
|
% exception being thrown while generating a lookup switch in high-level C
|
|
% grades.
|
|
|
|
:- module mark_static_bug.
|
|
:- interface.
|
|
|
|
:- type foo
|
|
---> foo(int, bar).
|
|
|
|
:- type bar
|
|
---> none
|
|
; bar(int, int, int, baz).
|
|
|
|
:- type baz
|
|
---> baz(int).
|
|
|
|
:- pred mkfoo(int::in, foo::out) is semidet.
|
|
|
|
:- implementation.
|
|
|
|
mkfoo(X, Foo) :-
|
|
(
|
|
X = 1,
|
|
Bar = bar(100, 200, 300, baz(400)),
|
|
Foo = foo(1, Bar)
|
|
;
|
|
X = 2,
|
|
Foo = foo(2, none)
|
|
;
|
|
X = 3,
|
|
Foo = foo(3, none)
|
|
;
|
|
X = 4,
|
|
Foo = foo(4, none)
|
|
).
|
|
|
|
% vim: ft=mercury ts=4 sts=4 sw=4 et
|