testsuite/runnable/varargs.elna


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program()
var
  buffer: [8]Word8
  written: Int32

proc snprintf(buffer: ^Word8; size: Word; format: ^const Word8) #{varargs} -> Int32
extern

begin
  written := snprintf(@buffer[1], 8u, "%d %.1f".ptr, 200u8, 1.5f);
  assert(written = 7i32);
  assert(buffer[1] = '2');
  assert(buffer[7] = '5')
end.