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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-10-12 12:10:40 -04:00
parent 390be44b2c
commit 725645c2fe
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/experimental/Makefile
View file

@ -2,7 +2,7 @@ OPT=-g
#OPT=-O2
test-args: test-args.c
cc -O2 test-args.c -o test-args
cc $(OPT) test-args.c -o test-args
fac-test: fac-test.c
cc fac-test.c $(OPT) -fPIC -Wall -I/usr/local/include -L/usr/local/lib -Wl,--export-dynamic -c -o fac-test.o

8
tests/experimental/fac-test.c
View file

@ -3092,7 +3092,7 @@ extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
static void __host_lambda_1(void *data, int argc);
static void __host_lambda_1(void *data, int argc, closure self);
//static void __lambda_2(void *data, int argc, object self_7311, object r_737) {
// ((gc_thread_data *)data)->pc = 2;
// ((gc_thread_data *)data)->args[0] = self_7311;
@ -3111,14 +3111,14 @@ static void __host_lambda_1(void *data, int argc);
// ((gc_thread_data *)data)->args[1] = r_7310;
// __host_lambda_1(data, argc);
//}
static void __host_lambda_1(void *data, int argc) {
static void __host_lambda_1(void *data, int argc, closure self) {
object top;
object *stack = ((gc_thread_data *)data)->args; // TODO: do it inline for benchmarks/production code
// // initialize "stack" here, and unload arguments.
// // assumes the compile can compute the stack's max size, since it knows the number of args each function has
// memcpy(stack, args, sizeof(object) * argc);
while(1) {
object *stack = ((gc_thread_data *)data)->args; // TODO: do it inline for benchmarks/production code
top = alloca(sizeof(object)); // TODO: is there a more efficient way?
// TODO:
// if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) {
@ -3161,7 +3161,7 @@ c_7319->elements[1] = stack[1];
object local_7329 = alloca(sizeof(complex_num_type));
object c_7330 = Cyc_fast_sub(data,local_7329, stack[1], obj_int2obj(1));
return_closcall2(data, __glo_fac, &c_7319, c_7330);
return_closcall2(data, __glo_fac, c_7319, c_7330);
}
// TODO
break;