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

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

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