mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 14:24:11 +00:00
dd08065bde
Estimated hours taken: 0.25 tests/hard_coded/pragma_inline.m: Remove cast to (char *) which is now unnecessary, and rename `String' variable to avoid name clash.
25 lines
465 B
Mathematica
25 lines
465 B
Mathematica
% A test of the pragma(inline, ...) declarations.
|
|
|
|
:- module pragma_inline.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
main -->
|
|
c_write_string("Hello, world\n").
|
|
|
|
:- pred c_write_string(string::in, io__state::di, io__state::uo) is det.
|
|
|
|
:- pragma(c_code, c_write_string(Message::in, IO0::di, IO::uo), "
|
|
printf(""%s"", Message);
|
|
IO = IO0;
|
|
").
|
|
|
|
:- pragma(inline, c_write_string/3).
|
|
|