From 57cd29a01e0d0e888ce5d4b793b3838b712f96ea Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 10 Oct 2025 15:44:44 +0300 Subject: [PATCH] Fix Chibi c-bytevector-pointer-ref --- foreign/c/primitives/chibi/foreign-c.stub | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/foreign/c/primitives/chibi/foreign-c.stub b/foreign/c/primitives/chibi/foreign-c.stub index f7e0754..5ee419c 100644 --- a/foreign/c/primitives/chibi/foreign-c.stub +++ b/foreign/c/primitives/chibi/foreign-c.stub @@ -117,7 +117,7 @@ (c-declare "void c_bytevector_pointer_set (void* pointer, int offset, void* value) { char* p = (char*)pointer + offset; *(char**)p = value; }") (define-c void (c-bytevector-pointer-set! c_bytevector_pointer_set) ((pointer void*) int (maybe-null pointer void*))) -(c-declare "void* c_bytevector_pointer_ref (void* pointer, int offset) { char** p = (char**)pointer + offset; return (void*)*p; }") +(c-declare "void* c_bytevector_pointer_ref (void* pointer, int offset) { char* p = (char*)pointer + offset; return (void*)*(char**)p;}") (define-c (maybe-null pointer void*) (c-bytevector-pointer-ref c_bytevector_pointer_ref) ((maybe-null pointer void*) int)) (c-declare "ffi_cif cif;")