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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-06-29 18:00:31 -04:00
parent 8748e31a93
commit 900b2a99d0
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
dispatch-hack.c
View file

@ -2,14 +2,15 @@
#include "cyclone/types.h" #include "cyclone/types.h"
#include "cyclone/runtime.h" #include "cyclone/runtime.h"
#ifdef C_HACKED_APPLY //#ifdef C_HACKED_APPLY
# if defined(C_MACOSX) || defined(__MINGW32__) || defined(__CYGWIN__) //# if defined(C_MACOSX) || defined(__MINGW32__) || defined(__CYGWIN__)
extern void C_do_apply_hack(void *proc, C_word *args, int count) C_noret; //extern void C_do_apply_hack(void *proc, C_word *args, int count) C_noret;
# else //# else
extern void _C_do_apply_hack(void *proc, C_word *args, int count) C_noret; //extern void _C_do_apply_hack(void *proc, C_word *args, int count) C_noret;
extern void _C_do_apply_hack(void *proc, object args, int count);
# define C_do_apply_hack _C_do_apply_hack # define C_do_apply_hack _C_do_apply_hack
# endif //# endif
#endif //#endif
/* /*
#ifdef C_HACKED_APPLY #ifdef C_HACKED_APPLY
@ -56,6 +57,15 @@ extern void _C_do_apply_hack(void *proc, C_word *args, int count) C_noret;
*/ */
void do_dispatch(void *data, int argc, function_type func, object clo, object *b) { void do_dispatch(void *data, int argc, function_type func, object clo, object *b) {
int *buf[argc + 3];
void *proc;
buf[0] = data;
buf[1] = argc + 3;
buf[2] = clo;
memcpy(&buf[3], b, argc * sizeof(object));
proc = (void *)func;
C_do_apply_hack(proc, buf, argc + 3);
// switch(argc) {case 0:func(data,0,clo); // switch(argc) {case 0:func(data,0,clo);
//case 1:func(data,1,clo,*(b+0)); //case 1:func(data,1,clo,*(b+0));
// //