Mercurial > repos > rhope
comparison test/test.c @ 12:31f8182f3433
Finished fib test and did some small work on the c backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 25 May 2009 23:34:36 -0400 |
parents | 3021dac0d8f5 |
children |
comparison
equal
deleted
inserted
replaced
11:3021dac0d8f5 | 12:31f8182f3433 |
---|---|
26 register_builtin_types(); | 26 register_builtin_types(); |
27 ct = new_context(); | 27 ct = new_context(); |
28 cdata = alloc_cdata(ct, 1); | 28 cdata = alloc_cdata(ct, 1); |
29 cdata->num_params = 0; | 29 cdata->num_params = 0; |
30 cdata->resume = 0; | 30 cdata->resume = 0; |
31 ret = _f_Main(cdata); | 31 ret = f_Main(cdata); |
32 while(ret == TAIL_RETURN) | 32 while(ret == TAIL_RETURN) |
33 ret = cdata->tail_func(cdata); | 33 ret = cdata->tail_func(cdata); |
34 if(ret == EXCEPTION_RETURN) { | 34 if(ret == EXCEPTION_RETURN) { |
35 puts("Exception!"); | 35 puts("Exception!"); |
36 return -1; | 36 return -1; |
37 } | 37 } |
38 printf("Result: %d\n", ((_t_Int32 *)cdata->params[0])->num); | 38 printf("Result: %d\n", ((t_Int32 *)cdata->params[0])->num); |
39 return 0; | 39 return 0; |
40 } | 40 } |
41 | 41 |