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

Add pointer-dereference to Kawa

This commit is contained in:
retropikzel 2024-11-28 19:05:05 +02:00
parent 51357777d9
commit d9dbae5c55
3 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -56,7 +56,7 @@ guarantees are being made just yet.
| pffi-define | X | X | X | | | | X | X | | X | X | X | | | | |
| pffi-define-callback | | X | | | | | X | | | X | X | X | | | | |
| pffi-pointer-address | | X | | | | | X | | | | X | X | | | | |
| pffi-pointer-dereference | | | | | | | X | | | | X | X | | | | |
| pffi-pointer-dereference | | | | | | | X | X | | | X | X | | | | |
### Usage notes

3
retropikzel/r7rs-pffi.sld
View File

@ -204,8 +204,7 @@
pffi-define
;pffi-define-callback
;pffi-pointer-address
;pffi-pointer-dereference
))
pffi-pointer-dereference))
(larceny
(import (scheme base)
(scheme write)

4
retropikzel/r7rs-pffi/kawa.scm
View File

@ -197,7 +197,3 @@
(invoke (pffi-type->native-type type) 'withByteAlignment 1)
offset)))
r)))
(define pffi-pointer-deref
(lambda (pointer)
(invoke pointer 'get (invoke (static-field java.lang.foreign.ValueLayout 'ADDRESS) 'withByteAlignment 1) 0)))