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

Fixing Racket uint8-ref

This commit is contained in:
retropikzel 2025-07-23 08:43:46 +03:00
parent b86e9e4ab8
commit e93faacec7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c/pointer.scm
View File

@ -29,9 +29,7 @@
(else (define-c-procedure c-memset-pointer->address libc 'memset 'uint64 '(pointer uint8 int)))) (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-memset-address libc 'memset 'pointer '(uint64 uint8 int))
;(define-c-procedure c-printf libc 'printf 'int '(pointer pointer)) ;(define-c-procedure c-printf libc 'printf 'int '(pointer pointer))
(cond-expand (define-c-procedure c-malloc libc 'malloc 'pointer '(int))
(racket (define-c-procedure c-malloc libc 'malloc 'pointer '(int)))
(else (define (c-malloc size) (malloc size 'raw))))
(define-c-procedure c-strlen libc 'strlen 'int '(pointer)) (define-c-procedure c-strlen libc 'strlen 'int '(pointer))
(define make-c-bytevector (define make-c-bytevector