conservatory/ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

- fixed function cast in ikarus-ffi.

Browse Source 
- added "make check" rule in the scheme directory.
This commit is contained in:
Abdulaziz Ghuloum
2008-10-31 16:55:43 -04:00
parent 359aa1d2c9
commit 8afcbbef67
4 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ikarus-ffi.c
+1 -1
View File
@@ -322,7 +322,7 @@ ikrt_ffi_call(ikptr data, ikptr argsvec, ikpcb* pcb) {
ikptr typevec = ref(data, off_vector_data + 2 * wordsize);
ikptr rtype = ref(data, off_vector_data + 3 * wordsize);
ffi_cif* cif = (ffi_cif*) ref(cifptr, off_pointer_data);
void(*fn)() = (void*) ref(funptr, off_pointer_data);
void(*fn)() = (void (*)()) ref(funptr, off_pointer_data);
int n = unfix(ref(argsvec, off_vector_length));
void** avalues = alloc(sizeof(void*), n+1);
int i;