From 90bf56f456e22dcd98458eca14e0b152a5efb179 Mon Sep 17 00:00:00 2001 From: _ov4 Date: Thu, 22 Oct 2026 13:30:00 +0000 Subject: feat(codegen): accept record pointers as variadic arguments Pointer types to C-struct records now pass unchanged as variadic EXTERN arguments. Pseudocode values still need a cast to a C type, and records by value stay rejected. Co-Authored-By: Claude Opus 5.5 --- tests/i/extern-c-struct/program.cps | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'tests/i/extern-c-struct/program.cps') diff --git a/tests/i/extern-c-struct/program.cps b/tests/i/extern-c-struct/program.cps index 1954d29..bcb7af4 100644 --- a/tests/i/extern-c-struct/program.cps +++ b/tests/i/extern-c-struct/program.cps @@ -9,8 +9,10 @@ TYPE PSample = ^Sample EXTERN "C" EXTERN_PROCEDURE scale_sample(PSample, C_INT) EXTERN "C" EXTERN_FUNCTION shared_sample() RETURNS PSample EXTERN "C" EXTERN_FUNCTION shared_count() RETURNS C_INT +EXTERN "C" EXTERN_FUNCTION sum_counts(C_INT, ...) RETURNS C_INT DECLARE S : Sample DECLARE P : PSample +DECLARE Q : PSample S.Tag <- (C_CHAR)'S' S.Value <- (C_DOUBLE)1.5 S.Count <- (C_INT)5 @@ -20,3 +22,5 @@ P <- shared_sample() OUTPUT P^.Tag, " ", P^.Value, " ", P^.Count P^.Count <- (C_INT)9 OUTPUT shared_count() +Q <- ^S +OUTPUT sum_counts((C_INT)2, P, Q) -- cgit v1.3.1-4-g156e