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

Fixing Kawa

This commit is contained in:
retropikzel 2025-07-26 14:39:37 +03:00
parent 708ab89d28
commit 95010e7a6e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
foreign/c/primitives/kawa.scm
View File

@ -180,13 +180,13 @@
'getClass) 'getClass)
'getName)) 'getName))
(newline) (newline)
(invoke (invoke (java.lang.Byte 1)
(invoke 'toUnsignedInt
(invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE) (invoke
'get (invoke c-bytevector 'reinterpret INTEGER-MAX-VALUE)
u8-value-layout 'get
k) u8-value-layout
'intValue))) k))))
(define pointer-value-layout (define pointer-value-layout
(invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS) (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS)