about summary refs log tree commit diff
path: root/examples/20.src
blob: e6824ef2f2d2ff466c42c5e436d91712fa63c459 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
extern printf = (*i64, varargs) => void;
extern malloc = (i64) => *i64;
extern free = (*i64) => void;

let init_array = (n: i64, arr: *i64) => i64 {
	let i = 0;
	while i < n {
		(*(arr + i)) = i;
		i = i + 1;
	};
	return 0;
};


let main = () => i64 {
	let n = 10;
	let arr = malloc(n * 8);
	init_array(n, arr);

	let i = 0;
	while i < n {
		printf("%d\n", *(arr + i));
		i = i + 1;
	};
	
	free(arr);

	return 0;
};