Mercurial > repos > tabletprog
comparison runtime/progfoot.inc @ 31:668f533e5284
Add initial version of C backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 07 Jul 2012 16:48:36 -0700 |
parents | |
children | bf5e88f6419d |
comparison
equal
deleted
inserted
replaced
30:608eb70fe261 | 31:668f533e5284 |
---|---|
1 | |
2 int main(int argc, char ** argv) | |
3 { | |
4 object * params[64]; | |
5 params[0] = mainModule(); | |
6 object * ret = mcall(METHOD_ID_MAIN, 1, params); | |
7 printf("%p:%p\n", ret->meta, &obj_int32_meta); | |
8 if (ret->meta == &obj_int32_meta) { | |
9 obj_int32 * reti32 = (obj_int32 *) ret; | |
10 printf("%d\n", reti32->num); | |
11 } else if(ret->meta == &lambda_meta) { | |
12 puts("returned lambda????"); | |
13 } else { | |
14 int i = 0; | |
15 for(; i < 16; ++i) { | |
16 if (ret->meta->meth_lookup[i] != &no_impl) { | |
17 printf("slot %d is set\n", i); | |
18 } | |
19 } | |
20 } | |
21 return 0; | |
22 } | |
23 |