20 lines
820 B
Scheme
20 lines
820 B
Scheme
(cond-expand
|
|
;(kawa #t) ; JVM
|
|
(windows (pffi-define-library pffi-libc-stdlib
|
|
'("stdlib.h")
|
|
"ucrtbase"
|
|
'((additional-versions ("0" "6")))))
|
|
(else (pffi-define-library pffi-libc-stdlib
|
|
'("stdlib.h")
|
|
"c"
|
|
'((additional-versions ("0" "6"))))))
|
|
|
|
(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-free pffi-libc-stdlib 'free 'void '(pointer))
|
|
|
|
#;(define pffi-pointer-null
|
|
(lambda ()
|
|
; Make aligned_alloc fail and return us a null pointer
|
|
(pffi-pointer-allocate-aligned -1 -1)))
|