From 567d1c932284bdd53c60937ff6f4ce4a63d104bf Mon Sep 17 00:00:00 2001 From: _ov4 Date: Sat, 17 Oct 2026 15:56:41 +0000 Subject: test(extern): call functions from a user C object Co-Authored-By: Claude Sonnet 5.5 --- tests/i/extern-c-object/program.cps | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 tests/i/extern-c-object/program.cps (limited to 'tests/i/extern-c-object/program.cps') diff --git a/tests/i/extern-c-object/program.cps b/tests/i/extern-c-object/program.cps new file mode 100644 index 0000000..5ac34ec --- /dev/null +++ b/tests/i/extern-c-object/program.cps @@ -0,0 +1,13 @@ +// Functions from a user C object built with the host C compiler. +INCLUDE_OBJ "lib.o" +EXTERN "C" EXTERN_FUNCTION add3(C_INT, C_INT, C_INT) RETURNS C_INT +EXTERN "C" EXTERN_FUNCTION scale(C_DOUBLE, C_INT) RETURNS C_DOUBLE +EXTERN "C" EXTERN_FUNCTION name_length(C_STRING) RETURNS C_INT +EXTERN "C" EXTERN_FUNCTION next_call() RETURNS C_INT +EXTERN "C" EXTERN_PROCEDURE say(C_STRING) +OUTPUT add3((C_INT)1, (C_INT)2, (C_INT)3) +OUTPUT scale((C_DOUBLE)2.5, (C_INT)4) +OUTPUT name_length((C_STRING)"cambridge") +OUTPUT next_call() +OUTPUT next_call() +CALL say((C_STRING)"from lib.c") -- cgit v1.3.1-4-g156e