mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +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.
28 lines
702 B
Mathematica
28 lines
702 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Analysis results should be written out for exported `:- pragma external*'
|
|
% predicates. Importing modules don't care how those procedures are
|
|
% implemented, so results should exist.
|
|
|
|
:- module ext.
|
|
:- 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).
|