Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes to Chibi and Gauche

This commit is contained in:
retropikzel 2025-03-11 11:07:24 +02:00
parent bbbfab1723
commit 41ef16653a
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
retropikzel/pffi/gauche.scm
View File

@ -136,7 +136,7 @@
((equal? type 'unsigned-long) (get-ffi-type-ulong))
((equal? type 'float) (get-ffi-type-float))
((equal? type 'double) (get-ffi-type-double))
((equal? type 'void) (get-ffi-type-void))
((equal? type 'void) (get-ffi-type-pointer))
((equal? type 'pointer) (get-ffi-type-pointer))
((equal? type 'callback) (get-ffi-type-pointer)))))

12
src/chibi/pffi.stub
View File

@ -241,9 +241,17 @@
}")
(define-c int (internal-ffi-prep-cif internal_ffi_prep_cif) (unsigned-int (pointer void*) (array void*)))
(c-declare
"void internal_ffi_call(unsigned int nargs, void* rtype, void** atypes, void* fn, void* rvalue, void* avalues) {
"void internal_ffi_call(unsigned int nargs, void* rtype, void** atypes, void* fn, void* rvalue, void* avalues[]) {
ffi_prep_cif(&cif, FFI_DEFAULT_ABI, nargs, (ffi_type*)rtype, (ffi_type**)atypes);
ffi_call(&cif, FFI_FN(fn), rvalue, &avalues);
void* c_avalues[nargs];
for(int i = 0; i < nargs; i++) {
if(atypes[i] == &ffi_type_pointer) {
c_avalues[i] = &avalues[i];
} else {
c_avalues[i] = avalues[i];
}
}
ffi_call(&cif, FFI_FN(fn), rvalue, c_avalues);
}")
(define-c void
(internal-ffi-call internal_ffi_call)