mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-29 00:04:55 +00:00
b9eca3ce6b
Branches: main Change the order of predicate arguments in the array module to make them more conducive to the use of state variable notation. library/array.m: As above. Group clauses for functions with those of the corresponding predicate. library/svarray.m: library/hash_table.m: library/io.m: library/random.m: compiler/lambda.m: deep_profiler/array_util.m: deep_profiler/callgraph.m: deep_profiler/canonical.m: deep_profiler/cliques.m: deep_profiler/dense_bitset.m: deep_profiler/measurements.m: deep_profiler/profile.m: deep_profiler/read_profile.m: deep_profiler/startup.m: tests/general/array_test.m: tests/general/mode_inf.m: tests/hard_coded/array_test2.m: tests/hard_coded/lp.m: tests/hard_coded/reuse_array.m: Conform to the above change and remove dependencies on the svarray module. tests/general/set_test.m: Replace calls to set_bbbtree.size/2 with calls to set_bbbtree.count/2. NEWS: Announce the above change.
88 lines
2.3 KiB
Mathematica
88 lines
2.3 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% Test structure sharing annotations on array operations.
|
|
|
|
:- module reuse_array.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- impure pred main(io::di, io::uo) is cc_multi.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module array.
|
|
:- import_module list.
|
|
|
|
:- type struct
|
|
---> struct(int, f :: int).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
main(!IO) :-
|
|
Struct1 = struct(1, dummy),
|
|
impure addr(Struct1, Addr1),
|
|
array.init(5, Struct1, Array0),
|
|
% Structure reuse requires a deconstruction which it can consider the death
|
|
% of a structure, so we oblige.
|
|
unused(Struct1 ^ f),
|
|
|
|
Struct2 = struct(2, dummy),
|
|
impure addr(Struct2, Addr2),
|
|
unused(Struct2 ^ f),
|
|
|
|
% Struct1 should NOT be reused here, as it shares with Array0.
|
|
% Struct2 can and should be reused instead.
|
|
Struct3 = struct(3, dummy),
|
|
impure addr(Struct3, Addr3),
|
|
array.unsafe_set(3, Struct3, Array0, Array),
|
|
unused(Struct3 ^ f),
|
|
|
|
% Struct3 should NOT be reused for Struct4, as it is shared with Array.
|
|
Struct4 = struct(4, dummy),
|
|
impure addr(Struct4, Addr4),
|
|
|
|
array.to_list(Array, List),
|
|
io.write(List, !IO),
|
|
io.nl(!IO),
|
|
|
|
list.sort_and_remove_dups([Addr1, Addr2, Addr3, Addr4], Addrs),
|
|
list.length(Addrs, NumAddrs),
|
|
(
|
|
NumAddrs = 4
|
|
->
|
|
io.write_string("4 distinct addresses - no reuse detected\n", !IO)
|
|
;
|
|
NumAddrs = 3,
|
|
Addr2 = Addr3
|
|
->
|
|
io.write_string("3 distinct addresses - reuse detected\n", !IO)
|
|
;
|
|
io.write_string("unexpected addresses: ", !IO),
|
|
io.write(Addrs, !IO),
|
|
io.nl(!IO)
|
|
).
|
|
|
|
:- impure pred addr(T::ui, int::uo) is cc_multi.
|
|
:- pragma foreign_proc("C",
|
|
addr(T::ui, Ptr::uo),
|
|
[will_not_call_mercury, thread_safe, no_sharing],
|
|
"
|
|
Ptr = (MR_Integer) T;
|
|
").
|
|
|
|
% This is used to force structures to be constructed dynamically.
|
|
:- func dummy = (int::uo).
|
|
:- pragma no_inline(dummy/0).
|
|
|
|
dummy = 999.
|
|
|
|
:- pred unused(int::unused) is det.
|
|
|
|
unused(_).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sts=4 sw=4 et
|