%-----------------------------------------------------------------------------% :- module sharing_m1. :- interface. :- import_module sharing_m2. :- pred aaa(foo::in, foo::out) is det. :- pred aaa2(foo::in, foo::out) is det. %-----------------------------------------------------------------------------% %-----------------------------------------------------------------------------% :- implementation. :- pragma no_inline(aaa/2). aaa(N, M) :- bbb(N, M). :- pragma no_inline(aaa2/2). aaa2(X, X). %-----------------------------------------------------------------------------% % vim: ft=mercury ts=8 sts=4 sw=4 et