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

Improve pffi-pointer-address on Chibi

This commit is contained in:
retropikzel 2025-03-12 08:11:59 +02:00
parent a0b69575e2
commit 65dcf0cf44
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/chibi/pffi.stub
View File

@ -70,8 +70,10 @@
}")
(define-c sexp (pointer? is_pointer) (sexp))
(c-declare "int pointer_address(void* pointer) { return (intptr_t)&pointer; }")
(define-c int (pointer-address pointer_address) ((maybe-null pointer void*)))
(c-declare "intptr_t pointer_address(struct sexp_struct* pointer) {
return (intptr_t)&sexp_cpointer_value(pointer);
}")
(define-c uint32_t (pointer-address pointer_address) (sexp))
(c-declare "void pointer_free(void* pointer) { free(pointer); }")
(define-c void (pointer-free pointer_free) ((maybe-null pointer void*)))