From 1b58c86d6856339d71bfc124fc8f48fbd2b09fd0 Mon Sep 17 00:00:00 2001 From: Kimplul Date: Mon, 15 Apr 2024 03:09:23 +0300 Subject: initial working struct call tests pass --- tests/if.ek | 2 +- tests/struct_call.ek | 20 ++++---------------- tests/struct_call_ref.ek | 29 +++++++++++++++++++++++++++++ 3 files changed, 34 insertions(+), 17 deletions(-) create mode 100644 tests/struct_call_ref.ek (limited to 'tests') diff --git a/tests/if.ek b/tests/if.ek index ba8077b..cd4341d 100644 --- a/tests/if.ek +++ b/tests/if.ek @@ -16,7 +16,7 @@ main() putchar('1'); } else { - putchar('1'); + putchar('2'); } putchar('\n'); diff --git a/tests/struct_call.ek b/tests/struct_call.ek index d73dfb1..7d2559b 100644 --- a/tests/struct_call.ek +++ b/tests/struct_call.ek @@ -6,32 +6,20 @@ typedef int_pair { i27 b; } -extern putchar(i9 c); +extern _putchar(i9 c); add_int_pair(int_pair a, int_pair b => int_pair) { return int_pair!{.a = a.a + b.a, .b = a.b + b.b}; } -add_int_pair_self(*int_pair a, *int_pair b) -{ - a*.a = a*.a + b*.a; - a*.b = a*.b + b*.b; -} - main() { mut a = int_pair!{.a = 1, .b = 2}; mut b = int_pair!{.a = 3, .b = 4}; mut n = add_int_pair(a, b); - putchar('0' + n.a as i9); - putchar('0' + n.b as i9); - - add_int_pair_self(a&, b&); - - putchar('0' + a.a as i9); - putchar('0' + a.b as i9); - putchar('0' + b.a as i9); - putchar('0' + b.b as i9); + _putchar('0' + n.a as i9); + _putchar('0' + n.b as i9); + _putchar('\n'); } diff --git a/tests/struct_call_ref.ek b/tests/struct_call_ref.ek new file mode 100644 index 0000000..a4d38bc --- /dev/null +++ b/tests/struct_call_ref.ek @@ -0,0 +1,29 @@ +typedef i27 {} +typedef i9 {} + +typedef int_pair { + i27 a; + i27 b; +} + +extern _putchar(i9 c); + +add_int_pair_self(*int_pair a, *int_pair b) +{ + a*.a = a*.a + b*.a; + a*.b = a*.b + b*.b; +} + +main() +{ + mut a = int_pair!{.a = 1, .b = 2}; + mut b = int_pair!{.a = 3, .b = 4}; + + add_int_pair_self(a&, b&); + + _putchar('0' + a.a as i9); + _putchar('0' + a.b as i9); + _putchar('0' + b.a as i9); + _putchar('0' + b.b as i9); + _putchar('\n'); +} -- cgit v1.3