Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Experimenting with a local looping construct

Browse source
This commit is contained in:
Justin Ethier 2018-06-22 13:16:44 -04:00
parent 282bfc5b5a
commit 3a1a2410b1
1 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
tests/debug/diviter/diviter.c
View file

@ -30139,18 +30139,28 @@ c_73325.elements[0] = lp_732_737_7394;
return_closcall1(data,(closure)&c_73315, Cyc_set_cell(data, lp_732_737_7394, &c_73325));;
}
static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395, object a_739_7396) {
static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395_arg, object a_739_7396_arg) {
object n_738_7395, a_739_7396;
n_738_7395 = n_738_7395_arg;
a_739_7396 = a_739_7396_arg;
loop: {
object c_73328 = Cyc_num_fast_eq_op(data,n_738_7395, obj_int2obj(0));
if( (boolean_f != c_73328) ){
return_closcall1(data, k_73143, a_739_7396);
} else {
complex_num_type local_73336; object c_73337 = Cyc_fast_sub(data,&local_73336,n_738_7395, obj_int2obj(1));
make_pair(c_73340,NULL, a_739_7396);
return_closcall3(data, car(((closureN)self_73246)->elements[0]), k_73143, c_73337, &c_73340);}
;
complex_num_type *local_73336 = alloca(sizeof(complex_num_type));
object c_73337 = Cyc_fast_sub(data,local_73336,n_738_7395, obj_int2obj(1));
pair_type *c_73340 = alloca(sizeof(pair_type));
// TODO: check if stack is full!
set_pair(c_73340, NULL, a_739_7396);
//return_closcall3(data, car(((closureN)self_73246)->elements[0]), k_73143, c_73337, c_73340);
n_738_7395 = c_73337;
a_739_7396 = c_73340;
goto loop;
}
;
}}
static void __lambda_0(void *data, int argc, object self_73247, object r_73141) {
return_closcall3(data, car(((closureN)self_73247)->elements[2]), ((closureN)self_73247)->elements[1], ((closureN)self_73247)->elements[3], ((closureN)self_73247)->elements[0]);;