mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-17 18:33:58 +00:00
f32063fc75
tests/analysis_external/ext.m:
tests/analysis_external/ext2.m:
tests/dppd/bug.m:
tests/valid/determinism.m:
tests/valid/mode_merge_insts.m:
Replace `:- external' declarations with the new pragma form.
26 lines
577 B
Mathematica
26 lines
577 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Same as ext.m but tests trail usage analysis separately.
|
|
|
|
:- module ext2.
|
|
:- interface.
|
|
|
|
:- pred foo(t::in, t::out) is det.
|
|
|
|
:- pred bar(t::in, t::out) is det.
|
|
|
|
:- type t
|
|
---> t(int, int).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- pragma external_pred(foo/2).
|
|
|
|
% For comparison.
|
|
:- pragma no_inline(bar/2).
|
|
bar(X, X).
|