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:30:20 +03:00
parent 1e74458e85
commit 78d54f80aa
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -555,6 +555,12 @@
index index
(+ index size -1)))) (+ index size -1))))
(uresult (c-bytevector-uint-ref c-bytevector index endness size))) (uresult (c-bytevector-uint-ref c-bytevector index endness size)))
(display "High byte: ")
(display high-byte)
(newline)
(display "Uresult: ")
(display uresult)
(newline)
(if (> high-byte 127) (if (> high-byte 127)
(- uresult (expt 256 size)) (- uresult (expt 256 size))
uresult))) uresult)))