Improve pffi-pointer-address on Chibi

2025-03-12 08:11:59 +02:00
parent a0b69575e2
commit 65dcf0cf44
1 changed files with 4 additions and 2 deletions
@@ -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*)))