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

Fixing Racket uint8-ref/set!

This commit is contained in:
retropikzel 2025-07-23 19:33:48 +03:00
parent 78d54f80aa
commit b6f19ed4bf
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
foreign/c/c-bytevectors.scm
View File

@ -535,18 +535,24 @@
(define (c-bytevector-uint-ref c-bytevector index endness size) (define (c-bytevector-uint-ref c-bytevector index endness size)
(case endness (case endness
((big) ((big)
(display "BIG")
(newline)
(do ((i 0 (+ i 1)) (do ((i 0 (+ i 1))
(result 0 (+ (* 256 result) (result 0 (+ (* 256 result)
(c-bytevector-u8-ref c-bytevector (+ index i))))) (c-bytevector-u8-ref c-bytevector (+ index i)))))
((>= i size) ((>= i size)
result))) result)))
((little) ((little)
(display "LITTLE")
(newline)
(do ((i (- size 1) (- i 1)) (do ((i (- size 1) (- i 1))
(result 0 (+ (* 256 result) (result 0 (+ (* 256 result)
(c-bytevector-u8-ref c-bytevector (+ index i))))) (c-bytevector-u8-ref c-bytevector (+ index i)))))
((< i 0) ((< i 0)
result))) result)))
(else (else
(display "ELSE")
(newline)
(c-bytevector-uint-ref c-bytevector index (native-endianness) size)))) (c-bytevector-uint-ref c-bytevector index (native-endianness) size))))
(define (c-bytevector-sint-ref c-bytevector index endness size) (define (c-bytevector-sint-ref c-bytevector index endness size)