Support variadic extern procedures

1 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/runnable/varargs.elna b/testsuite/runnable/varargs.elna
new file mode 100644
index 0000000..feeb94b
--- /dev/null
+++ b/testsuite/runnable/varargs.elna
@@ -0,0 +1,16 @@
+var
+  buffer: [8]Word8
+  written: Int32
+
+proc snprintf(buffer: ^Word8; size: Word; format: ^const Word8) #{varargs} -> Int32
+extern
+
+program()
+begin
+  written := snprintf(@buffer[1], 8u, "%d %.1f".ptr, 200u8, 1.5f);
+  assert(written = 7i32);
+  assert(buffer[1] = '2');
+  assert(buffer[7] = '5')
+return 0u8
+
+end.