scc

A fork of https://git.simple-cc.org/scc/ for Qute

git clone https://git.8pit.net/scc.git

 1int
 2f2(int c, int b)
 3{
 4	return c - b;
 5}
 6
 7int (*
 8f1(int a, int b))(int c, int b)
 9{
10	if (a != b)
11		return f2;
12	return 0;
13}
14
15int
16main()
17{
18	int (* (*p)(int a, int b))(int c, int d) = f1;
19
20
21	return (*(*p)(0, 2))(2, 2);
22}