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

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-03-31 14:14:40 -04:00
parent 456af5b6d0
commit 716d0e0b7f
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
runtime.c
View file

@ -7,10 +7,13 @@
* so macro calls funcs directly. * so macro calls funcs directly.
*/ */
// TODO: the following slows down compilation significantly. // TODO: get VA args function below to work
// it's not just the hack, but rather the size of the expanded code. // TODO: need a way of consolidating AFTER_LONGJMP with code below.
// suggest creating a runtime library that will be linked to // may be able to do this by creating a function that wraps
// the compiled executable. maybe just a small static lib for now // an array of objs into a scheme list (at least initially),
// and calling apply on it. In this case, would want a flag
// to indicate that the cont parameter should be skipped,
// since it is not explicitly used by the AFTER_LONGJMP code.
/** /**
* Receive a list of arguments and apply them to the given function * Receive a list of arguments and apply them to the given function
@ -18,9 +21,12 @@
void dispatch(int argc, function_type func, object clo, object cont, object args) { void dispatch(int argc, function_type func, object clo, object cont, object args) {
// TODO: is this portable? may be better to have a dedicated memory area and // TODO: is this portable? may be better to have a dedicated memory area and
// just copy to it as needed // just copy to it as needed
object b[argc]; // OK to do this? object b[argc + 1]; // OK to do this?
int i; int i;
for (i = 0; i < argc; i++){ // Assume there is always a cont. but could parametize this later
argc++;
b[0] = cont;
for (i = 1; i < argc; i++){
b[i] = car(args); b[i] = car(args);
args = cdr(args); args = cdr(args);
} }
@ -57,7 +63,7 @@ void dispatch(int argc, function_type func, object clo, object cont, object args
* like CASE_C_PROC_p<N>, but with doubled output... * like CASE_C_PROC_p<N>, but with doubled output...
*/ */
#define CASE_C_PROC_p0(n0, p6,p5,p4,p3,p2,p1,p0) \ #define CASE_C_PROC_p0(n0, p6,p5,p4,p3,p2,p1,p0) \
case (n0-2): func(n0-1, clo, cont \ case (n0-2): func(n0-2, clo \
PTR_O_p6_##p6(((n0-2)&0x80)+0)\ PTR_O_p6_##p6(((n0-2)&0x80)+0)\
PTR_O_p5_##p5(((n0-2)&0xC0)+0)\ PTR_O_p5_##p5(((n0-2)&0xC0)+0)\
PTR_O_p4_##p4(((n0-2)&0xE0)+0)\ PTR_O_p4_##p4(((n0-2)&0xE0)+0)\