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

Stklos fixes

This commit is contained in:
retropikzel 2025-08-24 06:09:51 +03:00
parent 8b1f65122a
commit 4ec20bfda6
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
foreign/c.sld
View File

@ -145,8 +145,8 @@
cpointer-null? cpointer-null?
cpointer-data cpointer-data
cpointer-data-set! cpointer-data-set!
cpointer-set! cpointer-set-abs!
cpointer-ref cpointer-ref-abs
c-size-of c-size-of
void?)) void?))
(export ; calculate-struct-size-and-offsets (export ; calculate-struct-size-and-offsets

8
foreign/c/primitives/stklos.scm
View File

@ -100,16 +100,16 @@
(define c-bytevector-u8-set! (define c-bytevector-u8-set!
(lambda (pointer offset value) (lambda (pointer offset value)
(cpointer-set! pointer :uint8 value offset))) (cpointer-set-abs! pointer :uint8 value offset)))
(define c-bytevector-u8-ref (define c-bytevector-u8-ref
(lambda (pointer offset) (lambda (pointer offset)
(cpointer-ref pointer :uint8 offset))) (cpointer-ref-abs pointer :uint8 offset)))
(define c-bytevector-pointer-set! (define c-bytevector-pointer-set!
(lambda (pointer offset value) (lambda (pointer offset value)
(cpointer-set! pointer :pointer value offset))) (cpointer-set-abs! pointer :pointer value offset)))
(define c-bytevector-pointer-ref (define c-bytevector-pointer-ref
(lambda (pointer offset) (lambda (pointer offset)
(cpointer-ref pointer :pointer offset))) (cpointer-ref-abs pointer :pointer offset)))