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:42:50 +03:00
parent d435bb3bd4
commit b86e9e4ab8
2 changed files with 5 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,7 +29,9 @@
(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))
(cond-expand
(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 make-c-bytevector

4
foreign/c/primitives/racket.scm
View File

@ -59,11 +59,11 @@
(define c-bytevector-u8-set!
(lambda (c-bytevector k byte)
(ptr-set! c-bytevector _uint8 k byte)))
(ptr-set! c-bytevector _uint8 'abs k byte)))
(define c-bytevector-u8-ref
(lambda (c-bytevector k)
(ptr-ref c-bytevector _uint8 k)))
(ptr-ref c-bytevector _uint8 'abs k)))
(define c-bytevector-pointer-set!
(lambda (c-bytevector k pointer)