Mercurial > repos > rhope

comparison test/test.c @ 12:31f8182f3433

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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