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

fixed a bug in ffi callouts when the type is [un]signed-long on 32-bit.

This commit is contained in:
Abdulaziz Ghuloum 2008-12-13 06:34:01 -05:00
parent f8efdfc848
commit 818d15a080
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1715 1716

4
src/ikarus-ffi.c
View File

@ -58,8 +58,8 @@ scheme_to_ffi_type_cast(ikptr nptr){
case 5: return &ffi_type_sint16; case 5: return &ffi_type_sint16;
case 6: return &ffi_type_uint32; case 6: return &ffi_type_uint32;
case 7: return &ffi_type_sint32; case 7: return &ffi_type_sint32;
case 8: return &ffi_type_uint64; case 8: return (sizeof(long)==4)?&ffi_type_uint32:&ffi_type_uint64;
case 9: return &ffi_type_sint64; case 9: return (sizeof(long)==4)?&ffi_type_sint32:&ffi_type_sint64;
case 10: return &ffi_type_float; case 10: return &ffi_type_float;
case 11: return &ffi_type_double; case 11: return &ffi_type_double;
case 12: return &ffi_type_pointer; case 12: return &ffi_type_pointer;