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

Gauche fixes

This commit is contained in:
retropikzel 2025-04-06 06:50:16 +03:00
parent 1d4d2c7339
commit 70d19a8a90
4 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
retropikzel/pffi/chibi.scm
View File

@ -46,7 +46,7 @@
(or (equal? object #f) ; False can be null pointer (or (equal? object #f) ; False can be null pointer
(pointer? object)))) (pointer? object))))
#;(define pffi-pointer-allocate (define pffi-pointer-allocate
(lambda (size) (lambda (size)
(pointer-allocate size))) (pointer-allocate size)))
@ -54,7 +54,7 @@
(lambda (pointer) (lambda (pointer)
(pointer-address pointer))) (pointer-address pointer)))
#;(define pffi-pointer-free (define pffi-pointer-free
(lambda (pointer) (lambda (pointer)
(pointer-free pointer))) (pointer-free pointer)))

2
retropikzel/pffi/gauche.scm
View File

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

4
retropikzel/pffi/gauche/gauchelib.scm
View File

@ -95,6 +95,8 @@
(define-cproc get-ffi-type-unsigned-long () get_ffi_type_unsigned_long) (define-cproc get-ffi-type-unsigned-long () get_ffi_type_unsigned_long)
(define-cproc get-ffi-type-float () get_ffi_type_float) (define-cproc get-ffi-type-float () get_ffi_type_float)
(define-cproc get-ffi-type-double () get_ffi_type_double) (define-cproc get-ffi-type-double () get_ffi_type_double)
(define-cproc get-ffi-type-void() get_ffi_type_void)
(define-cproc get-ffi-type-pointer () get_ffi_type_pointer) (define-cproc get-ffi-type-pointer () get_ffi_type_pointer)
(define-cproc procedure-to-pointer (procedure) procedure_to_pointer)) ;(define-cproc procedure-to-pointer (procedure) procedure_to_pointer)
)

8
retropikzel/pffi/shared/pointer.scm
View File

@ -9,9 +9,13 @@
"c" "c"
'((additional-versions ("0" "6")))))) '((additional-versions ("0" "6"))))))
(pffi-define pffi-pointer-allocate pffi-libc-stdlib 'malloc 'pointer '(int)) (cond-expand
(chibi #t) ; FIXME
(else (pffi-define pffi-pointer-allocate pffi-libc-stdlib 'malloc 'pointer '(int))))
;(pffi-define pffi-pointer-allocate-aligned pffi-libc-stdlib 'aligned_alloc 'pointer '(int int)) ;(pffi-define pffi-pointer-allocate-aligned pffi-libc-stdlib 'aligned_alloc 'pointer '(int int))
(pffi-define pffi-pointer-free pffi-libc-stdlib 'free 'void '(pointer)) (cond-expand
(chibi #t) ; FIXME
(else (pffi-define pffi-pointer-free pffi-libc-stdlib 'free 'void '(pointer))))
#;(define pffi-pointer-null #;(define pffi-pointer-null
(lambda () (lambda ()