From 65dcf0cf440c5ee776c7beffc7f8eeeb23cbc813 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 12 Mar 2025 08:11:59 +0200 Subject: [PATCH] Improve pffi-pointer-address on Chibi --- src/chibi/pffi.stub | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/chibi/pffi.stub b/src/chibi/pffi.stub index e270c7d..f784611 100644 --- a/src/chibi/pffi.stub +++ b/src/chibi/pffi.stub @@ -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*)))