From c4737f5f8da295bb7464ad874af2cde335df1c31 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Wed, 25 Jun 2025 07:30:27 +0300 Subject: [PATCH] Fixing Chicken --- foreign/c/pointer.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm index c65171a..774860f 100644 --- a/foreign/c/pointer.scm +++ b/foreign/c/pointer.scm @@ -1,6 +1,15 @@ (define-c-procedure c-calloc libc 'calloc 'pointer '(int int)) -(define-c-procedure c-memset-address->pointer libc 'memset 'pointer '(uint64 uint8 int)) -(define-c-procedure c-memset-pointer->address libc 'memset 'uint64 '(pointer uint8 int)) +(cond-expand + (chicken (define c-memset-address->pointer + (lambda (address value offset) + (address->pointer address)))) + (else (define-c-procedure c-memset-address->pointer libc 'memset 'pointer '(uint64 uint8 int)))) + +(cond-expand + (chicken (define c-memset-pointer->address + (lambda (pointer value offset) + (pointer->address pointer)))) + (else (define-c-procedure c-memset-pointer->address libc 'memset 'uint64 '(pointer uint8 int)))) ;(define-c-procedure c-memset-address libc 'memset 'pointer '(uint64 uint8 int)) ;(define-c-procedure c-printf libc 'printf 'int '(pointer pointer)) (define-c-procedure c-malloc libc 'malloc 'pointer '(int))