mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-29 08:14:31 +00:00
398ca2423d
Estimated hours taken: 0.25 tests/hard_coded/nondet_c.m: tests/hard_coded/pragma_inline.m: Add some missing #includes that showed up when these test cases were compiled with `--target asm'.
50 lines
1.2 KiB
Mathematica
50 lines
1.2 KiB
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.
|
|
|
|
:- import_module list, string.
|
|
|
|
main -->
|
|
{ L = "l"},
|
|
{ append_strings(L, L, LL) },
|
|
{ string__append_list(["He", LL, "o, world\n"], String) },
|
|
c_write_string(String).
|
|
|
|
:- pragma(c_header_code, "#include <stdio.h>").
|
|
|
|
:- 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),
|
|
will_not_call_mercury, "
|
|
printf(""%s"", Message);
|
|
IO = IO0;
|
|
").
|
|
|
|
:- pragma(inline, c_write_string/3).
|
|
|
|
:- pragma(c_header_code, "#include <string.h>").
|
|
:- pragma(c_header_code, "#include ""mercury_heap.h""").
|
|
|
|
:- pred append_strings(string::in, string::in, string::out) is det.
|
|
:- pragma inline(append_strings/3).
|
|
:- pragma c_code(append_strings(S1::in, S2::in, S3::out),
|
|
will_not_call_mercury, "{
|
|
size_t len_1, len_2;
|
|
MR_Word tmp;
|
|
len_1 = strlen(S1);
|
|
len_2 = strlen(S2);
|
|
MR_incr_hp_atomic(tmp, (len_1 + len_2 + sizeof(MR_Word))
|
|
/ sizeof(MR_Word));
|
|
S3 = (char *) tmp;
|
|
strcpy(S3, S1);
|
|
strcpy(S3 + len_1, S2);
|
|
}").
|