From bfc2bb671f900eb37d57707391bf22e5ed8c07f7 Mon Sep 17 00:00:00 2001 From: Leo Tenenbaum Date: Tue, 15 Oct 2019 14:39:55 -0400 Subject: started cgen tuples --- out.c | 44 +++++--------------------------------------- 1 file changed, 5 insertions(+), 39 deletions(-) (limited to 'out.c') diff --git a/out.c b/out.c index 1c14262..1612526 100644 --- a/out.c +++ b/out.c @@ -16,59 +16,25 @@ typedef unsigned char bool; /* declarations */ -i64 puti(i64 i); -void dbl(i64((* x)[3])); -i64 foo(void); +void puti(i64 x); +void mktup(i64 a, i64 b, i64(*ret0__), i64(*ret1__)); void main__(void); - void a0_(void); /* code */ int main() { main__(); return 0; } -i64 puti(i64 i) { +void puti(i64 x) { { - printf("%ld\n", i); + printf("%lu", x); }} -void dbl(i64((* x)[3])) { +void mktup(i64 a, i64 b, i64(*ret0__), i64(*ret1__)) { { - ((*x)[0]) = (((*x)[0])*2);; - ((*x)[1]) = (((*x)[1])*2);; - ((*x)[2]) = (((*x)[2])*2);; }} -i64 foo(void) { -i64 a = 0; - { - a = 3;; - if (true) { - a = 4;; - } else if (false) { - a = (17+(1/0));; - }; -}return a; -} - - void main__(void) { { - i64( a[3]) = {0}; - (a[0]) = 1;; - (a[0]) = 5;(a[1]) = (8+(a[0]));; - (dbl((&a))); - void (* asdfnahsdf)(void); { - void (* expr__)(void); expr__ = a0_;asdfnahsdf = expr__;} - (puti((a[0]))); - (puti((foo()))); -}} - - -void a0_(void) { - { -}} - - -- cgit v1.2.3