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

Ypsilon uint8-ref fixes

This commit is contained in:
retropikzel 2025-07-23 10:28:03 +03:00
parent e01b173842
commit 50df6bc3c9
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
foreign/c/primitives/ypsilon.scm
View File

@ -40,14 +40,19 @@
(bytevector-c-uint8_t-ref (make-bytevector-mapping (+ c-bytevector k) (bytevector-c-uint8_t-ref (make-bytevector-mapping (+ c-bytevector k)
(c-type-size 'uint8)) (c-type-size 'uint8))
0))) 0)))
(define c-bytevector-pointer-set! (define c-bytevector-pointer-set!
(lambda (c-bytevector k pointer) (lambda (c-bytevector k pointer)
(let ((bv (make-bytevector-mapping (+ c-bytevector k) (c-type-size 'pointer)))) (bytevector-c-void*-set! (make-bytevector-mapping (+ c-bytevector k)
(bytevector-c-void*-set! bv 0 pointer)))) (c-type-size 'pointer))
0
pointer)))
(define c-bytevector-pointer-ref (define c-bytevector-pointer-ref
(lambda (c-bytevector k) (lambda (c-bytevector k)
(let ((bv (make-bytevector-mapping (+ c-bytevector k) (c-type-size 'pointer)))) (bytevector-c-void*-ref (make-bytevector-mapping (+ c-bytevector k)
(bytevector-c-void*-ref bv 0)))) (c-type-size 'pointer))
0)))
#;(define pointer-set! #;(define pointer-set!
(lambda (pointer type offset value) (lambda (pointer type offset value)